maybe usefull for some people in encoding or chr their text
/*
------------------------------------------------------------------------------------------
Addons: Input chr/decode
Author: Lestat
----------------------------------------------------------------
[Description]
----------------------------------------------------------------
maybe usefull for some user to $encode or use $chr
-------------------------------------------------------------------------------------------
*/
menu channel,query {
chr/decode input
.$iif(%style = normal,$style(1)) Normal:.set %style normal
.-
.$iif(%style = sym,$style(1)) chr:.set %style sym
.-
.$iif(%style = decode,$style(1)) seperate decode:.set %style decode
.-
.$iif(%style = fullcode,$style(1)) Full decode:.set %style fullcode
}
On *:input:*: {
if ($Left($1-,1) != /) && (!$ctrlenter) { msg $active $iif(%style = normal,$1-,$symx($1-)) | halt }
}
alias symx {
var %t = 1
if (%style = fullcode) { return $+($!decode,$chr(40),$encode($1-,m),$chr(44),m,$chr(41)) | halt }
while ($iif(%style = sym,$mid($1-,%t,1),$gettok($1-,%t,32))) || ($iif(%style = sym,$mid($1-,%t,1),$gettok($1-,%t,32)) != $null) {
var %out = $iif(%style = sym,$+(%out,$+($!chr,$chr(40),$asc($mid($1-,%t,1)),$chr(41),$chr(44))),%out $+($!decode,$chr(40),$encode($gettok($1-,%t,32),m),$chr(44),m,$chr(41)))
inc %t
}
return $iif(%style = sym,$+($,+,$chr(40),$left(%out,$calc($len(%out) - 1)),$chr(41)),%out)
}