Script that makes you sound drunk. All you do is type /dr . 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)
rofl @ kirbeh doing napas job
and I KNOW you do opium and the reason why which is besides the point, why discuss it on hawkee when you all moan its becomming myspace you then start starting talking bout drugs and alcohol
and tbh I agree, there is nothing special/fun bout being drunk......
smh
/me chortles
#Drunk On
on *:input:*:{ if (%drunk == on) { if ($chr(47) !isin $left($1-,1)) && (!$ctrlenter) { dr $1- | halt } } }
#Drunk End
menu * {
$iif($group(#Drunk) == On,$style(1)) Drunk!
.$iif($group(#Drunk) == On,$style(2)) On: .enable #Drunk
.$iif($group(#Drunk) == Off,$style(2)) Off: .disable #Drunk
}
So you're REALLY drunk? :D