Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Ed Davis on June 25, 2021, 09:33:11 am

Title: Tiny Tetris
Post by: Ed Davis on June 25, 2021, 09:33:11 am
On the Reddit tinycode programming forum:
https://www.reddit.com/r/tinycode/comments/o6m72h/tentris_a_10_line_x_72_characters_tetris_game_in/ (https://www.reddit.com/r/tinycode/comments/o6m72h/tentris_a_10_line_x_72_characters_tetris_game_in/)

Someone posted a GWBASIC version of Tetris:

Code: QB64: [Select]
  1. 0 P$="BJ@@QJI@JB@@IJQ@IIII@D@@JJ@@JJ@@QQJ@AC@@JII@CQ@@IIJ@CA@@JQQ@QC@@"
  2. 1 CLS:B$=CHR$(219):FOR Y=1 TO 19:PRINT,B$,B$:NEXT:PRINT,STRING$(15,B$)
  3. 2 X=19:C=X:R=C:WHILE R:D=13:FOR E=16 TO 28:D=D+(SCREEN(R,E)=219):NEXT
  4. 3 IF D THEN FOR E=16 TO 28:LOCATE C,E:PRINT CHR$(SCREEN(R,E)):NEXT:C=C-1
  5. 4 R=R-1:WEND:Y=0:Z=INT(RND*6)*8:Z=Z-(Z>39)*8:I=8-(Z>31)*8:WHILE 1:C$=""
  6. 5 H=0:GOSUB 8:C$=B$:IF H THEN R=Q:X=U:IF A$=""THEN Y=Y-1:GOSUB 8:GOTO 2
  7. 6 GOSUB 8:Q=R:U=X:A$=INKEY$:IF""=A$ THEN IF TIMER<S THEN 6 ELSE S=TIMER+.5
  8. 7 C$=" ":GOSUB 8:X=X+(A$="A")-(A$="D"):Y=Y-(A$=""):R=R-(A$="W")*4:WEND
  9. 8 FOR C=1 TO 4:D=ASC(MID$(P$,Z+R MOD I+C))-64:W=D\8:WHILE D:D=D-1 AND 7
  10. 9 H=H+(SCREEN(Y+C,X+W+D)>32):LOCATE Y+C,X+W+D:PRINT C$:WEND:NEXT:RETURN
  11.  

With a minor tweak (applied in the above posted code) it compiles and runs with QB64!  Cool!
Title: Re: Tiny Tetris
Post by: FellippeHeitor on June 25, 2021, 10:17:24 am
Whoa!
Title: Re: Tiny Tetris
Post by: bplus on June 25, 2021, 04:39:50 pm
Cap lock on
  W
A  D

Nice!
Title: Re: Tiny Tetris
Post by: johnno56 on June 25, 2021, 08:05:44 pm
What! No aliens?  Pretty cool. All in 10 lines of code! Nicely done!
Title: Re: Tiny Tetris
Post by: Cobalt on June 25, 2021, 10:59:11 pm
Oh pooie, and here I thought it was going to be truly tiny tetris using single pixel tetranomes on a 1920x1080 window. I wonder just how hard that would be to play?

My prototype Truly Tiny Tetris screen cap below.
Title: Re: Tiny Tetris
Post by: NOVARSEG on June 26, 2021, 02:28:03 am
and then someone invented   END IF

half the code is :

can't even reverse engineer it.

In the days when 640k was too much

way too many comments
Title: Re: Tiny Tetris
Post by: johnno56 on June 26, 2021, 03:07:23 am
Cobalt,

Cannot wait to see the score and level indicators....
Title: Re: Tiny Tetris
Post by: Ed Davis on June 26, 2021, 09:13:58 am
Quote from: NOVARSEG on June 26, 2021, 02:28:03 am
and then someone invented   END IF
half the code is :
can't even reverse engineer it.

