QB64.org Forum

Samples Gallery & Reference => Games => Topic started by: Qwerkey on April 01, 2020, 06:37:57 am

Title: 'Written In Stone' - Word Puzzle Game by Dav
Post by: Qwerkey on April 01, 2020, 06:37:57 am

'Written In Stone'

Author: @Dav
Source: qb64.org Forum
URL: https://www.qb64.org/forum/index.php?topic=2434.msg116494#msg116494 (https://www.qb64.org/forum/index.php?topic=2434.msg116494#msg116494)
Version: 1.1
Tags: [Graphics], [Puzzle]

Description:
It's a word puzzle game.  There are 50 well known quotes, scrambled up.  Using the mouse you arrange the letters to make the quote.  Only letters over and under each other can be swapped (same column), not side by side.

Source Code (given for reference only - you will need to download the .zip file):

Code: QB64: [Select]

1. '================
2. 'WRITTEN IN STONE v1.1 by Dav for QB64-GL v1.4
3. '================
4.  
5. 'A Word puzzle game by Dav (My 1st ever game in QB64)
6. 'First version coded FEB 1st-13th, 2013 for QB64-SDL.
7. 'Updated code MAR 31st, 2020 to work in QB64-GL v1.4.
8.  
9. 'There are 50 well know quotes, all scrambled up.
10. 'Using mouse, unscramble the letters to make quote.
11. 'You can only swap letters in the same column.
12.  
13. '======================================================
14. 'NOTE:  THIS PROGRAM REQUIRES THE "winstone-data"folder
15. '       AND ALL OF ITS DATA FILES!
16. '======================================================
17.  
18. DEFINT A-Z
19.  
20. DECLARE SUB Credits ()
21. DECLARE SUB DrawRows ()
22. DECLARE SUB HelpScreen (imagehandle&)
23. DECLARE SUB ConfigScreen (imagehandle&)
24. DECLARE SUB GetQuote (quote)
25. DECLARE SUB SelectLetter ()
26. DECLARE SUB SelectQuote ()
27. DECLARE SUB SelectNumber (number$, x, y, image&)
28. DECLARE SUB ButtonShow (ButtonType%, ButtonFile$, x, y)
29. DECLARE SUB StoneRoll (way$, image&, speed!)
30. DECLARE SUB ScrollScreenUp (image&, speed!)
31. DECLARE SUB ScrollScreenDown (image&, speed!)
32. DECLARE SUB ScreenCurtain (way$, left&, right&, speed!)
33. DECLARE SUB ScreenShake (image&, val1, val2, speed!)
34.  
35.  
36. '=== Shared data SUBs/FUNCs use...
37. DIM SHARED quote, maxquote, row1$, row2$, row3$
38. DIM SHARED OrigRow1$, OrigRow2$, OrigRow3$
39. DIM SHARED selected, selectedcol%, selectedrow%, col%, row%, sel$, sel2$
40. DIM SHARED source$, config$, unsolved, music&, musicflag, sfxflag, timerflag
41. DIM SHARED back&
42.  
43. source$ = "winstone-data\" '<<<<<<---- Location of Data files! <<<<<<<
44.  
45.  
46. 'Set screen, fullscreen
47. SCREEN _NEWIMAGE(1024, 768, 32): _FULLSCREEN _SQUAREPIXELS
48.  
49. 'Give it a title....
50. DO: LOOP UNTIL _SCREENEXISTS: _TITLE "Written In Stone v1.1"
51.  
52. LOCATE 24, 54: PRINT "Loading Data..."
53.  
54. '==================================================================================
55. '  LOAD WINSTONE.DAT CONFIG FILE - HOLDS SOUND SETTINGS AND QUOTE INFO
56. '==================================================================================
57. 'The config file is simple. It's 53 bytes, holding settings for 50 quotes and
58. '3 for game settings, music, sfx, timer.  CHR$(1) for TRUE, CHR$(0) for false.
59. 'Byte #1 of CHR$(0) means quote #1 isn't solved.  CHR$(1) means it is, and so on...
60.  
61. '== these are failsafes in case on config problem
62.  
63. musicflag = 1
64. sfxflag = 1
65. timerflag = 1
66.  
67. '== max # of quotes (don't change this...)
68. maxquote = 50
69.  
70. unsolved = 0 'How many quotes are solved
71.  
72.  
73. OPEN "winstone.dat" FOR BINARY AS #1
74.  
75.  
76. '=== IF NO CONFIG FILE, MAKE ONE
77.  
78. IF LOF(1) = 0 THEN
79.     '=== file not there so make a new dat file
80.     '=== mark all quotes unsolved
81.     config$ = ""
82.     FOR i = 1 TO maxquote
83.         v$ = CHR$(0)
84.         config$ = config$ + v$ 'all unsolved for now
85.         PUT #1, i, v$
86.         unsolved = unsolved + 1
87.     NEXT
88.     V2$ = CHR$(1)
89.     PUT #1, 51, V2$: config$ = config$ + CHR$(1)
90.     PUT #1, 52, V2$: config$ = config$ + CHR$(1)
91.     PUT #1, 53, V2$: config$ = config$ + CHR$(1)
92.  
93.     GOTO loadedconfig
94. END IF
95.  
96. '=== see if file is large enough to read settings
97. '=== if not then make a new file
98. IF LOF(1) > 0 AND LOF(1) < 53 THEN '(50 quotes & 3 game settings)
99.     '=== file must be currupt, so close file, kill it, make new one.
100.     CLOSE 1: KILL "winstone.dat": OPEN "winstone.dat" FOR BINARY AS #1
101.     config$ = ""
102.     FOR i = 1 TO maxquote
103.         v$ = CHR$(0)
104.         config$ = config$ + v$ 'all unsolved for now
105.         PUT #1, i, v$
106.         unsolved = unsolved + 1
107.     NEXT
108.     '=== add music, sfx & timer settings (all 1 by default)
109.     V2$ = CHR$(1)
110.     PUT #1, 51, V2$: config$ = config$ + CHR$(1)
111.     PUT #1, 52, V2$: config$ = config$ + CHR$(1)
112.     PUT #1, 53, V2$: config$ = config$ + CHR$(1)
113.     GOTO loadedconfig
114. END IF
115.  
116. '==== file must be there and large enough so load data.
117. config$ = ""
118. FOR i = 1 TO maxquote
119.     a$ = INPUT$(1, 1)
120.     config$ = config$ + a$
121.     IF a$ = CHR$(0) THEN unsolved = unsolved + 1
122. NEXT
123.  
124. '=== get game settings now
125. IF INPUT$(1, 1) = CHR$(0) THEN
126.     musicflag = 0: config$ = config$ + CHR$(0)
127. ELSE
128.     musicflag = 1: config$ = config$ + CHR$(1)
129. END IF
130. IF INPUT$(1, 1) = CHR$(0) THEN
131.     sfxflag = 0: config$ = config$ + CHR$(0)
132. ELSE
133.     sfxflag = 1: config$ = config$ + CHR$(1)
134. END IF
135. IF INPUT$(1, 1) = CHR$(0) THEN
136.     timerflag = 0: config$ = config$ + CHR$(1)
137. ELSE
138.     timerflag = 1: config$ = config$ + CHR$(1) '<<, TIMER ALWAYS 1 for now
139. END IF
140.  
141. loadedconfig:
142.  
143. CLOSE 1
144.  
145. '=== CHEATER COMMAND LINE OPTION. MARKS ALL SOLVED
146. IF UCASE$(COMMAND$) = "/SOLVE" THEN
147.     FOR i = 1 TO maxquote
148.         MID$(config$, i, 1) = CHR$(1)
149.     NEXT
150.     unsolved = 0
151. END IF
152.  
153.  
154. '===================================================================================================
155. '
156. '===================================================================================================
157.  
158.  
159. '==== Go ahead and Start music if musicflag on
160.  
161. music& = _SNDOPEN(source$ + "sfx\sfx_music.ogg", "VOL,SYNC,LEN,PAUSE")
162. IF musicflag = 1 THEN _SNDLOOP music&
163.  
164.  
165. '===================================================================================================
166. '                                   OPEN SHARED IMAGE FILES
167. '===================================================================================================
168.  
169.  
170. '=== load title page
171.  
172. back& = _LOADIMAGE(source$ + "img\paper-title.jpg", 32)
173.  
174.  
175. '===== load select menu fly in vid frames.
176.  
177. DIM SHARED selectframe(0 TO 15) AS LONG
178. FOR t = 0 TO 15
179.     a$ = LTRIM$(STR$(t))
180.     IF LEN(a$) = 2 THEN a$ = "00" + a$
181.     IF LEN(a$) = 1 THEN a$ = "000" + a$
182.     selectframe(t) = _LOADIMAGE(source$ + "vid\sel" + a$ + ".jpg")
183. NEXT
184.  
185.  
186. '===================================================================================================
187. '===================================================================================================
188.  
189. _DELAY 1 'let screen res change play catch up if needed
190.  
191.  
192. '=========== drop down screen
193.  
194. IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_dropdown.mp3"
195. ScrollScreenDown back&, 60
196.  
197. IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_boom.mp3"
198. ScreenShake back&, 5, 4, 75
199.  
200. _DELAY 2
201.  
202. '=== Load images for Timer bar (3 colors)
203.  
204. timegrn& = _LOADIMAGE(source$ + "img\time_grn2.jpg", 32)
205. timeyel& = _LOADIMAGE(source$ + "img\time_yel2.jpg", 32)
206. timered& = _LOADIMAGE(source$ + "img\time_red2.jpg", 32)
207.  
208.  
209. '=========
210. titlemenu:
211. '=========
212.  
213.  
214. '=== Pop in Main Menu on screen
215. IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_pop1.mp3" '<< POP sound
216. menutop& = _LOADIMAGE(source$ + "img\menu_top2.jpg", 32) '<< Get it,
217. _PUTIMAGE (238, 152), menutop&, 0 '<< Set it...
218. _FREEIMAGE menutop& '<< ... and forget it.
219.  
220. 'draw bitton as normal first
221. ButtonShow "startbtn.jpg", 565, 335
222. ButtonShow "quitbtn.jpg", 565, 283
223. ButtonShow "help.jpg", 565, 177
224. ButtonShow "config.jpg", 565, 229
225.  
226. '=== get menu choice
227. _MOUSESHOW
228.  
229. DO
230.  
231.     DO WHILE _MOUSEINPUT
232.         mx = _MOUSEX: my = _MOUSEY
233.         LeftDown = _MOUSEBUTTON(1)
234.  
235.         '=== highlight buttons if mouse over it
236.  
237.         IF mx > 565 AND mx < 721 AND my > 335 AND my < 375 THEN
238.             ButtonShow "_startbtn.jpg", 565, 335: but1 = 1
239.         ELSE
240.             IF but1 = 1 THEN
241.                 ButtonShow "startbtn.jpg", 565, 335
242.                 but1 = 0
243.             END IF
244.         END IF
245.         IF mx > 565 AND mx < 721 AND my > 283 AND my < 323 THEN
246.             ButtonShow "_quitbtn.jpg", 565, 283: but2 = 1
247.         ELSE
248.             IF but2 = 1 THEN
249.                 ButtonShow "quitbtn.jpg", 565, 283
250.                 but2 = 0
251.             END IF
252.         END IF
253.         IF mx > 565 AND mx < 721 AND my > 177 AND my < 217 THEN
254.             ButtonShow "_help.jpg", 565, 177: but3 = 1
255.         ELSE
256.             IF but3 = 1 THEN
257.                 ButtonShow "help.jpg", 565, 177
258.                 but3 = 0
259.             END IF
260.         END IF
261.         IF mx > 565 AND mx < 721 AND my > 229 AND my < 269 THEN
262.             ButtonShow "_config.jpg", 565, 229: but4 = 1
263.         ELSE
264.             IF but4 = 1 THEN
265.                 ButtonShow "config.jpg", 565, 229
266.                 but4 = 0
267.             END IF
268.         END IF
269.  
270.     LOOP
271.  
272.     IF LeftDown THEN
273.  
274.         '=== if start button clicked
275.         IF mx > 565 AND mx < 721 AND my > 335 AND my < 375 THEN
276.             ButtonClick 1, "startbtn.jpg", 565, 335
277.             EXIT DO
278.         END IF
279.         IF mx > 565 AND mx < 721 AND my > 283 AND my < 323 THEN
280.             ButtonClick 1, "quitbtn.jpg", 565, 283
281.             _PUTIMAGE (0, 0), back&, 0
282.             GOTO Quit
283.         END IF
284.         IF mx > 565 AND mx < 721 AND my > 177 AND my < 217 THEN
285.  
286.             ButtonClick 1, "help.jpg", 565, 177
287.  
288.             _PUTIMAGE (0, 0), back&, 0
289.             _DELAY .25
290.             HelpScreen (back&)
291.             _DELAY .25
292.  
293.             GOTO titlemenu
294.  
295.         END IF
296.         IF mx > 565 AND mx < 721 AND my > 229 AND my < 269 THEN
297.             ButtonClick 1, "config.jpg", 565, 229
298.             _PUTIMAGE (0, 0), back&, 0
299.             _DELAY .25
300.             ConfigScreen (back&)
301.             _DELAY .25
302.  
303.             GOTO titlemenu
304.  
305.         END IF
306.     END IF
307.  
308.     IF INKEY$ = CHR$(27) THEN GOTO Quit
309.  
310. LOOP
311.  
312. _PUTIMAGE (0, 0), back&, 0
313. _DELAY .25
314.  
315. ScrollScreenUp back&, 75
316.  
317. _FREEIMAGE back&
318.  
319.  
320. '=======================================================================================
321. '                                   START GAME
322. '=======================================================================================
323.  
324. quote = 1 'just a safety...
325.  
326. RANDOMIZE TIMER
327.  
328. SelectQuote
329. GetQuote (quote)
330.  
331. '========
332. NewBoard:
333. '========
334.  
335.  
336. '=== scroll down playing board
337.  
338. back& = _LOADIMAGE(source$ + "img\board6.jpg", 32)
339.  
340. ScrollScreenDown back&, 60
341.  
342. DrawRows
343.  
344. _MOUSESHOW
345.  
346. TIMER ON
347.  
348.  
349. '========================================================================================
350. '                               MAIN GAME LOOP
351. '========================================================================================
352.  
353. Mainloop:
354.  
355. starttime! = TIMER
356. poppy = 0 'flag to not show more than one popup message in a second
357. rumbleon = 0 'flag for rumble happening
358.  
359. _PRINTMODE _KEEPBACKGROUND: COLOR _RGB(115, 115, 115)
360. LOCATE 17, 90: PRINT "Quote:"; quote; "("; LTRIM$(STR$(unsolved)); " to solve)";
361.  
362. DO
363.  
364.     '=== Catch mouse
365.     DO WHILE _MOUSEINPUT
366.         mx = _MOUSEX: my = _MOUSEY
367.         '=== break up screen in 35x35 grid
368.         col% = INT(mx / 35) - 2: row% = INT(my / 35) - 2
369.         LeftDown = _MOUSEBUTTON(1)
370.     LOOP
371.  
372.     IF LeftDown = -1 THEN
373.         '=== clicked quote button here...
374.         IF mx > 402 AND mx < 558 AND my > 302 AND my < 342 THEN
375.  
376.             '=== turn off rumble if it was on
377.             IF rumbleon = 1 THEN
378.                 IF sfxflag = 1 THEN
379.                     IF _SNDPLAYING(rumble&) THEN _SNDSTOP rumble&: _SNDSTOP rumble&
380.                 END IF
381.             END IF
382.  
383.             ButtonClick 0, "quote.jpg", 403, 302
384.             ScrollScreenUp 0, 60 'scroll up current screen
385.  
386.             SelectQuote
387.             GetQuote (quote)
388.  
389.             GOTO NewBoard
390.  
391.         END IF
392.  
393.         'Clicked HINT button
394.         IF mx > 580 AND mx < 736 AND my > 302 AND my < 342 THEN
395.             ButtonClick 0, "hint.jpg", 580, 302
396.             'Find first hint letter here, and select it for user.
397.             'hint letter is first letter in row that doesn't line up with origrow
398.             'Look in 1st row first
399.             found = 0
400.             FOR tt = 1 TO LEN(row1$) 'check row1 data
401.                 H1$ = UCASE$(MID$(row1$, tt, 1)) 'get letter in row1
402.                 H2$ = UCASE$(MID$(OrigRow1$, tt, 1)) 'compare with original spot
403.                 'If row1$ part needs moved, then mark this
404.                 IF H1$ <> H2$ THEN
405.                     hintcol% = tt: hintrow% = 1: found = 1: EXIT FOR
406.                 END IF
407.             NEXT
408.             IF found = 0 THEN
409.                 FOR tt = 1 TO LEN(row2$) 'check row1 data
410.                     H1$ = UCASE$(MID$(row2$, tt, 1)) 'get letter in row1
411.                     H2$ = UCASE$(MID$(OrigRow2$, tt, 1)) 'compare with original spot
412.                     'If row2$ part needs moved, then mark this
413.                     IF H1$ <> H2$ THEN
414.                         hintcol% = tt: hintrow% = 2: found = 1: EXIT FOR
415.                     END IF
416.                 NEXT
417.             END IF
418.             IF found = 0 THEN
419.                 FOR tt = 1 TO LEN(row3$) 'check row1 data
420.                     H1$ = UCASE$(MID$(row3$, tt, 1)) 'get letter in row1
421.                     H2$ = UCASE$(MID$(OrigRow3$, tt, 1)) 'compare with original spot
422.                     'If row3$ part needs moved, then mark this
423.                     IF H1$ <> H2$ THEN
424.                         hintcol% = tt: hintrow% = 3: found = 1: EXIT FOR
425.                     END IF
426.                 NEXT
427.  
428.             END IF
429.  
430.  
431.             IF found = 1 THEN
432.                 'flash hint letter
433.                 FOR fl = 1 TO 3
434.                     letter& = _LOADIMAGE(source$ + "fnt2\_" + H1$ + ".jpg", 32)
435.                     _PUTIMAGE (70 + (hintcol% * 35), 70 + (hintrow% * 35)), letter&
436.                     _FREEIMAGE letter&
437.  
438.                     _DELAY .15
439.  
440.                     letter& = _LOADIMAGE(source$ + "fnt2\" + H1$ + ".jpg", 32)
441.                     _PUTIMAGE (70 + (hintcol% * 35), 70 + (hintrow% * 35)), letter&
442.                     _FREEIMAGE letter&
443.  
444.                     _DELAY .15
445.                 NEXT
446.             END IF
447.  
448.  
449.         END IF
450.  
451.  
452.         '=== clicked title menu button here...
453.         IF mx > 759 AND mx < 915 AND my > 302 AND my < 342 THEN
454.  
455.             ESCBail:
456.  
457.             '=== turn off rumble if it was on
458.             IF rumbleon = 1 THEN
459.                 IF sfxflag = 1 THEN _SNDSTOP rumble&
460.             END IF
461.  
462.             ButtonClick 0, "title.jpg", 759, 302
463.  
464.             ScrollScreenUp 0, 75 'scroll up current screen
465.  
466.             _FREEIMAGE back& 'release board as back&
467.  
468.             '=== reload title as back&  '<<<<<<<<<<<<<< NEED TO CHANGE THIS STUPID WAY
469.             back& = _LOADIMAGE(source$ + "img\paper-title.jpg", 32)
470.  
471.             '=== load slide in sides (left right)
472.             left& = _LOADIMAGE(source$ + "\img\paper-title-left.jpg")
473.             right& = _LOADIMAGE(source$ + "\img\paper-title-right.jpg")
474.  
475.             ScreenCurtain "CLOSE", left&, right&, 120
476.  
477.             _FREEIMAGE left&
478.             _FREEIMAGE right&
479.  
480.             _PUTIMAGE , back&, 0
481.             _DELAY .25
482.  
483.             GOTO titlemenu
484.  
485.         END IF
486.  
487.  
488.         '===If inbound col & row fields clicked
489.         IF col% <= 23 AND col% > 0 AND row% <= 3 AND row% > 0 THEN
490.  
491.             IF selected = 0 THEN
492.                 '=== If no letter selected yet, then...
493.                 '=== Get 1st selected letter on current row
494.                 SelectLetter
495.             ELSE
496.                 '=== must already but one selected, so...
497.                 '=== get another selected letter (only on same Col%)
498.                 '=== then do the swap in rows$, then redraw new placements.
499.  
500.                 '=== if same column (but not same row)...ok
501.                 IF col% = selectedcol% AND row% <> selectedrow% THEN
502.                     '=== get 2nd selected letter
503.                     SELECT CASE row%
504.                         CASE 1: sel2$ = MID$(row1$, col%, 1)
505.                         CASE 2: sel2$ = MID$(row2$, col%, 1)
506.                         CASE 3: sel2$ = MID$(row3$, col%, 1)
507.                     END SELECT
508.                     '=== only select if not a space or empty place
509.                     IF sel2$ <> " " AND sel2$ <> "" THEN
510.  
511.                         '=== load 2st selected letter (highlighted one)
512.                         letter& = _LOADIMAGE(source$ + "fnt2\_" + sel2$ + ".jpg", 32)
513.                         _PUTIMAGE (70 + (col% * 35), 70 + (row% * 35)), letter&
514.                         _FREEIMAGE letter&
515.  
516.                         IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_click2.mp3"
517.                         '=== SWAP LETTER DISPLAY HERE
518.                         FOR o = 1 TO 2
519.  
520.                             'load 2nd letter normal
521.                             letter& = _LOADIMAGE(source$ + "fnt2\" + sel2$ + ".jpg", 32)
522.                             _PUTIMAGE (70 + (col% * 35), 70 + (row% * 35)), letter&
523.                             _FREEIMAGE letter&
524.  
525.                             'load first letter normal
526.                             letter& = _LOADIMAGE(source$ + "fnt2\" + sel$ + ".jpg", 32)
527.                             _PUTIMAGE (70 + (col% * 35), 70 + (selectedrow% * 35)), letter&
528.                             _FREEIMAGE letter&
529.  
530.                             _DELAY .05
531.  
532.                             'load 2nd letter highlighted
533.                             letter& = _LOADIMAGE(source$ + "fnt2\_" + sel2$ + ".jpg", 32)
534.                             _PUTIMAGE (70 + (col% * 35), 70 + (row% * 35)), letter&
535.                             _FREEIMAGE letter&
536.  
537.                             'load first letter highlighted
538.                             letter& = _LOADIMAGE(source$ + "fnt2\_" + sel$ + ".jpg", 32)
539.                             _PUTIMAGE (70 + (col% * 35), 70 + (selectedrow% * 35)), letter&
540.                             _FREEIMAGE letter&
541.  
542.                             '_DELAY .02
543.  
544.                         NEXT
545.  
546.                         _DELAY .2
547.  
548.                         '=== SWAP LETTERS INTERNALLY HERE
549.                         'replace current row letter with 1st sel$ letter
550.                         SELECT CASE row%
551.                             CASE 1: MID$(row1$, col%, 1) = sel$
552.                             CASE 2: MID$(row2$, col%, 1) = sel$
553.                             CASE 3: MID$(row3$, col%, 1) = sel$
554.                         END SELECT
555.                         'replace 1st select row with curr row letter
556.                         SELECT CASE selectedrow%
557.                             CASE 1: MID$(row1$, col%, 1) = sel2$
558.                             CASE 2: MID$(row2$, col%, 1) = sel2$
559.                             CASE 3: MID$(row3$, col%, 1) = sel2$
560.                         END SELECT
561.  
562.                         '=== DONE! Redraw rows'''
563.                         selected = 0
564.                         DrawRows
565.  
566.                     END IF
567.                 ELSE
568.                     '=== must be a new column, so
569.                     '=== un select letters, select this new one...
570.                     DrawRows '=== fresh look
571.                     SelectLetter
572.                 END IF
573.  
574.  
575.             END IF
576.  
577.         END IF
578.  
579.         '==== If rows match original, YOU GOT IT!!!!
580.         IF row1$ = OrigRow1$ AND row2$ = OrigRow2$ AND row3$ = OrigRow3$ THEN
581.  
582.             '=== turn off rumble if it was on
583.             IF rumbleon = 1 THEN
584.                 IF sfxflag = 1 THEN
585.                     IF _SNDPLAYING(rumble&) THEN _SNDSTOP rumble&: _SNDSTOP rumble&
586.                 END IF
587.             END IF
588.  
589.             IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_clap.ogg"
590.  
591.             '=== Popup a good message
592.             rndpop$ = LTRIM$(STR$(FIX((RND * 16) + 1))) 'get 1 of 16
593.             pop& = _LOADIMAGE(source$ + "img\pop-z-" + rndpop$ + ".jpg", 32)
594.             _PUTIMAGE (0, 450), pop&, 0: _FREEIMAGE pop&
595.  
596.  
597.             '==== flash letters here...
598.             FlashRows
599.             _DELAY 1
600.  
601.  
602.             '=== Mark quote # as solved in config$ data
603.             MID$(config$, quote, 1) = CHR$(1)
604.             IF unsolved > 0 THEN
605.                 unsolved = unsolved - 1 'decrease one from unsolved count
606.             END IF
607.  
608.             ScrollScreenUp 0, 60
609.  
610.             '=== IF ALL QUOTES SOLVED - WIN - SHOW CREDITS!!!
611.             IF unsolved = 0 THEN
612.                 Credits
613.                 _AUTODISPLAY
614.                 back& = _LOADIMAGE(source$ + "img\paper-title.jpg", 32)
615.                 GOTO Quit
616.             END IF
617.  
618.             '=== if already solved next quote, go to select quote
619.             quote = quote + 1
620.             IF MID$(config$, quote, 1) = CHR$(1) THEN SelectQuote
621.  
622.  
623.             '=== if at last quote, then go to select menu
624.             IF quote > maxquote THEN
625.                 SelectQuote
626.             END IF
627.  
628.             '==== next quote , scroll down board again..
629.  
630.             back& = _LOADIMAGE(source$ + "img\board6.jpg", 32)
631.             ScrollScreenDown back&, 60
632.  
633.             GetQuote quote
634.             DrawRows
635.  
636.             GOTO Mainloop
637.  
638.         END IF
639.  
640.  
641.     END IF
642.  
643.  
644.     '=== update timer stuff here...
645.     L = INT(TIMER - starttime!) + 1
646.  
647.  
648.     'New way to draw timer because hint delay made it skip a draw sometimes
649.     FOR V = 0 TO L
650.         IF V > 0 AND V <= 34 THEN _PUTIMAGE (88 + (V * 10), 253), timegrn&
651.         IF V > 34 AND V <= 49 THEN _PUTIMAGE (88 + (V * 10), 253), timeyel&
652.         IF V > 49 THEN _PUTIMAGE (88 + (V * 10), 253), timered&
653.     NEXT
654.  
655.     '============ GET A POPUP here ==========================
656.     rndpop$ = LTRIM$(STR$(FIX((RND * 6) + 1)))
657.     '========================================================
658.     '=== open pop....
659.     IF L = 2 AND poppy <> L THEN '<<<<<<<< poppy
660.         pop& = _LOADIMAGE(source$ + "img\pop-a-" + rndpop$ + ".jpg", 32)
661.         _PUTIMAGE (0, 450), pop&, 0: _FREEIMAGE pop&
662.         poppy = L '<<<<<<<< poppy
663.     END IF
664.     IF L = 10 AND poppy <> L THEN
665.         pop& = _LOADIMAGE(source$ + "img\pop-b-" + rndpop$ + ".jpg", 32)
666.         _PUTIMAGE (0, 450), pop&, 0: _FREEIMAGE pop&
667.         poppy = L '<<<<<<<< poppy
668.     END IF
669.     IF L = 18 AND poppy <> L THEN
670.         pop& = _LOADIMAGE(source$ + "img\pop-c-" + rndpop$ + ".jpg", 32)
671.         _PUTIMAGE (0, 450), pop&, 0: _FREEIMAGE pop&
672.         poppy = L '<<<<<<<< poppy
673.     END IF
674.     IF L = 26 AND poppy <> L THEN
675.         pop& = _LOADIMAGE(source$ + "img\pop-d-" + rndpop$ + ".jpg", 32)
676.         _PUTIMAGE (0, 450), pop&, 0: _FREEIMAGE pop&
677.         poppy = L '<<<<<<<< poppy
678.     END IF
679.     '==== yellow....
680.     IF L = 34 AND poppy <> L THEN
681.         pop& = _LOADIMAGE(source$ + "img\pop-e-" + rndpop$ + ".jpg", 32)
682.         _PUTIMAGE (0, 450), pop&, 0: _FREEIMAGE pop&
683.         poppy = L '<<<<<<<< poppy
684.     END IF
685.     IF L = 41 AND poppy <> L THEN
686.         pop& = _LOADIMAGE(source$ + "img\pop-f-" + rndpop$ + ".jpg", 32)
687.         _PUTIMAGE (0, 450), pop&, 0: _FREEIMAGE pop&
688.         poppy = L '<<<<<<<< poppy
689.     END IF
690.     '=== red.....
691.     IF L = 49 AND poppy <> L THEN
692.         pop& = _LOADIMAGE(source$ + "img\pop-g-" + rndpop$ + ".jpg", 32)
693.         _PUTIMAGE (0, 450), pop&, 0: _FREEIMAGE pop&
694.         poppy = L '<<<<<<<< poppy
695.     END IF
696.     IF L = 54 AND poppy <> L THEN
697.         pop& = _LOADIMAGE(source$ + "img\pop-h-" + rndpop$ + ".jpg", 32)
698.         _PUTIMAGE (0, 450), pop&, 0: _FREEIMAGE pop&
699.         poppy = L '<<<<<<<< poppy
700.     END IF
701.  
702.     '=== Start rumble is time near end (dooom coming...)
703.     IF L > 54 AND rumbleon = 0 THEN '<<<< was 114
704.         rumble& = _SNDOPEN(source$ + "sfx\sfx_rumble2.ogg", "VOL,SYNC,LEN,PAUSE")
705.         IF sfxflag = 1 THEN _SNDLOOP rumble&
706.         rumbleon = 1 'tag as rumble is playing
707.     END IF
708.  
709.     'start shaking screen if > 56 or maybe if rumble on
710.     IF L > 56 THEN
711.         '=== grab current background, shake it
712.         _DISPLAY
713.         'curr& = _SCREENIMAGE
714.         curr& = _COPYIMAGE(_DISPLAY)
715.         _AUTODISPLAY
716.         _PUTIMAGE (RND * 3, RND * 3)-(1023, 767), curr&, 0: _DISPLAY
717.         _PUTIMAGE , curr&, 0: _DISPLAY
718.     END IF
719.  
720.     '========================================================
721.  
722.     IF L = 60 THEN '<<<< 60 seconds and timer is up
723.  
724.         '=========== Play drop down sound
725.         IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_dropdown.mp3"
726.  
727.         '=== drop down screen
728.         timesup& = _LOADIMAGE(source$ + "img\paper-timeup.jpg", 32)
729.         ScrollScreenDown timesup&, 75
730.  
731.         _SNDSTOP rumble&
732.         _SNDCLOSE rumble&
733.  
734.         '=== shake (BOOM)
735.  
736.         IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_boom.mp3"
737.         ScreenShake timesup&, 5, 4, 60
738.  
739.         _DELAY 1.5
740.  
741.         _FREEIMAGE timesup&
742.  
743.         IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_roll.ogg"
744.  
745.         StoneRoll "RIGHT", 0, 25
746.  
747.         '=== do retry quote here, or main menu....
748.  
749.         SelectQuote
750.         GetQuote quote
751.  
752.         'Place board back
753.         back& = _LOADIMAGE(source$ + "img\board6.jpg", 32)
754.         ScrollScreenDown back&, 60
755.  
756.         DrawRows
757.  
758.         GOTO Mainloop
759.  
760.     END IF
761.  
762.     IF INKEY$ = CHR$(27) THEN GOTO ESCBail
763.  
764. LOOP
765.  
766. Quit:
767.  
768. '=================================================================
769. ' CLOSE ALL OPENED IMAGE & SOUND FILES, SAVE CONFIG DATA
770. '=================================================================
771.  
772. 'free all select frame video image handles first...
773. FOR t = 0 TO 14
774.     _FREEIMAGE selectframe(t)
775. NEXT
776.  
777. IF musicflag = 1 THEN
778.     _SNDSTOP music&
779.     _SNDCLOSE music&
780. END IF
781.  
782. IF sfxflag = 1 THEN
783.     roll& = _SNDOPEN(source$ + "sfx\sfx_crumble.ogg", "VOL,SYNC,LEN,PAUSE")
784.     _SNDPLAY roll&
785. END IF
786.  
787. 'Shake the screen a little
788. '=== shake (BOOM)
789. ScreenShake back&, 6, 4, 60
790.  
791. IF sfxflag = 1 THEN
792.     _SNDSTOP roll&: _SNDCLOSE roll&
793.     _SNDPLAYFILE source$ + "sfx\sfx_slideup.ogg"
794. END IF
795.  
796. ScrollScreenUp back&, 60
797.  
798. '===== Save config data
799.  
800. OPEN "winstone.dat" FOR OUTPUT AS #1
801. SEEK #1, 1
802. PRINT #1, config$;
803. CLOSE 1
804.  
805. _DELAY 1
806.  
807. '=========================
808.  
809. _FREEIMAGE back&
810. _FREEIMAGE timegrn&
811. _FREEIMAGE timeyel&
812. _FREEIMAGE timered&
813.  
814. SYSTEM
815.  
816.  
817. '=================================================================================================================
818. ' * * * * * * * * * * *  SUBS/FUNCTIONS & OTHER NOTES  * * * * * * * * * * * *
819. '=================================================================================================================
820.  
821.  
822.  
823. '=================================================================================================================
824.  
825. SUB DrawRows ()
826.  
827.     '== Draws the row1$, row2$, row3$ data to screen.
828.  
829.     '===draw row1
830.     FOR t = 1 TO LEN(row1$)
831.         L$ = UCASE$(MID$(row1$, t, 1))
832.         'IF L$ = " " THEN L$ = "space"
833.         IF L$ <> " " THEN
834.             letter& = _LOADIMAGE(source$ + "fnt2\" + L$ + ".jpg", 32)
835.             _PUTIMAGE (70 + (t * 35), 105), letter&
836.             _FREEIMAGE letter&
837.         END IF
838.     NEXT
839.  
840.     '===draw row2
841.     FOR t = 1 TO LEN(row2$)
842.         L$ = UCASE$(MID$(row2$, t, 1))
843.         'IF L$ = " " THEN L$ = "space"
844.         IF L$ <> " " THEN
845.             letter& = _LOADIMAGE(source$ + "fnt2\" + L$ + ".jpg", 32)
846.             _PUTIMAGE (70 + (t * 35), 140), letter&
847.             _FREEIMAGE letter&
848.         END IF
849.     NEXT
850.  
851.     '===draw row3
852.     FOR t = 1 TO LEN(row3$)
853.         L$ = UCASE$(MID$(row3$, t, 1))
854.         'IF L$ = " " THEN L$ = "space"
855.         IF L$ <> " " THEN
856.             letter& = _LOADIMAGE(source$ + "fnt2\" + L$ + ".jpg", 32)
857.             _PUTIMAGE (70 + (t * 35), 175), letter&
858.             _FREEIMAGE letter&
859.         END IF
860.     NEXT
861.  
862. END SUB
863.  
864. '=================================================================================================================
865.  
866. SUB FlashRows ()
867.  
868.     '=== Animate quote rows for a sec to show solved.
869.  
870.     FOR flash = 1 TO 6
871.         '===draw row1 highlighted
872.         FOR t = 1 TO LEN(row1$)
873.             L$ = UCASE$(MID$(row1$, t, 1))
874.             'IF L$ = " " THEN L$ = "space"
875.             IF L$ <> " " THEN
876.                 letter& = _LOADIMAGE(source$ + "fnt2\_" + L$ + ".jpg", 32)
877.                 _PUTIMAGE (70 + (t * 35), 105), letter&
878.                 _FREEIMAGE letter&
879.             END IF
880.         NEXT
881.  
882.         '===draw row2
883.         FOR t = 1 TO LEN(row2$)
884.             L$ = UCASE$(MID$(row2$, t, 1))
885.             'IF L$ = " " THEN L$ = "space"
886.             IF L$ <> " " THEN
887.                 letter& = _LOADIMAGE(source$ + "fnt2\_" + L$ + ".jpg", 32)
888.                 _PUTIMAGE (70 + (t * 35), 140), letter&
889.                 _FREEIMAGE letter&
890.             END IF
891.         NEXT
892.  
893.         '===draw row3
894.         FOR t = 1 TO LEN(row3$)
895.             L$ = UCASE$(MID$(row3$, t, 1))
896.             'IF L$ = " " THEN L$ = "space"
897.             IF L$ <> " " THEN
898.                 letter& = _LOADIMAGE(source$ + "fnt2\_" + L$ + ".jpg", 32)
899.                 _PUTIMAGE (70 + (t * 35), 175), letter&
900.                 _FREEIMAGE letter&
901.             END IF
902.         NEXT
903.  
904.         _DELAY .15
905.  
906.         DrawRows 'Show them normal
907.  
908.         _DELAY .15
909.  
910.     NEXT
911.  
912. END SUB
913.  
914.  
915. '=================================================================================================================
916.  
917. SUB SelectLetter ()
918.  
919.     'gets a selected letter, only if no space...
920.  
921.     SELECT CASE row%
922.         CASE 1: sel$ = MID$(row1$, col%, 1)
923.         CASE 2: sel$ = MID$(row2$, col%, 1)
924.         CASE 3: sel$ = MID$(row3$, col%, 1)
925.     END SELECT
926.     '=== dont select if a space or empty place
927.     IF sel$ = " " OR sel$ = "" THEN
928.         selected = 0
929.     ELSE
930.         IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_select.ogg"
931.         '=== load 1st selected letter (highlighted one)
932.         letter& = _LOADIMAGE(source$ + "fnt2\_" + sel$ + ".jpg", 32)
933.         _PUTIMAGE (70 + (col% * 35), 70 + (row% * 35)), letter&
934.         _FREEIMAGE letter&
935.         selected = 1: selectedrow% = row%: selectedcol% = col%
936.     END IF
937.  
938.     '=== select sound
939.     '=== time for mouse button to get up
940.     _DELAY .3
941.  
942. END SUB
943.  
944. '=================================================================================================================
945.  
946. SUB HelpScreen (imagehandle&)
947.  
948.     pic& = _LOADIMAGE(source$ + "\img\helpscreen.jpg")
949.  
950.     StoneRoll "RIGHT", pic&, 25
951.  
952.     IF sfxflag = 1 THEN _SNDSTOP roll&
953.  
954.     _MOUSESHOW
955.  
956.     DO
957.         '=== Catch mouse
958.         DO WHILE _MOUSEINPUT
959.             mx = _MOUSEX: my = _MOUSEY
960.             LeftDown = _MOUSEBUTTON(1)
961.             IF mx > 417 AND mx < 573 AND my > 687 AND my < 727 THEN
962.                 ButtonShow "_back.jpg", 417, 687
963.             ELSE
964.                 ButtonShow "back.jpg", 417, 687
965.             END IF
966.         LOOP
967.  
968.         IF LeftDown THEN
969.             '=== if back button
970.             IF mx > 417 AND mx < 573 AND my > 687 AND my < 727 THEN
971.                 ButtonClick 1, "back.jpg", 417, 687
972.                 EXIT DO
973.             END IF
974.  
975.         END IF
976.  
977.     LOOP
978.  
979.     StoneRoll "LEFT", imagehandle&, 25
980.  
981.     _FREEIMAGE pic&
982.  
983. END SUB
984.  
985. '=================================================================================================================
986.  
987. SUB ConfigScreen (imagehandle&)
988.  
989.     pic& = _LOADIMAGE(source$ + "\img\configscreen2.jpg")
990.  
991.     _DEST pic&
992.  
993.     '=== Mark setting on screen here.
994.  
995.     IF musicflag = 1 THEN
996.         LINE (451, 252)-(476, 275), _RGB32(0, 255, 0), BF 'ON = green
997.     ELSE
998.         LINE (585, 252)-(610, 275), _RGB32(0, 255, 0), BF 'OFF = green
999.     END IF
1000.  
1001.     IF sfxflag = 1 THEN
1002.         LINE (451, 309)-(476, 332), _RGB32(0, 255, 0), BF 'ON = green
1003.     ELSE
1004.         LINE (587, 309)-(612, 332), _RGB32(0, 255, 0), BF 'OFF = green
1005.     END IF
1006.  
1007.     IF timerflag = 1 THEN
1008.         LINE (451, 369)-(477, 393), _RGB32(0, 255, 0), BF 'ON = green
1009.     ELSE
1010.         LINE (588, 370)-(614, 394), _RGB32(0, 255, 0), BF 'OFF = green
1011.     END IF
1012.  
1013.     _DEST 0
1014.  
1015.  
1016.     IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_roll.ogg"
1017.  
1018.     StoneRoll "RIGHT", pic&, 25
1019.  
1020.  
1021.     ConfigTop:
1022.  
1023.     _MOUSESHOW
1024.  
1025.     DO
1026.         '=== Catch mouse
1027.         DO WHILE _MOUSEINPUT
1028.             mx = _MOUSEX: my = _MOUSEY
1029.             LeftDown = _MOUSEBUTTON(1)
1030.             IF mx > 417 AND mx < 573 AND my > 687 AND my < 727 THEN
1031.                 ButtonShow "_back.jpg", 417, 687
1032.             ELSE
1033.                 ButtonShow "back.jpg", 417, 687
1034.             END IF
1035.         LOOP
1036.  
1037.         IF LeftDown THEN
1038.             '=== if back button
1039.             IF mx > 417 AND mx < 573 AND my > 687 AND my < 727 THEN
1040.                 ButtonClick 1, "back.jpg", 417, 687
1041.                 EXIT DO
1042.             END IF
1043.  
1044.             'Music ON click
1045.             IF mx > 451 AND mx < 477 AND my > 252 AND my < 276 THEN
1046.                 musicflag = 1
1047.                 MID$(config$, 51, 1) = CHR$(1) 'MARK CONFIG SPOT AS MUSIC ON
1048.                 _SNDLOOP music&
1049.  
1050.                 IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_click2.mp3"
1051.                 LINE (451, 252)-(476, 275), _RGB32(0, 255, 0), BF 'ON = green
1052.                 LINE (585, 252)-(610, 275), _RGB32(255, 255, 255), BF 'OFF = white
1053.                 _DELAY .3
1054.             END IF
1055.             'Music OFF clicked
1056.             IF mx > 585 AND mx < 610 AND my > 252 AND my < 275 THEN
1057.                 musicflag = 0
1058.                 MID$(config$, 51, 1) = CHR$(0) 'MARK CONFIG SPOT AS MUSIC OFF
1059.                 _SNDSTOP music&
1060.  
1061.                 IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_click2.mp3"
1062.                 LINE (451, 252)-(476, 275), _RGB32(255, 255, 255), BF 'ON
1063.                 LINE (585, 252)-(610, 275), _RGB32(0, 255, 0), BF 'OFF
1064.                 _DELAY .3
1065.             END IF
1066.             'SFX ON clicked
1067.             IF mx > 451 AND mx < 477 AND my > 309 AND my < 333 THEN
1068.                 sfxflag = 1
1069.                 MID$(config$, 52, 1) = CHR$(1) 'MARK CONFIG SPOT AS SFX ON
1070.  
1071.                 _SNDPLAYFILE source$ + "sfx\sfx_click2.mp3"
1072.                 LINE (451, 309)-(476, 332), _RGB32(0, 255, 0), BF 'ON
1073.                 LINE (587, 309)-(612, 332), _RGB32(255, 255, 255), BF
1074.                 _DELAY .3
1075.             END IF
1076.             'SFX OFF clicked
1077.             IF mx > 587 AND mx < 612 AND my > 309 AND my < 332 THEN
1078.                 sfxflag = 0
1079.                 MID$(config$, 52, 1) = CHR$(0) 'MARK CONFIG SPOT AS SFX OFF
1080.  
1081.                 _SNDPLAYFILE source$ + "sfx\sfx_click2.mp3"
1082.                 LINE (451, 309)-(476, 332), _RGB32(255, 255, 255), BF 'ON
1083.                 LINE (587, 309)-(612, 332), _RGB32(0, 255, 0), BF
1084.                 _DELAY .3
1085.             END IF
1086.             'TIMER OFF CLICKED
1087.             IF mx > 588 AND mx < 614 AND my > 370 AND my < 394 THEN
1088.                 timerflag = 1
1089.                 MID$(config$, 53, 1) = CHR$(1) 'MARK CONFIG SPOT AS TIMER ON
1090.  
1091.                 IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_click2.mp3"
1092.                 _DELAY .3
1093.  
1094.                 _DISPLAY
1095.                 snapshot& = _COPYIMAGE(_DISPLAY)
1096.                 _AUTODISPLAY
1097.  
1098.                 timerwimp& = _LOADIMAGE(source$ + "img\timernotice.jpg")
1099.                 _PUTIMAGE (218, 160), timerwimp&, 0
1100.                 _FREEIMAGE timerwimp&
1101.  
1102.                 '=== wait for Reply...
1103.                 DO
1104.                     cheese = _MOUSEINPUT
1105.                     mx2 = _MOUSEX: my2 = _MOUSEY
1106.                     LeftDown2 = _MOUSEBUTTON(1)
1107.                     'hover button
1108.                     IF mx2 > 286 AND mx2 < 717 AND my2 > 466 AND my2 < 520 THEN
1109.                         ButtonShow "_wimp.jpg", 286, 466
1110.                         IF _MOUSEBUTTON(1) THEN
1111.                             ButtonClick 1, "wimp.jpg", 286, 466
1112.                             EXIT DO
1113.                         END IF
1114.  
1115.                     ELSE
1116.                         ButtonShow "wimp.jpg", 286, 466
1117.                     END IF
1118.                 LOOP
1119.  
1120.                 _PUTIMAGE , snapshot&, 0
1121.  
1122.                 _FREEIMAGE snapshot&
1123.  
1124.                 GOTO ConfigTop
1125.  
1126.             END IF
1127.             '==== RESET GAME CLICKED
1128.             IF mx > 369 AND mx < 617 AND my > 585 AND my < 639 THEN
1129.                 ButtonClick 0, "reset.jpg", 369, 585
1130.  
1131.                 _DISPLAY
1132.                 snapshot& = _COPYIMAGE(_DISPLAY)
1133.                 _AUTODISPLAY
1134.  
1135.                 timerwimp& = _LOADIMAGE(source$ + "img\resetnotice.jpg")
1136.                 _PUTIMAGE (276, 160), timerwimp&, 0
1137.                 _FREEIMAGE timerwimp&
1138.  
1139.                 '=== Get YES or NO
1140.                 DO
1141.                     cheese = _MOUSEINPUT
1142.                     mx2 = _MOUSEX: my2 = _MOUSEY
1143.                     LeftDown2 = _MOUSEBUTTON(1)
1144.  
1145.                     'YES button poll
1146.                     IF mx2 > 318 AND mx2 < 474 AND my2 > 395 AND my2 < 435 THEN
1147.                         ButtonShow "_yes.jpg", 318, 395
1148.                         IF _MOUSEBUTTON(1) THEN
1149.                             ButtonClick 1, "yes.jpg", 318, 395
1150.  
1151.                             '===  RESET CONFIG DATA HERE (ONLY QUOTE STUFF)
1152.                             FOR cc = 1 TO 50
1153.                                 MID$(config$, cc, 1) = CHR$(0)
1154.                             NEXT
1155.                             unsolved = 50
1156.                             EXIT DO
1157.                         END IF
1158.                     ELSE
1159.                         ButtonShow "yes.jpg", 318, 395
1160.                     END IF
1161.                     'NO BUTTON poll
1162.                     IF mx2 > 516 AND mx2 < 672 AND my2 > 395 AND my2 < 435 THEN
1163.                         ButtonShow "_no.jpg", 516, 395
1164.                         IF _MOUSEBUTTON(1) THEN
1165.                             ButtonClick 1, "no.jpg", 516, 395
1166.                             EXIT DO
1167.                         END IF
1168.                     ELSE
1169.                         ButtonShow "no.jpg", 516, 395
1170.                     END IF
1171.  
1172.  
1173.                 LOOP
1174.  
1175.                 _PUTIMAGE , snapshot&, 0
1176.  
1177.                 _FREEIMAGE snapshot&
1178.  
1179.                 GOTO ConfigTop
1180.  
1181.  
1182.             END IF
1183.  
1184.         END IF
1185.  
1186.     LOOP
1187.  
1188.  
1189.     IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_roll.ogg"
1190.  
1191.     StoneRoll "LEFT", imagehandle&, 25
1192.  
1193.     _FREEIMAGE pic&
1194.  
1195. END SUB
1196.  
1197.  
1198. '=================================================================================================================
1199.  
1200. SUB SelectQuote ()
1201.  
1202.     '=== Brings up Select Quote Menu
1203.  
1204.     selectmenu& = _LOADIMAGE(source$ + "img\select.jpg", 32)
1205.     solvedimg& = _LOADIMAGE(source$ + "img\solved.jpg", 32)
1206.  
1207.  
1208.     '=== Play Select menu fly in vid
1209.  
1210.     '========================
1211.     FOR t = 15 TO 0 STEP -1
1212.         _PUTIMAGE (0, 0), selectframe(t)
1213.         _LIMIT 40
1214.     NEXT
1215.  
1216.     _PUTIMAGE , selectmenu&, 0
1217.  
1218.     '=======================
1219.  
1220.  
1221.     _FREEIMAGE selectmenu& 'no need it because we're going to change it so much, just grab background now
1222.  
1223.  
1224.     '=== If quotes have been solved, put solved tag image ..
1225.     IF MID$(config$, 1, 1) = CHR$(1) THEN _PUTIMAGE (209, 173), solvedimg&, 0
1226.     IF MID$(config$, 2, 1) = CHR$(1) THEN _PUTIMAGE (284, 173), solvedimg&, 0
1227.     IF MID$(config$, 3, 1) = CHR$(1) THEN _PUTIMAGE (359, 173), solvedimg&, 0
1228.     IF MID$(config$, 4, 1) = CHR$(1) THEN _PUTIMAGE (434, 173), solvedimg&, 0
1229.     IF MID$(config$, 5, 1) = CHR$(1) THEN _PUTIMAGE (509, 173), solvedimg&, 0
1230.     IF MID$(config$, 6, 1) = CHR$(1) THEN _PUTIMAGE (584, 173), solvedimg&, 0
1231.     IF MID$(config$, 7, 1) = CHR$(1) THEN _PUTIMAGE (659, 173), solvedimg&, 0
1232.     IF MID$(config$, 8, 1) = CHR$(1) THEN _PUTIMAGE (734, 173), solvedimg&, 0
1233.  
1234.     IF MID$(config$, 9, 1) = CHR$(1) THEN _PUTIMAGE (209, 235), solvedimg&, 0
1235.     IF MID$(config$, 10, 1) = CHR$(1) THEN _PUTIMAGE (284, 235), solvedimg&, 0
1236.     IF MID$(config$, 11, 1) = CHR$(1) THEN _PUTIMAGE (359, 235), solvedimg&, 0
1237.     IF MID$(config$, 12, 1) = CHR$(1) THEN _PUTIMAGE (434, 235), solvedimg&, 0
1238.     IF MID$(config$, 13, 1) = CHR$(1) THEN _PUTIMAGE (509, 235), solvedimg&, 0
1239.     IF MID$(config$, 14, 1) = CHR$(1) THEN _PUTIMAGE (584, 235), solvedimg&, 0
1240.     IF MID$(config$, 15, 1) = CHR$(1) THEN _PUTIMAGE (659, 235), solvedimg&, 0
1241.     IF MID$(config$, 16, 1) = CHR$(1) THEN _PUTIMAGE (734, 235), solvedimg&, 0
1242.  
1243.     IF MID$(config$, 17, 1) = CHR$(1) THEN _PUTIMAGE (209, 297), solvedimg&, 0
1244.     IF MID$(config$, 18, 1) = CHR$(1) THEN _PUTIMAGE (284, 297), solvedimg&, 0
1245.     IF MID$(config$, 19, 1) = CHR$(1) THEN _PUTIMAGE (359, 297), solvedimg&, 0
1246.     IF MID$(config$, 20, 1) = CHR$(1) THEN _PUTIMAGE (434, 297), solvedimg&, 0
1247.     IF MID$(config$, 21, 1) = CHR$(1) THEN _PUTIMAGE (509, 297), solvedimg&, 0
1248.     IF MID$(config$, 22, 1) = CHR$(1) THEN _PUTIMAGE (584, 297), solvedimg&, 0
1249.     IF MID$(config$, 23, 1) = CHR$(1) THEN _PUTIMAGE (659, 297), solvedimg&, 0
1250.     IF MID$(config$, 24, 1) = CHR$(1) THEN _PUTIMAGE (734, 297), solvedimg&, 0
1251.  
1252.     IF MID$(config$, 25, 1) = CHR$(1) THEN _PUTIMAGE (209, 359), solvedimg&, 0
1253.     IF MID$(config$, 26, 1) = CHR$(1) THEN _PUTIMAGE (284, 359), solvedimg&, 0
1254.     IF MID$(config$, 27, 1) = CHR$(1) THEN _PUTIMAGE (359, 359), solvedimg&, 0
1255.     IF MID$(config$, 28, 1) = CHR$(1) THEN _PUTIMAGE (434, 359), solvedimg&, 0
1256.     IF MID$(config$, 29, 1) = CHR$(1) THEN _PUTIMAGE (509, 359), solvedimg&, 0
1257.     IF MID$(config$, 30, 1) = CHR$(1) THEN _PUTIMAGE (584, 359), solvedimg&, 0
1258.     IF MID$(config$, 31, 1) = CHR$(1) THEN _PUTIMAGE (659, 359), solvedimg&, 0
1259.     IF MID$(config$, 32, 1) = CHR$(1) THEN _PUTIMAGE (734, 359), solvedimg&, 0
1260.  
1261.     IF MID$(config$, 33, 1) = CHR$(1) THEN _PUTIMAGE (209, 421), solvedimg&, 0
1262.     IF MID$(config$, 34, 1) = CHR$(1) THEN _PUTIMAGE (284, 421), solvedimg&, 0
1263.     IF MID$(config$, 35, 1) = CHR$(1) THEN _PUTIMAGE (359, 421), solvedimg&, 0
1264.     IF MID$(config$, 36, 1) = CHR$(1) THEN _PUTIMAGE (434, 421), solvedimg&, 0
1265.     IF MID$(config$, 37, 1) = CHR$(1) THEN _PUTIMAGE (509, 421), solvedimg&, 0
1266.     IF MID$(config$, 38, 1) = CHR$(1) THEN _PUTIMAGE (584, 421), solvedimg&, 0
1267.     IF MID$(config$, 39, 1) = CHR$(1) THEN _PUTIMAGE (659, 421), solvedimg&, 0
1268.     IF MID$(config$, 40, 1) = CHR$(1) THEN _PUTIMAGE (734, 421), solvedimg&, 0
1269.  
1270.     IF MID$(config$, 41, 1) = CHR$(1) THEN _PUTIMAGE (209, 483), solvedimg&, 0
1271.     IF MID$(config$, 42, 1) = CHR$(1) THEN _PUTIMAGE (284, 483), solvedimg&, 0
1272.     IF MID$(config$, 43, 1) = CHR$(1) THEN _PUTIMAGE (359, 483), solvedimg&, 0
1273.     IF MID$(config$, 44, 1) = CHR$(1) THEN _PUTIMAGE (434, 483), solvedimg&, 0
1274.     IF MID$(config$, 45, 1) = CHR$(1) THEN _PUTIMAGE (509, 483), solvedimg&, 0
1275.     IF MID$(config$, 46, 1) = CHR$(1) THEN _PUTIMAGE (584, 483), solvedimg&, 0
1276.     IF MID$(config$, 47, 1) = CHR$(1) THEN _PUTIMAGE (659, 483), solvedimg&, 0
1277.     IF MID$(config$, 48, 1) = CHR$(1) THEN _PUTIMAGE (734, 483), solvedimg&, 0
1278.  
1279.     IF MID$(config$, 49, 1) = CHR$(1) THEN _PUTIMAGE (209, 545), solvedimg&, 0
1280.     IF MID$(config$, 50, 1) = CHR$(1) THEN _PUTIMAGE (284, 545), solvedimg&, 0
1281.  
1282.  
1283.     '===load select menu message based on solved #
1284.     IF unsolved = 0 THEN
1285.         selectmsg& = _LOADIMAGE(source$ + "img\select-champ.jpg", 32)
1286.         _PUTIMAGE (376, 547), selectmsg&, 0
1287.     ELSE
1288.         selectmsg& = _LOADIMAGE(source$ + "img\select-msg.jpg", 32)
1289.         _PUTIMAGE (400, 548), selectmsg&, 0
1290.     END IF
1291.     _FREEIMAGE selectmsg&
1292.  
1293.  
1294.  
1295.  
1296.     'NOW grab screen again as select menu
1297.     '=== Grab background
1298.     _DISPLAY
1299.     selectmenu& = _COPYIMAGE(_DISPLAY)
1300.     _AUTODISPLAY
1301.  
1302.     '=== get menu choice
1303.     _MOUSESHOW
1304.  
1305.     DO
1306.         '=== Catch mouse
1307.         DO WHILE _MOUSEINPUT
1308.             mx = _MOUSEX: my = _MOUSEY: LeftDown = _MOUSEBUTTON(1)
1309.         LOOP
1310.  
1311.         IF LeftDown THEN
1312.             '== 1
1313.             IF mx > 209 AND mx < 277 AND my > 173 AND my < 227 THEN
1314.                 SelectNumber "1", 209, 173, selectmenu&: EXIT DO
1315.             END IF
1316.             '== 2
1317.             IF mx > 284 AND mx < 353 AND my > 173 AND my < 227 THEN
1318.                 SelectNumber "2", 284, 173, selectmenu&: EXIT DO
1319.             END IF
1320.             '== 3
1321.             IF mx > 359 AND mx < 428 AND my > 173 AND my < 227 THEN
1322.                 SelectNumber "3", 359, 173, selectmenu&: EXIT DO
1323.             END IF
1324.             '== 4
1325.             IF mx > 434 AND mx < 503 AND my > 173 AND my < 227 THEN
1326.                 SelectNumber "4", 434, 173, selectmenu&: EXIT DO
1327.             END IF
1328.             '== 5
1329.             IF mx > 509 AND mx < 578 AND my > 173 AND my < 227 THEN
1330.                 SelectNumber "5", 509, 173, selectmenu&: EXIT DO
1331.             END IF
1332.             '== 6
1333.             IF mx > 584 AND mx < 652 AND my > 173 AND my < 227 THEN
1334.                 SelectNumber "6", 584, 173, selectmenu&: EXIT DO
1335.             END IF
1336.             '== 7
1337.             IF mx > 659 AND mx < 727 AND my > 173 AND my < 227 THEN
1338.                 SelectNumber "7", 659, 173, selectmenu&: EXIT DO
1339.             END IF
1340.             '== 8
1341.             IF mx > 734 AND mx < 803 AND my > 173 AND my < 227 THEN
1342.                 SelectNumber "8", 734, 173, selectmenu&: EXIT DO
1343.             END IF
1344.             '== 9
1345.             IF mx > 209 AND mx < 278 AND my > 235 AND my < 289 THEN
1346.                 SelectNumber "9", 209, 235, selectmenu&: EXIT DO
1347.             END IF
1348.             '== 10
1349.             IF mx > 284 AND mx < 353 AND my > 235 AND my < 289 THEN
1350.                 SelectNumber "10", 284, 235, selectmenu&: EXIT DO
1351.             END IF
1352.             '== 11
1353.             IF mx > 359 AND mx < 428 AND my > 235 AND my < 289 THEN
1354.                 SelectNumber "11", 359, 235, selectmenu&: EXIT DO
1355.             END IF
1356.             '== 12
1357.             IF mx > 434 AND mx < 503 AND my > 235 AND my < 289 THEN
1358.                 SelectNumber "12", 434, 235, selectmenu&: EXIT DO
1359.             END IF
1360.             '== 13
1361.             IF mx > 509 AND mx < 578 AND my > 235 AND my < 289 THEN
1362.                 SelectNumber "13", 509, 235, selectmenu&: EXIT DO
1363.             END IF
1364.             '=== 14
1365.             IF mx > 584 AND mx < 653 AND my > 235 AND my < 289 THEN
1366.                 SelectNumber "14", 584, 235, selectmenu&: EXIT DO
1367.             END IF
1368.             '=== 15
1369.             IF mx > 659 AND mx < 728 AND my > 235 AND my < 289 THEN
1370.                 SelectNumber "15", 659, 235, selectmenu&: EXIT DO
1371.             END IF
1372.             '=== 16
1373.             IF mx > 734 AND mx < 803 AND my > 235 AND my < 289 THEN
1374.                 SelectNumber "16", 734, 235, selectmenu&: EXIT DO
1375.             END IF
1376.             '=== 17
1377.             IF mx > 209 AND mx < 278 AND my > 297 AND my < 351 THEN
1378.                 SelectNumber "17", 209, 297, selectmenu&: EXIT DO
1379.             END IF
1380.             '=== 18
1381.             IF mx > 284 AND mx < 353 AND my > 297 AND my < 351 THEN
1382.                 SelectNumber "18", 284, 297, selectmenu&: EXIT DO
1383.             END IF
1384.             '=== 19
1385.             IF mx > 359 AND mx < 428 AND my > 297 AND my < 351 THEN
1386.                 SelectNumber "19", 359, 297, selectmenu&: EXIT DO
1387.             END IF
1388.             '=== 20
1389.             IF mx > 434 AND mx < 503 AND my > 297 AND my < 351 THEN
1390.                 SelectNumber "20", 434, 297, selectmenu&: EXIT DO
1391.             END IF
1392.             '=== 21
1393.             IF mx > 509 AND mx < 578 AND my > 297 AND my < 351 THEN
1394.                 SelectNumber "21", 509, 297, selectmenu&: EXIT DO
1395.             END IF
1396.             '=== 22
1397.             IF mx > 584 AND mx < 653 AND my > 297 AND my < 351 THEN
1398.                 SelectNumber "22", 584, 297, selectmenu&: EXIT DO
1399.             END IF
1400.             '=== 23
1401.             IF mx > 659 AND mx < 728 AND my > 297 AND my < 351 THEN
1402.                 SelectNumber "23", 659, 297, selectmenu&: EXIT DO
1403.             END IF
1404.             '=== 24
1405.             IF mx > 734 AND mx < 803 AND my > 297 AND my < 351 THEN
1406.                 SelectNumber "24", 734, 297, selectmenu&: EXIT DO
1407.             END IF
1408.             '=== 25
1409.             IF mx > 209 AND mx < 278 AND my > 359 AND my < 413 THEN
1410.                 SelectNumber "25", 209, 359, selectmenu&: EXIT DO
1411.             END IF
1412.             '=== 26
1413.             IF mx > 284 AND mx < 353 AND my > 359 AND my < 413 THEN
1414.                 SelectNumber "26", 284, 359, selectmenu&: EXIT DO
1415.             END IF
1416.             '=== 27
1417.             IF mx > 359 AND mx < 428 AND my > 359 AND my < 413 THEN
1418.                 SelectNumber "27", 359, 359, selectmenu&: EXIT DO
1419.             END IF
1420.             '=== 28
1421.             IF mx > 434 AND mx < 503 AND my > 359 AND my < 413 THEN
1422.                 SelectNumber "28", 434, 359, selectmenu&: EXIT DO
1423.             END IF
1424.             '=== 29
1425.             IF mx > 509 AND mx < 578 AND my > 359 AND my < 413 THEN
1426.                 SelectNumber "29", 509, 359, selectmenu&: EXIT DO
1427.             END IF
1428.             '=== 30
1429.             IF mx > 584 AND mx < 653 AND my > 359 AND my < 413 THEN
1430.                 SelectNumber "30", 584, 359, selectmenu&: EXIT DO
1431.             END IF
1432.             '=== 31
1433.             IF mx > 659 AND mx < 728 AND my > 359 AND my < 413 THEN
1434.                 SelectNumber "31", 659, 359, selectmenu&: EXIT DO
1435.             END IF
1436.             '=== 32
1437.             IF mx > 734 AND mx < 803 AND my > 359 AND my < 413 THEN
1438.                 SelectNumber "32", 734, 359, selectmenu&: EXIT DO
1439.             END IF
1440.             '=== 33
1441.             IF mx > 209 AND mx < 278 AND my > 421 AND my < 475 THEN
1442.                 SelectNumber "33", 209, 421, selectmenu&: EXIT DO
1443.             END IF
1444.             '=== 34
1445.             IF mx > 284 AND mx < 353 AND my > 421 AND my < 475 THEN
1446.                 SelectNumber "34", 284, 421, selectmenu&: EXIT DO
1447.             END IF
1448.             '=== 35
1449.             IF mx > 359 AND mx < 428 AND my > 421 AND my < 475 THEN
1450.                 SelectNumber "35", 359, 421, selectmenu&: EXIT DO
1451.             END IF
1452.             '=== 36
1453.             IF mx > 434 AND mx < 503 AND my > 421 AND my < 475 THEN
1454.                 SelectNumber "36", 434, 421, selectmenu&: EXIT DO
1455.             END IF
1456.             '=== 37
1457.             IF mx > 509 AND mx < 578 AND my > 421 AND my < 475 THEN
1458.                 SelectNumber "37", 509, 421, selectmenu&: EXIT DO
1459.             END IF
1460.             '=== 38
1461.             IF mx > 584 AND mx < 653 AND my > 421 AND my < 475 THEN
1462.                 SelectNumber "38", 584, 421, selectmenu&: EXIT DO
1463.             END IF
1464.             '=== 39
1465.             IF mx > 659 AND mx < 728 AND my > 421 AND my < 475 THEN
1466.                 SelectNumber "39", 659, 421, selectmenu&: EXIT DO
1467.             END IF
1468.             '=== 40
1469.             IF mx > 734 AND mx < 803 AND my > 421 AND my < 475 THEN
1470.                 SelectNumber "40", 734, 421, selectmenu&: EXIT DO
1471.             END IF
1472.             '=== 41
1473.             IF mx > 209 AND mx < 278 AND my > 483 AND my < 537 THEN
1474.                 SelectNumber "41", 209, 483, selectmenu&: EXIT DO
1475.             END IF
1476.             '=== 42
1477.             IF mx > 284 AND mx < 353 AND my > 483 AND my < 537 THEN
1478.                 SelectNumber "42", 284, 483, selectmenu&: EXIT DO
1479.             END IF
1480.             '=== 43
1481.             IF mx > 359 AND mx < 428 AND my > 483 AND my < 537 THEN
1482.                 SelectNumber "43", 359, 483, selectmenu&: EXIT DO
1483.             END IF
1484.             '=== 44
1485.             IF mx > 434 AND mx < 503 AND my > 483 AND my < 537 THEN
1486.                 SelectNumber "44", 434, 483, selectmenu&: EXIT DO
1487.             END IF
1488.             '=== 45
1489.             IF mx > 509 AND mx < 578 AND my > 483 AND my < 537 THEN
1490.                 SelectNumber "45", 509, 483, selectmenu&: EXIT DO
1491.             END IF
1492.             '=== 46
1493.             IF mx > 584 AND mx < 653 AND my > 483 AND my < 537 THEN
1494.                 SelectNumber "46", 584, 483, selectmenu&: EXIT DO
1495.             END IF
1496.             '=== 47
1497.             IF mx > 659 AND mx < 728 AND my > 483 AND my < 537 THEN
1498.                 SelectNumber "47", 659, 483, selectmenu&: EXIT DO
1499.             END IF
1500.             '=== 48
1501.             IF mx > 734 AND mx < 803 AND my > 483 AND my < 537 THEN
1502.                 SelectNumber "48", 734, 483, selectmenu&: EXIT DO
1503.             END IF
1504.             '=== 49
1505.             IF mx > 209 AND mx < 278 AND my > 545 AND my < 599 THEN
1506.                 SelectNumber "49", 209, 545, selectmenu&: EXIT DO
1507.             END IF
1508.             '=== 50
1509.             IF mx > 284 AND mx < 353 AND my > 545 AND my < 599 THEN
1510.                 SelectNumber "50", 284, 545, selectmenu&: EXIT DO
1511.             END IF
1512.  
1513.         END IF
1514.  
1515.     LOOP
1516.  
1517.     '=== Play select menu again, flying out.
1518.  
1519.     '========================
1520.     FOR t = 0 TO 15
1521.         _PUTIMAGE (0, 0), selectframe(t)
1522.         _DISPLAY
1523.         _LIMIT 40
1524.     NEXT
1525.     '=======================
1526.  
1527.     _FREEIMAGE selectmenu&
1528.     _FREEIMAGE solvedimg&
1529.  
1530. END SUB
1531.  
1532. SUB SelectNumber (number$, x, y, image&)
1533.     IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_click.mp3"
1534.     btn& = _LOADIMAGE(source$ + "num\" + number$ + ".jpg", 32)
1535.     _PUTIMAGE (x, y), btn&, 0: _FREEIMAGE btn&
1536.     _DELAY .15: _PUTIMAGE (0, 0), image&, 0: _DELAY .15
1537.     quote = VAL(number$)
1538. END SUB
1539.  
1540. '================================================================================================================
1541.  
1542. SUB GetQuote (quote)
1543.  
1544.     '=== Gets new quote to solve based on quote value,
1545.     '=== Sets the Row data...
1546.  
1547.     SELECT CASE quote
1548.         '' QUOTES MUST NOT BE LONGER THAN 23 LETTERS ON ONE ROW
1549.         '' AND ALL ROWS SHOULD BE SAME LENGTH (PAD WITH SPACES)
1550.  
1551.         CASE 1
1552.             OrigRow1$ = "GREAT MINDS ": row1$ = OrigRow1$
1553.             OrigRow2$ = "THINK ALIKE ": row2$ = OrigRow2$
1554.             OrigRow3$ = "            ": row3$ = OrigRow3$
1555.         CASE 2
1556.             OrigRow1$ = "TO ERR IS HUMAN  ": row1$ = OrigRow1$
1557.             OrigRow2$ = "TO FORGIVE DEVINE": row2$ = OrigRow2$
1558.             OrigRow3$ = "                 ": row3$ = OrigRow3$
1559.         CASE 3
1560.             OrigRow1$ = "IT AINT OVER TILL  ": row1$ = OrigRow1$
1561.             OrigRow2$ = "THE FAT LADY SINGS ": row2$ = OrigRow2$
1562.             OrigRow3$ = "                   ": row3$ = OrigRow3$
1563.         CASE 4
1564.             OrigRow1$ = "A ROLLING STONE ": row1$ = OrigRow1$
1565.             OrigRow2$ = "GATHERS NO MOSS ": row2$ = OrigRow2$
1566.             OrigRow3$ = "                ": row3$ = OrigRow3$
1567.         CASE 5
1568.             OrigRow1$ = "LAUGHTER IS THE ": row1$ = OrigRow1$
1569.             OrigRow2$ = "BEST  MEDICINE  ": row2$ = OrigRow2$
1570.             OrigRow3$ = "                ": row3$ = OrigRow3$
1571.  
1572.         CASE 6
1573.             OrigRow1$ = "ABSENCE MAKES THE ": row1$ = OrigRow1$
1574.             OrigRow2$ = "HEART GROW FONDER ": row2$ = OrigRow2$
1575.             OrigRow3$ = "                  ": row3$ = OrigRow3$
1576.  
1577.         CASE 7
1578.             OrigRow1$ = "YOU CANT HAVE YOUR ": row1$ = OrigRow1$
1579.             OrigRow2$ = "CAKE AND EAT IT TOO": row2$ = OrigRow2$
1580.             OrigRow3$ = "                   ": row3$ = OrigRow3$
1581.  
1582.         CASE 8
1583.             OrigRow1$ = "IF AT FIRST YOU DONT ": row1$ = OrigRow1$
1584.             OrigRow2$ = "SUCCEED TRY TRY AGAIN": row2$ = OrigRow2$
1585.             OrigRow3$ = "                     ": row3$ = OrigRow3$
1586.         CASE 9
1587.             OrigRow1$ = "NECESSITY IS  ": row1$ = OrigRow1$
1588.             OrigRow2$ = "THE MOTHER OF ": row2$ = OrigRow2$
1589.             OrigRow3$ = "INVENTION     ": row3$ = OrigRow3$
1590.         CASE 10
1591.             OrigRow1$ = "CLEANLINESS ": row1$ = OrigRow1$
1592.             OrigRow2$ = "IS NEXT TO  ": row2$ = OrigRow2$
1593.             OrigRow3$ = "GODLINESS": row3$ = OrigRow3$
1594.         CASE 11
1595.             OrigRow1$ = "THE BIGGER THEY ": row1$ = OrigRow1$
1596.             OrigRow2$ = "ARE  THE HARDER ": row2$ = OrigRow2$
1597.             OrigRow3$ = "THEY FALL       ": row3$ = OrigRow3$
1598.         CASE 12
1599.             OrigRow1$ = "ACTIONS SPEAK  ": row1$ = OrigRow1$
1600.             OrigRow2$ = "LOUDER THAN    ": row2$ = OrigRow2$
1601.             OrigRow3$ = "WORDS          ": row3$ = OrigRow3$
1602.         CASE 13
1603.             OrigRow1$ = "A CHAIN IS ONLY  ": row1$ = OrigRow1$
1604.             OrigRow2$ = "AS STRONG AS ITS ": row2$ = OrigRow2$
1605.             OrigRow3$ = "WEAKEST LINK     ": row3$ = OrigRow3$
1606.         CASE 14
1607.             OrigRow1$ = "BIRDS OF A    ": row1$ = OrigRow1$
1608.             OrigRow2$ = "FEATHER FLOCK ": row2$ = OrigRow2$
1609.             OrigRow3$ = "TOGETHER      ": row3$ = OrigRow3$
1610.         CASE 15
1611.             OrigRow1$ = "WHEN THE CATS  ": row1$ = OrigRow1$
1612.             OrigRow2$ = "AWAY  THE MICE ": row2$ = OrigRow2$
1613.             OrigRow3$ = "WILL PLAY      ": row3$ = OrigRow3$
1614.         CASE 16
1615.             OrigRow1$ = "A FOOL AND HIS ": row1$ = OrigRow1$
1616.             OrigRow2$ = "MONEY ARE SOON ": row2$ = OrigRow2$
1617.             OrigRow3$ = "PARTED         ": row3$ = OrigRow3$
1618.         CASE 17
1619.             OrigRow1$ = "NONE SO BLIND ": row1$ = OrigRow1$
1620.             OrigRow2$ = "AS THOSE WHO  ": row2$ = OrigRow2$
1621.             OrigRow3$ = "WILL NOT SEE  ": row3$ = OrigRow3$
1622.         CASE 18
1623.             OrigRow1$ = "YOU CANT JUDGE ": row1$ = OrigRow1$
1624.             OrigRow2$ = "A BOOK BY ITS  ": row2$ = OrigRow2$
1625.             OrigRow3$ = "COVER          ": row3$ = OrigRow3$
1626.         CASE 19
1627.             OrigRow1$ = "DONT PUT ALL ": row1$ = OrigRow1$
1628.             OrigRow2$ = "YOUR EGGS IN ": row2$ = OrigRow2$
1629.             OrigRow3$ = "ONE  BASKET  ": row3$ = OrigRow3$
1630.         CASE 20
1631.             OrigRow1$ = "FOOLS RUSH IN ": row1$ = OrigRow1$
1632.             OrigRow2$ = "WHERE ANGELS  ": row2$ = OrigRow2$
1633.             OrigRow3$ = "FEAR TO TREAD ": row3$ = OrigRow3$
1634.         CASE 21
1635.             OrigRow1$ = "ALL WORK AND NO ": row1$ = OrigRow1$
1636.             OrigRow2$ = "PLAY MAKES JACK ": row2$ = OrigRow2$
1637.             OrigRow3$ = "A    DULL  BOY  ": row3$ = OrigRow3$
1638.         CASE 22
1639.             OrigRow1$ = "OLD SOLDIERS NEVER ": row1$ = OrigRow1$
1640.             OrigRow2$ = "DIE THEY  SIMPLY   ": row2$ = OrigRow2$
1641.             OrigRow3$ = "FADE AWAY          ": row3$ = OrigRow3$
1642.         CASE 23
1643.             OrigRow1$ = "DONT COUNT YOUR ": row1$ = OrigRow1$
1644.             OrigRow2$ = "CHICKENS BEFORE ": row2$ = OrigRow2$
1645.             OrigRow3$ = "THEY ARE HATCHED": row3$ = OrigRow3$
1646.         CASE 24
1647.             OrigRow1$ = "LIGHTNING NEVER  ": row1$ = OrigRow1$
1648.             OrigRow2$ = "STRIKES TWICE IN ": row2$ = OrigRow2$
1649.             OrigRow3$ = "THE  SAME  PLACE ": row3$ = OrigRow3$
1650.         CASE 25
1651.             OrigRow1$ = "AN OUNCE OF PREVENTION": row1$ = OrigRow1$
1652.             OrigRow2$ = "IS WORTH A   POUND  OF": row2$ = OrigRow2$
1653.             OrigRow3$ = "   CURE               ": row3$ = OrigRow3$
1654.         CASE 26
1655.             OrigRow1$ = "DONT CROSS YOUR ": row1$ = OrigRow1$
1656.             OrigRow2$ = "BRIDGES  BEFORE ": row2$ = OrigRow2$
1657.             OrigRow3$ = "YOU COME TO THEM": row3$ = OrigRow3$
1658.         CASE 27
1659.             OrigRow1$ = "IT WAS THE LAST  ": row1$ = OrigRow1$
1660.             OrigRow2$ = "STRAW THAT BROKE ": row2$ = OrigRow2$
1661.             OrigRow3$ = "THE   CAMELS BACk": row3$ = OrigRow3$
1662.         CASE 28
1663.             OrigRow1$ = "YOU CAN CATCH MORE ": row1$ = OrigRow1$
1664.             OrigRow2$ = "FLIES WITH HONEY   ": row2$ = OrigRow2$
1665.             OrigRow3$ = "THAN WITH  VINEGAR ": row3$ = OrigRow3$
1666.         CASE 29
1667.             OrigRow1$ = "NEVER PUT OFF UNTIL": row1$ = OrigRow1$
1668.             OrigRow2$ = "TOMORROW  WHAT YOU  ": row2$ = OrigRow2$
1669.             OrigRow3$ = "CAN DO    TODAY     ": row3$ = OrigRow3$
1670.         CASE 30
1671.             OrigRow1$ = "IF YOU LIE DOWN   ": row1$ = OrigRow1$
1672.             OrigRow2$ = "WITH DOGS YOU WILL": row2$ = OrigRow2$
1673.             OrigRow3$ = "GET UP WITH FLEAS ": row3$ = OrigRow3$
1674.         CASE 31
1675.             OrigRow1$ = "THOSE WHO LIVE IN  ": row1$ = OrigRow1$
1676.             OrigRow2$ = "GLASS HOUSES SHOULD": row2$ = OrigRow2$
1677.             OrigRow3$ = "NOT THROW STONES   ": row3$ = OrigRow3$
1678.         CASE 32
1679.             OrigRow1$ = " NECESSITY IS A HARD": row1$ = OrigRow1$
1680.             OrigRow2$ = "NURSE BUT SHE RAISES": row2$ = OrigRow2$
1681.             OrigRow3$ = "STRONG  CHILDREN    ": row3$ = OrigRow3$
1682.         CASE 33
1683.             OrigRow1$ = "IT IS BETTER TO BE  ": row1$ = OrigRow1$
1684.             OrigRow2$ = "GREEN AND  GROWING  ": row2$ = OrigRow2$
1685.             OrigRow3$ = "THAN RIPE AND ROTTEN": row3$ = OrigRow3$
1686.         CASE 34
1687.             OrigRow1$ = "HE WHO FIGHTS  AND  ": row1$ = OrigRow1$
1688.             OrigRow2$ = "RUNS AWAY MAY  LIVE ": row2$ = OrigRow2$
1689.             OrigRow3$ = "TO FIGHT ANOTHER DAY": row3$ = OrigRow3$
1690.         CASE 35
1691.             OrigRow1$ = "YOU CAN  LEAD A HORSE": row1$ = OrigRow1$
1692.             OrigRow2$ = "TO WATER BUT  YOU    ": row2$ = OrigRow2$
1693.             OrigRow3$ = "CANT MAKE HIM DRINK  ": row3$ = OrigRow3$
1694.         CASE 36
1695.             OrigRow1$ = "THE GRASS  IS ALWAYS": row1$ = OrigRow1$
1696.             OrigRow2$ = "GREENER ON THE OTHER": row2$ = OrigRow2$
1697.             OrigRow3$ = "SIDE OF THE FENCE   ": row3$ = OrigRow3$
1698.         CASE 37
1699.             OrigRow1$ = "THOSE WHO  DO NOT     ": row1$ = OrigRow1$
1700.             OrigRow2$ = "LEARN FROM HISTORY ARE": row2$ = OrigRow2$
1701.             OrigRow3$ = "DOOMED  TO  REPEAT IT ": row3$ = OrigRow3$
1702.         CASE 38
1703.             OrigRow1$ = "BETTER TO HAVE LOVED  ": row1$ = OrigRow1$
1704.             OrigRow2$ = "AND LOST  THAN NEVER  ": row2$ = OrigRow2$
1705.             OrigRow3$ = "TO HAVE LOVED AT ALL  ": row3$ = OrigRow3$
1706.         CASE 39
1707.             OrigRow1$ = "LAUGH AND THE WORLD   ": row1$ = OrigRow1$
1708.             OrigRow2$ = " LAUGHS WITH YOU WEEP  ": row2$ = OrigRow2$
1709.             OrigRow3$ = "   AND  YOU WEEP ALONE ": row3$ = OrigRow3$
1710.         CASE 40
1711.             OrigRow1$ = "OH WHAT A TANGLED WEB  ": row1$ = OrigRow1$
1712.             OrigRow2$ = "WE WEAVE WHEN FIRST WE ": row2$ = OrigRow2$
1713.             OrigRow3$ = "PRACTICE TO DECEIVE    ": row3$ = OrigRow3$
1714.         CASE 41
1715.             OrigRow1$ = "IF YOU DONT KNOW WHERE ": row1$ = OrigRow1$
1716.             OrigRow2$ = "YOURE  GOING THEN THE  ": row2$ = OrigRow2$
1717.             OrigRow3$ = "JOURNEYS NEVER ENDING  ": row3$ = OrigRow3$
1718.         CASE 42
1719.             OrigRow1$ = "ANSWER TO THE ULTIMATE ": row1$ = OrigRow1$
1720.             OrigRow2$ = "QUESTION OF LIFE THE   ": row2$ = OrigRow2$
1721.             OrigRow3$ = "UNIVERSE AND EVERYTHING": row3$ = OrigRow3$
1722.         CASE 43
1723.             OrigRow1$ = "FOOL ME ONCE SHAME ON ": row1$ = OrigRow1$
1724.             OrigRow2$ = "YOU  FOOL ME TWICE    ": row2$ = OrigRow2$
1725.             OrigRow3$ = "    SHAME ON ME       ": row3$ = OrigRow3$
1726.         CASE 44
1727.             OrigRow1$ = "A BROKEN FRIENDSHIP  ": row1$ = OrigRow1$
1728.             OrigRow2$ = "MAY BE SOLDERED BUT  ": row2$ = OrigRow2$
1729.             OrigRow3$ = "WILL NEVER BE SOUND  ": row3$ = OrigRow3$
1730.         CASE 45
1731.             OrigRow1$ = "IF YOU CANNOT HAVE THE": row1$ = OrigRow1$
1732.             OrigRow2$ = "BEST THEN MAKE   THE  ": row2$ = OrigRow2$
1733.             OrigRow3$ = "BEST OF WHAT YOU HAVE ": row3$ = OrigRow3$
1734.         CASE 46
1735.             OrigRow1$ = "HE WHO SAYS WHAT HE  ": row1$ = OrigRow1$
1736.             OrigRow2$ = "LIKES SHALL HEAR WHAT": row2$ = OrigRow2$
1737.             OrigRow3$ = " HE DOESNT  LIKE     ": row3$ = OrigRow3$
1738.         CASE 47
1739.             OrigRow1$ = "HE THAT HAS A GREAT  ": row1$ = OrigRow1$
1740.             OrigRow2$ = "NOSE THINKS EVERYBODY": row2$ = OrigRow2$
1741.             OrigRow3$ = "IS SPEAKING OF IT    ": row3$ = OrigRow3$
1742.         CASE 48
1743.             OrigRow1$ = "HE THAT WOULD HAVE   ": row1$ = OrigRow1$
1744.             OrigRow2$ = "EGGS MUST ENDURE THE ": row2$ = OrigRow2$
1745.             OrigRow3$ = "CRACKLING OF THE HENS": row3$ = OrigRow3$
1746.         CASE 49
1747.             OrigRow1$ = "A  FRIEND IS SOMEONE": row1$ = OrigRow1$
1748.             OrigRow2$ = "KNOWS ALL ABOUT YOU ": row2$ = OrigRow2$
1749.             OrigRow3$ = " AND STILL LOVES YOU": row3$ = OrigRow3$
1750.  
1751.         CASE 50
1752.             OrigRow1$ = "A MAN OF  WORDS AND ": row1$ = OrigRow1$
1753.             OrigRow2$ = "NOT DEEDS IS LIKE A ": row2$ = OrigRow2$
1754.             OrigRow3$ = "GARDEN FULL OF WEEDS": row3$ = OrigRow3$
1755.  
1756.             'failsafe...
1757.         CASE ELSE
1758.             OrigRow1$ = "TO ERR IS HUMAN  ": row1$ = OrigRow1$
1759.             OrigRow2$ = "TO FORGIVE DEVINE": row2$ = OrigRow2$
1760.             OrigRow3$ = "                 ": row3$ = OrigRow3$
1761.  
1762.     END SELECT
1763.  
1764.     remix:
1765.  
1766.     'maybe make tag to set if 1&2 were not swapped, swap 1&3, if no space.?
1767.  
1768.     '=== Randomly Mix up the letters in rows
1769.     FOR t = 1 TO LEN(row1$)
1770.         '=== mix up row 1 with 2
1771.         r1$ = MID$(row1$, t, 1)
1772.         r2$ = MID$(row2$, t, 1)
1773.         '=== Only swap 1 & 2 when no space present
1774.         IF r1$ <> " " AND r2$ <> " " THEN
1775.             IF INT(RND * 2) = 1 THEN
1776.                 MID$(row1$, t, 1) = r2$
1777.                 MID$(row2$, t, 1) = r1$
1778.             END IF
1779.         END IF
1780.         '=== mix up row 2 with 3
1781.         r2$ = MID$(row2$, t, 1)
1782.         r3$ = MID$(row3$, t, 1)
1783.         '=== Only swap 2 &3 when no space present
1784.         IF r2$ <> " " AND r3$ <> " " THEN
1785.             IF INT(RND * 2) = 1 THEN
1786.                 MID$(row2$, t, 1) = r3$
1787.                 MID$(row3$, t, 1) = r2$
1788.             END IF
1789.         END IF
1790.     NEXT
1791.  
1792.     '=== just in case no mixing occurred (happens once in a blue moon)..
1793.     IF OrigRow1$ = row1$ AND OrigRow2$ = row2$ THEN GOTO remix
1794.  
1795. END SUB
1796.  
1797. '==================================================================================================
1798. '===================================================================================================
1799.  
1800. '======================================================================================
1801. '                                  ScrollScreenDown
1802. '======================================================================================
1803.  
1804.  
1805. SUB ScrollScreenDown (image&, speed!)
1806.  
1807.     '=== This SUB Scrolls Down a previously opened image.
1808.     '=== image& = previously opened image handle to use.
1809.     '=== THE IMAGE MUST BE PREVIOUSLY OPENED OR AN ERROR WILL OCCUR!
1810.     '=== speed& = Value for the _LIMIT.
1811.  
1812.     FOR y = -767 TO 0 STEP 25
1813.         _PUTIMAGE (0, y), image&, 0
1814.         _DISPLAY
1815.         _LIMIT speed!
1816.     NEXT
1817.  
1818.     _PUTIMAGE , image&, 0 'make sure it's centered
1819.     _DISPLAY
1820.  
1821.     _AUTODISPLAY
1822.  
1823. END SUB
1824.  
1825.  
1826. '======================================================================================
1827. '                                  ScrollScreenUp
1828. '======================================================================================
1829.  
1830.  
1831. SUB ScrollScreenUp (image&, speed!)
1832.  
1833.     '=== This SUB Scrolls the screen UP out of sight.
1834.     '=== image& = previously opened image handle to use.
1835.     '=== THE IMAGE MUST BE PREVIOUSLY OPENED OR AN ERROR WILL OCCUR!
1836.     '=== speed! = Value for the _LIMIT.
1837.  
1838.     '=== NOTE: If image& value is 0, then scrolls up the current screen.
1839.  
1840.     usecurrent = 0
1841.     IF image& = 0 OR image& > -1 THEN
1842.         'image& = _SCREENIMAGE
1843.         image& = _COPYIMAGE(_DISPLAY)
1844.         usecurrent = 1
1845.     END IF
1846.  
1847.     rev = 767
1848.     FOR y = 0 TO -767 STEP -25
1849.         _PUTIMAGE (0, y), image&, 0: _DISPLAY
1850.         LINE (0, rev - 25)-(1023, rev), _RGB32(0, 0, 0), BF
1851.         rev = rev - 25
1852.         _LIMIT speed!
1853.     NEXT
1854.  
1855.     IF usecurrent = 1 THEN _FREEIMAGE image&
1856.  
1857.     _AUTODISPLAY
1858.  
1859. END SUB
1860.  
1861.  
1862. '======================================================================================
1863. '                                  StoneRoll
1864. '======================================================================================
1865.  
1866.  
1867. SUB StoneRoll (way$, image&, speed!)
1868.  
1869.     '=== The SUB rolls a stone column sequence left or right.
1870.     '=== An optional image& can be given to drag along from behind.
1871.     '=== way$: "LEFT" = Roll left. "RIGHT" = Roll right.
1872.     '=== image& = Optional Previously opened imagehandle to drag in.
1873.     '=== speed! = Value for the _LIMIT. (I think in fps)
1874.  
1875.     '=== Load the stone column image sequence below....
1876.  
1877.     REDIM rollframe(0 TO 5) AS LONG
1878.     FOR t = 0 TO 5: a$ = LTRIM$(STR$(t))
1879.         IF LEN(a$) = 2 THEN a$ = "00" + a$
1880.         IF LEN(a$) = 1 THEN a$ = "000" + a$
1881.         rollframe(t) = _LOADIMAGE(source$ + "vid\roll" + a$ + ".jpg")
1882.     NEXT
1883.  
1884.     IF sfxflag = 1 THEN
1885.         roll& = _SNDOPEN(source$ + "sfx\sfx_roll.ogg", "VOL,SYNC,LEN,PAUSE")
1886.         _SNDPLAY roll&
1887.     END IF
1888.  
1889.     '=== choose what to do...
1890.  
1891.     SELECT CASE UCASE$(way$)
1892.  
1893.         CASE "RIGHT"
1894.             x = -135
1895.             DO
1896.                 FOR t = 0 TO 5 STEP 1
1897.                     a$ = LTRIM$(STR$(t))
1898.                     IF LEN(a$) = 2 THEN a$ = "00" + a$
1899.                     IF LEN(a$) = 1 THEN a$ = "000" + a$
1900.                     _PUTIMAGE (x, 0), rollframe(t), 0
1901.                     _DISPLAY
1902.                     IF image& <> 0 THEN
1903.                         IF x > 1024 THEN
1904.                             _PUTIMAGE (0, RND * 2), image&, 0
1905.                         ELSE
1906.                             _PUTIMAGE (x - 1024, RND * 2), image&, 0
1907.                         END IF
1908.                         _DISPLAY
1909.                     ELSE
1910.                         LINE (x - 20, 0)-(x, 768), _RGB32(0, 0, 0), BF
1911.                     END IF
1912.                     x = x + 20
1913.                     _LIMIT speed!
1914.                     '_AUTODISPLAY
1915.                 NEXT
1916.             LOOP UNTIL x > 1024 + 135
1917.  
1918.         CASE "LEFT"
1919.  
1920.             x = 1024
1921.             DO
1922.                 FOR t = 5 TO 0 STEP -1
1923.                     a$ = LTRIM$(STR$(t))
1924.                     IF LEN(a$) = 2 THEN a$ = "00" + a$
1925.                     IF LEN(a$) = 1 THEN a$ = "000" + a$
1926.                     _PUTIMAGE (x, 0), rollframe(t), 0
1927.                     _DISPLAY
1928.                     IF image& <> 0 THEN
1929.                         IF x > -135 THEN
1930.                             _PUTIMAGE (x + 135, RND * 2), image&, 0
1931.                         ELSE
1932.                             _PUTIMAGE (0, RND * 2), image&, 0
1933.                         END IF
1934.                         _DISPLAY
1935.                     ELSE
1936.                         LINE (x + 135, 0)-(1023, 767), _RGB32(0, 0, 0), BF
1937.                     END IF
1938.                     x = x - 20
1939.                     _LIMIT speed!
1940.                     '_AUTODISPLAY
1941.                 NEXT
1942.             LOOP UNTIL x < -135
1943.  
1944.     END SELECT
1945.  
1946.     '== center screen if image given
1947.  
1948.     IF image& <> 0 THEN
1949.         _PUTIMAGE , image&, 0
1950.         _DISPLAY
1951.     END IF
1952.  
1953.     IF sfxflag = 1 THEN
1954.         _SNDSTOP roll&
1955.         _SNDCLOSE roll&
1956.     END IF
1957.  
1958.     '=== free up used image handles
1959.  
1960.     FOR t = 0 TO 5
1961.         _FREEIMAGE rollframe(t)
1962.     NEXT
1963.  
1964.     _AUTODISPLAY
1965.  
1966. END SUB
1967.  
1968. '==================================================================================
1969.  
1970. SUB ScreenCurtain (way$, left&, right&, speed!)
1971.  
1972.     '=== This opened and closes the screen like a curtain.
1973.     '=== It uses two previously opened images which are just
1974.     '=== the screen split into a left & right side.
1975.     '=== way$: "OPEN" = open curtain, "CLOSE" = Close it
1976.     '=== speed! = Value for the _LIMIT
1977.  
1978.     SELECT CASE UCASE$(way$)
1979.  
1980.         CASE "CLOSE"
1981.  
1982.  
1983.             IF sfxflag = 1 THEN
1984.                 roll& = _SNDOPEN(source$ + "sfx\sfx_roll.ogg", "VOL,SYNC,LEN,PAUSE")
1985.                 _SNDPLAY roll&
1986.             END IF
1987.  
1988.             x2 = 1024
1989.             FOR x = -511 TO 0 STEP 4
1990.                 'The y is randoming shaked up
1991.                 'for a dragging effect
1992.                 _PUTIMAGE (x, RND * 2), left&, 0:
1993.                 _PUTIMAGE (x2, RND * 2), right&, 0:
1994.  
1995.                 x2 = x2 - 4
1996.                 _LIMIT speed!
1997.  
1998.             NEXT
1999.  
2000.             '=== make sure image is centered
2001.             _PUTIMAGE (0, 0), left&, 0:
2002.             _PUTIMAGE (513, 0), right&, 0: _DISPLAY
2003.  
2004.             _AUTODISPLAY
2005.  
2006.             IF sfxflag = 1 THEN
2007.                 _SNDSTOP roll&: _SNDCLOSE roll&
2008.                 _SNDPLAYFILE source$ + "sfx\sfx_boom.mp3"
2009.             END IF
2010.  
2011.             '=== A little shake to show joining
2012.             ScreenShake 0, 4, 3, 60
2013.  
2014.         CASE "OPEN"
2015.  
2016.             x2 = 513
2017.             FOR x = 0 TO -512 STEP -5
2018.                 CLS
2019.                 _PUTIMAGE (x, RND * 2), left&, 0:
2020.                 _PUTIMAGE (x2, RND * 2), right&, 0: _DISPLAY
2021.                 x2 = x2 + 5
2022.                 _LIMIT speed!
2023.  
2024.             NEXT
2025.  
2026.             _AUTODISPLAY: CLS 'Clear the screen
2027.  
2028.     END SELECT
2029.  
2030. END SUB
2031.  
2032.  
2033. '======================================================================================
2034. '                                     ScreenShake
2035. '======================================================================================
2036.  
2037.  
2038. SUB ScreenShake (image&, val1, val2, speed!)
2039.  
2040.     '=== This SUB shakes the current screen
2041.     '=== image& = previously image handle to use.
2042.     '=== val1 = first loop (x)
2043.     '=== val2 = second loop  (y)
2044.     '=== speed! = Value for the _LIMIT
2045.  
2046.     '=== NOTE: Ifimage& = 0 then uses current screen.
2047.  
2048.     usecurrent = 0
2049.     IF image& = 0 OR image& > -1 THEN
2050.         image& = _COPYIMAGE(_DISPLAY)
2051.         usecurrent = 1
2052.     END IF
2053.  
2054.     FOR g = val1 TO 1 STEP -1
2055.         FOR S = 1 TO val2
2056.             _PUTIMAGE (RND * (S * g), RND * (S * g))-(1023, 767), image&, 0
2057.             _DISPLAY
2058.             _LIMIT speed!
2059.             _AUTODISPLAY
2060.         NEXT
2061.     NEXT
2062.  
2063.     '=== center screen after shaking
2064.     _PUTIMAGE , image&, 0
2065.     _DISPLAY
2066.  
2067.     IF usecurrent = 1 THEN _FREEIMAGE image&
2068.  
2069.     _AUTODISPLAY
2070.  
2071. END SUB
2072.  
2073.  
2074. '======================================================================================
2075. '======================================================================================
2076.  
2077.  
2078. SUB Credits ()
2079.  
2080.     left& = _LOADIMAGE(source$ + "img\paper-title-left.jpg")
2081.     right& = _LOADIMAGE(source$ + "img\paper-title-right.jpg")
2082.  
2083.     IF _SNDPLAYING(music&) THEN _SNDSTOP music&
2084.  
2085.     IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_roll.ogg"
2086.  
2087.     ScreenCurtain "CLOSE", left&, right&, 60
2088.  
2089.     _FREEIMAGE left&
2090.     _FREEIMAGE right&
2091.  
2092.     _DELAY .15
2093.  
2094.     '=== load crumble frame numbers...
2095.     DIM framenum(0 TO 14) AS LONG
2096.     FOR t = 0 TO 14
2097.         a$ = LTRIM$(STR$(t))
2098.         IF LEN(a$) = 2 THEN a$ = "00" + a$
2099.         IF LEN(a$) = 1 THEN a$ = "000" + a$
2100.         framenum(t) = _LOADIMAGE(source$ + "vid\crum" + a$ + ".jpg")
2101.     NEXT
2102.  
2103.     '=== start crumble sound
2104.  
2105.     IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_crumble.ogg"
2106.  
2107.     '=== BIG Shake
2108.     FOR b = 1 TO 2
2109.         ScreenShake 0, 6, 5, 60
2110.     NEXT
2111.  
2112.     'CRUMLE!!!!
2113.     FOR t = 0 TO 14
2114.         _PUTIMAGE (0, 0), framenum(t)
2115.         _LIMIT 15
2116.         'IF INKEY$ <> "" THEN EXIT DO
2117.     NEXT
2118.  
2119.     CLS
2120.  
2121.     'WASH OUT!!!!
2122.     FOR t = 0 TO 255 STEP 6
2123.         LINE (0, 0)-(1023, 767), _RGB32(t, t, t), BF
2124.         _LIMIT 50
2125.     NEXT
2126.     FOR t = 255 TO 0 STEP -4
2127.         LINE (0, 0)-(1023, 767), _RGB32(t, t, t), BF
2128.         _LIMIT 50
2129.     NEXT
2130.     CLS
2131.  
2132.     IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_fanfare.ogg"
2133.  
2134.     _DELAY 2
2135.  
2136.     'free all image handles...
2137.     FOR t = 0 TO 14
2138.         _FREEIMAGE framenum(t)
2139.     NEXT
2140.  
2141.     creditmusic& = _SNDOPEN(source$ + "sfx\credits.ogg")
2142.  
2143.     IF musicflag = 1 THEN _SNDLOOP creditmusic&
2144.  
2145.     pic& = _LOADIMAGE(source$ + "\img\win.jpg")
2146.  
2147.     y = -768
2148.  
2149.     DO
2150.         CLS
2151.         _PUTIMAGE (0, 0), pic&, 0, (0, y)-(1024, y + 768)
2152.         y = y + 1: IF y > 5672 THEN EXIT DO 'or y = 0 to start over
2153.         IF INKEY$ <> "" THEN EXIT DO
2154.         x1 = RND * 1024: y1 = RND * 768
2155.         LINE (x1, y1)-(x1 + 12, y1 + 1), _RGB32(115, 115, 115), BF 'across
2156.         LINE (x1 + 6, y1 - 6)-(x1 + 7, y1 + 6), _RGB32(115, 115, 115), BF 'down
2157.         FOR p = 1 TO 1000
2158.             PSET (RND * 1024, RND * 768), _RGB32(115, 115, 115)
2159.         NEXT
2160.         _LIMIT 50
2161.         _DISPLAY
2162.     LOOP
2163.  
2164.     _FREEIMAGE pic&
2165.  
2166.     IF _SNDPLAYING(creditmusic&) THEN _SNDSTOP creditmusic&
2167.     _SNDCLOSE creditmusic&
2168.  
2169. END SUB
2170.  
2171. '======================================================================================
2172. '======================================================================================
2173.  
2174. SUB ButtonShow (ButtonFile$, x, y)
2175.     btn& = _LOADIMAGE(source$ + "img\" + ButtonFile$, 32)
2176.     _PUTIMAGE (x, y), btn&, 0
2177.     '_DISPLAY: _AUTODISPLAY
2178.     _FREEIMAGE btn&
2179. END SUB
2180.  
2181. '======================================================================================
2182. '======================================================================================
2183.  
2184. SUB ButtonClick (ButtonType%, ButtonFile$, x, y)
2185.     '=== ButtonType% is if a hover highlighted button on not.
2186.  
2187.     IF sfxflag = 1 THEN _SNDPLAYFILE source$ + "sfx\sfx_click.mp3"
2188.     IF ButtonType% = 0 THEN
2189.         ButtonShow "_" + ButtonFile$, x, y: _DELAY .15
2190.         ButtonShow ButtonFile$, x, y: _DELAY .15
2191.     ELSE
2192.         ButtonShow ButtonFile$, x, y: _DELAY .15
2193.         ButtonShow "_" + ButtonFile$, x, y: _DELAY .15
2194.         ButtonShow ButtonFile$, x, y
2195.     END IF
2196.  
2197. END SUB
2198.  

 

Text Only | Text with Attachments