PENtrIS

[_vince]

An extension of tetris to pentominos as described here https://en.wikipedia.org/wiki/Pentomino

I've never actually played this variant before other then this very program so not sure how playable and balanced it is, I am able to get several lines with a bit of luck.  Suggestions such as which pieces to add/remove, board size, etc are welcome.  Edit: fixed lines not being cleared issue

Code: QB64: [Select]

1. randomize timer
2. deflng a-z
3.  
4. dim shared piece(17, 2, 4)
5. dim shared piece_color(17)
6. dim shared size, sw, sh
7.  
8. size = 35
9. sw = 11
10. sh = 25
11.  
12. redim shared board(sw - 1, sh - 1)
13.  
14. piece(0,0,0)=0: piece(0,1,0)=1: piece(0,2,0)=0
15. piece(0,0,1)=0: piece(0,1,1)=1: piece(0,2,1)=0
16. piece(0,0,2)=0: piece(0,1,2)=1: piece(0,2,2)=0
17. piece(0,0,3)=0: piece(0,1,3)=1: piece(0,2,3)=0
18. piece(0,0,4)=0: piece(0,1,4)=1: piece(0,2,4)=0
19.  
20. piece(1,0,0)=0: piece(1,1,0)=0: piece(1,2,0)=0
21. piece(1,0,1)=0: piece(1,1,1)=0: piece(1,2,1)=0
22. piece(1,0,2)=0: piece(1,1,2)=1: piece(1,2,2)=1
23. piece(1,0,3)=1: piece(1,1,3)=1: piece(1,2,3)=0
24. piece(1,0,4)=0: piece(1,1,4)=1: piece(1,2,4)=0
25.  
26. piece(2,0,0)=0: piece(2,1,0)=0: piece(2,2,0)=0
27. piece(2,0,1)=0: piece(2,1,1)=0: piece(2,2,1)=0
28. piece(2,0,2)=1: piece(2,1,2)=1: piece(2,2,2)=0
29. piece(2,0,3)=0: piece(2,1,3)=1: piece(2,2,3)=1
30. piece(2,0,4)=0: piece(2,1,4)=1: piece(2,2,4)=0
31.  
32. piece(3,0,0)=0: piece(3,1,0)=0: piece(3,2,0)=0
33. piece(3,0,1)=0: piece(3,1,1)=1: piece(3,2,1)=0
34. piece(3,0,2)=0: piece(3,1,2)=1: piece(3,2,2)=0
35. piece(3,0,3)=0: piece(3,1,3)=1: piece(3,2,3)=0
36. piece(3,0,4)=1: piece(3,1,4)=1: piece(3,2,4)=0
37.  
38. piece(4,0,0)=0: piece(4,1,0)=0: piece(4,2,0)=0
39. piece(4,0,1)=0: piece(4,1,1)=1: piece(4,2,1)=0
40. piece(4,0,2)=0: piece(4,1,2)=1: piece(4,2,2)=0
41. piece(4,0,3)=0: piece(4,1,3)=1: piece(4,2,3)=0
42. piece(4,0,4)=0: piece(4,1,4)=1: piece(4,2,4)=1
43.  
44. piece(5,0,0)=0: piece(5,1,0)=0: piece(5,2,0)=0
45. piece(5,0,1)=0: piece(5,1,1)=0: piece(5,2,1)=0
46. piece(5,0,2)=1: piece(5,1,2)=1: piece(5,2,2)=0
47. piece(5,0,3)=1: piece(5,1,3)=1: piece(5,2,3)=0
48. piece(5,0,4)=0: piece(5,1,4)=1: piece(5,2,4)=0
49.  
50. piece(6,0,0)=0: piece(6,1,0)=0: piece(6,2,0)=0
51. piece(6,0,1)=0: piece(6,1,1)=0: piece(6,2,1)=0
52. piece(6,0,2)=0: piece(6,1,2)=1: piece(6,2,2)=1
53. piece(6,0,3)=0: piece(6,1,3)=1: piece(6,2,3)=1
54. piece(6,0,4)=0: piece(6,1,4)=1: piece(6,2,4)=0
55.  
56. piece(7,0,0)=0: piece(7,1,0)=0: piece(7,2,0)=0
57. piece(7,0,1)=0: piece(7,1,1)=1: piece(7,2,1)=0
58. piece(7,0,2)=0: piece(7,1,2)=1: piece(7,2,2)=0
59. piece(7,0,3)=1: piece(7,1,3)=1: piece(7,2,3)=0
60. piece(7,0,4)=1: piece(7,1,4)=0: piece(7,2,4)=0
61.  
62. piece(8,0,0)=0: piece(8,1,0)=0: piece(8,2,0)=0
63. piece(8,0,1)=0: piece(8,1,1)=1: piece(8,2,1)=0
64. piece(8,0,2)=0: piece(8,1,2)=1: piece(8,2,2)=0
65. piece(8,0,3)=0: piece(8,1,3)=1: piece(8,2,3)=1
66. piece(8,0,4)=0: piece(8,1,4)=0: piece(8,2,4)=1
67.  
68. piece(9,0,0)=0: piece(9,1,0)=0: piece(9,2,0)=0
69. piece(9,0,1)=0: piece(9,1,1)=0: piece(9,2,1)=0
70. piece(9,0,2)=1: piece(9,1,2)=1: piece(9,2,2)=1
71. piece(9,0,3)=0: piece(9,1,3)=1: piece(9,2,3)=0
72. piece(9,0,4)=0: piece(9,1,4)=1: piece(9,2,4)=0
73.  
74. piece(10,0,0)=0: piece(10,1,0)=0: piece(10,2,0)=0
75. piece(10,0,1)=0: piece(10,1,1)=0: piece(10,2,1)=0
76. piece(10,0,2)=0: piece(10,1,2)=0: piece(10,2,2)=0
77. piece(10,0,3)=1: piece(10,1,3)=0: piece(10,2,3)=1
78. piece(10,0,4)=1: piece(10,1,4)=1: piece(10,2,4)=1
79.  
80. piece(11,0,0)=0: piece(11,1,0)=0: piece(11,2,0)=0
81. piece(11,0,1)=0: piece(11,1,1)=0: piece(11,2,1)=0
82. piece(11,0,2)=0: piece(11,1,2)=0: piece(11,2,2)=1
83. piece(11,0,3)=0: piece(11,1,3)=0: piece(11,2,3)=1
84. piece(11,0,4)=1: piece(11,1,4)=1: piece(11,2,4)=1
85.  
86. piece(12,0,0)=0: piece(12,1,0)=0: piece(12,2,0)=0
87. piece(12,0,1)=0: piece(12,1,1)=0: piece(12,2,1)=0
88. piece(12,0,2)=0: piece(12,1,2)=0: piece(12,2,2)=1
89. piece(12,0,3)=0: piece(12,1,3)=1: piece(12,2,3)=1
90. piece(12,0,4)=1: piece(12,1,4)=1: piece(12,2,4)=0
91.  
92. piece(13,0,0)=0: piece(13,1,0)=0: piece(13,2,0)=0
93. piece(13,0,1)=0: piece(13,1,1)=0: piece(13,2,1)=0
94. piece(13,0,2)=0: piece(13,1,2)=1: piece(13,2,2)=0
95. piece(13,0,3)=1: piece(13,1,3)=1: piece(13,2,3)=1
96. piece(13,0,4)=0: piece(13,1,4)=1: piece(13,2,4)=0
97.  
98. piece(14,0,0)=0: piece(14,1,0)=0: piece(14,2,0)=0
99. piece(14,0,1)=0: piece(14,1,1)=1: piece(14,2,1)=0
100. piece(14,0,2)=1: piece(14,1,2)=1: piece(14,2,2)=0
101. piece(14,0,3)=0: piece(14,1,3)=1: piece(14,2,3)=0
102. piece(14,0,4)=0: piece(14,1,4)=1: piece(14,2,4)=0
103.  
104. piece(15,0,0)=0: piece(15,1,0)=0: piece(15,2,0)=0
105. piece(15,0,1)=0: piece(15,1,1)=1: piece(15,2,1)=0
106. piece(15,0,2)=0: piece(15,1,2)=1: piece(15,2,2)=1
107. piece(15,0,3)=0: piece(15,1,3)=1: piece(15,2,3)=0
108. piece(15,0,4)=0: piece(15,1,4)=1: piece(15,2,4)=0
109.  
110. piece(16,0,0)=0: piece(16,1,0)=0: piece(16,2,0)=0
111. piece(16,0,1)=0: piece(16,1,1)=0: piece(16,2,1)=0
112. piece(16,0,2)=0: piece(16,1,2)=1: piece(16,2,2)=1
113. piece(16,0,3)=0: piece(16,1,3)=1: piece(16,2,3)=0
114. piece(16,0,4)=1: piece(16,1,4)=1: piece(16,2,4)=0
115.  
116. piece(17,0,0)=0: piece(17,1,0)=0: piece(17,2,0)=0
117. piece(17,0,1)=0: piece(17,1,1)=0: piece(17,2,1)=0
118. piece(17,0,2)=1: piece(17,1,2)=1: piece(17,2,2)=0
119. piece(17,0,3)=0: piece(17,1,3)=1: piece(17,2,3)=0
120. piece(17,0,4)=0: piece(17,1,4)=1: piece(17,2,4)=1
121.  
122. screen _newimage(sw*size, sh*size, 32)
123.  
124. piece_color(0) = _rgb(255,0,0)
125. piece_color(1) = _rgb(255,145,0)
126. piece_color(2) = _rgb(255,200,211)
127. piece_color(3) = _rgb(0,255,220)
128. piece_color(4) = _rgb(0,230,255)
129. piece_color(5) = _rgb(0,170,10)
130. piece_color(6) = _rgb(0,250,20)
131. piece_color(7) = _rgb(128,230,0)
132. piece_color(8) = _rgb(80,150,0)
133. piece_color(9) = _rgb(0,200,0)
134. piece_color(10) = _rgb(50,160,170)
135. piece_color(11) = _rgb(50,110,175)
136. piece_color(12) = _rgb(50,50,175)
137. piece_color(13) = _rgb(110,50,175)
138. piece_color(14) = _rgb(210,0,255)
139. piece_color(15) = _rgb(110,0,130)
140. piece_color(16) = _rgb(255,0,140)
141. piece_color(17) = _rgb(170,0,100)
142.  
143. dim t as double
144.  
145. redraw = -1
146.  
147. speed = 2
148. lines = 0
149. pause = 0
150. putpiece = 0
151. startx = (sw - 4)/2
152.  
153. pn = int(rnd*18)
154. px = startx
155. py = -2
156. rot = 0
157.  
158. title$ = "lines="+ltrim$(str$(lines))+",speed="++ltrim$(str$(speed))
159. _title title$
160.  
161. t = timer
162.  
163. do
164.         if (timer - t) > (1/speed) and not pause then
165.                 if valid(pn, px, py + 1, rot) then py = py + 1 else putpiece = -1
166.  
167.                 t = timer
168.                 redraw = -1
169.         end if
170.  
171.         if putpiece then
172.                 if valid(pn, px, py, rot) then
173.                         n = place(pn, px, py, rot)
174.                         if n then
175.                                 lines = lines + n
176.                                 title$ = "lines="+ltrim$(str$(lines))+",speed="++ltrim$(str$(speed))
177.                                 _title title$
178.                         end if
179.                 end if
180.  
181.                 pn = int(rnd*18)
182.                 px = startx
183.                 py = -2
184.                 rot = 0
185.  
186.                 putpiece = 0
187.                 redraw = -1
188.  
189.                 if not valid(pn, px, py, rot) then
190.                         for y=0 to sh-1
191.                                 for x=0 to sw-1
192.                                         board(x, y) = 0
193.                                 next
194.                         next
195.                         lines = 0
196.                         title$ = "lines="+ltrim$(str$(lines))+",speed="++ltrim$(str$(speed))
197.                         _title title$
198.                 end if
199.         end if
200.  
201.         if redraw then
202.                 line (0,0)-(sw*size, sh*size),_rgb(0,0,0),bf
203.                 for y=0 to sh - 1
204.                         for x=0 to sw - 1
205.                                 if board(x, y) <> 0 then
206.                                         line (x*size, y*size)-step(size-2, size-2), piece_color(board(x, y)-1), bf
207.                                 else
208.                                         line (x*size, y*size)-step(size-2, size-2), _rgb(50,50,50), b
209.                                 end if
210.                         next
211.                 next
212.  
213.                 for y=0 to 4
214.                         for x=0 to 2
215.                                 rotate xx, yy, x, y, pn, rot
216.                                 if piece(pn, x, y) then line ((px + xx)*size, (py + yy)*size)-step(size-2, size-2), piece_color(pn), bf
217.                         next
218.                 next
219.  
220.                 _display
221.                 redraw = 0
222.         end if
223.  
224.         k = _keyhit
225.         if k then
226.                 shift = _keydown(100304) or _keydown(100303)
227.                 select case k
228.                 case 18432 'up
229.                         if valid(pn, px, py, (rot + 1) mod 4) then rot = (rot + 1) mod 4
230.                         pause = 0
231.                 case 19200 'left
232.                         if shift then
233.                                 for xx=0 to sw-1
234.                                         if not valid(pn, px - xx, py, rot) then exit for
235.                                 next
236.                                 px = px - xx + 1
237.                         else
238.                                 if valid(pn, px - 1, py, rot) then px = px - 1
239.                         end if
240.                         pause = 0
241.                 case 19712 'right
242.                         if shift then
243.                                 for xx=px to sw-1
244.                                         if not valid(pn, xx, py, rot) then exit for
245.                                 next
246.                                 px = xx - 1
247.                         else
248.                                 if valid(pn, px + 1, py, rot) then px = px + 1
249.                         end if
250.                         pause = 0
251.                 case 20480, 32 'down
252.                         if shift or k = 32 then
253.                                 for yy=py to sh-1
254.                                         if not valid(pn, px, yy, rot) then exit for
255.                                 next
256.                                 py = yy - 1
257.                                 putpiece = -1
258.                         else
259.                                 if valid(pn, px, py + 1, rot) then py = py + 1
260.                         end if
261.                         pause = 0
262.                 case 112 'p
263.                         pause = not pause
264.                 case 13 'enter
265.                         for y=0 to sh-1
266.                                 for x=0 to sw-1
267.                                         board(x, y) = 0
268.                                 next
269.                         next
270.                         pn = int(rnd*17)
271.                         px = startx
272.                         py = -2
273.                         rot = 0
274.                         putpiece = 0
275.                         lines = 0
276.                         title$ = "lines="+ltrim$(str$(lines))+",speed="++ltrim$(str$(speed))
277.                         _title title$
278.                 case 43, 61 'plus
279.                         if speed < 100 then
280.                                 speed = speed + 1
281.                                 title$ = "lines="+ltrim$(str$(lines))+",speed="++ltrim$(str$(speed))
282.                                 _title title$
283.                         end if
284.                 case 95, 45
285.                         if speed > 1 then
286.                                 speed = speed - 1
287.                                 title$ = "lines="+ltrim$(str$(lines))+",speed="++ltrim$(str$(speed))
288.                                 _title title$
289.                         end if
290.                 case 27
291.                         exit do
292.                 end select
293.  
294.                 redraw = -1
295.         end if
296. loop
297. system
298.  
299.  
300. sub rotate(xx, yy, x, y, pn, rot)
301.         select case pn
302.         case 0
303.                 rot_new = rot mod 2
304.         case else
305.                 rot_new = rot
306.         end select
307.  
308.         select case rot_new
309.         case 0
310.                 xx = x
311.                 yy = y
312.         case 1
313.                 if pn = 0 then
314.                         xx = y - 1
315.                         yy = 3 - x
316.                 elseif pn = 14 or pn = 15 then
317.                         xx = y - 1
318.                         yy = 3 - x
319.                 else
320.                         xx = y - 2
321.                         yy = 4 - x
322.                 end if
323.         case 2
324.                 if pn = 14 or pn = 15 then
325.                         xx = 2 - x
326.                         yy = 4 - y
327.                 else
328.                         xx = 2 - x
329.                         yy = 6 - y
330.                 end if
331.         case 3
332.                 if pn = 14 or pn = 15 then
333.                         xx = 3 - y
334.                         yy = x + 1
335.                 else
336.                         xx = 4 - y
337.                         yy = x + 2
338.                 end if
339.         end select
340. end sub
341.  
342. function valid(pn, px, py, rot)
343.         for y=0 to 4
344.                 for x=0 to 2
345.                         rotate xx, yy, x, y, pn, rot
346.                         if py + yy >= 0 then
347.                                 if piece(pn, x, y) then
348.                                         if (px + xx >= sw) or (px + xx < 0) then
349.                                                 valid = 0
350.                                                 exit function
351.                                         end if
352.                                         if (py + yy >= sh) then
353.                                                 valid = 0
354.                                                 exit function
355.                                         end if
356.                                         'if (py >= 0) then
357.                                         if board(px + xx, py + yy) then
358.                                                 valid = 0
359.                                                 exit function
360.                                         end if
361.                                         'end if
362.                                 end if
363.                         end if
364.                 next
365.         next
366.  
367.         valid = -1
368. end function
369.  
370. function place(pn, px, py, rot)
371.         lines = 0
372.  
373.         for y=0 to 4
374.                 for x=0 to 2
375.                         rotate xx, yy, x, y, pn, rot
376.                         if py + yy >= 0 then if piece(pn, x, y) then board(px + xx, py + yy) = pn + 1
377.                 next
378.         next
379.  
380.         'clear lines
381.         for y=py-5 to py+5
382.                 if y>=0 and y<sh then
383.                         clr = -1
384.                         for x=0 to sw - 1
385.                                 if board(x, y) = 0 then
386.                                         clr = 0
387.                                         exit for
388.                                 end if
389.                         next
390.  
391.                         if clr then
392.                                 lines = lines + 1
393.                                 for yy=y to 1 step -1
394.                                         for x=0 to sw-1
395.                                                 board(x, yy) = board(x, yy-1)
396.                                         next
397.                                 next
398.                         end if
399.                 end if
400.         next
401.  
402.         place = lines
403. end function
404.  

[johnno56]

Cool version. So much harder than the original but still cool... I like it.

[STxAxTIC]

Enjoyed the heck out of this generalization of Tetris. Not sure how refined the code is yet but I swear I formed a line that didn't clear - but lines above that one did clear properly. In the old game I got more lines than a cokehead - this one's way harder. Love it!

[TempodiBasic]

Great V
I like  this version too, also if it uses blocks that have a more unusual shape.