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