egghelp/eggheads community

Help with my old script Trivia 2000 please

2006-04-04T10:17:57-04:00

You're right, [stripcodes] has been introduced in eggdrop1.6.17 and it will not work on earlier version. If I were you, I wouldn't care about that - users should be using the latest eggdrop anyway. But you can resolve that issue by creating your own proc to strip codes.

Code:

proc stripcodes str { regsub -all {\003[0-9]{0,2}(,[0-9]{0,2})?} $str "" str set str [string map {"\017" "" "\037" "" "\002" "" "\026" "" "\006" "" "\007" ""} $str]}

Statistics: Posted by Sir_Fz — Tue Apr 04, 2006 10:17 am

Help with my old script Trivia 2000 please

2006-04-04T10:10:07-04:00

Resolved this issue and got it working in the end, thanks for your help Sir_Fz.

One further question someone may be able to answer for me. I've used the "stripcodes" command in this new code and on checking Eggdrop documentation this command was only introduced on Eggdrop 1.6.17. Am I right in thinking this will potentially break my script for early versions of Eggdrop, or will earlier versions just ignore that and carry on?

Or is there an alternative thats coded into all versions of Eggdrop?

Statistics: Posted by Ian-Highlander — Tue Apr 04, 2006 10:10 am

Help with my old script Trivia 2000 please

2006-04-01T07:45:18-04:00

Yeah I cant unbind the pubm * because it would then stop every other command working. I just need to be able to unbind the category selections or answers after they have been given so that no repeats or user clashes happen.

I had an idea kind of on the lines of what you where suggesting so am hoping to get some time to work on that. If I get stuck I'll be back.

Thanks

Statistics: Posted by Ian-Highlander — Sat Apr 01, 2006 7:45 am

Help with my old script Trivia 2000 please

2006-03-31T21:25:34-04:00

I'm not sure if I understood you very well; but if you mean you don't want to unbind the '*' pubm bind since it will stop listening to any command, what you can do is create a variable which is set to 1 when the commands are bound and 0 when unbound (you figure the whole logic of this).

Statistics: Posted by Sir_Fz — Fri Mar 31, 2006 9:25 pm

Help with my old script Trivia 2000 please

2006-03-31T09:40:59-04:00

Right, finally had enough time to do some work on this and with a great deal of swearing eventually got all the main commands to work using this code based on what Sir_Fz gave me above.

Code:

bind pubm -|- * strip_colour_codesproc strip_colour_codes {nick uhost handle channel args} {     set args [string tolower [string trim [stripcodes c $args] "{}" ]]        switch [string tolower [lindex [split $args] 0]] {"!help" {give_help $nick $uhost $handle $channel $args}"!trivia" {give_help $nick $uhost $handle $channel $args}"!score" {give_score $nick $uhost $handle $channel $args}"!choose" {give_choice $nick $uhost $handle $channel $args}"!start" {start_game_check $nick $uhost $handle $channel $args}"!hints" {hints_onoff $nick $uhost $handle $channel $args}"!answers" {give_answers $nick $uhost $handle $channel $args}"!announce" {quest_announce $nick $uhost $handle $channel $args}"!game" {game_onoff $nick $uhost $handle $channel $args}"!stop" {stop_game $nick $uhost $handle $channel $args}   }return 0}

The stumbling block that took me a while to get working was the second part of some commands and passing that correctly to the relevant procs that needed it (i.e. the command "!game on") but resolved that using the code above and a few minor edits to the relevant procs and all appears to be working great.

However I now find myself stuck again with the same problem but for some of the other binds in the script. I'll try to explain and hopefully someone can help with this because I'm going round in circles here.

The above commands are the games main control commands but there are several other places in the script where the bot has to "listen" for specific words in almost all of these situations the bot has to stop listening for those words the second someone has said it. For example when offering a choice of category, it has six binds listening, one for each category. The moment someone enters one of these words, the category is set and all six words are then unbound immediately. The code below is a snippet of the proc that creates the binds.

