|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 ANTIPUB - AVEC AVERTISSEMENT + CONTRE PUB (POUR BOTS)
 Information sur la source
 Description
Chose à faire :
le mettre dans son dossier MIRC , tapez n'importe ou : /load -rs antipub.mrc . Ensuite faîtes un click droit sur 1 channel , et entrer le nom du chan ou vous voulez que le script soit actif , exemple #Pubs (n'oubliez pas le "#")
Son fonctionnement :
lorsque une personne tapera le nom d'un chan , dans une de ses phrases (exemple : BoB: venez sur mon #chan c'est le meilleur...) alors il aura un avertissement du bot écrit sur le chan , et votre bot , joinera #chan avec un contre pub , (exemple /join #chan , ensuite "BoB a écris sur #lechan ou vous voulez que le script soit actif : venez sur mon #chan c'est le meilleur puis un /part #chan)
et si "bob" refait une pub , il sera automatiquement banni pendant 2 min
et ca repart en boucle , (si il refait un pub (avertissement) 1 autre (kick ban 2mn)
 Source
- menu channel,nicklist,query {
- -
- Script-Antipub
- .ProtectChan:{ set %chan $$?="Entre le channel à protéger" }
- } }
-
- on *:TEXT:*#*:%chan: {
- /set %frase $1-
- if ($nick isop %chan) { //echo -a 4Tu ne peux pas kicker $nick (Op) }
- elseif ($read(kb.txt, w, * $+ $address($nick,3) $+ *)) && ($nick !isop %chan) && ($wildtok(%frase,#*,1,32) != %chan) {
- /set %lam $address($nick,3)
- /mode %chan +b %lam
- /timer 1 1 /kick %chan $nick 4no pubs! (2nd time) = KickBan 2mn
- /write -d kb.txt %lam
- /timer 1 120 /mode %chan -b %lam }
- elseif ($wildtok(%frase,#*,1,32) != %chan) {
- /msg %chan 4C5aution $nick 4no pubs! (1st time) Next Time = KickBan 2mn
- /write kb.txt $address($nick,3)
- /join $wildtok(%frase,#*,1,32)
- /timer 1 2 /msg $wildtok(%frase,#*,1,32) 5< 4g04g04g0 on %chan 5> 4pub détectée sur %chan de $nick 12[4 $+ $asctime(HH:nn) $+ 12] < $+ $nick $+ > : %frase }}
- if ($me ison $wildtok(%frase,#*,1,32)) { //echo -a 4Tu es déjà sur le chan :) }
- elseif ($me !ison $wildtok(%frase,#*,1,32)) { /timer 1 8 /part $wildtok(%frase,#*,1,32) } }
-
- on *:ACTION:*#*:%chan: {
- /set %frase $1-
- if ($nick isop %chan) { //echo -a 4Tu ne peux pas kicker $nick (Op) }
- elseif ($read(kb.txt, w, * $+ $address($nick,3) $+ *)) && ($nick !isop %chan) && ($wildtok(%frase,#*,1,32) != %chan) {
- /set %lam $address($nick,3)
- /mode %chan +b %lam
- /timer 1 1 /kick %chan $nick 4no pubs! (2nd time) = KickBan 2mn
- /write -d kb.txt %lam
- /timer 1 120 /mode %chan -b %lam }
- elseif ($wildtok(%frase,#*,1,32) != %chan) {
- /msg %chan 4C5aution $nick 4no pubs! (1st time) Next = KickBan 2mn
- /write kb.txt $address($nick,3)
- /join $wildtok(%frase,#*,1,32)
- /timer 1 2 /msg $wildtok(%frase,#*,1,32) 5< 4g04g04g0 on %chan 5> 4pub détectée sur %chan de $nick 12[4 $+ $asctime(HH:nn) $+ 12] < $+ $nick $+ > : %frase }}
- if ($me ison $wildtok(%frase,#*,1,32)) { //echo -a 4Tu es déjà sur le chan :) }
- elseif ($me !ison $wildtok(%frase,#*,1,32)) { /timer 1 8 /part $wildtok(%frase,#*,1,32) } }
menu channel,nicklist,query {
-
Script-Antipub
.ProtectChan:{ set %chan $$?="Entre le channel à protéger" }
} }
on *:TEXT:*#*:%chan: {
/set %frase $1-
if ($nick isop %chan) { //echo -a 4Tu ne peux pas kicker $nick (Op) }
elseif ($read(kb.txt, w, * $+ $address($nick,3) $+ *)) && ($nick !isop %chan) && ($wildtok(%frase,#*,1,32) != %chan) {
/set %lam $address($nick,3)
/mode %chan +b %lam
/timer 1 1 /kick %chan $nick 4no pubs! (2nd time) = KickBan 2mn
/write -d kb.txt %lam
/timer 1 120 /mode %chan -b %lam }
elseif ($wildtok(%frase,#*,1,32) != %chan) {
/msg %chan 4C5aution $nick 4no pubs! (1st time) Next Time = KickBan 2mn
/write kb.txt $address($nick,3)
/join $wildtok(%frase,#*,1,32)
/timer 1 2 /msg $wildtok(%frase,#*,1,32) 5< 4g04g04g0 on %chan 5> 4pub détectée sur %chan de $nick 12[4 $+ $asctime(HH:nn) $+ 12] < $+ $nick $+ > : %frase }}
if ($me ison $wildtok(%frase,#*,1,32)) { //echo -a 4Tu es déjà sur le chan :) }
elseif ($me !ison $wildtok(%frase,#*,1,32)) { /timer 1 8 /part $wildtok(%frase,#*,1,32) } }
on *:ACTION:*#*:%chan: {
/set %frase $1-
if ($nick isop %chan) { //echo -a 4Tu ne peux pas kicker $nick (Op) }
elseif ($read(kb.txt, w, * $+ $address($nick,3) $+ *)) && ($nick !isop %chan) && ($wildtok(%frase,#*,1,32) != %chan) {
/set %lam $address($nick,3)
/mode %chan +b %lam
/timer 1 1 /kick %chan $nick 4no pubs! (2nd time) = KickBan 2mn
/write -d kb.txt %lam
/timer 1 120 /mode %chan -b %lam }
elseif ($wildtok(%frase,#*,1,32) != %chan) {
/msg %chan 4C5aution $nick 4no pubs! (1st time) Next = KickBan 2mn
/write kb.txt $address($nick,3)
/join $wildtok(%frase,#*,1,32)
/timer 1 2 /msg $wildtok(%frase,#*,1,32) 5< 4g04g04g0 on %chan 5> 4pub détectée sur %chan de $nick 12[4 $+ $asctime(HH:nn) $+ 12] < $+ $nick $+ > : %frase }}
if ($me ison $wildtok(%frase,#*,1,32)) { //echo -a 4Tu es déjà sur le chan :) }
elseif ($me !ison $wildtok(%frase,#*,1,32)) { /timer 1 8 /part $wildtok(%frase,#*,1,32) } }
 Conclusion
petit script qui marche uniquement pour 1 channel :/
j'avais ce script dans un de mes bots, je n'ai jamais réellement mis le nez dedans, mais il fonctionne.
Je sais qu'il a bien plus à pas mal de users sur @qnet . Mais je sais pas si il est réellement utile ailleurs :) car Qnet c'est une mentalité assez spécial :D
 Sources de la même categorie
 Commentaires et avis
|
|