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

投稿プログラム : ドアまで忍者!

パンくずリスト

2012年08月15日投稿 / 投稿者 : 中１プログラマー？ / タグ : 投稿プログラム ゲーム QRコード mkII専用

申し上げなければいけないこと

修正版を出す前は、かなり操作しにくく、

誠に申し訳ありませんでした。

修正部分　３行目　Ｗ＝１０：Ｔ＝１００

→Ｗ＝５：Ｔ＝１００

若干操作しにくいですが、お好みに変えて頂いて構いません。

遊び方

Ａボタンで前に進み、Ｂボタンで後ろに戻ります。

使用上のご注意

とっても難しいです。全５ステージ（多分。）です。

難しすぎてやる気が失せると思います。

ＤＳｉ、または３ＤＳ、３ＤＳＬＬにやつあたりしないようにお願いします。

難しすぎると思ったら簡単バージョンをご用意致しましたので

そちらをどうぞ。

ゲーム目的

ドアまで制限時間以内にたどり着かなければなりません。

しかし、そこには、敵（くせもの）が監視しています。

四角い壁に隠れつつ、ゴールを目指して下さい。

最後に

忍者の時代にドア？と思わないで下さい。

そう思う方は、「ふすま」とお考え下さい。

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

すいません。ありません。

QR コード

修正版を出しました。前回より操作しやすいと思いますので、

修正版前を持っている方は、お願いします。

PRG:TSTRS
1/1
qr00.png

簡単バージョンです。

RND128さんと、名無しさんのアドバイスのもと、

作らせて頂きました。

PRG:TSTRSK
1/1
qr0k.png

プログラムリスト

