Problem with _PRINTSTRING

[Cobalt]

Getting some unexpected results from _PRINTSTRING when trying to print to a different layer.

there is no small way to show this so here is ALL the code. the problem is in EndScreenB starting on line 2038, I recommend using F2 and going to it that way. there is a screen cap below showing what I'm seeing, My question is why is the second _STRINGPRINT showing up on the display when it should be going to layer TEMP&? and why is it ignoring the set font and COLOR scheme?
If you try to run it you will need the updated GFX file.

Code: QB64: [Select]

1. 'Tetris 64 Ver 0.9 [start date 10/3/18-13.27]
2. 'v0.9: (last build on 10/13/2018-13:25)
3. 'add 'no sound' option
4. 'add level selection in Menu A to game value
5. 'add B-Type menu
6. 'small rocket ending done
7. 'med rocket ending done
8. 'Large rocket ending done
9. 'Shuttle ending done
10. 'High Score screen Atype done
11. 'high score screen Btype done
12. 'Fix rotational collisions
13. 'divorced Narika from code
14. 'B-Type game functional
15. '** found new bug with rotational collisions (10/11/2018) **
16. '
17. TYPE GameData
18.  Mode AS _BYTE 'game type A or B
19.  BGM AS _BYTE 'Back Gound music 1,2,3
20.  BGMVol AS _BYTE 'Back Gound Music Volume
21.  SFXVol AS _BYTE 'Sound effects Volume
22.  Level AS _BYTE 'game level
23.  Height AS _BYTE 'line height B-type game
24.  HScore1 AS LONG 'Highest Score
25.  HScore2 AS LONG 'Higher Score
26.  HScore3 AS LONG 'High Score
27.  HName1 AS STRING * 6 'High score name
28.  HName2 AS STRING * 6 ' "    "     "
29.  HName3 AS STRING * 6 ' "    "     "
30.  Hlevel1 AS _BYTE
31.  Hlevel2 AS _BYTE
32.  Hlevel3 AS _BYTE
33.  HScore1B AS LONG 'Highest Score B-type
34.  HScore2B AS LONG 'Higher Score B-type
35.  HScore3B AS LONG 'High Score B-type
36.  HName1B AS STRING * 6 'High score name B-Type
37.  HName2B AS STRING * 6 ' "    "     "
38.  HName3B AS STRING * 6 ' "    "     "
39.  Hlevel1B AS _BYTE
40.  Hlevel2B AS _BYTE
41.  Hlevel3B AS _BYTE
42.  GameOverFlag AS _BYTE 'game over
43.  Sound AS _BYTE 'sound on or off
44.  Loaded AS _BYTE
45. END TYPE
46.  
47. TYPE CurrentData
48.  Icount AS INTEGER ' Number of I blocks used in current game
49.  Ocount AS INTEGER ' Number of O blocks used in current game
50.  Zcount AS INTEGER ' number of Z blocks used in current game
51.  Scount AS INTEGER ' number of S blocks used in current game
52.  Jcount AS INTEGER ' number of J blocks used in current game
53.  Lcount AS INTEGER ' number of L blocks used in current game
54.  Tcount AS INTEGER ' number of T blocks used in current game
55.  Score AS LONG '     Current game score
56.  Piece AS _BYTE '    The currently dropping piece
57.  NextP AS _BYTE '    The next piece in the queue
58.  Lines AS INTEGER '  The lines complete in A-Type, Lines remaining in B-type
59.  Orent AS _BYTE '    rotational orentation of current piece
60.  PieceX AS _BYTE '   current Piece's X location on board 1-10
61.  PieceY AS _BYTE '   current Piece's Y location on board 1-20
62.  bonus AS _BYTE '    Quick drop bonus +1 for each line while down is pressed
63. END TYPE
64.  
65. DIM SHARED G AS GameData, P AS CurrentData, Board(11, 21) AS _BYTE
66. DIM SHARED BGM(5) AS LONG, SFX(64) AS LONG, FFX(1) AS LONG
67. DIM SHARED MenuA AS LONG, MenuB AS LONG, FieldA AS LONG, CharacterA AS LONG
68. DIM SHARED Nomes AS LONG, Bzone AS LONG, ButtonHeld%%, LandedNew%%
69. DIM SHARED TI(10) AS LONG, MenuC AS LONG, EndScrnA AS LONG, EndSprtA AS LONG
70. DIM SHARED HighS AS LONG, FieldB AS LONG, QuitGameFlag%%, MenuID%%
71. DIM SHARED Splash&, EndScrnB AS LONG, EndScrnB2 AS LONG, Temp&
72.  
73. CONST TRUE = -1, FALSE = NOT TRUE
74. CONST TypeA = 1, TypeB = 2
75. CONST NoBGM = 0, Song1 = 1, Song2 = 2, Song3 = 3, LoadIt = -1, NoSound = -2
76. CONST T = 1, O = 2, Z = 3, S = 4, J = 5, L = 6, I = 7
77. CONST AdjX% = -8, BACK = -2, QUIT = -3
78.  
79. FOR w% = 0 TO 10
80.  TI(w%) = _FREETIMER
81. NEXT w%
82. ON TIMER(TI(0), .85) DropPiece
83. ON TIMER(TI(1), .72) DropPiece
84. ON TIMER(TI(2), .63) DropPiece
85. ON TIMER(TI(3), .55) DropPiece
86. ON TIMER(TI(4), .47) DropPiece
87. ON TIMER(TI(5), .38) DropPiece
88. ON TIMER(TI(6), .3) DropPiece
89. ON TIMER(TI(7), .22) DropPiece
90. ON TIMER(TI(8), .13) DropPiece
91. ON TIMER(TI(9), .1) DropPiece
92. ON TIMER(TI(10), .05) DropPiece
93. StartData
94.  
95. st! = TIMER
96.  
97. RANDOMIZE TIMER
98. PRINT "loading.";
99. LoadGameStuff NoSound 'LoadIt
100. _CLEARCOLOR _RGB32(0, 0, 0), MenuB
101. _CLEARCOLOR _RGB32(0, 0, 0), MenuC
102. _CLEARCOLOR _RGB32(0, 89, 251), EndSprtA
103. BoardSetup
104. MenuID%% = 0
105. G.Height = 3
106. P.Score = 1340
107. EndScreenB
108. END
109. DO
110.  StartData
111.  IF MenuID%% = -1 THEN TitleScreen
112.  IF NOT QuitGameFlag%% THEN
113.   IF MenuID%% = 0 THEN MenuOne
114.   IF NOT QuitGameFlag%% THEN
115.    IF MenuID%% = 1 AND G.Mode = TypeA THEN MenuTwoA
116.    IF MenuID%% = 1 AND G.Mode = TypeB THEN MenuTwoB
117.   END IF
118.   IF MenuID%% = 2 AND (NOT QuitGameFlag%%) AND G.Mode = TypeA THEN GameModeA
119.   IF MenuID%% = 2 AND (NOT QuitGameFlag%%) AND G.Mode = TypeB THEN GameModeB
120.  END IF
121. LOOP UNTIL QuitGameFlag%%
122.  
123. 'dumpboard 'debuging line
124. '------------------------------------------------------------------
125. SUB TitleScreen
126.  _TITLE "Tetris64 V.9  2018\Cobalt"
127.  _PUTIMAGE (-10, 0), Splash&, _DISPLAY
128.  _PRINTSTRING (168, 395), "Remake By Cobalt 2018", _DISPLAY
129.  IF NOT G.Loaded THEN _PRINTSTRING (155, 290), "Please Wait", _DISPLAY
130.  IF G.Loaded THEN _PRINTSTRING (155, 290), "Ready to Play", _DISPLAY
131.  
132.  IF MenuID%% = -1 THEN
133.   DisplayClickOptions
134.   COLOR _RGB32(0, 0, 0)
135.   _PRINTSTRING (570, 200), "Click here"
136.   _PRINTSTRING (570, 220), "to go Back"
137.   COLOR _RGB32(255, 255, 255)
138.   DO
139.    nul%% = _MOUSEINPUT
140.    IF _MOUSEBUTTON(1) THEN
141.     x% = _MOUSEX: y% = _MOUSEY
142.     exitflag%% = ClickInteraction(x%, y%)
143.     DO: LOOP WHILE _MOUSEINPUT
144.    END IF
145.    IF exitflag%% = TRUE THEN MenuID%% = 0 'goto next menu
146.    IF exitflag%% = BACK THEN exitflag%% = FALSE 'no where to go backwards to
147.    IF exitflag%% = QUIT THEN QuitGameFlag%% = TRUE 'quit game
148.   LOOP UNTIL exitflag%%
149.   CLS
150.  END IF
151. END SUB
152.  
153. SUB LoadGameStuff (opt%%)
154.  DIM Size(64) AS LONG, FOffset&(64)
155.  
156.  SCREEN _NEWIMAGE(800, 480, 32)
157.  
158.  OPEN "Tetris.GFX" FOR BINARY AS #1
159.  FOR w% = 1 TO 15
160.   GET #1, , FOffset&(w%)
161.   GET #1, , Size(w%)
162.   FOffset&(w%) = FOffset&(w%) + 1
163.  NEXT
164.  IF INSTR(_OS$, "WIN") THEN f%% = 1 ELSE f%% = 2
165.  'function LoadGFX(Foff&,Size&,id%%)
166.  OPEN "temp.dat" FOR BINARY AS #3
167.  dat$ = SPACE$(Size(f%%))
168.  GET #1, FOffset&(f%%), dat$
169.  PUT #3, , dat$
170.  CLOSE #3
171.  FFX(1) = _LOADFONT("temp.dat", 20, "monospace")
172.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
173.  IF FFX(1) THEN _FONT FFX(1)
174.  _DELAY .125
175.  
176.  Splash& = LoadGFX(FOffset&(3), Size(3))
177.  'Splash& = _LOADIMAGE("Tetris_Splash.bmp", 32)
178.  ' FFX(1) = _LOADFONT("NESFont.otf", 20, "monospace")
179.  ' IF FFX(1) THEN _FONT FFX(1)
180.  ' _DELAY .125
181.  TitleScreen
182.  MenuA = LoadGFX(FOffset&(4), Size(4))
183.  MenuB = LoadGFX(FOffset&(5), Size(5))
184.  MenuC = LoadGFX(FOffset&(6), Size(6))
185.  EndScrnA = LoadGFX(FOffset&(7), Size(7))
186.  EndSprtA = LoadGFX(FOffset&(8), Size(8))
187.  FieldA = LoadGFX(FOffset&(9), Size(9))
188.  FieldB = LoadGFX(FOffset&(10), Size(10))
189.  HighS = LoadGFX(FOffset&(11), Size(11))
190.  Nomes = LoadGFX(FOffset&(12), Size(12))
191.  EndScrnB = LoadGFX(FOffset&(13), Size(13))
192.  EndScrnB2 = LoadGFX(FOffset&(14), Size(14))
193.  Temp& = _NEWIMAGE(512, 480, 32)
194.  Bzone = _NEWIMAGE(160, 320, 32)
195.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
196.  CLOSE #1
197.  
198.  IF opt%% = LoadIt THEN 'load sounds option
199.   OPEN "Tetris_Original.SFX" FOR BINARY AS #1
200.   FOR w% = 1 TO 16
201.    GET #1, , foffset&
202.    GET #1, , Size(w%)
203.   NEXT
204.  
205.   FOR w% = 1 TO 5
206.    OPEN "temp.dat" FOR BINARY AS #3
207.    dat$ = SPACE$(Size(w%))
208.    GET #1, , dat$
209.    PUT #3, , dat$
210.    CLOSE #3
211.    BGM(w%) = _SNDOPEN("temp.dat")
212.    IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
213.   NEXT w%
214.   FOR w% = 6 TO 16
215.    OPEN "temp.dat" FOR BINARY AS #3
216.    dat$ = SPACE$(Size(w%))
217.    GET #1, , dat$
218.    PUT #3, , dat$
219.    CLOSE #3
220.    SFX(w% - 6) = _SNDOPEN("temp.dat")
221.    IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
222.   NEXT w%
223.   CLOSE
224.   G.Sound = TRUE
225.  END IF
226.  G.Loaded = TRUE
227.  _PRINTSTRING (155, 290), "Ready to Play", _DISPLAY
228.  
229. END SUB
230.  
231. SUB MenuOne
232.  STATIC FirstRun%%
233.  IF FirstRun%% = FALSE THEN
234.   _PRINTSTRING (570, 130), "Click here"
235.   _PRINTSTRING (570, 150), "to Continue"
236.  
237.   DO
238.    nul%% = _MOUSEINPUT
239.    IF _MOUSEBUTTON(1) THEN
240.     x% = _MOUSEX: y% = _MOUSEY
241.     exitflag%% = ClickInteraction(x%, y%)
242.     DO: LOOP WHILE _MOUSEINPUT
243.    END IF
244.   LOOP UNTIL exitflag%%
245.   CLS
246.   exitflag%% = FALSE
247.   DO: LOOP WHILE _MOUSEINPUT
248.   FirstRun%% = TRUE
249.  END IF
250.  
251.  _PUTIMAGE (5, 5), MenuA, _DISPLAY, (64, 16)-(574, 462)
252.  _PUTIMAGE (30 + G.BGMVol * 1.28, 374), MenuA, _DISPLAY, (32, 0)-(45, 13)
253.  _PUTIMAGE (30 + G.SFXVol * 1.28, 278), MenuA, _DISPLAY, (32, 0)-(45, 13)
254.  IF G.Mode = TypeA THEN
255.   _PUTIMAGE (130, 117), MenuA, _DISPLAY, (0, 0)-(13, 13)
256.   _PUTIMAGE (250, 117), MenuA, _DISPLAY, (16, 0)-(29, 13)
257.  END IF
258.  _PUTIMAGE (212, 277), MenuA, _DISPLAY, (0, 0)-(13, 13)
259.  _PUTIMAGE (360, 277), MenuA, _DISPLAY, (16, 0)-(29, 13)
260.  IF G.Mode = TypeB THEN
261.   _PUTIMAGE (322, 117), MenuA, _DISPLAY, (0, 0)-(13, 13)
262.   _PUTIMAGE (442, 117), MenuA, _DISPLAY, (16, 0)-(29, 13)
263.  END IF
264.  DisplayClickOptions
265.  
266.  IF G.Sound THEN
267.   FOR w% = 1 TO 5
268.    _SNDVOL BGM(G.BGM), G.BGMVol / 100
269.   NEXT w%
270.   FOR w% = 0 TO 12
271.    _SNDVOL SFX(w%), G.SFXVol / 100
272.   NEXT w%
273.   _SNDLOOP BGM(G.BGM)
274.  END IF
275.  old%% = G.BGM
276.  
277.  DO
278.   nul%% = _MOUSEINPUT
279.   IF nul%% THEN
280.    IF _MOUSEBUTTON(1) THEN
281.     x% = _MOUSEX: y% = _MOUSEY
282.     IF x% > 120 AND y% > 102 AND x% < 275 AND y% < 146 THEN 'game type A
283.      G.Mode = TypeA
284.      LINE (322, 117)-(338, 131), _RGB32(0, 0, 0), BF
285.      LINE (442, 117)-(458, 131), _RGB32(0, 0, 0), BF
286.      _PUTIMAGE (130, 117), MenuA, _DISPLAY, (0, 0)-(13, 13)
287.      _PUTIMAGE (250, 117), MenuA, _DISPLAY, (16, 0)-(29, 13)
288.     END IF
289.     IF x% > 312 AND y% > 102 AND x% < 466 AND y% < 146 THEN 'game type B
290.      G.Mode = TypeB
291.      LINE (130, 117)-(146, 131), _RGB32(0, 0, 0), BF
292.      LINE (250, 117)-(266, 131), _RGB32(0, 0, 0), BF
293.      _PUTIMAGE (322, 117), MenuA, _DISPLAY, (0, 0)-(13, 13)
294.      _PUTIMAGE (442, 117), MenuA, _DISPLAY, (16, 0)-(29, 13)
295.     END IF
296.     IF x% > 210 AND y% > 270 AND x% < 378 AND y% < 296 THEN 'BGM 1
297.      G.BGM = Song1
298.      LINE (210, 270)-(226, 400), _RGB32(0, 0, 0), BF
299.      LINE (360, 270)-(376, 400), _RGB32(0, 0, 0), BF
300.      _PUTIMAGE (212, 277), MenuA, _DISPLAY, (0, 0)-(13, 13)
301.      _PUTIMAGE (360, 277), MenuA, _DISPLAY, (16, 0)-(29, 13)
302.      songchange%% = TRUE
303.     END IF
304.     IF x% > 210 AND y% > 302 AND x% < 378 AND y% < 328 THEN 'BGM 2
305.      G.BGM = Song2
306.      LINE (210, 270)-(226, 400), _RGB32(0, 0, 0), BF
307.      LINE (360, 270)-(376, 400), _RGB32(0, 0, 0), BF
308.      _PUTIMAGE (212, 310), MenuA, _DISPLAY, (0, 0)-(13, 13)
309.      _PUTIMAGE (360, 310), MenuA, _DISPLAY, (16, 0)-(29, 13)
310.      songchange%% = TRUE
311.     END IF
312.     IF x% > 210 AND y% > 334 AND x% < 378 AND y% < 362 THEN 'BGM 3
313.      G.BGM = Song3
314.      LINE (210, 270)-(226, 400), _RGB32(0, 0, 0), BF
315.      LINE (360, 270)-(376, 400), _RGB32(0, 0, 0), BF
316.      _PUTIMAGE (212, 340), MenuA, _DISPLAY, (0, 0)-(13, 13)
317.      _PUTIMAGE (360, 340), MenuA, _DISPLAY, (16, 0)-(29, 13)
318.      songchange%% = TRUE
319.     END IF
320.     IF x% > 210 AND y% > 368 AND x% < 378 AND y% < 394 THEN 'BGM Off
321.      G.BGM = NoBGM
322.      LINE (210, 270)-(226, 400), _RGB32(0, 0, 0), BF
323.      LINE (360, 270)-(376, 400), _RGB32(0, 0, 0), BF
324.      _PUTIMAGE (212, 374), MenuA, _DISPLAY, (0, 0)-(13, 13)
325.      _PUTIMAGE (360, 374), MenuA, _DISPLAY, (16, 0)-(29, 13)
326.      songchange%% = TRUE
327.     END IF
328.     IF x% > 36 AND y% > 372 AND x% < 166 AND y% < 392 THEN 'BGM Volume
329.      G.BGMVol = ((x% - 37) / 128) * 100
330.      LINE (30, 372)-(172, 388), _RGB32(0, 0, 0), BF
331.      _PUTIMAGE (30 + G.BGMVol * 1.28, 374), MenuA, _DISPLAY, (32, 0)-(45, 13)
332.      volchange%% = TRUE
333.     END IF
334.     IF x% > 36 AND y% > 276 AND x% < 166 AND y% < 292 THEN 'SFX Volume
335.      G.SFXVol = ((x% - 37) / 128) * 100
336.      LINE (30, 276)-(172, 292), _RGB32(0, 0, 0), BF
337.      _PUTIMAGE (30 + G.SFXVol * 1.28, 278), MenuA, _DISPLAY, (32, 0)-(45, 13)
338.      FXvolchange%% = TRUE
339.     END IF
340.  
341.     exitflag%% = ClickInteraction(x%, y%)
342.    END IF
343.    DO: _DELAY .001: LOOP WHILE _MOUSEINPUT
344.   END IF
345.  
346.   IF G.Sound THEN
347.    IF songchange%% AND G.BGM <> old%% THEN
348.     _SNDSTOP BGM(old%%)
349.     _SNDLOOP BGM(G.BGM)
350.     old%% = G.BGM
351.     songchange%% = FALSE
352.     volchange%% = TRUE
353.    ELSE
354.     songchange%% = FALSE
355.    END IF
356.  
357.    IF volchange%% THEN
358.     _SNDVOL BGM(G.BGM), (G.BGMVol / 100)
359.     volchange%% = FALSE
360.    END IF
361.  
362.    IF FXvolchange%% AND (NOT _MOUSEBUTTON(1)) THEN
363.     _SNDVOL SFX(0), (G.SFXVol / 100)
364.     _SNDPLAY SFX(0) 'plays a test sound effect
365.     FXvolchange%% = FALSE
366.    END IF
367.   END IF
368.   _DELAY .01
369.  LOOP UNTIL exitflag%%
370.  
371.  IF exitflag%% <> BACK AND exitflag%% <> QUIT THEN
372.   IF G.Sound THEN
373.    FOR w% = 0 TO 12
374.     _SNDVOL SFX(w%), G.SFXVol / 100
375.    NEXT w%
376.    FOR w% = 1 TO 5
377.     _SNDVOL BGM(G.BGM), G.BGMVol / 100
378.    NEXT w%
379.  
380.   END IF
381.   DO: LOOP WHILE _MOUSEINPUT
382.  END IF
383.  IF exitflag%% = TRUE THEN
384.   MenuID%% = 1 'go to next menu
385.   IF G.Sound THEN _SNDPLAY SFX(0)
386.  END IF
387.  IF exitflag%% = BACK THEN
388.   MenuID%% = -1 'go back to title screen
389.   IF G.Sound THEN _SNDPLAY SFX(1)
390.  END IF
391.  IF exitflag%% = QUIT THEN QuitGameFlag%% = TRUE 'quit game
392. END SUB
393.  
394. SUB MenuTwoA
395.  LINE (0, 0)-(512, 480), _RGB32(0, 0, 0), BF
396.  _PUTIMAGE (109, 157), MenuB, _DISPLAY, (0, 0)-(31, 31)
397.  _PUTIMAGE (5, 5), MenuB, _DISPLAY, (64, 16)-(574, 462)
398.  DisplayClickOptions
399.  ShowHighScoreA
400.  DO
401.   nul%% = _MOUSEINPUT
402.   IF nul%% THEN
403.    IF _MOUSEBUTTON(1) THEN
404.     x% = _MOUSEX: y% = _MOUSEY
405.     IF x% > 108 AND y% > 155 AND x% < 271 AND y% < 221 THEN 'Start Level
406.      IF G.Sound THEN _SNDPLAY SFX(6)
407.  
408.      IF y% > 155 AND y% < 188 THEN ll% = 0: yy% = 155: lvl%% = 0
409.      IF y% > 188 AND y% < 221 THEN ll% = 5: yy% = 189: lvl%% = 5
410.      SELECT CASE x%
411.       CASE 108 TO 139
412.        ll% = ll% + 0: xx% = 109: lvl%% = lvl%% + 0
413.       CASE 139 TO 172
414.        ll% = ll% + 1: xx% = 141: lvl%% = lvl%% + 1
415.       CASE 172 TO 204
416.        ll% = ll% + 2: xx% = 173: lvl%% = lvl%% + 2
417.       CASE 204 TO 236
418.        ll% = ll% + 3: xx% = 204: lvl%% = lvl%% + 3
419.       CASE 236 TO 271
420.        ll% = ll% + 4: xx% = 237: lvl%% = lvl%% + 4
421.      END SELECT
422.      _PUTIMAGE (109, 153), MenuB, _DISPLAY, (0, 32)-(63, 101)
423.      _PUTIMAGE (173, 153), MenuB, _DISPLAY, (0, 102)-(63, 171)
424.      _PUTIMAGE (237, 153), MenuB, _DISPLAY, (0, 172)-(63, 241)
425.      _PUTIMAGE (xx%, yy%), MenuB, _DISPLAY, (0, 0)-(31, 31)
426.      _PUTIMAGE (107, 153), MenuB, _DISPLAY, (166, 164)-(331, 243)
427.  
428.     END IF
429.     exitflag%% = ClickInteraction(x%, y%)
430.    END IF
431.    DO: LOOP WHILE _MOUSEINPUT
432.   END IF
433.   _DELAY .01
434.  LOOP UNTIL exitflag%%
435.  G.Level = lvl%%
436.  DO: LOOP WHILE _MOUSEINPUT
437.  IF exitflag%% = TRUE THEN
438.   MenuID%% = 2 'go to next menu
439.   IF G.Sound THEN _SNDPLAY SFX(0)
440.  END IF
441.  IF exitflag%% = BACK THEN
442.   MenuID%% = 0 'go back to title screen
443.   IF G.Sound THEN _SNDPLAY SFX(1)
444.  END IF
445.  IF exitflag%% = QUIT THEN QuitGameFlag%% = TRUE 'quit game
446. END SUB
447.  
448. SUB MenuTwoB
449.  LINE (0, 0)-(512, 480), _RGB32(0, 0, 0), BF
450.  _PUTIMAGE (109, 157), MenuC, _DISPLAY, (0, 0)-(31, 31)
451.  _PUTIMAGE (317, 157), MenuC, _DISPLAY, (0, 0)-(31, 31)
452.  _PUTIMAGE (5, 5), MenuC, _DISPLAY, (64, 16)-(574, 462)
453.  DisplayClickOptions
454.  ShowHighScoreB
455.  DO
456.   nul%% = _MOUSEINPUT
457.   IF nul%% THEN
458.    IF _MOUSEBUTTON(1) THEN
459.     x% = _MOUSEX: y% = _MOUSEY
460.     IF x% > 108 AND y% > 155 AND x% < 271 AND y% < 221 THEN 'Start Level
461.      IF G.Sound THEN _SNDPLAY SFX(6)
462.      IF y% > 155 AND y% < 188 THEN yy% = 155: lvl%% = 0
463.      IF y% > 188 AND y% < 221 THEN yy% = 189: lvl%% = 5
464.      SELECT CASE x%
465.       CASE 108 TO 139
466.        xx% = 109: lvl%% = lvl%% + 0
467.       CASE 139 TO 172
468.        xx% = 141: lvl%% = lvl%% + 1
469.       CASE 172 TO 204
470.        xx% = 173: lvl%% = lvl%% + 2
471.       CASE 204 TO 236
472.        xx% = 204: lvl%% = lvl%% + 3
473.       CASE 236 TO 271
474.        xx% = 237: lvl%% = lvl%% + 4
475.      END SELECT
476.      LINE (107, 153)-(272, 243), _RGB32(0, 0, 0), BF
477.      _PUTIMAGE (xx%, yy%), MenuC, _DISPLAY, (0, 0)-(31, 31)
478.      _PUTIMAGE (107, 153), MenuC, _DISPLAY, (166, 164)-(331, 243)
479.     END IF
480.     IF x% > 317 AND y% > 155 AND x% < 413 AND y% < 221 THEN 'Start height
481.      IF G.Sound THEN _SNDPLAY SFX(6)
482.      IF y% > 155 AND y% < 188 THEN hyy% = 155: hlvl%% = 0
483.      IF y% > 188 AND y% < 221 THEN hyy% = 189: hlvl%% = 3
484.      SELECT CASE x%
485.       CASE 318 TO 348
486.        hxx% = 317: hlvl%% = hlvl%% + 0
487.       CASE 349 TO 380
488.        hxx% = 349: hlvl%% = hlvl%% + 1
489.       CASE 381 TO 412
490.        hxx% = 381: hlvl%% = hlvl%% + 2
491.      END SELECT
492.      LINE (315, 153)-(415, 243), _RGB32(0, 0, 0), BF
493.      _PUTIMAGE (hxx%, hyy%), MenuC, _DISPLAY, (0, 0)-(31, 31)
494.      _PUTIMAGE (315, 153), MenuC, _DISPLAY, (374, 164)-(474, 243)
495.     END IF
496.     exitflag%% = ClickInteraction(x%, y%)
497.    END IF
498.    DO: LOOP WHILE _MOUSEINPUT
499.   END IF
500.   _DELAY .01
501.  LOOP UNTIL exitflag%%
502.  G.Level = lvl%%
503.  G.Height = hlvl%%
504.  P.Lines = 25
505.  DO: LOOP WHILE _MOUSEINPUT
506.  IF exitflag%% = TRUE THEN
507.   MenuID%% = 2 'go to next menu
508.   IF G.Sound THEN _SNDPLAY SFX(0)
509.  END IF
510.  IF exitflag%% = BACK THEN
511.   MenuID%% = 0 'go back to title screen
512.   IF G.Sound THEN _SNDPLAY SFX(1)
513.  END IF
514.  IF exitflag%% = QUIT THEN QuitGameFlag%% = TRUE 'quit game
515. END SUB
516.  
517. SUB DisplayNextPiece
518.  'display the next peice in queue
519.  'display peice centered in NEXT window(420)
520.  'first clear next window
521.  LINE (388, 212)-(450, 275), _RGB32(0, 0, 0), BF
522.  IF G.Level < 10 THEN Yshift~%% = 16 * G.Level ELSE Yshift~%% = 16 * 9
523.  SELECT CASE P.NextP
524.   CASE T
525.    _PUTIMAGE (420 - 24, 212 + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
526.    _PUTIMAGE (420 - 8, 212 + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
527.    _PUTIMAGE (420 + 8, 212 + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
528.    _PUTIMAGE (420 - 8, 212 + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
529.   CASE J
530.    _PUTIMAGE (420 - 24, 212 + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
531.    _PUTIMAGE (420 - 8, 212 + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
532.    _PUTIMAGE (420 + 8, 212 + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
533.    _PUTIMAGE (420 + 8, 212 + 32), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
534.   CASE L
535.    _PUTIMAGE (420 - 24, 212 + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
536.    _PUTIMAGE (420 - 8, 212 + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
537.    _PUTIMAGE (420 + 8, 212 + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
538.    _PUTIMAGE (420 - 24, 212 + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
539.   CASE Z
540.    _PUTIMAGE (420 - 24, 212 + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
541.    _PUTIMAGE (420 - 8, 212 + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
542.    _PUTIMAGE (420 - 8, 212 + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
543.    _PUTIMAGE (420 + 8, 212 + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
544.   CASE O
545.    _PUTIMAGE (420 - 16, 212 + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
546.    _PUTIMAGE (420 + 0, 212 + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
547.    _PUTIMAGE (420 - 16, 212 + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
548.    _PUTIMAGE (420 + 0, 212 + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
549.   CASE S
550.    _PUTIMAGE (420 - 8, 212 + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
551.    _PUTIMAGE (420 + 8, 212 + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
552.    _PUTIMAGE (420 - 8, 212 + 32), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
553.    _PUTIMAGE (420 - 24, 212 + 32), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
554.   CASE I
555.    _PUTIMAGE (420 - 32, 212 + 24), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
556.    _PUTIMAGE (420 - 16, 212 + 24), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
557.    _PUTIMAGE (420 + 0, 212 + 24), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
558.    _PUTIMAGE (420 + 16, 212 + 24), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
559.  
560.  END SELECT
561. END SUB
562.  
563. SUB PlaceTetraNome
564.  px% = P.PieceX * 16 + 197 + AdjX%
565.  py% = P.PieceY * 16 + 85 - 16
566.  IF G.Level < 10 THEN Yshift~%% = 16 * G.Level ELSE Yshift~%% = 16 * 9
567.  SELECT CASE P.Piece
568.   CASE T
569.    SELECT CASE P.Orent
570.     CASE 1 'normal
571.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
572.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
573.      _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
574.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
575.     CASE 2 '90 rt
576.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
577.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
578.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
579.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
580.     CASE 3 '180rt
581.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
582.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
583.      _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
584.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
585.     CASE 4 '270rt
586.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
587.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
588.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
589.      _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
590.    END SELECT
591.   CASE J
592.    SELECT CASE P.Orent
593.     CASE 1 'normal
594.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
595.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
596.      _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
597.      _PUTIMAGE (px% + 8, py% + 32), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
598.     CASE 2 '90 rt
599.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
600.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
601.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
602.      _PUTIMAGE (px% - 24, py% + 32), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
603.     CASE 3 '180 rt
604.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
605.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
606.      _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
607.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 24, py% + 0), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
608.     CASE 4 '270 rt
609.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
610.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
611.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
612.      IF P.PieceY > 0 THEN _PUTIMAGE (px% + 8, py% + 0), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
613.    END SELECT
614.   CASE L
615.    SELECT CASE P.Orent
616.     CASE 1 'normal
617.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
618.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
619.      _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
620.      _PUTIMAGE (px% - 24, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
621.     CASE 2 '90 rt
622.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
623.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
624.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
625.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 24, py% + 0), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
626.     CASE 3 '180 rt
627.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
628.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
629.      _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
630.      IF P.PieceY > 0 THEN _PUTIMAGE (px% + 8, py% + 0), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
631.     CASE 4 '270 rt
632.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
633.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
634.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
635.      _PUTIMAGE (px% + 8, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
636.    END SELECT
637.   CASE Z
638.    SELECT CASE P.Orent
639.     CASE 1, 3 'normal+180
640.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
641.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
642.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
643.      _PUTIMAGE (px% + 8, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
644.     CASE 2, 4 '90 rt+270rt
645.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
646.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
647.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
648.      _PUTIMAGE (px% - 24, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
649.    END SELECT
650.   CASE O
651.    SELECT CASE P.Orent
652.     CASE 1 TO 4 'normal-no rotation change
653.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
654.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
655.      _PUTIMAGE (px% - 24, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
656.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
657.    END SELECT
658.   CASE S
659.    SELECT CASE P.Orent
660.     CASE 1, 3 'normal+180rt
661.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
662.      _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
663.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
664.      _PUTIMAGE (px% - 24, py% + 32), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
665.     CASE 2, 4 '90rt+270rt
666.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
667.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
668.      _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
669.      _PUTIMAGE (px% + 8, py% + 32), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
670.    END SELECT
671.   CASE I
672.    SELECT CASE P.Orent
673.     CASE 1, 3 'normal+180
674.      _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
675.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
676.      _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
677.      _PUTIMAGE (px% + 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
678.     CASE 2, 4 '90rt,270rt
679.      IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
680.      _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
681.      _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
682.      _PUTIMAGE (px% - 8, py% + 48), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
683.    END SELECT
684.  END SELECT
685. END SUB
686.  
687. SUB DropPiece
688.  P.PieceY = P.PieceY + 1 'move Tetranome down
689.  IF ButtonHeld%% THEN P.bonus = P.bonus + 1 'if player is pressing down button then add to bonus
690.  IF CollisionDown THEN LandPiece 'check to see if the peice is landed
691. END SUB
692.  
693. FUNCTION CollisionDown
694.  result%% = FALSE
695.  SELECT CASE P.Piece
696.   CASE T
697.    SELECT CASE P.Orent
698.     CASE 1
699.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
700.      IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
701.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
702.     CASE 2
703.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
704.      IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
705.     CASE 3
706.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
707.      IF Board(P.PieceX, P.PieceY + 1) > TRUE THEN result%% = TRUE
708.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
709.     CASE 4
710.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
711.      IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
712.    END SELECT
713.    IF P.PieceY + 1 = 21 THEN result%% = TRUE
714.   CASE J
715.    SELECT CASE P.Orent
716.     CASE 1
717.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
718.      IF Board(P.PieceX, P.PieceY + 1) > TRUE THEN result%% = TRUE
719.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
720.     CASE 2
721.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
722.      IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
723.     CASE 3
724.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
725.      IF Board(P.PieceX, P.PieceY + 1) > TRUE THEN result%% = TRUE
726.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
727.     CASE 4
728.      IF Board(P.PieceX - 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
729.      IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
730.    END SELECT
731.    IF P.PieceY + 1 = 21 THEN result%% = TRUE
732.   CASE L
733.    SELECT CASE P.Orent
734.     CASE 1
735.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
736.      IF Board(P.PieceX, P.PieceY + 1) > TRUE THEN result%% = TRUE
737.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
738.     CASE 2
739.      IF Board(P.PieceX - 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
740.      IF Board(P.PieceX - 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
741.     CASE 3
742.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
743.      IF Board(P.PieceX, P.PieceY + 1) > TRUE THEN result%% = TRUE
744.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
745.     CASE 4
746.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
747.      IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
748.    END SELECT
749.    IF P.PieceY + 1 = 21 THEN result%% = TRUE
750.   CASE Z
751.    SELECT CASE P.Orent
752.     CASE 1, 3
753.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
754.      IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
755.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
756.     CASE 2, 4
757.      IF Board(P.PieceX + 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
758.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
759.    END SELECT
760.    IF P.PieceY + 1 = 21 THEN result%% = TRUE
761.   CASE S
762.    SELECT CASE P.Orent
763.     CASE 1, 3
764.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
765.      IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
766.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
767.     CASE 2, 4
768.      IF Board(P.PieceX + 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
769.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
770.    END SELECT
771.    IF P.PieceY + 1 = 21 THEN result%% = TRUE
772.   CASE I
773.    SELECT CASE P.Orent
774.     CASE 1, 3
775.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
776.      IF Board(P.PieceX + 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
777.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
778.      IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
779.      IF P.PieceY + 1 = 21 THEN result%% = TRUE
780.     CASE 2, 4
781.      IF Board(P.PieceX + 0, P.PieceY + 3) > TRUE THEN result%% = TRUE
782.      IF P.PieceY + 1 = 20 THEN result%% = TRUE
783.    END SELECT
784.   CASE O
785.    SELECT CASE P.Orent
786.     CASE 1 TO 4
787.      IF Board(P.PieceX + 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
788.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
789.      IF P.PieceY + 1 = 21 THEN result%% = TRUE
790.    END SELECT
791.  END SELECT
792.  CollisionDown = result%%
793. END FUNCTION
794.  
795. SUB LandPiece
796.  IF G.Sound THEN _SNDPLAY SFX(5)
797.  SELECT CASE P.Piece
798.   CASE T
799.    Board(P.PieceX + 0, P.PieceY) = 0
800.    SELECT CASE P.Orent
801.     CASE 1
802.      Board(P.PieceX - 1, P.PieceY) = 0
803.      Board(P.PieceX + 1, P.PieceY) = 0
804.      Board(P.PieceX + 0, P.PieceY + 1) = 0
805.     CASE 2
806.      Board(P.PieceX + 0, P.PieceY - 1) = 0
807.      Board(P.PieceX - 1, P.PieceY) = 0
808.      Board(P.PieceX + 0, P.PieceY + 1) = 0
809.     CASE 3
810.      Board(P.PieceX - 1, P.PieceY) = 0
811.      Board(P.PieceX + 1, P.PieceY) = 0
812.      Board(P.PieceX + 0, P.PieceY - 1) = 0
813.     CASE 4
814.      Board(P.PieceX + 0, P.PieceY - 1) = 0
815.      Board(P.PieceX + 1, P.PieceY) = 0
816.      Board(P.PieceX + 0, P.PieceY + 1) = 0
817.    END SELECT
818.   CASE J
819.    Board(P.PieceX + 0, P.PieceY) = 2
820.    SELECT CASE P.Orent
821.     CASE 1
822.      Board(P.PieceX - 1, P.PieceY) = 2
823.      Board(P.PieceX + 1, P.PieceY) = 2
824.      Board(P.PieceX + 1, P.PieceY + 1) = 2
825.     CASE 2
826.      Board(P.PieceX - 0, P.PieceY - 1) = 2
827.      Board(P.PieceX + 0, P.PieceY + 1) = 2
828.      Board(P.PieceX - 1, P.PieceY + 1) = 2
829.     CASE 3
830.      Board(P.PieceX - 1, P.PieceY) = 2
831.      Board(P.PieceX + 1, P.PieceY) = 2
832.      Board(P.PieceX - 1, P.PieceY - 1) = 2
833.     CASE 4
834.      Board(P.PieceX - 0, P.PieceY - 1) = 2
835.      Board(P.PieceX + 0, P.PieceY + 1) = 2
836.      Board(P.PieceX + 1, P.PieceY - 1) = 2
837.    END SELECT
838.   CASE L
839.    Board(P.PieceX + 0, P.PieceY) = 1
840.    SELECT CASE P.Orent
841.     CASE 1
842.      Board(P.PieceX - 1, P.PieceY) = 1
843.      Board(P.PieceX + 1, P.PieceY) = 1
844.      Board(P.PieceX - 1, P.PieceY + 1) = 1
845.     CASE 2
846.      Board(P.PieceX - 0, P.PieceY - 1) = 1
847.      Board(P.PieceX + 0, P.PieceY + 1) = 1
848.      Board(P.PieceX - 1, P.PieceY - 1) = 1
849.     CASE 3
850.      Board(P.PieceX - 1, P.PieceY) = 1
851.      Board(P.PieceX + 1, P.PieceY) = 1
852.      Board(P.PieceX + 1, P.PieceY - 1) = 1
853.     CASE 4
854.      Board(P.PieceX - 0, P.PieceY - 1) = 1
855.      Board(P.PieceX + 0, P.PieceY + 1) = 1
856.      Board(P.PieceX + 1, P.PieceY + 1) = 1
857.    END SELECT
858.   CASE Z
859.    Board(P.PieceX + 0, P.PieceY) = 1
860.    SELECT CASE P.Orent
861.     CASE 1, 3
862.      Board(P.PieceX - 1, P.PieceY) = 1
863.      Board(P.PieceX + 0, P.PieceY + 1) = 1
864.      Board(P.PieceX + 1, P.PieceY + 1) = 1
865.     CASE 2, 4
866.      Board(P.PieceX - 0, P.PieceY - 1) = 1
867.      Board(P.PieceX - 1, P.PieceY + 0) = 1
868.      Board(P.PieceX - 1, P.PieceY + 1) = 1
869.    END SELECT
870.   CASE S
871.    Board(P.PieceX + 0, P.PieceY) = 2
872.    SELECT CASE P.Orent
873.     CASE 1, 3
874.      Board(P.PieceX + 1, P.PieceY) = 2
875.      Board(P.PieceX + 0, P.PieceY + 1) = 2
876.      Board(P.PieceX - 1, P.PieceY + 1) = 2
877.     CASE 2, 4
878.      Board(P.PieceX - 0, P.PieceY - 1) = 2
879.      Board(P.PieceX + 1, P.PieceY + 0) = 2
880.      Board(P.PieceX + 1, P.PieceY + 1) = 2
881.    END SELECT
882.   CASE I
883.    Board(P.PieceX + 0, P.PieceY) = 0
884.    SELECT CASE P.Orent
885.     CASE 1, 3
886.      Board(P.PieceX - 1, P.PieceY) = 0
887.      Board(P.PieceX + 1, P.PieceY + 0) = 0
888.      Board(P.PieceX + 2, P.PieceY + 0) = 0
889.     CASE 2, 4
890.      Board(P.PieceX - 0, P.PieceY - 1) = 0
891.      Board(P.PieceX + 0, P.PieceY + 1) = 0
892.      Board(P.PieceX + 0, P.PieceY + 2) = 0
893.    END SELECT
894.   CASE O
895.    Board(P.PieceX + 0, P.PieceY) = 0
896.    SELECT CASE P.Orent
897.     CASE 1 TO 4
898.      Board(P.PieceX - 1, P.PieceY) = 0
899.      Board(P.PieceX - 0, P.PieceY + 1) = 0
900.      Board(P.PieceX - 1, P.PieceY + 1) = 0
901.    END SELECT
902.  END SELECT
903.  CheckLines
904.  IF ButtonHeld%% THEN P.Score = P.Score + (P.bonus * (G.Level + 1)): LandedNew%% = TRUE
905.  P.bonus = 0
906.  IF NOT G.GameOverFlag THEN NewPiece
907. END SUB
908.  
909. SUB DrawBoard
910.  IF G.Level < 10 THEN Yshift~%% = 16 * G.Level ELSE Yshift~%% = 16 * 9
911.  FOR y% = 0 TO 19
912.   FOR x% = 0 TO 9
913.    IF Board(x% + 1, y% + 1) <> -1 THEN
914.     _PUTIMAGE (197 + x% * 16, 85 + y% * 16), Nomes, _DISPLAY, (0 + 16 * Board(x% + 1, y% + 1), Yshift~%%)-(15 + 16 * Board(x% + 1, y% + 1), 15 + Yshift~%%)
915.    ELSE
916.     LINE (197 + x% * 16, 85 + y% * 16)-(197 + 15 + x% * 16, 85 + 15 + y% * 16), _RGB32(0, 0, 0), BF
917.    END IF
918.   NEXT x%
919.  NEXT y%
920. END SUB
921.  
922. SUB BoardSetup
923.  FOR y% = 0 TO 20
924.   FOR x% = 1 TO 10
925.    Board(x%, y%) = TRUE
926.   NEXT x%
927.  NEXT y%
928. END SUB
929.  
930. SUB dumpboard
931.  OPEN "debugboard.txt" FOR OUTPUT AS #2
932.  LandPiece
933.  FOR y% = 0 TO 21
934.   FOR x% = 0 TO 11
935.    PRINT #2, Board(x%, y%);
936.   NEXT x%
937.   PRINT #2,
938.  NEXT y%
939. END SUB
940.  
941. SUB CheckLines
942.  DIM Lines%(4) 'can fill up to 4 lines at once for a TETRIS
943.  ip%% = 1
944.  'find solid lines
945.  FOR y%% = 1 TO 20
946.   solid%% = TRUE 'assume line is solid at start
947.   FOR x%% = 1 TO 10
948.    IF Board(x%%, y%%) = TRUE THEN solid%% = FALSE 'change to false if hole found
949.   NEXT
950.   IF solid%% THEN Lines%(ip%%) = y%%: ip%% = ip%% + 1
951.  NEXT
952.  ip%% = ip%% - 1
953.  IF ip%% > 0 THEN
954.   IF G.Mode = TypeA THEN P.Lines = P.Lines + ip%%
955.   IF G.Mode = TypeB THEN P.Lines = P.Lines - ip%%
956.   IF P.Lines < 0 THEN P.Lines = 0
957.   'give player points for lines completed
958.   SELECT CASE ip%%
959.    CASE 1
960.     P.Score = P.Score + (40 * (G.Level + 1))
961.     IF G.Sound THEN _SNDPLAY SFX(10)
962.    CASE 2
963.     P.Score = P.Score + (100 * (G.Level + 1))
964.     IF G.Sound THEN _SNDPLAY SFX(10)
965.    CASE 3
966.     P.Score = P.Score + (300 * (G.Level + 1))
967.     IF G.Sound THEN _SNDPLAY SFX(10)
968.    CASE 4
969.     P.Score = P.Score + (1200 * (G.Level + 1))
970.     IF G.Sound THEN _SNDPLAY SFX(9)
971.   END SELECT
972.   'remove solid lines
973.   IF Lines%(1) <> 0 THEN
974.    FOR x% = 1 TO 5
975.     FOR y% = 1 TO ip%%
976.      Board(6 - x%, Lines%(y%)) = -1
977.      Board(5 + x%, Lines%(y%)) = -1
978.     NEXT y%
979.     DrawBoard
980.     _DELAY .075
981.    NEXT x%
982.   END IF
983.   'TETRIS bonus
984.   IF ip%% = 4 THEN P.Score = P.Score + (100 * (ip%% * (G.Level + 1)))
985.   'drop any lines down to fill in gaps
986.   FOR w%% = 1 TO ip%%
987.    FOR y%% = Lines%(w%%) TO 1 STEP -1
988.     FOR x%% = 1 TO 10
989.      Board(x%%, y%%) = Board(x%%, y%% - 1)
990.     NEXT x%%
991.    NEXT y%%
992.    FOR x%% = 1 TO 10 'reset top line
993.     Board(x%%, y%% + 1) = TRUE
994.    NEXT x%%
995.   NEXT w%%
996.   DrawBoard
997.  
998.   IF (P.Lines > 0) AND ((P.Lines MOD 10) = 0) AND G.Mode = TypeA THEN
999.    TIMER(TI(G.Level)) OFF
1000.    IF G.Level < 10 THEN G.Level = G.Level + 1
1001.    TIMER(TI(G.Level)) ON
1002.   END IF
1003.  
1004.  END IF
1005.  IF G.Mode = TypeB AND P.Lines = 0 THEN GameOver
1006. END SUB
1007.  
1008. FUNCTION CollisionLeft
1009.  result%% = FALSE
1010.  SELECT CASE P.Piece
1011.   CASE T
1012.    SELECT CASE P.Orent
1013.     CASE 1
1014.      IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1015.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1016.     CASE 2
1017.      IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1018.      IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1019.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1020.     CASE 3
1021.      IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1022.      IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1023.     CASE 4
1024.      IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1025.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1026.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1027.    END SELECT
1028.   CASE J
1029.    SELECT CASE P.Orent
1030.     CASE 1
1031.      IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1032.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1033.     CASE 2
1034.      IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1035.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1036.      IF Board(P.PieceX - 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1037.     CASE 3
1038.      IF Board(P.PieceX - 2, P.PieceY - 0) > TRUE THEN result%% = TRUE
1039.      IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1040.     CASE 4
1041.      IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1042.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1043.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1044.    END SELECT
1045.   CASE L
1046.    SELECT CASE P.Orent
1047.     CASE 1
1048.      IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1049.      IF Board(P.PieceX - 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1050.     CASE 2
1051.      IF Board(P.PieceX - 2, P.PieceY - 0) > TRUE THEN result%% = TRUE
1052.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1053.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1054.     CASE 3
1055.      IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1056.      IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1057.     CASE 4
1058.      IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1059.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1060.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1061.    END SELECT
1062.   CASE Z
1063.    SELECT CASE P.Orent
1064.     CASE 1, 3
1065.      IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1066.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1067.     CASE 2, 4
1068.      IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1069.      IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1070.      IF Board(P.PieceX - 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1071.    END SELECT
1072.   CASE S
1073.    SELECT CASE P.Orent
1074.     CASE 1, 3
1075.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1076.      IF Board(P.PieceX - 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1077.     CASE 2, 4
1078.      IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1079.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1080.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1081.    END SELECT
1082.   CASE I
1083.    SELECT CASE P.Orent
1084.     CASE 1, 3
1085.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1086.     CASE 2, 4
1087.      IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1088.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1089.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1090.      IF Board(P.PieceX - 1, P.PieceY + 3) > TRUE THEN result%% = TRUE
1091.    END SELECT
1092.   CASE O
1093.    SELECT CASE P.Orent
1094.     CASE 1 TO 4
1095.      IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1096.      IF Board(P.PieceX - 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1097.    END SELECT
1098.  END SELECT
1099.  CollisionLeft = result%%
1100. END FUNCTION
1101.  
1102. FUNCTION CollisionRight
1103.  result%% = FALSE
1104.  SELECT CASE P.Piece
1105.   CASE T
1106.    SELECT CASE P.Orent
1107.     CASE 1
1108.      IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1109.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1110.     CASE 2
1111.      IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1112.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1113.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1114.     CASE 3
1115.      IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1116.      IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1117.     CASE 4
1118.      IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1119.      IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1120.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1121.    END SELECT
1122.   CASE J
1123.    SELECT CASE P.Orent
1124.     CASE 1
1125.      IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1126.      IF Board(P.PieceX + 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1127.     CASE 2
1128.      IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1129.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1130.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1131.     CASE 3
1132.      IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1133.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1134.     CASE 4
1135.      IF Board(P.PieceX + 2, P.PieceY - 0) > TRUE THEN result%% = TRUE
1136.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1137.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1138.    END SELECT
1139.   CASE L
1140.    SELECT CASE P.Orent
1141.     CASE 1
1142.      IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1143.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1144.     CASE 2
1145.      IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1146.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1147.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1148.     CASE 3
1149.      IF Board(P.PieceX + 2, P.PieceY - 0) > TRUE THEN result%% = TRUE
1150.      IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1151.     CASE 4
1152.      IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1153.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1154.      IF Board(P.PieceX + 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1155.    END SELECT
1156.   CASE Z
1157.    SELECT CASE P.Orent
1158.     CASE 1, 3
1159.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1160.      IF Board(P.PieceX + 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1161.     CASE 2, 4
1162.      IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1163.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1164.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1165.    END SELECT
1166.   CASE S
1167.    SELECT CASE P.Orent
1168.     CASE 1, 3
1169.      IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1170.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1171.     CASE 2, 4
1172.      IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1173.      IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1174.      IF Board(P.PieceX + 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1175.    END SELECT
1176.   CASE I
1177.    SELECT CASE P.Orent
1178.     CASE 1, 3
1179.      IF Board(P.PieceX + 3, P.PieceY) > TRUE THEN result%% = TRUE
1180.     CASE 2, 4
1181.      IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1182.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1183.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1184.      IF Board(P.PieceX + 1, P.PieceY + 3) > TRUE THEN result%% = TRUE
1185.    END SELECT
1186.   CASE O
1187.    SELECT CASE P.Orent
1188.     CASE 1 TO 4
1189.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1190.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1191.    END SELECT
1192.  END SELECT
1193.  CollisionRight = result%%
1194. END FUNCTION
1195.  
1196. SUB StatusUpdate
1197.  DIM v$(11) 'value strings
1198.  v$(0) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Lines)))) + LTRIM$(STR$(P.Lines))
1199.  IF G.Mode = TypeA THEN v$(1) = LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1)))) + LTRIM$(STR$(G.HScore1))
1200.  IF G.Mode = TypeB THEN v$(1) = LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1B)))) + LTRIM$(STR$(G.HScore1B))
1201.  v$(2) = LEFT$("000000", 6 - LEN(LTRIM$(STR$(P.Score)))) + LTRIM$(STR$(P.Score))
1202.  v$(3) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Tcount)))) + LTRIM$(STR$(P.Tcount))
1203.  v$(4) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Jcount)))) + LTRIM$(STR$(P.Jcount))
1204.  v$(5) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Zcount)))) + LTRIM$(STR$(P.Zcount))
1205.  v$(6) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Ocount)))) + LTRIM$(STR$(P.Ocount))
1206.  v$(7) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Scount)))) + LTRIM$(STR$(P.Scount))
1207.  v$(8) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Lcount)))) + LTRIM$(STR$(P.Lcount))
1208.  v$(9) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Icount)))) + LTRIM$(STR$(P.Icount))
1209.  v$(10) = LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Level)))) + LTRIM$(STR$(G.Level))
1210.  v$(11) = LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Height)))) + LTRIM$(STR$(G.Height))
1211.  FOR u% = 0 TO 6
1212.   COLOR _RGB32(240, 58, 0)
1213.   _PRINTSTRING (102, 175 + u% * 32), v$(3 + u%), _DISPLAY
1214.   COLOR _RGB32(255, 255, 255)
1215.  NEXT u%
1216.  _PRINTSTRING (308, 34), v$(0), _DISPLAY
1217.  _PRINTSTRING (388, 70), v$(1), _DISPLAY
1218.  _PRINTSTRING (388, 120), v$(2), _DISPLAY
1219.  _PRINTSTRING (428 - (LEN(v$(10)) * _FONTWIDTH(FFX(1))) / 2, 324), v$(10), _DISPLAY
1220.  IF G.Mode = TypeB THEN _PRINTSTRING (440 - (LEN(v$(11)) * _FONTWIDTH(FFX(1))) / 2, 390), v$(11), _DISPLAY
1221. END SUB
1222.  
1223. SUB NewPiece
1224.  IF Board(5, 1) <> TRUE THEN GameOver
1225.  IF NOT G.GameOverFlag THEN
1226.   P.PieceY = 0
1227.   P.PieceX = 5
1228.   P.Orent = 1
1229.   P.Piece = P.NextP
1230.   P.NextP = INT(RND * 7) + 1
1231.   SELECT CASE P.Piece
1232.    CASE T
1233.     P.Tcount = P.Tcount + 1
1234.    CASE J
1235.     P.Jcount = P.Jcount + 1
1236.    CASE L
1237.     P.Lcount = P.Lcount + 1
1238.    CASE Z
1239.     P.Zcount = P.Zcount + 1
1240.    CASE S
1241.     P.Scount = P.Scount + 1
1242.    CASE O
1243.     P.Ocount = P.Ocount + 1
1244.    CASE I
1245.     P.Icount = P.Icount + 1
1246.   END SELECT
1247.   StatusUpdate
1248.   DisplayNextPiece
1249.  END IF
1250. END SUB
1251.  
1252. FUNCTION CollisionRotate
1253.  result%% = FALSE
1254.  SELECT CASE P.Piece
1255.   CASE T
1256.    SELECT CASE P.Orent
1257.     CASE 1
1258.      IF Board(P.PieceX + 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1259.     CASE 2
1260.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1261.     CASE 3
1262.      IF Board(P.PieceX + 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
1263.     CASE 4
1264.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1265.    END SELECT
1266.   CASE J
1267.    SELECT CASE P.Orent
1268.     CASE 1
1269.      IF Board(P.PieceX + 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1270.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1271.      IF Board(P.PieceX - 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
1272.     CASE 2
1273.      IF Board(P.PieceX - 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1274.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1275.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1276.     CASE 3
1277.      IF Board(P.PieceX - 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1278.      IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1279.      IF Board(P.PieceX - 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
1280.     CASE 4
1281.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1282.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1283.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1284.    END SELECT
1285.   CASE L
1286.    SELECT CASE P.Orent
1287.     CASE 1
1288.      IF Board(P.PieceX + 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1289.      IF Board(P.PieceX - 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1290.      IF Board(P.PieceX - 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
1291.     CASE 2
1292.      IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1293.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1294.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1295.     CASE 3
1296.      IF Board(P.PieceX - 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1297.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1298.      IF Board(P.PieceX - 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
1299.     CASE 4
1300.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1301.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1302.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1303.    END SELECT
1304.   CASE Z
1305.    SELECT CASE P.Orent
1306.     CASE 1, 3
1307.      IF Board(P.PieceX - 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
1308.      IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1309.     CASE 2, 4
1310.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1311.      IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1312.    END SELECT
1313.   CASE S
1314.    SELECT CASE P.Orent
1315.     CASE 1, 3
1316.      IF Board(P.PieceX - 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1317.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1318.     CASE 2, 4
1319.      IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1320.      IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1321.    END SELECT
1322.   CASE O
1323.   CASE I
1324.    SELECT CASE P.Orent
1325.     CASE 1, 3
1326.      IF Board(P.PieceX - 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1327.      IF Board(P.PieceX + 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
1328.      IF Board(P.PieceX + 0, P.PieceY + 3) > TRUE THEN result%% = TRUE
1329.     CASE 2, 4
1330.      IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1331.      IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1332.      IF P.PieceX + 2 < 12 THEN IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1333.    END SELECT
1334.  
1335.  END SELECT
1336.  CollisionRotate = result%%
1337. END FUNCTION
1338.  
1339. SUB GameOver
1340.  MenuID%% = -1 'return to title screen
1341.  G.GameOverFlag = TRUE
1342.  IF ButtonHeld%% THEN TIMER(TI(10)) OFF ELSE TIMER(TI(G.Level)) OFF
1343.  _SNDSTOP BGM(G.BGM)
1344.  _SNDPLAY SFX(3)
1345.  _DELAY .25
1346.  IF G.Mode = TypeA THEN
1347.   IF G.Sound THEN _SNDPLAY SFX(7)
1348.   FOR y% = 1 TO 20
1349.    FOR x% = 1 TO 10
1350.     Board(x%, y%) = 3
1351.    NEXT x%
1352.    DrawBoard
1353.    _DELAY .2
1354.   NEXT y%
1355.   IF P.Score > 30000 THEN EndScreen
1356.   IF P.Score > G.HScore3 THEN HighScoreScreen
1357.  END IF
1358.  
1359.  IF G.Mode = TypeB AND P.Lines = 0 THEN
1360.   IF G.Sound THEN _SNDPLAY SFX(8)
1361.   FOR w%% = 1 TO 4
1362.    _PUTIMAGE (276 - 16 * w%%, 206), FieldB, _DISPLAY, (15, 0)-(31, 15)
1363.    _PUTIMAGE (276 - 16 * w%%, 252)-(291 - 16 * w%%, 237), FieldB, _DISPLAY, (15, 0)-(31, 15)
1364.    _PUTIMAGE (260 + 16 * w%%, 206), FieldB, _DISPLAY, (15, 0)-(31, 15)
1365.    _PUTIMAGE (260 + 16 * w%%, 252)-(276 + 16 * w%%, 237), FieldB, _DISPLAY, (15, 0)-(31, 15)
1366.    _DELAY .0375
1367.   NEXT w%%
1368.   _PUTIMAGE (196, 206), FieldB, _DISPLAY, (0, 0)-(15, 15)
1369.   _PUTIMAGE (196, 222), FieldB, _DISPLAY, (0, 16)-(15, 31)
1370.   _PUTIMAGE (196, 252)-(211, 237), FieldB, _DISPLAY, (0, 0)-(15, 15)
1371.   _PUTIMAGE (341, 206), FieldB, _DISPLAY, (32, 0)-(47, 15)
1372.   _PUTIMAGE (356, 222)-(341, 237), FieldB, _DISPLAY, (0, 16)-(15, 31)
1373.   _PUTIMAGE (341, 252)-(356, 237), FieldB, _DISPLAY, (32, 0)-(47, 15)
1374.   _PRINTSTRING (214, 220), "SUCCESS!", _DISPLAY
1375.   _DELAY 1.75
1376.   EndScreenB
1377.   IF P.Score > G.HScore3B THEN HighScoreScreen
1378.  ELSE
1379.   IF G.Sound THEN _SNDPLAY SFX(7)
1380.   FOR y% = 1 TO 20
1381.    FOR x% = 1 TO 10
1382.     Board(x%, y%) = 3
1383.    NEXT x%
1384.    DrawBoard
1385.    _DELAY .2
1386.   NEXT y%
1387.   ' iF P.Score > G.HScore3B THEN HighScoreScreen
1388.  END IF
1389.  _DELAY 2.5
1390. END SUB
1391.  
1392. FUNCTION ClickInteraction (x%, y%)
1393.  IF x% > 570 AND y% > 130 AND x% < 710 AND y% < 175 THEN 'next
1394.   result%% = TRUE
1395.  END IF
1396.  IF x% > 570 AND y% > 200 AND x% < 710 AND y% < 245 THEN 'go back
1397.   result%% = BACK
1398.  END IF
1399.  IF x% > 570 AND y% > 400 AND x% < 710 AND y% < 445 THEN 'quit
1400.   result%% = QUIT
1401.  END IF
1402.  
1403.  ClickInteraction = result%%
1404. END FUNCTION
1405.  
1406. SUB EndScreen
1407.  _SNDLOOP BGM(4)
1408.  COLOR _RGB32(250, 250, 250), _RGB32(0, 89, 251)
1409.  LINE (0, 0)-(512, 480), _RGB32(0, 0, 0), BF
1410.  _PUTIMAGE (5, 5), EndScrnA, _DISPLAY, (64, 16)-(574, 462)
1411.  v$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(P.Score)))) + LTRIM$(STR$(P.Score))
1412.  _PRINTSTRING (225, 50), v$, _DISPLAY
1413.  SELECT CASE P.Score
1414.   CASE 30000 TO 49999
1415.    _PUTIMAGE (168, 373), EndSprtA, _DISPLAY, (98, 0)-(113, 15)
1416.    _DELAY 2.75
1417.    FOR w% = 0 TO 72
1418.     y% = y% + (16 * (w% / 100))
1419.     _PUTIMAGE (168, 373 - y%), EndSprtA, _DISPLAY, (98, 0)-(113, 15)
1420.     SELECT CASE INT(RND * 3) + 1
1421.      CASE 1
1422.       _PUTIMAGE (167, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1423.      CASE 2
1424.       _PUTIMAGE (167, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1425.      CASE 3
1426.       _PUTIMAGE (167, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1427.     END SELECT
1428.     _DELAY .05
1429.     _PUTIMAGE (168, 388 - y%), EndScrnA, _DISPLAY, (168 + 59, 373 + 10 - y%)-(184 + 59, 388 + 10 - y%)
1430.     _PUTIMAGE (168, 388 - y%), EndScrnA, _DISPLAY, (168 + 59, 389 + 10 - y%)-(184 + 59, 405 + 10 - y%)
1431.    NEXT w%
1432.   CASE 50000 TO 74999
1433.    _PUTIMAGE (168, 357), EndSprtA, _DISPLAY, (82, 0)-(97, 31)
1434.    _DELAY 2.75
1435.    FOR w% = 0 TO 72
1436.     y% = y% + (16 * (w% / 100))
1437.     _PUTIMAGE (168, 357 - y%), EndSprtA, _DISPLAY, (82, 0)-(97, 31)
1438.     SELECT CASE INT(RND * 3) + 1
1439.      CASE 1
1440.       _PUTIMAGE (168, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1441.      CASE 2
1442.       _PUTIMAGE (168, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1443.      CASE 3
1444.       _PUTIMAGE (168, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1445.     END SELECT
1446.     _DELAY .05
1447.     _PUTIMAGE (168, 356 - y%), EndScrnA, _DISPLAY, (168 + 59, 357 + 10 - y%)-(184 + 59, 389 + 10 - y%)
1448.     _PUTIMAGE (168, 388 - y%), EndScrnA, _DISPLAY, (168 + 59, 389 + 10 - y%)-(184 + 59, 405 + 10 - y%)
1449.    NEXT w%
1450.   CASE 75000 TO 99999
1451.    _PUTIMAGE (160, 325), EndSprtA, _DISPLAY, (50, 0)-(79, 63)
1452.    _DELAY 2.75
1453.    FOR w% = 0 TO 72
1454.     y% = y% + (16 * (w% / 100))
1455.     _PUTIMAGE (160, 325 - y%), EndSprtA, _DISPLAY, (50, 0)-(79, 63)
1456.     SELECT CASE INT(RND * 3) + 1
1457.      CASE 1
1458.       _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1459.       _PUTIMAGE (172, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1460.      CASE 2
1461.       _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1462.       _PUTIMAGE (172, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1463.      CASE 3
1464.       _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1465.       _PUTIMAGE (172, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1466.     END SELECT
1467.     _DELAY .05
1468.     _PUTIMAGE (160, 325 - y%), EndScrnA, _DISPLAY, (160 + 59, 325 + 10 - y%)-(192 + 59, 389 + 10 - y%)
1469.     _PUTIMAGE (160, 388 - y%), EndScrnA, _DISPLAY, (160 + 59, 389 + 10 - y%)-(192 + 59, 405 + 10 - y%)
1470.    NEXT w%
1471.   CASE 100000 TO 149999
1472.    _PUTIMAGE (160, 278), EndSprtA, _DISPLAY, (0, 0)-(49, 112)
1473.    _DELAY 2.75
1474.    FOR w% = 0 TO 72
1475.     y% = y% + (16 * (w% / 100))
1476.     _PUTIMAGE (160, 278 - y%), EndSprtA, _DISPLAY, (0, 0)-(49, 112)
1477.     SELECT CASE INT(RND * 3) + 1
1478.      CASE 1
1479.       _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1480.       _PUTIMAGE (177, 389 - y%), EndSprtA, _DISPLAY, (0, 114)-(15, 129)
1481.       _PUTIMAGE (192, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1482.      CASE 2
1483.       _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1484.       _PUTIMAGE (176, 389 - y%), EndSprtA, _DISPLAY, (16, 114)-(33, 129)
1485.       _PUTIMAGE (192, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1486.      CASE 3
1487.       _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1488.       _PUTIMAGE (168, 389 - y%), EndSprtA, _DISPLAY, (0, 130)-(31, 161)
1489.       _PUTIMAGE (192, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1490.     END SELECT
1491.     _DELAY .05
1492.     _PUTIMAGE (160, 278 - y%), EndScrnA, _DISPLAY, (160 + 59, 279 + 10 - y%)-(212 + 59, 389 + 10 - y%)
1493.     _PUTIMAGE (160, 388 - y%), EndScrnA, _DISPLAY, (160 + 59, 389 + 10 - y%)-(212 + 59, 421 + 10 - y%)
1494.    NEXT w%
1495.   CASE IS > 150000
1496.  END SELECT
1497.  COLOR _RGB(255, 255, 255), _RGB32(0, 0, 0)
1498.  DO: LOOP UNTIL INKEY$ = CHR$(13)
1499. END SUB
1500.  
1501. SUB HighScoreScreen
1502.  _KEYCLEAR
1503.  DIM names(6) AS STRING * 1
1504.  _PUTIMAGE (5, 5), HighS, _DISPLAY, (64, 16)-(574, 462)
1505.  IF G.Mode = TypeA THEN
1506.   ShowHighScoreA
1507.   IF P.Score > G.HScore1 THEN
1508.    G.HScore1 = P.Score: G.Hlevel1 = G.Level
1509.    _PRINTSTRING (264, 306), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1)))) + LTRIM$(STR$(G.HScore1))
1510.    _PRINTSTRING (376, 306), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel1)))) + LTRIM$(STR$(G.Hlevel1))
1511.    lv%% = 1: ltr%% = 65: G.HName1 = "      "
1512.    names(1) = "A"
1513.    FOR w%% = 2 TO 6
1514.     names(w%%) = " "
1515.    NEXT w%%
1516.    DO
1517.     kbd& = _KEYHIT
1518.     SELECT CASE kbd&
1519.      CASE 19200 'left
1520.       IF lv%% > 1 THEN lv%% = lv%% - 1
1521.       ltr%% = ASC(names(lv%%))
1522.      CASE 19712 'right
1523.       IF lv%% < 6 THEN lv%% = lv%% + 1
1524.       ltr%% = ASC(names(lv%%))
1525.      CASE 18432 'up
1526.       ltr%% = ltr%% + 1
1527.       IF ltr%% = 91 THEN ltr%% = 64
1528.      CASE 20480 'down
1529.       ltr%% = ltr%% - 1
1530.       IF ltr%% = 63 THEN ltr%% = 90
1531.      CASE 13, 27
1532.       exitflag%% = TRUE
1533.     END SELECT
1534.     IF ltr%% = 64 THEN ltr%% = 32
1535.     names(lv%%) = CHR$(ltr%%)
1536.     IF ltr%% = 32 THEN ltr%% = 64
1537.     G.HName1 = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1538.     _PRINTSTRING (150, 306), G.HName1
1539.     LINE (150 + ((lv%% - 1) * 16), 326)-(166 + ((lv%% - 1) * 16), 328), _RGB32(212, 64, 48), BF
1540.     _DELAY .02
1541.     LINE (150, 326)-(256, 328), _RGB32(0, 0, 0), BF
1542.    LOOP UNTIL exitflag%%
1543.   ELSEIF P.Score > G.HScore2 THEN
1544.    G.HScore2 = P.Score: G.Hlevel2 = G.Level
1545.    _PRINTSTRING (264, 338), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore2)))) + LTRIM$(STR$(G.HScore2))
1546.    _PRINTSTRING (376, 338), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel2)))) + LTRIM$(STR$(G.Hlevel2))
1547.    lv%% = 1: ltr%% = 65: G.HName2 = "      "
1548.    FOR w%% = 1 TO 6
1549.     names(w%%) = " "
1550.    NEXT w%%
1551.    DO
1552.     kbd& = _KEYHIT
1553.     SELECT CASE kbd&
1554.      CASE 19200 'left
1555.       IF lv%% > 1 THEN lv%% = lv%% - 1
1556.       ltr%% = ASC(names(lv%%))
1557.      CASE 19712 'right
1558.       IF lv%% < 6 THEN lv%% = lv%% + 1
1559.       ltr%% = ASC(names(lv%%))
1560.      CASE 18432 'up
1561.       ltr%% = ltr%% + 1
1562.       IF ltr%% = 91 THEN ltr%% = 64
1563.      CASE 20480 'down
1564.       ltr%% = ltr%% - 1
1565.       IF ltr%% = 63 THEN ltr%% = 90
1566.      CASE 13, 27
1567.       exitflag%% = TRUE
1568.     END SELECT
1569.     IF ltr%% = 64 THEN ltr%% = 32
1570.     names(lv%%) = CHR$(ltr%%)
1571.     IF ltr%% = 32 THEN ltr%% = 64
1572.     G.HName2 = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1573.     _PRINTSTRING (150, 338), G.HName2
1574.     LINE (150 + ((lv%% - 1) * 16), 358)-(166 + ((lv%% - 1) * 16), 360), _RGB32(212, 64, 48), BF
1575.     _DELAY .02
1576.     LINE (150, 358)-(256, 360), _RGB32(0, 0, 0), BF
1577.    LOOP UNTIL exitflag%%
1578.   ELSEIF P.Score > G.HScore3 THEN
1579.    G.HScore3 = P.Score: G.Hlevel3 = G.Level
1580.    _PRINTSTRING (264, 370), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore3)))) + LTRIM$(STR$(G.HScore3))
1581.    _PRINTSTRING (376, 370), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel3)))) + LTRIM$(STR$(G.Hlevel3))
1582.    lv%% = 1: ltr%% = 65: G.HName3 = "      "
1583.    FOR w%% = 1 TO 6
1584.     names(w%%) = " "
1585.    NEXT w%%
1586.    DO
1587.     kbd& = _KEYHIT
1588.     SELECT CASE kbd&
1589.      CASE 19200 'left
1590.       IF lv%% > 1 THEN lv%% = lv%% - 1
1591.       ltr%% = ASC(names(lv%%))
1592.      CASE 19712 'right
1593.       IF lv%% < 6 THEN lv%% = lv%% + 1
1594.       ltr%% = ASC(names(lv%%))
1595.      CASE 18432 'up
1596.       ltr%% = ltr%% + 1
1597.       IF ltr%% = 91 THEN ltr%% = 64
1598.      CASE 20480 'down
1599.       ltr%% = ltr%% - 1
1600.       IF ltr%% = 63 THEN ltr%% = 90
1601.      CASE 13, 27
1602.       exitflag%% = TRUE
1603.     END SELECT
1604.     IF ltr%% = 64 THEN ltr%% = 32
1605.     names(lv%%) = CHR$(ltr%%)
1606.     IF ltr%% = 32 THEN ltr%% = 64
1607.     G.HName3 = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1608.     _PRINTSTRING (150, 370), G.HName3
1609.     LINE (150 + ((lv%% - 1) * 16), 390)-(166 + ((lv%% - 1) * 16), 392), _RGB32(212, 64, 48), BF
1610.     _DELAY .02
1611.     LINE (150, 390)-(256, 392), _RGB32(0, 0, 0), BF
1612.    LOOP UNTIL exitflag%%
1613.   END IF
1614.   _KEYCLEAR
1615.  
1616.  ELSE
1617.   ShowHighScoreB
1618.   IF P.Score > G.HScore1B THEN
1619.    G.HScore1B = P.Score: G.Hlevel1B = G.Level
1620.    _PRINTSTRING (264, 306), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1B)))) + LTRIM$(STR$(G.HScore1B))
1621.    _PRINTSTRING (376, 306), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel1B)))) + LTRIM$(STR$(G.Hlevel1B))
1622.    lv%% = 1: ltr%% = 65: G.HName1B = "      "
1623.    FOR w%% = 1 TO 6
1624.     names(w%%) = " "
1625.    NEXT w%%
1626.    DO
1627.     kbd& = _KEYHIT
1628.     SELECT CASE kbd&
1629.      CASE 19200 'left
1630.       IF lv%% > 1 THEN lv%% = lv%% - 1
1631.       ltr%% = ASC(names(lv%%))
1632.      CASE 19712 'right
1633.       IF lv%% < 6 THEN lv%% = lv%% + 1
1634.       ltr%% = ASC(names(lv%%))
1635.      CASE 18432 'up
1636.       ltr%% = ltr%% + 1
1637.       IF ltr%% = 91 THEN ltr%% = 64
1638.      CASE 20480 'down
1639.       ltr%% = ltr%% - 1
1640.       IF ltr%% = 63 THEN ltr%% = 90
1641.      CASE 13, 27
1642.       exitflag%% = TRUE
1643.     END SELECT
1644.     IF ltr%% = 64 THEN ltr%% = 32
1645.     names(lv%%) = CHR$(ltr%%)
1646.     IF ltr%% = 32 THEN ltr%% = 64
1647.     G.HName1B = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1648.     _PRINTSTRING (150, 306), G.HName1B
1649.     LINE (150 + ((lv%% - 1) * 16), 326)-(166 + ((lv%% - 1) * 16), 328), _RGB32(212, 64, 48), BF
1650.     _DELAY .02
1651.     LINE (150, 326)-(256, 328), _RGB32(0, 0, 0), BF
1652.    LOOP UNTIL exitflag%%
1653.   ELSEIF P.Score > G.HScore2B THEN
1654.    G.HScore2B = P.Score: G.Hlevel2B = G.Level
1655.    _PRINTSTRING (264, 338), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore2B)))) + LTRIM$(STR$(G.HScore2B))
1656.    _PRINTSTRING (376, 338), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel2B)))) + LTRIM$(STR$(G.Hlevel2B))
1657.    lv%% = 1: ltr%% = 65: G.HName2B = "      "
1658.    FOR w%% = 1 TO 6
1659.     names(w%%) = " "
1660.    NEXT w%%
1661.    DO
1662.     kbd& = _KEYHIT
1663.     SELECT CASE kbd&
1664.      CASE 19200 'left
1665.       IF lv%% > 1 THEN lv%% = lv%% - 1
1666.       ltr%% = ASC(names(lv%%))
1667.      CASE 19712 'right
1668.       IF lv%% < 6 THEN lv%% = lv%% + 1
1669.       ltr%% = ASC(names(lv%%))
1670.      CASE 18432 'up
1671.       ltr%% = ltr%% + 1
1672.       IF ltr%% = 91 THEN ltr%% = 64
1673.      CASE 20480 'down
1674.       ltr%% = ltr%% - 1
1675.       IF ltr%% = 63 THEN ltr%% = 90
1676.      CASE 13, 27
1677.       exitflag%% = TRUE
1678.     END SELECT
1679.     IF ltr%% = 64 THEN ltr%% = 32
1680.     names(lv%%) = CHR$(ltr%%)
1681.     IF ltr%% = 32 THEN ltr%% = 64
1682.     G.HName2B = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1683.     _PRINTSTRING (150, 338), G.HName2B
1684.     LINE (150 + ((lv%% - 1) * 16), 358)-(166 + ((lv%% - 1) * 16), 360), _RGB32(212, 64, 48), BF
1685.     _DELAY .02
1686.     LINE (150, 358)-(256, 360), _RGB32(0, 0, 0), BF
1687.    LOOP UNTIL exitflag%%
1688.   ELSEIF P.Score > G.HScore3B THEN
1689.    G.HScore3B = P.Score: G.Hlevel3B = G.Level
1690.    _PRINTSTRING (264, 370), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore3B)))) + LTRIM$(STR$(G.HScore3B))
1691.    _PRINTSTRING (376, 370), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel3B)))) + LTRIM$(STR$(G.Hlevel3B))
1692.    lv%% = 1: ltr%% = 65: G.HName3B = "      "
1693.    FOR w%% = 1 TO 6
1694.     names(w%%) = " "
1695.    NEXT w%%
1696.    DO
1697.     kbd& = _KEYHIT
1698.     SELECT CASE kbd&
1699.      CASE 19200 'left
1700.       IF lv%% > 1 THEN lv%% = lv%% - 1
1701.       ltr%% = ASC(names(lv%%))
1702.      CASE 19712 'right
1703.       IF lv%% < 6 THEN lv%% = lv%% + 1
1704.       ltr%% = ASC(names(lv%%))
1705.      CASE 18432 'up
1706.       ltr%% = ltr%% + 1
1707.       IF ltr%% = 91 THEN ltr%% = 64
1708.      CASE 20480 'down
1709.       ltr%% = ltr%% - 1
1710.       IF ltr%% = 63 THEN ltr%% = 90
1711.      CASE 13, 27
1712.       exitflag%% = TRUE
1713.     END SELECT
1714.     IF ltr%% = 64 THEN ltr%% = 32
1715.     names(lv%%) = CHR$(ltr%%)
1716.     IF ltr%% = 32 THEN ltr%% = 64
1717.     G.HName3B = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1718.     _PRINTSTRING (150, 370), G.HName3B
1719.     LINE (150 + ((lv%% - 1) * 16), 390)-(166 + ((lv%% - 1) * 16), 392), _RGB32(212, 64, 48), BF
1720.     _DELAY .02
1721.     LINE (150, 390)-(256, 392), _RGB32(0, 0, 0), BF
1722.    LOOP UNTIL exitflag%%
1723.   END IF
1724.   _KEYCLEAR
1725.  END IF
1726. END SUB
1727.  
1728. SUB ShowHighScoreA
1729.  _PRINTSTRING (150, 306), G.HName1
1730.  _PRINTSTRING (264, 306), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1)))) + LTRIM$(STR$(G.HScore1))
1731.  _PRINTSTRING (376, 306), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel1)))) + LTRIM$(STR$(G.Hlevel1))
1732.  _PRINTSTRING (150, 338), G.HName2
1733.  _PRINTSTRING (264, 338), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore2)))) + LTRIM$(STR$(G.HScore2))
1734.  _PRINTSTRING (376, 338), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel2)))) + LTRIM$(STR$(G.Hlevel2))
1735.  _PRINTSTRING (150, 370), G.HName3
1736.  _PRINTSTRING (264, 370), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore3)))) + LTRIM$(STR$(G.HScore3))
1737.  _PRINTSTRING (376, 370), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel3)))) + LTRIM$(STR$(G.Hlevel3))
1738. END SUB
1739.  
1740. SUB ShowHighScoreB
1741.  _PRINTSTRING (150, 306), G.HName1B
1742.  _PRINTSTRING (264, 306), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1B)))) + LTRIM$(STR$(G.HScore1B))
1743.  _PRINTSTRING (376, 306), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel1B)))) + LTRIM$(STR$(G.Hlevel1B))
1744.  _PRINTSTRING (150, 338), G.HName2B
1745.  _PRINTSTRING (264, 338), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore2B)))) + LTRIM$(STR$(G.HScore2B))
1746.  _PRINTSTRING (376, 338), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel2B)))) + LTRIM$(STR$(G.Hlevel2B))
1747.  _PRINTSTRING (150, 370), G.HName3B
1748.  _PRINTSTRING (264, 370), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore3B)))) + LTRIM$(STR$(G.HScore3B))
1749.  _PRINTSTRING (376, 370), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel3B)))) + LTRIM$(STR$(G.Hlevel3B))
1750. END SUB
1751.  
1752. SUB MoveLeft
1753.  SELECT CASE P.Piece
1754.   CASE T, J, L
1755.    SELECT CASE P.Orent
1756.     CASE 1, 2, 3
1757.      IF P.PieceX = 1 THEN P.PieceX = 2
1758.     CASE 4
1759.      IF P.PieceX = 0 THEN P.PieceX = 1
1760.    END SELECT
1761.   CASE Z
1762.    SELECT CASE P.Orent
1763.     CASE 1 TO 4
1764.      IF P.PieceX = 1 THEN P.PieceX = 2
1765.    END SELECT
1766.   CASE S
1767.    SELECT CASE P.Orent
1768.     CASE 1, 3
1769.      IF P.PieceX = 1 THEN P.PieceX = 2
1770.     CASE 2, 4
1771.      IF P.PieceX = 0 THEN P.PieceX = 1
1772.    END SELECT
1773.   CASE O
1774.    SELECT CASE P.Orent
1775.     CASE 1 TO 4
1776.      IF P.PieceX = 1 THEN P.PieceX = 2
1777.    END SELECT
1778.   CASE I
1779.    SELECT CASE P.Orent
1780.     CASE 2, 4
1781.      IF P.PieceX = 0 THEN P.PieceX = 1
1782.     CASE 1, 3
1783.      IF P.PieceX = 1 THEN P.PieceX = 2
1784.    END SELECT
1785.  END SELECT
1786.  
1787. END SUB
1788. SUB MoveRight
1789.  SELECT CASE P.Piece
1790.   CASE T, J, L
1791.    SELECT CASE P.Orent
1792.     CASE 1, 3, 4
1793.      IF P.PieceX = 10 THEN P.PieceX = 9
1794.     CASE 2
1795.      IF P.PieceX = 11 THEN P.PieceX = 10
1796.    END SELECT
1797.   CASE Z
1798.    SELECT CASE P.Orent
1799.     CASE 1, 3
1800.      IF P.PieceX = 10 THEN P.PieceX = 9
1801.     CASE 2, 4
1802.      IF P.PieceX = 11 THEN P.PieceX = 10
1803.    END SELECT
1804.   CASE S
1805.    SELECT CASE P.Orent
1806.     CASE 1, 3
1807.      IF P.PieceX = 10 THEN P.PieceX = 9
1808.     CASE 2, 4
1809.      IF P.PieceX = 10 THEN P.PieceX = 9
1810.    END SELECT
1811.   CASE O
1812.    SELECT CASE P.Orent
1813.     CASE 1 TO 4
1814.      IF P.PieceX = 11 THEN P.PieceX = 10
1815.    END SELECT
1816.   CASE I
1817.    SELECT CASE P.Orent
1818.     CASE 2, 4
1819.      IF P.PieceX = 11 THEN P.PieceX = 10
1820.     CASE 1, 3
1821.      IF P.PieceX = 9 THEN P.PieceX = 8
1822.    END SELECT
1823.  END SELECT
1824. END SUB
1825.  
1826. SUB StartData
1827.  IF G.HScore1 = 0 THEN
1828.   G.BGMVol = 50
1829.   G.SFXVol = 50
1830.   G.Mode = TypeA
1831.   G.BGM = Song1
1832.   G.HScore1 = 15000
1833.   G.HScore2 = 10000
1834.   G.HScore3 = 5000
1835.   G.Hlevel1 = 10
1836.   G.Hlevel2 = 5
1837.   G.Hlevel3 = 1
1838.   G.HName1 = "Narika"
1839.   G.HName2 = "Cobalt"
1840.   G.HName3 = "Ninten"
1841.   G.HScore1B = 5000
1842.   G.HScore2B = 3000
1843.   G.HScore3B = 1000
1844.   G.Hlevel1B = 10
1845.   G.Hlevel2B = 5
1846.   G.Hlevel3B = 1
1847.   G.HName1B = "Nobody"
1848.   G.HName2B = "anybdy"
1849.   G.HName3B = "losers"
1850.  
1851.   G.Level = 0
1852.   P.Score = 0
1853.  ELSE
1854.   G.GameOverFlag = FALSE
1855.   G.Level = 0
1856.   P.Score = 0
1857.   P.Lines = 0
1858.   BoardSetup
1859.  END IF
1860. END SUB
1861.  
1862. SUB BTypeHeight
1863.  'Btype height * 3 lines
1864.  IF G.Height > 0 THEN
1865.   FOR y%% = 20 TO (20 - (G.Height * 3)) + 1 STEP -1
1866.    FOR x%% = 1 TO 10
1867.     garbage%% = INT(RND * 100) + 1
1868.     IF garbage%% > 45 THEN Board(x%%, y%%) = INT(RND * 3)
1869.    NEXT x%%
1870.   NEXT y%%
1871.  END IF
1872. END SUB
1873.  
1874. SUB GameModeA
1875.  LINE (0, 0)-(799, 480), _RGB32(0, 0, 0), BF
1876.  _PUTIMAGE (5, 5), FieldA, _DISPLAY, (64, 16)-(574, 462)
1877.  P.NextP = INT(RND * 7) + 1
1878.  NewPiece
1879.  PlaceTetraNome
1880.  TIMER(TI(G.Level)) ON
1881.  DO
1882.   KBD& = _KEYHIT
1883.   SELECT CASE KBD&
1884.    CASE 19200 'left
1885.     IF NOT CollisionLeft THEN
1886.      IF G.Sound THEN _SNDPLAY SFX(4)
1887.      P.PieceX = P.PieceX - 1
1888.      MoveLeft
1889.     END IF
1890.    CASE 19712 'right
1891.     IF NOT CollisionRight THEN
1892.      IF G.Sound THEN _SNDPLAY SFX(4)
1893.      P.PieceX = P.PieceX + 1
1894.      MoveRight
1895.     END IF
1896.    CASE 20480 'Down
1897.     IF ButtonHeld%% = FALSE THEN 'if player holds the down arrow switch to faster timer
1898.      TIMER(TI(G.Level)) OFF
1899.      TIMER(TI(10)) ON
1900.      ButtonHeld%% = TRUE
1901.     END IF
1902.    CASE 32 'space
1903.     'rotational point is second block, top row if app.
1904.     IF NOT CollisionRotate THEN
1905.      P.Orent = P.Orent + 1
1906.      IF P.Orent = 5 THEN P.Orent = 1
1907.      IF G.Sound THEN _SNDPLAY SFX(3)
1908.      SELECT CASE P.Piece
1909.       CASE T, J, L
1910.        'if piece is to close to edge to rotate then bump it out 1
1911.        IF P.PieceX = 1 AND P.Orent <> 4 THEN P.PieceX = 2
1912.        IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1913.       CASE Z
1914.        IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1915.       CASE O
1916.       CASE S
1917.        IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1918.       CASE I
1919.        IF P.PieceX = 1 AND (P.Orent <> 1 OR P.Orent <> 3) THEN P.PieceX = 2
1920.        IF P.PieceX = 10 AND (P.Orent <> 1 OR P.Orent <> 3) THEN P.PieceX = 8
1921.      END SELECT
1922.     END IF
1923.     _KEYCLEAR
1924.    CASE 27 'Esc
1925.     exitflag%% = TRUE
1926.     QuitGameFlag%% = TRUE
1927.   END SELECT
1928.  
1929.   IF NOT _KEYDOWN(20480) AND ButtonHeld%% THEN 'if player releases the down arrow restore timer
1930.    ButtonHeld%% = FALSE
1931.    TIMER(TI(10)) OFF
1932.    TIMER(TI(G.Level)) ON
1933.    P.bonus = 0
1934.   END IF
1935.  
1936.   LINE (197, 85)-(197 + 159, 85 + 319), _RGB32(0, 0, 0), BF
1937.   DrawBoard
1938.   PlaceTetraNome
1939.   _DELAY .01
1940.   IF G.GameOverFlag THEN exitflag%% = TRUE
1941.  LOOP UNTIL exitflag%%
1942.  TIMER(TI(G.Level)) OFF
1943. END SUB
1944.  
1945. SUB GameModeB
1946.  LINE (0, 0)-(799, 480), _RGB32(0, 0, 0), BF
1947.  _PUTIMAGE (5, 5), FieldB, _DISPLAY, (64, 16)-(574, 462)
1948.  P.NextP = INT(RND * 7) + 1
1949.  BTypeHeight
1950.  NewPiece
1951.  PlaceTetraNome
1952.  TIMER(TI(G.Level)) ON
1953.  DO
1954.   KBD& = _KEYHIT
1955.   SELECT CASE KBD&
1956.    CASE 19200 'left
1957.     IF NOT CollisionLeft THEN
1958.      IF G.Sound THEN _SNDPLAY SFX(4)
1959.      P.PieceX = P.PieceX - 1
1960.      MoveLeft
1961.     END IF
1962.    CASE 19712 'right
1963.     IF NOT CollisionRight THEN
1964.      IF G.Sound THEN _SNDPLAY SFX(4)
1965.      P.PieceX = P.PieceX + 1
1966.      MoveRight
1967.     END IF
1968.    CASE 20480 'Down
1969.     IF ButtonHeld%% = FALSE THEN 'if player holds the down arrow switch to faster timer
1970.      TIMER(TI(G.Level)) OFF
1971.      TIMER(TI(10)) ON
1972.      ButtonHeld%% = TRUE
1973.     END IF
1974.    CASE 32 'space
1975.     'rotational point is second block, top row if app.
1976.     IF NOT CollisionRotate THEN
1977.      IF G.Sound THEN _SNDPLAY SFX(3)
1978.      P.Orent = P.Orent + 1
1979.      IF P.Orent = 5 THEN P.Orent = 1
1980.      SELECT CASE P.Piece
1981.       CASE T, J, L
1982.        'if piece is to close to edge to rotate then bump it out 1
1983.        IF P.PieceX = 1 AND P.Orent <> 4 THEN P.PieceX = 2
1984.        IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1985.       CASE Z
1986.        IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1987.       CASE O
1988.       CASE S
1989.        IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1990.       CASE I
1991.        IF P.PieceX = 1 AND (P.Orent <> 1 OR P.Orent <> 3) THEN P.PieceX = 2
1992.        IF P.PieceX = 10 AND (P.Orent <> 1 OR P.Orent <> 3) THEN P.PieceX = 8
1993.      END SELECT
1994.     END IF
1995.     _KEYCLEAR
1996.    CASE 27 'Esc
1997.     exitflag%% = TRUE
1998.     QuitGameFlag%% = TRUE
1999.   END SELECT
2000.  
2001.   IF NOT _KEYDOWN(20480) AND ButtonHeld%% THEN 'if player releases the down arrow restore timer
2002.    ButtonHeld%% = FALSE
2003.    TIMER(TI(10)) OFF
2004.    TIMER(TI(G.Level)) ON
2005.    P.bonus = 0
2006.   END IF
2007.  
2008.   LINE (197, 85)-(197 + 159, 85 + 319), _RGB32(0, 0, 0), BF
2009.   DrawBoard
2010.   PlaceTetraNome
2011.   _DELAY .01
2012.   IF G.GameOverFlag THEN exitflag%% = TRUE
2013.  LOOP UNTIL exitflag%%
2014.  TIMER(TI(G.Level)) OFF
2015. END SUB
2016.  
2017. SUB DisplayClickOptions
2018.  _PRINTSTRING (570, 130), "Click here"
2019.  _PRINTSTRING (570, 150), "to Continue"
2020.  
2021.  _PRINTSTRING (570, 200), "Click here"
2022.  _PRINTSTRING (570, 220), "to go Back"
2023.  
2024.  _PRINTSTRING (570, 400), "Click here"
2025.  _PRINTSTRING (570, 420), "Exit Game"
2026. END SUB
2027.  
2028. FUNCTION LoadGFX& (Foff&, Size&)
2029.  IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
2030.  OPEN "temp.dat" FOR BINARY AS #3
2031.  dat$ = SPACE$(Size&)
2032.  GET #1, Foff&, dat$
2033.  PUT #3, , dat$
2034.  CLOSE #3
2035.  LoadGFX& = _LOADIMAGE("temp.dat", 32)
2036. END FUNCTION
2037.  
2038. SUB EndScreenB
2039.  ST1& = _FREETIMER
2040.  ON TIMER(ST1&, .025) TypeBAnimation
2041.  CLS
2042.  COLOR _RGB32(250, 250, 250), _RGB32(0, 89, 251)
2043.  LINE (0, 0)-(512, 480), _RGB32(0, 0, 0), BF
2044.  _PUTIMAGE (5, 5), EndScrnB, _DISPLAY, (64, 16)-(574, 462)
2045.  _PUTIMAGE (112, 68), EndScrnB, _DISPLAY, (100, 180)-(210, 220)
2046.  _PUTIMAGE (116, 71), EndScrnB, _DISPLAY, (176, 80)-(254, 93)
2047.  _PUTIMAGE (116, 89), EndScrnB, _DISPLAY, (176, 96)-(272, 110)
2048.  v$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(P.Score)))) + LTRIM$(STR$(P.Score))
2049.  v1$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.Level * 1000)))) + LTRIM$(STR$(G.Level * 1000))
2050.  v2$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.Height * 1000)))) + LTRIM$(STR$(G.Height * 1000))
2051.  v3$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(total&)))) + LTRIM$(STR$(total&))
2052.  _PRINTSTRING (225, 50), v$, _DISPLAY
2053.  _PRINTSTRING (225, 68), v1$, _DISPLAY
2054.  _PRINTSTRING (225, 86), v2$, _DISPLAY
2055.  _PRINTSTRING (225, 130), v3$, _DISPLAY
2056.  
2057.  _PUTIMAGE (0, 0), _DISPLAY, Temp&, (0, 0)-(511, 479) 'make backup of screen
2058.  TIMER(ST1&) ON
2059.  _DELAY 1
2060.  total& = P.Score
2061.  _PRINTSTRING (225, 50), v3$, _DISPLAY
2062.  _PRINTSTRING (225, 50), v3$, Temp&
2063.  v3$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(total&)))) + LTRIM$(STR$(total&))
2064.  _PRINTSTRING (225, 130), v3$, _DISPLAY
2065.  _PRINTSTRING (225, 130), v3$, Temp&
2066.  _DELAY .25
2067.  b1% = G.Level * 1000
2068.  FOR w% = b1% TO 0 STEP -100
2069.   total& = total& + 100
2070.   v1$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(w%)))) + LTRIM$(STR$(w%))
2071.   _PRINTSTRING (225, 68), v1$, _DISPLAY
2072.   _PRINTSTRING (225, 68), v1$, Temp&
2073.   v3$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(total&)))) + LTRIM$(STR$(total&))
2074.   _PRINTSTRING (225, 130), v3$, _DISPLAY
2075.   _PRINTSTRING (225, 130), v3$, Temp&
2076.   _DELAY .05
2077.  NEXT w%
2078.  b1% = G.Height * 1000
2079.  FOR w% = b1% TO 0 STEP -100
2080.   total& = total& + 100
2081.   v2$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(w%)))) + LTRIM$(STR$(w%))
2082.   _PRINTSTRING (225, 86), v2$, _DISPLAY
2083.   _PRINTSTRING (225, 86), v2$, Temp&
2084.   v3$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(total&)))) + LTRIM$(STR$(total&))
2085.   _PRINTSTRING (225, 130), v3$, _DISPLAY
2086.   _PRINTSTRING (225, 130), v3$, Temp&
2087.   _DELAY .05
2088.  NEXT w%
2089.  COLOR _RGB32(254, 254, 254), _RGB32(0, 0, 0)
2090.  DO: _DELAY .02: LOOP UNTIL INKEY$ = CHR$(13)
2091.  TIMER(ST1&) OFF
2092.  TIMER(ST1&) FREE
2093. END SUB
2094.  
2095. SUB TypeBAnimation
2096.  STATIC Frame%%, Xloc%(5), Yloc%(5)
2097.  _FONT 16
2098.  SELECT CASE G.Level
2099.   CASE 0
2100.    FOR w%% = 1 TO G.Height + 1
2101.     LOCATE w%%, 65: PRINT Xloc%(w%%); Frame%%
2102.     IF Yloc%(w%%) = 0 THEN Yloc%(w%%) = INT(RND * 300) + 100
2103.     '    IF Yloc%(w%%) > 120 AND Yloc%(w%%) < 146 THEN Yloc%(w%%) = Yloc%(w%%) + INT(RND * 64) + 16
2104.     IF Xloc%(w%%) = 0 THEN Xloc%(w%%) = INT(RND * 100) - 50
2105.     IF Xloc%(w%%) > 32 THEN LINE (Xloc%(w%%), Yloc%(w%%))-(Xloc%(w%%) + 16, Yloc%(w%%) + 16), _RGB32(0, 89, 251), B
2106.     '    _PUTIMAGE (Xloc%(w%%), Yloc%(w%%)), EndScrnB, _DISPLAY, (59 + Xloc%(w%%), 11 + Yloc%(w%%))-(59 + Xloc%(w%%) + 16, 11 + Yloc%(w%%) + 16)
2107.     _PUTIMAGE (Xloc%(w%%), Yloc%(w%%)), Temp&, _DISPLAY, (Xloc%(w%%), Yloc%(w%%))-(Xloc%(w%%) + 16, Yloc%(w%%) + 16)
2108.  
2109.     Xloc%(w%%) = Xloc%(w%%) + 1: IF Xloc%(w%%) > 460 THEN Xloc%(w%%) = INT(RND * 100) - 50: Yloc%(w%%) = INT(RND * 300) + 100
2110.     SELECT CASE Frame%%
2111.      CASE 1 TO 12
2112.       IF Xloc%(w%%) > 32 THEN _PUTIMAGE (Xloc%(w%%), Yloc%(w%%)), EndSprtA, _DISPLAY, (50, 77)-(65, 92)
2113.      CASE 13 TO 24
2114.       IF Xloc%(w%%) > 32 THEN _PUTIMAGE (Xloc%(w%%), Yloc%(w%%)), EndSprtA, _DISPLAY, (66, 77)-(81, 92)
2115.     END SELECT
2116.     Frame%% = Frame%% + 1: IF Frame%% = 25 THEN Frame%% = 1
2117.    NEXT w%%
2118.   CASE 1
2119.   CASE 2
2120.   CASE 3
2121.   CASE 4
2122.  
2123.  END SELECT
2124.  _FONT FFX(1)
2125. END SUB
2126.  

