# If a user is found flooding, how long (in min.s) do you want to ban the user?
#   -2 = Permanent ban (no expiration in bot records).
#   -1 = Will not ban (no ban, disable banning).
#    0 = Performs a server ban, but doesn't store the ban in the bot's banlist.
#   Any number greater than 0 will be the time in which the ban will expire.
#   All ban's will be channel ban's, if you want it to be global then put a '@'
#   in front of the time.
#     Example: set mc_bf(bantime) @0
#   Also, if you want the ban to be 'sticky' (read '.help stick' in the bot's
#   dcc console), then append the time with a '!'.
#     Example: set mc_bf(bantime) 0!
#     Example: set mc_bf(bantime) @0!
set mc_bf(bantime) "@0"

#
#
#
#   *****************************************
#   ****         AutoExpire              ****
#   *****************************************
#
# v0.5 -- 15Juln97
# v1.0 -- 10Dec98  [fixed it up for 1.3 multi-channel]
#
#
# automatic erasing useless ban-entry everydays! 
# Don't need to invoke weed so much. Go to journey or enjoy beatiful life
# much more! =D                                   
#                                     MrKubo (On undernet) =)
#
#
#  IGNITION -- When do first QUEUE.
#
#
proc exe_timersequence { } {
    set IGNITION 2
    putlog "Okay queue will be done when it re-submitted."
    timer $IGNITION bcheck
    timer $IGNITION ulcheck
    dccbroadcast "Engineering: Finally! systems are online! :D"
    putlog "** SUBMIT QUEUE DONE **"
}
exe_timersequence

#
#
#    ****** Automatic ban-tuner *******
#
#
#    CK_INTERBAL1 -- time interval of banlist-check (720 --> 12hrs) 
#    CK_INTERBAL2 -- when do userlist-check after CK_INTERBAL1 (360 --> 6hrs)
#
proc bcheck {} {
    set CK_INTERBAL1 720
    set CK_INTERBAL2 360
    foreach j [timers] {
        if {[string compare [lindex $j 1] bcheck] == 0} {
            killtimer [lindex $j 2]
        }
    }
    putlog "******* Full Automatic tuner of banlist.   "
    blistcheck GLOBAL
    foreach channame [channels] {
 putlog  "******* Channel ban check. ($channame)  "
 blistcheck $channame
 putlog  "*******    O.K" 
    }
    backup
    save
    dccbroadcast "******* Banlist check finished.(^^)  "
    timer $CK_INTERBAL1 bcheck
    timer $CK_INTERBAL2 ulcheck
}

proc blistcheck {watchchannel} {
    set CGLOBAL GLOBAL
    if {[string compare $watchchannel $CGLOBAL] == 0 } {
 foreach bansentry [banlist] {
     set watchchannel #japan
     delban $watchchannel $bansentry
 }
    } else {
 foreach bansentry [banlist $watchchannel] {
     delban $watchchannel $bansentry
 }
    }
    
}
#
#
# diagnose banlist
#
# EXPIRE_LIMIT --- term of ineffective (150 is enough, 100 is probably good)
#     NV_LIMIT --- term of ineffective (40 is enough, 30 is probably good)
#    NV_LIMIT2 --- term of ineffective (50 is enough, 30 is probably good)
#                                        note: unit is "day"
proc delban {watchchannel bansentry} {
    set EXPIRE_LIMIT 150
    set NV_LIMIT  40
    set NV_LIMIT2 50
    set createdday [lindex $bansentry 3]
    set usedday [lindex $bansentry 4]
    set currnttime [unixtime]
    set daylength 86400
    set createdday [expr ($currnttime - $createdday)/$daylength]
    set bannedperson [lindex $bansentry 0]
    set bywho [lindex $bansentry 5]
    set breason [lindex $bansentry 1]
    if { $usedday == 0} {
 if { $createdday > $NV_LIMIT } {
     putlog "** Useless entry is detected."
     putlog "Entry $bannedperson , Created by $bywho "
     putlog "Reason: $breason"
     putlog "The entry has never been used since created."
     if {[isban $bannedperson] == 0} {
  killchanban $watchchannel $bannedperson
  putlog "Okay Expired."
     } else {
  killban $bannedperson
  putlog "Okay Expired."
     }
     dccbroadcast "Shipyard controller:  This time, *please* be more careful, okay?"
 }
    } else {
        set usedday [expr ($currnttime - $usedday)/$daylength]
        if {$usedday > $EXPIRE_LIMIT } {
     putlog "** Dead-Entry is detected."
     putlog "Entry $bannedperson, Created by $bywho"
     putlog "Reason: $breason"
     putlog "Last used $usedday days ago"
     if {[isban $bannedperson] == 0} {
  killchanban $watchchannel $bannedperson
  putlog "Okay Expired."
     } else {
  killban $bannedperson
  putlog "Okay Expired."
     }
     dccbroadcast "Shipyard controller:  This time, *please* be more careful, okay?"
 } elseif { ($usedday == $createdday) &&  ($createdday > $NV_LIMIT2 ) } { 
     putlog "** Dead-Entry is detected."
     putlog "Entry $bannedperson, Created by $bywho"
     putlog "Reason: $breason"
     putlog "Last used $usedday days ago"
     putlog "The entry was only effective at created time."
     if {[isban $bannedperson] == 0} {
  killchanban $watchchannel $bannedperson
  putlog "Okay Expired."
     } else {
  killban $bannedperson
  putlog "Okay Expired."
     }
     dccbroadcast "Shipyard controller:  This time, *please* be more careful, okay?"
 }
    }
}

#
#
#    ****** Automatic userlist maintainer *******
#
proc ulcheck {} {
    foreach j [timers] {
        if { [string compare [lindex $j 1] ulcheck] == 0} {
            killtimer [lindex $j 2]
        }
    }
    putlog "******* userlist-checker is invoked automatically. "
    ulistcheck
    backup
    save
    dccbroadcast "******* User list -- checked  "
    putlog "******* Okay done. "
}
#
# User Entry_checker
#
# LIMITOFEMPTY --- threshhold value of empty time. (365 is enough)
#
proc ulistcheck { } {
    set LIMITOFEMPTY 365
    set currnttime [unixtime]
    set daylength 86400
    set wcount 0
    set mcount 0
    foreach person [userlist] {
 if { [matchattr $person "m"] != 1 } {
     set lastinform [getuser $person LASTON]
     set whenseen [lindex  $lastinform 0]
     if {$whenseen == "" } {
  set  whenseen 0
     }
     set theday [ctime $whenseen] 
     if { $whenseen != 0} {
  set whenseen [expr ($currnttime - $whenseen)/$daylength]
  if { $whenseen > $LIMITOFEMPTY } {
      set userlocation [getuser $person HOSTS]
      set usersinform "User: $person"
      set addrinform "($userlocation)"
      set lastinform "$whenseen days ago ($theday)"
      putlog "**Entry - $usersinform"
      putlog "          LAST: $lastinform"
      putlog "          ADDR: $addrinform"
      deluser $person
      putlog "** $person was removed from database."
      dccbroadcast "I hope $person is hapy in real life. byebye $person :~( "
  }
     } else {
  set wcount [expr $wcount + 1]
  putlog "**Warning: I've never seen $person. (probably, ineffective)"
  set userlocation [getuser $person HOSTS]
  set addrinform "($userlocation)"
  putlog "          ADDR: $addrinform"
     }
 } else {
     set mcount [expr $mcount +1]
 }
    }
    putlog "** W-mesg: $wcount lines"
    putlog "$mcount bot-operators exist on database."
}
putlog "** Auto-Expire INITIATED **"

proc bcheck {} {
    set CK_INTERBAL1 720
    set CK_INTERBAL2 360
    foreach j [timers] {

#--------------------------------------------------------------------------------------------------------------------#
#                                 ANTI MASS JOIN / JOIN FLOOD PROTECTION SCRIPT BY RANA USMAN                        #
#--------------------------------------------------------------------------------------------------------------------#
#  AUTHOR :  RANA USMAN
## EMAIL  :  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 , 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

## URL    :  [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] , [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# VERSION :  1
# If you have any suggesstion about my script kindly let me know i will be glad to look forward :)
###############
# DESCRIPTION #
###############
#Assalam O Aleikum n Hiya :) again ok i have written this script cuz i havent found any good mass join protection yet.There 
#are different join/part protection available but not a sinlge MASSJOIN / JOIN FLOOD protection.Simply what this script do
#is it will stop the heavy amout of clones joining your channel for flood n for more protection it changes the modes of the 
#channel to the Modes specified by you in configuration section.More it will gonna ban the flooding clone's IP n you have 
#both options for banning stick ban n Simple chan ban :))
########################
# HOW TO ENABLE SCRIPT #
########################
#PartyLine : (While Your in DCC chat with bot the place where you give commands like .+chan #chan is called partyline)
#In Bots Partline simple give the following command --> .chanset #channelname flood-join joins:seconds 
#Example : .chanset #yourchannel flood-join 4:6 <-- bot will detect if 4 clone joins in 6 seconds ::) ( 0:0 to disable )
###########################
#= CONFIGURATION SECTION =#
###########################
## Set the Lock Modes 
# Bot will change channel mode to the modes you will specify below in case the bot will detect join flood
# To Disable Mode change set it to "" 
set joinlockmodes "mr"
## Set the banmask type to use in banning the join floods
# Currently BAN Type is set to 1 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
),
# BAN Types are given below;
# 1 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 
# 2 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 3 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 4 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 5 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 6 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 7 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 8 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 9 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

set bantype "1"
## Set the time in seconds to Unlock Modes 
# The Bot will Unlock the channel after the specified time you will set below
set unlocktime "15"
## Set The Punish Type
# Set it to '1' if you want to add the Ban for joinflood in bots list.By doing it Bot will ban the IP everytime when the 
# clone will join the channel even if it is unbanned from channel OR Simply a stick ban
# Set it to '2' for a simple channel Ban :) :: RECOMMENDED ::
set joinpunish "2"
## Set the reason you want to give while kicking 
set jreason "Mass Join Flood"
###########################
# CONFIGURATION ENDS HERE #
###########################
#--------------------------------------------------------------------------------------------------------------------#
#  SCRIPT STARTS FROM HERE.YOU CAN MAKE MODIFICATIONS AT UR OWN RISK, I DONT RESTRICT YOU TO NOT TO TOUCH THE CODE!  #
#--------------------------------------------------------------------------------------------------------------------#
bind flud - join joinflood:RanaUsman
proc joinflood:RanaUsman {nick uhost hand type chan} {
global joinlockmodes banmask unlocktime joinpunish jreason botnick
if {![botisop $chan] || [matchattr $hand of]} { return 0 }
set banmask [joinpart:banmask $uhost $nick]
if {($joinpunish == 1)} { 
putquick "MODE $chan +$joinlockmodes"
newchanban $chan $banmask $botnick $jreason
putquick "KICK $chan $nick :$jreason"
utimer $unlocktime[list putquick "MODE $chan -$joinlockmodes"]
}
if {($joinpunish == 2)} { 
putquick "MODE $chan +$joinlockmodes"
putquick "MODE $chan +b $banmask"
putquick "KICK $chan $nick :$jreason"
utimer $unlocktime[list putquick "MODE $chan -$joinlockmodes"]
 }
}
proc joinpart:banmask {uhost nick} {
 global bantype
  switch -- $bantype {
   1 { set banmask "*!*@[lindex [split $uhost @] 1]" }
   2 { set banmask "*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
   3 { set banmask "*!*$uhost" }
   4 { set banmask "*!*[lindex [split [maskhost $uhost] "!"] 1]" }
   5 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
   6 { set banmask "*$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
   7 { set banmask "*$nick*!*@[lindex [split $uhost "@"] 1]" }
   8 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split $uhost @] 1]" }
   9 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
   default { set banmask "*!*@[lindex [split $uhost @] 1]" }
   return $banmask
  }
}
#-------------------------------------------------------------------------------------------------------------------------#
putlog "=- \002ANTI MASS JOIN/JOIN FLOOD PROTECTION BY RANA USMAN ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) HAS BEEN  LOADED SUCCESSFULLY \002 -="
#-------------------------------------------------------------------------------------------------------------------------#