script request

[pakistani1]

now i am using

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 
} 

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

[awyeah]

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: 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 "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 "" str
return $str
}

[pakistani1]

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

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

if nick != opnick { 

in a tcl
thanx

[awyeah]

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

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

if nick != opnick { 

in a tcl
thanx

This will be like:

Code: Select all

if {$nick != $opnick} {

Alternatively, this is case-sensitive so:

Code: Select all

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

But a more better and convenient way would be:

Code: Select all

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

[pakistani1]

currently i am using

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