I tried my hand at cleaning it up.  I did not intentionally change any logic.  Here it is:
Code: QB64: [Select]
  1. p$ = "BJ@@QJI@JB@@IJQ@IIII@D@@JJ@@JJ@@QQJ@AC@@JII@CQ@@IIJ@CA@@JQQ@QC@@"
  3. b$ = chr$(219)
  4. for y = 1 TO 19
  5.   print,b$,b$
  7. print , string$(15, b$)
  8.  
  9. label2:
  10.  
  11. x = 19
  12. c = x: r = c
  14.   d = 13
  15.   for e = 16 TO 28
  16.     d = d + (screen(r, e) = 219)
  17.   next
  18.   if d then
  19.     for e = 16 TO 28
  20.       locate c, e
  21.       print chr$(screen(r, e))
  22.     next
  23.   end if
  24.   c = c - 1
  25.   r = r - 1
  27. y = 0
  28. z = int(rnd * 6) * 8
  29. z = z - (z > 39) * 8
  30. I = 8 - (z > 31) * 8
  32.   c$ = ""
  33.   h = 0
  34.   gosub label8
  35.   c$ = b$
  36.   if h then
  37.     r = q: x = u
  38.     if a$ = "" then
  39.       y = y - 1
  40.       gosub label8
  41.       goto label2
  42.     end if
  43.   end if
  44.  
  45. label6:
  46.  
  47.   gosub label8
  48.   q = r:  u = x
  49.   a$ = inkey$
  50.   if "" = a$ then
  51.     if timer < s then
  52.       goto label6
  53.     else
  54.       s = timer + .5
  55.     end if
  56.   end if
  57.   c$ = " "
  58.   gosub label8
  59.   x = x + (a$ = "A") - (a$ = "D")
  60.   y = y - (a$ = "")
  61.   r = r - (a$ = "W") * 4
  63.  
  64. label8:
  65.   for c = 1 TO 4
  66.     d = asc(mid$(p$, z + r mod I + c)) - 64
  67.     w = d \ 8
  68.     while d
  69.       d = d - 1 and 7
  70.       h = h + (screen(y + c, x + w + d) > 32)
  71.       locate y + c, x + w + d
  72.       print c$
  73.     wend
  74.   next
  76.  

All I did was convert the referenced line numbers to labels, and got rid of most of the multiple statements per line.  There were only two goto's in the original code, so that was nice.  And of course, would be nice to get rid of them :)
Title: Re: Tiny Tetris
Post by: TempodiBasic on June 27, 2021, 06:03:35 am
Quote from: Ed Davis on June 25, 2021, 09:33:11 am
On the Reddit tinycode programming forum:
https://www.reddit.com/r/tinycode/comments/o6m72h/tentris_a_10_line_x_72_characters_tetris_game_in/ (https://www.reddit.com/r/tinycode/comments/o6m72h/tentris_a_10_line_x_72_characters_tetris_game_in/)

Someone posted a GWBASIC version of Tetris:

Code: QB64: [Select]
  1. 0 P$="BJ@@QJI@JB@@IJQ@IIII@D@@JJ@@JJ@@QQJ@AC@@JII@CQ@@IIJ@CA@@JQQ@QC@@"
  2. 1 CLS:B$=CHR$(219):FOR Y=1 TO 19:PRINT,B$,B$:NEXT:PRINT,STRING$(15,B$)
  3. 2 X=19:C=X:R=C:WHILE R:D=13:FOR E=16 TO 28:D=D+(SCREEN(R,E)=219):NEXT
  4. 3 IF D THEN FOR E=16 TO 28:LOCATE C,E:PRINT CHR$(SCREEN(R,E)):NEXT:C=C-1
  5. 4 R=R-1:WEND:Y=0:Z=INT(RND*6)*8:Z=Z-(Z>39)*8:I=8-(Z>31)*8:WHILE 1:C$=""
  6. 5 H=0:GOSUB 8:C$=B$:IF H THEN R=Q:X=U:IF A$=""THEN Y=Y-1:GOSUB 8:GOTO 2
  7. 6 GOSUB 8:Q=R:U=X:A$=INKEY$:IF""=A$ THEN IF TIMER<S THEN 6 ELSE S=TIMER+.5
  8. 7 C$=" ":GOSUB 8:X=X+(A$="A")-(A$="D"):Y=Y-(A$=""):R=R-(A$="W")*4:WEND
  9. 8 FOR C=1 TO 4:D=ASC(MID$(P$,Z+R MOD I+C))-64:W=D\8:WHILE D:D=D-1 AND 7
  10. 9 H=H+(SCREEN(Y+C,X+W+D)>32):LOCATE Y+C,X+W+D:PRINT C$:WEND:NEXT:RETURN
  11.  