修正版です。

  1. ＠ＳＴＲＴ
  2. ＣＬＥＡＲ：ＢＧＰ＝１３
  3. Ｗ＝５：Ｔ＝１００
  4. Ｓ＝１
  5. ＠ＳＴＡＲＴ
  6. ＣＬＳ
  7. ＢＧＭＰＬＡＹ　ＢＧＰ
  8. ＪＸ＝２：ＪＹ＝１９
  9. ＴＸ＝４：ＴＹ＝１
  10. ＠ＭＡＩＮ
  11. ？”　　Щ　　　　Р”；Ｔ　
  12. ？”　┿　┿　　　　　　　　
  13. ？”　　　　　　　ステ−シ゛
  14. ？”　┿　┿　　　　　”；Ｓ
  15. ？”　　　　　　　　　　　　
  16. ？”　┿　┿　　　　　　　　
  17. ？”　　　　　　　　　　　　
  18. ？”　┿　┿　　　　　　　　
  19. ？”　　　　　　　　　　　　
  20. ？”　┿　┿　　　　　　　　
  21. ？”　　　　　　　　　　　　
  22. ？”　┿　┿　　　　　　　　
  23. ？”　　　　　　　　　　　　
  24. ？”　┿　┿　　　　　　　　
  25. ？”　　　　　　　　　　　　
  26. ？”　┿　┿　　　　　　　　
  27. ？”　　　　　　　　　　　　
  28. ？”　┿　┿　　　　　　　　
  29. ？”　　　　　　　　　　　　
  30. ？”　┿┿┿　　　　　　　　
  31. ＴＫ＝ＲＮＤ（２）＋１
  32. ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＴＨＥＮ　ＪＹ＝ＪＹ−１
  33. ＩＦ　ＢＵＴＴＯＮ（）＝＝３２　ＴＨＥＮ　ＪＹ＝ＪＹ＋１
  34. ＩＦ　ＪＹ＞＝１８　ＴＨＥＮ　ＪＹ＝１８
  35. ＩＦ　ＴＫ＝＝１　ＴＨＥＮ　ＴＹ＝ＴＹ＋ＲＮＤ（２）
  36. ＩＦ　ＴＫ＝＝２　ＴＨＥＮ　ＴＹ＝ＴＹ−ＲＮＤ（２）
  37. ＴＹ２＝ＴＹ＋２：ＴＹ３＝ＴＹ＋４：ＴＹ４＝ＴＹ＋６
  38. ＬＯＣＡＴＥ　ＴＸ，ＴＹ　？”Н”
  39. ＬＯＣＡＴＥ　ＴＸ，ＴＹ２　？”Н”
  40. ＬＯＣＡＴＥ　ＴＸ，ＴＹ３　？”Н”
  41. ＬＯＣＡＴＥ　ＴＸ，ＴＹ４　？”Н”
  42. ＬＯＣＡＴＥ　ＪＸ，ＪＹ　？”г”
  43. ＩＦ　ＴＹ＜＝０　ＴＨＥＮ　ＴＹ＝０
  44. ＩＦ　ＴＹ４＞＝１８　ＴＨＥＮ　ＴＹ４＝１８
  45. ＩＦ　ＴＹ＝＝ＪＹ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＩＮ
  46. ＩＦ　ＴＹ２＝＝ＪＹ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＩＮ
  47. ＩＦ　ＴＹ３＝＝ＪＹ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＩＮ
  48. ＩＦ　ＴＹ４＝＝ＪＹ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＩＮ
  49. ＩＦ　ＪＹ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＣＬ
  50. ＩＦ　Ｔ＝＝０　ＴＨＥＮ　＠ＧＶ
  51. Ｔ＝Ｔ−１
  52. ＷＡＩＴ　Ｗ：ＣＬＳ：ＧＯＴＯ　＠ＭＡＩＮ
  53. ’−−−
  54. ＠ＳＩＮ
  55. ＩＦ　ＪＹ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＧＶ
  56. ＩＦ　ＪＹ＝＝２　ＴＨＥＮ　ＧＯＴＯ　＠ＧＶ
  57. ＩＦ　ＪＹ＝＝４　ＴＨＥＮ　ＧＯＴＯ　＠ＧＶ
  58. ＩＦ　ＪＹ＝＝６　ＴＨＥＮ　ＧＯＴＯ　＠ＧＶ
  59. ＩＦ　ＪＹ＝＝８　ＴＨＥＮ　ＧＯＴＯ　＠ＧＶ
  60. ＩＦ　ＪＹ＝＝１０　ＴＨＥＮ　ＧＯＴＯ　＠ＧＶ
  61. ＩＦ　ＪＹ＝＝１２　ＴＨＥＮ　ＧＯＴＯ　＠ＧＶ
  62. ＩＦ　ＪＹ＝＝１４　ＴＨＥＮ　ＧＯＴＯ　＠ＧＶ
  63. ＩＦ　ＪＹ＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＧＶ
  64. ＩＦ　ＪＹ＝＝１８　ＴＨＥＮ　ＧＯＴＯ　＠ＧＶ
  65. ＲＥＴＵＲＮ
  66. ’−−−
  67. ＠ＧＶ
  68. ＢＧＭＰＬＡＹ　６
  69. ＷＡＩＴ　３０
  70. ＠ＶＫ
  71. ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＴＨＥＮ　＠ＳＴＲＴ
  72. ＧＯＴＯ　＠ＶＫ
  73. ’−−−
  74. ＠ＣＬ
  75. ＷＡＩＴ　４０
  76. ＣＬＳ
  77. ＢＧＭＰＬＡＹ　５
  78. Ｔ＝Ｔ＋５０：Ｓ＝Ｓ＋１
  79. ＩＦ　Ｓ＞＝３　ＴＨＥＮ　Ｔ＝Ｔ＋３０
  80. ＩＦ　Ｓ＞＝４　ＴＨＥＮ　Ｔ＝Ｔ＋４０
  81. ＩＦ　Ｓ＞＝５　ＴＨＥＮ　Ｔ＝Ｔ＋５０
  82. ＩＦ　Ｓ＞＝６　ＴＨＥＮ　Ｔ＝Ｔ＋６０
  83. ＩＦ　Ｓ＞＝７　ＴＨＥＮ　Ｔ＝Ｔ＋７０
  84. ＩＦ　Ｓ＞＝８　ＴＨＥＮ　Ｔ＝Ｔ＋８０
  85. ＩＦ　Ｓ＞＝９　ＴＨＥＮ　Ｔ＝Ｔ＋９０
  86. ＩＦ　Ｓ＞＝１０　ＴＨＥＮ　Ｔ＝Ｔ＋１００
  87. ？”А　ステ−シ゛”；Ｓ”ヘ”
  88. ？”
  89. ？”Б　ヤメル
  90. ＠ＣＧ
  91. ＩＦ　Ｗ＝＝１　ＴＨＥＮ　＠ＫＣＬ
  92. ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＴＨＥＮ　Ｗ＝Ｗ−１：ＢＧＰ＝ＢＧＰ＋１：ＧＯＴＯ　＠ＳＴＡＲＴ
  93. ＩＦ　ＢＵＴＴＯＮ（）＝＝３２　ＴＨＥＮ　ＥＮＤ
  94. ＧＯＴＯ　＠ＣＧ
  95. ’−−−
  96. ＠ＫＣＬ
  97. ＣＬＳ
  98. ？”１００％クリア　オメテ゛トウ！”
  99. ＢＧＭＰＬＡＹ　９
  100. ＠ＯＭ
  101. ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＴＨＥＮ　ＥＮＤ
  102. ＧＯＴＯ　＠ＯＭ

