Script Library home

  Find scripts   Help
  Go to script:

New and updated
Popular scripts
 Discussions
 Scripts with documentation
 First time here?
 Terms
Tag indexApplications
 Demos · Games
 Tools
 How-to · FAQ
 Tutorials · Idioms
Code
 1-liners · Functions
 Modules · Internet
 CGI · FTP
 Mail · UI / GUI
 Database · Files
 Text · Markup
 HTML · Protocols
 Dialects · Math
 Games · Patches
 Packages

All scriptsBeginner
Intermediate
Advanced
Recent searches
Download: desktop
AccessibilityAbout / FAQ
Member's loungeContact/FeedbackOther REBOL links
Membership:
member name

password

Remember?

Not a member? Please join
30-Dec 16:16 UTC
[0.043] 30.308k
Script Library: 1241 scripts
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 
<<Previous · Next>>  |
View scriptLicenseDownload scriptHistoryOther scripts by: notchent

Archive version of: jeopardy.r ... version: 2 ... notchent 3-Oct-2009

REBOL [
    title: "Jeopardy"
    date: 3-oct-2009
    file: %jeopardy.r
    purpose: {
        A GUI game reminiscent of the popular TV show.  Click on the header image
        to create and save config files which contain questions and answers to
        separate games.
        Taken from the tutorial at http://musiclessonz.com/rebol.html
    }
] 

config: {

    REBOL []

	;________________________________________________________________
	
	sizer: 4
	
	Category-1: "Category 1" 
	Category-2: "Category 2" 
	Category-3: "Category 3" 
	Category-4: "Category 4" 
	Category-5: "Category 5"
	
	answers: [
	    "$100 Answer, Category 1" 
	    "$100 Answer, Category 2" 
	    "$100 Answer, Category 3" 
	    "$100 Answer, Category 4" 
	    "$100 Answer, Category 5" 
	    "$200 Answer, Category 1" 
	    "$200 Answer, Category 2" 
	    "$200 Answer, Category 3" 
	    "$200 Answer, Category 4" 
	    "$200 Answer, Category 5" 
	    "$300 Answer, Category 1" 
	    "$300 Answer, Category 2" 
	    "$300 Answer, Category 3" 
	    "$300 Answer, Category 4" 
	    "$300 Answer, Category 5" 
	    "$400 Answer, Category 1" 
	    "$400 Answer, Category 2" 
	    "$400 Answer, Category 3" 
	    "$400 Answer, Category 4" 
	    "$400 Answer, Category 5" 
	    "$500 Answer, Category 1" 
	    "$500 Answer, Category 2" 
	    "$500 Answer, Category 3" 
	    "$500 Answer, Category 4" 
	    "$500 Answer, Category 5" 
	]
	questions: [
	    "$100 Question, Category 1" 
	    "$100 Question, Category 2" 
	    "$100 Question, Category 3" 
	    "$100 Question, Category 4" 
	    "$100 Question, Category 5" 
	    "$200 Question, Category 1" 
	    "$200 Question, Category 2" 
	    "$200 Question, Category 3" 
	    "$200 Question, Category 4" 
	    "$200 Question, Category 5" 
	    "$300 Question, Category 1" 
	    "$300 Question, Category 2" 
	    "$300 Question, Category 3" 
	    "$300 Question, Category 4" 
	    "$300 Question, Category 5" 
	    "$400 Question, Category 1" 
	    "$400 Question, Category 2" 
	    "$400 Question, Category 3" 
	    "$400 Question, Category 4" 
	    "$400 Question, Category 5" 
	    "$500 Question, Category 1" 
	    "$500 Question, Category 2" 
	    "$500 Question, Category 3" 
	    "$500 Question, Category 4" 
	    "$500 Question, Category 5" 
	]
	
	;________________________________________________________________
	
}

do config

header: load to-binary decompress 64#{
eJyVd2VMHAyw7eIs7locCou7O0UWd5fiujh8uENxKGVxh8WKy+JSrHiLFqe4O8Up
tzcveXl/35k/k5zJSDKZnHlbevsNwFNWACsAEBAQAEr/DPC2CpADoCKjoKIgo6Ki
oKKhoaJj4GFgAIEYRDi4WHikRGRkpEQkJBRUTDQUlAzvSEho2WkZ3jODWEHkNBzc
HCzcTCwglv9NgoCGhoaBjkGIgUHIQkFCwfL/jbd+AD46wBSBHgmBHoCIj4CEj/A2
BHgHACAiIv3r9v8CFQ0FHYCIjPS/rDYeAOGfi4KEgokGREX7xyIgIgGQUfBRCejQ
0Al5ZOi1LIl4ZT2aiBm0rTzDPxc3fpshIWV8zxdxySQgKKdj7ZU2y8wvpPtlS97G
O7Jk4OpfTgoEwL96/29FJGQURARUwD+OHf9fN4gISP+A8n8CEBD/0fgEKHQ8hEQy
jFoe9PyWxAy8fOGXbysALCSEf4Mg4QOkANTpTh/BMd8snUbl086d71p2reEhCv6T
7FdymEL5HUDUu4m7UNKwJH5yGap12gwDrl2G7yyMGswq3mPU00Pe7va5VeFntAt0
grn7mX5+RJ5JWC39Uk1eKo7p10/0MnfZ2mAWjanaFmrum/W7QmYhucpH3a9cgG0X
U2mD0pt+z6fw7xS2NwL63B0tWOD5JQ9eXptiR3oz0ZeDCuHtz4yHZc7ugH31gnZf
N1ImNvWK2e4Is2w94dZojvRdwYbzcEj0Fv92fN7kutZjJmPZdTIuub7x1ClOd5FK
fjVK5xnQVbAG2E6q4UK+7DUvvEkryvYLn/CbrKe1vEVsXcF7TocBIkzc3Q4zEV9k
P5Fw97l4Jm9/bY2hML1FLSCTNVpFG5WrjhgBhxWW6lbXJSsJ8vPPnwFbv+DdPPIl
lkfgeJsE3rpqGzpl6X0M9ULN8NeYrQwepLk5YlqqdEegIjog71j0WD5RwF5b8ev8
zgrHaXy72bDNnLroTxG1EThQdESZ/xjv51bNu/HZDXxn9cnL7J4jcOPfP6GJToKW
UYp/icTeAC59I8R/G81bhwYL8nYfocZNBrvpvxtkI5lbnS1arFgIfGLOV91nuddO
c6qG0Ss6VyIh6XS2yJSffTBXtZC7qL75BRJ83D84vgZmZXPWioyx/KTiByNSmsPM
fDAxHsNdFOx/YylsvQy0MnJMfXMN/X61KKGbKXfMhKG3eeCaM1zhbNsuUaG9450K
LVvDu7592rFufsdIpARDrAuFW0iVE0tY9ZrMxJjnf6RgVC5Za5o9NJxUqJgSPaFq
NopG/Yhsi2rZ5ILeJ/nAsLJB7YVmpasyPgkdUy3qXLSb8T6p9vdOglso/EeqQeE8
HcU3pJJcQycSgSbmeBxTM/6+0bdPFVAEC8fN6ia9+rOZHkwqgT6nJjL8PX35nDTT
kYXI32fJ+BzrWEoknKP8dCPzUUJIs6TBZn/PWKfDSF+3/XMVsmdPeAtK57qrcDR3
RXmH2JrsD8xJYqJDE2eZayu6IdETGLpMY6f33MEBVevj/VqhBobtPHPEegSVFDIV
ZJpdf+iwZWwNiYFPhIGLhxfGxVcvSNLqm8Lrk9RrNFJrlhmYJ7y2OXdpG1w6ITrz
H58Tgmr1U+TPIQbtZkxll4kKFf+Ky4SBBYqsX6dH15WPHIzBM8edQTmpJrrNKMiG
FTHslvwn8mQNFjzhcy15/7FsfckGmH1SrEWWQaHP1swuE1wryxsajAuqhMHnm1Ba
fsr4rnNPSeFug+wZmVbtzH1QbBvH2Eh7op82sO7tISywhdP0lCC3VKQZbpfkEvNG
BzzQp6MlBB5FtsgrhmmQQrQW4g6no0+SpN+x+XSjzolyTqlqWZBNuFvZcA9AAR/Y
ZtiQ5IGfcjTWxwu1WtGZPx5fLsDI9KZjpl/VFK/1qAhyi7wsO2cv8NSOh+cHt9ib
OxcxCbX+obERb4uF2vJ3upxrjahUO93NlyWsHuFRdflaTGDEKp0+gtoeh/gMdBo0
lQu27U7ld/scSe4mnZYcj/yrc2cfibOQW5STzo7DA7DZDa5cWvHFwbaTwiacVbRR
N0KIT9cJlK2voFkLDvNJekFvxQPPdPk+1+BIzJlMyNopczfbNkzvMHhr2Nlq9rZT
p1l9Yd2bMUwzQ1akEifgfkh9uiEvfYPNFypKdPrZURnuzPJ544OEx0+atJtgAfkf
F7H6LmNG8KQ3QFO7zE29V7mD93BVYLiYYG7zqYD8wF8d9XKmjtRjnSFOjg+RgYdq
xfgm6cpEy5lGNvdMINqXXfnSVeFeHKkd5ov4CTMZupYyRNfA4m7Ms6YN9u8W2RPV
MkYfe3ZFjb1Yuicy24ZfGBiqEIzkZxfO1hjomr6+ARKTpnrnionGDHKm1yZg4ueG
Uh5xzQycI5j+mcx4XKJfViCOt2K19x/eZcl8QZLmrTQf3Ar4+5BV2MSdOIASq7vt
0/AgiRxb/TJRucdjQNMSw5ZJ3qzGG4Sot35t+QboSkutptKJkQ3zFw2Tf5YsJi6/
p7IaPv8eOnZcoRGisUwoOuVSRGBNhoXdiejY3SUzhiGxGAVow54PQvZ3HUDyXtnx
T6sPka0ToHbxdmMZXy+fHZDtPkAZAMMjxIWsZT4keTAxBl6LJATwSPQ5dKVwU/8m
u8QvqBx9JiydMekmUG4oy6gCqJXljY+LL/gN6Z/9xoCYtETj7fw3XlQ8+pB1uvHB
AlXZ1OK25fahOjb41xsg96vsG2BR6DQLNvTMHZoFjQoMY5hUUBwdza08VXTj3cTv
ROSzRXE9CfSm5tbqeiLYAECAhuYGa6Sorx+FAsJUDN1xY/68AcZpc32vXADeDLcV
Ii8zMt/u4kOzcvFPUrqdFQdrglNimBWZPDZ8oH3xlWowadz33kuVjF5UV3Nd4qWJ
i6zj5qrhUcnjA619UX4X3LnbxziZr+TTVq+KUSrnC1xQn++x8NoyB0W5DWQjezcb
0m2NBqTUxkPUz4NmNqpazMua7SaYGvVN1l1l/pPMfDjMPcjBWu+Aslq645nsXi15
lSq+2jXyLQkmDem7y5MRsmlfQd+8c58UWEsh7VPqlbPxyWBYhQYKPslXS9KXjfFo
RPaTvIvLROMf7B5zHgCZ8ffcO1spjTH03/f+24gGEwcQz2sLOzOeuFoxCznqOFXo
q6jbIyx+p5cg3ERanX8DiGi+AQa9KmLjan8pXpvZvAECUmwGt0IyQydRPj3HM0wq
DpKPcw/gXYG73W6t5N4AOmshwLDa1fnlEZ0tkLZGmhcr6mvj7E/nbodXo4pU4Ctz
idthFup6vaq1pIi57tHzAGVxaNMIxtxfqayZVeYbU+hUl9OdJV1zQ+F0EpO+64t1
7dR0DJWJCxN/Nr1Ui4HKE3f68iiz462PU/DDtUZ4SqPiYcjNyRugn2bfCLso9MOB
z3GKi+xXO5or/C5qCCdFrtwc+g8/m7soENyobibN5zVtSyrLY5sb/jNURy/07PP9
sPkQq0UPcucxSnKskaoxdkvux2Gv1yaRoCtD51Gd6K90H45F5CXTq3/9rcSKCCaZ
j0JZDe2eDF0w2CGnLlB9A9ypvwEyeEE5x5vh4gfMaZXVTZSjNlrpiGJsBubu0pPz
LXe4WaxQFmpd7MhP5j/CuMnTCzJb8HXWtrYU488BORQhF+48srtznIkLnOArBlNX
TZg8dk2qCNO6f1BW8PkSAUvrx7CiAl50DNHkH5WydAOpke5q4W2SWzu4wauj96x1
qGGiSVK+DH/sGAGqXmjmNXP+oCg+NRjTyPxv7TVBZG+kbrLLdehuD7PZVlExwv4t
I2FQL0DBjV+j4zY4mFnyG7VY7RtAyCBFXSzg7+n7Y4mSrB2aSkRxan84JZu/oyya
AMtS8HvhYacctaiXKok13Q1isSHJo3tUHR7e827lldbZEvR90ZXL6Hwrk3U0ghgT
IJtebE903GXyjvf3HqRIYIhGWWCcJfyZj0Esas9YddzUAMqskP4Fgj22yNDmAIEf
tUbMpheZutzVhih24qs2zOkAOZCZjM3Ak6IBxTddkNfpr6b7Z3C3eo+LyD1tj6vo
wE2/2v9qf0UwZOX+p4AUHDKqegEyLEyFzcJs7DagTpbOOjBYOshIuqH9V43dmQ/4
6FheK265bd/Ecv7yYZq4ijZJfho+y/xOnyihl2HKHYdw3/1CMmN+g5qzShqlZ3/l
r0NE0kZq+m88E+141cEoOxLx387+ZVWQnwS5uVXnBg8MncD7YBQxSUfWfRp3zzZD
iU9HuqHczPdIV+SsHiAJGAASSEijLfvFXYbqylRw8QtPq6N+HoZHI/tCKphBu+sI
LbdX166Ce+iET4NjV0UNBG+urIRJ/JKgsyurRvv0B02Sm8Yf+u/6F3NclhS+9/wm
cY9n0BVgZIZYwT1hS6cRlaahWfjcb3cbsVQeVeRzbS/6ECux3pNMguxh47Q7u/AH
AddYIKbCw/e1H7+yTXM9MkHZbQNCSaUdWEts77f868A3n4O2bdHWpiyyyoElCjbg
/3S2yC4IyNO9wy7r3b6p1T7C0O9M5biX5QJ/wAmxlnkDGJBrOU83MiQ2IndAnLTt
83rSP7suPFWMsI8MvJPrkoTqWIK76kwJg738EIgHndRA+eXbRFWS3tMex/RXVm2h
v+x5ezlF7obZ+yWanEB91W+A1L92xSDW7mY+9qav5hOGqJuqAQ03XlifjDxwBOuU
ZZBpSlhHVlYgrw1qdIuzZUCxpYRj/PJCcb57F1Z1nGynYY4S66ZcQ8wyc6acWHOt
phVXbsUAeSaBeFQP73R2PAkr5nuHcVBrYtw4H9z/y2HBJT1agI4TDElDPtQhbn35
T/nCj+9uy5Lco68tVIWnhgt1VsoCmPTOxCAwfaP3p3wgY9DVjszwPJYM9w6RcXf6
yVTiuBxOdCXOMzr4QublDDz3BA3o6N+/CFdaIWpfADTsjZQ8BZSCEqlL7V40atsX
+4N35Px2nuppAx41Qoe5KbsiLhLsTtPLrwOWjF+LUVeHy/4qg6kj7OvHuHG7IpRG
CG2QMsdw4HM/8MdDF+f0CyYeE9U6vnIQfLjvVHwDEAIlclU7eypnKbW/DOJS8WI+
lt20bs20QW2KRv26g7OUT2dYXw61oKlRV60S4nOUQ4DSizORVCWZxwwTh8IZ4MX6
3RAIrl7iG/s5WFglpncWSMYblBJ3FqtzmkrYgqc0F9VjSZPVf0Vm4vA3huvFRt6m
finGteyGweR1xl7wRzmWxcPo83azAeW24FLr8DR8j0jUtSfkUshtFqJU1rChtazI
RTZ6L6eCrjQxN8ALgpr9kNpQKg/x4TByMs5vSoo9sELzVlPlMfLCZZ9QlizqSIgg
7xkxt1bXIlorlkUc0E4lnsS/DH9Q4EjGUVYnguF9rmnC5QzOmjZ3KO8XPueLk2nr
4M1VU9NQaYcXgiHfipVXASnVNGJN3RVVejBh1zpRLlgPmclZDvjeN1qHveRoksva
7YMcqe/7PKt8U8j8nqZ/V8LmDE9y+fhtafJq7oiCajLj9Nl2TY4ajw1t6vYX2zD/
8A0sj/OfsmUn1U0yO0LuAKSpy+SpndTrQ+9z1I919K2o62iJ7ueTn/CZzXD9X/Qv
al/JwN9naxxT5oFi8E7xlzdAh44nr50jFvsnRG0izX+/bhsHHaYEuJ78V7zDxech
vVomWF0Q/e95+z3H2Rf/xxjYcrv6f7oEXD/N6aXY3We9BTp9Ll47FTcph344kcoI
AT8nc0j6sLI/sXqKEIvR2n4TBHsaMhK64eOcLVvozBIXtRQZjfSPp0oQrr9bDajR
YUvP8SIyOjJqS7tOL2v4rYW4gSoqZJvha67QRA1Gbl/+VW8z6J+R0Cgf5TD0tWKm
m0WMUG3fQgf7ZxNda5r5jCPGYdamrwFmk0ArCF25vXIGBDwMLIXspj7lFrOatbJE
/Jk6RY27SumCw+YnFh+Oxkt2fNUuYImsPqdRVj/WavY2Amy1DweHOeBN+n+aS7mp
PiN3datyWiMQszPSgNwB6VHhleH5h7YF2QpUctjQr2LfNdJoM/+L+8+2gU7lkEUr
x331MLy3pyQbvtlOEwtqrWZytXe8nksj6ojLpmGGsPlgEYfbsm7/pvSi0TAUWsqn
KFYcvImpYmUyzcrRiXUpYzLyBqRKaOoZDOtSiB/bHLf6k4NhjOz8N2Oy8eAGQQl+
qQ8K9Q4PAoD9ofkkqRulF0sv5053pBYpFNzJrNwNo9Os46hkSmVUtSnd1NIDnAcn
F3BDUqESCxNQJ954Wnd1ljtx5dXtuo2qUUzN0bkCPHFp5JdXPKs23ulIgmsLQXVH
eeeFkjdocsM4SI6ULAq6QUQXunvA52tVJU5gfVapmq+69XxJSGpZVcdbqUP0OZjQ
wYFkKP2Yc5cX1a75/mVaEN0kwHFFcK+C5ThnpN1O3+MRHL8n0ZFBYuJT8uRFJ1cS
fSuJz6NSObbARMinlu1kZ5qGlMQCYkwOKnbmsKsBUdPJO//IeB6vgiPHSdTqzxJE
o2mOj2kjtNnDvn0qH4DmAlTyqjR629lzTaYvEQlNQjP8IBobq20Ueq3md+2oI++6
MGXnmh8/dm3GH7RYdk1fpZ9j/d35K81R/nsSrLVis6CeqaZzrQJFx4lmnh6zLJa4
DGw0FdMdbDdbPHFU8fLCyfQDIW0MhzXCMyOqM96XaB+Ip5XqpUGz4a6E9UwYbcGJ
SmA1HgnWtcnc0QCzb97Cy526Yt+ikpIG4/AjSjP2vDeqg8udW1C1G/fEBdjfr6xs
b1o+0ab4Mq8FyLYO64169DUMbLqRBfidSRx1LH+yEx7DhMrOI2onh+H8dsNKWmbK
t1JoeacW7tHlHBJDzfI1ruc+rKVQ70PcBkSeuJPn3YPysxXzxzoOwz/J9IvBW74Y
rM8cBKtTjDkLDH1RX52vSkg/1hLtPHpihH7sCreeW7TmTyl3nCy81pi0cSNT+jab
gfhXVwIqTX3mJtxtKw7lkKfXXDnIdJHZuLoXFtVeMXfwC2CNuhvnwWiIYVF9mXDU
/TLK3ukVVlaWj1PRHewuHjCh+xQ16kpLeJ9B4yRsZU84Q2GlVJE8Ee6ovPBRvsYy
MFzQxAy2/UiRBNauSs8QmTYAagk2ADxPsIyCyyyFxuV8qqyaxCdyX0mSc+xEB/WM
EzyJnrqbb5JNmcq+tpQ6pyJzYhbRAkv0+ikLBTMgEU7v1yIkijEgSbk7P0M7TQXu
8svRqkykEYMbgVT5izAHw6J5Zt2iAUpNLbU6LkRqVZYrylwnmqqE2b8vsV+XwhJa
K4LEfFNaAqhCcbJBxF0jnExmDQCSxy0mowmewd+1rSaFLvLmWdGuqymxvXL1JYOe
tAhu/AoK20a++5uvMuREmAYdB/xzx6S2RdFsWQmwcCLSyMpjmuvRveP4UCG1DCsj
9XIPJxBymDH93eP22um6vCFBbOnkeNGrltTXptxA5Xxu/J7xG7h4JLWecrp/MvyW
8PfHZ99oJJD5xET8r2YaQWiz8bA1gZqu41ZbTlabDSVIFKF29PwIeZX8W/ODumxR
dcEHMcFtXUrlZqKoBCeFzMcdcv3S+XBVCYeB6yHfSMqpwp8sm6DBP+gH6zYbing4
B6t31n3+75c8c5W4usufXQEEiUNrOJnJakuaK0xXAFsnY+FaPBgz6EZDJWsvKlAg
n+FYcdv7Au94aIPqn4bySC/h+KUW0gwk321hzp8UwNTPXylEb+oy+dbsl8+/HIey
fiQE5HBcRV2rhw0Xm/E0uSi8DORjt6fqlqbWSqgX5EnNXTvVFQEBk7awZO9GF2Eh
+S/WoV0LuGarHOcQQ8ZcezeNrIEfJB+PTlkmCInDdtQ6aypBTXXSeyXFmV3OiXWy
deTGi0hJa1WCvVH3WQfatgFyzB4kI4p1W6PqEodEH3owhpLM945Vg9f9NpTbqpjj
k0NKUbuM+1Osjcj5xyeL47L1CPJ+p1eyyQUGlAoqhlt841+GH7w3CbGz7YeRhI+n
ooT9MvywaTREfNHtc2ydSrON7saZTuIg34+O8V+h+uglN7jrEdzPsceYLJYfFCyL
eg/VccwsIc0ow5pOKDO9puaW7zpeNUdUsnU2VB2M5I2OS2x/kqd3uFjDHTKHpDOe
eZpIvTTrvwF4+1JGCOdk6B3Xuptp4O8CbTmwa5Uz9bfd2H+q65pSz373u3wD9LEY
SYDodycqxgtJ3Svu5Pr25Huz9DQ9aWgc6jwk+nnJvnhYKS6QaiCqxJmSKjkg8iqX
yl1bFQqx0e8OUBBq2LGOc45etA0k5KtKQwevxxiNOrxPJtIsJZu2sqWzjqr9G9/r
xJ/EZo/4ZdhKV8RJvvZIr7YPJ6+/zu6jcmwqlJsqPaVsEkfIOpl9Z6YOPkhrs6M2
bmoLXFccko9fH4BUOPgokJskYPcSZzvC/+l6bvF56nX14sFg9TYEoWKXtqQqnMiP
HeIZ1BhSifxtwW+AT7ydbwDjg1VA4KxyUzWcwmegrEpm3k6po6FN5WEQ8+NUcU+h
ChOsynG7o/qL9TRRY/iwVj1+DEU7zTaL79TSytrKQiA5L7vUYCTHqpNrbU60gHqV
CzxmA4J8mOaK3VtJuUoISaqYFN6eL5yJRcb8J+epTDpUVeoJp+nNhrlueYLGGNI+
xSVHYScbxq2mkFIdhNzyrkl5MGu6fG1fniv/dJV8tkIEBevzFoLrLiKsgw++PPUp
e458+4P41fT9UYrEii5UWR9TeTpx6i62kYJKJIsgfyf7q+KJDl1bYUO1Nvjgm17f
FJJYb+FdHCdqadjBMjY2/KNyL1dBhYiyijw7XLupNRxiJWQTyFVjWaPO6qNILqfW
UsbEIsTKfB7D0kFKnv4YOaZgp91HYOH3W4phj6vouvi0mi3SlVEwAgbg/fMGuGb3
vfrOiZ3OeLQnt6xrQMs0AVIuxxMTvNEIoik9+bz2zPeqLRu/o1A9lR4RaOa2uUVg
IjAumK/I/Dl7zw2JPLxhct2zss+Tg7/KI98RiTNmp67Q9N1HqkwrkXduDFqVKu/N
9c0GjtP1sV/4/wyKkMyL1O0e4y/7Sl4NtiK5YOowHkEll6IyJqt49daMGavVSGHp
s+laWeW7nvP4OD3VlB9Zix+q7qIMujmMc4p0DXTSTBAWZ+XzkSNwq8WvXXqj2nEd
pld8kQe9TfmrOoNFsHozCRBvQKYvwCg9M2yhAZCy/A/GciweyXnWh5jCXZ067Z/T
Qd+jVs5DcvtVJ0ezx0m5+8cDiEPwnQny4tdaP1lpdK744d+IaKcb+irOkFNXaSNK
c7UFBjE8KMioAPmsAifDTkuTlhl4dYFghZybPZz1tDNOhfyopfJtH3+2JsnLTz8j
WoQ/T0x1oP6E+cEpJW+/uP6pv0qBQTrA+v6+sVxJQIP/6gSgKWaTwDVOvlabY8O5
1kTyxQapw/bQp+9pdz0Rs7jXjVrnWCJ/s2qKeR9lrvU7qP99fbrBbmGehYz2hQHP
vbrATgitmx3NptEd3ncX4Zrtp7zPXzCJ5uEqRmk+HY1aVy8Mm9bCIxYokz/4NCHq
4GkitthZdRsWHP09Z+la+ZG0SSgse6bgz39P2xKEwNaX7CJ/L4un4hTZLlbiE1ns
Mw/7KvYdE6OBOhALoQ55ujTS2K9f+ymkd8NRRv5qdZCXMUHJy8o6XsJse1hYpo2Z
44PZ3/bZ4FvyQX+jwCplxqWTqqtogwqdJpytGOfPPQrvVzz2CInnGMlKO0+S+beM
x3MnLN3IEpdiuMiMnYqyR9I7SDVJmsJ9mKSXaMhw2JwbxKEJlOa/7wN2mnK5KaG5
6JkfzVI17HcCtr6XF0uXKmr5tm70/2WKoLQZMPIizw7DDcRI6SsQZytX3NfL+W0U
+aPQsOYktwFpbG/04KtHwSGLCRvBjnls9BsANld7OvjuYDPWHu5i7mFzJuHC8Ik+
Zr5cu3mlQ5Dx9gi5i2pFABPTkk+jGnQ7iZbRO8DJ7i+NNM20EixcmwEZECTnp6rc
CioGkVgWWADkqKMF51lpw2gLfuGwRwd+GJolq3fQPVoxzjBUxtuECIrUaXDlSTsw
6eBE6Eq8nOQWVAwwsaBgFGaIk8j8mKSnt3PCVB0M4+EqqQ8hO0Atzug7qw/ns24d
N5yCUdl2RmL6rBP8Zm0UahDac2hoVau1XNjqmOHc/UHGa6zEgb8KEsQ3fWnfB2Op
bLwBEBmNcnuotm33/gQ3KKgH/RbxO3Jma8wfaay2rgQxzq5kKnn9YPxy8v6dGMaI
dxAra5L+PpSThkUbHaLSUx/KT4asnKM1bpvVCj0sKBR3aOVFey5FxryV+NsuqaTi
eDt6xjMW3VtmdYEQV+UH62TjF5ocbJrOpOpyUlLWRUlxcB7HuFNJdn9FQlUZ1WNW
IVQyni9z16/F6BqAAHPmx00KZD80I7vniu4/SLZvqU7YbI6RUXiz/dtpdVXWjYYu
nopx97Xijdnj26c7bl/frCv/aO4i0tTyjXvXDziHcUtJIYrY298E9LNUCCYs1TLZ
ldDkRtFjYN1LWQ0ZNnaQ/xr1e75clUIRLXgVPzchTCwEhwZg67GwOalObNyFvQEc
dlf1OQcNSzGEmNWr4KcDFpgNsp/sRl76L2PXN3mI2XDnWGUbRdca/Xdjxi9sDalL
LutVPL/n5UopdwdZyQMdtLK1jZSDHw6J6iNPwiSpHHpzvmzge+YveVIzFaj/5G5K
hnaIvbTfCt9gIkMpzsQNLe76yaodgFoadoPQZrarpKGoLjgb+P0m+kP/KqwI+TpH
pCxINv83PDFPkYftw2DTuQj7wEPylHBaVOWqdKrPHsaiDhSIvC84/23dOIH1dlQ7
ISyK0aEePUUPVZeDluMshPuFvg5RL7kLqSNhz/QORwrv138UUVDJPl2+Oe3r5SUl
DWJLkVZRzOEotZDkUhs9Rt0gavDzdoX2EcGpbhbIpCz3huEyWaTj/UMYlD2Nq4rq
b2X+5xheLusetW2Lo4VtkbaIFQlWaIyBYlq2q2exsDSLzcFWEWUaBDYGQDiJCnkX
/Fhts1NfQaftilcX+fBXNOkdFAKc0w5IBT7Ty6b9JCCs7hD18yvsRM1CjMFSfx54
3l7RpJ3oXAOIjMDFp1ovUhRTCZqtrPVHXENHPh91RDTJ999YC5DQ7zqT08jXjvMy
klBmXUi9Lf8PNy+uUY8gAAA=
}

do-button: func [num] [
    alert pick answers num 
    alert pick questions num
    if find [1 2 3 4 5] num [val: $100]
    if find [6 7 8 9 10] num [val: $200]
    if find [11 12 13 14 15] num [val: $300]
    if find [16 17 18 19 20] num [val: $400]
    if find [21 22 23 24 25] num [val: $500]
    correct: request-list "Select:" ["Player 1 answered correctly" 
        "Player 1 answered incorrectly" "Player 2 answered correctly"
        "Player 2 answered incorrectly" "Player 3 answered correctly"
        "Player 3 answered incorrectly" "Player 4 answered correctly"
        "Player 4 answered incorrectly"
    ] 
    switch correct  [
        "Player 1 answered correctly" [
            player1/text: to-string ((to-money player1/text) + val)
            show player1
        ] 
        "Player 1 answered incorrectly" [
            player1/text: to-string ((to-money player1/text) - val)
            show player1
        ] 
        "Player 2 answered correctly" [
            player2/text: to-string ((to-money player2/text) + val)
            show player2
        ]
        "Player 2 answered incorrectly"[
            player2/text: to-string ((to-money player2/text) - val)
            show player2
        ]
        "Player 3 answered correctly" [
            player3/text: to-string ((to-money player3/text) + val)
            show player3
        ] 
        "Player 3 answered incorrectly" [
            player3/text: to-string ((to-money player3/text) - val)
            show player3
        ] 
        "Player 4 answered incorrectly"[
            player4/text: to-string ((to-money player4/text) - val)
            show player4
        ]
        "Player 4 answered correctly" [
            player4/text: to-string ((to-money player4/text) + val)
            show player4
        ]
    ]
]