A section from EndScreenB:
....
....
FOR w% = b1% TO 0 STEP -100
  total& = total& + 100
  v2$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(w%)))) + LTRIM$(STR$(w%))
  _PRINTSTRING (225, 86), v2$, _DISPLAY
  _PRINTSTRING (225, 86), v2$, Temp& '<---Not displaying correctly, not going to correct layer
  v3$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(total&)))) + LTRIM$(STR$(total&))
  _PRINTSTRING (225, 130), v3$, _DISPLAY
  _PRINTSTRING (225, 130), v3$, Temp& '<---Not displaying correctly, not going to correct layer
  _DELAY .05
 NEXT w%
....
....

[FellippeHeitor]

Try setting _DEST before using _PRINTSTRING instead of passing it as a parameter. Does it work as expected that way?

[Cobalt]

It moves it to the right layer but still ignores the FONT and COLOR.

[Petr]

Hi. Try add next parameter to FONT statement" IF FFX(1) THEN _FONT FFX(1), Temp& on line 173, if it help

[Petr]

This line:

    COLOR _RGB32(254, 254, 254), _RGB32(0, 0, 0) in sub EndScreenB is for which screen?

I repair it (bud not nice) so:

Code: QB64: [Select]

1. 'Tetris 64 Ver 0.9 [start date 10/3/18-13.27]
2. 'v0.9: (last build on 10/13/2018-13:25)
3. 'add 'no sound' option
4. 'add level selection in Menu A to game value
5. 'add B-Type menu
6. 'small rocket ending done
7. 'med rocket ending done
8. 'Large rocket ending done
9. 'Shuttle ending done
10. 'High Score screen Atype done
11. 'high score screen Btype done
12. 'Fix rotational collisions
13. 'divorced Narika from code
14. 'B-Type game functional
15. '** found new bug with rotational collisions (10/11/2018) **
16. '
17. TYPE GameData
18.     Mode AS _BYTE 'game type A or B
19.     BGM AS _BYTE 'Back Gound music 1,2,3
20.     BGMVol AS _BYTE 'Back Gound Music Volume
21.     SFXVol AS _BYTE 'Sound effects Volume
22.     Level AS _BYTE 'game level
23.     Height AS _BYTE 'line height B-type game
24.     HScore1 AS LONG 'Highest Score
25.     HScore2 AS LONG 'Higher Score
26.     HScore3 AS LONG 'High Score
27.     HName1 AS STRING * 6 'High score name
28.     HName2 AS STRING * 6 ' "    "     "
29.     HName3 AS STRING * 6 ' "    "     "
30.     Hlevel1 AS _BYTE
31.     Hlevel2 AS _BYTE
32.     Hlevel3 AS _BYTE
33.     HScore1B AS LONG 'Highest Score B-type
34.     HScore2B AS LONG 'Higher Score B-type
35.     HScore3B AS LONG 'High Score B-type
36.     HName1B AS STRING * 6 'High score name B-Type
37.     HName2B AS STRING * 6 ' "    "     "
38.     HName3B AS STRING * 6 ' "    "     "
39.     Hlevel1B AS _BYTE
40.     Hlevel2B AS _BYTE
41.     Hlevel3B AS _BYTE
42.     GameOverFlag AS _BYTE 'game over
43.     Sound AS _BYTE 'sound on or off
44.     Loaded AS _BYTE
45. END TYPE
46.  
47. TYPE CurrentData
48.     Icount AS INTEGER ' Number of I blocks used in current game
49.     Ocount AS INTEGER ' Number of O blocks used in current game
50.     Zcount AS INTEGER ' number of Z blocks used in current game
51.     Scount AS INTEGER ' number of S blocks used in current game
52.     Jcount AS INTEGER ' number of J blocks used in current game
53.     Lcount AS INTEGER ' number of L blocks used in current game
54.     Tcount AS INTEGER ' number of T blocks used in current game
55.     Score AS LONG '     Current game score
56.     Piece AS _BYTE '    The currently dropping piece
57.     NextP AS _BYTE '    The next piece in the queue
58.     Lines AS INTEGER '  The lines complete in A-Type, Lines remaining in B-type
59.     Orent AS _BYTE '    rotational orentation of current piece
60.     PieceX AS _BYTE '   current Piece's X location on board 1-10
61.     PieceY AS _BYTE '   current Piece's Y location on board 1-20
62.     bonus AS _BYTE '    Quick drop bonus +1 for each line while down is pressed
63. END TYPE
64.  
65. DIM SHARED G AS GameData, P AS CurrentData, Board(11, 21) AS _BYTE
66. DIM SHARED BGM(5) AS LONG, SFX(64) AS LONG, FFX(1) AS LONG
67. DIM SHARED MenuA AS LONG, MenuB AS LONG, FieldA AS LONG, CharacterA AS LONG
68. DIM SHARED Nomes AS LONG, Bzone AS LONG, ButtonHeld%%, LandedNew%%
69. DIM SHARED TI(10) AS LONG, MenuC AS LONG, EndScrnA AS LONG, EndSprtA AS LONG
70. DIM SHARED HighS AS LONG, FieldB AS LONG, QuitGameFlag%%, MenuID%%
71. DIM SHARED Splash&, EndScrnB AS LONG, EndScrnB2 AS LONG, Temp&
72.  
73. CONST TRUE = -1, FALSE = NOT TRUE
74. CONST TypeA = 1, TypeB = 2
75. CONST NoBGM = 0, Song1 = 1, Song2 = 2, Song3 = 3, LoadIt = -1, NoSound = -2
76. CONST T = 1, O = 2, Z = 3, S = 4, J = 5, L = 6, I = 7
77. CONST AdjX% = -8, BACK = -2, QUIT = -3
78.  
79. FOR w% = 0 TO 10
80.     TI(w%) = _FREETIMER
81. NEXT w%
82. ON TIMER(TI(0), .85) DropPiece
83. ON TIMER(TI(1), .72) DropPiece
84. ON TIMER(TI(2), .63) DropPiece
85. ON TIMER(TI(3), .55) DropPiece
86. ON TIMER(TI(4), .47) DropPiece
87. ON TIMER(TI(5), .38) DropPiece
88. ON TIMER(TI(6), .3) DropPiece
89. ON TIMER(TI(7), .22) DropPiece
90. ON TIMER(TI(8), .13) DropPiece
91. ON TIMER(TI(9), .1) DropPiece
92. ON TIMER(TI(10), .05) DropPiece
93. StartData
94.  
95. st! = TIMER
96.  
97. RANDOMIZE TIMER
98. PRINT "loading.";
99. LoadGameStuff NoSound 'LoadIt
100. _CLEARCOLOR _RGB32(0, 0, 0), MenuB
101. _CLEARCOLOR _RGB32(0, 0, 0), MenuC
102. _CLEARCOLOR _RGB32(0, 89, 251), EndSprtA
103. BoardSetup
104. MenuID%% = 0
105. G.Height = 3
106. P.Score = 1340
107. EndScreenB
108. END
109. DO
110.     StartData
111.     IF MenuID%% = -1 THEN TitleScreen
112.     IF NOT QuitGameFlag%% THEN
113.         IF MenuID%% = 0 THEN MenuOne
114.         IF NOT QuitGameFlag%% THEN
115.             IF MenuID%% = 1 AND G.Mode = TypeA THEN MenuTwoA
116.             IF MenuID%% = 1 AND G.Mode = TypeB THEN MenuTwoB
117.         END IF
118.         IF MenuID%% = 2 AND (NOT QuitGameFlag%%) AND G.Mode = TypeA THEN GameModeA
119.         IF MenuID%% = 2 AND (NOT QuitGameFlag%%) AND G.Mode = TypeB THEN GameModeB
120.     END IF
121. LOOP UNTIL QuitGameFlag%%
122.  
123. 'dumpboard 'debuging line
124. '------------------------------------------------------------------
125. SUB TitleScreen
126.     _TITLE "Tetris64 V.9  2018\Cobalt"
127.     _PUTIMAGE (-10, 0), Splash&, _DISPLAY
128.     _PRINTSTRING (168, 395), "Remake By Cobalt 2018", _DISPLAY
129.     IF NOT G.Loaded THEN _PRINTSTRING (155, 290), "Please Wait", _DISPLAY
130.     IF G.Loaded THEN _PRINTSTRING (155, 290), "Ready to Play", _DISPLAY
131.  
132.     IF MenuID%% = -1 THEN
133.         DisplayClickOptions
134.         COLOR _RGB32(0, 0, 0)
135.         _PRINTSTRING (570, 200), "Click here"
136.         _PRINTSTRING (570, 220), "to go Back"
137.         COLOR _RGB32(255, 255, 255)
138.         DO
139.             nul%% = _MOUSEINPUT
140.             IF _MOUSEBUTTON(1) THEN
141.                 x% = _MOUSEX: y% = _MOUSEY
142.                 exitflag%% = ClickInteraction(x%, y%)
143.                 DO: LOOP WHILE _MOUSEINPUT
144.             END IF
145.             IF exitflag%% = TRUE THEN MenuID%% = 0 'goto next menu
146.             IF exitflag%% = BACK THEN exitflag%% = FALSE 'no where to go backwards to
147.             IF exitflag%% = QUIT THEN QuitGameFlag%% = TRUE 'quit game
148.         LOOP UNTIL exitflag%%
149.         CLS
150.     END IF
151. END SUB
152.  
153. SUB LoadGameStuff (opt%%)
154.     DIM Size(64) AS LONG, FOffset&(64)
155.  
156.     SCREEN _NEWIMAGE(800, 480, 32)
157.  
158.     OPEN "Tetris.GFX" FOR BINARY AS #1
159.     FOR w% = 1 TO 15
160.         GET #1, , FOffset&(w%)
161.         GET #1, , Size(w%)
162.         FOffset&(w%) = FOffset&(w%) + 1
163.     NEXT
164.     IF INSTR(_OS$, "WIN") THEN f%% = 1 ELSE f%% = 2
165.     'function LoadGFX(Foff&,Size&,id%%)
166.     OPEN "temp.dat" FOR BINARY AS #3
167.     dat$ = SPACE$(Size(f%%))
168.     GET #1, FOffset&(f%%), dat$
169.     PUT #3, , dat$
170.     CLOSE #3
171.     FFX(1) = _LOADFONT("temp.dat", 20, "monospace")
172.     IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
173.     IF FFX(1) THEN _FONT FFX(1), Temp&
174.     _DELAY .125
175.  
176.     Splash& = LoadGFX(FOffset&(3), Size(3))
177.     'Splash& = _LOADIMAGE("Tetris_Splash.bmp", 32)
178.     ' FFX(1) = _LOADFONT("NESFont.otf", 20, "monospace")
179.     ' IF FFX(1) THEN _FONT FFX(1)
180.     ' _DELAY .125
181.     TitleScreen
182.     MenuA = LoadGFX(FOffset&(4), Size(4))
183.     MenuB = LoadGFX(FOffset&(5), Size(5))
184.     MenuC = LoadGFX(FOffset&(6), Size(6))
185.     EndScrnA = LoadGFX(FOffset&(7), Size(7))
186.     EndSprtA = LoadGFX(FOffset&(8), Size(8))
187.     FieldA = LoadGFX(FOffset&(9), Size(9))
188.     FieldB = LoadGFX(FOffset&(10), Size(10))
189.     HighS = LoadGFX(FOffset&(11), Size(11))
190.     Nomes = LoadGFX(FOffset&(12), Size(12))
191.     EndScrnB = LoadGFX(FOffset&(13), Size(13))
192.     EndScrnB2 = LoadGFX(FOffset&(14), Size(14))
193.     Temp& = _NEWIMAGE(512, 480, 32)
194.     Bzone = _NEWIMAGE(160, 320, 32)
195.     IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
196.     CLOSE #1
197.  
198.     IF opt%% = LoadIt THEN 'load sounds option
199.         OPEN "Tetris_Original.SFX" FOR BINARY AS #1
200.         FOR w% = 1 TO 16
201.             GET #1, , foffset&
202.             GET #1, , Size(w%)
203.         NEXT
204.  
205.         FOR w% = 1 TO 5
206.             OPEN "temp.dat" FOR BINARY AS #3
207.             dat$ = SPACE$(Size(w%))
208.             GET #1, , dat$
209.             PUT #3, , dat$
210.             CLOSE #3
211.             BGM(w%) = _SNDOPEN("temp.dat")
212.             IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
213.         NEXT w%
214.         FOR w% = 6 TO 16
215.             OPEN "temp.dat" FOR BINARY AS #3
216.             dat$ = SPACE$(Size(w%))
217.             GET #1, , dat$
218.             PUT #3, , dat$
219.             CLOSE #3
220.             SFX(w% - 6) = _SNDOPEN("temp.dat")
221.             IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
222.         NEXT w%
223.         CLOSE
224.         G.Sound = TRUE
225.     END IF
226.     G.Loaded = TRUE
227.     _PRINTSTRING (155, 290), "Ready to Play", _DISPLAY
228.  
229. END SUB
230.  
231. SUB MenuOne
232.     STATIC FirstRun%%
233.     IF FirstRun%% = FALSE THEN
234.         _PRINTSTRING (570, 130), "Click here"
235.         _PRINTSTRING (570, 150), "to Continue"
236.  
237.         DO
238.             nul%% = _MOUSEINPUT
239.             IF _MOUSEBUTTON(1) THEN
240.                 x% = _MOUSEX: y% = _MOUSEY
241.                 exitflag%% = ClickInteraction(x%, y%)
242.                 DO: LOOP WHILE _MOUSEINPUT
243.             END IF
244.         LOOP UNTIL exitflag%%
245.         CLS
246.         exitflag%% = FALSE
247.         DO: LOOP WHILE _MOUSEINPUT
248.         FirstRun%% = TRUE
249.     END IF
250.  
251.     _PUTIMAGE (5, 5), MenuA, _DISPLAY, (64, 16)-(574, 462)
252.     _PUTIMAGE (30 + G.BGMVol * 1.28, 374), MenuA, _DISPLAY, (32, 0)-(45, 13)
253.     _PUTIMAGE (30 + G.SFXVol * 1.28, 278), MenuA, _DISPLAY, (32, 0)-(45, 13)
254.     IF G.Mode = TypeA THEN
255.         _PUTIMAGE (130, 117), MenuA, _DISPLAY, (0, 0)-(13, 13)
256.         _PUTIMAGE (250, 117), MenuA, _DISPLAY, (16, 0)-(29, 13)
257.     END IF
258.     _PUTIMAGE (212, 277), MenuA, _DISPLAY, (0, 0)-(13, 13)
259.     _PUTIMAGE (360, 277), MenuA, _DISPLAY, (16, 0)-(29, 13)
260.     IF G.Mode = TypeB THEN
261.         _PUTIMAGE (322, 117), MenuA, _DISPLAY, (0, 0)-(13, 13)
262.         _PUTIMAGE (442, 117), MenuA, _DISPLAY, (16, 0)-(29, 13)
263.     END IF
264.     DisplayClickOptions
265.  
266.     IF G.Sound THEN
267.         FOR w% = 1 TO 5
268.             _SNDVOL BGM(G.BGM), G.BGMVol / 100
269.         NEXT w%
270.         FOR w% = 0 TO 12
271.             _SNDVOL SFX(w%), G.SFXVol / 100
272.         NEXT w%
273.         _SNDLOOP BGM(G.BGM)
274.     END IF
275.     old%% = G.BGM
276.  
277.     DO
278.         nul%% = _MOUSEINPUT
279.         IF nul%% THEN
280.             IF _MOUSEBUTTON(1) THEN
281.                 x% = _MOUSEX: y% = _MOUSEY
282.                 IF x% > 120 AND y% > 102 AND x% < 275 AND y% < 146 THEN 'game type A
283.                     G.Mode = TypeA
284.                     LINE (322, 117)-(338, 131), _RGB32(0, 0, 0), BF
285.                     LINE (442, 117)-(458, 131), _RGB32(0, 0, 0), BF
286.                     _PUTIMAGE (130, 117), MenuA, _DISPLAY, (0, 0)-(13, 13)
287.                     _PUTIMAGE (250, 117), MenuA, _DISPLAY, (16, 0)-(29, 13)
288.                 END IF
289.                 IF x% > 312 AND y% > 102 AND x% < 466 AND y% < 146 THEN 'game type B
290.                     G.Mode = TypeB
291.                     LINE (130, 117)-(146, 131), _RGB32(0, 0, 0), BF
292.                     LINE (250, 117)-(266, 131), _RGB32(0, 0, 0), BF
293.                     _PUTIMAGE (322, 117), MenuA, _DISPLAY, (0, 0)-(13, 13)
294.                     _PUTIMAGE (442, 117), MenuA, _DISPLAY, (16, 0)-(29, 13)
295.                 END IF
296.                 IF x% > 210 AND y% > 270 AND x% < 378 AND y% < 296 THEN 'BGM 1
297.                     G.BGM = Song1
298.                     LINE (210, 270)-(226, 400), _RGB32(0, 0, 0), BF
299.                     LINE (360, 270)-(376, 400), _RGB32(0, 0, 0), BF
300.                     _PUTIMAGE (212, 277), MenuA, _DISPLAY, (0, 0)-(13, 13)
301.                     _PUTIMAGE (360, 277), MenuA, _DISPLAY, (16, 0)-(29, 13)
302.                     songchange%% = TRUE
303.                 END IF
304.                 IF x% > 210 AND y% > 302 AND x% < 378 AND y% < 328 THEN 'BGM 2
305.                     G.BGM = Song2
306.                     LINE (210, 270)-(226, 400), _RGB32(0, 0, 0), BF
307.                     LINE (360, 270)-(376, 400), _RGB32(0, 0, 0), BF
308.                     _PUTIMAGE (212, 310), MenuA, _DISPLAY, (0, 0)-(13, 13)
309.                     _PUTIMAGE (360, 310), MenuA, _DISPLAY, (16, 0)-(29, 13)
310.                     songchange%% = TRUE
311.                 END IF
312.                 IF x% > 210 AND y% > 334 AND x% < 378 AND y% < 362 THEN 'BGM 3
313.                     G.BGM = Song3
314.                     LINE (210, 270)-(226, 400), _RGB32(0, 0, 0), BF
315.                     LINE (360, 270)-(376, 400), _RGB32(0, 0, 0), BF
316.                     _PUTIMAGE (212, 340), MenuA, _DISPLAY, (0, 0)-(13, 13)
317.                     _PUTIMAGE (360, 340), MenuA, _DISPLAY, (16, 0)-(29, 13)
318.                     songchange%% = TRUE
319.                 END IF
320.                 IF x% > 210 AND y% > 368 AND x% < 378 AND y% < 394 THEN 'BGM Off
321.                     G.BGM = NoBGM
322.                     LINE (210, 270)-(226, 400), _RGB32(0, 0, 0), BF
323.                     LINE (360, 270)-(376, 400), _RGB32(0, 0, 0), BF
324.                     _PUTIMAGE (212, 374), MenuA, _DISPLAY, (0, 0)-(13, 13)
325.                     _PUTIMAGE (360, 374), MenuA, _DISPLAY, (16, 0)-(29, 13)
326.                     songchange%% = TRUE
327.                 END IF
328.                 IF x% > 36 AND y% > 372 AND x% < 166 AND y% < 392 THEN 'BGM Volume
329.                     G.BGMVol = ((x% - 37) / 128) * 100
330.                     LINE (30, 372)-(172, 388), _RGB32(0, 0, 0), BF
331.                     _PUTIMAGE (30 + G.BGMVol * 1.28, 374), MenuA, _DISPLAY, (32, 0)-(45, 13)
332.                     volchange%% = TRUE
333.                 END IF
334.                 IF x% > 36 AND y% > 276 AND x% < 166 AND y% < 292 THEN 'SFX Volume
335.                     G.SFXVol = ((x% - 37) / 128) * 100
336.                     LINE (30, 276)-(172, 292), _RGB32(0, 0, 0), BF
337.                     _PUTIMAGE (30 + G.SFXVol * 1.28, 278), MenuA, _DISPLAY, (32, 0)-(45, 13)
338.                     FXvolchange%% = TRUE
339.                 END IF
340.  
341.                 exitflag%% = ClickInteraction(x%, y%)
342.             END IF
343.             DO: _DELAY .001: LOOP WHILE _MOUSEINPUT
344.         END IF
345.  
346.         IF G.Sound THEN
347.             IF songchange%% AND G.BGM <> old%% THEN
348.                 _SNDSTOP BGM(old%%)
349.                 _SNDLOOP BGM(G.BGM)
350.                 old%% = G.BGM
351.                 songchange%% = FALSE
352.                 volchange%% = TRUE
353.             ELSE
354.                 songchange%% = FALSE
355.             END IF
356.  
357.             IF volchange%% THEN
358.                 _SNDVOL BGM(G.BGM), (G.BGMVol / 100)
359.                 volchange%% = FALSE
360.             END IF
361.  
362.             IF FXvolchange%% AND (NOT _MOUSEBUTTON(1)) THEN
363.                 _SNDVOL SFX(0), (G.SFXVol / 100)
364.                 _SNDPLAY SFX(0) 'plays a test sound effect
365.                 FXvolchange%% = FALSE
366.             END IF
367.         END IF
368.         _DELAY .01
369.     LOOP UNTIL exitflag%%
370.  
371.     IF exitflag%% <> BACK AND exitflag%% <> QUIT THEN
372.         IF G.Sound THEN
373.             FOR w% = 0 TO 12
374.                 _SNDVOL SFX(w%), G.SFXVol / 100
375.             NEXT w%
376.             FOR w% = 1 TO 5
377.                 _SNDVOL BGM(G.BGM), G.BGMVol / 100
378.             NEXT w%
379.  
380.         END IF
381.         DO: LOOP WHILE _MOUSEINPUT
382.     END IF
383.     IF exitflag%% = TRUE THEN
384.         MenuID%% = 1 'go to next menu
385.         IF G.Sound THEN _SNDPLAY SFX(0)
386.     END IF
387.     IF exitflag%% = BACK THEN
388.         MenuID%% = -1 'go back to title screen
389.         IF G.Sound THEN _SNDPLAY SFX(1)
390.     END IF
391.     IF exitflag%% = QUIT THEN QuitGameFlag%% = TRUE 'quit game
392. END SUB
393.  
394. SUB MenuTwoA
395.     LINE (0, 0)-(512, 480), _RGB32(0, 0, 0), BF
396.     _PUTIMAGE (109, 157), MenuB, _DISPLAY, (0, 0)-(31, 31)
397.     _PUTIMAGE (5, 5), MenuB, _DISPLAY, (64, 16)-(574, 462)
398.     DisplayClickOptions
399.     ShowHighScoreA
400.     DO
401.         nul%% = _MOUSEINPUT
402.         IF nul%% THEN
403.             IF _MOUSEBUTTON(1) THEN
404.                 x% = _MOUSEX: y% = _MOUSEY
405.                 IF x% > 108 AND y% > 155 AND x% < 271 AND y% < 221 THEN 'Start Level
406.                     IF G.Sound THEN _SNDPLAY SFX(6)
407.  
408.                     IF y% > 155 AND y% < 188 THEN ll% = 0: yy% = 155: lvl%% = 0
409.                     IF y% > 188 AND y% < 221 THEN ll% = 5: yy% = 189: lvl%% = 5
410.                     SELECT CASE x%
411.                         CASE 108 TO 139
412.                             ll% = ll% + 0: xx% = 109: lvl%% = lvl%% + 0
413.                         CASE 139 TO 172
414.                             ll% = ll% + 1: xx% = 141: lvl%% = lvl%% + 1
415.                         CASE 172 TO 204
416.                             ll% = ll% + 2: xx% = 173: lvl%% = lvl%% + 2
417.                         CASE 204 TO 236
418.                             ll% = ll% + 3: xx% = 204: lvl%% = lvl%% + 3
419.                         CASE 236 TO 271
420.                             ll% = ll% + 4: xx% = 237: lvl%% = lvl%% + 4
421.                     END SELECT
422.                     _PUTIMAGE (109, 153), MenuB, _DISPLAY, (0, 32)-(63, 101)
423.                     _PUTIMAGE (173, 153), MenuB, _DISPLAY, (0, 102)-(63, 171)
424.                     _PUTIMAGE (237, 153), MenuB, _DISPLAY, (0, 172)-(63, 241)
425.                     _PUTIMAGE (xx%, yy%), MenuB, _DISPLAY, (0, 0)-(31, 31)
426.                     _PUTIMAGE (107, 153), MenuB, _DISPLAY, (166, 164)-(331, 243)
427.  
428.                 END IF
429.                 exitflag%% = ClickInteraction(x%, y%)
430.             END IF
431.             DO: LOOP WHILE _MOUSEINPUT
432.         END IF
433.         _DELAY .01
434.     LOOP UNTIL exitflag%%
435.     G.Level = lvl%%
436.     DO: LOOP WHILE _MOUSEINPUT
437.     IF exitflag%% = TRUE THEN
438.         MenuID%% = 2 'go to next menu
439.         IF G.Sound THEN _SNDPLAY SFX(0)
440.     END IF
441.     IF exitflag%% = BACK THEN
442.         MenuID%% = 0 'go back to title screen
443.         IF G.Sound THEN _SNDPLAY SFX(1)
444.     END IF
445.     IF exitflag%% = QUIT THEN QuitGameFlag%% = TRUE 'quit game
446. END SUB
447.  
448. SUB MenuTwoB
449.     LINE (0, 0)-(512, 480), _RGB32(0, 0, 0), BF
450.     _PUTIMAGE (109, 157), MenuC, _DISPLAY, (0, 0)-(31, 31)
451.     _PUTIMAGE (317, 157), MenuC, _DISPLAY, (0, 0)-(31, 31)
452.     _PUTIMAGE (5, 5), MenuC, _DISPLAY, (64, 16)-(574, 462)
453.     DisplayClickOptions
454.     ShowHighScoreB
455.     DO
456.         nul%% = _MOUSEINPUT
457.         IF nul%% THEN
458.             IF _MOUSEBUTTON(1) THEN
459.                 x% = _MOUSEX: y% = _MOUSEY
460.                 IF x% > 108 AND y% > 155 AND x% < 271 AND y% < 221 THEN 'Start Level
461.                     IF G.Sound THEN _SNDPLAY SFX(6)
462.                     IF y% > 155 AND y% < 188 THEN yy% = 155: lvl%% = 0
463.                     IF y% > 188 AND y% < 221 THEN yy% = 189: lvl%% = 5
464.                     SELECT CASE x%
465.                         CASE 108 TO 139
466.                             xx% = 109: lvl%% = lvl%% + 0
467.                         CASE 139 TO 172
468.                             xx% = 141: lvl%% = lvl%% + 1
469.                         CASE 172 TO 204
470.                             xx% = 173: lvl%% = lvl%% + 2
471.                         CASE 204 TO 236
472.                             xx% = 204: lvl%% = lvl%% + 3
473.                         CASE 236 TO 271
474.                             xx% = 237: lvl%% = lvl%% + 4
475.                     END SELECT
476.                     LINE (107, 153)-(272, 243), _RGB32(0, 0, 0), BF
477.                     _PUTIMAGE (xx%, yy%), MenuC, _DISPLAY, (0, 0)-(31, 31)
478.                     _PUTIMAGE (107, 153), MenuC, _DISPLAY, (166, 164)-(331, 243)
479.                 END IF
480.                 IF x% > 317 AND y% > 155 AND x% < 413 AND y% < 221 THEN 'Start height
481.                     IF G.Sound THEN _SNDPLAY SFX(6)
482.                     IF y% > 155 AND y% < 188 THEN hyy% = 155: hlvl%% = 0
483.                     IF y% > 188 AND y% < 221 THEN hyy% = 189: hlvl%% = 3
484.                     SELECT CASE x%
485.                         CASE 318 TO 348
486.                             hxx% = 317: hlvl%% = hlvl%% + 0
487.                         CASE 349 TO 380
488.                             hxx% = 349: hlvl%% = hlvl%% + 1
489.                         CASE 381 TO 412
490.                             hxx% = 381: hlvl%% = hlvl%% + 2
491.                     END SELECT
492.                     LINE (315, 153)-(415, 243), _RGB32(0, 0, 0), BF
493.                     _PUTIMAGE (hxx%, hyy%), MenuC, _DISPLAY, (0, 0)-(31, 31)
494.                     _PUTIMAGE (315, 153), MenuC, _DISPLAY, (374, 164)-(474, 243)
495.                 END IF
496.                 exitflag%% = ClickInteraction(x%, y%)
497.             END IF
498.             DO: LOOP WHILE _MOUSEINPUT
499.         END IF
500.         _DELAY .01
501.     LOOP UNTIL exitflag%%
502.     G.Level = lvl%%
503.     G.Height = hlvl%%
504.     P.Lines = 25
505.     DO: LOOP WHILE _MOUSEINPUT
506.     IF exitflag%% = TRUE THEN
507.         MenuID%% = 2 'go to next menu
508.         IF G.Sound THEN _SNDPLAY SFX(0)
509.     END IF
510.     IF exitflag%% = BACK THEN
511.         MenuID%% = 0 'go back to title screen
512.         IF G.Sound THEN _SNDPLAY SFX(1)
513.     END IF
514.     IF exitflag%% = QUIT THEN QuitGameFlag%% = TRUE 'quit game
515. END SUB
516.  
517. SUB DisplayNextPiece
518.     'display the next peice in queue
519.     'display peice centered in NEXT window(420)
520.     'first clear next window
521.     LINE (388, 212)-(450, 275), _RGB32(0, 0, 0), BF
522.     IF G.Level < 10 THEN Yshift~%% = 16 * G.Level ELSE Yshift~%% = 16 * 9
523.     SELECT CASE P.NextP
524.         CASE T
525.             _PUTIMAGE (420 - 24, 212 + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
526.             _PUTIMAGE (420 - 8, 212 + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
527.             _PUTIMAGE (420 + 8, 212 + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
528.             _PUTIMAGE (420 - 8, 212 + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
529.         CASE J
530.             _PUTIMAGE (420 - 24, 212 + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
531.             _PUTIMAGE (420 - 8, 212 + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
532.             _PUTIMAGE (420 + 8, 212 + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
533.             _PUTIMAGE (420 + 8, 212 + 32), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
534.         CASE L
535.             _PUTIMAGE (420 - 24, 212 + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
536.             _PUTIMAGE (420 - 8, 212 + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
537.             _PUTIMAGE (420 + 8, 212 + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
538.             _PUTIMAGE (420 - 24, 212 + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
539.         CASE Z
540.             _PUTIMAGE (420 - 24, 212 + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
541.             _PUTIMAGE (420 - 8, 212 + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
542.             _PUTIMAGE (420 - 8, 212 + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
543.             _PUTIMAGE (420 + 8, 212 + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
544.         CASE O
545.             _PUTIMAGE (420 - 16, 212 + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
546.             _PUTIMAGE (420 + 0, 212 + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
547.             _PUTIMAGE (420 - 16, 212 + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
548.             _PUTIMAGE (420 + 0, 212 + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
549.         CASE S
550.             _PUTIMAGE (420 - 8, 212 + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
551.             _PUTIMAGE (420 + 8, 212 + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
552.             _PUTIMAGE (420 - 8, 212 + 32), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
553.             _PUTIMAGE (420 - 24, 212 + 32), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
554.         CASE I
555.             _PUTIMAGE (420 - 32, 212 + 24), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
556.             _PUTIMAGE (420 - 16, 212 + 24), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
557.             _PUTIMAGE (420 + 0, 212 + 24), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
558.             _PUTIMAGE (420 + 16, 212 + 24), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
559.  
560.     END SELECT
561. END SUB
562.  
563. SUB PlaceTetraNome
564.     px% = P.PieceX * 16 + 197 + AdjX%
565.     py% = P.PieceY * 16 + 85 - 16
566.     IF G.Level < 10 THEN Yshift~%% = 16 * G.Level ELSE Yshift~%% = 16 * 9
567.     SELECT CASE P.Piece
568.         CASE T
569.             SELECT CASE P.Orent
570.                 CASE 1 'normal
571.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
572.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
573.                     _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
574.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
575.                 CASE 2 '90 rt
576.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
577.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
578.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
579.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
580.                 CASE 3 '180rt
581.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
582.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
583.                     _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
584.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
585.                 CASE 4 '270rt
586.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
587.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
588.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
589.                     _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
590.             END SELECT
591.         CASE J
592.             SELECT CASE P.Orent
593.                 CASE 1 'normal
594.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
595.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
596.                     _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
597.                     _PUTIMAGE (px% + 8, py% + 32), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
598.                 CASE 2 '90 rt
599.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
600.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
601.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
602.                     _PUTIMAGE (px% - 24, py% + 32), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
603.                 CASE 3 '180 rt
604.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
605.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
606.                     _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
607.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 24, py% + 0), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
608.                 CASE 4 '270 rt
609.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
610.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
611.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
612.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% + 8, py% + 0), Nomes, _DISPLAY, (32, Yshift~%%)-(45, Yshift~%% + 13)
613.             END SELECT
614.         CASE L
615.             SELECT CASE P.Orent
616.                 CASE 1 'normal
617.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
618.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
619.                     _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
620.                     _PUTIMAGE (px% - 24, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
621.                 CASE 2 '90 rt
622.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
623.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
624.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
625.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 24, py% + 0), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
626.                 CASE 3 '180 rt
627.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
628.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
629.                     _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
630.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% + 8, py% + 0), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
631.                 CASE 4 '270 rt
632.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
633.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
634.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
635.                     _PUTIMAGE (px% + 8, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
636.             END SELECT
637.         CASE Z
638.             SELECT CASE P.Orent
639.                 CASE 1, 3 'normal+180
640.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
641.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
642.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
643.                     _PUTIMAGE (px% + 8, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
644.                 CASE 2, 4 '90 rt+270rt
645.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
646.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
647.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
648.                     _PUTIMAGE (px% - 24, py% + 32), Nomes, _DISPLAY, (16, Yshift~%%)-(29, Yshift~%% + 13)
649.             END SELECT
650.         CASE O
651.             SELECT CASE P.Orent
652.                 CASE 1 TO 4 'normal-no rotation change
653.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
654.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
655.                     _PUTIMAGE (px% - 24, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
656.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
657.             END SELECT
658.         CASE S
659.             SELECT CASE P.Orent
660.                 CASE 1, 3 'normal+180rt
661.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
662.                     _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
663.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
664.                     _PUTIMAGE (px% - 24, py% + 32), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
665.                 CASE 2, 4 '90rt+270rt
666.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
667.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
668.                     _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
669.                     _PUTIMAGE (px% + 8, py% + 32), Nomes, _DISPLAY, (31, Yshift~%%)-(45, Yshift~%% + 13)
670.             END SELECT
671.         CASE I
672.             SELECT CASE P.Orent
673.                 CASE 1, 3 'normal+180
674.                     _PUTIMAGE (px% - 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
675.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
676.                     _PUTIMAGE (px% + 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
677.                     _PUTIMAGE (px% + 24, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
678.                 CASE 2, 4 '90rt,270rt
679.                     IF P.PieceY > 0 THEN _PUTIMAGE (px% - 8, py% + 0), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
680.                     _PUTIMAGE (px% - 8, py% + 16), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
681.                     _PUTIMAGE (px% - 8, py% + 32), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
682.                     _PUTIMAGE (px% - 8, py% + 48), Nomes, _DISPLAY, (0, Yshift~%%)-(13, Yshift~%% + 13)
683.             END SELECT
684.     END SELECT
685. END SUB
686.  
687. SUB DropPiece
688.     P.PieceY = P.PieceY + 1 'move Tetranome down
689.     IF ButtonHeld%% THEN P.bonus = P.bonus + 1 'if player is pressing down button then add to bonus
690.     IF CollisionDown THEN LandPiece 'check to see if the peice is landed
691. END SUB
692.  
693. FUNCTION CollisionDown
694.     result%% = FALSE
695.     SELECT CASE P.Piece
696.         CASE T
697.             SELECT CASE P.Orent
698.                 CASE 1
699.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
700.                     IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
701.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
702.                 CASE 2
703.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
704.                     IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
705.                 CASE 3
706.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
707.                     IF Board(P.PieceX, P.PieceY + 1) > TRUE THEN result%% = TRUE
708.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
709.                 CASE 4
710.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
711.                     IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
712.             END SELECT
713.             IF P.PieceY + 1 = 21 THEN result%% = TRUE
714.         CASE J
715.             SELECT CASE P.Orent
716.                 CASE 1
717.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
718.                     IF Board(P.PieceX, P.PieceY + 1) > TRUE THEN result%% = TRUE
719.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
720.                 CASE 2
721.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
722.                     IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
723.                 CASE 3
724.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
725.                     IF Board(P.PieceX, P.PieceY + 1) > TRUE THEN result%% = TRUE
726.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
727.                 CASE 4
728.                     IF Board(P.PieceX - 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
729.                     IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
730.             END SELECT
731.             IF P.PieceY + 1 = 21 THEN result%% = TRUE
732.         CASE L
733.             SELECT CASE P.Orent
734.                 CASE 1
735.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
736.                     IF Board(P.PieceX, P.PieceY + 1) > TRUE THEN result%% = TRUE
737.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
738.                 CASE 2
739.                     IF Board(P.PieceX - 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
740.                     IF Board(P.PieceX - 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
741.                 CASE 3
742.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
743.                     IF Board(P.PieceX, P.PieceY + 1) > TRUE THEN result%% = TRUE
744.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
745.                 CASE 4
746.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
747.                     IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
748.             END SELECT
749.             IF P.PieceY + 1 = 21 THEN result%% = TRUE
750.         CASE Z
751.             SELECT CASE P.Orent
752.                 CASE 1, 3
753.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
754.                     IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
755.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
756.                 CASE 2, 4
757.                     IF Board(P.PieceX + 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
758.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
759.             END SELECT
760.             IF P.PieceY + 1 = 21 THEN result%% = TRUE
761.         CASE S
762.             SELECT CASE P.Orent
763.                 CASE 1, 3
764.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
765.                     IF Board(P.PieceX, P.PieceY + 2) > TRUE THEN result%% = TRUE
766.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
767.                 CASE 2, 4
768.                     IF Board(P.PieceX + 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
769.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
770.             END SELECT
771.             IF P.PieceY + 1 = 21 THEN result%% = TRUE
772.         CASE I
773.             SELECT CASE P.Orent
774.                 CASE 1, 3
775.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
776.                     IF Board(P.PieceX + 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
777.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
778.                     IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
779.                     IF P.PieceY + 1 = 21 THEN result%% = TRUE
780.                 CASE 2, 4
781.                     IF Board(P.PieceX + 0, P.PieceY + 3) > TRUE THEN result%% = TRUE
782.                     IF P.PieceY + 1 = 20 THEN result%% = TRUE
783.             END SELECT
784.         CASE O
785.             SELECT CASE P.Orent
786.                 CASE 1 TO 4
787.                     IF Board(P.PieceX + 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
788.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
789.                     IF P.PieceY + 1 = 21 THEN result%% = TRUE
790.             END SELECT
791.     END SELECT
792.     CollisionDown = result%%
793. END FUNCTION
794.  
795. SUB LandPiece
796.     IF G.Sound THEN _SNDPLAY SFX(5)
797.     SELECT CASE P.Piece
798.         CASE T
799.             Board(P.PieceX + 0, P.PieceY) = 0
800.             SELECT CASE P.Orent
801.                 CASE 1
802.                     Board(P.PieceX - 1, P.PieceY) = 0
803.                     Board(P.PieceX + 1, P.PieceY) = 0
804.                     Board(P.PieceX + 0, P.PieceY + 1) = 0
805.                 CASE 2
806.                     Board(P.PieceX + 0, P.PieceY - 1) = 0
807.                     Board(P.PieceX - 1, P.PieceY) = 0
808.                     Board(P.PieceX + 0, P.PieceY + 1) = 0
809.                 CASE 3
810.                     Board(P.PieceX - 1, P.PieceY) = 0
811.                     Board(P.PieceX + 1, P.PieceY) = 0
812.                     Board(P.PieceX + 0, P.PieceY - 1) = 0
813.                 CASE 4
814.                     Board(P.PieceX + 0, P.PieceY - 1) = 0
815.                     Board(P.PieceX + 1, P.PieceY) = 0
816.                     Board(P.PieceX + 0, P.PieceY + 1) = 0
817.             END SELECT
818.         CASE J
819.             Board(P.PieceX + 0, P.PieceY) = 2
820.             SELECT CASE P.Orent
821.                 CASE 1
822.                     Board(P.PieceX - 1, P.PieceY) = 2
823.                     Board(P.PieceX + 1, P.PieceY) = 2
824.                     Board(P.PieceX + 1, P.PieceY + 1) = 2
825.                 CASE 2
826.                     Board(P.PieceX - 0, P.PieceY - 1) = 2
827.                     Board(P.PieceX + 0, P.PieceY + 1) = 2
828.                     Board(P.PieceX - 1, P.PieceY + 1) = 2
829.                 CASE 3
830.                     Board(P.PieceX - 1, P.PieceY) = 2
831.                     Board(P.PieceX + 1, P.PieceY) = 2
832.                     Board(P.PieceX - 1, P.PieceY - 1) = 2
833.                 CASE 4
834.                     Board(P.PieceX - 0, P.PieceY - 1) = 2
835.                     Board(P.PieceX + 0, P.PieceY + 1) = 2
836.                     Board(P.PieceX + 1, P.PieceY - 1) = 2
837.             END SELECT
838.         CASE L
839.             Board(P.PieceX + 0, P.PieceY) = 1
840.             SELECT CASE P.Orent
841.                 CASE 1
842.                     Board(P.PieceX - 1, P.PieceY) = 1
843.                     Board(P.PieceX + 1, P.PieceY) = 1
844.                     Board(P.PieceX - 1, P.PieceY + 1) = 1
845.                 CASE 2
846.                     Board(P.PieceX - 0, P.PieceY - 1) = 1
847.                     Board(P.PieceX + 0, P.PieceY + 1) = 1
848.                     Board(P.PieceX - 1, P.PieceY - 1) = 1
849.                 CASE 3
850.                     Board(P.PieceX - 1, P.PieceY) = 1
851.                     Board(P.PieceX + 1, P.PieceY) = 1
852.                     Board(P.PieceX + 1, P.PieceY - 1) = 1
853.                 CASE 4
854.                     Board(P.PieceX - 0, P.PieceY - 1) = 1
855.                     Board(P.PieceX + 0, P.PieceY + 1) = 1
856.                     Board(P.PieceX + 1, P.PieceY + 1) = 1
857.             END SELECT
858.         CASE Z
859.             Board(P.PieceX + 0, P.PieceY) = 1
860.             SELECT CASE P.Orent
861.                 CASE 1, 3
862.                     Board(P.PieceX - 1, P.PieceY) = 1
863.                     Board(P.PieceX + 0, P.PieceY + 1) = 1
864.                     Board(P.PieceX + 1, P.PieceY + 1) = 1
865.                 CASE 2, 4
866.                     Board(P.PieceX - 0, P.PieceY - 1) = 1
867.                     Board(P.PieceX - 1, P.PieceY + 0) = 1
868.                     Board(P.PieceX - 1, P.PieceY + 1) = 1
869.             END SELECT
870.         CASE S
871.             Board(P.PieceX + 0, P.PieceY) = 2
872.             SELECT CASE P.Orent
873.                 CASE 1, 3
874.                     Board(P.PieceX + 1, P.PieceY) = 2
875.                     Board(P.PieceX + 0, P.PieceY + 1) = 2
876.                     Board(P.PieceX - 1, P.PieceY + 1) = 2
877.                 CASE 2, 4
878.                     Board(P.PieceX - 0, P.PieceY - 1) = 2
879.                     Board(P.PieceX + 1, P.PieceY + 0) = 2
880.                     Board(P.PieceX + 1, P.PieceY + 1) = 2
881.             END SELECT
882.         CASE I
883.             Board(P.PieceX + 0, P.PieceY) = 0
884.             SELECT CASE P.Orent
885.                 CASE 1, 3
886.                     Board(P.PieceX - 1, P.PieceY) = 0
887.                     Board(P.PieceX + 1, P.PieceY + 0) = 0
888.                     Board(P.PieceX + 2, P.PieceY + 0) = 0
889.                 CASE 2, 4
890.                     Board(P.PieceX - 0, P.PieceY - 1) = 0
891.                     Board(P.PieceX + 0, P.PieceY + 1) = 0
892.                     Board(P.PieceX + 0, P.PieceY + 2) = 0
893.             END SELECT
894.         CASE O
895.             Board(P.PieceX + 0, P.PieceY) = 0
896.             SELECT CASE P.Orent
897.                 CASE 1 TO 4
898.                     Board(P.PieceX - 1, P.PieceY) = 0
899.                     Board(P.PieceX - 0, P.PieceY + 1) = 0
900.                     Board(P.PieceX - 1, P.PieceY + 1) = 0
901.             END SELECT
902.     END SELECT
903.     CheckLines
904.     IF ButtonHeld%% THEN P.Score = P.Score + (P.bonus * (G.Level + 1)): LandedNew%% = TRUE
905.     P.bonus = 0
906.     IF NOT G.GameOverFlag THEN NewPiece
907. END SUB
908.  
909. SUB DrawBoard
910.     IF G.Level < 10 THEN Yshift~%% = 16 * G.Level ELSE Yshift~%% = 16 * 9
911.     FOR y% = 0 TO 19
912.         FOR x% = 0 TO 9
913.             IF Board(x% + 1, y% + 1) <> -1 THEN
914.                 _PUTIMAGE (197 + x% * 16, 85 + y% * 16), Nomes, _DISPLAY, (0 + 16 * Board(x% + 1, y% + 1), Yshift~%%)-(15 + 16 * Board(x% + 1, y% + 1), 15 + Yshift~%%)
915.             ELSE
916.                 LINE (197 + x% * 16, 85 + y% * 16)-(197 + 15 + x% * 16, 85 + 15 + y% * 16), _RGB32(0, 0, 0), BF
917.             END IF
918.         NEXT x%
919.     NEXT y%
920. END SUB
921.  
922. SUB BoardSetup
923.     FOR y% = 0 TO 20
924.         FOR x% = 1 TO 10
925.             Board(x%, y%) = TRUE
926.         NEXT x%
927.     NEXT y%
928. END SUB
929.  
930. SUB dumpboard
931.     OPEN "debugboard.txt" FOR OUTPUT AS #2
932.     LandPiece
933.     FOR y% = 0 TO 21
934.         FOR x% = 0 TO 11
935.             PRINT #2, Board(x%, y%);
936.         NEXT x%
937.         PRINT #2,
938.     NEXT y%
939. END SUB
940.  
941. SUB CheckLines
942.     DIM Lines%(4) 'can fill up to 4 lines at once for a TETRIS
943.     ip%% = 1
944.     'find solid lines
945.     FOR y%% = 1 TO 20
946.         solid%% = TRUE 'assume line is solid at start
947.         FOR x%% = 1 TO 10
948.             IF Board(x%%, y%%) = TRUE THEN solid%% = FALSE 'change to false if hole found
949.         NEXT
950.         IF solid%% THEN Lines%(ip%%) = y%%: ip%% = ip%% + 1
951.     NEXT
952.     ip%% = ip%% - 1
953.     IF ip%% > 0 THEN
954.         IF G.Mode = TypeA THEN P.Lines = P.Lines + ip%%
955.         IF G.Mode = TypeB THEN P.Lines = P.Lines - ip%%
956.         IF P.Lines < 0 THEN P.Lines = 0
957.         'give player points for lines completed
958.         SELECT CASE ip%%
959.             CASE 1
960.                 P.Score = P.Score + (40 * (G.Level + 1))
961.                 IF G.Sound THEN _SNDPLAY SFX(10)
962.             CASE 2
963.                 P.Score = P.Score + (100 * (G.Level + 1))
964.                 IF G.Sound THEN _SNDPLAY SFX(10)
965.             CASE 3
966.                 P.Score = P.Score + (300 * (G.Level + 1))
967.                 IF G.Sound THEN _SNDPLAY SFX(10)
968.             CASE 4
969.                 P.Score = P.Score + (1200 * (G.Level + 1))
970.                 IF G.Sound THEN _SNDPLAY SFX(9)
971.         END SELECT
972.         'remove solid lines
973.         IF Lines%(1) <> 0 THEN
974.             FOR x% = 1 TO 5
975.                 FOR y% = 1 TO ip%%
976.                     Board(6 - x%, Lines%(y%)) = -1
977.                     Board(5 + x%, Lines%(y%)) = -1
978.                 NEXT y%
979.                 DrawBoard
980.                 _DELAY .075
981.             NEXT x%
982.         END IF
983.         'TETRIS bonus
984.         IF ip%% = 4 THEN P.Score = P.Score + (100 * (ip%% * (G.Level + 1)))
985.         'drop any lines down to fill in gaps
986.         FOR w%% = 1 TO ip%%
987.             FOR y%% = Lines%(w%%) TO 1 STEP -1
988.                 FOR x%% = 1 TO 10
989.                     Board(x%%, y%%) = Board(x%%, y%% - 1)
990.                 NEXT x%%
991.             NEXT y%%
992.             FOR x%% = 1 TO 10 'reset top line
993.                 Board(x%%, y%% + 1) = TRUE
994.             NEXT x%%
995.         NEXT w%%
996.         DrawBoard
997.  
998.         IF (P.Lines > 0) AND ((P.Lines MOD 10) = 0) AND G.Mode = TypeA THEN
999.             TIMER(TI(G.Level)) OFF
1000.             IF G.Level < 10 THEN G.Level = G.Level + 1
1001.             TIMER(TI(G.Level)) ON
1002.         END IF
1003.  
1004.     END IF
1005.     IF G.Mode = TypeB AND P.Lines = 0 THEN GameOver
1006. END SUB
1007.  
1008. FUNCTION CollisionLeft
1009.     result%% = FALSE
1010.     SELECT CASE P.Piece
1011.         CASE T
1012.             SELECT CASE P.Orent
1013.                 CASE 1
1014.                     IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1015.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1016.                 CASE 2
1017.                     IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1018.                     IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1019.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1020.                 CASE 3
1021.                     IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1022.                     IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1023.                 CASE 4
1024.                     IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1025.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1026.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1027.             END SELECT
1028.         CASE J
1029.             SELECT CASE P.Orent
1030.                 CASE 1
1031.                     IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1032.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1033.                 CASE 2
1034.                     IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1035.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1036.                     IF Board(P.PieceX - 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1037.                 CASE 3
1038.                     IF Board(P.PieceX - 2, P.PieceY - 0) > TRUE THEN result%% = TRUE
1039.                     IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1040.                 CASE 4
1041.                     IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1042.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1043.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1044.             END SELECT
1045.         CASE L
1046.             SELECT CASE P.Orent
1047.                 CASE 1
1048.                     IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1049.                     IF Board(P.PieceX - 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1050.                 CASE 2
1051.                     IF Board(P.PieceX - 2, P.PieceY - 0) > TRUE THEN result%% = TRUE
1052.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1053.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1054.                 CASE 3
1055.                     IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1056.                     IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1057.                 CASE 4
1058.                     IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1059.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1060.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1061.             END SELECT
1062.         CASE Z
1063.             SELECT CASE P.Orent
1064.                 CASE 1, 3
1065.                     IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1066.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1067.                 CASE 2, 4
1068.                     IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1069.                     IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1070.                     IF Board(P.PieceX - 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1071.             END SELECT
1072.         CASE S
1073.             SELECT CASE P.Orent
1074.                 CASE 1, 3
1075.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1076.                     IF Board(P.PieceX - 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1077.                 CASE 2, 4
1078.                     IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1079.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1080.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1081.             END SELECT
1082.         CASE I
1083.             SELECT CASE P.Orent
1084.                 CASE 1, 3
1085.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1086.                 CASE 2, 4
1087.                     IF Board(P.PieceX - 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1088.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1089.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1090.                     IF Board(P.PieceX - 1, P.PieceY + 3) > TRUE THEN result%% = TRUE
1091.             END SELECT
1092.         CASE O
1093.             SELECT CASE P.Orent
1094.                 CASE 1 TO 4
1095.                     IF Board(P.PieceX - 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1096.                     IF Board(P.PieceX - 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1097.             END SELECT
1098.     END SELECT
1099.     CollisionLeft = result%%
1100. END FUNCTION
1101.  
1102. FUNCTION CollisionRight
1103.     result%% = FALSE
1104.     SELECT CASE P.Piece
1105.         CASE T
1106.             SELECT CASE P.Orent
1107.                 CASE 1
1108.                     IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1109.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1110.                 CASE 2
1111.                     IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1112.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1113.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1114.                 CASE 3
1115.                     IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1116.                     IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1117.                 CASE 4
1118.                     IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1119.                     IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1120.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1121.             END SELECT
1122.         CASE J
1123.             SELECT CASE P.Orent
1124.                 CASE 1
1125.                     IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1126.                     IF Board(P.PieceX + 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1127.                 CASE 2
1128.                     IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1129.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1130.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1131.                 CASE 3
1132.                     IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1133.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1134.                 CASE 4
1135.                     IF Board(P.PieceX + 2, P.PieceY - 0) > TRUE THEN result%% = TRUE
1136.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1137.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1138.             END SELECT
1139.         CASE L
1140.             SELECT CASE P.Orent
1141.                 CASE 1
1142.                     IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1143.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1144.                 CASE 2
1145.                     IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1146.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1147.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1148.                 CASE 3
1149.                     IF Board(P.PieceX + 2, P.PieceY - 0) > TRUE THEN result%% = TRUE
1150.                     IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1151.                 CASE 4
1152.                     IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1153.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1154.                     IF Board(P.PieceX + 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1155.             END SELECT
1156.         CASE Z
1157.             SELECT CASE P.Orent
1158.                 CASE 1, 3
1159.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1160.                     IF Board(P.PieceX + 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1161.                 CASE 2, 4
1162.                     IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1163.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1164.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1165.             END SELECT
1166.         CASE S
1167.             SELECT CASE P.Orent
1168.                 CASE 1, 3
1169.                     IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1170.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1171.                 CASE 2, 4
1172.                     IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1173.                     IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1174.                     IF Board(P.PieceX + 2, P.PieceY + 2) > TRUE THEN result%% = TRUE
1175.             END SELECT
1176.         CASE I
1177.             SELECT CASE P.Orent
1178.                 CASE 1, 3
1179.                     IF Board(P.PieceX + 3, P.PieceY) > TRUE THEN result%% = TRUE
1180.                 CASE 2, 4
1181.                     IF Board(P.PieceX + 1, P.PieceY - 0) > TRUE THEN result%% = TRUE
1182.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1183.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1184.                     IF Board(P.PieceX + 1, P.PieceY + 3) > TRUE THEN result%% = TRUE
1185.             END SELECT
1186.         CASE O
1187.             SELECT CASE P.Orent
1188.                 CASE 1 TO 4
1189.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1190.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1191.             END SELECT
1192.     END SELECT
1193.     CollisionRight = result%%
1194. END FUNCTION
1195.  
1196. SUB StatusUpdate
1197.     DIM v$(11) 'value strings
1198.     v$(0) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Lines)))) + LTRIM$(STR$(P.Lines))
1199.     IF G.Mode = TypeA THEN v$(1) = LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1)))) + LTRIM$(STR$(G.HScore1))
1200.     IF G.Mode = TypeB THEN v$(1) = LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1B)))) + LTRIM$(STR$(G.HScore1B))
1201.     v$(2) = LEFT$("000000", 6 - LEN(LTRIM$(STR$(P.Score)))) + LTRIM$(STR$(P.Score))
1202.     v$(3) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Tcount)))) + LTRIM$(STR$(P.Tcount))
1203.     v$(4) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Jcount)))) + LTRIM$(STR$(P.Jcount))
1204.     v$(5) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Zcount)))) + LTRIM$(STR$(P.Zcount))
1205.     v$(6) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Ocount)))) + LTRIM$(STR$(P.Ocount))
1206.     v$(7) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Scount)))) + LTRIM$(STR$(P.Scount))
1207.     v$(8) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Lcount)))) + LTRIM$(STR$(P.Lcount))
1208.     v$(9) = LEFT$("000", 3 - LEN(LTRIM$(STR$(P.Icount)))) + LTRIM$(STR$(P.Icount))
1209.     v$(10) = LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Level)))) + LTRIM$(STR$(G.Level))
1210.     v$(11) = LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Height)))) + LTRIM$(STR$(G.Height))
1211.     FOR u% = 0 TO 6
1212.         COLOR _RGB32(240, 58, 0)
1213.         _PRINTSTRING (102, 175 + u% * 32), v$(3 + u%), _DISPLAY
1214.         COLOR _RGB32(255, 255, 255)
1215.     NEXT u%
1216.     _PRINTSTRING (308, 34), v$(0), _DISPLAY
1217.     _PRINTSTRING (388, 70), v$(1), _DISPLAY
1218.     _PRINTSTRING (388, 120), v$(2), _DISPLAY
1219.     _PRINTSTRING (428 - (LEN(v$(10)) * _FONTWIDTH(FFX(1))) / 2, 324), v$(10), _DISPLAY
1220.     IF G.Mode = TypeB THEN _PRINTSTRING (440 - (LEN(v$(11)) * _FONTWIDTH(FFX(1))) / 2, 390), v$(11), _DISPLAY
1221. END SUB
1222.  
1223. SUB NewPiece
1224.     IF Board(5, 1) <> TRUE THEN GameOver
1225.     IF NOT G.GameOverFlag THEN
1226.         P.PieceY = 0
1227.         P.PieceX = 5
1228.         P.Orent = 1
1229.         P.Piece = P.NextP
1230.         P.NextP = INT(RND * 7) + 1
1231.         SELECT CASE P.Piece
1232.             CASE T
1233.                 P.Tcount = P.Tcount + 1
1234.             CASE J
1235.                 P.Jcount = P.Jcount + 1
1236.             CASE L
1237.                 P.Lcount = P.Lcount + 1
1238.             CASE Z
1239.                 P.Zcount = P.Zcount + 1
1240.             CASE S
1241.                 P.Scount = P.Scount + 1
1242.             CASE O
1243.                 P.Ocount = P.Ocount + 1
1244.             CASE I
1245.                 P.Icount = P.Icount + 1
1246.         END SELECT
1247.         StatusUpdate
1248.         DisplayNextPiece
1249.     END IF
1250. END SUB
1251.  
1252. FUNCTION CollisionRotate
1253.     result%% = FALSE
1254.     SELECT CASE P.Piece
1255.         CASE T
1256.             SELECT CASE P.Orent
1257.                 CASE 1
1258.                     IF Board(P.PieceX + 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1259.                 CASE 2
1260.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1261.                 CASE 3
1262.                     IF Board(P.PieceX + 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
1263.                 CASE 4
1264.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1265.             END SELECT
1266.         CASE J
1267.             SELECT CASE P.Orent
1268.                 CASE 1
1269.                     IF Board(P.PieceX + 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1270.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1271.                     IF Board(P.PieceX - 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
1272.                 CASE 2
1273.                     IF Board(P.PieceX - 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1274.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1275.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1276.                 CASE 3
1277.                     IF Board(P.PieceX - 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1278.                     IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1279.                     IF Board(P.PieceX - 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
1280.                 CASE 4
1281.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1282.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1283.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1284.             END SELECT
1285.         CASE L
1286.             SELECT CASE P.Orent
1287.                 CASE 1
1288.                     IF Board(P.PieceX + 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1289.                     IF Board(P.PieceX - 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1290.                     IF Board(P.PieceX - 0, P.PieceY + 1) > TRUE THEN result%% = TRUE
1291.                 CASE 2
1292.                     IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1293.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1294.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1295.                 CASE 3
1296.                     IF Board(P.PieceX - 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1297.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1298.                     IF Board(P.PieceX - 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
1299.                 CASE 4
1300.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1301.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1302.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1303.             END SELECT
1304.         CASE Z
1305.             SELECT CASE P.Orent
1306.                 CASE 1, 3
1307.                     IF Board(P.PieceX - 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
1308.                     IF Board(P.PieceX + 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1309.                 CASE 2, 4
1310.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1311.                     IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1312.             END SELECT
1313.         CASE S
1314.             SELECT CASE P.Orent
1315.                 CASE 1, 3
1316.                     IF Board(P.PieceX - 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1317.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1318.                 CASE 2, 4
1319.                     IF Board(P.PieceX + 1, P.PieceY + 0) > TRUE THEN result%% = TRUE
1320.                     IF Board(P.PieceX - 1, P.PieceY + 2) > TRUE THEN result%% = TRUE
1321.             END SELECT
1322.         CASE O
1323.         CASE I
1324.             SELECT CASE P.Orent
1325.                 CASE 1, 3
1326.                     IF Board(P.PieceX - 0, P.PieceY + 0) > TRUE THEN result%% = TRUE
1327.                     IF Board(P.PieceX + 0, P.PieceY + 2) > TRUE THEN result%% = TRUE
1328.                     IF Board(P.PieceX + 0, P.PieceY + 3) > TRUE THEN result%% = TRUE
1329.                 CASE 2, 4
1330.                     IF Board(P.PieceX - 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1331.                     IF Board(P.PieceX + 1, P.PieceY + 1) > TRUE THEN result%% = TRUE
1332.                     IF P.PieceX + 2 < 12 THEN IF Board(P.PieceX + 2, P.PieceY + 1) > TRUE THEN result%% = TRUE
1333.             END SELECT
1334.  
1335.     END SELECT
1336.     CollisionRotate = result%%
1337. END FUNCTION
1338.  
1339. SUB GameOver
1340.     MenuID%% = -1 'return to title screen
1341.     G.GameOverFlag = TRUE
1342.     IF ButtonHeld%% THEN TIMER(TI(10)) OFF ELSE TIMER(TI(G.Level)) OFF
1343.     _SNDSTOP BGM(G.BGM)
1344.     _SNDPLAY SFX(3)
1345.     _DELAY .25
1346.     IF G.Mode = TypeA THEN
1347.         IF G.Sound THEN _SNDPLAY SFX(7)
1348.         FOR y% = 1 TO 20
1349.             FOR x% = 1 TO 10
1350.                 Board(x%, y%) = 3
1351.             NEXT x%
1352.             DrawBoard
1353.             _DELAY .2
1354.         NEXT y%
1355.         IF P.Score > 30000 THEN EndScreen
1356.         IF P.Score > G.HScore3 THEN HighScoreScreen
1357.     END IF
1358.  
1359.     IF G.Mode = TypeB AND P.Lines = 0 THEN
1360.         IF G.Sound THEN _SNDPLAY SFX(8)
1361.         FOR w%% = 1 TO 4
1362.             _PUTIMAGE (276 - 16 * w%%, 206), FieldB, _DISPLAY, (15, 0)-(31, 15)
1363.             _PUTIMAGE (276 - 16 * w%%, 252)-(291 - 16 * w%%, 237), FieldB, _DISPLAY, (15, 0)-(31, 15)
1364.             _PUTIMAGE (260 + 16 * w%%, 206), FieldB, _DISPLAY, (15, 0)-(31, 15)
1365.             _PUTIMAGE (260 + 16 * w%%, 252)-(276 + 16 * w%%, 237), FieldB, _DISPLAY, (15, 0)-(31, 15)
1366.             _DELAY .0375
1367.         NEXT w%%
1368.         _PUTIMAGE (196, 206), FieldB, _DISPLAY, (0, 0)-(15, 15)
1369.         _PUTIMAGE (196, 222), FieldB, _DISPLAY, (0, 16)-(15, 31)
1370.         _PUTIMAGE (196, 252)-(211, 237), FieldB, _DISPLAY, (0, 0)-(15, 15)
1371.         _PUTIMAGE (341, 206), FieldB, _DISPLAY, (32, 0)-(47, 15)
1372.         _PUTIMAGE (356, 222)-(341, 237), FieldB, _DISPLAY, (0, 16)-(15, 31)
1373.         _PUTIMAGE (341, 252)-(356, 237), FieldB, _DISPLAY, (32, 0)-(47, 15)
1374.         _PRINTSTRING (214, 220), "SUCCESS!", _DISPLAY
1375.         _DELAY 1.75
1376.         EndScreenB
1377.         IF P.Score > G.HScore3B THEN HighScoreScreen
1378.     ELSE
1379.         IF G.Sound THEN _SNDPLAY SFX(7)
1380.         FOR y% = 1 TO 20
1381.             FOR x% = 1 TO 10
1382.                 Board(x%, y%) = 3
1383.             NEXT x%
1384.             DrawBoard
1385.             _DELAY .2
1386.         NEXT y%
1387.         ' iF P.Score > G.HScore3B THEN HighScoreScreen
1388.     END IF
1389.     _DELAY 2.5
1390. END SUB
1391.  
1392. FUNCTION ClickInteraction (x%, y%)
1393.     IF x% > 570 AND y% > 130 AND x% < 710 AND y% < 175 THEN 'next
1394.         result%% = TRUE
1395.     END IF
1396.     IF x% > 570 AND y% > 200 AND x% < 710 AND y% < 245 THEN 'go back
1397.         result%% = BACK
1398.     END IF
1399.     IF x% > 570 AND y% > 400 AND x% < 710 AND y% < 445 THEN 'quit
1400.         result%% = QUIT
1401.     END IF
1402.  
1403.     ClickInteraction = result%%
1404. END FUNCTION
1405.  
1406. SUB EndScreen
1407.     _SNDLOOP BGM(4)
1408.     COLOR _RGB32(250, 250, 250), _RGB32(0, 89, 251)
1409.     LINE (0, 0)-(512, 480), _RGB32(0, 0, 0), BF
1410.     _PUTIMAGE (5, 5), EndScrnA, _DISPLAY, (64, 16)-(574, 462)
1411.     v$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(P.Score)))) + LTRIM$(STR$(P.Score))
1412.     _PRINTSTRING (225, 50), v$, _DISPLAY
1413.     SELECT CASE P.Score
1414.         CASE 30000 TO 49999
1415.             _PUTIMAGE (168, 373), EndSprtA, _DISPLAY, (98, 0)-(113, 15)
1416.             _DELAY 2.75
1417.             FOR w% = 0 TO 72
1418.                 y% = y% + (16 * (w% / 100))
1419.                 _PUTIMAGE (168, 373 - y%), EndSprtA, _DISPLAY, (98, 0)-(113, 15)
1420.                 SELECT CASE INT(RND * 3) + 1
1421.                     CASE 1
1422.                         _PUTIMAGE (167, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1423.                     CASE 2
1424.                         _PUTIMAGE (167, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1425.                     CASE 3
1426.                         _PUTIMAGE (167, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1427.                 END SELECT
1428.                 _DELAY .05
1429.                 _PUTIMAGE (168, 388 - y%), EndScrnA, _DISPLAY, (168 + 59, 373 + 10 - y%)-(184 + 59, 388 + 10 - y%)
1430.                 _PUTIMAGE (168, 388 - y%), EndScrnA, _DISPLAY, (168 + 59, 389 + 10 - y%)-(184 + 59, 405 + 10 - y%)
1431.             NEXT w%
1432.         CASE 50000 TO 74999
1433.             _PUTIMAGE (168, 357), EndSprtA, _DISPLAY, (82, 0)-(97, 31)
1434.             _DELAY 2.75
1435.             FOR w% = 0 TO 72
1436.                 y% = y% + (16 * (w% / 100))
1437.                 _PUTIMAGE (168, 357 - y%), EndSprtA, _DISPLAY, (82, 0)-(97, 31)
1438.                 SELECT CASE INT(RND * 3) + 1
1439.                     CASE 1
1440.                         _PUTIMAGE (168, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1441.                     CASE 2
1442.                         _PUTIMAGE (168, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1443.                     CASE 3
1444.                         _PUTIMAGE (168, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1445.                 END SELECT
1446.                 _DELAY .05
1447.                 _PUTIMAGE (168, 356 - y%), EndScrnA, _DISPLAY, (168 + 59, 357 + 10 - y%)-(184 + 59, 389 + 10 - y%)
1448.                 _PUTIMAGE (168, 388 - y%), EndScrnA, _DISPLAY, (168 + 59, 389 + 10 - y%)-(184 + 59, 405 + 10 - y%)
1449.             NEXT w%
1450.         CASE 75000 TO 99999
1451.             _PUTIMAGE (160, 325), EndSprtA, _DISPLAY, (50, 0)-(79, 63)
1452.             _DELAY 2.75
1453.             FOR w% = 0 TO 72
1454.                 y% = y% + (16 * (w% / 100))
1455.                 _PUTIMAGE (160, 325 - y%), EndSprtA, _DISPLAY, (50, 0)-(79, 63)
1456.                 SELECT CASE INT(RND * 3) + 1
1457.                     CASE 1
1458.                         _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1459.                         _PUTIMAGE (172, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1460.                     CASE 2
1461.                         _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1462.                         _PUTIMAGE (172, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1463.                     CASE 3
1464.                         _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1465.                         _PUTIMAGE (172, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1466.                 END SELECT
1467.                 _DELAY .05
1468.                 _PUTIMAGE (160, 325 - y%), EndScrnA, _DISPLAY, (160 + 59, 325 + 10 - y%)-(192 + 59, 389 + 10 - y%)
1469.                 _PUTIMAGE (160, 388 - y%), EndScrnA, _DISPLAY, (160 + 59, 389 + 10 - y%)-(192 + 59, 405 + 10 - y%)
1470.             NEXT w%
1471.         CASE 100000 TO 149999
1472.             _PUTIMAGE (160, 278), EndSprtA, _DISPLAY, (0, 0)-(49, 112)
1473.             _DELAY 2.75
1474.             FOR w% = 0 TO 72
1475.                 y% = y% + (16 * (w% / 100))
1476.                 _PUTIMAGE (160, 278 - y%), EndSprtA, _DISPLAY, (0, 0)-(49, 112)
1477.                 SELECT CASE INT(RND * 3) + 1
1478.                     CASE 1
1479.                         _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1480.                         _PUTIMAGE (177, 389 - y%), EndSprtA, _DISPLAY, (0, 114)-(15, 129)
1481.                         _PUTIMAGE (192, 389 - y%), EndSprtA, _DISPLAY, (98, 16)-(113, 31)
1482.                     CASE 2
1483.                         _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1484.                         _PUTIMAGE (176, 389 - y%), EndSprtA, _DISPLAY, (16, 114)-(33, 129)
1485.                         _PUTIMAGE (192, 389 - y%), EndSprtA, _DISPLAY, (98, 32)-(113, 47)
1486.                     CASE 3
1487.                         _PUTIMAGE (162, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1488.                         _PUTIMAGE (168, 389 - y%), EndSprtA, _DISPLAY, (0, 130)-(31, 161)
1489.                         _PUTIMAGE (192, 389 - y%), EndSprtA, _DISPLAY, (98, 48)-(113, 63)
1490.                 END SELECT
1491.                 _DELAY .05
1492.                 _PUTIMAGE (160, 278 - y%), EndScrnA, _DISPLAY, (160 + 59, 279 + 10 - y%)-(212 + 59, 389 + 10 - y%)
1493.                 _PUTIMAGE (160, 388 - y%), EndScrnA, _DISPLAY, (160 + 59, 389 + 10 - y%)-(212 + 59, 421 + 10 - y%)
1494.             NEXT w%
1495.         CASE IS > 150000
1496.     END SELECT
1497.     COLOR _RGB(255, 255, 255), _RGB32(0, 0, 0)
1498.     DO: LOOP UNTIL INKEY$ = CHR$(13)
1499. END SUB
1500.  
1501. SUB HighScoreScreen
1502.     _KEYCLEAR
1503.     DIM names(6) AS STRING * 1
1504.     _PUTIMAGE (5, 5), HighS, _DISPLAY, (64, 16)-(574, 462)
1505.     IF G.Mode = TypeA THEN
1506.         ShowHighScoreA
1507.         IF P.Score > G.HScore1 THEN
1508.             G.HScore1 = P.Score: G.Hlevel1 = G.Level
1509.             _PRINTSTRING (264, 306), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1)))) + LTRIM$(STR$(G.HScore1))
1510.             _PRINTSTRING (376, 306), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel1)))) + LTRIM$(STR$(G.Hlevel1))
1511.             lv%% = 1: ltr%% = 65: G.HName1 = "      "
1512.             names(1) = "A"
1513.             FOR w%% = 2 TO 6
1514.                 names(w%%) = " "
1515.             NEXT w%%
1516.             DO
1517.                 kbd& = _KEYHIT
1518.                 SELECT CASE kbd&
1519.                     CASE 19200 'left
1520.                         IF lv%% > 1 THEN lv%% = lv%% - 1
1521.                         ltr%% = ASC(names(lv%%))
1522.                     CASE 19712 'right
1523.                         IF lv%% < 6 THEN lv%% = lv%% + 1
1524.                         ltr%% = ASC(names(lv%%))
1525.                     CASE 18432 'up
1526.                         ltr%% = ltr%% + 1
1527.                         IF ltr%% = 91 THEN ltr%% = 64
1528.                     CASE 20480 'down
1529.                         ltr%% = ltr%% - 1
1530.                         IF ltr%% = 63 THEN ltr%% = 90
1531.                     CASE 13, 27
1532.                         exitflag%% = TRUE
1533.                 END SELECT
1534.                 IF ltr%% = 64 THEN ltr%% = 32
1535.                 names(lv%%) = CHR$(ltr%%)
1536.                 IF ltr%% = 32 THEN ltr%% = 64
1537.                 G.HName1 = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1538.                 _PRINTSTRING (150, 306), G.HName1
1539.                 LINE (150 + ((lv%% - 1) * 16), 326)-(166 + ((lv%% - 1) * 16), 328), _RGB32(212, 64, 48), BF
1540.                 _DELAY .02
1541.                 LINE (150, 326)-(256, 328), _RGB32(0, 0, 0), BF
1542.             LOOP UNTIL exitflag%%
1543.         ELSEIF P.Score > G.HScore2 THEN
1544.             G.HScore2 = P.Score: G.Hlevel2 = G.Level
1545.             _PRINTSTRING (264, 338), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore2)))) + LTRIM$(STR$(G.HScore2))
1546.             _PRINTSTRING (376, 338), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel2)))) + LTRIM$(STR$(G.Hlevel2))
1547.             lv%% = 1: ltr%% = 65: G.HName2 = "      "
1548.             FOR w%% = 1 TO 6
1549.                 names(w%%) = " "
1550.             NEXT w%%
1551.             DO
1552.                 kbd& = _KEYHIT
1553.                 SELECT CASE kbd&
1554.                     CASE 19200 'left
1555.                         IF lv%% > 1 THEN lv%% = lv%% - 1
1556.                         ltr%% = ASC(names(lv%%))
1557.                     CASE 19712 'right
1558.                         IF lv%% < 6 THEN lv%% = lv%% + 1
1559.                         ltr%% = ASC(names(lv%%))
1560.                     CASE 18432 'up
1561.                         ltr%% = ltr%% + 1
1562.                         IF ltr%% = 91 THEN ltr%% = 64
1563.                     CASE 20480 'down
1564.                         ltr%% = ltr%% - 1
1565.                         IF ltr%% = 63 THEN ltr%% = 90
1566.                     CASE 13, 27
1567.                         exitflag%% = TRUE
1568.                 END SELECT
1569.                 IF ltr%% = 64 THEN ltr%% = 32
1570.                 names(lv%%) = CHR$(ltr%%)
1571.                 IF ltr%% = 32 THEN ltr%% = 64
1572.                 G.HName2 = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1573.                 _PRINTSTRING (150, 338), G.HName2
1574.                 LINE (150 + ((lv%% - 1) * 16), 358)-(166 + ((lv%% - 1) * 16), 360), _RGB32(212, 64, 48), BF
1575.                 _DELAY .02
1576.                 LINE (150, 358)-(256, 360), _RGB32(0, 0, 0), BF
1577.             LOOP UNTIL exitflag%%
1578.         ELSEIF P.Score > G.HScore3 THEN
1579.             G.HScore3 = P.Score: G.Hlevel3 = G.Level
1580.             _PRINTSTRING (264, 370), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore3)))) + LTRIM$(STR$(G.HScore3))
1581.             _PRINTSTRING (376, 370), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel3)))) + LTRIM$(STR$(G.Hlevel3))
1582.             lv%% = 1: ltr%% = 65: G.HName3 = "      "
1583.             FOR w%% = 1 TO 6
1584.                 names(w%%) = " "
1585.             NEXT w%%
1586.             DO
1587.                 kbd& = _KEYHIT
1588.                 SELECT CASE kbd&
1589.                     CASE 19200 'left
1590.                         IF lv%% > 1 THEN lv%% = lv%% - 1
1591.                         ltr%% = ASC(names(lv%%))
1592.                     CASE 19712 'right
1593.                         IF lv%% < 6 THEN lv%% = lv%% + 1
1594.                         ltr%% = ASC(names(lv%%))
1595.                     CASE 18432 'up
1596.                         ltr%% = ltr%% + 1
1597.                         IF ltr%% = 91 THEN ltr%% = 64
1598.                     CASE 20480 'down
1599.                         ltr%% = ltr%% - 1
1600.                         IF ltr%% = 63 THEN ltr%% = 90
1601.                     CASE 13, 27
1602.                         exitflag%% = TRUE
1603.                 END SELECT
1604.                 IF ltr%% = 64 THEN ltr%% = 32
1605.                 names(lv%%) = CHR$(ltr%%)
1606.                 IF ltr%% = 32 THEN ltr%% = 64
1607.                 G.HName3 = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1608.                 _PRINTSTRING (150, 370), G.HName3
1609.                 LINE (150 + ((lv%% - 1) * 16), 390)-(166 + ((lv%% - 1) * 16), 392), _RGB32(212, 64, 48), BF
1610.                 _DELAY .02
1611.                 LINE (150, 390)-(256, 392), _RGB32(0, 0, 0), BF
1612.             LOOP UNTIL exitflag%%
1613.         END IF
1614.         _KEYCLEAR
1615.  
1616.     ELSE
1617.         ShowHighScoreB
1618.         IF P.Score > G.HScore1B THEN
1619.             G.HScore1B = P.Score: G.Hlevel1B = G.Level
1620.             _PRINTSTRING (264, 306), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1B)))) + LTRIM$(STR$(G.HScore1B))
1621.             _PRINTSTRING (376, 306), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel1B)))) + LTRIM$(STR$(G.Hlevel1B))
1622.             lv%% = 1: ltr%% = 65: G.HName1B = "      "
1623.             FOR w%% = 1 TO 6
1624.                 names(w%%) = " "
1625.             NEXT w%%
1626.             DO
1627.                 kbd& = _KEYHIT
1628.                 SELECT CASE kbd&
1629.                     CASE 19200 'left
1630.                         IF lv%% > 1 THEN lv%% = lv%% - 1
1631.                         ltr%% = ASC(names(lv%%))
1632.                     CASE 19712 'right
1633.                         IF lv%% < 6 THEN lv%% = lv%% + 1
1634.                         ltr%% = ASC(names(lv%%))
1635.                     CASE 18432 'up
1636.                         ltr%% = ltr%% + 1
1637.                         IF ltr%% = 91 THEN ltr%% = 64
1638.                     CASE 20480 'down
1639.                         ltr%% = ltr%% - 1
1640.                         IF ltr%% = 63 THEN ltr%% = 90
1641.                     CASE 13, 27
1642.                         exitflag%% = TRUE
1643.                 END SELECT
1644.                 IF ltr%% = 64 THEN ltr%% = 32
1645.                 names(lv%%) = CHR$(ltr%%)
1646.                 IF ltr%% = 32 THEN ltr%% = 64
1647.                 G.HName1B = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1648.                 _PRINTSTRING (150, 306), G.HName1B
1649.                 LINE (150 + ((lv%% - 1) * 16), 326)-(166 + ((lv%% - 1) * 16), 328), _RGB32(212, 64, 48), BF
1650.                 _DELAY .02
1651.                 LINE (150, 326)-(256, 328), _RGB32(0, 0, 0), BF
1652.             LOOP UNTIL exitflag%%
1653.         ELSEIF P.Score > G.HScore2B THEN
1654.             G.HScore2B = P.Score: G.Hlevel2B = G.Level
1655.             _PRINTSTRING (264, 338), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore2B)))) + LTRIM$(STR$(G.HScore2B))
1656.             _PRINTSTRING (376, 338), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel2B)))) + LTRIM$(STR$(G.Hlevel2B))
1657.             lv%% = 1: ltr%% = 65: G.HName2B = "      "
1658.             FOR w%% = 1 TO 6
1659.                 names(w%%) = " "
1660.             NEXT w%%
1661.             DO
1662.                 kbd& = _KEYHIT
1663.                 SELECT CASE kbd&
1664.                     CASE 19200 'left
1665.                         IF lv%% > 1 THEN lv%% = lv%% - 1
1666.                         ltr%% = ASC(names(lv%%))
1667.                     CASE 19712 'right
1668.                         IF lv%% < 6 THEN lv%% = lv%% + 1
1669.                         ltr%% = ASC(names(lv%%))
1670.                     CASE 18432 'up
1671.                         ltr%% = ltr%% + 1
1672.                         IF ltr%% = 91 THEN ltr%% = 64
1673.                     CASE 20480 'down
1674.                         ltr%% = ltr%% - 1
1675.                         IF ltr%% = 63 THEN ltr%% = 90
1676.                     CASE 13, 27
1677.                         exitflag%% = TRUE
1678.                 END SELECT
1679.                 IF ltr%% = 64 THEN ltr%% = 32
1680.                 names(lv%%) = CHR$(ltr%%)
1681.                 IF ltr%% = 32 THEN ltr%% = 64
1682.                 G.HName2B = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1683.                 _PRINTSTRING (150, 338), G.HName2B
1684.                 LINE (150 + ((lv%% - 1) * 16), 358)-(166 + ((lv%% - 1) * 16), 360), _RGB32(212, 64, 48), BF
1685.                 _DELAY .02
1686.                 LINE (150, 358)-(256, 360), _RGB32(0, 0, 0), BF
1687.             LOOP UNTIL exitflag%%
1688.         ELSEIF P.Score > G.HScore3B THEN
1689.             G.HScore3B = P.Score: G.Hlevel3B = G.Level
1690.             _PRINTSTRING (264, 370), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore3B)))) + LTRIM$(STR$(G.HScore3B))
1691.             _PRINTSTRING (376, 370), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel3B)))) + LTRIM$(STR$(G.Hlevel3B))
1692.             lv%% = 1: ltr%% = 65: G.HName3B = "      "
1693.             FOR w%% = 1 TO 6
1694.                 names(w%%) = " "
1695.             NEXT w%%
1696.             DO
1697.                 kbd& = _KEYHIT
1698.                 SELECT CASE kbd&
1699.                     CASE 19200 'left
1700.                         IF lv%% > 1 THEN lv%% = lv%% - 1
1701.                         ltr%% = ASC(names(lv%%))
1702.                     CASE 19712 'right
1703.                         IF lv%% < 6 THEN lv%% = lv%% + 1
1704.                         ltr%% = ASC(names(lv%%))
1705.                     CASE 18432 'up
1706.                         ltr%% = ltr%% + 1
1707.                         IF ltr%% = 91 THEN ltr%% = 64
1708.                     CASE 20480 'down
1709.                         ltr%% = ltr%% - 1
1710.                         IF ltr%% = 63 THEN ltr%% = 90
1711.                     CASE 13, 27
1712.                         exitflag%% = TRUE
1713.                 END SELECT
1714.                 IF ltr%% = 64 THEN ltr%% = 32
1715.                 names(lv%%) = CHR$(ltr%%)
1716.                 IF ltr%% = 32 THEN ltr%% = 64
1717.                 G.HName3B = names(1) + names(2) + names(3) + names(4) + names(5) + names(6)
1718.                 _PRINTSTRING (150, 370), G.HName3B
1719.                 LINE (150 + ((lv%% - 1) * 16), 390)-(166 + ((lv%% - 1) * 16), 392), _RGB32(212, 64, 48), BF
1720.                 _DELAY .02
1721.                 LINE (150, 390)-(256, 392), _RGB32(0, 0, 0), BF
1722.             LOOP UNTIL exitflag%%
1723.         END IF
1724.         _KEYCLEAR
1725.     END IF
1726. END SUB
1727.  
1728. SUB ShowHighScoreA
1729.     _PRINTSTRING (150, 306), G.HName1
1730.     _PRINTSTRING (264, 306), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1)))) + LTRIM$(STR$(G.HScore1))
1731.     _PRINTSTRING (376, 306), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel1)))) + LTRIM$(STR$(G.Hlevel1))
1732.     _PRINTSTRING (150, 338), G.HName2
1733.     _PRINTSTRING (264, 338), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore2)))) + LTRIM$(STR$(G.HScore2))
1734.     _PRINTSTRING (376, 338), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel2)))) + LTRIM$(STR$(G.Hlevel2))
1735.     _PRINTSTRING (150, 370), G.HName3
1736.     _PRINTSTRING (264, 370), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore3)))) + LTRIM$(STR$(G.HScore3))
1737.     _PRINTSTRING (376, 370), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel3)))) + LTRIM$(STR$(G.Hlevel3))
1738. END SUB
1739.  
1740. SUB ShowHighScoreB
1741.     _PRINTSTRING (150, 306), G.HName1B
1742.     _PRINTSTRING (264, 306), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore1B)))) + LTRIM$(STR$(G.HScore1B))
1743.     _PRINTSTRING (376, 306), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel1B)))) + LTRIM$(STR$(G.Hlevel1B))
1744.     _PRINTSTRING (150, 338), G.HName2B
1745.     _PRINTSTRING (264, 338), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore2B)))) + LTRIM$(STR$(G.HScore2B))
1746.     _PRINTSTRING (376, 338), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel2B)))) + LTRIM$(STR$(G.Hlevel2B))
1747.     _PRINTSTRING (150, 370), G.HName3B
1748.     _PRINTSTRING (264, 370), LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.HScore3B)))) + LTRIM$(STR$(G.HScore3B))
1749.     _PRINTSTRING (376, 370), LEFT$("00", 2 - LEN(LTRIM$(STR$(G.Hlevel3B)))) + LTRIM$(STR$(G.Hlevel3B))
1750. END SUB
1751.  
1752. SUB MoveLeft
1753.     SELECT CASE P.Piece
1754.         CASE T, J, L
1755.             SELECT CASE P.Orent
1756.                 CASE 1, 2, 3
1757.                     IF P.PieceX = 1 THEN P.PieceX = 2
1758.                 CASE 4
1759.                     IF P.PieceX = 0 THEN P.PieceX = 1
1760.             END SELECT
1761.         CASE Z
1762.             SELECT CASE P.Orent
1763.                 CASE 1 TO 4
1764.                     IF P.PieceX = 1 THEN P.PieceX = 2
1765.             END SELECT
1766.         CASE S
1767.             SELECT CASE P.Orent
1768.                 CASE 1, 3
1769.                     IF P.PieceX = 1 THEN P.PieceX = 2
1770.                 CASE 2, 4
1771.                     IF P.PieceX = 0 THEN P.PieceX = 1
1772.             END SELECT
1773.         CASE O
1774.             SELECT CASE P.Orent
1775.                 CASE 1 TO 4
1776.                     IF P.PieceX = 1 THEN P.PieceX = 2
1777.             END SELECT
1778.         CASE I
1779.             SELECT CASE P.Orent
1780.                 CASE 2, 4
1781.                     IF P.PieceX = 0 THEN P.PieceX = 1
1782.                 CASE 1, 3
1783.                     IF P.PieceX = 1 THEN P.PieceX = 2
1784.             END SELECT
1785.     END SELECT
1786.  
1787. END SUB
1788. SUB MoveRight
1789.     SELECT CASE P.Piece
1790.         CASE T, J, L
1791.             SELECT CASE P.Orent
1792.                 CASE 1, 3, 4
1793.                     IF P.PieceX = 10 THEN P.PieceX = 9
1794.                 CASE 2
1795.                     IF P.PieceX = 11 THEN P.PieceX = 10
1796.             END SELECT
1797.         CASE Z
1798.             SELECT CASE P.Orent
1799.                 CASE 1, 3
1800.                     IF P.PieceX = 10 THEN P.PieceX = 9
1801.                 CASE 2, 4
1802.                     IF P.PieceX = 11 THEN P.PieceX = 10
1803.             END SELECT
1804.         CASE S
1805.             SELECT CASE P.Orent
1806.                 CASE 1, 3
1807.                     IF P.PieceX = 10 THEN P.PieceX = 9
1808.                 CASE 2, 4
1809.                     IF P.PieceX = 10 THEN P.PieceX = 9
1810.             END SELECT
1811.         CASE O
1812.             SELECT CASE P.Orent
1813.                 CASE 1 TO 4
1814.                     IF P.PieceX = 11 THEN P.PieceX = 10
1815.             END SELECT
1816.         CASE I
1817.             SELECT CASE P.Orent
1818.                 CASE 2, 4
1819.                     IF P.PieceX = 11 THEN P.PieceX = 10
1820.                 CASE 1, 3
1821.                     IF P.PieceX = 9 THEN P.PieceX = 8
1822.             END SELECT
1823.     END SELECT
1824. END SUB
1825.  
1826. SUB StartData
1827.     IF G.HScore1 = 0 THEN
1828.         G.BGMVol = 50
1829.         G.SFXVol = 50
1830.         G.Mode = TypeA
1831.         G.BGM = Song1
1832.         G.HScore1 = 15000
1833.         G.HScore2 = 10000
1834.         G.HScore3 = 5000
1835.         G.Hlevel1 = 10
1836.         G.Hlevel2 = 5
1837.         G.Hlevel3 = 1
1838.         G.HName1 = "Narika"
1839.         G.HName2 = "Cobalt"
1840.         G.HName3 = "Ninten"
1841.         G.HScore1B = 5000
1842.         G.HScore2B = 3000
1843.         G.HScore3B = 1000
1844.         G.Hlevel1B = 10
1845.         G.Hlevel2B = 5
1846.         G.Hlevel3B = 1
1847.         G.HName1B = "Nobody"
1848.         G.HName2B = "anybdy"
1849.         G.HName3B = "losers"
1850.  
1851.         G.Level = 0
1852.         P.Score = 0
1853.     ELSE
1854.         G.GameOverFlag = FALSE
1855.         G.Level = 0
1856.         P.Score = 0
1857.         P.Lines = 0
1858.         BoardSetup
1859.     END IF
1860. END SUB
1861.  
1862. SUB BTypeHeight
1863.     'Btype height * 3 lines
1864.     IF G.Height > 0 THEN
1865.         FOR y%% = 20 TO (20 - (G.Height * 3)) + 1 STEP -1
1866.             FOR x%% = 1 TO 10
1867.                 garbage%% = INT(RND * 100) + 1
1868.                 IF garbage%% > 45 THEN Board(x%%, y%%) = INT(RND * 3)
1869.             NEXT x%%
1870.         NEXT y%%
1871.     END IF
1872. END SUB
1873.  
1874. SUB GameModeA
1875.     LINE (0, 0)-(799, 480), _RGB32(0, 0, 0), BF
1876.     _PUTIMAGE (5, 5), FieldA, _DISPLAY, (64, 16)-(574, 462)
1877.     P.NextP = INT(RND * 7) + 1
1878.     NewPiece
1879.     PlaceTetraNome
1880.     TIMER(TI(G.Level)) ON
1881.     DO
1882.         KBD& = _KEYHIT
1883.         SELECT CASE KBD&
1884.             CASE 19200 'left
1885.                 IF NOT CollisionLeft THEN
1886.                     IF G.Sound THEN _SNDPLAY SFX(4)
1887.                     P.PieceX = P.PieceX - 1
1888.                     MoveLeft
1889.                 END IF
1890.             CASE 19712 'right
1891.                 IF NOT CollisionRight THEN
1892.                     IF G.Sound THEN _SNDPLAY SFX(4)
1893.                     P.PieceX = P.PieceX + 1
1894.                     MoveRight
1895.                 END IF
1896.             CASE 20480 'Down
1897.                 IF ButtonHeld%% = FALSE THEN 'if player holds the down arrow switch to faster timer
1898.                     TIMER(TI(G.Level)) OFF
1899.                     TIMER(TI(10)) ON
1900.                     ButtonHeld%% = TRUE
1901.                 END IF
1902.             CASE 32 'space
1903.                 'rotational point is second block, top row if app.
1904.                 IF NOT CollisionRotate THEN
1905.                     P.Orent = P.Orent + 1
1906.                     IF P.Orent = 5 THEN P.Orent = 1
1907.                     IF G.Sound THEN _SNDPLAY SFX(3)
1908.                     SELECT CASE P.Piece
1909.                         CASE T, J, L
1910.                             'if piece is to close to edge to rotate then bump it out 1
1911.                             IF P.PieceX = 1 AND P.Orent <> 4 THEN P.PieceX = 2
1912.                             IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1913.                         CASE Z
1914.                             IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1915.                         CASE O
1916.                         CASE S
1917.                             IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1918.                         CASE I
1919.                             IF P.PieceX = 1 AND (P.Orent <> 1 OR P.Orent <> 3) THEN P.PieceX = 2
1920.                             IF P.PieceX = 10 AND (P.Orent <> 1 OR P.Orent <> 3) THEN P.PieceX = 8
1921.                     END SELECT
1922.                 END IF
1923.                 _KEYCLEAR
1924.             CASE 27 'Esc
1925.                 exitflag%% = TRUE
1926.                 QuitGameFlag%% = TRUE
1927.         END SELECT
1928.  
1929.         IF NOT _KEYDOWN(20480) AND ButtonHeld%% THEN 'if player releases the down arrow restore timer
1930.             ButtonHeld%% = FALSE
1931.             TIMER(TI(10)) OFF
1932.             TIMER(TI(G.Level)) ON
1933.             P.bonus = 0
1934.         END IF
1935.  
1936.         LINE (197, 85)-(197 + 159, 85 + 319), _RGB32(0, 0, 0), BF
1937.         DrawBoard
1938.         PlaceTetraNome
1939.         _DELAY .01
1940.         IF G.GameOverFlag THEN exitflag%% = TRUE
1941.     LOOP UNTIL exitflag%%
1942.     TIMER(TI(G.Level)) OFF
1943. END SUB
1944.  
1945. SUB GameModeB
1946.     LINE (0, 0)-(799, 480), _RGB32(0, 0, 0), BF
1947.     _PUTIMAGE (5, 5), FieldB, _DISPLAY, (64, 16)-(574, 462)
1948.     P.NextP = INT(RND * 7) + 1
1949.     BTypeHeight
1950.     NewPiece
1951.     PlaceTetraNome
1952.     TIMER(TI(G.Level)) ON
1953.     DO
1954.         KBD& = _KEYHIT
1955.         SELECT CASE KBD&
1956.             CASE 19200 'left
1957.                 IF NOT CollisionLeft THEN
1958.                     IF G.Sound THEN _SNDPLAY SFX(4)
1959.                     P.PieceX = P.PieceX - 1
1960.                     MoveLeft
1961.                 END IF
1962.             CASE 19712 'right
1963.                 IF NOT CollisionRight THEN
1964.                     IF G.Sound THEN _SNDPLAY SFX(4)
1965.                     P.PieceX = P.PieceX + 1
1966.                     MoveRight
1967.                 END IF
1968.             CASE 20480 'Down
1969.                 IF ButtonHeld%% = FALSE THEN 'if player holds the down arrow switch to faster timer
1970.                     TIMER(TI(G.Level)) OFF
1971.                     TIMER(TI(10)) ON
1972.                     ButtonHeld%% = TRUE
1973.                 END IF
1974.             CASE 32 'space
1975.                 'rotational point is second block, top row if app.
1976.                 IF NOT CollisionRotate THEN
1977.                     IF G.Sound THEN _SNDPLAY SFX(3)
1978.                     P.Orent = P.Orent + 1
1979.                     IF P.Orent = 5 THEN P.Orent = 1
1980.                     SELECT CASE P.Piece
1981.                         CASE T, J, L
1982.                             'if piece is to close to edge to rotate then bump it out 1
1983.                             IF P.PieceX = 1 AND P.Orent <> 4 THEN P.PieceX = 2
1984.                             IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1985.                         CASE Z
1986.                             IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1987.                         CASE O
1988.                         CASE S
1989.                             IF P.PieceX = 10 AND P.Orent <> 2 THEN P.PieceX = 9
1990.                         CASE I
1991.                             IF P.PieceX = 1 AND (P.Orent <> 1 OR P.Orent <> 3) THEN P.PieceX = 2
1992.                             IF P.PieceX = 10 AND (P.Orent <> 1 OR P.Orent <> 3) THEN P.PieceX = 8
1993.                     END SELECT
1994.                 END IF
1995.                 _KEYCLEAR
1996.             CASE 27 'Esc
1997.                 exitflag%% = TRUE
1998.                 QuitGameFlag%% = TRUE
1999.         END SELECT
2000.  
2001.         IF NOT _KEYDOWN(20480) AND ButtonHeld%% THEN 'if player releases the down arrow restore timer
2002.             ButtonHeld%% = FALSE
2003.             TIMER(TI(10)) OFF
2004.             TIMER(TI(G.Level)) ON
2005.             P.bonus = 0
2006.         END IF
2007.  
2008.         LINE (197, 85)-(197 + 159, 85 + 319), _RGB32(0, 0, 0), BF
2009.         DrawBoard
2010.         PlaceTetraNome
2011.         _DELAY .01
2012.         IF G.GameOverFlag THEN exitflag%% = TRUE
2013.     LOOP UNTIL exitflag%%
2014.     TIMER(TI(G.Level)) OFF
2015. END SUB
2016.  
2017. SUB DisplayClickOptions
2018.     _PRINTSTRING (570, 130), "Click here"
2019.     _PRINTSTRING (570, 150), "to Continue"
2020.  
2021.     _PRINTSTRING (570, 200), "Click here"
2022.     _PRINTSTRING (570, 220), "to go Back"
2023.  
2024.     _PRINTSTRING (570, 400), "Click here"
2025.     _PRINTSTRING (570, 420), "Exit Game"
2026. END SUB
2027.  
2028. FUNCTION LoadGFX& (Foff&, Size&)
2029.     IF _FILEEXISTS("temp.dat") THEN KILL "temp.dat"
2030.     OPEN "temp.dat" FOR BINARY AS #3
2031.     dat$ = SPACE$(Size&)
2032.     GET #1, Foff&, dat$
2033.     PUT #3, , dat$
2034.     CLOSE #3
2035.     LoadGFX& = _LOADIMAGE("temp.dat", 32)
2036. END FUNCTION
2037.  
2038. SUB EndScreenB
2039.  
2040.     ST1& = _FREETIMER
2041.     ON TIMER(ST1&, .025) TypeBAnimation
2042.     CLS
2043.     COLOR _RGB32(250, 250, 250), _RGB32(0, 89, 251)
2044.     LINE (0, 0)-(512, 480), _RGB32(0, 0, 0), BF
2045.     _PUTIMAGE (5, 5), EndScrnB, _DISPLAY, (64, 16)-(574, 462)
2046.     _PUTIMAGE (112, 68), EndScrnB, _DISPLAY, (100, 180)-(210, 220)
2047.     _PUTIMAGE (116, 71), EndScrnB, _DISPLAY, (176, 80)-(254, 93)
2048.     _PUTIMAGE (116, 89), EndScrnB, _DISPLAY, (176, 96)-(272, 110)
2049.     v$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(P.Score)))) + LTRIM$(STR$(P.Score))
2050.     v1$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.Level * 1000)))) + LTRIM$(STR$(G.Level * 1000))
2051.     v2$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(G.Height * 1000)))) + LTRIM$(STR$(G.Height * 1000))
2052.     v3$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(total&)))) + LTRIM$(STR$(total&))
2053.     _PRINTSTRING (225, 50), v$, _DISPLAY
2054.     _PRINTSTRING (225, 68), v1$, _DISPLAY
2055.     _PRINTSTRING (225, 86), v2$, _DISPLAY
2056.     _PRINTSTRING (225, 130), v3$, _DISPLAY
2057.  
2058.     _PUTIMAGE (0, 0), _DISPLAY, Temp&, (0, 0)-(511, 479) 'make backup of screen
2059.     TIMER(ST1&) ON
2060.     _DELAY 1
2061.     total& = P.Score
2062.     _PRINTSTRING (225, 50), v3$, _DISPLAY
2063.  
2064.     current = _DEST
2065.     _DEST Temp&
2066.     _PRINTSTRING (225, 50), v3$, Temp&
2067.     _DEST current
2068.  
2069.  
2070.  
2071.     v3$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(total&)))) + LTRIM$(STR$(total&))
2072.     _PRINTSTRING (225, 130), v3$, _DISPLAY
2073.  
2074.  
2075.     _DEST Temp&
2076.     _PRINTSTRING (225, 130), v3$, Temp&
2077.     _DEST current
2078.  
2079.     _DELAY .25
2080.     b1% = G.Level * 1000
2081.     FOR w% = b1% TO 0 STEP -100
2082.         total& = total& + 100
2083.         v1$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(w%)))) + LTRIM$(STR$(w%))
2084.         _PRINTSTRING (225, 68), v1$, _DISPLAY
2085.  
2086.         _DEST Temp&
2087.         _PRINTSTRING (225, 68), v1$, Temp&
2088.         _DEST current
2089.  
2090.  
2091.         v3$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(total&)))) + LTRIM$(STR$(total&))
2092.         _PRINTSTRING (225, 130), v3$, _DISPLAY
2093.  
2094.         _DEST Temp&
2095.         _PRINTSTRING (225, 130), v3$, Temp&
2096.         _DEST current
2097.  
2098.         _DELAY .05
2099.     NEXT w%
2100.     b1% = G.Height * 1000
2101.     FOR w% = b1% TO 0 STEP -100
2102.         total& = total& + 100
2103.         v2$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(w%)))) + LTRIM$(STR$(w%))
2104.         _PRINTSTRING (225, 86), v2$, _DISPLAY
2105.  
2106.         _DEST Temp&
2107.         _PRINTSTRING (225, 86), v2$, Temp&
2108.         _DEST current
2109.  
2110.         v3$ = LEFT$("000000", 6 - LEN(LTRIM$(STR$(total&)))) + LTRIM$(STR$(total&))
2111.         _PRINTSTRING (225, 130), v3$, _DISPLAY
2112.  
2113.         _DEST Temp&
2114.         _PRINTSTRING (225, 130), v3$, Temp&
2115.         _DEST current
2116.  
2117.         _DELAY .05
2118.     NEXT w%
2119.  
2120.     _DEST Temp&
2121.     COLOR _RGB32(254, 254, 254), _RGB32(0, 0, 0)
2122.     _DEST current
2123.  
2124.     DO: _DELAY .02: LOOP UNTIL INKEY$ = CHR$(13)
2125.     TIMER(ST1&) OFF
2126.     TIMER(ST1&) FREE
2127. END SUB
2128.  
2129. SUB TypeBAnimation
2130.     STATIC Frame%%, Xloc%(5), Yloc%(5)
2131.     _FONT 16
2132.     SELECT CASE G.Level
2133.         CASE 0
2134.             FOR w%% = 1 TO G.Height + 1
2135.                 '     LOCATE w%%, 65: PRINT Xloc%(w%%); Frame%%
2136.                 IF Yloc%(w%%) = 0 THEN Yloc%(w%%) = INT(RND * 300) + 100
2137.                 '    IF Yloc%(w%%) > 120 AND Yloc%(w%%) < 146 THEN Yloc%(w%%) = Yloc%(w%%) + INT(RND * 64) + 16
2138.                 IF Xloc%(w%%) = 0 THEN Xloc%(w%%) = INT(RND * 100) - 50
2139.                 IF Xloc%(w%%) > 32 THEN LINE (Xloc%(w%%), Yloc%(w%%))-(Xloc%(w%%) + 16, Yloc%(w%%) + 16), _RGB32(0, 89, 251), B
2140.                 '    _PUTIMAGE (Xloc%(w%%), Yloc%(w%%)), EndScrnB, _DISPLAY, (59 + Xloc%(w%%), 11 + Yloc%(w%%))-(59 + Xloc%(w%%) + 16, 11 + Yloc%(w%%) + 16)
2141.                 _PUTIMAGE (Xloc%(w%%), Yloc%(w%%)), Temp&, _DISPLAY, (Xloc%(w%%), Yloc%(w%%))-(Xloc%(w%%) + 16, Yloc%(w%%) + 16)
2142.  
2143.                 Xloc%(w%%) = Xloc%(w%%) + 1: IF Xloc%(w%%) > 460 THEN Xloc%(w%%) = INT(RND * 100) - 50: Yloc%(w%%) = INT(RND * 300) + 100
2144.                 SELECT CASE Frame%%
2145.                     CASE 1 TO 12
2146.                         IF Xloc%(w%%) > 32 THEN _PUTIMAGE (Xloc%(w%%), Yloc%(w%%)), EndSprtA, _DISPLAY, (50, 77)-(65, 92)
2147.                     CASE 13 TO 24
2148.                         IF Xloc%(w%%) > 32 THEN _PUTIMAGE (Xloc%(w%%), Yloc%(w%%)), EndSprtA, _DISPLAY, (66, 77)-(81, 92)
2149.                 END SELECT
2150.                 Frame%% = Frame%% + 1: IF Frame%% = 25 THEN Frame%% = 1
2151.             NEXT w%%
2152.         CASE 1
2153.         CASE 2
2154.         CASE 3
2155.         CASE 4
2156.  
2157.     END SELECT
2158.     _FONT FFX(1)
2159. END SUB
2160.  
2161.  

