/ScriptServ

on @1:JOIN:# {
  if (($nick == $me) || (%bt.join != on)) halt
  if (($findtok(%bt.jchan,$chan,44)) || (%bt.jchan == all)) {
    if ($sub($ticks,$bt.jtime($chan)) > $mpy(%bt.jtime,1000)) {
      writeini $tp(botnet.fl2) $chan joins 0
    }
    elseif (($sub($ticks,$bt.jtime($chan)) < $mpy(%bt.jtime,1000)) && ($bt.joins($chan) <= %bt.maxjoins)) writeini $tp(botnet.fl2) $chan joins $pls($bt.joins($chan),1)
    elseif (($sub($ticks,$bt.jtime($chan)) < $mpy(%bt.jtime,1000)) && ($bt.joins($chan) > %bt.maxjoins)) {
      if ((%bt.dont.trigger == on) && (%bt.jmod == on)) {
        set %bt.jmod off
        .timer 1 20 set %bt.jmod on $chr(124) unset %bt.dont.trigger
        $timoff(%bt.dont.timer2,bt.dont.timer2)
        $timoff(%bt.dont.timer,bt.dont.timer)
      }
      else unset %bt.dont.trigger
      if (%bt.jmod == on) {
        set %tmp.bt $rndstr(7)
        mode $chan +i
        set %kkchan mode $chan -i
      }
      else set %kkchan mode $chan +i
      if (%bt.jknop == on) {
        knop $chan %bt.jkick
      }
      else set %kchan knop $chan %bt.jkick
      if ($form(botjoin,n1)) {
        set %i 0
        :start1
        inc %i
        set %j n $+ %i
        if ($form(botjoin,%j)) { $readini %formats botjoin %j | goto start1 }
      }
      else {
        iiecho . $+ $str(-,25) $+ .
        iiecho $chr(124) $hc(FLOOD!) type $fix(11,BotJoin) $chr(124)
        iiecho $chr(124) $+ $str(-,25) $+ $chr(124)
        iiecho $chr(124) Chan: $fix(17,$chan) $chr(124)
        if (%bt.jmod == on) iiecho $chr(124)   $+ $fix(22,F11: undo +i) $chr(124)
        else iiecho $chr(124)   $+ $fix(23,F11: +i chan) $chr(124)
        if (%bt.jknop == off) iiecho $chr(124)   $+ $fix(22,F12: kick nonops) $chr(124)
        iiecho ' $+ $str(-,25) $+ '
      }
      remini $tp(botnet.fl2) $chan jtime
      remini $tp(botnet.fl2) $chan joins
      halt
    }
    writeini $tp(botnet.fl2) $chan jtime $ticks
  }
}
on @1:TEXT:*:# {
  if (($nick == $me) || (%bt.msg != on)) halt
  if (($findtok(%bt.mchan,$chan,44)) || (%bt.mchan == all)) {
    if ($sub($ticks,$bt.mtime($chan)) > $mpy(%bt.mtime,1000)) {
      writeini $tp(botnet.fl2) $chan messages 0
    }
    elseif (($sub($ticks,$bt.mtime($chan)) < $mpy(%bt.mtime,1000)) && ($bt.msgs($chan) <= %bt.maxmsgs)) writeini $tp(botnet.fl2) $chan messages $pls($bt.msgs($chan),1)
    elseif (($sub($ticks,$bt.mtime($chan)) < $mpy(%bt.mtime,1000)) && ($bt.msgs($chan) > %bt.maxmsgs)) {
      if (%bt.mmod == on) {
        mode $chan +m
        set %kkchan mode $chan -m
      }
      else set %kkchan mode $chan +m
      if (%bt.mknop == on) {
        knop $chan %bt.mkick
      }
      else set %kchan knop $chan %bt.mkick
      if ($form(botmessage,n1)) {
        set %i 0
        :start1
        inc %i
        set %j n $+ %i
        if ($form(botmessage,%j)) { $readini %formats botmessage %j | goto start1 }
      }
      else {
        iiecho . $+ $str(-,25) $+ .
        iiecho $chr(124) $hc(FLOOD!) type $fix(11,BotMessage) $chr(124)
        iiecho $chr(124) $+ $str(-,25) $+ $chr(124)
        iiecho $chr(124) Chan: $fix(17, [ [ $chan ] ] ) $chr(124)
        if (%bt.mmod == on) iiecho $chr(124)   $+ $fix(22,F11: undo +m) $chr(124)
        else iiecho $chr(124)   $+ $fix(22,F11: +m chan) $chr(124)
        if (%bt.mknop == off) iiecho $chr(124)   $+ $fix(22,F12: kick nonops) $chr(124)
        iiecho ' $+ $str(-,25) $+ '
      }
      remini $tp(botnet.fl2) $chan messages
      remini $tp(botnet.fl2) $chan mtime
      halt
    }
    writeini $tp(botnet.fl2) $chan mtime $ticks
  }
}
on 1:NICK {
  if (($newnick == $me) || (%bt.nick != on) || ($me !isop $comchan($newnick,1))) halt
  if (($findtok(%bt.nchan,$comchan($newnick,1),44)) || (%bt.nchan == all)) {
    if ($sub($ticks,$bt.ntime($comchan($newnick,1))) > $mpy(%bt.ntime,1000)) {
      writeini $tp(botnet.fl2) $comchan($newnick,1) nicks 0
    }
    elseif (($sub($ticks,$bt.ntime($comchan($newnick,1))) < $mpy(%bt.ntime,1000)) && ($bt.nicks($comchan($newnick,1)) <= %bt.maxnicks)) writeini $tp(botnet.fl2) $comchan($newnick,1) nicks $pls($bt.nicks($comchan($newnick,1)),1)
    elseif (($sub($ticks,$bt.ntime($comchan($newnick,1))) < $mpy(%bt.ntime,1000)) && ($bt.nicks($comchan($newnick,1)) > %bt.maxnicks)) {
      if (%bt.nmod == on) {
        mode $chan +i
        set %kkchan mode $chan -i
      }
      else set %kkchan mode $chan +i
      if (%bt.mknop == on) {
        knop $chan %bt.nkick
      }
      else set %kchan knop $chan %bt.nkick
      if ($form(botnick,n1)) {
        set %i 0
        :start1
        inc %i
        set %j n $+ %i
        if ($form(botnick,%j)) { $readini %formats botnick %j | goto start1 }
      }
      else {
        iiecho . $+ $str(-,25) $+ .
        iiecho $chr(124) $hc(FLOOD!) type $fix(11,BotNick) $chr(124)
        iiecho $chr(124) $+ $str(-,25) $+ $chr(124)
        iiecho $chr(124) Chan: $fix(17, [ [ $comchan($newnick,1) ] ] ) $chr(124)
        if (%bt.nmod == on) iiecho $chr(124)   $+ $fix(22,F11: undo +i) $chr(124)
        else iiecho $chr(124)   $+ $fix(22,F11: +i chan) $chr(124)
        if (%bt.nknop == off) iiecho $chr(124)   $+ $fix(22,F12: kick nonops) $chr(124)
        iiecho ' $+ $str(-,25) $+ '
      }
      remini $tp(botnet.fl2) $comchan($newnick,1) nicks
      remini $tp(botnet.fl2) $comchan($newnick,1) ntime
      halt
    }
    writeini $tp(botnet.fl2) $comchan($newnick,1) ntime $ticks
  }
}
on @1:ACTION:*:# {
  if ((%bt.act != on)) halt
  if (($findtok(%bt.achan,$chan,44)) || (%bt.achan == all)) {
    if ($sub($ticks,$bt.atime($chan)) > $mpy(%bt.atime,1000)) {
      writeini $tp(botnet.fl2) $chan actions 0
    }
    elseif (($sub($ticks,$bt.atime($chan)) < $mpy(%bt.atime,1000)) && ($bt.acts($chan) <= %bt.maxacts)) writeini $tp(botnet.fl2) $chan actions $pls($bt.acts($chan),1)
    elseif (($sub($ticks,$bt.atime($chan)) < $mpy(%bt.atime,1000)) && ($bt.acts($chan) > %bt.maxacts)) {
      if (%bt.amod == on) {
        mode $chan +m
        set %kkchan mode $chan -m
      }
      else set %kkchan mode $chan +m
      if (%bt.aknop == on) {
        knop $chan %bt.akick
      }
      else set %kchan knop $chan %bt.akick
      if ($form(botaction,n1)) {
        set %i 0
        :start1
        inc %i
        set %j n $+ %i
        if ($form(botaction,%j)) { $readini %formats botaction %j | goto start1 }
      }
      else {
        iiecho . $+ $str(-,25) $+ .
        iiecho $chr(124) $hc(FLOOD!) type $fix(11,BotAction) $chr(124)
        iiecho $chr(124) $+ $str(-,25) $+ $chr(124)
        iiecho $chr(124) Chan: $fix(17, [ [ $chan ] ] ) $chr(124)
        if (%bt.amod == on) iiecho $chr(124)   $+ $fix(22,F11: undo +m) $chr(124)
        else iiecho $chr(124)   $+ $fix(22,F11: +m chan) $chr(124)
        if (%bt.aknop == off) iiecho $chr(124)   $+ $fix(22,F12: kick nonops) $chr(124)
        iiecho ' $+ $str(-,25) $+ '
      }
      remini $tp(botnet.fl2) $chan actions
      remini $tp(botnet.fl2) $chan atime
      halt
    }
    writeini $tp(botnet.fl2) $chan atime $ticks
  }
}
alias bt.jtime return $readini $tp(botnet.fl2) $1 jtime
alias bt.joins return $readini $tp(botnet.fl2) $1 joins
alias bt.mtime return $readini $tp(botnet.fl2) $1 mtime
alias bt.msgs return $readini $tp(botnet.fl2) $1 messages
alias bt.ntime return $readini $tp(botnet.fl2) $1 ntime
alias bt.nicks return $readini $tp(botnet.fl2) $1 nicks