プチコンまとめArchive

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

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:11
公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/HSSAM.html

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

概要

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

遊び方

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

操作方法

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

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

QR コード

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

PRG:HSSAM
qr0.pngqr1.png

プログラムリスト

  1. ＠ＳＥＴ１　′セッテイ１
  2. ＶＳＹＮＣ　１５：ＣＬＳ：ＣＬＥＡＲ：ＣＯＬＯＲ　５
  3. ＤＩＭ　ＨＸ（１４），ＨＦ（１４）
  4. ＨＳ＝５０
  5. ＠ＴＩＴＬＥ　′タイトル
  6. ＬＯＣＡＴＥ　１０，５：？”ＪＥＷＥＬＥＲ　ＳＡＭ”
  7. ＬＯＣＡＴＥ　１０，７：？”ＨＩ－ＳＣＯＲＥ：”ＨＳ
  8. ＬＯＣＡＴＥ　１３，９：？”ＣＡＳＴ”
  9. ＬＯＣＡＴＥ　１２，１１：？”г：　ＳＡＭ”
  10. ＬＯＣＡＴＥ　１２，１３：？”Е：　ＲＯＢＯＴ”
  11. ＬＯＣＡＴＥ　１２，１５：？”б：　ＪＥＷＥＬ”
  12. ＬＯＣＡＴＥ　７，１９：？”ＰＵＳＨ　ＳＴＡＲＴ　ＢＵＴＴＯＮ！”
  13. ＬＯＣＡＴＥ　７，２２：？”（Ｃ）　２０１２／４／２６　イノッチ”
  14. ＠ＴＬＯＯＰ　′タイトル　ル－フ゜
  15. Ｂ＝ＢＵＴＴＯＮ（）：ＩＦ　Ｂ＝＝１０２４　ＴＨＥＮ　ＬＦ＝３：ＬＶ＝１：ＴＭ＝３：ＷＴ＝０：ＧＯＴＯ　＠ＳＥＴ２
  16. ＧＯＴＯ　＠ＴＬＯＯＰ
  18. ＠ＳＥＴ２　　′セッテイ２
  19. ＣＬＳ：ＩＦ　ＬＦ＜１　ＧＯＴＯ　＠ＧＯＶＥＲ
  20. ＭＸ＝１０：ＭＹ＝５：ＡＩＲ＝１００：ＭＦＬ＝０：ＦＬ＝０：ＤＲ＝１
  21. ＨＬＦ＝１４：ＥＸ（０）＝１５：ＥＹ（０）＝５：ＥＸ（１）＝１５：ＥＹ（１）＝ＲＮＤ（１８）
  22. ＩＦ　ＥＹ（１）＜８　ＴＨＥＮ　ＥＹ（１）＝ＥＹ（１）＋８
  23. ＬＯＣＡＴＥ　０，６：ＦＯＲ　Ｉ＝０　ＴＯ　３１：？”В”；：ＮＥＸＴ
  25. ＠ＰＲＨＳ　′ホウセキセッテイ＆ヒョウシ゛
  26. ＦＯＲ　Ｉ＝０　ＴＯ　１３
  27. ＨＸ（Ｉ）＝２＋Ｉ＊２：ＨＦ（Ｉ）＝０
  28. ＬＯＣＡＴＥ　ＨＸ（Ｉ），２２：？”б”；
  29. ＮＥＸＴ
  30. ＶＳＹＮＣ　１５
  32. ＠ＭＬＯＯＰ　　′メインル－フ゜
  33. ＬＯＣＡＴＥ　２４，０：？　”ＡＩＲ：”ＡＩＲ”　”
  34. ＬＯＣＡＴＥ　０，０：？”ＳＣＯＲＥ：”ＳＣ
  35. ＬＯＣＡＴＥ　１１，０：？”г：”ＬＦ
  36. ＬＯＣＡＴＥ　１７，０：？”ＬＶ：”ＬＶ
  37. ＧＯＳＵＢ　＠ＰＬＲ
  38. ＧＯＳＵＢ　＠ＧＥＴ
  39. ＷＴ＝ＷＴ－ＴＭ：ＩＦ　ＷＴ＜０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＮＭ１：ＧＯＳＵＢ　＠ＥＮＭ２：ＷＴ＝１０
  40. ＩＦ　ＬＶ＞１０　ＴＨＥＮ　ＷＴ＝０
  41. ＩＦ　Ｂ　ＡＮＤ　１０２４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＡＵＳＥ
  42. ＩＦ　ＨＬＦ＜１　ＧＯＴＯ　＠ＣＬＲ
  43. ＧＯＳＵＢ　＠ＭＩＳＳ
  44. ＩＦ　ＭＦＬ＝＝１　ＧＯＴＯ　＠ＳＥＴ２
  45. ＶＳＹＮＣ　１２：ＧＯＴＯ　＠ＭＬＯＯＰ
  47. ＠ＰＬＲ　′フ゜レイヤ－
  48. ＬＯＣＡＴＥ　ＭＸ，ＭＹ：？”　”；：Ｂ＝ＢＵＴＴＯＮ（）
  49. ＩＦ　Ｂ　ＡＮＤ　０　ＲＥＴＵＲＮ
  50. ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＦＬ＝１：ＩＦ　ＭＹ＝＝５　ＴＨＥＮ　ＭＹ＝６
  51. ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＩＦ　ＭＹ＜８　ＴＨＥＮ　ＦＬ＝０：ＭＹ＝５
  52. ＩＦ　ＦＬ＝＝０　ＴＨＥＮ　ＭＸ＝ＭＸ－（Ｂ　ＡＮＤ　４）／４＋（Ｂ　ＡＮＤ　８）／８
  53. ＩＦ　ＭＸ＜１　ＴＨＥＮ　ＭＸ＝０
  54. ＩＦ　ＭＸ＞３０　ＴＨＥＮ　ＭＸ＝３１
  55. ＩＦ　ＦＬ　ＡＮＤ　１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＫＯＵＫＡ
  56. ＩＦ　ＭＹ＞２２　ＴＨＥＮ　ＭＹ＝２２
  57. ＡＩＲ＝ＡＩＲ＋（ＦＬ＝＝０）－（ＦＬ＝＝１）：ＩＦ　ＡＩＲ＞１００　ＴＨＥＮ　ＡＩＲ＝１００
  58. ＬＯＣＡＴＥ　ＭＸ，ＭＹ：？”г”；：ＲＥＴＵＲＮ
  60. ＠ＫＯＵＫＡ　　′コウカ
  61. ＩＦ　ＦＬ　ＡＮＤ　１　ＴＨＥＮ　ＭＹ＝ＭＹ－（Ｂ　ＡＮＤ　１）＋（Ｂ　ＡＮＤ　２）／２
  62. ＩＦ　ＭＹ＞７　ＴＨＥＮ　ＬＯＣＡＴＥ　ＭＸ，ＭＹ－１：？”￤”；
  63. ＲＥＴＵＲＮ
  65. ＠ＥＮＭ１　′テキ１
  66. ＬＯＣＡＴＥ　ＥＸ（０），ＥＹ（０）：？”　”；
  67. ＥＸ（０）＝ＥＸ（０）＋ＤＲ
  68. ＦＬＧ＝（ＥＸ（０）＜１）　ＯＲ　（ＥＸ（０）＞３０）
  69. ＩＦ　ＦＬＧ＝＝１　ＴＨＥＮ　ＤＲ＝－１＊ＤＲ
  70. ＬＯＣＡＴＥ　ＥＸ（０），ＥＹ（０）：？”Е”；
  71. ＲＥＴＵＲＮ　
  73. ＠ＥＮＭ２　′テキ２
  74. ＬＯＣＡＴＥ　ＥＸ（１），ＥＹ（１）：？”　”；
  75. ＤＩＲ＝ＲＮＤ（４）＋１：ＥＸ（１）＝ＥＸ（１）－（ＤＩＲ＜＝２）＋（ＤＩＲ＞＝３）
  76. ＩＦ　ＥＸ（１）＜０　ＴＨＥＮ　ＥＸ（１）＝１Л
  77. ＩＦ　ＥＸ（１）＞３０　ＴＨＥＮ　ＥＸ（１）＝２９
  78. ＬＯＣＡＴＥ　ＥＸ（１），ＥＹ（１）：？”Е”；
  79. ＲＥＴＵＲＮ
  81. ＠ＧＥＴ　′ホウセキ　ヲ　テニイレタ
  82. ＦＯＲ　Ｉ＝０　ＴＯ　１３
  83. ＩＦ　ＨＦ（Ｉ）＝＝０　ＡＮＤ　ＨＸ（Ｉ）＝＝ＭＸ　ＡＮＤ　ＭＹ＝＝２２　ＴＨＥＮ　ＨＦ（Ｉ）＝１：ＳＣ＝ＳＣ＋１：ＨＬＦ＝ＨＬＦ－１
  84. ＮＥＸＴ　Ｉ：ＲＥＴＵＲＮ
  86. ＠ＭＩＳＳ　′ミス
  87. ＩＦ　ＭＸ＝＝ＥＸ（０）　ＡＮＤ　ＭＹ＝＝ＥＹ（０）　ＧＯＴＯ　＠ＭＩＳＳ２
  88. ＩＦ　ＭＸ＝＝ＥＸ（１）　ＡＮＤ　ＥＹ（１）＜ＭＹ　ＧＯＴＯ　＠ＭＩＳＳ２
  89. ＩＦ　ＡＩＲ＜１　ＴＨＥＮ　ＧＯＴＯ　＠ＭＩＳＳ２
  90. ＲＥＴＵＲＮ
  91. ＠ＭＩＳＳ２
  92. ＬＦ＝ＬＦ－１：ＭＦＬ＝１：ＲＥＴＵＲＮ
  94. ＠ＣＬＲ　′ステ－シ゛クリア－
  95. ＬＯＣＡＴＥ　１０，１０：？”ＣＬＥＡＲ！”：ＷＡＩＴ　１８０
  96. ＬＶ＝ＬＶ＋１：ＴＭ＝ＬＶ＋１：ＩＦ　ＬＶ＞９　ＴＨＥＮ　ＷＴ＝０
  97. ＣＬＳ：ＧＯＴＯ　＠ＳＥＴ２
  99. ＠ＰＡＵＳＥ　　′ホ゜－ス゛
  100. ＷＡＩＴ　１５：ＬＯＣＡＴＥ　１４，２：？”ＰＡＵＳＥ”
  101. ＠ＰＬＯＯＰ　　′ホ゜－ス゛　ル－フ゜
  102. Ｂ＝ＢＵＴＴＯＮ（）
  103. ＩＦ　Ｂ　ＡＮＤ　１０２４　ＴＨＥＮ　ＬＯＣＡＴＥ　１４，２：？”　　　　　”：ＶＳＹＮＣ　６：ＲＥＴＵＲＮ
  104. ＧＯＴＯ　＠ＰＬＯＯＰ
  106. ＠ＧＯＶＥＲ　　′ケ゛－ムオ－ハ゛－
  107. ＬＯＣＡＴＥ　１０，１０：？　”ＧＡＭＥ　ＯＶＥＲ”
  108. ＩＦ　ＳＣ＞ＨＳ　ＴＨＥＮ　ＨＳ＝ＳＣ
  109. ＶＳＹＮＣ　１２０：ＣＬＳ：ＧＯＴＯ　＠ＴＩＴＬＥ

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

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

  • ウイング : ＱＲ早く欲しいです！！！ (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)
  • いのっち : リストの１０３行目を訂正しました。これでポーズ解除できると思います。 (2012/05/01 (火) 21:03:15)
  • 名無しさん : その訂正あまり効果無いみたいですね、102行目(実機103行)をB=BUTTON(3)にしては？今度はポーズ状態に入るのが失敗しやすくなるけど。あと初代対応タグが消える (2012/05/01 (火) 22:44:04)
  • 名無しさん : なんで皆ＱＲ欲しがるの？ (2012/05/02 (水) 16:26:30)
  • 名無しさん : ↑確かに (2012/05/02 (水) 16:42:17)
  • 名無しさん : 時間短縮って、ｗｗｗ　自分で打って、[後ちょっとだー」というように懐かしむのが、楽しいんだよ。ぼうやには、わからないよな！ (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)