bg.tcl

This script takes revenge on nicks who deop or ban any user/bots who are global +o. THIS SCRIPT DOES NOT TAKE REVENGE FOR KICKS ONLY DEOPS & BANS* -o +b -o+b -oooo +bbbb

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
btc	BeGodlike	protections	Cod netestat	523	2023-12-24 23:16:44

#### This script takes revenge on nicks who deop or ban any user/bots who are global +o 
#### *THIS SCRIPT DOES NOT TAKE REVENGE FOR KICKS ONLY DEOPS & BANS* -o +b -o+b -oooo +bbbb etc..
#### *THIS SCRIPT DOES NOT +d or +k ppl like eggdrop +revenge/+revengebot revenge-mode 1, 2 & 3
#### Randomly choses 1 revenge method per deop &/or ban from 6 total. 
#### Will not take revenge on any user/bots that are global +o
#### provides limited auto re-oping & unbanning of victims
#### Because of cpu usage/lag it will not ban every single nick that its taking revenge on
#### Instead, the script choses randomly (1 out of 6 odds((per deop &/or ban))) if it will ban the nick or 
#### just use one of the other 5 deop-revenge/kick methods (5+ bots runnin this script works best)
#### There is **2 options that should be changed:** the IDENT & INTRODUCE commands.
#### Everything below the "END REVENGE/PROTECTION" line can optionally be erased/changed.
#### This script should work on anything 1.5.*+ to 1.6.13+ and also works on windrops of same versions
#### ctcp replies are random mirc versions v5.xx (uses K.Mardam-Bey) & 6.xx (uses Khaled Mardam-Bey)
#### Added pub command for +n/owners (!cz) returns current server & server uptime
#### Added pub command for +n/owners (!ce) returns eggdrop version
#### Added pub command for +n/owners (!cg) returns bot uptime
#### 04/28/03 fixed bug caused the new 3 pub commands not to work w/out alltools.tcl (minor)
#### BGL.TCL by BeGodlike/BGL@EFnet v.08k 04/28/03

####################################################################################################################
############## BEGIN REVENGE/PROTECTION ############################################################################
####################################################################################################################

putlog "BGL.TCL Loading..."

set bglver "BGL.TCL v.08k 04/28/03"

set randmircA [rand 2]
 if {$randmircA == "0"} { 
    set randmircB 5.
    set randmircE K.Mardam-Bey 
    }
 if {$randmircA == "1"} { 
    set randmircB 6.
    set randmircE "Khaled Mardam-Bey"
    }
set randmircC [rand 9]
set randmircD [rand 9]

# putlog "BGL.TCL.. Setting fake mIRC version/ctcp's to: v$randmircB$randmircC$randmircD $randmircE"

bind pub n !cz pub_check
proc pub_check {nick uhost hand chan args} {
 global server
 global server-online
 putserv "PRIVMSG $chan :$server [duration [expr [unixtime] - ${server-online}]]"
}

bind pub n !ce pub_check2
proc pub_check2 {nick uhost hand chan args} {
 global version
 putserv "PRIVMSG $chan :$version"
}

bind pub n !cg pub_check3
proc pub_check3 {nick uhost hand chan args} {
 global uptime
 putserv "PRIVMSG $chan :[duration [expr [unixtime] - $uptime]]"
}


bind mode "-" "* -o" mode:automode
proc mode:automode {nick uhost handle chan mode victim} {
 global botnick
  if {!([isop $botnick $chan])} {return 0}
  if {[matchattr [nick2hand $nick] o]} {return 0}
   if {[matchattr [nick2hand $victim] o]} {
      set randbitch [rand 6]
      if {$randbitch == "0"} { putserv "MODE $chan -o $nick" }
      if {$randbitch == "1"} { putserv "KICK $chan $nick :_|_" }
      if {$randbitch == "2"} { putquick "MODE $chan -o $nick" }
      if {$randbitch == "3"} { putquick "KICK $chan $nick :_x_" }
      if {$randbitch == "4"} { putkick $chan $nick _o_ }
      if {$randbitch == "5"} { 
        set bitchhost [getchanhost $nick $chan]
        set bitchbanmask "*!*[string range $uhost [string first "@" $bitchhost] end]"
        pushmode $chan +b $bitchbanmask
        pushmode $chan +o $victim        
        pushmode $chan -o $nick  
      }
   }
}

