egghelp/eggheads community

Ok, so if this is the code, I`ll try it out and post a reply with the results.

Works Great, thanks nml

Hello guys, I have a little question about "bind time" module: the type for this command is: bind time - "minutes hour days months" ( they are exactly two characters) So this is my question: How can I use this setting to do every 20 minutes a proc ? This way ? bind time - "2...

Hello guys,

I`m getting a little problem wen I try to set up my avatar.
I`m useing an avatar through a link, and wen I try do a "submit" I`m getting the error bellow:



?!

ok, sorry for that I was just asking, didn`t know what that string will do. so, I`ve made the changes like you suggested and now I`m getting this error wen I`m trying to load the script: <me> .tcl source scripts/lol.tcl <@|EGG> Error: missing close-brace: possible unbalanced brace in comment - 41.84...

Later UPDATE: set dj(br) "Banned!" set dj(xb) 1 bind pub n|MASDTO !d s:day setudef flag djtools proc s:day {nick uhost hand chan text} { global botnick dj if {[channel get $chan djtools] && ![isbotnick $nick]} { if {[matchattr $hand n|MASDTO $chan] || [string tolower $chan]} { set ...

I would probably use something like this: if {![string is -strict integer $target] || $target >= 15 || $target <= 0} { good idea, but... it didn`t work :? I`ve used that code, and there is no reaction if the number is higher than 7 ( for user with OP Access) and 14 ( for user with Test OP Access) ....

In my opinion, the number of spaces/tabs per level is'nt that important, what is however, is using the same fashion all through the script, ie. add one space/tab for each level you descend, as illustrated by rosc. Also, I'm not sure those regular expressions you're using actually does what you inte...

UPDATE: I`ve closed the missing " } " form the foreach-loop and simplifyed the script for only 1 access flags... to make it a little easy for the script to work... so here is the code ( simplifyed ): set dj(br) "Banned!" set dj(xp) 1 bind pub n|MASDTO !day s:ban setudef flag djto...

ok, removed the "unbind`s".. now I`m getting this error.. (01:57:38) <me> .set errorInfo (01:57:38) <|EGG> [00:39] #me# set errorInfo (01:57:38) <|EGG> Currently: wrong # args: should be "foreach varList list ?varList list ...? command" (01:57:38) <|EGG> Currently: while compilin...

.set errorInfo? :?: :!: do you mean if I use this script ?! # .load scriptname.tcl bind dcc n|- load script:load proc script:load { handle idx text } { if { [catch { uplevel #0 [list source scripts/$text] } error] } { putlog "0,4Error while loading $text -- Errormsg: $error" putlog "...

ok, done the modifications, and here is the script.. set dj(br) "Banned!" set dj(xp) 1 bind pub n|MASDTO !day s:ban setudef flag djtools proc s:ban {nick uhost hand chan text} { global botnick dj if {[channel get $chan djtools] && ![isbotnick $nick]} { if {[matchattr $hand n|MASDTO...

Sir_Fz wrote:You can follow a patter like

Code: Select all

if {<is senior op>} {
 # give senior op privileges
} elseif {<is bla op>} {
 # give bla op privileges
} ...etc

never heard of this type of command ...let`s see

...

There's a post (by user) somewhere regarding obfuscated Tcl's; just do a forum search. Yes, I know, interesting post, but user points only "how to encrypt/obfuscate a tcl".... and NOT how to de-obfuscate/de-encrypt.. :? I`ve done a little research on google about obfuscating, and I`ve fou...

Old script? Probably no longer supported. I'd suggest searching the Tcl Archive for alternatives or if there are errors in the script, make an appropriate post. Are you sure you want me to post this script ?:) it`s encrypted ( by obfuscating ) ....so only if you or somebody else has the original ve...