プチコンまとめWiki (初代/mkII)

投稿プログラム : UFO SHOT

パンくずリスト

2012年4月2日投稿 / 投稿者 : いのっち / タグ : 投稿プログラム ゲーム シューティングゲーム QRコード 初代対応

遊び方

  • 遊び方は簡単です。自機を動かして画面下に降りてくるUFOを撃ち落とすだけです。
  • 制限時間以内に20機以上撃ち落とせば1レベルクリアです。
  • UFOにぶつかると残機が1つ減ります。
  • 残機がすべてなくなるか、制限時間以内にきていのUFOを撃ち落とさなかったら、ゲームオーバーです。

操作方法

  • 十字ボタンの右/左 自機移動
  • Aボタン ビーム発射
  • スタートボタン ポーズ/ポーズ解除

その他

  • 初めて作りました。クソゲーかもしれません。
  • バグがあるかもしれませんが、大目に見てください。
  • 参考ゲームはスペースインベーダーです。
  • 次回は簡単なアクションゲームを投稿する予定です。

スクリーンショット・動画

動作しているところを撮影した写真や動画があれば貼り付けてください。

QR コード

プチコンmkII 向けの QR コードです。

1/32/33/3
ufoshot qr0.pngufoshot qr1.pngufoshot qr2.png

