egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-02-08T09:07:30-04:00 https://forum.eggheads.org/app.php/feed/topic/6795 2004-02-08T09:07:30-04:00 2004-02-08T09:07:30-04:00 https://forum.eggheads.org/viewtopic.php?p=33338#p33338 <![CDATA[Whats wrong ?]]>

but one question, how can i add in my script an global bot ban, this ban its not a global only a channel spezific ban ?

the ban over 40 min ?

P.s The +k part didnt works

Statistics: Posted by Blade2 — Sun Feb 08, 2004 9:07 am

]]> 2004-02-08T03:35:35-04:00 2004-02-08T03:35:35-04:00 https://forum.eggheads.org/viewtopic.php?p=33328#p33328 <![CDATA[Whats wrong ?]]>

Code: 

set prot(modetime) "40"; set prot(exceflag) "z"; set prot(flags) "-amov"; bind mode - * mode:change ######### Invite, Limit, Key Protection ###### proc mode:change {nick host hand chan mode vict} {   global prot  if {[isbotnick $nick] || [matchattr $hand m|m $chan] || [matchattr $hand $prot(exceflag)|$prot(exceflag)] || [matchattr $hand b]} {    return 0  }  switch -- $mode {    "+i" {       pushmode $chan -i       pushmode $chan -o $nick       if {![string equal "$prot(modetime)" "0"]} {        pushmode $chan +b [maskhost $host]      }       chattr $hand |-ao+d $chan      set service [qlcheck $chan]       if {$service != ""} {        putserv "PRIVMSG $service :chanlev $chan $nick $$prot(flags)"      }       putserv "PRIVMSG $chan :Lost Chanflags! Wenn du sie wieder haben willst melde dich bei einen meiner Helper auf $chan: [chanlist $chan m|m]"       putserv "KICK $chan $nick :Security on $chan bY #su1c!de ~ www.su1cide-clan.de <http://www.su1cide-clan.de> | Reason: +i set on $chan - Ban: $prot(modetime) min"       return    }     "+l" {       if {$vict < 10} {         pushmode $chan -l         pushmode $chan -o $nick         if {![string equal "$prot(modetime)" "0"]} {          pushmode $chan +b [maskhost $host]        }         chattr $hand |-ao+d $chan         set service [qlcheck $chan]         if {$service != ""} {          putserv "PRIVMSG $service :chanlev $chan $nick $prot(flags)"        }         putserv "PRIVMSG $nick :Lost Chanflags! Wenn du sie wieder haben willst melde dich bei einen meiner Helper auf $chan: [chanlist $chan m|m]"         putserv "KICK $chan $nick :Security on $chan bY #su1c!de ~ www.su1cide-clan.de <http://www.su1cide-clan.de> | Reason: +l set on $chan - Ban: $prot(modetime) min"         return      }      "+k" {         pushmode $chan -k         pushmode $chan -o $nick         if {![string equal "$prot(modetime)" "0"]} {          pushmode $chan +b [maskhost $host]        }         chattr $hand |-ao+d $chan         set service [qlcheck $chan]         if {$service != ""} {          putserv "PRIVMSG $service :chanlev $chan $nick $prot(flags)"        }         putserv "PRIVMSG $nick :Lost Chanflags! Wenn du sie wieder haben willst melde dich bei einen meiner Helper auf $chan: [chanlist $chan m|m]"         putserv "KICK $chan $nick :Security on $chan bY #su1c!de ~ www.su1cide-clan.de <http://www.su1cide-clan.de> | Reason: +k set on $chan - Ban: $prot(modetime) min"         return      }     }   }}proc qlcheck {chan} {   if {[onchan Q $chan]} {     return "Q"     } elseif {[onchan L $chan]} {     return "L"   }  return ""}

Statistics: Posted by caesar — Sun Feb 08, 2004 3:35 am

]]> 2004-02-07T23:15:18-04:00 2004-02-07T23:15:18-04:00 https://forum.eggheads.org/viewtopic.php?p=33323#p33323 <![CDATA[Whats wrong ?]]>
set modetime "40";
set exceflag "z";
set flags "-amov";

bind mode - * change

######### Invite, Limit, Key Protection ######

proc change {nick host hand chan mode} {
global botnick botname exceflag modetime flags
if {[string tolower $nick] == [string tolower $botnick]} {return 0}
if {([matchattr $hand m|m $chan]) || ([matchattr $hand $exceflag|$exceflag]) || ([matchattr $hand b])} {return 0} {
if {$mode == "+i"} {
pushmode $chan -i
pushmode $chan -o $nick
if {![string match "$modetime" "0"]} {pushmode $chan +b [maskhost $host]}
chattr $hand |-ao+d $chan
set service [qlcheck $chan]
if {$service != ""} { putserv "PRIVMSG $service :chanlev $chan $nick $flags" }
putserv "PRIVMSG $nick :Lost Chanflags! Wenn du sie wieder haben willst melde dich bei einen meiner Helper auf $chan: [chanlist $chan m|m]"
putserv "KICK $chan $nick :Security on $chan bY #su1c!de ~ www.su1cide-clan.de | Reason: +i set on $chan - Ban: $modetime min"
}
if {$mode == "+l"} {
if {$victim < 10} {
pushmode $chan -l
pushmode $chan -o $nick
if {![string match "$modetime" "0"]} {pushmode $chan +b [maskhost $host]}
chattr $hand |-ao+d $chan
set service [qlcheck $chan]
if {$service != ""} { putserv "PRIVMSG $service :chanlev $chan $nick $flags" }
putserv "PRIVMSG $nick :Lost Chanflags! Wenn du sie wieder haben willst melde dich bei einen meiner Helper auf $chan: [chanlist $chan m|m]"
putserv "KICK $chan $nick :Security on $chan bY #su1c!de ~ www.su1cide-clan.de | Reason: +l set on $chan - Ban: $modetime min"
}
{$mode == "+k"} {
pushmode $chan -k
pushmode $chan -o $nick
if {![string match "$modetime" "0"]} {pushmode $chan +b [maskhost $host]}
chattr $hand |-ao+d $chan
set service [qlcheck $chan]
if {$service != ""} { putserv "PRIVMSG $service :chanlev $chan $nick $flags" }
putserv "PRIVMSG $nick :Lost Chanflags! Wenn du sie wieder haben willst melde dich bei einen meiner Helper auf $chan: [chanlist $chan m|m]"
putserv "KICK $chan $nick :Security on $chan bY #su1c!de ~ www.su1cide-clan.de | Reason: +k set on $chan - Ban: $modetime min"
}
}
}
proc qlcheck {chan} {
if {[onchan Q $chan]} {
set service "Q"
} elseif {[onchan L $chan]} {
set service "L"
}
return $service
}

###### Invite, Limit, Key Protection ###
That Script dont works fine, can anybody help me ? Or improve my script ?

big thx

(sry for my bad english)

Statistics: Posted by Blade2 — Sat Feb 07, 2004 11:15 pm

]]>