on *:TEXT:*:#:{
  if ($skill($right($1,-1))) {
    set $+(%,alts,.,$nick,.,skill) $skill($right($1,-1))
    $iif($left($1,1) == @,set $+(%,alts,.,$nick,.,dest) msg $chan,$iif($left($1,1) == !,set $+(%,alts,.,$nick,.,dest) notice $nick,halt))
    set $+(%,alts,.,$nick,.,lookup) $replace($2-,$chr(32),+,_,+,-,+)
    if ($($+(%,alts,.,$nick,.,skill),2) == Stats) { set $+(%,alts,.,$nick,.,style) st }
    if ($($+(%,alts,.,$nick,.,skill),2) != Stats) { set $+(%,alts,.,$nick,.,style) ss }   
    if (*Combat* iswm $($+(%,alts,.,$nick,.,skill),4)) { set $+(%,alts,.,$nick,.,style) cb }
    sockopen $+(alts,.,$nick) altscripts.trap17.com 80
  }
  else halt
}