egghelp.org community :: View topic

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

mode +x

egghelp.org community Forum Index -> Scripting Help

View previous topic :: View next topic

Author

Message

pilouuu
Halfop

Joined: 26 Dec 2005
Posts: 82

Posted: Wed Jan 04, 2006 6:49 pm Post subject: mode +x

Code:

bind PUB -|- !request [namespace current]::request
}

proc request::request {nickname hostname handle channel arguments} {
if {[string equal -nocase $channel $request::homechan]} {
if {!$request::busy} {
set chan [lindex [split $arguments] 0]
if {$chan != "" && ![validchan $chan]} {
if {[string index $chan 0] == "#"} {
set request::busy 1
bind RAW -|- 315 [namespace current]::who
utimer 30 [list [namespace current]::timeout $chan]
channel add $chan
set ::info "$nickname $chan"
} else {
putquick "NOTICE $nickname :error type !request #chan."
}
} else {
putquick "NOTICE $nickname :Error!!! syntaxe incorrect"
}
} else {
putquick "NOTICE $nickname :try again"
}
}
}

I wish to make the order usable that by using them auth Q.
I have to test with:

Code:

else {![string match -nocase "*users.quakenet.org" $hostname]} {
putserv "NOTICE $nickname :Sorry, but you need to be authed with Q and have mode +x set before you can request a bot"

but I do not know or to place it.

The code it good? so yes or to place it

Thx for help ( !love daemond Very Happy

)

metroid
Owner

Joined: 16 Jun 2004
Posts: 771

Posted: Thu Jan 05, 2006 3:08 am Post subject:

Code:

bind PUB -|- !request [namespace current]::request
}

proc request::request {nickname hostname handle channel arguments} {
if {[string equal -nocase $channel $request::homechan]} {
if {[string match -nocase "*users.quakenet.org" $hostname]} {
if {!$request::busy} {
set chan [lindex [split $arguments] 0]
if {$chan != "" && ![validchan $chan]} {
if {[string index $chan 0] == "#"} {
set request::busy 1
bind RAW -|- 315 [namespace current]::who
utimer 30 [list [namespace current]::timeout $chan]
channel add $chan
set ::info "$nickname $chan"
} else {
putquick "NOTICE $nickname :error type !request #chan."
}
} else {
putquick "NOTICE $nickname :Error!!! syntaxe incorrect"
}
} else {
putquick "NOTICE $nickname :try again"
}
} else {
putserv "NOTICE $nickname :Sorry, but you need to be authed with Q and have mode +x set before you can request a bot"
}
}
}

Seeing as this is my script i better hope you got this from my website instead of the rippers.

Last edited by metroid on Fri Jan 06, 2006 7:24 am; edited 1 time in total

pilouuu
Halfop

Joined: 26 Dec 2005
Posts: 82

Posted: Thu Jan 05, 2006 6:18 am Post subject:

no ripper only add option in the tcl.
Thx for help

Code:

missing close-brace
while executing
"proc request::request {nickname hostname handle channel arguments} {
if {![string equal -nocase $channel $request::homechan]} {
if {![string matc..."

thx

pilouuu
Halfop

Joined: 26 Dec 2005
Posts: 82

Posted: Thu Jan 05, 2006 10:22 pm Post subject:

Not possible to help me?

metroid
Owner

Joined: 16 Jun 2004
Posts: 771

Posted: Fri Jan 06, 2006 7:24 am Post subject:

I can't see any missing braces but i'm not really paying attention I made a stupid mistake anyway which is fixed, check the code

Display posts from previous:

	egghelp.org community Forum Index -> Scripting Help	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum