Coders-IRC

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) }
    }
  }
}