on ^1:TEXT:*:#: {
  if ($len($1-) > 50) teflod $len($1-)
  if (%spam.sex == on) { if ($nick !isop $chan) { var %prh = $numtok(%spam.txt,22) | while (%prh > 0) { if ($gettok(%spam.txt,%prh,22) iswm $1-) { halt } | dec %prh } } }
  if (%nick@ == on) { var %tma.p = %tma.n2 $+ $left($remove($nick($chan,$nick).pnick,$nick),1) }
  var %ni.ck = %tma.n1 $+ %tma.p $+ %tma.n3 $+ $nick $+ %tma.n4 , %ni.an = $calc($len($strip(%ni.ck)) * %tma.tab + 1)
  if ($isalias(tma.text)) { $tma.text(-tbfli $+ %ni.an,$chan,$nick,%ni.ck,$1-) } | else { echo -tbfli $+ %ni.an $chan %ni.ck $+  $1- }
  halt
}

on ^1:TEXT:*:?:{
  if ($len($1-) > 50) teflod $len($1-)
  if (%spam.jix == on) {
    if ($ulevel < 7) {
      var %prh = $numtok(%spam.txt,22) | while (%prh > 0) { if ($gettok(%spam.txt,%prh,22) iswm $1-) { if ($nnet != $nnet($site)) { window -c $nick | ignore -pu30 $site | if %spam.log == on write " $+ $logdir $+ SPAM.log" $timestamp $nnet $Nick (msg) : $1- | echo -ste $logo $mg(nospamp) ( $nick > $nexe($left($1-,10)) ..) | halt } } | dec %prh }
    }
  }
  var %ni.ck = %tma.n1 $+ %tma.n3 $+ $nick $+ %tma.n4 , %ni.an = $calc($len($strip(%ni.ck)) * %tma.tab + 1)
  if ($isalias(tma.text)) { $tma.text(-tbfli $+ %ni.an,$nick,$nick,%ni.ck,$1-) } | else { echo -tbfli $+ %ni.an $nick %ni.ck $+  $1- }
  halt
}

on ^1:CHAT:*: {
  if (%pflood.d == on) && (%tmp.fsnoflod != on) { inc %dclok | .timerDC 1 10 unset %dclok | if (%dclok > 80) { unset %dclok | close -c $nick | echo -ste $tma(flood,$nick,$address,$mg(dccloq)) | halt } }
  if ($strip($1) == PONGdcc)  && ( $2 isnum ) { msg =$nick 3Lag =12 $calc($ctime - $2) $mg(seg) | inc %dclok 3 }
  if ($strip($1) == PINGdcc) && ( $2 isnum ) { msg =$nick 3PONG0,0dcc $2 | inc %dclok 3 }
  if ($1- == [\]) && (%viserv == on) { inc %dclok 5 | ja liserv $nick }

  if $gettok($1-,1,32) == 
ACTION { echo $colour(action) -tq =$nick $tma(action,$nick,$remove($gettok($1-,2-99,32),
)) | halt }
  var %ni.ck = %tma.n1 $+ %tma.n3 $+ $nick $+ %tma.n4 , %ni.an = $calc($len($strip(%ni.ck)) * %tma.tab + 1)
  if ($isalias(tma.text)) { $tma.text(-tbfli $+ %ni.an,=$nick,$nick,%ni.ck,$1-) } | else { echo -tbfli $+ %ni.an =$nick %ni.ck $+  $1- }
  halt
}
on 1:SERV:*: if (%pflood.d == on) { inc %dclok 5 | .timerDC 1 10 unset %dclok | if (%dclok > 80) { unset %dclok | close -f $nick | echo -se $tma(flood,$nick,$address,$mg(dccloq)) | halt } }

#hablo on
on *:input:#: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
on *:input:?: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
on *:input:=: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
on *:input:!: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
#hablo end
on *:input:*: if ($left($1,1) == /) decoprot $1-

alias ESCRIBIENDO {
  if ($2- == $null) { return }
  %mi^frase = $2-
  if (!$ctrlenter) {
    mod^ncomp $2-
    mod^correc $2-
    mod^conv $2-
    mod^crip $2-
    mod^ascii
    .signal -n MODOESCRITURA $2-
  }
  if (%frase^halt != on)  {
    .msg $active %nick^comp %mi^frase | var %a = $mi^nick , %ni.an = $calc($len($strip(%a)) * %tma.tab + 1)
    if ($isalias(tma.say)) { $tma.say(%ni.an,$active,%a,%nick^comp,%mi^frase) }
    else { echo $color(own) -tli $+ %ni.an $active %a %nick^comp %mi^frase }
  }
  unset %mi^frase %nick^comp %frase^halt
}