wd.ident.tcl

[cambodia]

well i have problem with this

i load two of my bot into webnet and two into uirc.net
it work good in uirc.net bot identify with their password

but in webnet it not identify and sometime they change nick few time
then it will identify again sometime work sometime not work
and i notice that normally identify if can't it should change to guest after it should change to that nick and identify again but that script seem not

do anyone experience this ? or any good script suggest to me ?

cheers

[^DooM^]

There is stacks of help in this forum already on identifying with nickserv if you search for it. There are also numerous scripts in the archive for you to try.

[cambodia]

yes i found some and have download some but it still no use for me maybe webnet just update services so i want newest update that work with webnet and yeah i'm poor about coding , someone in webnet bot team said code myself to match it work but i said i can't so only best choice is here hope tcl writer reply me

[^DooM^]

what do you need to write to identify with the webnet services?

[cambodia]

just simple one

1-identify to his nick
2-change to other nick when nickserv is down
3-identify and change nick back to his nick when nickserv is back
4-ghost if someone using his nick

specially in webnet they have strong security if you using register nick without identify after i minute it will change to other nick and that nick is temp sqline ( erronenous nickname ) until you type /ns sidentify nick passwd just can change nick to his nick

there is simple step

but when i use identify tcl i think cause it identify so slow and services load so heavy that's why can't identify faster than 1 minute after that nickname can't change by /ns identify nick passwd but we can done by /ns sidentify nick passwd

cheers

[^DooM^]

ok find a nickserv script you like and chage the line where it asks to identify to nickserv to the way it needs to be on webnet.

[cambodia]

i try few tcl without edit but it not work

[^DooM^]

find the line that says

Code: Select all

"PRIVMSG NICKSERV :IDENTIFY PASSWD"

in the nickserv script and change it to

Code: Select all

"PRIVMSG NICKSERV :SIDENTIFY $botnick PASSWD"

Make sure there is a global call to botnick at the top of the procedure i.e.

Code: Select all

 proc ns_identify {nick uhost hand chan arg} {
    global botnick
    (the rest of the procs code here :)
} //End Proc

[cambodia]

# NICKSERV - IDENTIFICATION SCRIPT - WORKS WITH CHANSERV
# TO OP ITSELF WHEN REQUIRED AND UNBAN ITSELF ALSO

# wd.ident.tcl v1.1 By - WD40 - compatible with eggdrop1.6.*

# This ident script will check to see if NICKSERV is online,
# if it is it will identify its
# nickname otherwise it will keep checking every minute,
# or whatever you have specified to
# see if nickserv is online. Also you can initiate it via
# .ident and it will
# automatically identify itself.
# I added another feature where when it changes its nick
# back to the specified nickname
# defined it will also identify to nickserv.
# Also if it is using altnick rather than nick it will kill
# its ghost automatically and then
# get its nickname back
# please report any problems to the address below
# Created By WD40 - hairspray@rs1.risingnet.net
# Credits go to - Nilsy - cheers nils

# To load the tcl place it in the scripts directory e.g.
# eggdrop/scripts and then go into the eggdrop directory
# and edit your .conf by adding the line at the bottom along with the
# other scripts " source scripts/ident.tcl "
# (without the " ") then in dcc type .rehash and .ident

#set the bots nickname here
set nick "botnick"

# set channels which it has AOP on you can list as many channels as you want, for example it # will look like so set channels "#channel1 channel2 channel3" etc leave it empty
# if you dont have any channels the bot is a registered aop or sop on


#set the ident password here
set pass ""

#[0/1] set recieve message from bot when it successfully identifies. set to 0 to prevent the # message or 1 to receive message
set succ_id 0

# set your handle here, this is the nickname that the bot knows you buy which is most likely # the same nick as you use on irc there's no need to set it if you haven't enabled recieve # messages


# set the amount of time in minutes of how often you want to check to see when nickserv is # online. Default is 1 so it will check every 1 minute to see if nickserv is online
# (minutes)
set tim 1



###############################Main Code#####################################
####### DO NOT EDIT BELOW THIS LINE UNLESS YOU KNOW WHAT YOU'RE DOING #######




if {(![info exists numversion]) || ($numversion < 1060000) } {
putlog "Error - Can't load Ident.tcl -- At least Eggdrop v1.6.x required."
return 0
}

#init-server procedure

proc ident:pr {paras} {
putserv "ISON Nickserv"
}

#raw ison procedure

proc ison:pr {n h paras} {
global botnick nick pass tim
if {[string tolower $paras] == ""} {
timer $tim ident:pr
} else {
if {[isbotnick $nick]} {
putserv "identify $pass"
} else {
putserv "NICKSERV GHOST $nick $pass"
}
}
}
#DCC Ident procedure

proc dc:ident {hand idx para} {
global nick botnick pass
putcmdlog "#$hand# ident"
if {[isbotnick $nick]} {
putserv "IDENTIFY $pass"
} else {
putserv "NICKSERV GHOST $nick $pass"
}
}
#Success Ident Procedure

proc id:suc {n uh h txt paras} {
global nick own succ_id chanels savechannels botnick
if {[string match [string tolower $n] [string tolower nickserv]]} {
set dakill [killignore *!*@dal.net]
set ch [channels]
if {$chanels != ""} {
foreach a $chanels {
foreach b $ch {
if {[string tolower $a] == [string tolower $b]} {
channel set $a need-op "putserv \"CHANSERV :OP $a $botnick\""
channel set $a need-unban "putserv \"CHANSERV :UNBAN $a $botnick\""
}
}
}
} else {
return 0
}

if {$succ_id == "1"} {
set han [hand2nick $own]
puthelp "NOTICE $han :Successfully Identified to nickserv"
} else {
return 0
}
}
}

#Nick Change Procedure

proc ni:pr {n uh h ch ni} {
global nick botnick own pass
if {[string match [string tolower $ni] [string tolower $nick]]} {
putserv "identify $pass"
}
}





bind need - unban need:unban
bind evnt - init-server ident:pr
bind notc - "*Password accepted for*" id:suc
bind DCC m ident dc:ident
bind raw - 303 ison:pr
bind nick - * ni:pr

putlog "Nickserv Identify Script Loaded v1.1 - By WD40"


-----------------------------------------------------------------------
i have try to put sidentify instead of identify ( there are three place to change ) but it not work

[^DooM^]

change this

Code: Select all

putserv "identify $pass"

to this

Code: Select all

putserv "sidentify $botnick $pass"

[cambodia]

ok will try it . thanks

[cambodia]

never mind i can just using few line to identify it