[17:11] can't read "$auth(trigger)": no such variable
while executing
"bind PUB n ${$auth(trigger)}auth pub:auth"
(file "scripts/auth.tcl" line 46)
invoked from within
"source scripts/auth.tcl"
(file "eggdrop.conf" line 1507)
[17:11] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
# Configuration #
# Does the bot have to set +x on connect? Which means it will go #<authname>.users.quakenet.org
# 1 = yes, 0 = no
set auth(usex) "1"
# This is the bot's authname you use to auth with
set auth(nickname) "CiCEgG"
# This is the bot's authpassword you use to auth with
set auth(password) "*********"
# The other modes it will set upon being authed.
# R = Registered users may only talk to you
# w = wallusers
# d = deaf, Your bot won't see any chat in the channels.
set auth(othermodes) ""
# Will the bot auth on connect or not?
# 1 = yes, 0 = no
set auth(onconnect) "1"
# The public trigger you will use to make the bot auth incase you don't have auth on connect activated
set auth(trigger) "?"
# End Of Configuration #
# Binds
bind PUB n ${$auth(trigger)}auth pub:auth
if {$auth(onconnect) == "1"} {
bind evnt - init-server auth:connect
}
# Procs
proc auth:connect {type} {
global botnick auth
if {$auth(usex) == "1"} {
putquick "MODE $botnick +ix"
}
putquick "PRIVMSG q@cserve.quakenet.org :auth $auth(nickname) $auth(password)"
if {$auth(othermodes) != ""} {
putserv "MODE $botnick $auth(othermodes)"
}
}
proc pub:auth { nickname hostname handle channel arguments } {
global botnick auth
if {$auth(usex) == "1"} {
putquick "MODE $botnick +x"
}
bind NOTC -|- * auth:notice
set auth(channel) $channel
putquick "PRIVMSG Q@Cserve.quakenet.org :auth $auth(nickname) $auth(password)"
}
proc auth:notice { nickname hostname handle arguments **** } {
global botnick auth
set from "${nickname}!${hostname}"
if {[regexp -nocase -- {^(Q!TheQBot@CServe.quakenet.org)$} $from]} {
if {[regexp -nocase -- {AUTH'd successfully.} $arguments]} {
putquick "PRIVMSG $auth(channel) :Auth'd succesfully with Q."
unbind NOTC -|- * auth:notice
if {$auth(othermodes) != ""} {
putquick "MODE $botnick $auth(othermodes)"
}
return 0
} else {
putquick "PRIVMSG $auth(channel) :Username or password incorrect or there are too many users on my auth $auth(nickname)"
unbind NOTC -|- * auth:notice
return 0
}
}
}
putlog "Auth.tcl version $auth(version) by $auth(author) loaded!"
i know this has now switched to script help sorry....
ned
Statistics: Posted by redned — Sat Jul 16, 2005 12:17 pm
]]>