今更なんですが・・・

今更なんですが、文字変数（A$など）をSAVEしたり、LOADしたりする方法は、ありますか？

お願いします！

  • hatena : セーブデータのファイル名はＸＸＸＸＸＸＸＸとします。
    セーブはＭＥＭ＄＝Ａ＄：ＳＡＶＥ”ＭＥＭ：ＸＸＸＸＸＸＸＸ”
    ロードはＭＥＭ＄＝””：ＬＯＡＤ”ＭＥＭ：ＸＸＸＸＸＸＸＸ”：Ａ＄＝ＭＥＭ＄
    (2012/08/28 (火) 20:36:09)
  • 中１ : 有難うございます！会社プロジェクトは、１００％と書きましたが、「あれ！？文字変数をどうやってMEMに？」って思ってました。改めまして有難うございます！ (2012/08/29 (水) 17:39:47)
  • hatena : 質問はなるべく掲示板でやった方が良いかも。 (2012/08/29 (水) 19:33:03)
  • 中１プログラマー？ : 今やってみたのですが、文字をセーブして、ロードすると、数字になってしまいました！どうすればいいですか？ (2012/09/08 (土) 14:43:15)
  • 進 : strやりませんでしたか？ (2012/09/09 (日) 00:56:38)
  • 中１プログラマー？ : hatenaさんから教えてもらったのをやってみましたが、うまくいきません。 (2012/09/09 (日) 11:21:44)
  • 中１プログラマー？ : すみません、タイピングミスだったようです。ご迷惑をおかけしました。 (2012/09/09 (日) 11:30:02)

ドアまで忍者！に関してのコメント

今日から（９/２）コメントで「中１」ではなく「中１プログラマー？」とさせて頂きます。