bind mode "-" "* +b" fuckoff:ban
proc fuckoff:ban {nick uhost hand chan mdechg ban} {
 global botnick
 if {!([isop $botnick $chan])} {return 0}
  if {[matchattr [nick2hand $nick] o]} {return 0}
   set pnicks [chanlist $chan o]
   set lasthoenick ""
    foreach pnick $pnicks {
    if {$nick == "$lasthoenick"} {return 0}
     if {[string match [string tolower $ban] [string tolower "$pnick![getchanhost $pnick $chan]"]]} {
       set randbitcha [rand 6]
       if {$randbitcha == "0"} { putserv "MODE $chan -o $nick" }
       if {$randbitcha == "1"} { putserv "KICK $chan $nick :_|_" }
       if {$randbitcha == "2"} { putquick "MODE $chan -o $nick" }
       if {$randbitcha == "3"} { putquick "KICK $chan $nick :_x_" }
       if {$randbitcha == "4"} { putkick $chan $nick _o_ }
       if {$randbitcha == "5"} { 
        set bitchhosta [getchanhost $nick $chan]
        set bitchbanmaska "*!*[string range $uhost [string first "@" $bitchhosta] end]"
        pushmode $chan +b $bitchbanmaska
        pushmode $chan +o $pnick
        pushmode $chan -b $ban        
        pushmode $chan -o $nick
       }
      set lasthoenick $nick
    }
  }
}

set ctcp-version "mIRC32 v$randmircB$randmircC$randmircD $randmircE"
set ctcp-userinfo "mIRC32 v$randmircB$randmircC$randmircD $randmircE"
set ctcp-client-info "mIRC32 v$randmircB$randmircC$randmircD $randmircE"
set ctcp-finger "mIRC32 v$randmircB$randmircC$randmircD $randmircE"

####################################################################################################################
############### END REVENGE/PROTECTION #############################################################################
####################################################################################################################

####################################################################################################################
############### BEGIN OPTIONAL SETTINGS ############################################################################
####################################################################################################################

unbind dcc n tcl *dcc:tcl
unbind dcc n set *dcc:set
unbind dcc n simul *dcc:simul
unbind msg - die *msg:die
unbind msg - ident *msg:ident
unbind msg - addhost *msg:addhost
unbind msg - hello *msg:hello

################################################################
############### SET CUSTOM IDENT COMMAND!! #####################
################################################################
# change eyedent
bind msg - eyedent *msg:ident
################################################################
############### SET CUSTOM IDENT COMMAND!! #####################
################################################################

################################################################
############### SET CUSTOM INTRODUCE COMMAND!! #################
################################################################
# change hola
bind msg - hola *msg:hello
################################################################
############### SET CUSTOM INTRODUCE COMMAND!! #################
################################################################

set global-flood-chan 0:0
set global-flood-deop 4:1
set global-flood-kick 6:3
set global-flood-join 0:0
set global-flood-ctcp 15:35
set global-flood-nick 0:0
set global-aop-delay 1:15
set global-idle-kick 0
set global-chanmode "n"
set global-stopnethack-mode 0
set global-revenge-mode 0

set global-chanset {
        -autoop         -autovoice
        -bitch          +cycle
        -dontkickops    -dynamicbans
        +dynamicexempts +dynamicinvites
        +enforcebans    -greet
        -inactive       +nodesynch
        -protectfriends +protectops
        -revenge        -revengebot
        -secret         -seen
        +shared         +statuslog
        +userbans       +userexempts
        +userinvites    -protecthalfops
        -autohalfop
}

set require-p 1
set ban-time 10
set die-on-sighup 0
set die-on-sigterm 0
set default-flags ""
set protect-telnet 1
set open-telnets 0
set stealth-telnets 1
set paranoid-telnet-flood 1
set enable-simul 0
set allow-dk-cmds 0
set dcc-sanitycheck 1
set quiet-reject 1
set answer-ctcp 1
set never-give-up 1
set server-cycle-wait 0
set optimize-kicks 0
set max-bans 25
set learn-users 0
set allow-resync 0
set resync-time 0
set private-global 0
set private-globals ""
set private-user 0
set override-bots 1
set share-unlinks 0
set force-expire 0
set flood-ctcp 5:10
set flood-msg 15:5
set ctcp-mode 2
set sort-users 0
set remote-boots 1
set ignore-time 15
set must-be-owner 1
set server-timeout 20
set serverror-quit 0
set trigger-on-ignore 0
set console-autosave 1

putlog "$bglver Loaded."