i used the piglatin idea from Sasuke and enexif's alias (hope you don't mind) to make a piglatin talker. it replaces any text you type into piglatin talk. use the /enable #pigg | /disable #pigg commands to turn it on or off. enjoy o_o!
P.S. If it doesn't seem like it to you, i gave credit to Sasuke and enexif
#PIGG Off
On *:INPUT:*: {
If ($left($1,1) == /) || ($left($1,1) == !) { return }
msg $chan $piglatin($1-) | halt
}
#PIGG end
alias piglatin {
var %i = 1, %x = $numtok($1-,32)
while (%i <= %x) {
var %w = $gettok($1-,%i,32), %nword, %f
if ($lower($left(%w,1)) isletter aeiou) { var %output = %output $+(%w,way) }
else {
var %n = 1
while (%n <= $len(%w)) {
var %c = $lower($mid(%w,%n,1))
if (%c isletter aeiou) {
var %nword = $+($right(%w,- $+ $calc(%n - 1)),$left(%w,$calc(%n - 1)),ay), %output = %output $upper($left(%nword,1)) $+ $lower($right(%nword,-1))
var %f = 1
break
}
else {
if ((!$count(%w,a) && !$count(%w,e) && !$count(%w,i) && !$count(%w,o) && !$count(%w,u)) && %c == y) {
var %nword = $+($right(%w,- $+ $calc(%n - 1)),$left(%w,$calc(%n - 1)),ay), %output = %output $upper($left(%nword,1)) $+ $lower($right(%nword,-1))
var %f = 1
break
}
}
inc %n
}
if (!%f) { var %output = %output %w }
}
inc %i
}
return %output
}
Menu Channel {
Pigg
.On:/enable #pigg
.off:/disable #pigg
}