Code: Select all
# This script will identify your bot once received the notice that nick is
# owned by someone else from NickServ.
#
# We can also use this script if the bot's need to be an op, unban & invite.
# To do this, set your channel like the given example below:
#
# .chanset #lamestchan need-op chanserv #lamestchan op
# .chanset #lamestchan need-invite chanserv #lamestchan invite
# .chanset #lamestchan need-unban chanserv #lamestchan unban
# Note: Don't set your channel like that if you don't have access on the channel
#
# (C) 2002 - SparkCom, Spark Computer Technology
# Any suggestion or comment email me at sparkcom@sparkcom.eu.org
# [0/1] To let us know that bot is unidentified, then send ident request.
set is_identified 0
# [0/1] To show that identifying is in progress to stop multiple request.
# it will help to prevent flooding to NickServ
set identifying 0
# If in case that NickServ didn't reply for a certain period of time we will
# resend ident requests and continue until the bot identified
# (must be in minutes).
set nickserv_time 10
# The bot's registered nick to NickServ also the bot's nick.
set eggnick "XBot"
# The bot's nick password to NickServ
set nickpass "*****"
# [0/1] To let us know if ChanServ is responding or not, to wait for the
# action before sending another request.
set chanserv_success 0
# Duration in minutes before turning chanserv_success to 1 thus enabling us
# to send another request.
set chanserv_time 10
############################################################################
# PLEASE DO NOT EDIT ANYTHING BELOW UNLESS YOU KNOW WHAT YOU ARE DOING !!! #
############################## Script Begin ################################
# Now, we recieved the notice. We will turn off the is_identified to
# wait the "Password accepted" reply before sending a service requests
# to ChanServ.
proc nickserv { nick uhost hand chan text } {
global nickpass botnick eggnick is_identified identifying chanserv_success nickserv_time
if { $identifying == 0 } {
set is_identified 0
set chanserv_success 0
if { $botnick == $eggnick } {
set identifying 1
timer $nickserv_time nickserv_reset
putserv "PRIVMSG NickServ@services@3dbuzz.com :identify $nickpass"
}
}
}
# Now the bot received the notice that password is accepted.
# Right here, we will turn off identifying variable as a preparation for
# the next ident request and since we are now identified we will turn the
# memory variable is_identified and chanserv_success to on.
proc pass_accepted { nick uhost hand chan text } {
global is_identified identifying chanserv_success
set nickservTimerID [timerexists nickserv_reset]
set identifying 0
set is_identified 1
set chanserv_success 1
if { $nickservTimerID != "" } {
killtimer $nickservTimerID
}
}
# Reset the variables to an initial value after timer expires.
proc nickserv_reset {} {
global is_identified identifying chanserv_success
set identifying 0
set is_identified 0
set chanserv_success 0
nickserv "" "" "" "" ""
}
# Send op, unban & invite request to ChanServ.
proc chanserv {where what} {
global botnick is_identified chanserv_success chanserv_time
if { ($is_identified == 1) && ($chanserv_success == 1) } {
set chanserv_success 0
timer $chanserv_time chanserv_reset
putserv "PRIVMSG ChanServ@services@3dbuzz.com :$what $where $botnick"
}
}
# This procedure will verify if ChanServ is responding to the service requests.
# It will help if ChanServ is lagged, thus preventing multiple requests.
proc mode_proc {nick uhost hand chan mc {victim ""}} {
global botnick chanserv_success
if {(($nick == "ChanServ") && ($victim == $botnick) && (($mc == "+o") || ($mc == "-b" )))} {
set chanservTimerID [timerexists chanserv_reset]
set chanserv_success 1
if { $chanservTimerID != "" } {
killtimer $chanservTimerID
}
}
}
# This procedure will call after the chanserv_timer expires
proc chanserv_reset {} {
global chanserv_success
set chanserv_success 1
}
# The following are those tcl binds for this script.
bind notc - "*This nick is owned by someone else*" nickserv
bind notc - "*Password accepted*" pass_accepted
bind mode - * mode_proc
putlog " * Loaded [file tail [info script]] successfully."
# Script Written by Rey C. Geroleo - Jan. 07, 2002
# Script modified by mematrix (mematrix@gmail.com) for SQL, and XBot on the 3dbuzz IRC server (irc.3dbuzz.com)
hahaha all too right mate, all too right. That's what I get for not showing him what I personally do in my conf file; defining the variables that change from bot to bot at the beginning of my conf file, which looks something like this: