egghelp/eggheads community

Help with code adjustements

2002-02-25T06:53:00-04:00

I adjusted the code. Thanks for ur help Petersen and sorry for asking too many questions.
I used "foreach timr [utimers]" to check for timer existance on "[lindex $timr 2]" and kill it.

z_one

Statistics: Posted by z_one — Mon Feb 25, 2002 6:53 am

Help with code adjustements

2002-02-24T14:00:00-04:00

I got your point. But even when I unset the timer as u proposed, I am still getting the msg "Invalid Timer ID"

All I want to do is:

1- Check if a channel specific timer exists - say it's called mytimer(#mychan)

2- If it doesn't exist then simply set it for 10 seconds to perform an action.

3- If it exists, kill it first then set it again for another 10 seconds. The reason I wanna kill it is because I don't wanna set the timer with a diff. ID everytime someone joins ... if there's a fast flood it will probably make the bot crash.
I just wanna kill the timer and set it again with the SAME ID for a specific channel.

[ This Message was edited by: z_one on 2002-02-25 01:40 ]

Statistics: Posted by z_one — Sun Feb 24, 2002 2:00 pm

Help with code adjustements

2002-02-24T12:55:00-04:00

you need to unset it when the timer runs. once the timer has run, the value in that var is now an invalid timer id (as the timer doesnt exist anymore)

Statistics: Posted by Petersen — Sun Feb 24, 2002 12:55 pm

Help with code adjustements

2002-02-24T07:49:00-04:00

why would I wanna unset the timerID. I need to keep track of it to kill it later on
"killutimer $myipjointimer($chan)" before starting a new one. Otherwise, I'll end up having so many timers if I don't stop the current one before starting a new one. right ?

Statistics: Posted by z_one — Sun Feb 24, 2002 7:49 am

Help with code adjustements

2002-02-23T23:15:00-04:00

gonna need some unset lines

eg

set myipjointimer($chan) [utimer 10 {set ipjoinlast($chan) "" ; unset myipjointimer($chan) }]

Statistics: Posted by Petersen — Sat Feb 23, 2002 11:15 pm

Help with code adjustements

2002-02-23T22:10:00-04:00

lol well I hope you're not drunk this time

I declared myipjointimer as a global variable.
and I even tried to compile with (and without) the following line.

if {![info exists myipjointimer($chan)]} {set myipjointimer($chan) ""}

I get an error in both cases (with and without it) when it gets to the line

if {[info exists myipjointimer($chan)]} { killutimer $myipjointimer($chan) }
set myipjointimer($chan) [utimer 10 {set ipjoinlast($chan) ""}]

I get the following error msg:
Invalid TimerID

Any ideas why ? and how to make channel specific timers work ?

Statistics: Posted by z_one — Sat Feb 23, 2002 10:10 pm

Help with code adjustements

2002-02-23T21:34:00-04:00

thats what i get for coding when drunk with no testing

Statistics: Posted by Petersen — Sat Feb 23, 2002 9:34 pm

Help with code adjustements

2002-02-23T21:18:00-04:00

Thx dude I owe u one. By the way, in the code u added, there's a missing closing bracket within the if statement in the line (and others like it):

if {![info exists nickjointimes($chan)} {
set nickjointimes($chan) 0
}

Statistics: Posted by z_one — Sat Feb 23, 2002 9:18 pm

Help with code adjustements

2002-02-21T12:52:00-04:00

yes, arrays and channel specific timers are the way

set nickjoinlast() ""
set nickjointimes() ""
set nickjoinsafe() ""

bind join - * nickjoin

proc nickjoin {nick uhost hand chan} {
global nickjoinlast nickjointimes nickjoinsafe mynickjointimer

if {![info exists nickjointimes($chan)} {
set nickjointimes($chan) 0
}

if {![info exists nickjoinsafe($chan)} {
set nickjoinsafe($chan) 0
}

if {$nickjoinlast($chan) != ""} {
if {"$nickjoinlast($chan)" == "$nick"} {
if {$nickjointimes($chan) >= 3} {
if {$nickjoinsafe($chan) == 0} {
putquick "MODE $chan +b $nick!*@*" -next
set nickjoinsafe($chan) 1
utimer 20 {set nickjoinsafe($chan) 0}
}
} else {
set nickjointimes($chan) [expr $nickjointimes($chan) + 1]
}
} else {
set nickjoinlast($chan) $nick
if ([info exists mynickjointimer($chan)]) { killutimer $mynickjointimer($chan) }
set mynickjointimer($chan) [utimer 10 {set nickjoinlast($chan) ""}]
set nickjointimes($chan) 1
}
} else {
set nickjoinlast($chan) $nick
if ([info exists mynickjointimer($chan)]) { killutimer $mynickjointimer($chan) }
set mynickjointimer($chan) [utimer 10 {set nickjoinlast($chan) ""}]
}

}

note that this is a direct port - i made no effort to fix some of the crap code (except I declared mynickjointimer globally as it should have been)

[edit]
typo fix
[/edit]

[ This Message was edited by: Petersen on 2002-02-21 09:53 ]

Statistics: Posted by Petersen — Thu Feb 21, 2002 12:52 pm

Help with code adjustements

2002-02-21T10:16:00-04:00

Can anyone help guys. I really and urgently need this code to work when the eggdrop is op on multiple channels (I tried using arrays for variable and timer names to make them channel specific, didn't work).

Slennox, Egghead, Petersen, Ppslim or anyone else out there ?

Thanks in advance

Statistics: Posted by z_one — Thu Feb 21, 2002 10:16 am

Help with code adjustements

2002-02-19T09:34:00-04:00

Hi guys,

Can anyone convert this code to make it work even if my eggdrop is op on many channels.
The code works fine now because my eggie is op on just 1 channel, but I want to op it on many. If I use the current code and the same nick join 2 different channels, it will trigger a ban which is wrong.

Here's the code:

set nickjoinlast ""
set nickjointimes 0
set nickjoinsafe 0

bind join - * nickjoin

proc nickjoin {nick uhost hand chan} {
global nickjoinlast nickjointimes nickjoinsafe

if {$nickjoinlast != ""} {
if {"$nickjoinlast" == "$nick"} {
if {$nickjointimes >= 3} {
if {$nickjoinsafe == 0} {
putquick "MODE $chan +b $nick!*@*" -next
set nickjoinsafe 1
utimer 20 {set nickjoinsafe 0}
}
} else {
set nickjointimes [expr $nickjointimes + 1]
}
} else {
set nickjoinlast $nick
if ([info exists mynickjointimer]) { killutimer $mynickjointimer }
set mynickjointimer [utimer 10 {set nickjoinlast ""}]
set nickjointimes 1
}
} else {
set nickjoinlast $nick
if ([info exists mynickjointimer]) { killutimer $mynickjointimer }
set mynickjointimer [utimer 10 {set nickjoinlast ""}]
}

}

[ This Message was edited by: z_one on 2002-02-19 06:38 ]

Statistics: Posted by z_one — Tue Feb 19, 2002 9:34 am