i know not, if it is so as you need.

[SMcNeill]

The issue here is this one, broken down for simplicity's sake:

Code: QB64: [Select]

1. one = _NEWIMAGE(640, 480, 32)
2. two = _NEWIMAGE(640, 480, 32)
3. SCREEN one
4.  
5. _PRINTSTRING (1, 1), "Hello", one
6. _PRINTSTRING (7 * 8, 1), "World", two

_PRINTSTRING should print to the screen we specify, but it's not. 

As per: http://qb64.org/wiki/PRINTSTRING

Syntax
_PRINTSTRING(column, row), textExpression$[, imageHandle&]

Parameters
column and row are INTEGER or LONG starting PIXEL (graphic) column and row coordinates to set text or custom fonts.
textExpression$ is any literal or variable string value of text to be displayed.
imageHandle& is the optional image or destination to use. Zero designates current SCREEN page.

The imagehandle isn't working as intended with _PRINTSTRING.

[Cobalt]

....
The imagehandle isn't working as intended with _PRINTSTRING.

Ok so that part is not on me then. Good for once.

Silly me to think that when I change the font it should be Globally changed as in 'for the whole program' not just one screen layer. same for changing the COLOR too. Although I do concede that I see where it could be useful to have different fonts and COLOR setting for different layers, I just don't find it as intuitive that way.

