PRG:SHIWAKE
セツメイEXPLANATION
紫色と水色の複数のオブジェクトが散らばっている。しばらくすると画面が白黒になるので、記憶力を頼りに同じ色のオブジェクトを左右に仕分ける。There are several purple and blue objects. You must separate them into 2 groups by color, but the screen will be black-and-white in a little time.
タッチペンでオブジェクトを移動。ただし、画面が白黒になってから、画面中央のバーが緑から赤に変わるまでに操作を終わらせなければならない。You can move an object by touch pen while the screen is black-and-white. The central bar shows the time limit.
仕分けが成功したら、画面タップで次のレベルへ。仕分けが失敗したら、画面タップではじめからやり直し。If you succeeded, you can try next level by tapping. If you failed, you can retry first level by tapping.
QRコードQR CODE
プログラムコードPROGRAM CODE
表示 Show
A | オブジェクトの数 |
B | 効果音の種類 |
C | カラー設定 (0:モノクロ 1:カラー) |
E | 定数128 |
F | 仕分け判定 (0:成功 それ以外:失敗) |
I,J | 汎用ループカウンタ |
L | 前フレームのタッチ状態 |
N | 制限時間の描画用 |
P | 操作中のオブジェクト (0:未操作 1~:スプライト番号) |
Q | 仕分け判定用カウンタ |
S | オブジェクトの種類 |
T | タッチ状態 |
X,Y | タッチ座標、スプライト座標 |
Z | 経過時間 |
01. PNLTYPE”OFF”E=128FOR A=6TO 98Л
02. ACLS:IF A<7THEN BGMPLAY 27Л
03. PNLSTR 0,0,”レヘ゛ル”+STR$(A/2-2)Л
04. S=111+A%5SPPAGE 1FOR I=1TO AЛ
05. SPSET I,S,0,0,0,3FOR J=0TO 1Л
06. SPOFS I,RND(240),RND(168)+8Л
07. J=!SPHIT(I)NEXT:NEXT:GPAGE 1Л
08. B=32C=1GOSUB@S:WAIT A*10+60Л
09. B=40C=0GOSUB@S:N=A/6P=0L=0Q=0Л
10. FOR Z=0TO A*32X=TCHX:Y=TCHYЛ
11. T=TCHST:FOR I=A*(!T+L)+1TO AЛ
12. IF SPHITRC(I,X,Y,1,1)THEN P=IЛ
13. NEXT:GPSET E,Z/N,2WAIT 1P=P*TЛ
14. L=T:IF P THEN SPOFS P,X-8,Y-8Л
15. NEXT:FOR I=1TO A:SPREAD(I),XЛ
16. Q=Q+(X+8<E==I%2)F=Q*(Q-A)NEXTЛ
17. B=!F+4C=1IF F THEN BGMSTOPЛ
18. PNLSTR 7,0,CHR$(254-!F*25),3Л
19. GOSUB@S:A=(A-4)*!F+5WAIT T*30Л
20. FOR I=0TO 1I=TCHST:NEXT:NEXTЛ
21. @SЛ
22. BEEP B:GCLS!C*28+1FOR I=1TO AЛ
23. SPCHR I,S,(I%2*3+9)*C,0,0,3Л
24. NEXT:GLINE E,0,E,191,11RETURNЛ
※なんとなく1画面に収めてみました
※コードのHTML生成にPTC2HTMLを使用しています。
モドル BACK