Forums mIRC Help Ascii to Char

on *:text:!ascii*:#:{
  if (!$2) { msg # Nothing doesn't have an ASCII value, $nick $+ . }
  elseif ($len( $2 ) > 1) { msg # I can only find the ASCII of one symbol at a time, not $len( $2 ) symbols. }
  else {
    :asciistart
    inc %ascii#
    set %symbol $chr( %ascii# )
    if (%symbol == $2) { msg # The ASCII of the symbol " $+ $2 $+ " is %ascii# | unset %ascii# , unset %symbol | halt }
        if (%symbol != $2) { goto asciistart }
  }
}
on *:text:!char*:#:{
  if (!$2) { msg # I can't give you the ASCII result of nothing }
  elseif ($2 !isnum) { msg # Give me a number. }
  else { msg # $chr( $2 )
 }

on $*:TEXT:/^!ascii\s*\S$/iS:#:msg # ASCII of $2 is $asc($2)
on $*:TEXT:/^!char\s*\d+$/iS:#:msg # CHR of $2 is $chr($2)