Code:

        putserv "PRIVMSG $chan :\002\003$copycol1\'Trivia 2000'\002 \003$copycol2\Version $triviaversion ©Ian-Highlander 2000-2006 started, please wait for a moment."        putserv "PRIVMSG $chan :\002\003$copycol1\'Trivia 2000'\002 \003$copycol2\Inspired by ^norma ------------------- ('I can't play word games')"        putserv "PRIVMSG $chan :\003$categcol1\Please select a category of questions to be answered"        putserv "PRIVMSG $chan :Current categories available are: \003$categcol2\Geography, Entertainment, History, Art & Literature, Science & Nature, Sport & Leisure, Queen"        putserv "PRIVMSG $chan :\003$choosecol\To choose a category simply type in the first word of that category."        bind pub -|- geography set_geog        bind pub -|- entertainment set_ent        bind pub -|- history set_his        bind pub -|- art set_art        bind pub -|- science set_sci        bind pub -|- sport set_sport        bind pub -|- queen set_queen}

There are then six seperate procs each of which are almost identical that look like this.

Code:

#Geography's been setproc set_geog {nick uhost handle channel args} {   global questfile geography gamechan quessetcol1 quessetcol2 quessetcol3        set chan $gamechan        set questfile $geography        putserv "PRIVMSG $chan :\003$quessetcol1\Questions set to \002\003$quessetcol2\ Geography\002 \003$quessetcol1\ by $nick enter\002\003$quessetcol3\ !start\002 \003$quessetcol1\ to play!"        unbind pub -|- geography set_geog        unbind pub -|- entertainment set_ent        unbind pub -|- history set_his        unbind pub -|- art set_art        unbind pub -|- science set_sci        unbind pub -|- sport set_sport        unbind pub -|- queen set_queen}

As you can see the minute the category is set, the bot sets the variable $questfile to $geography (specified in the user config at the top of the script) so that it knows which questions database to use, it then immediately unbinds all the words it was listening for to stop anyone else being able to choose too and stop any confusion.

My problem is this, if as Sir_Fz says, I cant strip the colour codes from the binds and the only way round it is to wildcard the binds then how can I achieve this? I tried re-writing the entire section with a wildcarded bind "switching" the correct trigger words to the right procs and I can get it working but as I did a wildcard bind, there is no way of unbinding the words. The same problem occurs when answers are given, as soon as a correct answer is given the bot reacts to it and unbinds it so that it wont react to anyone else giving that answer.

I'm tearing my hair out here guys, any help would be massively appreciated.

Ian

Statistics: Posted by Ian-Highlander — Fri Mar 31, 2006 9:40 am

Help with my old script Trivia 2000 please

2006-03-23T13:53:47-04:00

Thanks Sir_Fz, hopefully that will point me in the right direction.

Statistics: Posted by Ian-Highlander — Thu Mar 23, 2006 1:53 pm

Help with my old script Trivia 2000 please

2006-03-23T13:35:09-04:00

You can't do that, you'll have to edit the eggdrop source in order to do that. What you can do is bind to * and call the other procs from there if the stripped-text matches. Example:

Code:

bind pubm - * call:othersproc call:others {nick uhost hand chan arg} { set arg [stripcodes  $arg] switch [string tolower [lindex [split $arg] 0]] {  "!trivia" {   trivia:proc $nick $uhost $hand $chan $arg  }  default {   return 0  } }}

Statistics: Posted by Sir_Fz — Thu Mar 23, 2006 1:35 pm

Help with my old script Trivia 2000 please

2006-03-23T07:38:11-04:00

The old rust is cracking off slowly and various bits and bobs are coming back to me or I'm working them out the hard way.

BUT.... it's always the relatively simple things that keep foxing me and I need some help with one of the other small things on my current "bugfix" list for Trivia 2000.

I have Trivia 2000 (and a couple of my other scripts) running on some bots in a chat room where a lot of users use coloured text. The bots dont respond to the binds from users using colour, the second they switch to black text it works fine. I dont want to wildcard the binds, that could have other adverse effects.

How can I get the bot to strip off the colour codes from what is typed in and react to the correct commands or answers regardless of the colour they where typed in without wild carding the whole bind?

Can anyone help?

Statistics: Posted by Ian-Highlander — Thu Mar 23, 2006 7:38 am

Help with my old script Trivia 2000 please

2005-08-08T18:35:49-04:00

