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

パンくずリスト

• トップ
• Toukou
• ゆうしゃアスキー外伝2

2013年4月20日投稿 / 投稿者 : 猫姫 / タグ : 投稿プログラム ゲーム mkII専用

更新 2013/05/01

リトライ、ハイスコア実装バージョンQRを併設しました。
注:
こちらのバージョンは、プログラム内に終了ルーチンがありません。
終了はSELECTボタンで強制終了させてください。
なお、利用MEMリソース名は、NHPASCS2.MEMです。

内容

ワンキーゲームです。
今回は、ボタンひとつしかつかいません。
前日、思い付いたネタを、いきおいでまとめてみました。

スクリーンショット

遊び方

使用ボタン選択

最初に、ボタンを押すように求めてきます。
ここで、選んだボタンが、ゲームボタンです。
以後、そのボタンだけで遊びます。

ゲーム画面

ボタン一押しで一歩、アスキーが前に進みます。
モンスターが呪文を唱えている間に近づいてください。
唱え終わったときに動くと、ゲームオーバーです。
また、タイムが０になっても同様です。

クリックコメント

公開後しばらく、投票ができない状態でした。
修正いたしましたので、感想をお願い致します。
申し訳ありませんでした。

感想

選択肢	投票
あたらしい	1
みたことあるよ	0
むずかしい	0
簡単すぎ	0
おもしろい	4
つまらない	1

プログラム

+

プログラムコード

