PRG:REVGRAV
動いている様子はコチラ
セツメイEXPLANATION
重力を反転させたり2段ジャンプしたりしてスターを集めるゲーム。5つ全て集めるとクリア。トゲトゲに当たるとミス。
Capture stars by reversing gravity and double-jumping. A stage is cleared if you capture 5 stars. It's a miss when you clash an enemy.
Aボタンでジャンプ/2段ジャンプ。十字ボタンの上下で重力を反転。クリア時もしくはミス時、Bボタンで次に進む。
You can jump and double-jump by A button. You can reverse the gravity vertically by cross-key. Press B button after stage-clearing or miss.
※ABAさんが作ったflash版の移植です。
※This is a port from flash version by ABA-games.
QRコードQR CODE
プログラムコードPROGRAM CODE
表示 Show
A,C,D,N | ステージ作成用 |
B | ボタンの状態 |
E | スクロール速度 |
F | スクロール量 |
G | 重力加速度 |
I | 汎用ループカウンタ |
J | ジャンプできる回数 |
K | 重力を反転できるか |
L | スターの数 |
M | ステージ作成中 or ゲーム中 |
P() | 各キャラの種類 |
Q | クリアした or ミスした |
R | ステージ数 |
T | プレイヤーのY座標 |
U | 赤いトゲトゲのY方向速度 |
W | プレイヤーのY方向速度 |
X(),Y() | 各キャラの座標 |
Z | 赤いトゲトゲのY座標 |
01. CLEARЛ
02. DIM P(99),X(99),Y(99)BGMPLAY 27Л
03. @IЛ
04. R=R+1ACLS?Л
05. C=-30D=C?”STAGE ”RЛ
06. E=R%5/4+1.5M=0GOSUB@VЛ
07. BGFILL 1,0,0,63,12,”1”*24+”0”*8BGFILL 0,0,0,63,23,”33073309”BGFILL 0,0,1,63,22,0Л
08. FOR I=0TO R+9P(I)=!RND(3)*(R>4)+1X(I)=RND(24)*16Л
09. Y(I)=88+(2-POW(RND(32)/32,50/R))*(I%2-.5)*80SPSET I,141,8-P(I)*3,0,0,1NEXTЛ
10. FOR L=0TO 4FOR N=RND(50)TO!L*30+60Л
11. A=!RND(33-C)*(C>9)C=(C+1)*!AЛ
12. B=!RND(66-D)*(D>9)D=(D+1)*!BЛ
13. B=A*16+B*3GOSUB@LЛ
14. NEXTЛ
15. P(L)=3X(L)=48Y(L)=TЛ
16. SPCHR L,156SPANIM L,4,3NEXTЛ
17. @SЛ
18. FOR I=0TO R+9X(I)=(X(I)+F)%384P(I)=3AND P(I)NEXTЛ
19. M=1Q=0L=5GOSUB@VЛ
20. @GЛ
21. B=BUTTON(1)GOSUB@LЛ
22. VSYNC 1IF!Q THEN@GЛ
23. @WЛ
24. ON(BTRIG()==32)*Q GOTO@W,@I,@SЛ
25. @LЛ
26. IF B/16AND J>0THEN J=J-1W=W-G*20BEEP 8,,M*64Л
27. IF B AND K*(.75-G)THEN K=0G=-G:BEEP 10,,M*64GOSUB@CЛ
28. U=U+G:Z=Z+UЛ
29. IF Z<8OR Z>168 THEN Z=(Z>8)*160+8U=0Л
30. FOR I=0TO R+9X(I)=X(I)-E+(X(I)<-16)*384IF P(I)==2THEN Y(I)=ZЛ
31. IF P(I)>0THEN SPOFS I,X(I),Y(I)Л
32. NEXTЛ
33. F=(F+E)%384BGOFS 0,F,0BGOFS 1,F/2,-Z/2W=W+G:T=T+WЛ
34. IF T<8OR T>168THEN T=(T>8)*160+8W=0IF(T-9)*G>0THEN J=2K=2Л
35. SPOFS 99,64,TЛ
36. IF!SPHIT(99,!M*5)THEN@RЛ
37. I=SPHITNOЛ
38. IF M THEN IF I<5THEN P(I)=-1SPOFS I,0,-16L=L-1Q=!L:BEEP 7+Q*25ELSE Q=2BEEP 11Л
39. IF!M THEN P(I)=0SPOFS I,0,-16Л
40. @RЛ
41. RETURNЛ
42. @VЛ
43. VISIBLE 1,1,M,M,M,1F=0G=.25J=2K=1T=168W=0Z=88U=0Л
44. @CЛ
45. SPSET 99,64,4,0,G<0,1SPANIM 99,4,5Л
46. SPCOL 99,M*4,M*4,16-M*8,16-M*8,0RETURNЛ
※コードのHTML生成にPTC2HTMLを使用しています。
モドル BACK