$iif($left($gettok($1-,%x,32),2) isin %h-emoticons && $len($gettok($1-,%x,32)) >= 2,%h = %h  $+  $+ %bonecor $+ ¶ $+ $chr(3) $+ %olhocor $+ $chr(44) $+ %fundo $+ $left($gettok($1-,%x,32),1) $+ $chr(3) $+ %boca $+ $right($gettok($1-,%x,32),-1) $+  $+ %babacor $+ ~ $+ ,%h = %h $gettok($1-,%x,32))