egghelp/eggheads community

script request

2007-10-07T17:06:29-04:00

currently i am using

Code:

setudef flag deop bind mode - "*+o*" why:nick bind notc - "*Identification to the nickname*" nick:whyed proc why:nick {nick uhost hand chan mc vict} { global whyed if {![channel get $chan deop]} { return 0 } putserv "PRIVMSG chanserv@services.dal.net :why $chan $vict" set whyed([string tolower $vict]) 1 } proc check:verify {nick host hand arg {dest ""}} {  set msg [ctrl:filter $arg]  if {[string equal $dest $::botnick]} {#   Parse ChanServ's message.    set nick [lindex [split $msg] 0]     set chan [string trim [lindex [split $msg] 5] .]     set opnick [string trim [lindex [split $msg] 12] .]} }proc nick:whyed {nick uhost hand text dest} { global whyed if {[string tolower $nick] != [string tolower $opnick]} {  putquick "KICK [stripcodes [string trimright [lindex [split $text] 5] .]] [string trimright [lindex [split $text] 12] .] :You're using someone else's access" unset whyed([string tolower [lindex [split $text] 0]]) } } proc stripcodes {str} { regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str return $str }

its not working .. the bot does a /cs why # nick ..
but doesnot kick
if {[string tolower $nick] != [string tolower $opnick]} {
[/code]

Statistics: Posted by pakistani1 — Sun Oct 07, 2007 5:06 pm

script request

2005-04-26T07:03:59-04:00

the above script takes the access of the nick from chanserv .. and sends a msg to chanserv requesting deop of the origional nick that has access to the channel .. not the current nick of the user. is it possible to parse the chanserves msg .. something like this
Code:
set nick [lindex [split $msg] 0] set chan [string trim [lindex [split $msg] 5] .] set opnick [string trim [lindex [split $msg] end] .]
if yes wher ein the above script should i use this ..
plus .. how can i do a
Code:
if nick != opnick { 
in a tcl
thanx

This will be like:

Code:

if {$nick != $opnick} {

Alternatively, this is case-sensitive so:

Code:

if {[string tolower $nick] != [string tolower $opnick]} {

But a more better and convenient way would be:

Code:

if {![string equal -nocase $nick $opnick]} {

Statistics: Posted by awyeah — Tue Apr 26, 2005 7:03 am

script request

2005-04-26T06:31:39-04:00

the above script takes the access of the nick from chanserv .. and sends a msg to chanserv requesting deop of the origional nick that has access to the channel .. not the current nick of the user. is it possible to parse the chanserves msg .. something like this

Code:

set nick [lindex [split $msg] 0] set chan [string trim [lindex [split $msg] 5] .] set opnick [string trim [lindex [split $msg] end] .]

if yes wher ein the above script should i use this ..
plus .. how can i do a

Code:

if nick != opnick {

in a tcl
thanx

Statistics: Posted by pakistani1 — Tue Apr 26, 2005 6:31 am

script request

2005-04-26T04:23:04-04:00

Yes this will do it. Try todo it yourself from next time onwards, always requesting doesn't make you do it and you will therefore always request.

People can't help you, if you can't help yourself. If you really want todo something your way, try todo it yourself.

Code:

setudef flag deopbind mode - "*+o*" why:nickbind notc - "*Identification to the nickname*" nick:whyedproc why:nick {nick uhost hand chan mc vict} {global whyedif {![channel get $chan deop]} { return 0 }putserv "PRIVMSG chanserv@services.dal.net :why $chan $vict"set whyed([string tolower $vict]) 1}proc nick:whyed {nick uhost hand text dest} {global whyedif {![info exists whyed([string tolower [lindex [split $text] 0]])]} { return 0 }if {![string equal -nocase [lindex [split $text] 0] [string trimright [lindex [split $text] end] .]]} {putquick "PRIVMSG chanserv@services.dal.net :DEOP [stripcodes [string trimright [lindex [split $text] 5] .]] [stripcodes [string trimright [lindex [split $text] end] .]]"unset whyed([string tolower [lindex [split $text] 0]])}}proc stripcodes {str} {regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" strreturn $str}

Statistics: Posted by awyeah — Tue Apr 26, 2005 4:23 am

script request

2005-04-26T02:40:46-04:00

now i am using

Code:

setudef flag deop bind mode - "*+o*" why:nick bind notc - "*Identification to the nickname*" nick:whyed proc why:nick {nick uhost hand chan mc vict} { global whyed if {![channel get $chan deop]} { return 0 } putserv "PRIVMSG chanserv@services.dal.net :why $chan $vict" set whyed([string tolower $vict]) 1 } proc nick:whyed {nick uhost hand text dest} { global whyed if {![info exists whyed([string tolower [lindex [split $text] 0]])]} { return 0 } if {![string equal -nocase [lindex [split $text] 0] [string trimright [lindex [split $text] end] .]]} { putquick "KICK [stripcodes [string trimright [lindex [split $text] 5] .]] [string trimright [lindex [split $text] end] .] :You're using someone else's access" unset whyed([string tolower [lindex [split $text] 0]]) } }proc stripcodes {str} { regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str return $str }

and its working gr8 ..
thanx every one for the help .
can that kick thingie be changed to a /cs deop #name nick
and then a notice to the nick " you are using some one else's access "
thanx

Statistics: Posted by pakistani1 — Tue Apr 26, 2005 2:40 am

script request

2005-04-25T13:26:31-04:00

Well you had to change the input variables in the main proc for stripcodes. Here use this:

Code:

setudef flag deopbind mode - "*+o*" why:nickbind notc - "*Identification to the nickname*" nick:whyedproc why:nick {nick uhost hand chan mc vict} {global whyedif {![channel get $chan deop]} { return 0 }putserv "PRIVMSG chanserv@services.dal.net :why $chan $vict"set whyed([string tolower $vict]) 1}proc nick:whyed {nick uhost hand text dest} {global whyedif {![info exists whyed([string tolower [lindex [split $text] 0]])]} { return 0 }if {![string equal -nocase [lindex [split $text] 0] [string trimright [lindex [split $text] end] .]]} {putquick "KICK [stripcodes [string trimright [lindex [split $text] 5] .]] [string trimright [lindex [split $text] end] .] :You're using someone else's access"unset whyed([string tolower [lindex [split $text] 0]])} proc stripcodes {str} {regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" strreturn $str}

Statistics: Posted by awyeah — Mon Apr 25, 2005 1:26 pm

script request

2005-04-25T01:55:29-04:00

i tried upgrading to 1.6.17 but i couldnot .. some warnings are displayed when i use the make command.
i upgraded to version 1.6.16
here is the code i am using .. now ...

Code:

setudef flag deop bind mode - "* +o" why:nick bind notc - "*Identification to the nickname*" nick:whyed proc stripcodes {str} { regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str return $str } proc why:nick {nick uhost hand chan mc vict} { global whyed if {![channel get $chan deop]} { return 0 } putserv "PRIVMSG chanserv@services.dal.net :why $chan $vict" set whyed([string tolower $vict]) 1 } proc nick:whyed {nick uhost hand text dest} { global whyed if {![info exists whyed([string tolower [lindex [split $text] 0]])]} { return 0 } if {![string equal -nocase [lindex [split $text] 0] [string trimright [lindex [split $text] end] .]]} { putquick "KICK [stripcodes b [string trimright [lindex [split $text] 5] .]] [string trimright [lindex [split $text] end] .] :You're using someone else's access" unset whyed([string tolower [lindex [split $text] 0]]) } }

the bot does a /msg chanserv@services.dal.net why #name nick
but does not kick the nick ..
here is the error it displays in the dcc

Code:

Tcl error [nick:whyed]: wrong # args: should be "stripcodes str"

Statistics: Posted by pakistani1 — Mon Apr 25, 2005 1:55 am

script request

2005-04-25T00:09:21-04:00

You're eggdrop version is less than 1.6.17. Please upgrade it to the latest version from www.eggheads.org or use:

wget www.geteggdrop.com

The 'stripcodes' function is only in eggdrop versions 1.6.17 or greater, or you have to use a filter like this:

Code:

proc stripcodes {str} {  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str  return $str}

Statistics: Posted by awyeah — Mon Apr 25, 2005 12:09 am

script request

2005-04-24T23:57:47-04:00

now i got this error ..

Code:

Tcl error [nick:whyed]: invalid command name "stripcodes"

Statistics: Posted by pakistani1 — Sun Apr 24, 2005 11:57 pm

script request

2005-04-24T11:12:28-04:00

Also try to string map or regsub, $vict for as that nick can contain special chars [, ], etc which for arrays it can be deadly.

I don't think that's necessary, I never had any problems with it anyways.

Statistics: Posted by Sir_Fz — Sun Apr 24, 2005 11:12 am

script request

2005-04-24T09:54:20-04:00

Also try to string map or regsub, $vict for as that nick can contain special chars [, ], etc which for arrays it can be deadly.

Statistics: Posted by awyeah — Sun Apr 24, 2005 9:54 am

script request

2005-04-24T08:46:03-04:00

forgot to set anything to whyed(nick), this should fix it:

Code:

setudef flag deop bind mode - "* +o" why:nick bind notc - "*Identification to the nickname*" nick:whyed proc why:nick {nick uhost hand chan mc vict} {  global whyed  if {![channel get $chan deop]} { return 0 }  putserv "PRIVMSG chanserv@services.dal.net :why $chan $vict"  set whyed([string tolower $vict]) 1} proc nick:whyed {nick uhost hand text dest} {  global whyed  if {![info exists whyed([string tolower [lindex [split $text] 0]])]} { return 0 }  if {![string equal -nocase [lindex [split $text] 0] [string trimright [lindex [split $text] end] .]]} {   putquick "KICK [stripcodes b [string trimright [lindex [split $text] 5] .]] [string trimright [lindex [split $text] end] .] :You're using someone else's access"   unset whyed([string tolower [lindex [split $text] 0]])  } }

Statistics: Posted by Sir_Fz — Sun Apr 24, 2005 8:46 am

script request

2005-04-24T05:38:37-04:00

Code:

setudef flag deop bind mode - "* +o" why:nick bind notc - "*Identification to the nickname*" nick:whyed proc why:nick {nick uhost hand chan mc vict} { global whyed if {![channel get $chan deop]} { return 0 } putserv "PRIVMSG chanserv@services.dal.net :why $chan $vict" set whyed([string tolower $vict]) } proc nick:whyed {nick uhost hand text dest} { global whyed if {![info exists whyed([string tolower [lindex [split $text] 0]])]} { return 0 } if {![string equal -nocase [lindex [split $text] 0] [string trimright [lindex [split $text] end] .]]} { putquick "KICK [stripcodes b [string trimright [lindex [split $text] 5] .]] [string trimright [lindex [split $text] end] .] :You're using someone else's access" unset whyed([string tolower [lindex [split $text] 0]]) } }

thats the code and this the error that i got

Code:

Tcl error [why:nick]: can't read "whyed(metallica-)": no such variable

metallica- was the nick that i used to op in the channel with someone elses access.

Statistics: Posted by pakistani1 — Sun Apr 24, 2005 5:38 am

script request

2005-04-23T21:12:49-04:00

missing close-brace

add a } at the end of the proc.

Code:

 ........ unset whyed([string tolower [lindex [split $text] 0]])  }}

Statistics: Posted by Sir_Fz — Sat Apr 23, 2005 9:12 pm

script request

2005-04-23T20:15:40-04:00

change this

Code:

if {![string equal -nocase [lindex [split $text] 0] [string trimright [lindex [split $text] end] .]]}

to this

Code:

if {![string equal -nocase [lindex [split $text] 0]] [string trimright [lindex [split $text] end] .]}

Statistics: Posted by ^DooM^ — Sat Apr 23, 2005 8:15 pm