utimer problem?

[T-Xorcist]

I have this script:

Code: Select all

putquick "NOTICE $nick :You invited me to join \002$chan\002. Joining..."
putquick "PRIVMSG #bots :Joining \002$chan\002 - Invited in by \002$nick\002"
channel add $chan
utimer 10 [putquick "PRIVMSG OperServ :mode $chan +o $botnick"]

It is about the last sentence, that utimer.
Sometimes it works (it IMMEDIATELY send it to operserv, not 10 seconds), and sometime it doesn't work at all.

Can anyone explain what I am doing wrong here?

Thanks in advance,

T-Xorcist

[nANDu]

Code: Select all

utimer 10 [list putquick "PRIVMSG OperServ :mode $chan +o $botnick"]

[demond]

Code: Select all

utimer 10 {putquick "PRIVMSG OperServ :mode $chan +o $botnick"}

[T-Xorcist]

Code: Select all

utimer 10 [list putquick "PRIVMSG OperServ :mode $chan +o $botnick"]

This 1 works fine. What is the difference with yours demond?

What is the "official" way?

And can I build an IF function into a timer? Is that possible?

[demond]

no difference, they are equivalent, I was a bit late on "Submit" button

put your if logic in a proc, run that proc by timer

[T-Xorcist]

How do I do this exacly :$

I have this:

Code: Select all

utimer 4 [list check:ops $chan $nick]

and tried this:

Code: Select all

utimer 4 [list check:ops]

And it MUST go to this procedure:

Code: Select all

proc check:ops {nick host hand text} {
  if {([isop $nick $chan])} {
    putquick "PRIVMSG OperServ :mode $chan +o $botnick"]
  } else {
    putquick "PRIVMSG $chan :Leaving channel... (Requester doesn't have ops) \002#bots\002"
    channel remove $chan
  }
}

[demond]

you MUST pass to [utimer] all the arguments your proc needs:

Code: Select all

proc foo {x y z} {
...
}

...

utimer $t [list foo $x $y $z]

[T-Xorcist]

so:

Code: Select all

utimer 4 [list check:ops $nick $host $hand $text]

All of this?

I tried this one aswell:

Code: Select all

putquick "NOTICE $nick :You invited me to join \002$chan\002. Joining..."
putquick "PRIVMSG #bots :Joining \002$chan\002 - Invited in by \002$nick\002"
channel add $chan
utimer 4 {
  if {([isop $nick $chan])} {
    putquick "PRIVMSG OperServ :mode $chan +o $botnick"]
  } else {
    putquick "PRIVMSG $chan :Leaving channel... (Requester doesn't have ops) \002#bots\002"
    channel remove $chan
  }
}

But that doesn't seem to work
Anyone?

[nANDu]

Pls read what demond posted again

Code: Select all

proc check:ops {nick host hand text} { 
   if {([isop $nick $chan])} { 
   ......
   ......
   }
}

Code: Select all

....
....
putquick "NOTICE $nick :You invited me to join \002$chan\002. Joining..."
putquick "PRIVMSG #bots :Joining \002$chan\002 - Invited in by \002$nick\002"
channel add $chan
utimer 4 [list check:ops $nick $host $hand $text]

[T-Xorcist]

As you can read, I allready tried this, but it doesn't work...

I get these two lines in my error log:

Code: Select all

[23:10] Tcl error in script for 'timer2':
[23:10] extra characters after close-quote

[Sir_Fz]

How do I do this exacly :$

I have this:

Code: Select all

utimer 4 [list check:ops $chan $nick]

and tried this:

Code: Select all

utimer 4 [list check:ops]

And it MUST go to this procedure:

Code: Select all

proc check:ops {nick host hand text} {
  if {([isop $nick $chan])} {
    putquick "PRIVMSG OperServ :mode $chan +o $botnick"]
  } else {
    putquick "PRIVMSG $chan :Leaving channel... (Requester doesn't have ops) \002#bots\002"
    channel remove $chan
  }
}

Use

Code: Select all

utimer 4 [list check:ops $chan $nick]

and

Code: Select all

proc check:ops {chan nick} {
 global botnick
 if {([isop $nick $chan])} {
  putquick "PRIVMSG OperServ :mode $chan +o $botnick"
 } else {
  putquick "PRIVMSG $chan :Leaving channel... (Requester doesn't have ops) \002#bots\002"
  channel remove $chan
 }
}

[T-Xorcist]

Well Sir_Fz, it goes to that procedure... thanks for that.

Only.. It allways say that I haven't got @ in the channel, and then parts.

Do you have any idea of what I am doing wrong? I guess the code is ok?

if I do this:

Code: Select all

} else {
    putquick "PRIVMSG $chan :Nick = $nick"
    putquick "PRIVMSG $chan :Chan = $chan"
    putquick "PRIVMSG $chan :Leaving channel... (Requester doesn't have ops) \002#bots\002"
    channel remove $chan
  }

It does give me the right nickname and channel.