is there any chance the ImageHandle& in _PRINTSTRING can be looked into?

[FellippeHeitor]

Each image has its own settings regarding color and font.

We’ll look into the handle issue.

[SMcNeill]

Each image has its own settings regarding color and font.

We’ll look into the handle issue.

There's a really simple fix for this issue (tested on my machine, but I can't imagine that it wouldn't work on all OSes and versions). 

Open libqb.cpp.

Find the sub for printstring.  It should be down around line 18757 and look like:         void sub__printstring(float x,float y,qbs* text,int32 i,int32 passed){

Right below the if newerror line, add this little tidbit:

Code: QB64: [Select]

1.             if (passed&2) {
2.                 int32 old_dest = func__dest();
3.                 sub__dest(i);
4.             }

The above basically says, "If we pass _PRINTSTRING a handle, swap our dest over to that handle.  No need for error checking here, as sub__dest will handle that for us.

Now, here's the only part which I found to be a slight PITA -- Before each RETURN in that function, change the dest back:

Code: QB64: [Select]

1.             if (passed&2) sub__dest(old_dest);

Since there's a ton of early exit returns (in case of errors at various steps along the way of printing), that's several different spots where we'd have to reset the DEST in case we exit the routine early...

It's probably not the most elegant of fixes, but it works, and I've always been a hack who's been more concerned about "does it do what I want", than a guy who says, "does it look pretty?"...

Feel free to make the changes and test it out for yourself if you want.  It seemed the simplest way, to me, to get _PRINTSTRING to do what it's supposed to, in this case.  :)

[FellippeHeitor]

If it's a fix, please take some time to apply the changes to the development branch.

[SMcNeill]

Try this out to make certain that it doesn't break anything with Linux/Mac first:


EDIT: 

And a quick little test program to try the changes with:

Code: QB64: [Select]

1. one = _NEWIMAGE(640, 480, 32)
2. two = _NEWIMAGE(640, 480, 32)
3.  
4. _PRINTSTRING (1, 1), "one", one
5. _PRINTSTRING (100, 100), "two", two
6. _PRINTSTRING (5, 5), "zero" 'screen zero which we start with, just to show the DEST didn't actually change after the _PRINTSTING calls
7.  
8. SLEEP
9. SCREEN one
10. SLEEP
11. SCREEN two
12.  

[Cobalt]

Steve,
You put the libqb.cpp in the Internal\c  folder right? Cause its not doing anything different for me.
Still displaying to the main screen. or not at all.

[SMcNeill]

run the "purge_libqb_only.bat" in the same directory, after copying it over.  Then edit your program (just a hit of a space or backspace will work fine to tell the IDE to freshly compile and not just run the last version), and compile, to see the changes.

[SMcNeill]

Pushed the edit into the Development branch of QB64.  If there's an issue with Linux/Mac not working properly with it, it'll be easy enough to revert back out later.  :)

[FellippeHeitor]

Thanks, Steve!