Drunk Talker
Platform: mIRC
Published Feb 11, 2009
Updated Feb 11, 2009
Script that makes you sound drunk. All you do is type /dr <text>. Then, your words will have random caps and repeated/wrong letters. Fun to play around with.
Put in Remotes alias dr msg $active $drunk(70,$1-)
alias -l drunk {
var %sob = $1
var %text = $2-
var %mes = $calc(($len(%text) * ((100 - %sob) / 100)))
var %loop = 1
while (%loop <= %mes) {
var %pos = $rand(1,$len(%text))
var %char = $mid(%text,%pos,1)
if (%char isalnum) {
var %type = $rand(1,3)
;Type 1 = repeated letters (test = tesssttt)
if (%type == 1) var %text = $left(%text,%pos) $+ $str($mid(%text,%pos,1),2) $+ $right(%text,- $+ %pos)
;Type 2 = replaced/mistyped letters (test = fast)
elseif (%type == 2) {
if ($istok(a e i o u,%char,32)) var %rnd = $randtok(a e i o u,32)
else var %rnd = $rand(a,z)
var %text = $left(%text,$calc(%pos - 1)) $+ %rnd $+ $right(%text,- $+ %pos)
}
;Type 3 = opposite case (A = a, b = B)
elseif (%type == 3) var %text = $left(%text,$calc(%pos - 1)) $+ $iif($upper(%char) === %char,$lower(%char),$upper(%char)) $+ $right(%text,- $+ %pos)
}
inc %loop
}
return %text
}
alias -l randtok return $gettok($1,$rand(1,$numtok($1,$2)),$2)