ＡＣＬＳ：ＣＬＥＡＲ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＤＡＴＡ　”┌──────────────────┐　　　　　　　　　 ＤＡＴＡ　”│ユウシャ　アスキ−　カ゛イテ゛ン　　│　　　　　　　　　 ＤＡＴＡ　”│　　　┷シニ　イタル　シ゛ュモン┷　│　　　　　　　　　 ＤＡＴＡ　”└──────────────────┘　　　　　　　　　 ＤＡＴＡ　”ＰＲＥＳＥＮＴＥＤ　ＢＹ　ＮＥＫＯＨＩＭＥ　　　　　　　　 ＤＡＴＡ　”　　　　　　　２０ＴＨ／０４／２０１３　　　　　　　　　　 ＤＡＴＡ　”┌────────┐　　　　　　　　　　　　　　　　　　　 ＤＡＴＡ　”│ソウサ　ホウホウ│　　　　　　　　　　　　　　　　　　　 ＤＡＴＡ　”└────────┘　　　　　　　　　　　　　　　　　　　 ＤＡＴＡ　”サイショニ　ケ゛−ム　ニ　ツカウ　ホ゛タンヲ　エラヒ゛マス ＤＡＴＡ　”アトハ　タイミンク゛ヨク　ホ゛タン　レンタ゛　　　　　　　 ＤＡＴＡ　”ホ゛タン　１カイ　アスキ−カ゛　１ホ゜　ウコ゛キマス　　　 ＤＡＴＡ　”┌────┐　　　　　　　　　　　　　　　　　　　　　　　 ＤＡＴＡ　”│モクテキ│　　　　　　　　　　　　　　　　　　　　　　　 ＤＡＴＡ　”└────┘　　　　　　　　　　　　　　　　　　　　　　　 ＤＡＴＡ　”モンスタ−　カ゛　シ゛ュモン　ヲ　トナエマス　　　　　　　 ＤＡＴＡ　”フ゜レイヤ−　ハ　　　　　　　　　　　　　　　　　　　　　 ＤＡＴＡ　”「シ゛ュモン　ヲ　トナエテイル　アイタ゛」　　　　　　　　 ＤＡＴＡ　”タ゛ケ　ウコ゛ケマス　　　　　　　　　　　　　　　　　　　 ＤＡＴＡ　”ウマク　モンスタ−　ニ　セッキンシテ　クタ゛サイ　　　　　 ＤＡＴＡ　”カンタンニ　セツメイ　スルナラハ゛　　　　　　　　　　　　 ＤＡＴＡ　”「タ゛ルマサン　カ゛　コロンタ゛」　テ゛ス　　　　　　　　 ＦＯＲ　Ｉ＝０　ＴＯ　２１ ＩＦ　Ｉ＝＝０　ＴＨＥＮ　ＣＯＬＯＲ　７ ＩＦ　Ｉ＝＝４　ＴＨＥＮ　ＣＯＬＯＲ　０ ＩＦ　Ｉ＝＝６　ＴＨＥＮ　ＣＯＬＯＲ　９ ＩＦ　Ｉ＝＝９　ＴＨＥＮ　ＣＯＬＯＲ　０ ＩＦ　Ｉ＝＝１２　ＴＨＥＮ　ＣＯＬＯＲ　９ ＩＦ　Ｉ＝＝１５　ＴＨＥＮ　ＣＯＬＯＲ　０ ＩＦ　Ｉ＝＝１７　ＴＨＥＮ　ＣＯＬＯＲ　１３ ＩＦ　Ｉ＝＝１８　ＴＨＥＮ　ＣＯＬＯＲ　０ ＲＥＡＤ　Ｉ＄ ＰＮＬＳＴＲ　０，Ｉ，Ｉ＄ ＮＥＸＴ ＤＩＭ　ＥＮＥ＄（３），ＴＡ＄（１０） ＴＡ＄（０）＝”タ゛” ＴＡ＄（１）＝”ル” ＴＡ＄（２）＝”マ” ＴＡ＄（３）＝”サ” ＴＡ＄（４）＝”ン” ＴＡ＄（５）＝”カ゛” ＴＡ＄（６）＝”コ” ＴＡ＄（７）＝”ロ” ＴＡ＄（８）＝”ン” ＴＡ＄（９）＝”タ゛” ＢＡＣＫ１＄＝”┌　＝＊＊┐　” ＢＡＣＫ２＄＝”│　◎　◎│　” ＢＡＣＫ３＄＝”└　　）Ｏ┘　” ＦＲＯＮ１＄＝”ミミミミミ┐　” ＦＲＯＮ２＄＝”└◎ミミミ│　” ＦＲＯＮ３＄＝”┌＿＿＿＿┘　” ＬＶ＝１：ＳＣＯＲＥ＝０ ＬＯＣＡＴＥ　２，１２：ＰＲＩＮＴ　”ケ゛−ム　ニ　ツカウ　ホ゛タン　ヲ　エランテ゛　クタ゛サイ”：ＢＥＥＰ　２ ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ ＩＦ　ＢＵＴＴＯＮ（）＝＝０　ＴＨＥＮ　＠ＳＫＢＳ ＩＦ　ＢＵＴＴＯＮ（）！＝０　ＴＨＥＮ　ＢＴ＝ＢＵＴＴＯＮ（）：Ｉ＝１ ＠ＳＫＢＳ ＮＥＸＴ ＢＥＥＰ　３ ＬＯＣＡＴＥ　２，１２：ＰＲＩＮＴ　”　”＊２９ ＷＡＩＴ　２０ ＠ＳＴＡＲＴ ＦＯＲ　Ｓ＝０　ＴＯ　１：Ｓ＝０：ＩＦ　ＢＵＴＴＯＮ（）＝＝ＢＴ　ＴＨＥＮ　Ｓ＝１ ＬＯＣＡＴＥ　８，１０：ＰＲＩＮＴ　”┌───────────────┐ ＬＯＣＡＴＥ　８，１１：ＰＲＩＮＴ　”│　ＰＵＳＨ　ＴＯ　ＳＴＡＲＴ　│ ＬＯＣＡＴＥ　８，１２：ＰＲＩＮＴ　”└───────────────┘ ＮＥＸＴ ＨＥＬＰ＝０ ＢＧＭＰＬＡＹ　”Ｏ２Ｃ１６Ｅ１６Ｇ１６＜Ｃ２．” ＦＯＲ　Ｉ＝０　ＴＯ　４ ＬＯＣＡＴＥ　５，１０＋Ｉ：ＰＲＩＮＴ　”　”＊２０ ＮＥＸＴ ＷＡＩＴ　３０ ＧＯＡＬ＝１００：ＳＴＡＲＴ＝ＧＯＡＬ：ＴＡＳＰ＝０：ＣＯＭＢＯ＝０：ＴＩＭ＝３００ ＣＮＴ＝０：ＴＣＮＴ＝０ ＬＯＲＤ＄＝”□■”＊１６ ＣＯＬＯＲ　８ ＬＯＣＡＴＥ　０，２２：ＰＲＩＮＴ　ＬＯＲＤ＄； ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　５，２１：ＰＲＩＮＴ　”г” Ｔ＝０ ＦＯＲ　Ｌ＝０　ＴＯ　１　：Ｌ＝０：ＶＳＹＮＣ　１ ＣＮＴ＝ＣＮＴ＋１：ＴＣＮＴ＝ＴＣＮＴ＋１ ＩＦ　ＴＣＮＴ％２０＝＝０　ＴＨＥＮ　ＴＩＭ＝ＴＩＭ−１ ＩＦ　（ＣＮＴ＜＝１００）ＡＮＤ　（Ｔ＝＝０）ＴＨＥＮ　＠ＳＫ２　 ＩＦ　ＣＮＴ＜＝ＴＡＳＰ　ＴＨＥＮ　＠ＳＫ２ ＴＡＬＫ　ＴＡ＄（Ｔ） ＴＡＳＰ＝ＲＮＤ（５０−ＬＶ＊５） ＩＦ　Ｔ＝＝０　ＴＨＥＮ　ＬＯＣＡＴＥ　５，１８：ＰＲＩＮＴ　”　”＊２０ ＬＯＣＡＴＥ　５＋２＊Ｔ，１８：ＰＲＩＮＴ　ＴＡ＄（Ｔ） Ｔ＝（Ｔ＋１）＊（Ｔ！＝９）：ＨＥＬＰ＝１ ＣＮＴ＝０ ＠ＳＫ２ ＩＦ　（Ｔ＝＝０）　ＡＮＤ　（ＨＥＬＰ＝＝１）　ＴＨＥＮ　ＣＯＭＢＯ＝０ ＩＦ　ＢＵＴＴＯＮ（２）！＝ＢＴ　ＴＨＥＮ　＠ＳＫ１ 　　　　ＣＯＭＢＯ＝ＣＯＭＢＯ＋１ 　　　　ＳＣＯＲＥ＝ＳＣＯＲＥ＋１０＊ＣＯＭＢＯ 　　　　ＧＯＡＬ＝ＧＯＡＬ−１ 　　　　ＢＥＴＷ＝ＳＴＡＲＴ−ＧＯＡＬ 　　　　Ｌ＄＝ＬＥＦＴ＄（ＬＯＲＤ＄，１） 　　　　Ｒ＄＝ＲＩＧＨＴ＄（ＬＯＲＤ＄，３１） 　　　　ＬＯＲＤ＄＝Ｒ＄＋Ｌ＄ ＩＦ　Ｔ！＝０　ＴＨＥＮ　＠ＳＫ４ ＩＦ　ＨＥＬＰ＝＝０　ＴＨＥＮ　＠ＳＫ４ ＬＯＣＡＴＥ　５，１８：ＰＲＩＮＴ　”　”＊２０ ＬＯＣＡＴＥ　５，１８：ＰＲＩＮＴ　”ウコ゛イタ−−−ナ” ＴＡＬＫ　”ウコ゛イタ−ナ” ＠ＧＡＭＥＯＶＥＲ ＷＡＩＴ　５０ ＣＯＬＯＲ　１３ ＬＯＣＡＴＥ　５，２１：ＰＲＩＮＴ　”е”：ＷＡＩＴ　５ ＬＯＣＡＴＥ　５，２１：ＰＲＩＮＴ　”ё”：ＷＡＩＴ　５ ＬＯＣＡＴＥ　５，２１：ＰＲＩＮＴ　”д”：ＷＡＩＴ　５ ＬＯＣＡＴＥ　５，２１：ＰＲＩＮＴ　”е”：ＷＡＩＴ　５ ＬＯＣＡＴＥ　５，２１：ＰＲＩＮＴ　”ё”：ＷＡＩＴ　５ ＬＯＣＡＴＥ　５，２１：ＰＲＩＮＴ　”м”：ＢＥＥＰ　１１：ＷＡＩＴ　１５ ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　５，１０：ＰＲＩＮＴ　”┌─────────┐ ＬＯＣＡＴＥ　５，１１：ＰＲＩＮＴ　”│ＧＡＭＥ　ＯＶＥＲ│ ＬＯＣＡＴＥ　５，１２：ＰＲＩＮＴ　”└─────────┘”：ＷＡＩＴ　５０ ＦＯＲ　Ｇ＝０　ＴＯ　１：Ｇ＝０：ＩＦ　ＢＵＴＴＯＮ（）＝＝ＢＴ　ＴＨＥＮ　Ｇ＝１：ＮＥＸＴ ＥＮＤ ＠ＳＫ４ ＣＯＬＯＲ　８ ＬＯＣＡＴＥ　０，２２：ＰＲＩＮＴ　ＬＯＲＤ＄； ＣＯＬＯＲ　０ ＠ＳＫ１ ＥＮＥ＄（０）＝”　”＊ＧＯＡＬ＋ＢＡＣＫ１＄ ＥＮＥ＄（１）＝”　”＊ＧＯＡＬ＋ＢＡＣＫ２＄ ＥＮＥ＄（２）＝”　”＊ＧＯＡＬ＋ＢＡＣＫ３＄ ＩＦ　Ｔ！＝０　ＴＨＥＮ　＠ＳＫ３ ＥＮＥ＄（０）＝”　”＊ＧＯＡＬ＋ＦＲＯＮ１＄ ＥＮＥ＄（１）＝”　”＊ＧＯＡＬ＋ＦＲＯＮ２＄ ＥＮＥ＄（２）＝”　”＊ＧＯＡＬ＋ＦＲＯＮ３＄ ＠ＳＫ３ ＦＯＲ　Ｉ＝０　ＴＯ　２ ＬＯＣＡＴＥ　７，１９＋Ｉ：ＰＲＩＮＴ　”　”＊２４ ＬＯＣＡＴＥ　７，１９＋Ｉ：ＰＲＩＮＴ　ＬＥＦＴ＄（ＥＮＥ＄（Ｉ），２４） ＮＥＸＴ　Ｉ Ｉ＄＝”　　　　　　”＋ＳＴＲ＄（ＳＣＯＲＥ）：Ｉ＄＝ＲＩＧＨＴ＄（Ｉ＄，６） ＬＯＣＡＴＥ　１８，０：ＰＲＩＮＴ　”ＳＣＯＲＥ”＋Ｉ＄ Ｉ＄＝”　　　　　　”＋ＳＴＲ＄（ＣＯＭＢＯ）：Ｉ＄＝”ＣＯＭＢＯ”＋ＲＩＧＨＴ＄（Ｉ＄，６） ＩＦ　ＣＯＭＢＯ＝＝０　ＴＨＥＮ　Ｉ＄＝”　　　　　　　　　　　　　　” ＬＯＣＡＴＥ　１８，１：ＰＲＩＮＴ　Ｉ＄ Ｉ＄＝”　　　　　　”＋ＳＴＲ＄（ＴＩＭ）：Ｉ＄＝”ＴＩＭＥ”＋ＲＩＧＨＴ＄（Ｉ＄，３） ＬＯＣＡＴＥ　０，０：ＰＲＩＮＴ　Ｉ＄ ＬＯＣＡＴＥ　０，１：ＰＲＩＮＴ　”ＬＶ　”ＬＶ ＬＯＣＡＴＥ　０，２：ＰＲＩＮＴ　”├──────────────────┤　　” Ｉ＝ＦＬＯＯＲ（２０−ＧＯＡＬ／５） ＬＯＣＡＴＥ　Ｉ，２：ＰＲＩＮＴ　”г” ＩＦ　ＴＩＭ！＝０　ＴＨＥＮ　＠ＳＫ５ ＬＯＣＡＴＥ　５，１８：ＰＲＩＮＴ　”　”＊２０ ＬＯＣＡＴＥ　５，１８：ＰＲＩＮＴ　”オソイ−−−ナ” ＴＡＬＫ　”オソイ−−ナ” ＧＯＴＯ　＠ＧＡＭＥＯＶＥＲ ＠ＳＫ５ ＩＦ　ＧＯＡＬ＝＝０　ＴＨＥＮ　Ｌ＝１ ＮＥＸＴ　Ｌ ＬＯＣＡＴＥ　５，１８：ＰＲＩＮＴ　”　”＊２０ ＬＯＣＡＴＥ　５，１８：ＰＲＩＮＴ　”マケタヨ−−ン” ＴＡＬＫ　”マケタヨ−−−ン” ＷＡＩＴ　５０ ＣＯＬＯＲ　３ ＬＯＣＡＴＥ　７，２０：ＰＲＩＮＴ　”────────ハ゛シュッ”：ＢＥＥＰ　１１，５０００ ＣＯＬＯＲ　０ ＷＡＩＴ　５０ ＬＯＣＡＴＥ　５，１８：ＰＲＩＮＴ　”　”＊２０ ＬＯＣＡＴＥ　７，２０：ＰＲＩＮＴ　”　”＊２０ ＬＶ＝（ＬＶ＋１）−（ＬＶ＝＝９） ＧＯＴＯ　＠ＳＴＡＲＴ

