egghelp/eggheads community

english Scramble script

2003-06-08T01:55:19-04:00

Although the thread has taken a different direction, there is decent scramble script called
wordgame, by murf. It can be found among the tcl scripts on www.egghelp.org. It comes with 500 preset words, but more are easily added.

dun_dacil

Statistics: Posted by dun_dacil — Sun Jun 08, 2003 1:55 am

english Scramble script

2003-06-06T05:28:54-04:00

well guys sorry if am pain in the neck well
how to make it run hmmmmm
like !start it goes on playing untill some1 types !stop how??

Statistics: Posted by KrE80r — Fri Jun 06, 2003 5:28 am

english Scramble script

2003-06-06T01:55:20-04:00

Don't expect on me starting to work like a crazy monkey on it.. As stdragon said/sugested this is starting to look more like a trivia game or something.

Statistics: Posted by caesar — Fri Jun 06, 2003 1:55 am

english Scramble script

2003-06-05T22:08:52-04:00

I see what you mean... wow that's completely different from your original post. You're better off getting a trivia script.

Statistics: Posted by stdragon — Thu Jun 05, 2003 10:08 pm

english Scramble script

2003-06-05T21:32:04-04:00

well man infact i cant do it myself i mean !top10 iam not that good in tcl
i was asking if any1 can add it 2 me and about hthe hint system i meant
example:
Who Won World cup in the year 2002?
Scrambled Answer: r a z b i l

brazil
Coreect Answer USER u get ! point u now have 10 points ur rank is 1st on 121 users

and also i dont know how to add a utimer man if am annoying u pls tell me

c what i mean???

Statistics: Posted by KrE80r — Thu Jun 05, 2003 9:32 pm

english Scramble script

2003-06-05T21:27:38-04:00

To have it play continuously, get rid of the pub bind, and add either a utimer or a time bind.

Statistics: Posted by stdragon — Thu Jun 05, 2003 9:27 pm

english Scramble script

2003-06-05T21:21:14-04:00

To add a hint system, create a pub bind, and have it keep track of how many hints have been requested, then have it display part of the answer. Change it to store the word in a global var rather than doing that bind.

To do a top 10, you will need to come up with some code to add points to people when they get one. You could do it by creating a new eggdrop user for each person, or handle it yourself in a tcl hash array (by nickname). This way is harder because you need to do all the file management yourself.

It's nice that you asked how to do it rather than asking for someone to do it for you :)

Statistics: Posted by stdragon — Thu Jun 05, 2003 9:21 pm

english Scramble script

2003-06-05T21:19:59-04:00

well also stupid me how to make it beside hte hints play continusely froma file and i dont have to type scramble to get each word???

Statistics: Posted by KrE80r — Thu Jun 05, 2003 9:19 pm

english Scramble script

2003-06-05T21:14:03-04:00

well hi its great scramble game man what about if i need to add a hint system and points 4 people who answer coreect like the trivia game
an !top10 command how do i do so?

Statistics: Posted by KrE80r — Thu Jun 05, 2003 9:14 pm

english Scramble script

2003-05-20T06:37:57-04:00

Code:

# From what file are the words that will be scrambed?set scramblefile "scramble.txt"# How many seconds to play a scrambled word?set ssecs 60# Show the answer if nobody got the answer?# 0 for NO and 1 for YES.set sanswer 0### Done with configurations, do not edit past here unless you know TCL. #### binds #bind pub o !scramble pub:scramble# messages #set scongrats {  "Well done"  "Nice going"  "Way to go"  "You got it"  "That's the way"  "Show 'em how it's done"  "Check out the big brain on"}set snonegotit {  "Nobody got it right."  "Hello? Anybody home?"  "You're going to have to try harder!"  "Are these too tough for you?"  "Am I alone here or what?"}# scramble #proc pub:scramble {nick uhost hand chan text} {  if {![file exists $::scramblefile]} {    putserv "PRIVMSG $chan :\002Error\002: $::scramblefile dose not exist."    return  }  set sstarted 0  foreach bla [utimers] {    if {[string match "nobody:gotit*" [lindex $bla 1]]} {      set sstarted 1    }  }  if {$sstarted == 1} {    putserv "PRIVMSG $chan :HEY! One word at a time!"    return  }  set file [open "$::scramblefile" r]   set data [split [read $file] "\n"]  close $file  set word [lindex $data [rand [llength $data]]]  putserv "PRIVMSG $chan :[scramble $word]"  # stuff #  bind pub - $word pub:gotit  utimer $::ssecs [list nobody:gotit $word $chan]}# got it! #proc pub:gotit {nick uhost hand chan text} {  putserv "PRIVMSG $chan :[lindex $::scongrats [rand [llength $::scongrats]]] $nick.."  # clean #  foreach bla [utimers] {    if {[string match "nobody:gotit*" [lindex $bla 1]]} {      killutimer [lindex $bla 2]    }  }  unbind pub - $::lastbind pub:gotit}# loosers! #proc nobody:gotit {word chan} {  if {$::sanswer == 1} {    putserv "PRIVMSG $chan :The answer was \002$word\002.. [lindex $::snonegotit [rand [llength $::snonegotit]]]"    unbind pub - $word pub:gotit    return  }  putserv "PRIVMSG $chan :[lindex $::snonegotit [rand [llength $::snonegotit]]]"  unbind pub - $word pub:gotit}# scramble proc by stdragon @ forum.egghelp.orgproc scramble {word} {   set letters [split $word ""]   set newword ""   while {[llength $letters]} {     set i [rand [llength $letters]]     append newword [lindex $letters $i]     set letters [lreplace $letters $i $i]   }   return $newword }

Statistics: Posted by caesar — Tue May 20, 2003 6:37 am

english Scramble script

2003-05-17T22:06:10-04:00

hi . iam looking for english scramble game for eggdrop , i looked alot for it and i cant find anyone but Nerfbendr'sTriviabot and its not good one
and its at the first trivia game .
so if anyone can help me get this scramble script ill be greatfull and if he need anything for it please say
thanx

Statistics: Posted by Guest — Sat May 17, 2003 10:06 pm