alias sendtoroom {
if ($sock($2)) {
var %a = $2
var %b = sockwait. $+ $iif($gettok($2,3,46),$gettok($2,3,46),$gettok($2,2,46))
sockrename %a %b
if ($sock(ppr. $+ $1 $+ .*,0) >= 1) { sockwrite -tn ppr. $+ $chr(37) $+ $chr(35) $+ $right($1,-2) $+ .* : $+ $iif(*!*@* iswm $2,$2,$gna($2)) $3- }
sockrename %b %a
}
else {
if ($sock(ppr. $+ $1 $+ .*,0) >= 1) { sockwrite -tn ppr. $+ $1 $+ .* : $+ $iif(*!*@* iswm $2,$2,$gna($2)) $3- }
}
}