2014年3月31日投稿 / 投稿者 : OBONO / タグ : 投稿プログラム mkII専用 パズル QRコード
ここ半月ばかりネット上で話題になっているパズル 2048 のプチコン移植版。 数字のタイルが次々に出てくるので、うまく移動させて大きい数字のタイルを作っていく。
プチコンmkII 向けのQRコードです。
ACLS:GCLS 34GFILL 23,0,214,191,83GPAGE 1FOR C=1TO 13READ C$Л COLSET”SP”,C,C$GFILL 0,0,22,22,CЛ Z=POW(2,C)L=(C-1-(C>12))/3OR 0X=8+L*3FOR I=0TO LЛ GPUTCHR X,8,”BGF”,Z%10+48,0,1X=X-6Z=Z/10NEXTЛ FOR I=0TO 3FOR J=0TO 3C$=””FOR K=0TO 63C$=C$+HEX$(GSPOIT(J*8+K%8,I*8+K/8))NEXTЛ CHRSET”SPU”,C*16+I*4+J,C$NEXT:NEXT:NEXTЛ @IЛ CLEAR:SPCLR:CLS:COLOR 8?” ”*27;”SCOREЛ DIM F(6,6),C(18)FOR I=0TO 5F(0,I)=1F(5,I)=1F(I,0)=1F(I,5)=1NEXTЛ C(1)=-1GOSUB@A:GOSUB@AЛ @LЛ B=BTRIG()IF B==32THEN@IЛ V=(B==8)-(B==4)W=(B==2)-(B==1)IF!V*!W THEN@LЛ P=(V-W>0)*3+1Q=(V+W>0)*3+1U=0FOR I=0TO 15F=F(P,Q)C=C(F)F(P,Q)=0X=P:Y=QЛ @MЛ X=X+V:Y=Y+W:E=F(X,Y)Z=C(E)IF!E THEN@M ELSE IF C==Z THEN C(F)=C+.5C(E)=0ELSE X=X-V:Y=Y-WЛ IF F THEN Z=ABS(P+Q-X-Y)SPOFS F,X*48,Y*48-23,Z*4U=U+(Z>U)*(Z-U)F(X,Y)=FЛ Z=I%4==3P=P-V+Z*(V*4+W)Q=Q-W+Z*(W*4-V)NEXT:IF!U THEN@LЛ WAIT U*3FOR I=2TO 17C=C(I)IF!C THEN SPCLR IЛ IF C%1THEN C=C+.5C(I)=C:N=N+POW(2,C)SPCHR I,C*4SPSCALE I,100SPSCALE I,200,8Л NEXT:GOSUB@AЛ GOTO@LЛ @AЛ X=RND(4)+1Y=RND(4)+1IF C(F(X,Y))THEN@AЛ @SЛ S=S%17+1IF C(S)THEN@SЛ C=!RND(16)+1C(S)=C:F(X,Y)=S:LOCATE 27,1?NЛ SPSET S,C*4,0,0,0,1,32,32SPHOME S,12,12SPOFS S,X*48,Y*48-23SPSCALE S,0SPSCALE S,200,8WAIT 8RETURNЛ DATA BFBFBF,DFBF9F,FFBF7F,FF9F6F,FF7F5F,FF5F3F,FFCF7F,FFC76F,FFBF5F,FFB73F,FFAF1F,CFD700,9FFF00Л
自慢をしたければご自由に。
※要望は一切受け付けません。頑張って自分で改良してみましょう。