Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2017/06/16 18:20:16

MixJuice GET URL : kidspod.club/mj/221

テトリスもどき

いわゆるテトリスです。

操作
← 左に移動
→ 右に移動
↓ 速く落とす
スペース 回転する

点数
1行消し 30点
2行消し 120点
3行消し 390点
4行消し 1200点

  • 1
  • 1

SOURCE CODE

1 'テトリスモト゛キ
10 CLS:CLV:A=2:B=3:Q=40:LET[0],5533,35243,5533,35243,325,325,325,325,9577,342,9577,342,5482,22153,5482,22153,4714,17768,5530,9302,9882,17770,4697,1110,5209,17769,5481,5206
20 FORI=2TO21:LC0,I:?CHR$(A):LC11,I:?CHR$(A):NEXT:FORI=0TO11:LCI,22:?CHR$(A):NEXT
30 @A:Q=Q-1:O=Q:LC0,0:?"SCORE:";G:X=14:Y=3:Z=R:R=RND(28):P=R:C=B:GSB@C:X=5:Y=2:S=X:T=Y:U=Z:GSB@D:IFFEND
40 @B:C=B:P=Z:GSB@C:FORJ=0TOO*(O>0):K=INKEY():IFK=32S=X:T=Y:U=Z+1-(Z%4=3)*4:GSB@D:IF!FC=0:GSB@C:P=U:Z=U:C=B:GSB@C
50 D=(K=29)-(K=28):O=O-O*(K=31):IF!DGOTO@F
60 S=X+D:T=Y:U=Z:GSB@D:IF!FC=0:GSB@C:X=X+D:C=B:GSB@C
70 @F:NEXT:S=X:T=Y+1:U=Z:GSB@D
80 IFFC=A:GSB@C:H=0:M=X:N=Y:X=14:Y=3:P=R:C=0:GSB@C:X=M:Y=N:FORI=YTOY+3:D=0:FORL=1TO10:D=D+(SCR(L,I)!=0)*(I<22):NEXT:H=H+(D=10)*(H+15)*2:COPY#90B+I*32,#90B+(I-(D=10))*32,-I*32+85:NEXT:G=G+H:GOTO@A
90 C=0:GSB@C:Y=Y+1:GOTO@B
100 @C:FORI=0TO3:E=P:GSB@E:LCX+V,Y+W:?CHR$(C):NEXT:RTN
110 @D:F=0:FORI=0TO3:E=U:GSB@E:F=F+(SCR(S+V,T+W)=A):NEXT:RTN
120 @E:V=[E]>>(I*4+2)&3:W=[E]>>(I*4)&3:RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/06/20 17:02:08

すごい! 見事にテトリスですね。キーバッファの問題かと思いますが、本家とちがって、先行してキーを入力できるのがひとつの面白さになっていると思いました。焦って何度もキーを入力してしまうと大失敗につながるという恐ろしさ!