See?? Thats exactly why I come here for help

You just fixed in two seconds flat what I've been working on for four hours trying to get working.

Thankyou once again, I definitely owe you a drink finally it all works as it should (so far).

Statistics: Posted by Ian-Highlander — Mon Aug 08, 2005 6:35 pm

Help with my old script Trivia 2000 please

2005-08-08T18:28:48-04:00

String match should do the job

Code:

# Kill all  timers. proc kill_timers {} {  global chan  foreach j [utimers] {   if {[string match -nocase "no_answer *" [lindex $j 1]]} {    killutimer [lindex $j 2]   }  }  }

Statistics: Posted by Sir_Fz — Mon Aug 08, 2005 6:28 pm

Help with my old script Trivia 2000 please

2005-08-08T18:22:00-04:00

Yup, already read through that many times and tried some of it to catch the timer but like I say, its silly things like this that I'm really really rusty on as evidenced by the silly requests I've made so far for help whilst being able to code some otherwise fairly complex stuff without issues.

I guess if thats your answer then once again I'll thankyou for your help it is appreciated (and I really really mean that) and continue to bang my head against my desk for a few more hours trying to work it the hell out (or you could be really really kind again and put me out of my misery )

Statistics: Posted by Ian-Highlander — Mon Aug 08, 2005 6:22 pm

Help with my old script Trivia 2000 please

2005-08-08T18:18:56-04:00

See this thread.

Statistics: Posted by Sir_Fz — Mon Aug 08, 2005 6:18 pm

Help with my old script Trivia 2000 please

2005-08-08T17:07:12-04:00

Ok, that's worked apart from one silly thing that for some reason I cant find. The kill_timers proc no longer works and as a result the game isnt being stopped correctly and causing all sorts of weird things to happen.

I've proved this after a lot of chasing my own tail round and round by a few additional debugs to list the timers that are running before and after and they're the same.

The code above solved my last problem but has caused this one an example of what the utimer is now listed as when the game is running is:

Code:

12 {no_answer Ian-Highlander Highlander@highlander.HighlandFox.com Ian-H #Scotland} timer17

My normal code to kill "all" timers (there is only ever one) is:

Code:

# Kill all  timers.proc kill_timers {} {   global chan   foreach j [utimers] {     if {[lindex $j 1] == "no_answer"} {        killutimer [lindex $j 2]     }   }   return 0}

But because of the above, this no longer catches the timer. I've proved this by using:

Code:

# Kill all  timers.proc kill_timers {} {   global chan   foreach j [utimers] {     if {[lindex $j 1] != ""} {        killutimer [lindex $j 2]     }   }   return 0}

Which obviously catches every possible utimer and that works perfectly the script behaves exactly as it's supposed to, but of course I cant have my script killing every single utimer on someone's bot every time they run it, fun as that might be lol

I'm fairly sure it's back to my old favourites of splitting lists and indexes but I cant see where. God I'm rusty at this

Any help again? Sorry I hope this will be the last time (although not guaranteeing it), dunno where I'd be without this forum here

Statistics: Posted by Ian-Highlander — Mon Aug 08, 2005 5:07 pm

Help with my old script Trivia 2000 please

2005-08-08T12:51:19-04:00

Using braces instead of

will not return the values of the variables inside the braces, so use what demond suggested:
Code:
```
utimer 25 [list no_answer $nick $uhost $handle $channel]
```

Statistics: Posted by Sir_Fz — Mon Aug 08, 2005 12:51 pm

Help with my old script Trivia 2000 please

2005-08-08T12:14:25-04:00

generally, you have 2 options: either use global variables to save what you will need in other procs (for example, the channel), or pass the necessary info as parameters, in which case for [utimer] you need to use:
Code:
utimer 25 [list no_answer $nick $uhost $handle $channel]

Ahhhhhhhhhhhhhhhhhhhhhhh, that could be exactly what I was looking for, I'd tried

Code:

utimer 25 no_answer $nick $uhost $handle $channel

as a last ditch effort without the braces which quite rightly failed but if enclosing them in braces as a list works, that should hopefully solve my problem. I'll be back later

Statistics: Posted by Ian-Highlander — Mon Aug 08, 2005 12:14 pm