on *:input:*: if ($left($1,1) = /) { goto end } | say $1- $rphrase | halt | :end alias rphrase { goto $r(1,3) :1 return desu halt :2 return ne halt :3 return kupo? halt } alias mee describe $chan $1- $rphrase