# 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
Statistics: Posted by cambodia — Tue Jan 25, 2005 5:15 am
]]>
