egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-01-06T07:24:55-04:00 https://forum.eggheads.org/app.php/feed/topic/11112 2006-01-06T07:24:55-04:00 2006-01-06T07:24:55-04:00 https://forum.eggheads.org/viewtopic.php?p=59128#p59128 <![CDATA[mode +x]]>

I made a stupid mistake anyway which is fixed, check the code

Statistics: Posted by metroid — Fri Jan 06, 2006 7:24 am

]]> 2006-01-05T22:22:36-04:00 2006-01-05T22:22:36-04:00 https://forum.eggheads.org/viewtopic.php?p=59111#p59111 <![CDATA[mode +x]]>

Statistics: Posted by pilouuu — Thu Jan 05, 2006 10:22 pm

]]> 2006-01-05T06:18:15-04:00 2006-01-05T06:18:15-04:00 https://forum.eggheads.org/viewtopic.php?p=59056#p59056 <![CDATA[mode +x]]> 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

Statistics: Posted by pilouuu — Thu Jan 05, 2006 6:18 am

]]> 2006-01-06T07:24:15-04:00 2006-01-05T03:08:11-04:00 https://forum.eggheads.org/viewtopic.php?p=59052#p59052 <![CDATA[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 {[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.

Statistics: Posted by metroid — Thu Jan 05, 2006 3:08 am

]]> 2006-01-04T18:49:42-04:00 2006-01-04T18:49:42-04:00 https://forum.eggheads.org/viewtopic.php?p=59038#p59038 <![CDATA[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 :D )

Statistics: Posted by pilouuu — Wed Jan 04, 2006 6:49 pm

]]>