Clearing All Bans After 3 Hours!

[Hero]

Hello I Need Tcl Which Remove All Channel Bans After 3 Hours!l
But It First It Announce In Channel Like:
* @Bot Clearing 3 Hours Old Bans
and then remove all bans
Waiting For Script Thanks

[Sane]

Hello I Need Tcl Which Remove All Channel Bans After 3 Hours!l
But It First It Announce In Channel Like:
* @Bot Clearing 3 Hours Old Bans
and then remove all bans
Waiting For Script Thanks :)

The script I'm about to post is an edit of the: # RemoveBans.tcl by Nils Ostbjerg <shorty@business.auc.dk>
# (C) Copyright (2001)

Code: Select all

# RemoveBans.tcl by Nils Ostbjerg <shorty@business.auc.dk>
# (C) Copyright (2001)
#
# This script makes the bot remove all bans set on a channel that has the flag +removebans once every 15 minutes; which you can change, 15 minutes is just the default. Edit the bind time below.
#
#  This version of the RemoveBans script is tested on Eggdrop version
#  1.6.x
#
#  Please report any bugs to me at shorty@business.auc.dk.
#  Idea and suggestion to new features are also welcome.
#
#
# This is an edited version by Sane from irc.rizon.net #kl-channel with the help of arfer from irc.dal.net #tcl & #eggdrop.
# The changes are as follows: edited the script so it isn't on globally anymore, now you can set what channels you want the script to be enabled on by typing .chanset #ChannelName +removebans (or just .chanset +removebans if it's your main channel) into the partyline, the script will only remove a channels bans after X minutes if that channel has the flag +removebans, if a channel has the flag -removebans; the bans will NOT be removed after X minutes. To check what flags a channel has type: .chaninfo #ChannelName (or just .chaninfo if it's your main channel) into the partyline. ( There were other edits but I've forgotten what they were... :/ )
#
# I have left all original credits.
# 
# RemoveBans.tcl by Nils Ostbjerg | edit by Sane with help from arfer.
# (C) Copyright (2012)
#
#
#
#
#                                 - Nils Ostbjerg <shorty@business.auc.dk>
#
#  Version 1.6.0 - 01 Nov 2001  First version, should work ok. 
#                                  - Nils Ostbjerg <shorty@business.auc.dk>


bind time - "180 * * * *" time:removebans


##########################################################################
# time:RemoveBans start                                                  #
##########################################################################


proc time:removebans { minute hour day month year } {
  foreach chan [channels] {
    if {[channel get $chan removebans]} {
putserv "PRIVMSG $chan :Clearing 3 Hour Old Bans "
       resetbans $chan
     }
  }
  return 0
}
setudef flag removebans


##########################################################################
# time:RemoveBans end                                                    #
##########################################################################


##########################################################################
# putlog                                                                 #
##########################################################################


putlog "Loaded RemoveBans (DLF)"