meus amigos, voçes nao presiam de uma db. Eu tenho um script desse tipo de mIRC. VOu postalo para voçes se basearem nele.
alias pita {
var %texto = $1-
var %x = 1, %y = $numtok(%texto,32)
while (%x <= %y) {
if (($right($gettok(%texto,%x,32),1) == a) && ($len($gettok(%texto,%x,32)) > 1)) { var %texto2 = %texto2 $gettok(%texto,%x,32) $+ h }
elseif (($right($gettok(%texto,%x,32),1) == e) && ($len($gettok(%texto,%x,32)) > 1)) { var %texto2 = %texto2 $gettok(%texto,%x,32) $+ h }
elseif (($right($gettok(%texto,%x,32),1) == i) && ($len($gettok(%texto,%x,32)) > 1)) { var %texto2 = %texto2 $gettok(%texto,%x,32) $+ h }
elseif (($right($gettok(%texto,%x,32),1) == o) && ($len($gettok(%texto,%x,32)) > 1)) { var %texto2 = %texto2 $gettok(%texto,%x,32) $+ h }
elseif (($right($gettok(%texto,%x,32),1) == u) && ($len($gettok(%texto,%x,32)) > 1)) { var %texto2 = %texto2 $gettok(%texto,%x,32) $+ h }
else { var %texto2 = %texto2 $gettok(%texto,%x,32) }
inc %x
}
msg $active $replace(%texto2,qu,k,s,x,l,w,oh,uh,wow,lol,wh,lh,nãuh,naum,nauh,naum)
}