+

制作者コメント

36行目まで 下画面の表示と、プログラムソースの説明を兼ねてます。 48 敵のグラフィックをアスキーアートで書いてます。 後ろ向き時と、前向き時です。 84 FOR L=0 TO 1:I=0 NEXT L (160行目) メインループ、ラベルと、GOTOの代用です。 スタックたまりを回避するため、 I=1 (159行目)を終了条件とともに入れ NEXT L　を抜けてから、次ステージ構成のルーチンを入れてます。 130/141 敵に近づくと、敵が画面外から出てくる演出です。 ENE$(I)に、敵までの距離分のスペースと、敵のグラフィックを代入し LEFT$命令で、表示限界までの文字数を抜き出して、 前進する度に表示し直しています。 クリア条件 敵に到達したとき。 GOAL==0 (159) ゲームオーバー条件 敵が振り返っているときに、動く。 T0　HELP1のとき、BUTTUN(2)=16 (105.106) TIMEが０になる。 TIM==0 (153) リトライにするには。 124行目のENDを、GOTO @A その後、１行目に@Aを入れるのが、 一番手っ取り早いと思います。 FOR文を終えずに抜ける禁忌と、 Selectボタンで強制終了させないと、いけなくなるので、 ENDにしてしまってます。

訪問者
トータル:917人
今日:1人

QR コード

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

課題

本当は、1QRプログラムくらいだと思ってたのですが、
どうしても、こんな感じになってしまいます。
下画面の説明やめて、画面ももっとｼﾝﾌﾟﾙにすれば、
いいんですけどね

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

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

• 名無しさん : ページを修正しました。 (2016/02/19 (金) 21:01:50)

お名前: