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

投稿プログラム : 宝石商サム

パンくずリスト

2012年4月26日投稿 / 投稿者 : いのっち / タグ : 投稿プログラム ゲーム アクションゲーム 初代対応 移植

概要

むかし、マイコンBASICマガジンに掲載されたゲームを移植したものです。
一部元のゲームとは違うところがありますが、気にしないでください。
自分がどこまでいけるか挑戦してみてください。

遊び方

 プレイヤーを操作して、海の底に沈んでいる宝石を取っていくゲームです。
 全部の宝石を採ると1レベルクリアーです。
 敵に触れたり、命綱を切られたり、空気(AIR)が0になったら残りが一つ減り、全部なくなるとゲームオーバーです。
 ちなみに、潜っていない時は、空気は回復していきます。

操作方法

 左、右ボタン:左右に移動。(地上に出ている間のみ。)
 上ボタン:上昇。(潜っているときのみ。)
 下ボタン:潜る。
 スタートボタン:ゲームスタート、ポーズをかけたり解除するときに使う。

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

QR コード

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

PRG:HSSAM
qr0.pngqr1.png

プログラムリスト

  1. @SET1 ′セッテイ1
  2. VSYNC 15:CLS:CLEAR:COLOR 5
  3. DIM HX(14),HF(14)
  4. HS=50
  5. @TITLE ′タイトル
  6. LOCATE 10,5:?”JEWELER SAM”
  7. LOCATE 10,7:?”HI−SCORE:”HS
  8. LOCATE 13,9:?”CAST”
  9. LOCATE 12,11:?”г: SAM”
  10. LOCATE 12,13:?”Е: ROBOT”
  11. LOCATE 12,15:?”б: JEWEL”
  12. LOCATE 7,19:?”PUSH START BUTTON!”
  13. LOCATE 7,22:?”(C) 2012/4/26 イノッチ”
  14. @TLOOP ′タイトル ル−フ゜
  15. B=BUTTON():IF B==1024 THEN LF=3:LV=1:TM=3:WT=0:GOTO @SET2
  16. GOTO @TLOOP
  17. @SET2  ′セッテイ2
  18. CLS:IF LF<1 GOTO @GOVER
  19. MX=10:MY=5:AIR=100:MFL=0:FL=0:DR=1
  20. HLF=14:EX(0)=15:EY(0)=5:EX(1)=15:EY(1)=RND(18)
  21. IF EY(1)<8 THEN EY(1)=EY(1)+8
  22. LOCATE 0,6:FOR I=0 TO 31:?”В”;:NEXT
  23. @PRHS ′ホウセキセッテイ&ヒョウシ゛
  24. FOR I=0 TO 13
  25. HX(I)=2+I*2:HF(I)=0
  26. LOCATE HX(I),22:?”б”;
  27. NEXT
  28. VSYNC 15
  29. @MLOOP  ′メインル−フ゜
  30. LOCATE 24,0:? ”AIR:”AIR” ”
  31. LOCATE 0,0:?”SCORE:”SC
  32. LOCATE 11,0:?”г:”LF
  33. LOCATE 17,0:?”LV:”LV
  34. GOSUB @PLR
  35. GOSUB @GET
  36. WT=WT−TM:IF WT<0 THEN GOSUB @ENM1:GOSUB @ENM2:WT=10
  37. IF LV>10 THEN WT=0
  38. IF B AND 1024 THEN GOSUB @PAUSE
  39. IF HLF<1 GOTO @CLR
  40. GOSUB @MISS
  41. IF MFL==1 GOTO @SET2
  42. VSYNC 12:GOTO @MLOOP
  43. @PLR ′フ゜レイヤ−
  44. LOCATE MX,MY:?” ”;:B=BUTTON()
  45. IF B AND 0 RETURN
  46. IF B AND 2 THEN FL=1:IF MY==5 THEN MY=6
  47. IF B AND 1 THEN IF MY<8 THEN FL=0:MY=5
  48. IF FL==0 THEN MX=MX−(B AND 4)/4+(B AND 8)/8
  49. IF MX<1 THEN MX=0
  50. IF MX>30 THEN MX=31
  51. IF FL AND 1 THEN GOSUB @KOUKA
  52. IF MY>22 THEN MY=22
  53. AIR=AIR+(FL==0)−(FL==1):IF AIR>100 THEN AIR=100
  54. LOCATE MX,MY:?”г”;:RETURN
  55. @KOUKA  ′コウカ
  56. IF FL AND 1 THEN MY=MY−(B AND 1)+(B AND 2)/2
  57. IF MY>7 THEN LOCATE MX,MY−1:?””;
  58. RETURN
  59. @ENM1 ′テキ1
  60. LOCATE EX(0),EY(0):?” ”;
  61. EX(0)=EX(0)+DR
  62. FLG=(EX(0)<1) OR (EX(0)>30)
  63. IF FLG==1 THEN DR=−1*DR
  64. LOCATE EX(0),EY(0):?”Е”;
  65. RETURN 
  66. @ENM2 ′テキ2
  67. LOCATE EX(1),EY(1):?” ”;
  68. DIR=RND(4)+1:EX(1)=EX(1)−(DIR<=2)+(DIR>=3)
  69. IF EX(1)<0 THEN EX(1)=1Л
  70. IF EX(1)>30 THEN EX(1)=29
  71. LOCATE EX(1),EY(1):?”Е”;
  72. RETURN
  73. @GET ′ホウセキ ヲ テニイレタ
  74. FOR I=0 TO 13
  75. IF HF(I)==0 AND HX(I)==MX AND MY==22 THEN HF(I)=1:SC=SC+1:HLF=HLF−1
  76. NEXT I:RETURN
  77. @MISS ′ミス
  78. IF MX==EX(0) AND MY==EY(0) GOTO @MISS2
  79. IF MX==EX(1) AND EY(1)<MY GOTO @MISS2
  80. IF AIR<1 THEN GOTO @MISS2
  81. RETURN
  82. @MISS2
  83. LF=LF−1:MFL=1:RETURN
  84. @CLR ′ステ−シ゛クリア−
  85. LOCATE 10,10:?”CLEAR!”:WAIT 180
  86. LV=LV+1:TM=LV+1:IF LV>9 THEN WT=0
  87. CLS:GOTO @SET2
  88. @PAUSE  ′ホ゜−ス゛
  89. WAIT 15:LOCATE 14,2:?”PAUSE”
  90. @PLOOP  ′ホ゜−ス゛ ル−フ゜
  91. B=BUTTON()
  92. IF B AND 1024 THEN LOCATE 14,2:?”     ”:VSYNC 6:RETURN
  93. GOTO @PLOOP
  94. @GOVER  ′ケ゛−ムオ−ハ゛−
  95. LOCATE 10,10:? ”GAME OVER”
  96. IF SC>HS THEN HS=SC
  97. VSYNC 120:CLS:GOTO @TITLE

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

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

  • ウイング : QR早く欲しいです!!! (2012/04/27 (金) 20:31:19)
  • ウイングの友達 : あせるな、ウイング! でも早くのせてお!ヨロシクだお (2012/04/27 (金) 22:02:33)
  • ウイングの友達 : 早くやりたいですぅ!早めのうp頼みます! (2012/04/27 (金) 22:04:11)
  • ジオライド : QRコード載せました。名前はHSSAMです。 (2012/04/28 (土) 11:15:34)
  • いのっち : ジオライドさん、ありがとう!! (2012/04/28 (土) 21:08:39)
  • ジオライド : QRコードタグ忘れてたゼ… OTL (2012/04/28 (土) 23:26:50)
  • 名も無き名無し : 一度ポーズかけたら、ポーズ解除できなくなります。 (2012/04/29 (日) 18:24:06)
  • ウイングの友達 : QRうpありがとうございます! (2012/04/30 (月) 08:02:42)
  • いのっち : リストの103行目を訂正しました。これでポーズ解除できると思います。 (2012/05/01 (火) 21:03:15)
  • 名無しさん : その訂正あまり効果無いみたいですね、102行目(実機103行)をB=BUTTON(3)にしては?今度はポーズ状態に入るのが失敗しやすくなるけど。あと初代対応タグが消える (2012/05/01 (火) 22:44:04)
  • 名無しさん : なんで皆QR欲しがるの? (2012/05/02 (水) 16:26:30)
  • 名無しさん : ↑確かに (2012/05/02 (水) 16:42:17)
  • 名無しさん : 時間短縮って、www 自分で打って、[後ちょっとだー」というように懐かしむのが、楽しいんだよ。ぼうやには、わからないよな! (2012/05/02 (水) 17:26:11)
  • 名無しさん : ↑確かに (2012/05/02 (水) 21:03:00)
  • ウイング : ↑手打ちだとエラーが出まくったトラウマが出てしまうので(泣) (2012/05/03 (木) 21:47:50)
  • 名無しさん : ゆとりが多いなー、あとこれおもろいな (2012/11/02 (金) 14:55:58)
  • Anonomous : ... (2013/04/12 (金) 13:47:34)
  • 名無しさん : ↑×5 なにしろ元がベーマガですからね。 (2015/01/10 (土) 22:22:54)

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