egghelp/eggheads community

Problem with Public +chan - script

2003-09-24T15:09:14-04:00

you cannot, you have to globalize the channel var in order to match it to the whois.

guess you want to do that because you don't want it to cause errors whenever the bot does a whois on anyone (for other reasons than the !+chan command). But I guess you can tolerate a little error from time to time, it won't harm you .

Also, I would say that unset ad_addchannel instead of set ad_addchannel "" would be better.

Statistics: Posted by Sir_Fz — Wed Sep 24, 2003 3:09 pm

Problem with Public +chan - script

2003-09-24T13:09:28-04:00

Here is my actual script, so you should see what i would do:

Code:

bind pub - "!+chan" ad:addchanbind raw - "319" ad:whoisset ad_addchannel ""proc ad:addchan { nick host handle chan text } {  global ad_addchannel  set ad_addchannel $text  putserv "WHOIS $nick"}proc ad:whois {from keyword text} { global ad_addchannel if {$ad_addchannel != ""} {  putserv "PRIVMSG [lindex $text 1] :Ich bearbeite momentan bereits eine Anfrage, bitte versuch es gleich nochmal!"  return } set i 0 foreach channel [channels] { incr i } if {$i >= 10} {  putserv "PRIVMSG [lindex $text 1] :Es tut mir leid, aber ich bin schon in zu vielen Channels ($i)"  set ad_addchannel ""  return }foreach channel $text {   if {$ad_addchannel == [string trimleft $channel ":+@!"]} {     if { [string first "@" $channel] != "-1" } {       channel add $ad_addchannel       putserv "PRIVMSG [lindex $text 1] :Da bin ich!"       break     } else {     putserv "PRIVMSG [lindex $text 1] :Du musst Op in $ad_addchannel sein, damit ich komme!"     }   } } set ad_addchannel ""}

So the visitors could say the bot that he should join the channel they said. For example !+chan #kitchenhost-test .

But the bot should only join the channel if the user, which requestet the join is an op in this channel.

And the question is: how could i du that whithout using the global variable $ad_addchannel and without using the command isop. because then the bot must join the channel first.

Statistics: Posted by Guest — Wed Sep 24, 2003 1:09 pm

Problem with Public +chan - script

2003-09-24T09:57:09-04:00

Calling the $text variable in the ad:whois.. got that part, but what do you want to do with it there?

Statistics: Posted by caesar — Wed Sep 24, 2003 9:57 am

Problem with Public +chan - script

2003-09-24T09:11:49-04:00

I want to use the variable $text in ad:whois but WITHOUT making $text a global variable because i dont like them very much.

Statistics: Posted by Guest — Wed Sep 24, 2003 9:11 am

Problem with Public +chan - script

2003-09-24T07:00:40-04:00

What exactly do you want to do? Call globaly the text variable from ad:addchan in to ad:whois?

Statistics: Posted by caesar — Wed Sep 24, 2003 7:00 am

Problem with Public +chan - script

2003-09-24T06:52:50-04:00

yes, that is, what i mean with "transfer", to have the value of $text also available in ad:whois. But is there a posibility to do that without using a global variable?

Statistics: Posted by Guest — Wed Sep 24, 2003 6:52 am

Problem with Public +chan - script

2003-09-24T06:24:37-04:00

Why to to transfer it when you can do the stuff in the ad:whois proc? Call globaly the name of the channel and do your stuff there..

Statistics: Posted by caesar — Wed Sep 24, 2003 6:24 am

Problem with Public +chan - script

2003-09-24T04:36:31-04:00

It works, thanks, but is there also a posibility to get the info if someone is an op in a specific channel without joining that channel first?

I thought that could be done with whois. Heres the testscript i wrote:

Code:

bind pub - "!+chan" ad:addchanbind raw - "319" ad:whoisproc ad:addchan { nick host handle chan text } { putserv "WHOIS $nick"}proc ad:whois {from keyword text} { set text [split $text] set nick [lindex $text 1] putserv "PRIVMSG Mangi :nick=$nick"}

It works so far, but now the problem is, how i could "transfer" the variable $text from ad:addchan to ad:whois to check the right channel? But, if that works, without using global variables, i dont like them very much.

Statistics: Posted by Guest — Wed Sep 24, 2003 4:36 am

Problem with Public +chan - script

2003-09-23T11:33:58-04:00

well, that's because the bot is not on $text yet so he can't know if nick isop on that channel unless he joins the channel. so what you want is:

Code:

bind pub - !+chan ad:addchan proc ad:addchan { nick host handle chan text } {  channel add $text utimer 5 [list channel:check $nick $text]}proc channel:check {nick text} { if {[isop $nick $text]} {  set i 0   foreach channel [channels] {     incr i 1   }   if {$i > 10} {   channel remove $text  putserv "PRIVMSG $nick :exceeded maximum number of channels allowed"  } elseif {![isop $nick $text]} {  channel remove $text  putserv "PRIVMSG $nick :Es tut mir leid, aber ich bin schon in zu vielen Channels!"   }  } }

this probably should do it.

Statistics: Posted by Sir_Fz — Tue Sep 23, 2003 11:33 am

Problem with Public +chan - script

2003-09-23T05:13:03-04:00

Hi!
I have the following problem: i would like to add an public command, which would give the users in my channel the ability to let the bot join new channels (maximum is 10). The clue is, that these users mus be an OP in the channel, which the bot should join.

Here is my script:

Code:

bind pub - "!+chan" ad:addchanproc ad:addchan { nick host handle chan text } {  if {[isop $nick $text]} {  set i 0  foreach channel [channels] {    incr i 1  }  if {$i < 10} {  channel add $text  } else {    putserv "PRIVMSG $nick :Es tut mir leid, aber ich bin schon in zu vielen Channels!"  }}}

But everytime, i say this command followed by a channel (for example !+chan #kitchenhost-test) , the bot says (in the partyline):

Code:

Tcl error [ad:addchan]: illegal channel: #kitchenhost-test

I hope, you can say me, what is wrong.

Statistics: Posted by Guest — Tue Sep 23, 2003 5:13 am