script request

pakistani1 · Post by **pakistani1** » Wed Apr 20, 2005 11:44 pm

hello
i was wondering if some one could make a tcl that would make the eggdrop do a /msg chanserv@services.dal.net why #name nick whenever some one is oped in a channel and kick the user if the nick is using someone else's access.
thanx in advance ..

Post by **Sir_Fz** » Thu Apr 21, 2005 9:22 am

Code: Select all

bind mode - "* +o" why:nick
bind notc - "*Identification to the nickname*" nick:whyed

proc why:nick {nick uhost hand chan mc vict} {
 global whyed
 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]])
}

pakistani1 · Post by **pakistani1** » Sat Apr 23, 2005 11:03 am

thanx for that code..
can that script b made channel specific, which i can controle from the dcc commands . like
.chanset #name +/- deop

Post by **Sir_Fz** » Sat Apr 23, 2005 2:25 pm

Code: Select all

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]]) 
}

.chanset #channel +/-deop to enable disable.

pakistani1 · Post by **pakistani1** » Sat Apr 23, 2005 7:49 pm

i got this error

Code: Select all

missing close-brace
    while executing
"proc nick:whyed {nick uhost hand text dest} { 
global whyed 
if {![info exists whyed([string tolower [lindex [split $text] 0]])]} { return 0 } 
if {![..."
    (file "scripts/deop.tcl" line 13)
    invoked from within
"source scripts/deop.tcl"

^DooM^ · Post by **^DooM^** » Sat Apr 23, 2005 8:15 pm

change this

Code: Select all

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

to this

Code: Select all

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

Post by **Sir_Fz** » Sat Apr 23, 2005 9:12 pm

missing close-brace

add a } at the end of the proc.

Code: Select all

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

pakistani1 · Post by **pakistani1** » Sun Apr 24, 2005 5:38 am

Code: Select all

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: Select all

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.

Post by **Sir_Fz** » Sun Apr 24, 2005 8:46 am

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

Code: Select all

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]]) 
 } 
}

awyeah · Post by **awyeah** » Sun Apr 24, 2005 9:54 am

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

Post by **Sir_Fz** » Sun Apr 24, 2005 11:12 am

awyeah wrote: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.

pakistani1 · Post by **pakistani1** » Sun Apr 24, 2005 11:57 pm

now i got this error ..

Code: Select all

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

awyeah · Post by **awyeah** » Mon Apr 25, 2005 12:09 am

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: Select all

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

pakistani1 · Post by **pakistani1** » Mon Apr 25, 2005 1:55 am

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: Select all

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: Select all

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

awyeah · Post by **awyeah** » Mon Apr 25, 2005 1:26 pm

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

Code: Select all

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
}