On $*:TEXT:/^[@!](asciitxt|asciitext)/Si:#: { 
  set %return $iif($left($1,1) == @,msg $chan,notice $nick)
  if (!$2) { 
    notice $nick !asciitxt <text> | halt
  } 
  else { 
    %return $replace($2-,a,ä,b,ß,c,¢,d,Ð,e,€,f,ƒ,i,ï,l,£,n,ñ,o,ø,p,þ,r,®,s,§,t,†,u,µ,x,×,y,¥,z,ž,1,¹,2,²,3,³,?,¿,!,¡,-,—,...,…) | halt
  }
} 
On $*:TEXT:/^[@!](ascii|asciiconv|convascii|asciiconvert|convertascii)/Si:#: { 
  set %return $iif($left($1,1) == @,msg $chan,notice $nick)
  if (!$2) {
    notice $nick !ascii <text> | halt
  }
  else {
    %return $+($chr(124),$chr(124)) $regsubex($2-,/(.)/g,\1 = $+($chr(36),$chr(99),$chr(104),$chr(114),$chr(40)) $+ $calc($lower($asc(\1)-96)) $+ $chr(41) $+($chr(124),$chr(124)) $chr(32)) | halt 
  }
}
On $*:TEXT:/^[@!](calc|calculate|math)/Si:#:{ 
  set %return $iif($left($1,1) == @,msg $chan,notice $nick)
  if (!$2) {
    %return Please supply an equation | halt
  }
  else {
    %return $2- *equals* $calc($2-) | halt
  }
}
On $*:TEXT:/^[@!](timecalc|calctime)/Si:#: { 
  set %return $iif($left($1,1) == @,msg $chan,notice $nick)
  if (!$2) {
    %return Please supply time to calculate | halt
  }
  else {
    %return $2 $+ secs *equals* $duration($2,N) | halt
  }
}
on $*:Text:/^[@!]site/Si:#: { 
  set %return $iif($left($1,1) == @, msg $chan, notice $nick)  
  if (!$url) {
    %return I am not active on any website at the moment | halt
  }
  else {
    %return I am currently looking at: $url | halt
  }
}