kreynet need op

CosmicD · Post by **CosmicD** » Sun Dec 19, 2004 6:33 am

I've a litle script that logs the bot in with the KreyNet chanserv, but I'd like a script that, when the bot looses its ops there it asks /msg chanserv op $channelname ,

anyone can do that ?

Papillon · Post by **Papillon** » Sun Dec 19, 2004 6:47 am

Code: Select all

bind mode - "* -o" check:mode
proc check:mode {n ho ha ch mc who} {
	if {[string equal -nocase $::botnick $who]} { putserv "PRIVMSG chanserv :op $ch" }
}

this should do it

arcane · Post by **arcane** » Sun Dec 19, 2004 8:33 am

why not use need-op?

demond · Post by **demond** » Sun Dec 19, 2004 10:15 am

arcane wrote:why not use need-op?

because it would require periodical set, in case channels are being added dynamically:

Code: Select all

bind time - * {foreach c [channels] {channel set need-op {putserv "privmsg chanserv :op $c"}};#}

Papillon's version will not work when bot loses ops due to kick/quit/reconnect; here's one that will always work:

Code: Select all

bind need - "% op" foo
proc foo {c t} {putserv "privmsg chanserv :op $c"}

awyeah · Post by **awyeah** » Sun Dec 19, 2004 8:49 pm

Simple, solution.

Bind to "mode". Then check if [string equal $mode "-o"] and [string equal -nocase $target $botnick] and ![string equal -nocase $nick $botnick] and ![isop $botnick $chan]. If all match then go ahead and putserv "PRIVMSG ChanServ :OP $chan". That should be about it.

demond · Post by **demond** » Sun Dec 19, 2004 8:54 pm

awyeah wrote:Simple, solution.

Bind to "mode". Then check if [string equal $mode "-o"] and [string equal -nocase $target $botnick] and ![string equal -nocase $nick $botnick] and ![isop $botnick $chan]. If all match then go ahead and putserv "PRIVMSG ChanServ :OP $chan". That should be about it.

that's exactly Papillon's version, with unnecessary additional checks

Post by **caesar** » Mon Dec 20, 2004 3:36 am

isbotnick $who should do it too?

awyeah · Post by **awyeah** » Mon Dec 20, 2004 4:52 am

Any of these two will do the same job. It's just a persons preference both of which he considers his favourite:

[string equal -nocase $botnick $target]
[isbotnick $target]

CosmicD · Post by **CosmicD** » Mon Dec 20, 2004 7:44 am

ah,

well I used the first one , but what happens is that my bot is deopped on one channel befor i rehashed, then I've deopped it myself on a channel i'm operator on and it seems to work if it actually detects a mode change..

anyway when it would script, the first part of the K script would log it in and op it automaticly because chanserv does that on login and on join,

the problem now is, it doesn't seem to be aware that it's deopped.... its just aware when you deop it ....

how can I solve that ? (thanks for the help already)

awyeah · Post by **awyeah** » Mon Dec 20, 2004 7:56 am

I don't fully understand what you are trying to say. Could you paste your actual code over here, the one which you use so we can take a look.

CosmicD · Post by **CosmicD** » Mon Dec 20, 2004 8:22 am

This is the "entire" kreynet chanserv (K) script that I have now withlogin routine also + added code from this thread,

Code: Select all

set regnick "chanservnickofbot"
set password "chanservpassforbot"

set init-server {putserv "PRIVMSG K :LOGIN $regnick $password"}

#---- keep ops section received from egghelp.org forum ------

bind mode - "* -o" check:mode
proc check:mode {n ho ha ch mc who} {
   if {[string equal -nocase $::botnick $who]} { putserv "PRIVMSG K :op $ch" }
}

so the situation:

lets say the bot has an @ on #a and not on #b. when I get to channel #a , and test this script, the bot will automaticly regain ops set by the script. but the bot was on channel #b and already deopped when I put the code in the sepparate chanserv tcl file that I have set for it to load.

Now, the bot doesn't seem to know that it is deopped on channel #b.... thus, the script doesn't make it awware that it is "deopped" only when you actively deop it when it has ops.. Hope i make myself clearer now

Post by **user** » Mon Dec 20, 2004 8:39 am

did you read demond's post?

CosmicD · Post by **CosmicD** » Mon Dec 20, 2004 8:58 am

ah yeah, the foo proc thingy worked, thx,

i guess it can work together with the other procedure because it would immediately op the bot again....

So, for archiving purposes, if someone needs this on Kreynet:
+ added invite functionally for the bot tp become immortal

Code: Select all

set regnick "chanservnickofbot" 
set password "chanservpassforbot" 

set init-server {putserv "PRIVMSG K :LOGIN $regnick $password"} 

bind mode - "* -o" check:mode 
proc check:mode {n ho ha ch mc who} { 
   if {[string equal -nocase $::botnick $who]} { putserv "PRIVMSG K :op $ch" } 
} 
bind need - "% op" foo
proc foo {c t} {putserv "privmsg K :op $c"}

bind need - "% invite" blah
proc blah {c t} {putserv "privmsg K :invite $c"}

, thx all

awyeah · Post by **awyeah** » Mon Dec 20, 2004 8:49 pm

You can make a simple timer to execute as well, to check say every 5 mins if the bot is opped on the channel or not.

The 'need-op' one floods services alot, and I got my bot killed alot of times, since it is very rapid, unless you use a timer delay.

Code: Select all

#Set channels to check ops on
set opchans "#chan1 #chan2 #chan3"

#Set the time in minutes to check if the bot is opped on each channel
set opchecktime "5"

timer $opchecktime check:ops

proc check:ops { } {
 global opchecktime opchans
  foreach c $opchans {
   if {![botisop $c]} {
    putquick "PRIVMSG K :OP $c" -next
    }
   }
 timer $opchecktime check:ops
}

CosmicD · Post by **CosmicD** » Thu Dec 23, 2004 4:39 pm

hmm, do you mean that need ops "always" continues to send requests to services ? also if it has ops ? (normally I would see that because whenever you ask ops you actually see the serice op the bot even if it is having an op)...