extrabitch.tcl

If a user ops someone, the bot will deop the one which was opped and the one which opped the other, and kick him too.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
btc	thepin	chanops	Cod netestat	415	2023-12-25 08:42:13

# extrabitch.tcl by thepin version 1.1
###########################################################################
# If you wanna know 100% how this tcl works, then get extrabitch11.desc :)
# You can get it from ftp.sodre.net /pub/eggdrop/scripts1.3
# A little explaination:
# If a user ops someone, the bot will deop the one which was opped and
# the one which opped the other, and kick him too.
#
# Send comments, questions, errors and ideas to pin@slackware.mmedia.is
###########################################################################
# Settings

set channels "#coolaid2" ;#the channels you want it to work on.
set allowmn 1            ;#change this to 1 if you want masters/owners to be
                         ;#allowed to kick from the channels.

set kickmsg "thepin elite kick" ;#the kickmessage.

##Dont modify anything below this
#########################################

set tclver "1.1"
bind mode - * mode:bitchie_staff
proc mode:bitchie_staff {nick uhost handle channel mchange theone} {
 global channels kickmsg botnick allowmn
  set mode [lindex $mchange 0]
  if {$mode != "+o" || ![string match "* [string tolower $channel ]*" "l [string tolower $channels] l"] || [matchattr $handle b] || [string tolower $theone] == [string tolower $botnick] || [string tolower $nick] == [string tolower $botnick]} {return 0}
  if {$allowmn == 1 && ([matchattr $handle n] || [matchattr $handle m])} {return 0}
  pushmode $channel -o $nick
  pushmode $channel -o $theone
  putserv "KICK $channel $nick :$kickmsg"
  return 0
}

putlog "extrabitch.tcl version $tclver by thepin loaded..."