egghelp/eggheads community

Simple TCL Script

2003-06-11T11:53:48-04:00

Ok I've tried what Papillon said and got certain errors
1) [23:44] [gucci] [23:45] * Duplicate user record 'gucci'!
[23:44] [gucci] [23:45] Userfile loaded, unpacking...
[23:44] [gucci] [23:45] (!) I have an user record, but without +b
2) [23:46] [gucci] [23:47] Tcl error [voiceUser]: invalid command name "Â "

Code:

## Settings set line "*Fserve Active*" set channel "#E-hub" ## Binds bind pubm - "$line" voiceUser bind time - "00 * * * *" time_proc bind time - "30 * * * *" time_proc ## Code proc voiceUser {nick uhost hand channel rest} {   putserv "MODE $channel +v :$nick"   saveUser $nick $uhost $hand $channel $rest   return }proc time_proc {min hour day month year} {check_word} proc check_word {} { if {![botisop $::channel]} { putlog "I'm not oped in $::channel." return 0 } foreach user [chanlist $::channel] { if {[isvoice $user $::channel]} { set hand [nick2hand $user] if {[matchattr $hand S]} { chattr $hand -S return } pushmode $::channel -v $user puthelp "NOTICE $user :you've been devoiced for not serving." } } } adduser $nick chattr [nick2hand $nick] +S }

Statistics: Posted by kevie — Wed Jun 11, 2003 11:53 am

Simple TCL Script

2003-06-11T05:01:17-04:00

I'm not in that list

Statistics: Posted by caesar — Wed Jun 11, 2003 5:01 am

Simple TCL Script

2003-06-11T04:58:43-04:00

tsk... that's what they all say

Statistics: Posted by Papillon — Wed Jun 11, 2003 4:58 am

Simple TCL Script

2003-06-11T04:57:22-04:00

Oups, yes, forgot to remove them

Statistics: Posted by caesar — Wed Jun 11, 2003 4:57 am

Simple TCL Script

2003-06-11T04:48:34-04:00

if you insist on using list on it (which really is not needed) the drop the "" quotes, or else saveUser will be called with just one argument

Statistics: Posted by Papillon — Wed Jun 11, 2003 4:48 am

Simple TCL Script

2003-06-11T04:57:42-04:00

better [list saveUser $nick $uhost $hand $channel $rest]

Statistics: Posted by caesar — Wed Jun 11, 2003 4:44 am

Simple TCL Script

2003-06-11T04:31:13-04:00

Code:

bind pubm - "$line" voiceUser bind time - "00 * * * *" time_proc bind time - "30 * * * *" time_proc bind pubm - "$line" saveUser

no need to have two equal pubm binds

Code:

bind pubm - "$line" voiceUser bind time - "00 * * * *" time_proc bind time - "30 * * * *" time_proc

just call the saveUser proc from within the voiceUser proc

Code:

proc voiceUser {nick uhost hand channel rest} {   putserv "MODE $channel +v :$nick"   saveUser $nick $uhost $hand $channel $rest  return }

Code:

adduser $nick chattr $nick +S

$nick is not the same as the saved handle on the bot.
when you add the user and the nick is to long, the eggdrop will "cut" the nick.
use this to get the correct handle

Code:

adduser $nick chattr [nick2hand $nick] +S

and finally, conserning the timing of devoicing... it has to do with the use of the time bind, it will not wait 30 mins to check the users. It executes every whole and half hour. ie.. 10.00, 10.30, 11.00 .... etc

Statistics: Posted by Papillon — Wed Jun 11, 2003 4:31 am

Simple TCL Script

2003-06-11T01:19:09-04:00

yes I've seen some probs...
1) you have the same line and phrase so I will disable the phrase.
2) you still use $nick instead of $user as caesar told you.. i'll change it..

Code:

## Settings set line "*Fserve Active*" set channel "#E-Hub" ## Binds bind pubm - "$line" voiceUser bind time - "00 * * * *" time_proc bind time - "30 * * * *" time_proc bind pubm - "$line" saveUser ## Code proc voiceUser {nick uhost hand channel rest} { putserv "MODE $channel +v :$nick" return } proc time_proc {min hour day month year} {check_word} proc check_word {} { if {![botisop $::channel]} { putlog "I'm not oped in $::channel." return 0 } foreach user [chanlist $::channel] { if {[isvoice $user $::channel]} { set hand [nick2hand $user] if {[matchattr $hand S]} { chattr $hand -S return } pushmode $::channel -v $user puthelp "NOTICE $user :you've been devoiced for not serving." } } } proc saveUser {nick chan hand idx args} { if {[validuser $hand]} { chattr $hand +S return } adduser $nick chattr $nick +S }

Statistics: Posted by ReaLz — Wed Jun 11, 2003 1:19 am

Simple TCL Script

2003-06-10T23:59:57-04:00

Hmm, I seem to be having lotsa probs now with this code, so maybe i would list out the code here to see where the prob lies, currently it seems, it doesnt voice certain users, and it devoices some users after like a few minutes say 10 minutes? And it seems like i cant get the message that says "you've been devoiced for not serving." to work too. would really appreciate to get it work again (PS. I'm sorry for being so slow, really just a newbie)

Code:

## Settings set line "*Fserve Active*" set phrase "*Fserve Active*" set channel "#E-Hub" ## Binds bind pubm - "*$line*" voiceUser bind time - "00 * * * *" time_proc bind time - "30 * * * *" time_proc bind pubm - "*$phrase" saveUser ## Code proc voiceUser {nick uhost hand channel rest} { putserv "MODE $channel +v :$nick" return } proc time_proc {min hour day month year} {check_word} proc check_word {} { if {![botisop $::channel]} { putlog "I'm not oped in $::channel." return 0} foreach user [chanlist $::channel] { if {[isvoice $user $::channel]} { set hand [nick2hand $user] if {[matchattr $hand S]} { chattr $hand -Sreturn } pushmode $::channel -v $user puthelp "NOTICE $nick :you've been devoiced for not serving."} } } proc saveUser {nick chan hand idx args} { if {[validuser $hand]} { chattr $hand +S return } adduser $nick chattr $nick +S }

Statistics: Posted by kevie — Tue Jun 10, 2003 11:59 pm

Simple TCL Script

2003-06-10T14:16:33-04:00

and add the

Code:

return 0

after the

Code:

putlog "I'm not oped in $::channel."

as caesar said, if you haven't already done that.

Statistics: Posted by ReaLz — Tue Jun 10, 2003 2:16 pm

Simple TCL Script

2003-06-10T10:18:42-04:00

Is $user not $nick. Pay attention, don't sleep in class.

Statistics: Posted by caesar — Tue Jun 10, 2003 10:18 am

Simple TCL Script

2003-06-10T10:09:30-04:00

seems like i ended up with more errors,
Tcl error [time_proc]: can't read "nick": no such variable
Can anyone help me out with that?

Statistics: Posted by kevie — Tue Jun 10, 2003 10:09 am

Simple TCL Script

2003-06-10T09:19:26-04:00

Give it a try. I'm shure it won't bite you.

Statistics: Posted by caesar — Tue Jun 10, 2003 9:19 am

Simple TCL Script

2003-06-10T09:13:31-04:00

It works now! Bravo. Anyway, can i put a puthelp "NOTICE $nick :you've been devoiced..." on it after the bot devoiced the user?

Statistics: Posted by kevie — Tue Jun 10, 2003 9:13 am

Simple TCL Script

2003-06-10T09:08:00-04:00

btw, after the:

putlog "I'm not oped in $::channel."

you should add a return cos as far as I can see it continues the proc after the putlog.

Statistics: Posted by caesar — Tue Jun 10, 2003 9:08 am