プログラムリスト

  1. CLS:CLEAR:BGMSTOP:WAIT 20
  2. @TITLE
  3. LOCATE 9,6:?”イノッチクン ノ”
  4. LOCATE 11,8:?”UFO SHOT!”
  5. LOCATE 9,15:?”PUSH START!!”
  6. LOCATE 6,20:?” (C)2012/4/2 イノッチ”
  7. @LOOP1
  8. B=BUTTON()
  9. IF B AND 1024 THEN GOTO @SETTING
  10. GOTO @LOOP1
  11. @SETTING
  12. CLS:CLEAR:TM=1500:LF=3:LV=1:TJ=30:DIM EX(20),EY(20)
  13. EMAX=LV:FOR I=0 TO 2+EMAX:GOSUB @EINIT
  14. NEXT I:WAIT 20
  15. MX=5:MY=21:LOCATE 0,22
  16. FOR I=0 TO 31:?”=”;:NEXT:BGMPLAY 0
  17. @START
  18. BGMPLAY 0
  19. @MLOOP
  20. LOCATE 2,23:?”SC: ”SC;
  21. LOCATE 11,23:?”TIME”;TM;” ”;
  22. LOCATE 21,23:?”Г:”LF;
  23. LOCATE 25,23:?”LV:”LV;
  24. GOSUB @EMOVE:GOSUB @MMV
  25. GOSUB @SHT:WAIT 6:TM=TM−1
  26. IF TM<0 AND TJ>=20 THEN GOSUB @STCLR
  27. IF LF<1 OR (TM<1 AND TJ<=19) THEN CLS:GOTO @GOVER
  28. GOTO @MLOOP
  29. @EINIT
  30. EX(I)=RND(29):EY(I)=RND(6)
  31. RETURN
  32. @MMV
  33. K=BUTTON():IF K AND 0 THEN RETURN
  34. IF K AND 1024 THEN @PAUSE
  35. LOCATE MX,MY:?” ”;
  36. MX=MX+(K AND 8)/8−(K AND 4)/4
  37. IF MX<1 THEN MX=0
  38. IF MX>30 THEN MX=31
  39. LOCATE MX,MY:?”Г”;:FOR I=0 TO 2+LV
  40. IF MX>=EX(I) AND MX<=EX(I)+2 AND EY(I)>MY THEN GOSUB @MISS
  41. NEXT:RETURN
  42. @SHT
  43. IF K AND 16 THEN IF FL==0 THEN FL=1:SX=MX:SY=MY−1:BEEP 10
  44. IF FL==0 THEN RETURN
  45. GOSUB @KESU:SY=SY−1
  46. LOCATE SX,SY:?”│”;:GOSUB @HIT
  47. IF SY<1 THEN GOSUB @KESU:SY=50:FL=0
  48. RETURN
  49. @KESU
  50. LOCATE SX,SY:?” ”;:RETURN
  51. @EMOVE
  52. FOR I=0 TO 2+EMAX
  53. LOCATE EX(I),EY(I)? ”   ”;
  54. DIR=RND(3)
  55. EX(I)=EX(I)−(DIR AND 1)+(DIR AND 2)/2
  56. EY(I)=EY(I)+(DIR AND 3)/3
  57. IF EX(I)>29 THEN EX(I)=0
  58. IF EX(I)<1 THEN EX(I)=28
  59. IF EY(I)>22 THEN EY(I)=0
  60. LOCATE EX(I),EY(I):?”=●=”;
  61. NEXT:GOSUB @HIT:RETURN
  62. @HIT
  63. FOR I=0 TO 2+EMAX
  64.  IF SX>=EX(I) AND SX<=EX(I)+2 AND SY>EY(I)−1 AND SY<EY(I) THEN GOSUB @HIT2
  65. NEXT:RETURN
  66. @HIT2
  67. LOCATE SX,SY:?” ”;:TJ=TJ+1:BEEP 11
  68. SC=SC+1:LOCATE EX(I),EY(I):?”   ”;
  69. FL=0:SY=99:GOSUB @EINIT:RETURN
  70. @MISS
  71. BEEP 13:FOR I=0 TO 15:COLOR RND (15):WAIT 5
  72. LOCATE MX,MY:?”***”;:NEXT:LF=LF−1
  73. COLOR 15:LOCATE MX−1,MY:?”    ”;:IF LF<1 THEN GF=1
  74. MX=9:RETURN
  75. @GOVER
  76. BGMPLAY 6:LOCATE 10,10:?”GAME OVER”
  77. LOCATE 10,15:?” SCCRE:”SC:WAIT 400:
  78. GOTO @TITLE
  79. @STCLR
  80. BGMPLAY 4:LOCATE 10,10:?”CLEAR!!”:EMAX=EMAX+1:LV=LV+1:TM=1500
  81. IF LV>10 THEN EMAX=10
  82. TJ=0:FOR I=0 TO 2+LV:GOSUB @EINIT:NEXT
  83. WAIT 190:CLS:LOCATE 0,22
  84. FOR I=0 TO 31:?”=”;:NEXT:GOTO @START
  85. @PAUSE
  86. WAIT 15:BEEP
  87. @LOOP
  88. B=BUTTON():IF B==0 GOTO @LOOP
  89. IF B==1024 THEN WAIT 15:RETURN

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : pushってどこをpushするの? (2012/04/06 (金) 21:56:36)
  • 人間 : てっきりボタン押したらスタートって思った (2012/04/09 (月) 15:11:38)
  • EXE : ただいま ufoshot 改造中... (2012/04/29 (日) 19:36:14)
  • hata0401 : 結構遊べますね (2012/06/10 (日) 21:37:52)
  • hata0401 : 最初、「ウフォショット」かと思ってたよwww (2012/06/10 (日) 21:39:22)
  • yama : むずい (2012/07/25 (水) 16:54:56)
  • ウイング : すごい (2012/07/25 (水) 18:34:51)
  • sあ : hata0401のまちがいがすごいww こっちも「ウフォショット」かと思ってたよwww(UFOがUHOに見えたww) (2013/04/02 (火) 16:23:47)
  • しお姉 : 「ウフォショット」が「ウショフォント」に見えた。 (2013/04/02 (火) 18:19:46)
  • 名無しさん : ウフォいいショット(意味深) (2013/04/02 (火) 18:28:13)
  • シトリン : アッー!カキッー! (2013/04/03 (水) 01:06:32)
  • wR : しお姉と名無しさんの発想すごいwww (2013/04/03 (水) 01:25:49)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.119 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:07 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30