looking for a better way to script this - 15/04/05 03:32 AM
Code:
on *:NICK:{ %r = $iif($regex($newnick,/^[^[:alpha:]]*?[A-Z]/),+v,-v) if ($me isop $v1) mode %td.chan %r $newnick if $istok(%play.list,$nick,44) { set %play.list $reptok(%play.list,$nick,$newnick,1,44) } if $istok(%watch,$nick,44) { set %watch $reptok(%watch,$nick,$newnick,44) } var %away.1 = afk,bbs,brb,bbl,ing,bbiab,away while (%away.1) && ($istok(%play.list,$newnick,44)) { var %away.2 $gettok(%away.1,1,44) if ($left($newnick,$len(%away.2)) == %away.2) || ($right($newnick,$len(%away.2)) == %away.2) { set %play.list $remtok(%play.list,$newnick,1,44) set %nick.away $addtok(%nick.away,$newnick,32) if $istok(%cheaters,$nick,44) { set %cheaters $remtok(%cheaters,$nick,1,44) } if ($nick == %spin.last) { unset %spin.last } if ($nick == %spin.nick) { unset %spin.nick } } set %away.1 $remtok(%away.1,%away.2,1,44) } if $istok(%nick.away,$nick,32) { set %nick.away $remtok(%nick.away,$nick,1,32) if $hget(TD,$+(Autoplay,$address)) { set %play.list $addtok(%play.list,$nick,44) describe # 5 smiles as $nick is added using the autoplay option describe # 5 :Current Players Are %play.list } } }