ご了承ください。

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

  • hatena : 102行か。中１さんへ。このページにプログラムリストを載せても良いですか。 (2012/08/15 (水) 16:49:24)
  • 中１ : 修正版を出すので、もう少し待ってもらってもよろしいでしょうか。 (2012/08/15 (水) 16:50:53)
  • 中１ : hatenaさんへ　修正版を出しました。宜しければプログラムリストをお願いします。 (2012/08/15 (水) 16:58:55)
  • 早くプログラムリスト入れないとおれがやるぞ : ←の通り (2012/08/15 (水) 17:19:48)
  • 中１ : プログラムリスト有難うございます。 (2012/08/15 (水) 17:52:05)
  • .EXE(腐ったので汚名復活) : 中1様のでしたか！　すごいですね！　P S (プレイステーションじゃないよ)クソコンビニ無双2出すかも (2012/08/15 (水) 19:01:50)
  • 中１ : あんまり自己嫌悪にならないで下さい。「中１」で結構です。 (2012/08/15 (水) 20:15:30)
  • .EXE(Wow) : 了解 (2012/08/16 (木) 08:27:15)
  • 名無しさん : 中一　もっといい次回作を期待 (2012/08/16 (木) 10:46:17)
  • タイクーン : こりゃー期待できる (2012/08/16 (木) 13:24:52)
  • 中１ : ↑↑今回あまりうまく出来ませんでした。（短時間で作ったので）次回頑張ります。 (2012/08/16 (木) 14:17:02)
  • .EXE(わたしは４才です？) : いい感じですよ。 (2012/08/16 (木) 16:56:57)
  • 中１ : 有難うございます。 (2012/08/16 (木) 19:18:00)
  • .EXE(わたしは４才です？) : あなたをコンビニ無双2に出演させたいです (2012/08/16 (木) 20:21:37)
  • 中１ : と、言いますと？ (2012/08/16 (木) 22:21:45)
  • 進 : grpで (2012/08/16 (木) 22:28:05)
  • 中１ : grp・・・「プログラム」ですか？ (2012/08/16 (木) 23:21:29)
  • 進 : なんでもないです。 (2012/08/16 (木) 23:31:03)
  • Lv100 : GRPはグラフィックのことですね。 (2012/08/17 (金) 00:06:50)
  • 中１ : あ、そういう意味ですか！CHRやGRPなど使ったことがほとんど無いので・・・。 (2012/08/17 (金) 19:24:00)
  • ウイング : 迷路式だったらよかったのに (2012/08/17 (金) 19:35:18)
  • 中１ : 残念ながら迷路式は壁の中に入らないようにするプログラムがIF~THENしか思いつかなく、大変そうです。壁に入らない良いプログラムの組み方はありますか？ (2012/08/18 (土) 13:38:14)
  • 中１ : 「申し上げなければいけないこと」でBASICにしてくれた人がいるようです。有難うございます。 (2012/08/18 (土) 17:14:21)
  • Lv100 : BACIC→BASICね。 (2012/08/18 (土) 18:36:17)
  • hatena : ↑↑フォントの事なら私がいじりましたが。 (2012/08/18 (土) 19:02:53)
  • 中１ : ↑↑あれ？タイピングミス！直します。 (2012/08/18 (土) 20:29:40)
  • なーゆ : 普通バージョンも、簡単バージョンも無理ゲー (2012/09/01 (土) 15:23:06)
  • 名無しさん : 大変失礼だがLOCATE命令をご存じで？ (2012/09/01 (土) 15:42:58)
  • 中１ : ↑LOCATE命令は、勿論。プログラムリストにありませんか？ (2012/09/01 (土) 16:48:07)
  • 中１ : ↑↑↑かと言ってDSを真っ二つにしないように・・・。 (2012/09/01 (土) 16:49:17)
  • 中１プログラマー？ : というコメントでの名前にさせて頂きました。改めまして宜しくお願いします。 (2012/09/02 (日) 17:30:28)
  • 名無しさん : 中二になったら改名？ (2012/09/02 (日) 18:20:35)
  • hatena : ↑*5　このプログラムの38行から42行に５つLOCATE命令がありますよ。 (2012/09/02 (日) 19:28:12)
  • 中１プログラマー？ : ↑↑「中２プログラマー？」となると思います。（ストレートです。つまり、年齢丸分かりですね。私は構いませんが・・・。） (2012/09/02 (日) 20:15:30)
  • tamagosan : リスト見やすい！！　本当に私と同じ歳？（中1） (2012/09/08 (土) 15:29:33)
  • 中１プログラマー？ : 勿論です。（今日第２回定期考査終わった！）リストが見やすいとは嬉しいです。でも、tamagosan さんのプログラムには恐れ入ります・・・。宜しければ上の文字変数MEM$について教えて頂けると有難いです・・・。 (2012/09/08 (土) 23:22:19)
  • 進 : ロード毎に他の変数に移し替えてますか? (2012/09/09 (日) 00:58:22)
  • 中１プログラマー？ : LOAD毎に変数は変えていないです。 (2012/09/09 (日) 11:20:38)

