home *** CD-ROM | disk | FTP | other *** search
- { usage: /runscript [piglatin] <text message> }
- { probably will want to make an alias like
- - piglatin:/runscript [piglatin] *1
- }
- $target := '';
- $source := *1 ;
- while strlen($source) > 0 do
- begin
- $word := strtoken($source);
- $c := strcopy($word,1,1);
- if strpos(strupper($c),'AEIOU') = 0 then
- begin
- strdel($word,1,1);
- $word := $word+$c+'a';
- end;
- $target := $target + $word+' ';
- end;
- command('/msg ',$audience,' pirch latin: ',$target);
-