Anti sajoin

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 892 fois - Téléchargée 15 fois

Contenu du snippet

Un anti Sajoin, rien de fabuleux mais celà peut être utile

Il date un peu, mais j'ai eu l'envie de le poster sur ce site comme j'en es pas trouver dessus.

Source / Exemple :


on 1:SNOTICE:*were forced to join*:{
  set %sa 1   
}
on *:JOIN:#:{
  if (%sa == 1) {
    unset %sa
    part $chan Anti sajoin ! [AUTOPART]
  }
}

Conclusion :


Je l'es poster y'a quelques jours,mais j'me suis tromper dans la catégorie (mes excuses Sorn :))

De plus les deux premiers commentaires factices que j'ai eu ne m'ont pas vexer,(Nul ? Sert à rien ? avant de me dire ça tester le et si il fonctionne pas là j'accepterai vos critiques non constructifs,jusqu'à présent les gens qui l'ont dans leurs scripts fonctionne très bien)

A bon entendeur

Maka

A voir également

Ajouter un commentaire

Commentaires

uaip
Messages postés
1470
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
7 février 2011
-
En effet, rien d'exceptionnel... Ne le prends pas mal mais si on devait poster toutes nos petites "merdouilles" de 3lignes, ce site serait saturé ^^
Sinon, une question, ne peut-on pas tout simplement faire ceci ? (je ne vais plus sur IRC)

on *:snotice:*were forced to join*:part $7 Anti sajoin ! [AUTOPART]
Maka57
Messages postés
9
Date d'inscription
samedi 26 juillet 2008
Statut
Membre
Dernière intervention
24 mars 2009
-
Yep, non j'le prends pas mal, une suggestion est toujours la bienvenue

Je m'étais dit que ça pouvait servir,et comme j'en es pas vu sur ce site...

En effet on peut faire aussi comme ça => on *:snotice:*were forced to join*:part $7 Anti sajoin ! [AUTOPART]

Après tout je croyais bien faire ^^

Enjoy
cs_Yannick80
Messages postés
10
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
7 décembre 2008
-
Je pense que même si ce n'est pas un code de 300 lignes, il a sa place.
Le néophyte que je suis y vois un exemple de gestion de snotice.
uaip
Messages postés
1470
Date d'inscription
mardi 20 février 2007
Statut
Membre
Dernière intervention
7 février 2011
-
Ce n'est pas ce que j'ai voulu dire. La taille n'a rien à voir avec la qualité du code.
Cependant, il aurait pu par exemple agrémenter sa source avec d'autres petits bouts de code du même style, histoire de faire un truc un petit plus complet. Il y a plein de petits bouts de code comme ça de 3 lignes (répondeur pv, anti-insultes, changement de nick après un highlight, kb sur une ident précise, etc etc). C'est en effet intéressant poru débuter.

Après on peut aller un peu plus loin en créant des identifieurs spécifiques pour les traitements d'informations, etc.
D'ailleurs, je viens d'en retrouver un là, je le montre à titre d'exemple (assez mal codé, c'était il y a longtemps ^^). Si mes souvenirs sont bons, il sert à détecter si plusieurs mots/lettres sont dans une chaine de caractères, en prenant en compte plusieurs paramètres :

;# $winsil(texte,exp1*exp2*etc,C)
;# M = majuscules
;# m = minuscules
;# i = inverse alphabétique
;# o = ordre alphabétique
alias winsil {
unset %winsilpb
if ($regex($2,/^\|/)) { set %winsilpb $+(",$chr(42),") interdit en début d'expression }
if ($regex($2,/\|$/)) { set %winsilpb $iif(%winsilpb,$ifmatch //) $+(",$chr(42),") interdit en fin d'expression }
if (!$gettok($2,2,42)) { set %winsilpb $iif(%winsilpb,$ifmatch //) syntaxe incorrecte }
if (!$2) { set %winsilpb $iif(%winsilpb,$ifmatch //) aucune expression précisée }
if ($regex($2,/^[0-9]/) || $regex($2,/\|[0-9]/)) { set %winsilpb $iif(%winsilpb,$ifmatch //) chiffres interdits en début de token }
if ($regex($3,/m/) && $regex($3,/M/)) { set %winsilpb $iif(%winsilpb,$ifmatch //) identificateurs non compatibles }
if (%winsilpb) { echo -s - | echo -s * $+($chr(36),winsil()) : %winsilpb $+($chr(40),$2,$chr(41)) | echo -s - | halt }
unset %winsil* | set %winsil1 $1 | set %winsil2 $2
if ($3) {
if ($regex($3,/M/)) { set %winsil3 $addtok(%winsil3,M,46) } | if ($regex($3,/m/)) { set %winsil3 $addtok(%winsil3,m,46) }
if ($regex($3,/i/)) { set %winsil3 $addtok(%winsil3,i,46) } | if ($regex($3,/o/)) { set %winsil3 $addtok(%winsil3,o,46) }
}
if (%winsil3) {
if ($regex(%winsil3,/M/)) { set %winsil2 $upper(%winsil2) } | if ($regex(%winsil3,/m/)) { set %winsil2 $lower(%winsil2) }
if ($regex(%winsil3,/i/)) { set %winsil2 $sorttok(%winsil2,42,r) } | if ($regex(%winsil3,/o/)) { set %winsil2 $sorttok(%winsil2,42) }
}
tokenize 42 %winsil2
var %a 1 | while (%a <= $numtok(%winsil2,42)) {
if ($regex(%winsil1,$+(/,$ [ $+ [ %a ] ],/)) == 0) { return 0 | halt }
else {
if (%winsill) && ($findtok(%winsil1,$matchtok(%winsil1,%winsill,1,32),1,32) > $findtok(%winsil1,$matchtok(%winsil1,$ [ $+ [ %a ] ],1,32),1,32)) { return 0 }
set %winsill $matchtok(%winsil1,$ [ $+ [ %a ] ],1,32)
}
inc %a
}
return 1
}

En regardant le code maintenant je me dis "quelle horreur" mais à l'époque je faisais plein, des trucs comme ça, pour apprendre. Et tout ça maintenant, ça pourrit au fin fond de mon disque dur ^^.
cs_Yannick80
Messages postés
10
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
7 décembre 2008
-
lol, je pense qu'on est tous a peu près pareils ...
Je ne code pas en mirc, uniquement en tcl, donc je recup des bouts de codes a droite et a gauche, par moment, les résultats sont curieux (interaction des codes ...).
Inutile donc de te dire que si pour toi c'est mal codé, pour moi c'est du grand art... mdrrrr
Pour le code snotice, ça serait bien de trouver (vous allez me dire que ça existe 200 fois) une liste des snotice les plus courantes et comment les gérer (UAIP : au boulot :p)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.