Black-list

5/5 (7 avis)

Snippet vu 8 555 fois - Téléchargée 16 fois

Contenu du snippet

il s'agis d'une remote qui va virer les boulet de votre salon . il suffit de faire /add pseudo raison pour l'ajouter a votre liste

Source / Exemple :


#bl on
on *:join:#votre-salon:{  
  If  ( $gettok($nick,1,124) == $read(bl.txt,w,$gettok($nick,1,124))) { .timer 1 3 msg irix kick $chan $nick 4B14lack-4L14ist | .timer 1 2 msg irix ban $chan 500 $address($+ $nick $+ ,2)  | .timer 1 2 msg irix ban $chan 500 $nick *!*@*  }  
}

on *:join:#:{ if ( $gettok($nick,1,124) == $read(bl.txt,w,$gettok($nick,1,124))) { kick $nick $2- 4B14lack-4L14ist | mode $chan +b $address($+ $nick $+ ,2) | mode $chan +b $nick *!*@* }
  elseif ( Irix ison $chan ) {   
    if ( $regex($nick,^(philou|la_zaza_du|dadou|christophe_Salam|Grassouille|pitite_nana|Arc-angel|andre|Tonio|Albert|arthuro|Arthuro|tartuf|Factisse|philosofemme|the_tonio|ludo_vegete|theBouzin|kris_prosle|fred_moon|roro_the_boss|zabou|marco|axel_bother)_+([0-9]{1,2})$)) { .msg irix kick $chan $nick 7/!\ 4SpaM 7/!\ | haltdef }
  }
}
#bl end

alias add {
  write Bl.txt $1
  msg $active 4[ 7B15lack-7L15iste 4] 15Ajout de7 $1 15[7- $+ $lines(bl.txt) $+ 7-15] 15raison :7 $2-
  halt
}

Conclusion :


il y a aussi une commande pour kicker les spams bot
il vous faut ajouter un dossier bl.txt dans votre script

A voir également

Ajouter un commentaire Commentaires
Messages postés
47
Date d'inscription
mercredi 29 janvier 2003
Statut
Membre
Dernière intervention
16 novembre 2010

Merci IRCLAND source top :)
Messages postés
1287
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
21 février 2009

le tien est très largement optimisable, bourré de fautes d'orthographe, assez mal présenté et donc incompréhensible
Autres défauts en vrac : utilisation de goto, variables globales, guser/auser (j'aurai préféré autrement, on sait jamais si quelqu'un utilise déjà le même niveau que toi), ban et kick en deux commandes (ban -k $chan $nick = 1 commande)

if (%JPQ == Off) { goto end }
else {

}
:end
faudra m'expliquer ... j'ai beau essayer de comprendre, j'y arrive pas !
Messages postés
99
Date d'inscription
mardi 22 août 2006
Statut
Membre
Dernière intervention
9 septembre 2014

Premièrement on ne peut meme pas supprimer un utilisateur...
tres mal fait... On doit ouvrir le fichier et cherche ce foutu
boulet pour le suprimer... donc deja j'en voudrais meme pas...
tu ne peux pas y allé par les host... bref... très enmerdant
Regarde lui que j'ai fait ya quelque Année pour Marie de MysteryNet:
http://mircscripts.fr/cgi-bin/info.pl?Script=2049

ou si tu veux que la source:



on ^1:JOIN:#: {
.set %pro.c.txt ON
if ( 100 isin $level($address($nick,5))) { .ban $chan $nick 2 | .kick $chan $nick 4BlackList MysteryNet Fait Par Killerdedieu | echo -a 10 *** 4 $+ Hihi $nick Vien D'etre Kické Sur # Car Il Est Sur La BlackList Mysterynet Pour Le Retiré Tape /blacklist }
if (%JPQ == Off) { goto end }
else {

}
:end
}

