just need 1 or 2 lines of code please

[redned]

Hi all i want is for my bot to msg Q on quakenet to auth itself

Q@CServe.quakenet.org AUTH botname botpassword

if someone could tell me how i get it to set itself for mode x on this irc also i would be greatful as i tried the ip_hide script but it only works on undernet.

(Sorry if it should have been in script help or something)

thanks

ned

[redned]

Also tried the Q auth tcl i found in searching but it stops my bot from starting.
[17:11] Tcl error in file 'eggdrop.conf':
[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

[demond]

Code: Select all

set pass "botpassword"
bind evnt - init-server foo
proc foo type {
   putserv "privmsg q@cserve.quakenet.org :auth $::nick $::pass"
   putserv "mode $::botnick +x"
}

[redned]

is tht all i needed? sheesh these other scripts are huge and dont work.

Thanks much appreciated.

ned

[^DooM^]

shouldn't

Code: Select all

putserv "privmsg q@cserve.quakenet.org :auth $::nick $::pass" 

$::nick be

Code: Select all

putserv "privmsg q@cserve.quakenet.org :auth $::botnick $::pass" 

$::botnick ?

[redned]

Thanks for your help this is what i finally used and it works well....
-----------------------------------------------------------------------------------
bind evnt - init-server my:connect
proc my:connect init-server {
putquick "PRIVMSG Q@CServe.quakenet.org :AUTH CiCEgG *******"
putquick "MODE $::botnick +x"
}

putlog "Q Auth loaded"
------------------------------------------------------------------------------------

Thanks for all contributions, I hope i can get good enough to help others at some point, and everyone is welcome to lurk in #cic on quakenet if you enjoy tfc.

Peace

ned