Having desc script problems again

[mcdarby]

Right now, I have it working with the following script.

Code: Select all

bind pubm -|- "% !desc Name" pubm:desc 

set inuse 0 

proc pubm:desc {nick host hand chan arg} { 
    global inuse 

    if { $inuse == 1 } { 
    putquick "PRIVMSG $chan :Sorry, !desc is currently in use, please wait 30 seconds and try again" 
    return 
    } 
    set inuse 1 
    putquick "PRIVMSG $chan :Desc of Name" 
    utimer 30 {set inuse 0} 
}

But then when I make changes to the message and .rehash the eggdrop, somehow the utimer messes up and it causes both msgs to show when I try it. Also, I was trying it with multiple .tcl files so that it would respond differently to whatever is typed after !desc "!desc Name, !desc somethingelse, etc." and this problem came up with .TCL error about wrong # of args.

[YooHoo]

change your 'putquick' to puthelp. should slow it down enough

[metroid]

That's not what he asked for yoohoo..

And i recommend you use the utimer like this:

Code: Select all

utimer 30 [list set inuse "0"]

[YooHoo]

how is it i read a thread 2,3, somethimes 4 times before i post....ffs, got a beer, MeTroiD?

[awyeah]

Something like this is also correct:

Code: Select all

utimer 30 "set inuse \"0\""

Though if you're calling procs you should use the 'list' command, yeah. In this case it can be done without it, also putserv, putquick, pushmode etc.