dialog comp304 {
title "Black List Pour MysteryNet"
size -1 -1 181 180
option dbu
combo 762,2 4 177 100, vsbar
button "Fermer",2, 14 105 35 15,ok,
button "Ajouter",3, 72 105 35 15
button "Retirer",4, 130 105 35 15
edit "Aide:Pour Ajouté Quelqu'un À La BlackList Prend Un Exemple Suivant:",5, 2 125 177 10,disable
edit "Nick , Nick!user@isp.com , *!*@isp.com , *!*user@* , *!*user@isp.com ,",6, 2 135 177 10,disable
edit "Nick*!*@230.192.0.* , *!*user@230.192.0.* etc, etc.",7, 2 145 177 10,disable
edit "La Personne Sera Automatique EJECTÉ ET BANNI du salon. ",8, 2 155 177 10,disable
text "BlackList Editor Pour Irc.MysteryNet.org Amusé Vous!!!",9, 6 170 140 10,disable
}

on *:DIALOG:comp304:init:0: {
update.setupsl
}
alias -l update.setupsl {
did -r comp304 762
set %tempsl.total $count(%setupsl.list,$chr(44))
set %tempsl.count 0
:start
inc %tempsl.count 1
did -a comp304 762 $gettok(%setupsl.list,%tempsl.count,44)
if (%tempsl.count < %tempsl.total) { goto start }
}
on *:DIALOG:comp304:edit:*: {
if ($did == 762) {
set %setupsl.temp.user $did(762).text
}
}
on *:DIALOG:comp304:sclick:*: {
if ($did == 3) {
set %setupsl.list %setupsl.list $+ %setupsl.temp.user $+ ,
update.setupsl
auser 100 %setupsl.temp.user | unset %setupsl.temp.user
}
if ($did == 4) {
set -u1 %setupsl.tc %setupsl.user.selected $+ ,
set %setupsl.list $remove(%setupsl.list,%setupsl.tc)
update.setupsl
ruser 100 %setupsl.user.selected
}
if ($did == 762) {
set %setupsl.user.selected $did($dname,762,$did(762).sel)
}
}
alias slentry {
set %setupsl.list %setupsl.list $+ %setupsl.temp.user $+ ,
update.setupsl
auser 100 %setupsl.temp.user | unset %setupsl.temp.user
}

alias slentry1 {
set %setupsl.list %setupsl.list $+ %setupsl.temp.user $+ ,
update.setupsl
guser 100 %setupsl.temp.user | unset %setupsl.temp.user
}

Alias blacklist {
/dialog -m comp304 comp304




tu na qu'a taper /blacklist et tu as une belle interface que tu peux géré les blacklister...
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
Le code ne présente pas de faille :/, le fait de pouvoir ajouté par simple alias nimporte quoi dans un fichier texte n'est pas une faille =)

Et ArKanis, il ne vérifie que la première portion du code surement parce qu'il n'est jamais sortis du reseau orange :]

Y'en a marre de voir des trucs pareils bordel, si votre code n'apporte rien au site/users, ne postez pas.
Messages postés
1287
Date d'inscription
mercredi 21 avril 2004
Statut
Membre
Dernière intervention
21 février 2009

encore un code trop personnalisé qui au final ne sert qu'à son propriétaire ...

[TropNul] "Dernier point, les pseudos contenus dans l'expression rationnelle ne sont pas des spams."
philou|la_zaza_du|dadou|christophe_Salam|Grassouille|pitite_nana|Arc-angel|andre|Tonio|Albert|arthuro|Arthuro|tartuf|Factisse|philosofemme|the_tonio|ludo_vegete|theBouzin|kris_prosle|fred_moon|roro_the_boss|zabou|marco|axel_bother ... et si on veut pas de tout ça ? J'suis d'accord avec TropNul

pourquoi tu ne vérifies que la première partie du nick jusqu'à rencontrer un | ?
Tu devrais utiliser les adresses (*!*@*) et iswm dans le if


Ton 2e ON JOIN est plus qu'étrange ... Tu devrais revoir un peu sa logique.

[mixam] "mode $chan +b $nick *!*@*" sûrement pas ! mets plutôt $+($nick,*!*@*)

[mixam] "il vous faut ajouter un dossier bl.txt dans votre script", un dossier ? j'en doute ... un fichier c'est déjà mieux. Et encore, on n'a même pas besoin de le créer, la commande /add le créera d'elle même

Regarde d'autres blacklists plus complètes sur le site, tu apprendras des choses :)
Afficher les 7 commentaires

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.

Du même auteur (cs_mixam)