Whats wrong ?

[Blade2]

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)

[caesar]

Code: Select all

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 ""
}

[Blade2]

big thx

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