egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2009-07-05T16:26:57-04:00 https://forum.eggheads.org/app.php/feed/topic/17006 2009-07-05T16:26:57-04:00 2009-07-05T16:26:57-04:00 https://forum.eggheads.org/viewtopic.php?p=89447#p89447 <![CDATA[Re: update global command]]>
Currently I got this but this doesn't work, any suggestions?
Ironically, you've forgotten to global variables in your global message script. Add this line:

Code: 

global person
As the very first line below both your procedures. This will allow the local-space variable "person" to carry across into global space. Otherwise the contents of this local-space variable will be destroyed at the end of the procedure. This allows two procedures to share the same variable/contents without having to be passed during invocation.

Statistics: Posted by speechles — Sun Jul 05, 2009 4:26 pm

]]> 2009-07-05T14:50:53-04:00 2009-07-05T14:50:53-04:00 https://forum.eggheads.org/viewtopic.php?p=89446#p89446 <![CDATA[update global command]]>

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\00301 \] $text"   puthelp "PRIVMSG #tworSTAFF :\002GLOBAL:\002 \[ \00307$nick\00301 \] $text"   puthelp "PRIVMSG #tworPA :\002GLOBAL:\002 \[ \00307$nick\00301 \] $text"   putloglev p "#twor" "<TWOR_LOG> \002GLOBAL:\002 \[ \00307$nick\00301 \] $text"   return 1  } }}
But i would like to change it so $nick can be specified.

Something like this:

!setperson My Name
!pglobal Tekst

GLOBAL: [ My Name ] Tekst

Code: 

bind pub -|- "!setperson" PubPersonsetudef flag staffproc PubPerson {nick host hand chan text} { if {[channel get $chan staff]} {  if {$text == ""} {   puthelp "PRIVMSG $chan :\002FOUT:\002 Gelieve een naam op te geven."  } else {   puthelp "PRIVMSG $chan :\002NEW PERSON:\002 $text"   set person $text   return 1  } }}bind pub -|- "!pglobal" PubpGlobalsetudef flag staffproc PubpGlobal {nick host hand chan text} { if {[channel get $chan staff]} {  if {$text == ""} {   puthelp "PRIVMSG $chan :\002FOUT:\002 Gelieve een p-global op te geven."  } else {   puthelp "PRIVMSG #tworSTAFF :\002GLOBAL:\002 \[ \00307$person\00301 \] $text"   putloglev p "#twor" "<TWOR_LOG> \002GLOBAL:\002 \[ \00307$person\00301 \] $text"   return 1  } }}
Currently I got this but this doesn't work, any suggestions?

Statistics: Posted by jeroen_005 — Sun Jul 05, 2009 2:50 pm

]]>