Miscellany

on *:input:#:{
  if ($active isin %Kos.thingy.#) {
    if ($1 ison $active) {
      msg $active $+(»¦,$chr(2),$upper($left($1,1)),$chr(2),$right($1-,-1)) | halt | haltdef
    }
    if (/ isin $1) || (! isin $1) || ($1 isnum) {
      Kos.input $1-
    }
    else {
      msg $active $+($chr(2),$+(,$rand(1,13)),$upper($left($1,1)),$chr(2),,$right($1-,-1)) | halt | haltdef
      ;msg $active $+($chr(2),$upper($left($1,1)),$chr(2),$right($1-,-1)) | halt | haltdef
    }
  }
  else {
    Kos.input $1-
  }
}