view center-face layout gui: [
    tabs (sizer * 20)
    backdrop effect [gradient 1x1 tan brown]
    style button button effect [gradient blue blue/2] (
        to-pair rejoin [(20 * sizer) "x" (13 * sizer)]
    ) font [size: (sizer * 6)]
    style box box brown (to-pair rejoin [(20 * sizer) "x" (7 * sizer
        )]) font [size: (sizer * 3)]
    image header (to-pair rejoin [(132 * sizer) "x" (8 * sizer)]) [
        contin: request/confirm {
            This will end the current game.  Continue?}
        if contin = false [break]
        loadoredit:  request/confirm "Load previously edited config file?"
        if loadoredit = true [
            do to-file request-file/title/file {
                Choose config file to use:} "File" %default_config.txt
            unview
            view center-face layout gui
            break
        ]
        alert {Edit carefully, maintaining all quotation marks.  
            You can open a previously saved file if needed.
            When done, click SAVE-AS and then QUIT.  
            Be sure choose a filename/folder
            location that you'll be able to find later.
        }
        write %default_config.txt config
        unview
        editor %default_config.txt
        alert {Now choose a config file to use (most likely the file
            you just edited).}
        do to-file request-file/title/file {
            Choose config file to use:} "File" %default_config.txt
        view center-face layout gui
    ]
    space (to-pair rejoin [(8 * sizer) "x" (2 * sizer)])
    pad (sizer * 2)
    across
    box (to-pair rejoin [(132 * sizer) "x" (2 * sizer)]
        ) effect [gradient 1x0 brown black] 
    return
    box Category-1 
    box Category-2 
    box Category-3 
    box Category-4 
    box Category-5
    return
    box (to-pair rejoin [(132 * sizer) "x" (2 * sizer)]
        ) effect [gradient 1x0 brown black] 
	return
    button "$100" [face/feel: none face/text: "" do-button 1]
    button "$100" [face/feel: none face/text: "" do-button 2]
    button "$100" [face/feel: none face/text: "" do-button 3]
    button "$100" [face/feel: none face/text: "" do-button 4]
    button "$100" [face/feel: none face/text: "" do-button 5]
    return
    button "$200" [face/feel: none face/text: "" do-button 6]
    button "$200" [face/feel: none face/text: "" do-button 7]
    button "$200" [face/feel: none face/text: "" do-button 8]
    button "$200" [face/feel: none face/text: "" do-button 9]
    button "$200" [face/feel: none face/text: "" do-button 10]
    return
    button "$300" [face/feel: none face/text: "" do-button 11]
    button "$300" [face/feel: none face/text: "" do-button 12]
    button "$300" [face/feel: none face/text: "" do-button 13]
    button "$300" [face/feel: none face/text: "" do-button 14]
    button "$300" [face/feel: none face/text: "" do-button 15]
    return
    button "$400" [face/feel: none face/text: "" do-button 16]
    button "$400" [face/feel: none face/text: "" do-button 17]
    button "$400" [face/feel: none face/text: "" do-button 18]
    button "$400" [face/feel: none face/text: "" do-button 19]
    button "$400" [face/feel: none face/text: "" do-button 20]
    return
    button "$500" [face/feel: none face/text: "" do-button 21]
    button "$500" [face/feel: none face/text: "" do-button 22]
    button "$500" [face/feel: none face/text: "" do-button 23]
    button "$500" [face/feel: none face/text: "" do-button 24]
    button "$500" [face/feel: none face/text: "" do-button 25]
    return 
    box (to-pair rejoin [(132 * sizer) "x" (2 * sizer)]
        ) effect [gradient 1x0 brown black] 
    return tab
    box "Player 1:" effect [gradient 1x1 tan brown]
    player1: box white "$0" font [color: black size: (sizer * 4)] [
        face/text: request-text/title/default "Enter Score:" face/text
    ]
    box "Player 2:" effect [gradient 1x1 tan brown]
    player2: box white "$0" font [color: black size: (sizer * 4)] [
        face/text: request-text/title/default "Enter Score:" face/text
    ]
    return tab
    box "Player 3:" effect [gradient 1x1 tan brown]
    player3: box white "$0" font [color: black size: (sizer * 4)] [
        face/text: request-text/title/default "Enter Score:" face/text
    ]
    box "Player 4:" effect [gradient 1x1 tan brown]
    player4: box white "$0" font [color: black size: (sizer * 4)] [
        face/text: request-text/title/default "Enter Score:" face/text
    ]
]