With a minor tweak (applied in the above posted code) it compiles and runs with QB64!  Cool!

This is good for any Basic Interpreter... few code few read again..

The other version is better for compiler and human coders but worse for Basic Interpreter
:-)  Human / Machine two poles in opposition.
Title: Re: Tiny Tetris
Post by: MasterGy on June 27, 2021, 11:18:21 am
this code is brilliant !!! :)
Title: Re: Tiny Tetris
Post by: Juan Tamarit on June 27, 2021, 01:12:34 pm
I agree with NOVARSEC: half the code is ":". This should not be called a 10 line program. Otherwise anybody can make a 1 line program... just : every single line LOL
Title: Re: Tiny Tetris
Post by: _vince on June 29, 2021, 12:56:58 pm
Quote from: Juan Tamarit on June 27, 2021, 01:12:34 pm
This should not be called a 10 line program. Otherwise anybody can make a 1 line program... just : every single line LOL

yeah, it's clearly not a 10-liner -- the code is an optical illusion.

Now, the question bothering me:  is a true 10 line tetris possible?
Title: Re: Tiny Tetris
Post by: SMcNeill on June 29, 2021, 10:20:55 pm
Quote from: _vince on June 29, 2021, 12:56:58 pm
yeah, it's clearly not a 10-liner -- the code is an optical illusion.

Now, the question bothering me:  is a true 10 line tetris possible?
Ummm…. Probably?

Pieces could be defined by

“SRU\” — Start, move Right, move Up, move diagional down and right.  Produces this piece:
   @
@@@

Other 4 command combos could define the rest of the pieces in a similar manner.  Just put them all in a single string to store them and manage them with MID$.  <—- All in 1 line of code.

Then it’s a DO…

   IF _KEYDOWN = (left arrow) then move to next entry in MID$ list MOD 4 to rotate ELSEIF key down….   ELSEIF key right…..   <— All in 1 line of code.

check screen to see if characters below are filled…. YES, place on top, check for full blocks NO… Move down

LOOP until no place to place block at top

5 lines for the base core (screen 0 to track pieces), so that gives a little wiggle room to try and do a minimalistic version in 10 lines.

Title: Re: Tiny Tetris
Post by: _vince on June 30, 2021, 06:55:53 pm
Quote from: SMcNeill on June 29, 2021, 10:20:55 pm
Ummm…. Probably?

Pieces could be defined by

“SRU\” — Start, move Right, move Up, move diagional down and right.  Produces this piece:
   @
@@@

Other 4 command combos could define the rest of the pieces in a similar manner.  Just put them all in a single string to store them and manage them with MID$.  <—- All in 1 line of code.

Then it’s a DO…

   IF _KEYDOWN = (left arrow) then move to next entry in MID$ list MOD 4 to rotate ELSEIF key down….   ELSEIF key right…..   <— All in 1 line of code.

check screen to see if characters below are filled…. YES, place on top, check for full blocks NO… Move down

LOOP until no place to place block at top

5 lines for the base core (screen 0 to track pieces), so that gives a little wiggle room to try and do a minimalistic version in 10 lines.

QED
Title: Re: Tiny Tetris
Post by: bplus on June 30, 2021, 07:03:45 pm
Quote
QED

??? where was the demo?

More like SS (Steve Says!) ;-)
Title: Re: Tiny Tetris
Post by: johnno56 on July 01, 2021, 04:38:56 am
"quod erat demonstrandum" ("that which was to be demonstrated").  Latin. It's all Greek to me....
Text Only | Text with Attachments