CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 09 19:36:04

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

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 234

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

LA CONFIGURATION D'UN EGGDROP QUI ENLÈVE LES BANS APRÈS X ... par Atok

DARKPROJECT - SCRIPT MIRC par Artwerks

STATISTIQUES DISQUE(S) DUR(S) par Nort0n

SCRIPT POUR ADMIN STRESSÉ AFFRONTANT UNE URGENCE. par ouroumov

...................... par hgxv

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

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

Derniers Blogs

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice

VISUAL STUDIO 2010 AND .NET FRAMEWORK 4 RELEASE CANDIDATE NOW AVAILABLE par Matthieu MEZIL

Forum

RE : ON RAWMODE par WorldDMT

RE : PROBLEME AVEC UN QUIZZ par vincent67190

RE : PROBLèME FLAG IRCOP par WebiK

AVERTISSMENT ET KIKK par mouhcine951990

RE : PROBLèME FLAG IRCOP par Benjamin37

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5