kostonenkeli.mrc

on *:KICK:#:{
  if (($knick == $me) && ($nick != $me)) {
    /write revenge.txt $chan � $nick � $asctime(HH:nn dd/mm/yyyy)
  }
}

on *:OP:#:{
  if ($opnick == $me) /tarkistappa
}

alias tarkistappa {
  /var %numlines = $lines(revenge.txt)
  /var %x = 0
  while (%x < %numlines) {
    /inc %x
    /var %revenge = $read(revenge.txt, %x)
    /var %kannu = $calc($pos(%revenge, �, 1) - 2)
    %kannu = $left(%revenge, %kannu)
    if (%kannu != $chan) continue
    /var %pos1 = $calc($pos(%revenge, �, 1) + 2))
    /var %pos2 = $calc($pos(%revenge, �, 2) - 1))
    /var %nimi = $mid(%revenge, %pos1, $calc(%pos2 - %pos1))
    if (%nimi ison $chan) {
      /var %aika = $right(%revenge, 16)
      /mode $chan -o %nimi
      /ban -u300 $chan %nimi
      /kick $chan %nimi !!REVENGE!! You kicked me %aika
      /write -dl $+ %i revenge.txt
      /dec %x
    }
  }
}