hello I need a script that will remove access when

laynuks · Post by **laynuks** » Sat Jul 05, 2003 7:27 am

hello I need a script that will remove access when the abusive ops that kicks the bot by using /mode #channel kick botname
then the script will check for the username of the abusive op
/msg x verify AbusiveOpsNick

then the script will remove the access of the op

/msg x remuser #channel UsernameofOP

Thank You again

LAYNUKS

ReaLz · Post by **ReaLz** » Mon Jul 07, 2003 2:34 am

try this one:

Code: Select all

bind kick - "*" kick_remove

proc kick_remove {nick host hand chan target args} {
global botnick
if {$target == $botnick} {
putserv "PRIVMSG X :remuser $chan =$nick"
putlog "Removed $nick's username from X's $chan access list."
}
}

Weirdo · Post by **Weirdo** » Mon Jul 07, 2003 4:26 am

What would you do if they used the /msg chanserv kick command?

Might be an idea to expand the script to do that?

Post by **Sir_Fz** » Mon Jul 07, 2003 5:53 am

well this's undernet. X is the service's nick.
but laynuks said that if a user uses /mode #channel kick $botnick
so I guess the code should be a mode bind like

Code: Select all

bind mode - "* kick"  kick_remove

proc kick_remove {nick uhost hand chan mc victim} {
if {$victim == $::botnick} {
putserv "PRIVMSG X :verify $nick"
##here we should find a way so the bot will catch the access of the nick##
putserv "PRIVMSG X :remuser #channel $verifiednick
  }
}

Papillon · Post by **Papillon** » Mon Jul 07, 2003 12:14 pm

I'm not familiar with the undernet services, but you will need a second proc to catch the reply from the verify command.

Code: Select all

bind mode - "* kick"  kick_remove 

proc kick_remove {nick uhost hand chan mc victim} { 
  if {$victim == $::botnick} { 
    putserv "PRIVMSG X :verify $nick"
  } 
}

#I use bind notice since I don't know how X replies
bind notc - "bla bla bla *" check_verify

proc check_verify {nick host hand arg dest} {
  if {[string equal $dest $::botnick]} {
    #the index must probably be changed to match where in the line the verified nick is
    putserv "PRIVMSG X :remuser #channel [lindex [split $arg] end]"
  }
}

I hope this will give you an idea of what you need to do..

laynuks · Post by **laynuks** » Wed Jul 09, 2003 11:27 am

to all scripters thanks a lot

laynuks

laynuks · Post by **laynuks** » Wed Jul 09, 2003 10:09 pm

Papillon wrote:I'm not familiar with the undernet services, but you will need a second proc to catch the reply from the verify command.

Code: Select all

bind mode - "* kick"  kick_remove 

proc kick_remove {nick uhost hand chan mc victim} { 
  if {$victim == $::botnick} { 
    putserv "PRIVMSG X :verify $nick"
  } 
}

#I use bind notice since I don't know how X replies
bind notc - "bla bla bla *" check_verify

proc check_verify {nick host hand arg dest} {
  if {[string equal $dest $::botnick]} {
    #the index must probably be changed to match where in the line the verified nick is
    putserv "PRIVMSG X :remuser #channel [lindex [split $arg] end]"
  }
}

I hope this will give you an idea of what you need to do..

Hello In Undernet before u can be given access u need to have a username from Cservice, so to be an op u need to login to X using ur unique username then u will get the @ op sign. In order to remove his access we need to check and verify what the op's username by doing.

Let say the Op's nickname is Pepsi1 and he kick the bot
In order to get the username of that OP we need to this command to get the username:
/msg x verify Pepsi1

then @X will respond via notice, and the output will say:
-X- Pepsi1!pirch@aol.com is logged in as Johnny2003

then to remove that username we do this command:
/msg x remuser #channel Johhney2003

I hope I elaborate in details how @X works in Undernet so u can adjust the tcl script.

Thank You Very Much

LAYNUKS

BiLL · Post by **BiLL** » Thu Jul 10, 2003 1:40 am

Cant you do it ?

laynuks · Post by **laynuks** » Thu Jul 10, 2003 4:58 am

Bill I cant thats why I need help hehe

Post by **Sir_Fz** » Thu Jul 10, 2003 6:40 am

i think Papillon's code should work as u wanted it to.
did u try it ?

Papillon · Post by **Papillon** » Thu Jul 10, 2003 11:08 am

Code: Select all

set thechannel "#channel"
bind mode - "* kick"  kick_remove 

proc kick_remove {nick uhost hand chan mc victim} { 
  if {$victim == $::botnick} { 
    putserv "PRIVMSG X :verify $nick" 
  } 
} 

bind notc - "* logged in as *" check_verify 

proc check_verify {nick host hand arg dest} { 
  if {[string equal $dest $::botnick]} { 
    putserv "PRIVMSG X :remuser $::thechannel [lindex [split $arg] end]" 
  } 
}

It should work alright as it is now

laynuks · Post by **laynuks** » Thu Jul 10, 2003 9:07 pm

thanks a lot papillion, i will try it and let u know the result

laynuks · Post by **laynuks** » Mon Jul 14, 2003 5:45 am

hi the script did not work hmmm i even tried first block and change verify to Kick but it did not work.... it seems that it is not catching the nick of the kicker when he does /kick #channel botname

set thechannel "#channel"
bind mode - "* kick" kick_remove

proc kick_remove {nick uhost hand chan mc victim} {
if {$victim == $::botnick} {
putserv "PRIVMSG X :kick $nick"
}
}

Post by **Sir_Fz** » Mon Jul 14, 2003 6:58 am

man, u said u want it to work when someone does /mode #channel kick botname.
anyway add this code to make the bot work on /kick #channel botname.

Code: Select all

bind kick - * kick:remove

proc kick:remove { nick uhost hand chan targ rsn } {
  if {$targ == $::botnick} {
   putserv "PRIVMSG X :verify $nick"
   }
}

note:do not remove Papillon's code, leave it and add this one into it.

laynuks · Post by **laynuks** » Tue Jul 15, 2003 11:24 am

Sorry for the misunderstanding I mean /kick #channel nick and
Thank You Sir_Fz I will try this

I will let u know if it works

egghelp/eggheads community

hello I need a script that will remove access when

hello I need a script that will remove access when

thanks all

tcl

thanks papillion

hi papillion

thank you