Code:

# Set here the user flag for using the commands.set lagflag "m"# Set here the channels that the bot will notify that the lag is too high. Set to "" to disable.set lagchans "#lapaz #cremacamba"# This is the lag limit, if the lag exceeds this time (in seconds), the bot will jump servers.set antilagtime 5# This is the script timer, this is the number of minutes the bot will check the lag.set lagtimer 20# Set this to 1 if you want the bot to notify the partyline when checking the lag. Set to 0 to disable.set lagnotify 1### Do not edit below this line! ###### ---------------------------- ###set antilagv 1.03bind raw - 391 raw:check:lagbind pub ${lagflag} !lagcheck pub:antilagbind dcc ${lagflag} lagcheck dcc:antilagif {![info exists antilagloaded]} {  timer $lagtimer proc:antilag  set antilagloaded 1}proc proc:antilag {} {  global lagtimer lagnotify  set ::lag "[clock clicks]"  set ::type 0  if {$lagnotify == 1} { putlog "\002-Anti-Lag-\002 Now checking server lag." }  putquick "TIME"  timer $lagtimer proc:antilag}proc pub:antilag {nick uhost hand chan text} {  global lagchans  foreach msgchan $lagchans {    if {$chan == $msgchan} {      set ::lag "[clock clicks]"      set ::type 1      set ::chan $msgchan      putquick "PRIVMSG $::chan :\002-Anti-Lag-\002 Now checking server lag."      putquick "TIME"    }  }}proc dcc:antilag {hand idx text} {  set ::lag "[clock clicks]"  putlog "\002-Anti-Lag-\002 Now checking server lag."  set ::type 2  putquick "TIME"}proc raw:check:lag {from key text} {  global antilagtime lagchans lagnotify  set lag [expr ((([clock clicks] - $::lag)/2)/60)/1000.]  if {$lagnotify == 1} { putlog "\002-Anti-Lag-\002 Current lag is \002$lag\002 seconds." }  if {$::type == 1} { putquick "PRIVMSG $::chan :\002-Anti-Lag-\002 Current lag is \002$lag\002 seconds." }  if {($lagnotify == 0) && ($::type == 2)} { putlog "\002-Anti-Lag-\002 Current lag is \002$lag\002 seconds." }  if {$lag > $antilagtime} {    if {($lagchans != "") && ($::type != 2)} {      foreach msgchan $lagchans {        putquick "PRIVMSG $msgchan :\002Attention\002: My lag has exceeded the limit of $antilagtime seconds (currently at $lag seconds). I am now jumping servers."       }     }    putlog "\002-Anti-Lag-\002 Lag exceeded $antilagtime seconds. Trying another server..."    jump   }  unset -nocomplain ::lag  unset -nocomplain ::chan  if {[info exists ::type]} { unset -nocomplain ::type } }putlog "\002-Anti-Lag-\002 $antilagv by FrostByte: Loaded"

Statistics: Posted by Arnold_X-P — Wed Jun 03, 2015 10:36 pm

Statistics: Posted by Arnold_X-P — Wed Jun 03, 2015 10:30 pm

Code:

unset ::chan

unset -nocomplain ::chan

Statistics: Posted by SpiKe^^ — Mon May 25, 2015 9:11 pm

# Set here the user flag for using the commands.set lagflag "m"# Set here the channels that the bot will notify that the lag is too high. Set to "" to disable.set lagchans "#lapaz #cremacamba"# This is the lag limit, if the lag exceeds this time (in seconds), the bot will jump servers.set antilagtime 5# This is the script timer, this is the number of minutes the bot will check the lag.set lagtimer 20# Set this to 1 if you want the bot to notify the partyline when checking the lag. Set to 0 to disable.set lagnotify 1### Do not edit below this line! ###### ---------------------------- ###set antilagv 1.03bind raw - 391 raw:check:lagbind pub ${lagflag} !lagcheck pub:antilagbind dcc ${lagflag} lagcheck dcc:antilagif {![info exists antilagloaded]} {  timer $lagtimer proc:antilag  set antilagloaded 1}proc proc:antilag {} {  global lagtimer lagnotify  set ::lag "[clock clicks]"  set ::type 0  if {$lagnotify == 1} { putlog "\002-Anti-Lag-\002 Now checking server lag." }  putquick "TIME"  timer $lagtimer proc:antilag}proc pub:antilag {nick uhost hand chan text} {  global lagchans  foreach msgchan $lagchans {    if {$chan == $msgchan} {      set ::lag "[clock clicks]"      set ::type 1      set ::chan $msgchan      putquick "PRIVMSG $::chan :\002-Anti-Lag-\002 Now checking server lag."      putquick "TIME"    }  }}proc dcc:antilag {hand idx text} {  set ::lag "[clock clicks]"  putlog "\002-Anti-Lag-\002 Now checking server lag."  set ::type 2  putquick "TIME"}proc raw:check:lag {from key text} {  global antilagtime lagchans lagnotify  set lag [expr ((([clock clicks] - $::lag)/2)/60)/1000.]  if {$lagnotify == 1} { putlog "\002-Anti-Lag-\002 Current lag is \002$lag\002 seconds." }  if {$::type == 1} { putquick "PRIVMSG $::chan :\002-Anti-Lag-\002 Current lag is \002$lag\002 seconds." }  if {($lagnotify == 0) && ($::type == 2)} { putlog "\002-Anti-Lag-\002 Current lag is \002$lag\002 seconds." }  if {$lag > $antilagtime} {    if {($lagchans != "") && ($::type != 2)} {      foreach msgchan $lagchans {        putquick "PRIVMSG $msgchan :\002Attention\002: My lag has exceeded the limit of $antilagtime seconds (currently at $lag seconds). I am now jumping servers."      }    }    putlog "\002-Anti-Lag-\002 Lag exceeded $antilagtime seconds. Trying another server..."    jump  }  unset ::lag  unset ::chan  if {[info exists ::type]} { unset ::type }}putlog "\002-Anti-Lag-\002 $antilagv by FrostByte: Loaded"

Statistics: Posted by Arnold_X-P — Mon May 25, 2015 8:16 pm