egghelp/eggheads community

!global command

2008-11-27T09:36:57-04:00

Thnxs for helping boy's Sorry for the late reply but i had exams Love you all

Statistics: Posted by jeroen_005 — Thu Nov 27, 2008 9:36 am

!global command

2008-11-25T03:58:32-04:00

heheh

Statistics: Posted by TCL_no_TK — Tue Nov 25, 2008 3:58 am

!global command

2008-11-24T10:24:14-04:00

Since everyone else is making a half-hearted attempt at posting slightly modified code, I might just as well post a proper piece of code...
Even so, I still recommend trying to fix the problems yourself based on the hints given, rather than just taking one of the suggested solutions and be done with it.

Oh yeah, at that first glance, I did miss a variable name mixup, which is also fixed...

Code:

bind pub -|- "!global" PubGlobalsetudef flag staffproc PubGlobal {nick host hand chan text} { if {[channel get $chan staff]} {  if {$text == ""} {   puthelp "PRIVMSG $chan :\002FOUT:\002 Gelieve een global op te geven."  } else {   puthelp "PRIVMSG #twor :\002GLOBAL:\002 \[ \00307$nick\00307 \] $text"   puthelp "PRIVMSG #tworSTAFF :\002GLOBAL:\002 \[ \00307$nick\00307 \] $text"   puthelp "PRIVMSG #tworPA :\002GLOBAL:\002 \[ \00307$nick\00307 \] $text"   return 1  } }}

Statistics: Posted by nml375 — Mon Nov 24, 2008 10:24 am

!global command

2008-11-24T10:15:04-04:00

Code:

proc global { nick uhost hand channel text } {   if {(![channel get $channel staff])} {    return 0   }   if {$text == ""} {      putserv "privmsg $chan :\002FOUT:\002 Gelieve een global op te geven."      return 0   }   if {$text != ""} {        putserv "PRIVMSG #twor :\002GLOBAL:\002 [ \00307$nick\00307 ] $text"        putserv "PRIVMSG #tworSTAFF :\002GLOBAL:\002 [ \00307$nick\00307 ] $text"        putserv "PRIVMSG #tworPA :\002GLOBAL:\002 [ \00307$nick\00307 ] $text"        return 1   }}

Statistics: Posted by TCL_no_TK — Mon Nov 24, 2008 10:15 am

!global command

2008-11-24T04:04:29-04:00

Maybe this will help ..

Code:

setudef flag staff bind pub - "!global" globalproc global { nick uhost hand channel text } {    if {[lsearch -exact [channel info $chan] +staff] == -1} { }    if {$text == ""} {       putserv "privmsg $chan :\002FOUT:\002 Gelieve een global op te geven."    }    if {$text != ""} {         putserv "PRIVMSG #twor :\002GLOBAL:\002 [ \00307$nick\00307 ] $text"         putserv "PRIVMSG #tworSTAFF :\002GLOBAL:\002 [ \00307$nick\00307 ] $text"         putserv "PRIVMSG #tworPA :\002GLOBAL:\002 [ \00307$nick\00307 ] $text"    } }

Voor hulp kun je me altijd bereiken op #djoezy (Quakenet)

Statistics: Posted by Djoezy — Mon Nov 24, 2008 4:04 am

!global command

2008-11-24T10:27:07-04:00

Did you remember to create a "binding" to trigger the code?
ie:
bind pub myword myproc

Also, "global" is a native tcl command, it would usually be a very bad idea to replace this with your own proc. Most likely you'll break lots of other stuffs. Please consider a different name for your proc (function).

Edit: There also seems to be a variable name mixup regarding the channel argument.

Statistics: Posted by nml375 — Sun Nov 02, 2008 7:06 pm

!global command

2008-11-02T15:57:14-04:00

It's my first script :d But there are no error's showing up when loading or running :s

Statistics: Posted by jeroen_005 — Sun Nov 02, 2008 3:57 pm

!global command

2008-11-02T11:20:04-04:00

If you could describe the error in nature, that would certainly help diagnosing the problem. At a quick glance however, it would seem you've forgotten to "escape" some brackets ([]) to prevent command substitution.

Other than that, there are a few code structures that could be a bit "cleaner", but nevertheless they should not hamper the operation of the script...

Statistics: Posted by nml375 — Sun Nov 02, 2008 11:20 am

!global command

2008-11-02T06:07:48-04:00

Do someone know whats there wrong with this script:

Code:

setudef flag staffproc global { nick uhost hand channel text } {   if {[lsearch -exact [channel info $chan] +staff] == -1} { }    if {$text == ""} {       putserv "privmsg $chan :\002FOUT:\002 Gelieve een global op te geven."    }   if {$text != ""} {        putserv "PRIVMSG #twor :\002GLOBAL:\002 [ \00307$nick\00307 ] $text"        putserv "PRIVMSG #tworSTAFF :\002GLOBAL:\002 [ \00307$nick\00307 ] $text"        putserv "PRIVMSG #tworPA :\002GLOBAL:\002 [ \00307$nick\00307 ] $text"   }}

Statistics: Posted by jeroen_005 — Sun Nov 02, 2008 6:07 am