set script

Carnage69 · Post by **Carnage69** » Mon Jun 16, 2003 4:19 pm

will someone please tell me what is wrong with this

set tr "@"
set cc "@"

set nopub "#q3f"

bind pub -|- ${tr}setwebsite setwebsite
bind pub -|- ${tr}website website

set qversion "1.5"

proc setwebsite {nick host hand chan arg} {
global url pathqstat cc nopub setwebsite
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Usage: ${cc}setwebsite <^BIP Address^B>"
return 0
}
set website "$arg"
putserv "NOTICE $nick :Website Set To $Website"
}
proc website {nick host hand chan arg} {
global url pathqstat cc nopub website
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :$website "
return 0
}
}

stdragon · Post by **stdragon** » Mon Jun 16, 2003 4:32 pm

Probably the fact that you called the variable setwebsite in one place, and website in another.

Carnage69 · Post by **Carnage69** » Mon Jun 16, 2003 5:20 pm

i changed it but @website dont work @set website does

set tr "@"
set cc "@"

set nopub "#q3f"
bind pub -|- ${tr}setwebsite setweb
bind pub -|- ${tr}Website site

proc setweb {nick host hand chan arg} {
global url pathqstat cc nopub setweb
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Usage: ${cc}setwebsite Address"
return 0
}
set website "$arg"
putserv "NOTICE $nick :Website set to $website"
}
proc site {nick host hand chan arg} {
global url pathqstat cc nopub site
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick : $website "
return 0
}
}

egghead · Post by **egghead** » Mon Jun 16, 2003 5:27 pm

Probably the fact that you called the variable website but didn't declare it as a global in both procs.

stdragon · Post by **stdragon** » Mon Jun 16, 2003 5:33 pm

Dude you destroyed your script! Look, the only problem in the original script was this line:

global url pathqstat cc nopub setwebsite

See, you've called the variable "setwebsite" by mistake.

In your edited script, you messed everything up lol. In one place you call it setweb, in another you call it site, and of course still "website" as it should be in some places. Dude, you really can't just make up names and expect things to work hehe. Change it all to "website" and you'll be ok.

egghead · Post by **egghead** » Mon Jun 16, 2003 5:36 pm

/me waits for iteration 3

stdragon · Post by **stdragon** » Mon Jun 16, 2003 5:41 pm

Yeah heh. It's occurred to me that maybe he's mixing up variable names with proc names.

To Carnage69: you didn't need to change the *proc* names. Just change the variable "setwebsite" to "website".

Carnage69 · Post by **Carnage69** » Mon Jun 16, 2003 5:42 pm

set tr "@"
set cc "@"

set nopub "#q3f"

bind pub -|- ${tr}setwebsite setweb
bind pub -|- ${tr}website website

set qversion "1.5"

proc setweb {nick host hand chan arg} {
global url pathqstat cc nopub setwebsite
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Usage: ${cc}setwebsite <^BIP Address^B>"
return 0
}
set website "$arg"
putserv "NOTICE $nick :Website Set To $Website"
}
proc website {nick host hand chan arg} {
global url pathqstat cc nopub website
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :$website "
return 0
}
}

what is wrong with that

Post by **user** » Mon Jun 16, 2003 5:47 pm

dude...in the global-line.
btw: case matters, so $Website != $website

Carnage69 · Post by **Carnage69** » Mon Jun 16, 2003 5:50 pm

set tr "@"
set cc "@"

set nopub "#q3f"

bind pub -|- ${tr}setwebsite setweb
bind pub -|- ${tr}website web

set qversion "1.5"

proc setweb {nick host hand chan arg} {
global url pathqstat cc nopub setwebsite
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Usage: ${cc}setwebsite <^BIP Address^B>"
return 0
}
set website "$arg"
putserv "NOTICE $nick :Website Set To $Website"
}
proc web {nick host hand chan arg} {
global url pathqstat cc nopub website
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :$website "
return 0
}
}

WHAT IS WRONG CAN SOMONE PLEASE FIX IT UP AND THEN COPY AND PAST IT BACK IN.

Post by **user** » Mon Jun 16, 2003 5:55 pm

1: get clue
2: read the error messages displayed on your partyline
3: stop posting the entire script every time
4: don't shout

stdragon · Post by **stdragon** » Mon Jun 16, 2003 5:55 pm

Come on don't get mad. Read what we said and try it again. It's just one or two things you need to change -- 'setwebsite' and 'Website'.

Carnage69 · Post by **Carnage69** » Mon Jun 16, 2003 6:11 pm

i tryed doing that and i came out with this @setwebsite works just not @website i dont get any error massage when i start it

set tr "@"
set cc "@"

set nopub "#q3f"

bind pub -|- ${tr}setwebsite setweb
bind pub -|- ${tr}Website Web

set qversion "1.5"

proc setweb {nick host hand chan arg} {
global url pathqstat cc nopub Website
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :Usage: ${cc}setwebsite <^BIP Address^B>"
return 0
}
set Website "$arg"
putserv "NOTICE $nick :Website set to $Website"
}
proc web {nick host hand chan arg} {
global url pathqstat cc nopub Website
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv "notice $nick :$Website"
return 0
}
}

Post by **user** » Mon Jun 16, 2003 6:15 pm

Case matters for proc names too.

Carnage69 · Post by **Carnage69** » Mon Jun 16, 2003 6:22 pm

well i got it up how do i make it so only people with +afop +++ access on the userlist can do @setwebsite