- on *:JOIN:#:{
- if ($nick = $me) { halt }
- if ($chan = #rap) { halt }
- if ($me isop $chan) {
- var %nick = $gettok($nick,1,124)
- if (%nick = $read(badnick.txt, w, * $+ %nick $+ *)) {
- mode # +b * $+ $nick $+ *!*@*
- kick $chan $nick 3[2 Blacklisted 3]2 [Exp/Boulet]
- mode # +b $address($+ $nick $+ ,2)
- }
- else { halt }
- }
- }
- on *:input:*:{
- if ($1 = addnick) { write Badnick.txt $2 | say 3[2 Blackliste 3]2 Ajout de14 $2 3[2 $+ $lines(badnick.txt) $+ 3] | halt }
- if ($1 = delnick) { say 3[2 Blackliste 3]2 Retrait de14 $read(badnick.txt,$2) 3[2 $+ $lines(badnick.txt) $+ 3] | write -dl $2 Badnick.txt | halt }
- if ($1 = Badnick) {
- if ($2 = **) { run badnick.txt }
- if ($2 = *) {
- var %badnick 0, %badnicklist $lines(badnick.txt)
- .timer 1 1 echo -at 3[2 Blackliste 3]2
- while (%badnicklist > %badnick) { inc %badnick 1 | .timer 1 1 echo -at 3[2 $+ %badnick $+ 3]2 $left($read(badnick.txt,%badnick),1) $+ $+ $mid($read(badnick.txt,%badnick),2) }
- }
- }
- }
on *:JOIN:#:{
if ($nick = $me) { halt }
if ($chan = #rap) { halt }
if ($me isop $chan) {
var %nick = $gettok($nick,1,124)
if (%nick = $read(badnick.txt, w, * $+ %nick $+ *)) {
mode # +b * $+ $nick $+ *!*@*
kick $chan $nick 3[2 Blacklisted 3]2 [Exp/Boulet]
mode # +b $address($+ $nick $+ ,2)
}
else { halt }
}
}
on *:input:*:{
if ($1 = addnick) { write Badnick.txt $2 | say 3[2 Blackliste 3]2 Ajout de14 $2 3[2 $+ $lines(badnick.txt) $+ 3] | halt }
if ($1 = delnick) { say 3[2 Blackliste 3]2 Retrait de14 $read(badnick.txt,$2) 3[2 $+ $lines(badnick.txt) $+ 3] | write -dl $2 Badnick.txt | halt }
if ($1 = Badnick) {
if ($2 = **) { run badnick.txt }
if ($2 = *) {
var %badnick 0, %badnicklist $lines(badnick.txt)
.timer 1 1 echo -at 3[2 Blackliste 3]2
while (%badnicklist > %badnick) { inc %badnick 1 | .timer 1 1 echo -at 3[2 $+ %badnick $+ 3]2 $left($read(badnick.txt,%badnick),1) $+ $+ $mid($read(badnick.txt,%badnick),2) }
}
}
}