SuperBitch Script That Kicks

NoFear · Post by **NoFear** » Wed Sep 10, 2003 8:41 am

Hy!
I need a superbitch script that kicks oped nick and user that oped him. But i don't want no flags to be added in bot.. can anyone help me?

Post by **Sir_Fz** » Wed Sep 10, 2003 9:31 am

a mode binde bind should do it. example:

Code: Select all

bind mode - "* +o" kick:both

proc kick:both {nick uhost hand chan mc vict} {
 putkick $chan $nick "out"
 putkick $chan $vict "out"
}

make sure you add the propper "If" lines to exempt the bot and the services from being kicked incase they op someone.

^DooM^ · Post by **^DooM^** » Wed Sep 10, 2003 1:43 pm

Slennox made a superbitch script that does that sort of thing. aside the kicking bit. im sure it wouldn't be hard to mod that to kick rather than deop.

NoFear · Post by **NoFear** » Thu Sep 11, 2003 11:24 am

thanks.. but i'm not wery good at tcl scripting.. can u give me whole code? pls.

Post by **caesar** » Thu Sep 11, 2003 3:11 pm

putquick is the fastes one and by adding -next at it's end will make it be sent first.

^DooM^ · Post by **^DooM^** » Thu Sep 11, 2003 3:34 pm

NoFear wrote:thanks.. but i'm not wery good at tcl scripting.. can u give me whole code? pls.

Ok download Slennox's superbitch tcl from his "My Files" link on egghelp

open it up in notepad.

find the lines that contain the word "pushmode"
ie

Code: Select all

            pushmode $chan -o $opped
            pushmode $chan -o $nick

and change them to

Code: Select all

 putquick "KICK $chan $opped"
 putquick "KICK $chan $nick"

I think thats the right format im sure that i will be picked up on it if im wrong

Happy kicking

NoFear · Post by **NoFear** » Fri Sep 12, 2003 11:13 am

^DooM^ Tnx.

NoFear · Post by **NoFear** » Fri Sep 12, 2003 11:27 am

I changed that.. but if someone op .. he gets +d flag.. i don't want that

.. i will try to remove that..

Code: Select all

if {$numversion < 1040200} {
  if {[info commands isop] != ""} {
    proc wasop {nick chan} {
      return [isop $nick $chan]
    }
  }
}

proc sb_bitch {nick uhost hand chan mode opped} {
  global botnick sb_chans sb_canop sb_canopany sb_canopflags sb_checkop sb_note sb_remove
  if {$mode == "+o"} {
    if {$nick != $botnick} {
      if {((($opped != $botnick) && ($nick != $opped) && ([onchan $nick $chan]) && (![wasop $opped $chan])) && (($sb_chans == "") || ([lsearch -exact $sb_chans [string tolower $chan]] != -1)))} {
        if {![matchattr [nick2hand $opped $chan] $sb_canopflags $chan]} {
          if {(($sb_canopany == "") || (![matchattr $hand $sb_canopany $chan]))} {
            putquick "KICK $chan $opped
            putquick "KICK $chan $nick
           }
         }
       }
     }
   }
  }
  return 0
}

set sb_chans [split [string tolower $sb_chans]] ; set sb_note [split $sb_note]

bind mode - * sb_bitch

putlog "Loaded superbitch.tcl v2.0 by slennox"

return

this is ok?

Post by **Sir_Fz** » Fri Sep 12, 2003 6:19 pm

try it

NoFear · Post by **NoFear** » Sat Sep 13, 2003 4:21 am

I Tryed it.. it is not working

Post by **Sir_Fz** » Sat Sep 13, 2003 6:46 am

Code: Select all

bind mode - "* +o" kick:both 

proc kick:both {nick uhost hand chan mc vict} { 
global botnick
 if {![isbotnick $nick] && ![isbotnick $vict] && ![string match $nick "ChanServ"]} {
 putkick $chan $nick "out" 
 putkick $chan $vict "out" 
 }
}

NoFear · Post by **NoFear** » Sat Sep 13, 2003 12:30 pm

I'm on ircnet.. so.. i don't have chanserv..

Post by **Sir_Fz** » Sat Sep 13, 2003 12:36 pm

whatever, manage it to suite ircnet then.

NoFear · Post by **NoFear** » Sat Sep 13, 2003 12:56 pm

ok ti works.. but only bot can op

what do i must add that i can op on channels?

Post by **Sir_Fz** » Sat Sep 13, 2003 1:45 pm

add && ![matchattr $hand o|o $chan] , this will let any user with the "o" flag op people. (I'm sure you have the o flag :p)