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

パンくずリスト

• トップ
• Toukou
• GAMEBOOK

2015年12月20日投稿 / 投稿者 : haru66kero / タグ : 投稿プログラム クリスマス ゲーム ネタ ノベル風ゲーム QRコード 初代対応

間に合った!

なんとかクリスマスまでに間に合いました!今回もクリスマスのゲームです!

概要

ノベルゲーム的なゲームブックです。

遊び方

上の文章を見て、それに合う選択肢を、ABXYボタンで選びます。 ゲームオーバーもあります。

ゲーム一覧

カレーライス

カレーライスをつくるゲームです。 わざとやらない限り、ゲームオーバーにはならないでしょう。 エンドは2種類です。

サンタクロース

サンタクロースとなって、子供たちにプレゼントを配るゲームです。 難易度もボリュームもアップしてます。 エンドは2つです。

ダッシュツゲーム

部屋から脱出するゲームです。 アイテムが複数出るので、メモを用意しておくことをおすすめします。 エンドは1個です。

QR コード

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

プログラムリスト

DATA文が異様に長ったらしい（1961行）ので、コア部分のみ掲載。 初代の人は、WAITをVSYNCに置き換えてください。

+

プログラムリスト

＠ＩＮＩＴ ＠ＧＡＭＥ１ ＤＡＴＡ　４ ’↑ココニヘ゜ーシ゛サイタ゛イチヲカキマス。 ＤＡＴＡ　１ ’↑ココニヘ゜ーシ゛ハ゛ンコ゛ウヲカキマス。 ＤＡＴＡ”ココニフ゛ンショウヲカキマス。” ＤＡＴＡ”（１６モシ゛イナイ）” ＤＡＴＡ　２，”ツキ゛ニススム” ＤＡＴＡ　３，”ケ゛ームオーハ゛ー” ＤＡＴＡ　４，”ケ゛ームクリア” ＤＡＴＡ　０，”−” ’↑スウシ゛ハススムヘ゜ーシ゛ハ゛ンコ゛ウヲアラワシテイマス ’モシ゛ハセンタクシヲアラワシテイマス。 ’センタクシハ１６モシ゛イナイニシテクタ゛サイ。 ’０ヲイレルト、センタクサレナクナリマス。 ＤＡＴＡ　２ ＤＡＴＡ”ａａａａａ” ＤＡＴＡ”アアアアア” ＤＡＴＡ　１，ＢＡＣＫ” ＤＡＴＡ　０，”−” ＤＡＴＡ　０，”−” ＤＡＴＡ　０，”−” ＤＡＴＡ　３ ＤＡＴＡ”ケ゛ームオーハ゛ーノトキニハ、” ＤＡＴＡ”９９ハ゛ンニトフ゛ヨウニシマス” ＤＡＴＡ　９９，”ＮＥＸＴ” ＤＡＴＡ　０，”−” ＤＡＴＡ　０，”−” ＤＡＴＡ　０，”−” ＤＡＴＡ　４ ＤＡＴＡ　”クリアノトキニハ、１００” ＤＡＴＡ　”ハ゛ンニトフ゛ヨウニシマス” ＤＡＴＡ　１００，”ＥＮＤ” ＤＡＴＡ　０，”−” ＤＡＴＡ　０，”−” ＤＡＴＡ　０，”−” ＠ＧＡＭＥ２ ＤＡＴＡ　１ ＤＡＴＡ　１ ＤＡＴＡ　”コノヨウニシテ、ヘ゜ーシ゛ヲ” ＤＡＴＡ　”フヤシテイキマス。” ＤＡＴＡ　１００，”ＥＮＤ” ＤＡＴＡ　０，”−” ＤＡＴＡ　０，”−” ＤＡＴＡ　０，”−” ＠ＧＡＭＥ３ ＤＡＴＡ　１ ＤＡＴＡ　１ ＤＡＴＡ　”カ゛ンハ゛ッテＧＡＭＥＢＯＯＫヲ” ＤＡＴＡ　”ツクッテミテクタ゛サイ！” ＤＡＴＡ　１００，”ＥＮＤ” ＤＡＴＡ　０，”−” ＤＡＴＡ　０，”−” ＤＡＴＡ　０，”−” ’ヘ゜ーシ゛カ゛９８ヘ゜ーシ゛ヲコエルトキハ、９９、１００ハ゛ンヲ ’アケテオイテクタ゛サイ。 ＣＬＳ：ＣＬＥＡＲ：ＢＧＭＳＴＯＰ ＤＩＭ　ＣＯ＄（２，１） ＤＩＭ　ＳＥ＄（４，１） ＤＩＭ　ＢＡ（４，１） ＤＩＭ　ＢＡ＄（４，１） ＳＰ＄＝”　　　　　　　　　　　　　　　　”’（１６マス） ＴＩＴＬＥ＄＝”　　　ＧＡＭＥ　　ＢＯＯＫ　　　” ＣＯ＄（０，０）＝”ケ゛ームフ゛ックテ゛ス。” ＣＯ＄（１，０）＝”ト゛ノケ゛ームヲヤリマスカ？” ＳＥ＄（０，０）＝”ＧＡＭＥ１　カレーライス” ＳＥ＄（１，０）＝”ＧＡＭＥ２　サンタクロース” ＳＥ＄（２，０）＝”ＧＡＭＥ３　タ゛ッシュツケ゛ーム” ＳＥ＄（３，０）＝”ＥＮＤ” ＢＡ（０，０）＝１ ＢＡ（１，０）＝１ ＢＡ（２，０）＝１ ＢＡ（３，０）＝−１ ＴＡＢＳＴＥＰ＝０ ＧＯＳＵＢ＠ＧＲＡ ＠ＭＥＮＵＬＰ ＷＡＩＴ　１０ Ｂ＝ＢＵＴＴＯＮ（） ＩＦ　Ｂ＝＝１６　ＡＮＤ　ＳＥ＄（０，０）！＝”−”　ＴＨＥＮ　ＲＥＳＴＯＲＥ＠ＧＡＭＥ１：ＴＡＢＳＴＥＰ＝１ ＩＦ　Ｂ＝＝３２　ＡＮＤ　ＳＥ＄（１，０）！＝”−”　ＴＨＥＮ　ＲＥＳＴＯＲＥ＠ＧＡＭＥ２：ＴＡＢＳＴＥＰ＝２ ＩＦ　Ｂ＝＝６４　ＡＮＤ　ＳＥ＄（２，０）！＝”−”　ＴＨＥＮ　ＲＥＳＴＯＲＥ＠ＧＡＭＥ３：ＴＡＢＳＴＥＰ＝３ ＩＦ　Ｂ＝＝１２８　ＡＮＤ　ＳＥ＄（３，０）！＝”−”　ＴＨＥＮ　＠ＧＥＮＤ ＩＦ　０＝＝ＴＡＢＳＴＥＰ　ＴＨＥＮ　＠ＭＥＮＵＬＰ ＣＬＳ：ＣＬＥＡＲ：ＲＥＡＤ　ＭＡＸ ＤＩＭ　ＰＥ（ＭＡＸ） ＤＩＭ　ＣＯ＄（２，ＭＡＸ） ＤＩＭ　ＳＥ＄（４，ＭＡＸ） ＤＩＭ　ＢＡ（４，ＭＡＸ） ＤＩＭ　ＢＡ＄（４，ＭＡＸ） ＳＰ＄＝”　　　　　　　　　　　　　　　　”’（１６マス） ＴＩＴＬＥ＄＝”　　　　　ＧＡＭＥ　”＋ＳＴＲ＄（ＴＡＢＳＴＥＰ）＋”　　　　　” ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ−１ ＲＥＡＤ　ＰＥ＄（Ｉ） ＦＯＲ　Ｊ＝０　ＴＯ　１ ＲＥＡＤ　ＣＯ＄（Ｊ，Ｉ） ＩＦ　ＬＥＮ（ＣＯ＄（Ｊ，Ｉ））＞１６　ＴＨＥＮ　ＥＲ＄＝ＣＯ＄（Ｊ，Ｉ）：ＧＯＴＯ＠ＥＲＲＯＲ ＮＥＸＴ　Ｊ ＦＯＲ　Ｊ＝０　ＴＯ　３ ＲＥＡＤ　ＢＡ（Ｉ，Ｊ），ＳＥ＄（Ｊ，Ｉ） ＩＦ　ＬＥＮ（ＳＥ＄（Ｊ，Ｉ））＞１６　ＴＨＥＮ　ＥＲ＄＝ＳＥ＄（Ｊ，Ｉ）：ＧＯＴＯ＠ＥＲＲＯＲ ＮＥＸＴ：ＮＥＸＴ ＭＡＩ＝１ ＠ＭＡＩＮ ＭＡ＝ＭＡＩ−１ ＢＴＮ＝０：ＣＬＳ：ＧＯＳＵＢ＠ＧＲＡ：ＢＥＥＰ　３ ＠ＬＯＯＰ ＷＡＩＴ　１０ Ｂ＝ＢＵＴＴＯＮ（） ＩＦ　Ｂ＝＝１６　ＡＮＤ　ＢＡ（０，ＭＡ）！＝０　ＴＨＥＮ　ＢＴＮ＝１ ＩＦ　Ｂ＝＝３２　ＡＮＤ　ＢＡ（１，ＭＡ）！＝０　ＴＨＥＮ　ＢＴＮ＝２ ＩＦ　Ｂ＝＝６４　ＡＮＤ　ＢＡ（２，ＭＡ）！＝０　ＴＨＥＮ　ＢＴＮ＝３ ＩＦ　Ｂ＝＝１２８　ＡＮＤ　ＢＡ（３，ＭＡ）！＝０　ＴＨＥＮ　ＢＴＮ＝４ ＩＦ　ＢＴＮ＝＝０　ＴＨＥＮ　＠ＬＯＯＰ ＩＦ　ＢＡ（ＢＴＮ−１，ＭＡ）＝＝９９　ＴＨＥＮ　＠ＯＶＥＲ ＩＦ　ＢＡ（ＢＴＮ−１，ＭＡ）＝＝１００　ＴＨＥＮ　＠ＣＬＥ ＭＡＩ＝ＢＡ（ＢＴＮ−１，ＭＡ） ＧＯＴＯ＠ＭＡＩＮ ＠ＧＲＡ ＦＯＲ　Ｉ＝０　ＴＯ　１ ＣＬＥ＝１６−ＬＥＮ（ＣＯ＄（Ｉ，ＭＡ）） ＣＯ＄（Ｉ，ＭＡ）＝ＣＯ＄（Ｉ，ＭＡ）＋ＭＩＤ＄（ＳＰ＄，０，ＣＬＥ） ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　３ ＣＬＥ＝１６−ＬＥＮ（ＳＥ＄（Ｉ，ＭＡ）） ＳＥ＄（Ｉ，ＭＡ）＝ＳＥ＄（Ｉ，ＭＡ）＋ＭＩＤ＄（ＳＰ＄，０，ＣＬＥ） ＢＡ＄＝ＳＴＲ＄（ＢＡ（Ｉ，ＭＡ）） ＢＡ＄（Ｉ，ＭＡ）＝ＭＩＤ＄（”　　　”，０，３−ＬＥＮ（ＢＡ＄））＋ＢＡ＄ ＮＥＸＴ ＰＥ＄＝ＳＴＲ＄（ＭＡＩ） ＰＥ＄＝ＭＩＤ＄（”　　　”，０，３−ＬＥＮ（ＰＥ＄））＋ＰＥ＄ ＰＲＩＮＴ”┌────────────────┐” ＰＲＩＮＴ”│”ＴＩＴＬＥ＄”│” ＰＲＩＮＴ”│Ж：ニコチャン　”ＰＥ＄”Ｐ　　　　│” ＰＲＩＮＴ”│”ＣＯ＄（０，ＭＡ）”│” ＰＲＩＮＴ”│”ＣＯ＄（１，ＭＡ）”│” ＰＲＩＮＴ”│А：”ＢＡ＄（０，ＭＡ）”Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│”ＳＥ＄（０，ＭＡ）”│” ＰＲＩＮＴ”│Б：”ＢＡ＄（１，ＭＡ）”Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│”ＳＥ＄（１，ＭＡ）”│” ＰＲＩＮＴ”│Ф：”ＢＡ＄（２，ＭＡ）”Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│”ＳＥ＄（２，ＭＡ）”│” ＰＲＩＮＴ”│Х：”ＢＡ＄（３，ＭＡ）”Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│”ＳＥ＄（３，ＭＡ）”│” ＰＲＩＮＴ”└────────────────┘” ＲＥＴＵＲＮ ＠ＯＶＥＲ ＣＬＳ：ＢＧＭＰＬＡＹ　１０ ＰＲＩＮＴ”┌────────────────┐” ＰＲＩＮＴ”│”ＴＩＴＬＥ＄”│” ＰＲＩＮＴ”│Ж：ニコチャン　　９９Ｐ　　　　│” ＰＲＩＮＴ”│ＧＡＭＥ　ＯＶＥＲ　　　　　　　│” ＰＲＩＮＴ”│　　　　　　　　　　　　　　　　│” ＰＲＩＮＴ”│А：　　１Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│ＴＩＴＬＥ　　　　　　　　　　　│” ＰＲＩＮＴ”│Б：　　０Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│−　　　　　　　　　　　　　　　│” ＰＲＩＮＴ”│Ф：　　０Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│−　　　　　　　　　　　　　　　│” ＰＲＩＮＴ”│Х：　　０Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│−　　　　　　　　　　　　　　　│” ＰＲＩＮＴ”└────────────────┘” ＠ＯＶＥＲＬＰ ＷＡＩＴ　１０ ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＴＨＥＮ　＠ＩＮＩＴ ＧＯＴＯ＠ＯＶＥＲＬＰ ＠ＥＲＲＯＲ ＢＥＥＰ　２：ＰＲＩＮＴ”Ｓｔｒｉｎｇ　ｔｏｏ　ｌｏｎｇ” ＰＲＩＮＴ　ＥＲ＄ ＥＮＤ ＠ＣＬＥ ＣＬＳ：ＢＧＭＰＬＡＹ　１９ ＰＲＩＮＴ”┌────────────────┐” ＰＲＩＮＴ”│”ＴＩＴＬＥ＄”│” ＰＲＩＮＴ”│Ж：ニコチャン　　１００Ｐ　　　│” ＰＲＩＮＴ”│ＧＡＭＥ　ＣＬＥＡＲ　　　　　　│” ＰＲＩＮＴ”│　　　　　　　　　　　　　　　　│” ＰＲＩＮＴ”│А：　　１Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│ＴＩＴＬＥ　　　　　　　　　　　│” ＰＲＩＮＴ”│Б：　　０Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│−　　　　　　　　　　　　　　　│” ＰＲＩＮＴ”│Ф：　　０Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│−　　　　　　　　　　　　　　　│” ＰＲＩＮＴ”│Х：　　０Ｐ　　　　　　　　　　│” ＰＲＩＮＴ”│−　　　　　　　　　　　　　　　│” ＰＲＩＮＴ”└────────────────┘” ＠ＣＬＥＬＰ ＷＡＩＴ　１０ ＩＦ　ＢＵＴＴＯＮ（）＝＝１６　ＴＨＥＮ　＠ＩＮＩＴ ＧＯＴＯ＠ＣＬＥＬＰ ＠ＧＥＮＤ ＣＬＳ：ＢＥＥＰ　３４：ＰＲＩＮＴ”オツカレサマ！” ＷＡＩＴ　２４０：ＥＮＤ

ご感想をどうぞ (投票)

選択肢	投票
GAME1がおもしろい	2
GAME2が最高	0
GAME3がすごい	0
普通	3
つまらない	0
つまらない(鼻が)	0
くだらなすぎ	0
ウン、ウマイッ!	0
自分でつくってみました	0

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

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

お名前: