on *:TEXT:!chanslap:#: { if ($nick == Loggie) { 
    set %nickcounter 0
    set %nickcount $nick($chan,0)
    while (%nickcounter <= %nickcount) {
      describe $chan slaps $nick($calc(%nickcounter + 1)) with (a) $read(slap.txt)
      inc %nickcounter 1
    }
  }
}