PRG:KANDUOSE
セツメイEXPLANATION
「看你有多色」のプチコン移植版。並んでいるタイルの中から、1つだけ微妙に色が違うものをタッチする。1分間で何回正解できるか。This is a port of 看你有多色. Touch the tile that has a different color. How many times you can find it in a minute?
1分経つとゲームオーバーで、画面左下の"RETRY"をタッチして再挑戦。The game is over after a minute, and you can retry a game by touching "RETRY" on the bottom left of screen.
QRコードQR CODE
プログラムコードPROGRAM CODE
表示 Show
C(),C$,E | カラーパレット設定用 |
D | 正解タイルの色変化量 |
F | 正解数 |
G | 縦横のタイルの数 |
H$,N,N$ | フォント設定用 |
I,J,K | 汎用ループカウンタ |
M | タイルの隙間の大きさ |
Q | 残り時間5秒以内か |
S | タイルの配置間隔 |
T | タッチの状態 |
Z | 残り時間(フレーム数) |
01. BGPAGE 1FOR I=1TO 5READ N$:H$=””FOR J=0TO 7N=ASC(MID$(N$,J,1))-60N=N-(N>66)*34Л
02. FOR K=0TO 7H$=H$+HEX$((1AND N)*15)N=N/2NEXT:NEXT:CHRSET”BGF”,I,H$NEXTЛ
03. @IЛ
04. ACLS:CLEAR:GPAGE 1Z=3600M=(BUTTON()!=256)*2BGMPLAY 18BGMVOL 64PNLSTR 1,2,”АБВГД”PNLTYPE”OFFЛ
05. @FЛ
06. GCLS 248GFILL 0,0,61,191,53G=9D=4-(F/20OR 0)IF F>49THEN D=1Л
07. IF F<17THEN G=VAL(MID$(”23455667778888888”,F,1))D=(9-G)*4Л
08. FOR I=0TO 1C$=””FOR J=0TO 2E=(D+J%2)/2OR 0C(J)=(RND(28-E)+2)*!I+(C(J)+E)*IЛ
09. C$=C$+HEX$(C(J)*8,2)NEXT:COLSET”GRP”,I+1,C$NEXTЛ
10. S=192/G OR 0FOR I=0TO 1GPUTCHR I*24+4,48,”BGF”,F/(!I*9+1)%10+48,6,4NEXTЛ
11. K=RND(G*G)FOR I=0TO G-1FOR J=0TO G-1GFILL J*S+M+64,I*S+M,J*S+S-M+63,I*S+S-M-1,!K+1K=K-1NEXT:NEXTЛ
12. @LЛ
13. Z=Z-1Q=Z<301PNLSTR 1,11,”Р”+MID$(STR$(Z/60+100.001),1,5),6-Q*3IF Z%60==0THEN BEEP 27+(Z%600==0OR Q)Л
14. T=TCHST+T%2*2VSYNC 1IF Z THEN IF T==1AND GSPOIT(TCHX,TCHY)==2THEN BEEP 3,F*64F=F+1GOTO@F ELSE@LЛ
15. PNLSTR 1,22,”RETRY”,1BGMSTOP:BEEP 11Л
16. @VЛ
17. ON TCHST*TCHY>167AND TCHX<64GOTO@V,@IЛ
18. DATA lJxンby`x,Dリ・NvエーN,@ン@zy`x`,TRDユェョ¥Z,XODzfz~レЛ
※コードのHTML生成にPTC2HTMLを使用しています。
モドル BACK