egghelp/eggheads community

[quakenet] auto add/remove chanlev for users

2008-04-01T12:44:02-04:00

Thanks

Statistics: Posted by TCL_no_TK — Tue Apr 01, 2008 12:44 pm

[quakenet] auto add/remove chanlev for users

2008-03-31T16:41:35-04:00

hehehe didn't think it was needed when $text was used.

It's needed whenever you want to use list manipulation on a string. Split converts the string into a list, as well as protecting (escaping) special characters.

Code:

# string -> split -> 1st wordset data [lindex [split $text] 0]# args -> 1st parameter group -> split -> 1st wordset data [lindex [split [lindex $args 0]] 0]

Both of these accomplish the same thing within a procedure.

$args (special reserved token in tcl) enters the procedure as a list, but not a normal list (it's a list of sublist's actually). It is made to allow several binds (irregardless of parameters) to use the same procedure. Depending on where you place $args in the procedure header determines what parameters it will 'swallow' as arguments (hence its name args). Don't use it unless you need it and fully understand it.
For a better understanding of this behavior see "A point worthy of note about args" by "Peterre". It covers this exact scenario discussed above.

$text enters the procedure as a standard string variable. It's contents should (read this as must) always be split prior to using list commands.

Statistics: Posted by speechles — Mon Mar 31, 2008 4:41 pm

[quakenet] auto add/remove chanlev for users

2008-03-31T14:42:07-04:00

hehehe didn't think it was needed when $text was used.

Statistics: Posted by TCL_no_TK — Mon Mar 31, 2008 2:42 pm

[quakenet] auto add/remove chanlev for users

2008-03-31T12:12:19-04:00

proc pub:ticket {nick uhost hand chan text} {
set who [lindex $args 0]...
This that should be
Code:
set who [lindex $text 0]

This that should be

Code:

set who [lindex [split $text] 0]

Statistics: Posted by speechles — Mon Mar 31, 2008 12:12 pm

[quakenet] auto add/remove chanlev for users

2008-03-31T08:55:15-04:00

proc pub:ticket {nick uhost hand chan text} {
set who [lindex $args 0]...

This that should be

Code:

set who [lindex $text 0]

Statistics: Posted by TCL_no_TK — Mon Mar 31, 2008 8:55 am

[quakenet] auto add/remove chanlev for users

2008-03-28T12:28:31-04:00

Hell0 fellas.

I wanted to ask for a tcl script:

okay lets go:

1) When i type !ticket the eggdrop should do: /msg Q chanlev #BamsUnholyUnion +av , at the same time he should message in the active channel: Thanks for using our Service, you can now join #BamsUnholyUnion for 5 Minutes!.

Well.., after 4 Minutes, the bot should notice the with: Your Ticket is in the last Minute! Pay for a Lifetime Ticket.

After 5 Minutes, the Bot should message in #BamsUnholyUnion: , your Ticket was deleted (Reason: Test Time Expierence)

After this the Bot should do that: /msg Q chanlev #BamsUnholyUnion -av

DONE:)

REALLY BIG THANKS, I NEED THIS SCRIPT

EDIT:

Code:

bind pub o|o !ticket pub:ticketproc pub:ticket {nick uhost hand chan text} {     set who [lindex $args 0]     putserv "MODE $chan +v $who"     putquick "PRIVMSG $chan :Thanks for using our Service $who, you can now join #BamsUnholyUnion for 5 Minutes!"     putquick "PRIVMSG Q :chanlev #BamsUnholyUnion $who +av"     timer 4 [list putserv "NOTICE $who :Your Ticket is in the last Minute! Pay for a Lifetime Ticket"]     timer 5 [list (putquick "PRIVMSG #BamsUnholyUnion :$who, your Ticket was deleted (Reason: Test Time Expierence)) && (putquick "PRIVMSG Q :chanlev #BamsUnholyUnion $who -av)]}

doesnt work

Statistics: Posted by ven000m — Fri Mar 28, 2008 12:28 pm