begin process at 2012 02 10 02:33:15
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Scripts

 > AKICK POUR BOT

AKICK POUR BOT


 Information sur la source

Note :
Aucune note
Catégorie :Scripts Classé sous :akick, kick Niveau :Débutant Date de création :04/11/2005 Vu :3 935
Auteur : chaosgreg

Ecrire un message privé
Site perso
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

 Description

Voilà ma première source que je poste, c'est un systeme de akick pour bot, il suffit de taper !akick add <pseudo> <motif> pour rajouté un nick en akick et de taper !akick del <pseudo> pour supprimer le nick de la liste du bot. N'ésité pas à me dire mes erreurs ou se que je dois modifier, je suis toujours pres à m'amélioré.

Source

  • on *:text:*:#:{
  • Tokenize 32 $strip($1-)
  • if !akick == $1 && $3 == $me { msg $chan 4Impossible de me mettre moi meme en Akick $nick $+ par contre moi je peux te mettre en akick XD } { HALT }
  • if oui == $1 && %akickbanok == ok { set %akickban. [ $+ [ %bannickok ] ] [ $+ [ $chan ] ] ok | msg $chan Ban 4activé1 pour6 %bannickok | unset %akickbanok }
  • if non == $1 && %akickbanok == ok { msg $chan Ban 4desactivé 1pour6 %bannickok | unset %akickbanok }
  • if !akick == $1 && $2 == $null { msg $chan 4Syntaxe : !akick add pseudo message de kick / !akick del pseudo } { HALT }
  • if !akick == $1 && $3 == $null { msg $chan 4Syntaxe : !akick add pseudo message de kick / !akick del pseudo } { HALT }
  • if !akick == $1 && add == $2 && $4 == $null { msg $chan 4Syntaxe : !akick add pseudo message de kick / !akick del pseudo } { HALT }
  • if !akick == $1 && add == $2 && ($nick !isop #) { msg $chan 4Acces refuser. }
  • if !akick == $1 && del == $2 && ($nick !isop #) { msg $chan 4Acces refuser. }
  • if !akick == $1 && add == $2 && ($nick isop #) && $3 == %akick. [ $+ [ $3 ] ] && $chan == %akickchan. [ $+ [ $3 ] ] [ $+ [ $chan ] ] { msg $chan 13 $+ %akick. [ $+ [ $3 ] ] 10est déjà dans ma liste d'4autokick. } { HALT }
  • if !akick == $1 && del == $2 && ($nick isop #) && $3 != %akick. [ $+ [ $3 ] ] && $chan != %akickchan. [ $+ [ $3 ] ] [ $+ [ $chan ] ] { msg $chan 4 $+ $3 10n'est pas dans dans ma liste d'4autokick. } { HALT }
  • if !akick == $1 && add == $2 && ($nick isop #) { Set %akick. [ $+ [ $3 ] ] $3 | set %akickchan. [ $+ [ $3 ] ] [ $+ [ $chan ] ] $chan | set %akickmsg. [ $+ [ $3 ] ] [ $+ [ $chan ] ] $4- | set %bannickok $3 | msg $chan 10 $+ %akick. [ $+ [ $3 ] ] 6a bien été rajouté dans ma liste d'auto4kick5, il sera kické avec ce message : 4 %akickmsg. [ $+ [ $3 ] ] [ $+ [ $chan ] ]
  • timermsgnban 1 1 set %akickbanok ok | msg $chan 4Appliquer un ban avec le kick ? (oui ou non) }
  • if !akick == $1 && del == $2 && ($nick isop #) { unSet %akick. [ $+ [ $3 ] ] | unset %akickchan. [ $+ [ $3 ] ] [ $+ [ $chan ] ] | unset %akickmsg. [ $+ [ $3 ] ] [ $+ [ $chan ] ] | unset %akickban. [ $+ [ $3 ] ] [ $+ [ $chan ] ] | msg $chan 10 $+ $3 4a bien été supprimé de ma liste d'auto4kick. }
  • }
  • on *:join:#:{
  • if $nick == %akick. [ $+ [ $nick ] ] && $chan == %akickchan. [ $+ [ $nick ] ] [ $+ [ $chan ] ] { kick $chan $nick 4 $+ %akickmsg. [ $+ [ $nick ] ] [ $+ [ $chan ] ] }
  • if $nick == %akick. [ $+ [ $nick ] ] && $chan == %akickchan. [ $+ [ $nick ] ] [ $+ [ $chan ] ] && %akickban. [ $+ [ $nick ] ] [ $+ [ $chan ] ] == ok { mode $chan +b $address($nick,2) }
  • } 
on *:text:*:#:{
  Tokenize 32 $strip($1-)
  if !akick == $1 && $3 == $me { msg $chan 4Impossible de me mettre moi meme en Akick $nick $+ par contre moi je peux te mettre en akick XD } { HALT }
  if oui == $1 && %akickbanok == ok { set %akickban. [ $+ [ %bannickok ] ] [ $+ [ $chan ] ] ok | msg $chan Ban 4activé1 pour6 %bannickok | unset %akickbanok  }
  if non == $1 && %akickbanok == ok { msg $chan Ban 4desactivé 1pour6 %bannickok | unset %akickbanok }
  if !akick == $1 && $2 == $null { msg $chan 4Syntaxe : !akick add pseudo message de kick / !akick del pseudo } { HALT }
  if !akick == $1 && $3 == $null { msg $chan 4Syntaxe : !akick add pseudo message de kick / !akick del pseudo } { HALT }
  if !akick == $1 && add == $2 && $4 == $null { msg $chan 4Syntaxe : !akick add pseudo message de kick / !akick del pseudo } { HALT }
  if !akick == $1 && add == $2 && ($nick !isop #) { msg $chan 4Acces refuser. }
  if !akick == $1 && del == $2 && ($nick !isop #) { msg $chan 4Acces refuser. }
  if !akick == $1 && add == $2 && ($nick isop #) && $3 == %akick. [ $+ [ $3 ] ] && $chan == %akickchan. [ $+ [ $3 ] ] [ $+ [ $chan ] ] { msg $chan 13 $+ %akick. [ $+ [ $3 ] ] 10est déjà dans ma liste d'4autokick. } { HALT }
  if !akick == $1 && del == $2 && ($nick isop #) && $3 != %akick. [ $+ [ $3 ] ] && $chan != %akickchan. [ $+ [ $3 ] ] [ $+ [ $chan ] ] { msg $chan 4 $+ $3 10n'est pas dans dans ma liste d'4autokick. } { HALT }
  if !akick == $1 && add == $2 && ($nick isop #) { Set %akick. [ $+ [ $3 ] ] $3 | set %akickchan. [ $+ [ $3 ] ] [ $+ [ $chan ] ] $chan | set %akickmsg. [ $+ [ $3 ] ] [ $+ [ $chan ] ] $4- | set %bannickok $3 | msg $chan 10 $+ %akick. [ $+ [ $3 ] ] 6a bien été rajouté dans ma liste d'auto4kick5, il sera kické avec ce message : 4 %akickmsg. [ $+ [ $3 ] ] [ $+ [ $chan ] ] 
  timermsgnban 1 1 set %akickbanok ok | msg $chan 4Appliquer un ban avec le kick ? (oui ou non) } 
  if !akick == $1 && del == $2 && ($nick isop #) { unSet %akick. [ $+ [ $3 ] ] | unset %akickchan. [ $+ [ $3 ] ] [ $+ [ $chan ] ] | unset %akickmsg. [ $+ [ $3 ] ] [ $+ [ $chan ] ] | unset %akickban. [ $+ [ $3 ] ] [ $+ [ $chan ] ] | msg $chan 10 $+ $3 4a bien été supprimé de ma liste d'auto4kick. }
}
on *:join:#:{
  if $nick == %akick. [ $+ [ $nick ] ] && $chan == %akickchan. [ $+ [ $nick ] ] [ $+ [ $chan ] ] { kick $chan $nick 4 $+ %akickmsg. [ $+ [ $nick ] ] [ $+ [ $chan ] ] }
  if $nick == %akick. [ $+ [ $nick ] ] && $chan == %akickchan. [ $+ [ $nick ] ] [ $+ [ $chan ] ] && %akickban. [ $+ [ $nick ] ] [ $+ [ $chan ] ] == ok { mode $chan +b $address($nick,2) }
}

 Conclusion

Voilà dite vos remarques.


 Sources de la même categorie

Source avec Zip PENDU POUR MIRC par neobidou
Source avec Zip MODIFICATION ET TRADUCTION DU SCRIPT RHYTHMBOX XCHAT ANNOUNC... par TrHiLK1L
[TCL] AUTOJOIN DE ROBOT AUTOMATIQUE par Atok
Source avec une capture TORRENT VIEWER par kamikaze97441
Source avec Zip Source avec une capture PANNEAU DE CONFIGURATION PS7 par aliassangelius
Toutes les sources de la catégorie Scripts

 Sources en rapport avec celle ci

[XCHAT] [PERL] ANTI-KICK + AWAY par GeroXXXX
BLACK-LIST par mixam
Source avec une capture CLONE KICKER ON JOIN par hackman_teta_
ANTIBAN par ours_en_pluche
ANTI IDLE !!! UN DE PLUS par elkwi

Commentaires et avis

Commentaire de fjxokt le 05/11/2005 00:07:38

bon j'ai pas testé, et j'ai pas trop regardé ton code (il pique un peu les yeux) , mais personnellement j'aurai utilisé un fichier ini (ou hashtables mais bon c'est plus compliqué) pour stocker les donnéees
et sinon au lieu de $pouet == $null , tu peux te servir de !$pouet (dans ton cas)

(ps: je crois que tu as le record du code qui contient le plus de crochets ;-)

Commentaire de Tylor le 05/11/2005 09:11:50

Quel est l'intérêt de demader de faire un simple kick ? Perso je vois pas, si la personne à l'auto join after kick le chan va vite se voir floodé par les join/kick...
Un akick sert à bannir sinon où est l'intérêt...?

on *:join:#:{
  if $nick == %akick. [ $+ [ $nick ] ] && $chan == %akickchan. [ $+ [ $nick ] ] [ $+ [ $chan ] ] { kick $chan $nick 4 $+ %akickmsg. [ $+ [ $nick ] ] [ $+ [ $chan ] ] }
  if $nick == %akick. [ $+ [ $nick ] ] && $chan == %akickchan. [ $+ [ $nick ] ] [ $+ [ $chan ] ] && %akickban. [ $+ [ $nick ] ] [ $+ [ $chan ] ] == ok { mode $chan +b $address($nick,2) }
}

autant mettre ceci à la place, et encore j'ai horreure de tout ces crochets, essaie de stocker tout ça dans des hashs ou alors même dans un fichier .ini ce qui est assez simple.

on *:join:#:{
  if $nick == %akick. [ $+ [ $nick ] ] && $chan == %akickchan. [ $+ [ $nick ] ] [ $+ [ $chan ] ] { ban -k $chan $nick 2 4 $+ %akickmsg. [ $+ [ $nick ] ] [ $+ [ $chan ] ] } }

Sinon j'ai pas trop regarder le reste mais ton code demande à être optimisé...
>Déjà dès le début regarde si la personne est op ou non.
>Fait un premier if avec comme condition si $1 = !akick puis tu fais les autres dedans.
C'est pas grand chose mais c'est déjà ça.

Enfin c'est ta première source et comme on dit: c'est en forgeant qu'on devient forgeron, bon courage :)

Commentaire de J3rK le 06/11/2005 11:06:15

Bon, à mon avis, cette soure sert pas a grand chose, puisque les 3/4 des systèmes sont dotés d'ackicks par les bots. De plus les crochets.... adapte ton code par des $+(%, , ,)

Exemple:
Un exemple pas sur ce code, mais qui difère au tien:

ON *:TEXT:#:*:if ($1 == !blah) && (%bleh [ $+ [ $nick ] ]) set %akaka [ $+ [ $nick ] ]
DEVIENT:
ON *:TEXT:#:*:if ($1 == !blah) && (%bleh [ $+ [ $nick ] ]) set $+(%(,bleh,$nick)

Remarque: dans la conditions, toujours mettre des crochets, car $+() a des sensibilités. De plus [ $+ [ $nick ] ] devient $+(%(le signe de variable seul au debut,bleh(le nom de la variable a la suite),$nick(l'identifieur à la fin, dans ce contexte))

Voila, sinon je te dis, le code ne sert pas a grand chose appart ralonger la commande //mode $chan +b $2 donc bon.. :)

Sinon, vu que c'est ta première sourcen tu s a t'ameliorer, et comme dit Tylor: C'est en forgeant qu'on devient forgeron...

Bonne suite a toi et bon courage dans le scritping

Commentaire de J3rK le 06/11/2005 11:07:12

Mes excuses du double post, mais j'ai fais une faute :/
ON *:TEXT:#:*:if ($1 == !blah) && (%bleh [ $+ [ $nick ] ]) set $+(%,bleh,$nick)

Bye

Commentaire de neo66 le 06/11/2005 15:13:27

J3Rk:
tant qu'a utilisé $+(%,,,), utilise le dans ta condition:
ON *:TEXT:#:*:if ($1 == !blah) && ($eval($+(%,bleh,$nick),4)) set $+(%,bleh,$nick)

Je n'ai pas regardé la source, car comme la dit fjxokt, elle est tres "bordelique", mais tu veras avec le temps, ça s'arrangera :)

Commentaire de GaaraS le 09/11/2005 22:07:55

Se qui serai pratique c'est un ban de 15secondes avant le kick pour eviter le /join

Commentaire de zzaoueche le 17/05/2006 13:49:04

bon c cool tout çà mais vous parler dans un language pour pro koi je voudrais savoir comment le faire pour plusieurs personne a la fois avec la write

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

changer host [ par jujuquatre ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~JuJuQuArTrE ¨^ ¨^ ¨^ JuJu_BoT WWW.ut2004.fr.st~~~~~~~~~~~~~~~~~~~~~~~~~~~~Bon voila C dans ma shitlist je la fait dans les Raison d'un kick dans un .txt [ par PiZZaMaN ] J'espere ke je serai assez clair dans mon explication (j'en doute malheureusement et je m'excuse d'avance pr mon vocabulaire ki sera surement barbare anti kick ? [ par morgandetoi06 ] y a t il un script anti kick qui fonctionne ? j en ait testé 2 qui viennent d ici mais apparement ils ne fonctionnent pas ?www.morgan06.fr.fm recherche anti-ban anti-kick.... [ par TaitsuO ] J'aimerai trouver un anti-kick et un anti-ban assez puissant, ceux que j'ai trouver ici ne marche pas si bien que ça (dsl...) et je ne suis pas trés b afficher le nombre de kick et de ban [ par Lonsdale^ ] salut ^^ben voila encore 1 demande.. ;p ben j'ai vu 1 script qui m'interesse y as 1 gars qui l'as mais il veux pas me le filer donc c'est quand 1 pers Remote pour KICK et BAN [ par Sibelle07 ] Salut ,Je cherche une commande simple pour kicker un gars , en écrivant : !degage pseudo_a_kickerPuis je cherche également , la méme chose mais pour l blacklist [ par Lonsdale^ ] salut voila j'utilise zls comme irc quand je clic droit sur 1 nom j'ai kick ban ignore etc...mais j'aimerrais qu'il y ai 1 blacklist qui sois affiché aide svp [ par viko ] this addon don't work....the kick and ban prots didnot work help plsdialog protections { title "Protections Salons" size -1 -1 104 126 option dbu Anti akick [ par titeuf28310 ] Bonjour, avec la commande /msg chanserv akick # add pseudoon peut donner un akick, et je cherche un anti akick qui fonctionne de la meme meniere qu'un Kick on Join via les touches F1 F2 F3 etc [ par ArMySwAT ] Salut quelqun aurait une source svp pour pouvoir KICKER ou BANNIR ou KICKBAN quelqun quand il entre sur le salon via les touches F1 F2 F3 etc ?? svpme


Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Single Large Rock Formation in Monument Valley
Photo Multiple Buttes of Monument Valley 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,881 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)