Spitfire3292

on $*:TEXT:/^[@!.]smilecount .*$/Si:#:{
  /var %target.smile $iif($left($1,1) == @,msg $chan,.notice $nick)
  if ($!2) {
    %target.smile You have smiled %smile.[ $+ [ $nick ] ] times. $chan has smilied %smile.[ $+ [ $chan ] ] times. Global has smiled %smile.globe
  }
  if ($2) { 
    %target.smile $2 has smiled %smile.[ $+ [ $2 ] ] times. $chan has smilied %smile.[ $+ [ $chan ] ] times. Global has smiled %smile.globe
  }
}
on *:TEXT:*:#:{ if ($regex($2-,/([:;=>b8][-]?[p)(dox[]\/*$#@!}{])/Si)) { 
    /set %smile.[ $+ [ $nick ] ] 1
    /set %smile.[ $+ [ $chan ] ] 1
    /set %smile.globe 1
  }
}