;; Ein kleines Channelgame mit einer fiesen Tücke!

alias boomerang {
  boomer_scan # $getnick(#) $getnick(#)
}

alias boomer_scan {
  var %bmsg = $read(boomerang.wls)
  if ( $4 ison $1 ) {
    inc %boomercounter
    %bmsg = %bmsg ( $+ %boomercounter $+ . boomerang - Requested by $4 $+ )
    if ( $4 !isop # ) {
      if ( $rand(0,3) == 1 ) {
        kick $4 Der Bumerang hat dich getroffen, schade...
        halt
      }
    }
  }
  describe $1 %bmsg
}

alias getnick {
  var %csize = $nick($1,0),%id = $rand(1,%csize)
  return $nick($1,%id)
}

on 1:text:!boomerang:#:{
  if ( %boomer ) { halt }
  if ( $me isop # ) {
    /set -u30 %boomer 1
    boomer_scan # $getnick(#) $getnick(#) $nick
  }
}

on 1:START:/unset %boomer
on 1:LOAD:/unset %boomer