find nick access

[PlayTecH]

Hi, I made a little script that find nick access when they (ops ) join to channel, then chanserv sets mode +o . I want to use it on my eggdrop. Can you help me please.

on 1:op:#hackmasters:if ($opnick != $me) && ($nick == ChanServ) /chanserv why #hackmasters $opnick
on *:NOTICE:*:*:{ {
if $nick == chanserv {
if (AOp isin $1-) { msg #hackmasters welcome $1 , How Are you $12 ? }
if (SOp isin $1-) { msg #hackmasters welcome $1 , How Are you $12 ? }
if (FOUNDER isin $1-) { msg #hackmasters Welcome Master | /msg #hackmasters $1 is Founder #HackMasters }
}
}

[metroid]

This forum is for TCL, not mirc scripting.

[rosc2112]

Take a look at the "Flag On Join" script or search the tcl archive for "mode change" (keep in mind, eggdrop does not support all of the newer channel/user modes, so you'd have to make a script work on "raw" msgs from the server..)

[nml375]

Rough piece of code to get started with, probably a few flaws in there tho..
The regular expression is based on an example from dal.net, as I did'nt find any documentation on the exact response from Chanserv

(I guess it would be possible to just split the text and use lindex to extract the various bits of information to make it abit more fault-tolerant, tho using regular expressions makes it easier to ditch "non-why" notices from chanserv).

Oh, and since I don't use dalnet or services such as Chanserv, code is untested

Code: Select all

bind mode - "#hackmasters +o" hackmaster:checkop
bind notc - "*" hackmaster:checkwhy

proc hackmaster:checkop {nick host hand chan mode target} {
 if {[string compare -nocase $::botnick $target] == 0} {return}
 if {[string compare -nocase "ChanServ" $nick] != 0} {return}
 putserv "CHANSERV WHY $chan $target"
}

proc hackmaster:checkwhy {nick host hand text dest} {
 if {[string compare -nocase $::botnick $dest] !=0]} {return}
 if {[string compare -nocase "ChanServ" $nick] !=0} {return}
 if {[regexp {(.+) has (SOp|AOp|Founder) access to (.+)\. Reason: Identification to the nickname (.*)} $text match checknick checkaccess checkchan checkuser] != 1} {return}
 switch -- $checkaccess {
  "AOp" -
  "SOp" {
   puthelp "PRIVMSG $checkchan :Welcome ${checknick}, How are you ${checkuser}?
  }
  "Founder" {
   puthelp "PRIVMSG $checkchan :Welcome Master"
   puthelp "PRIVMSG $checkchan :$checknick is Founder $checkchan"
  }
  default {}
}

[K3rN3L_P4nIC]

I need a similar script but kickban any nicks if not equal a access aop/sop nick