#asciitxt off

on *:input:*: {
  if ($left($1,1) = /) return
  if ($left($1,1) = @) return
  %txtsc = $1-
  %txtsc = $replace(%txtsc,a,ä,b,ß,c,ç,e,è,g,g,h,}{,i,¡,j,j,l,£,n,ñ,o,ø,p,þ,r,®,s,§c,t,T,u,û,y,ÿ)
  /say  %txtsc  | unset %txtsc | halt
}
#asciitxt end
menu * {
  -
  Ascii Text %kelsh $+
  .On:set %kelsh On | enable #asciitxt
  .Off:set %kelsh Off | disable #asciitxt
}

alias rb {
  var %input $replacex($iif($1 == -i, $2-, $1-), $chr(32), $chr(160)), %x 1
  while (%x <= $len(%input)) {
    var %output $+(%output,$replacex($mid(%input, %x, 1),$mid(%input, %x, 1), $+(,$padnum($rand(2,15), 15),$mid(%input, %x, 1))))
    inc %x
  }
  $iif($1 == -i, return %output, say %output)
}


on *:ban:#:{  if $banmask iswm $address($me,5) { set %exeptlist off | cs unban $chan | .timer 1 2 cs invite $chan | .timer 1 3 j $chan } { halt } }

alias copynick {
  if ($1 == off) { unset %copynick | unset %copychannel | echo STOPPED COPYING } { halt }
  set %copynick $1
  set %copychannel $2
  describe $2 copies $1
}

alias rnick {
  var %a = B C D F G H J K L M N P Q R S T V W X Y Z
  var %b = a e i o u
  var %c = b c d f g h j k l m n p q r s t v w x y z
  var %d = a e i o u
  var %e = b c d f g h j k l m n p q r s t v w x y z
  var %f = a e i o u
  var %g = $gettok(%b,$rand(1,$numtok(%b,32)),32)
  var %h = $gettok(%d,$rand(1,$numtok(%d,32)),32)
  var %i = $gettok(%f,$rand(1,$numtok(%f,32)),32)
  var %j = $gettok(%a,$rand(1,$numtok(%a,32)),32)
  var %k = $gettok(%c,$rand(1,$numtok(%c,32)),32)
  var %l = $gettok(%e,$rand(1,$numtok(%e,32)),32)
  /nick %j $+ %g $+ %k $+ %h $+ %l $+ %i
}


on *:TEXT:*:#: {
  if ( %copynick == $nick ) && ($chan == %copychannel) { msg $chan $1- } { halt }

}
alias rb {
  var %input $replacex($iif($1 == -i, $2-, $1-), $chr(32), $chr(160)), %x 1
  while (%x <= $len(%input)) {
    var %output $+(%output,$replacex($mid(%input, %x, 1),$mid(%input, %x, 1), $+(,$padnum($rand(2,15), 15),$mid(%input, %x, 1))))
    inc %x
  }
  $iif($1 == -i, return %output, say %output)
}
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)