mode +x

[pilouuu]

Code: Select all

 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: Select all

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 )

[metroid]

Code: Select all

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.

[pilouuu]

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

Code: Select all

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]

Not possible to help me?

[metroid]

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