egghelp/eggheads community

stdragon

Instead of

if {(a) || (b) == 0}

try

if {!(a) && !(b)}

stdragon

Well I didn't look at all of it, but right away I noticed this:

strcat(query,table);

You can't do that, there's no room in the query array for more data the way it's defined.

stdragon

if {[string range $t 2] == "-"} {

should be

if {[string index $t 2] == "-"} {

stdragon

Try unloading the dns module, that helped me. (find the line that says "loadmodule dns" and put a "#" at the beginning)

stdragon

You might want to make that first one "string range" instead of "string index"

stdragon

timer 1 {return topten}

That is awful... I think I know what happened hehe. The programmer wanted the procedure to pause for a minute and then return topten. I've seen people put if statements in timers too, because they wanted the proc to pause.

stdragon

Add this to the tcl file:

Code: Select all

proc putchan {chan text} {
  putserv "PRIVMSG $chan :$text"
  return 0
}

stdragon

Since you said the text file is several megabytes, I did some non-standard line selection code so that it doesn't need to know the number of lines or scan in the whole file. If you have 100k lines, finding the 50k'th line takes a while in tcl heh. So the end result is that it may be very slightly bi...

stdragon

Use regular expressions, and make the answer mask like this: (é|è|e)lise A rougher way of doing it is to substitute the non-accented letter for the accented one: # User's guess set guess "èlïse" regsub -all è|é|ê|ë $guess e guess regsub -all ì|í|î|ï $guess i guess regsub -all ò|ó|ô|õ|ö $gu...

stdragon

I didn't test this but it should work:

Code: Select all

bind pub - foo gotfoo
proc gotfoo {nick uhost hand chan text} {
  foreach person [chanlist $chan] {
    putserv "privmsg $person :bar"
  }
  return 0
}

stdragon

Ppslim is right about using , you should listen to his advice vxspiritxv. As to your second problem, you are right, eggdrop will only run it about once a second, because that is how eggdrop's event loop works. That also means that you can't use the 'after' command with a granularity of less than a s...

stdragon

I already wrote a script like that

http://home.dal.net/stdragon/eggdrop/hasidentified.tcl

It works like this..

Code: Select all

proc mycallback {nick ident} {
  if {$ident == 1} {
    # has identified
  } else {
    # hasn't identified
  }
}

hi_check stdragon mycallback

stdragon

Try reading the tcl manual at tcl.activestate.com or dev.scriptics.com

It explains all about procs.

stdragon

The problem with your examples is that in the first one, you wanted only the word that contains the trigger. In the second one, you wanted the trigger, plus the two preceding words. With the information you have given, the computer can't know whether to extract 1, 2, 3, or more words. So, you need t...

stdragon

Don't use list commands on a string (lindex $arg). Also, there's a reason they're called variable *names* and not variable numbers. Don't use confusing variable names like "1" and "2" that just makes the code harder to understand. More to the point at hand, you split $test up int...

Search found 963 matches