egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-07-27T15:23:44-04:00 https://forum.eggheads.org/app.php/feed/topic/5092 2003-07-27T15:23:44-04:00 2003-07-27T15:23:44-04:00 https://forum.eggheads.org/viewtopic.php?p=24049#p24049 <![CDATA[Superbitch.tcl edit to kickmode]]> but wen a user the is not add op a bot or some bots the bots kick add bots to. ther must a bot identify in the script.. but i cant help me.


superbitch.tcl modified to kick but add bots became kick to wenn a user they have not the flags for opping... :( and ops bots (exemple open a new chan and the user is not yet add as chanmaster)

Problem Bots kick Bots the User is not add!

* User sets mode: +oo Bot1 Bot2
* User sets mode: +ooo Bot4 Comodore Domian
* Bot4 was kicked by Bot2 (cya)
* Bot1 sets mode: +o Bot3
* You were kicked by Bot2 (no handop!)
* Attempting to rejoin channel #firlefanz
* Rejoined channel #firlefanz
* Topic is 'hello'
* Set by siegfried!nix@ko.org on Sat Jul 26
* Bot1 sets mode: +o Bot5
* Comodore was kicked by Bot2 (cya)
* Domian was kicked by Bot2 (cya)

all bots have +bfoHNSU Flags global

Code: 

# netbots.tcl v4.09 (1 April 2002)# Copyright 1998-2002 by slennox# slennox's eggdrop page - http://www.egghelp.org/## superbitch.tcl component script ##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]} {            putkick $chan $opped "cya"            putkick $chan $nick "no handop!"            if {$sb_remove && [validuser $hand] && [matchattr $hand o|o $chan]} {              chattr $hand -o+d|-o+d $chan              if {[info commands sendnote] != ""} {                foreach recipient $sb_note {                  if {[validuser $recipient]} {                    sendnote SUPERBITCH $recipient "Removed +o from $hand (opped $opped on $chan)"                  }                }              }            }          }        } else {          if {((($sb_canopany == "") || (![matchattr $hand $sb_canopany $chan])) && (($sb_canop == "") || (![matchattr $hand $sb_canop $chan])))} {            putkick $chan $opped "cya"            putkick $chan $nick "no handop!"            if {$sb_remove && [validuser $hand] && [matchattr $hand o|o $chan]} {              chattr $hand -o+d|-o+d $chan              if {[info commands sendnote] != ""} {                foreach recipient $sb_note {                  if {[validuser $recipient]} {                    sendnote SUPERBITCH $recipient "Removed +o from $hand (opped $opped on $chan)"                  }                }              }            }          }        }      }    } else {      if {(($sb_checkop) && (![matchattr [nick2hand $opped $chan] o|o $chan]) && (($sb_chans == "") || ([lsearch -exact $sb_chans [string tolower $chan]] != -1)))} {        putkick $chan $opped "cya"        putlog "superbitch: opped non +o user $opped on $chan - reversing."        nb_sendcmd * rbroadcast "superbitch: opped non +o user $opped on $chan - reversing."      }    }  }  return 0}set sb_chans [split [string tolower $sb_chans]] ; set sb_note [split $sb_note]bind mode - * sb_bitchreturn "nb_info 4.09.0"
netset.tcl settings for superbitch:

Code: 

# superbitch.tcl settingsset nb_component(superbitch) 1set sb_chans ""set sb_canop "o|o"set sb_canopflags "o|o"set sb_canopany "bmn|mn"set sb_remove 1set sb_note "owner1 owner2"set sb_checkop 1

Statistics: Posted by Volume — Sun Jul 27, 2003 3:23 pm

]]>