バグ、こうしたら良いなどありましたら書き込んで下さい。

  • とある名無しの日本人 : Please use the SPRITE. (2012/08/15 (水) 16:42:21)
  • 中１ : 修正版を出しました。申し訳ありませんでした。 (2012/08/15 (水) 16:56:15)
  • 中１ : 修正版を出したので修正版前のコメントは、失礼ながら削除させて頂きました。 (2012/08/15 (水) 16:57:45)
  • RND128 : 79~86行目は
    ＦＯＲ　Ｉ＝３　ＴＯ　１０
    ＩＦ　Ｓ＞＝Ｉ　ＴＨＥＮ　Ｔ＝Ｔ＋Ｉ＊１０
    ＮＥＸＴ
    で短縮可能ですよ~ (2012/08/19 (日) 08:47:02)
  • 中１ : そうなんですか！FOR~NEXTは、知らないもので・・・。勉強になります。 (2012/08/19 (日) 11:22:02)
  • RND128 : ついでにもうひとつ、55~64行目は
    ＩＦ　ＪＹ％２＝＝０　ＧＯＴＯ　＠ＧＶ
    あるいは、mkII専用として
    ＩＦ　！（ＪＹ％２）　ＧＯＴＯ　＠ＧＶ
    ができますよ~ (2012/08/19 (日) 12:26:40)
  • 中１ : 有難うございます。短縮のやり方勉強になります。 (2012/08/19 (日) 12:33:08)
  • 名無しさん : くせものも人にして、プレイヤーの色を変えればいいと思う (2012/08/19 (日) 17:42:34)
  • 名無しさん : FOR~NEXT知らないとかよくゲーム作れたな (2012/08/19 (日) 20:30:10)
  • 中１ : そうですね・・・。 (2012/08/19 (日) 20:37:38)
  • ウイング : でもfor使うより変数とかif文使う法ほうが楽 (2012/08/19 (日) 20:48:32)
  • 中１ : 楽ですね。しかし、今のところIF~THEN文ですがFOR~NEXT文を学習します。 (2012/08/19 (日) 21:37:37)
  • 名無しさん : 俺も最初はFOR文知らなくて同じようなBGPUTを何百行も並べたり苦行かとおもった (2012/08/29 (水) 18:58:18)
  • 中１ : 頑張って学習します・・・。 (2012/08/29 (水) 19:55:16)
  • 名無しさん : ifが楽って…forとifって全然ちゃうじゃん (2012/08/29 (水) 19:58:08)
  • 名無しさん : ifが楽って…forとifって全然ちゃうじゃん (2012/08/29 (水) 19:59:31)
  • RND128 : 関係ないけど、FOR TO NEXTを使用したIF文
    ＦＯＲ　＿＝１　ＴＯ　（ＩＦ）
    （ＴＨＥＮ）
    ＮＥＸＴ：ＦＯＲ　＿＝＿−１　ＴＯ　０
    （ＥＬＳＥ）
    ＮＥＸＴ
    知ってはったらすいません (2012/08/31 (金) 00:24:14)
  • 名無しさん : FOR TO STEP NEXTじゃね (2012/08/31 (金) 00:27:27)
  • hata0401 : MUZUI (2012/09/01 (土) 15:16:29)

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