egghelp/eggheads community

why wont it work?

2003-01-12T15:07:34-04:00

thanks ppslim after talking to ya on the chan ya got me sorted with the right way to do subst and its working wonderfull. Thanks

Statistics: Posted by Guest — Sun Jan 12, 2003 3:07 pm

why wont it work?

2003-01-12T09:17:01-04:00

First off, Tcl doesn't function as simple as this, hwoever, it's prety sinple to get around.

Second, from looking at your code, it would be impossible for it to function the way you think you would want it.

Look at the line that sends the output. You are sending the variable $admsgs and not the one you did a lookup on.

Your script is sending exactly what you have told it to. If, for example, it picked the one your pasted as an example, it would output this as is. You need to force a substitution in this case. The "subst" command will help you with this.

As for it being slow. Try correcting the above error, and it may help. However, speed can deped on many thigns. Lag between you and th server, lagg between the bot and the server, both in combination. On top, eggdrop uses a otuput queue system, so that it isn't flooded off, when large amounts of text or commands need sending. You simply have to wait for this to go down.

Statistics: Posted by ppslim — Sun Jan 12, 2003 9:17 am

why wont it work?

2003-01-12T03:22:59-04:00

What its doing wrong

[00:09:49] !aa poop
[00:09:51] Got $adword?3

That should be like: Got Poop?3
But its not its still keeping the $adword...

It also does it kinda slow...

Any help would be great...

this is my code:

## The Character to trigger the trigger
set adword(cmdchar) "!"

## The Trigger
set adtrig "aa"

## Catch the trigger being pulled in the chat room
bind pub - [string trim $adword(cmdchar)]$adtrig ad_socket

proc ad_socket {nick uhost hand chan text} {

set adword [split $text]

set admsgs {
{Got $adword?}
{Got $adword?3}
{Got $adword?4}
{Got $adword?6}
{Got $adword?7}
}

set outmsg [lindex $admsgs [rand [llength $admsgs]]]

putserv "privmsg $chan :$admsgs"

}

Statistics: Posted by Guest — Sun Jan 12, 2003 3:22 am