投稿プログラム : はやうち！キーボードインベーダ

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:07

公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/A4-CF-A4-E4-A4-A6-A4-C1-A1-AA-A5-AD-A1-BC-A5-DC-A1-BC-A5-C9-A5-A4-A5-F3-A5-D9-A1-BC-A5-C0-.html

プチコンでタイピングゲームを作ってみました。
- 操作方法
- ストボンって誰だよ。
スクリーンショット・動画
QR コード
- おまけ
プログラムリスト
更新情報
CHECKER FLAG (ひとことコメント)

2014年10月26日投稿 / 投稿者 : キャラクター製作所 / タグ : 投稿プログラムゲームシューティングゲーム QRコード mkII専用

今日は、1人
これまでに、1967人

閲覧 Thank you! (o^ω^o)

プチコンでタイピングゲームを作ってみました。

こんな小さなキーボードで、何のためにタイピングをするのか、気になる人もいると思いますが、↓このような意味があります。

プチコンのキーボードに慣れる。
キーボードの配置を覚える。
ローマ字を覚える。

操作方法

メニュー画面

選択：十字ボタン

ゲーム中

文字入力：キーボード
ポーズ：ボタン

ポーズ中

再開：Aボタン
メニューにもどる：Bボタン

ストボンって誰だよ。

ほい。ストボンって誰だよw

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

Doorsから起動してみました。

https://www.youtube.com/watch?v=DsgGv3VT0K8&list=PLf_AFwBswN_o-z9gqzqu6X3nW6eAmUOj5 - 0:55 PRG：SKEYを起動

QR コード

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

PRG:SKEY101

↑更新しました(Version1.0.1)

評価

おまけ

BGF:SKFT(オススメフォント)

↑フォントを使ったプログラムの起動には、Doorsが便利です。

プログラムリスト

ＬＯＡＤ”ＳＫＥＹ”

’ＰＲＧ：ＳＫＥＹ
’－－－－－－－－
’┗┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┫
’┛ハヤウチ！キ－ホ゛－ト゛インヘ゛－タ゛┻
’┫┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┗

＠ＳＰＥＥＤＫＥＹＢＯＡＲＤ

’セッテイ＜＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

ＡＣＬＳ：ＣＬＥＡＲ：ＰＮＬＴＹＰＥ”ＫＹＡ”
ＢＧＭＳＴＯＰ

’ＳＡＶＥＤＡＴＡ＜－－－－－－－－－－－－－－－－－－－
ＤＩＭ　ＨＮ＄（５），ＨＩ（５）
ＭＥＭ＄＝””ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ
ＬＯＡＤ”ＭＥＭ＄：ＳＫＳＤ”，０ＳＹＳＢＥＥＰ＝１
ＩＦ　ＭＥＭ＄＝＝””ＴＨＥＮ　ＭＥＭ＄＝”－－－－－９９９９９”＊５
ＦＯＲ　Ｉ＝０　ＴＯ　４
　ＨＮ＄（Ｉ）＝ＭＩＤ＄（ＭＥＭ＄，Ｉ＊１０，５）
　ＨＩ（Ｉ）＝ＶＡＬ（ＭＩＤ＄（ＭＥＭ＄，Ｉ＊１０＋５，５））／１０
ＮＥＸＴ

’ストホ゛ンキャラテ゛－タ＜－－－－－－－－－－－－－－－
ＳＵＴＯＣＨＲ＄＝”００４６６００００Ｆ４５５Ｆ０００ＦＦＦＦＦＦ００ＦＦＦＥＦＥ００ＦＦＦＦＦＦ０ＢＢＢＢＢＢＢＢＢＡＢＡＡＢＡＢ００００００００”
ＣＨＲＳＥＴ　”ＢＧＦ０Ｕ”，５，ＳＵＴＯＣＨＲ＄
ＣＨＲＳＥＴ　”ＢＧＦ０Ｌ”，５，ＳＵＴＯＣＨＲ＄

’ＫＥＹＣＬＥＡＲ＜－－－－－－－－－－－－－－－－－－－
ＤＩＭ　Ｋ＄（５）
Ｋ＄（０）＝”ＦＩＬＥＳ”
Ｋ＄（１）＝”ＬＯＡＤ”＋ＣＨＲ＄（３４）
Ｋ＄（２）＝”ＳＡＶＥ”＋ＣＨＲ＄（３４）
Ｋ＄（３）＝”ＣＯＮＴ”
Ｋ＄（４）＝”ＲＵＮ”
ＧＯＳＵＢ　＠ＫＥＹＣＬＥＡＲ

’ＫＥＹＰＲＩＮＴ＜－－－－－－－－－－－－－－－－－－－
ＫＥＹＰ＄＝”Д”＋”　”＊１９　’ＫＥＹニヒョウシ゛スルモシ゛レツ
ＫＬＯＣ＝０　’サ゛ヒョウ
ＫＰ＄＝”Е”　’モシ゛
ＦＯＲ　ＫＬＯＣ＝４　ＴＯ　１６　ＳＴＥＰ　４
ＧＯＳＵＢ　＠ＫＥＹＰＲＩＮＴ：ＮＥＸＴ

’ＤＡＴＡヨミコミ＜－－－－－－－－－－－－－－－－－－－
ＤＩＭ　ＫＡＮＡ＄（１００），ＲＯＯ＄（１００），Ｓ（１０）
ＲＥＳＴＯＲＥ　＠ＫＡＮＡＤＡＴＡ
ＦＯＲ　Ｉ＝０　ＴＯ　９９
　ＲＥＡＤ　ＫＡＮＡ＄（Ｉ）
　ＩＦ　ＫＡＮＡ＄（Ｉ）＝＝””　ＴＨＥＮ　ＭＡＸ＝Ｉ－１：Ｉ＝９９
ＮＥＸＴ
ＲＥＳＴＯＲＥ　＠ＲＯＯＭＡＺＩＤＡＴＡ
ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ
　ＲＥＡＤ　ＲＯＯ＄（Ｉ）
ＮＥＸＴ


’ＭＡＩＮＭＥＮＵ＜＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
ＣＳ＝１
＠ＭＥＮＵ
ＶＳＹＮＣ　１ＣＯＬＯＲ　０，０ＣＬＳ：Ｍ＄＝”А”

？”　│──┼─　─┼─┼┐　　──┐　　　　│　　　│”
？”　│　　│　　　│　　│　────┐　──┼──　│”
？”　│　　│　　　│　　　　　　　　│　　　└─┐　│”
？”　│┌─┼─　　│　　　　　　　　│　　　　　│　　”
？”　└└─┘　　　│　　　　　───┘　　───┘　│”
？
ＣＯＬＯＲ　３
？”　　　│　　　　　　　　　──┼┼┼　　　　　　　│　││
？”　──┼──　　　　　　　　　│　　　　　　　　　│　　　
？”　　　│　　　─────　│　│　│　─────　├──┐
？”　──┼──　　　　　　　│　│　│　　　　　　　│　　　
？”　　　│　　　　　　　　　┘　│　└　　　　　　　│　　　
？
ＣＯＬＯＲ　７
？”　　　　　│　──　　│　　　　　　　　　　　　　┌─┼┼┐
？”　──┬─┘　　　　　│　┌──┼┼　　　　　　　│　　　│
？”　　　│　　　　　　　│　│　　　　　─────　│───│
？”　　　│　　　　　　　│　│　　　　　　　　　　　　　　　│
？”　　　│　　　────┘　　　　　　　　　　　　　　　　　│

ＣＯＬＯＲ　０
ＬＯＣＡＴＥ　２，１８？”Ｓｔｏｒｙ”
ＬＯＣＡＴＥ　２，２０？”ＧａｍｅＳｔａｒｔ”
ＬＯＣＡＴＥ　２，２２？”Ｅｘｉｔ”，
ＣＯＬＯＲ　９？”ｂｙ　キャラクタ－セイサクシ゛ョ　ｓｏｆｔ”；

ＫＬＯＣ＝１ＫＰ＄＝Ｍ＄：ＧＯＳＵＢ　＠ＫＥＹＰＲＩＮＴ

Ｂ＝ＢＵＴＴＯＮ（）
ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＣＳ＝ＣＳ－１ＢＥＥＰ　４７ＷＡＩＴ　１０
ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＣＳ＝ＣＳ＋１ＢＥＥＰ　４７ＷＡＩＴ　１０
ＩＦ　ＣＳ＜０　ＴＨＥＮ　ＣＳ＝０
ＩＦ　ＣＳ＞２　ＴＨＥＮ　ＣＳ＝２
ＣＯＬＯＲ　４ＬＯＣＡＴＥ　１，ＣＳ＊２＋１８？”П”

ＩＦ　！（Ｂ　ＡＮＤ　１６）　ＴＨＥＮ　＠ＭＥＮＵ

ＧＯＳＵＢ　＠ＳＨＯＴ

ＯＮ　ＣＳ　ＧＯＴＯ　＠ＳＴＯＲＹ，＠ＧＡＭＥ，＠ＥＮＤ


＠ＧＡＭＥ　’＜＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Ｅ＝１０ＥＶ＝０ＢＥＥＰ　３６ＣＯＬＯＲ　０，５ＣＬＳ
ＢＧＭＰＬＡＹ　２

＠ＲＮＤＫＡＮＡ　’＜－－－－－－－－－－－－－－－－－－
ＮＵＭ＝ＲＮＤ（ＭＡＸ＋１）：Ｍ＄＝ＫＡＮＡ＄（ＮＵＭ）
ＥＶ＝ＥＶ－０．０１２５ＥＸ＝２０ＳＴ＄＝””？
ＣＮＴ＝ＭＡＩＮＣＮＴＬ

＠ＬＯＯＰ　’＜－－－－－－－－－－－－－－－－－－－－－
　ＶＳＹＮＣ　１
　ＫＬＯＣ＝１ＫＰ＄＝Ｍ＄ＧＯＳＵＢ　＠ＫＥＹＰＲＩＮＴ
　ＫＬＯＣ＝ＦＬＯＯＲ（ＥＸ）：ＫＰ＄＝”　”ＧＯＳＵＢ　＠ＫＥＹＰＲＩＮＴ
　ＥＸ＝ＥＸ＋ＥＶ
　ＫＬＯＣ＝ＦＬＯＯＲ（ＥＸ）：ＫＰ＄＝”Е”ＧＯＳＵＢ　＠ＫＥＹＰＲＩＮＴ
　ＩＦ　ＦＬＯＯＲ（ＥＸ）＝＝０　ＴＨＥＮ　＠ＧＡＭＥＯＶ
　ＩＮ＄＝ＩＮＫＥＹ＄（）
　ＳＴ＄＝ＳＴ＄＋ＩＮ＄：？ＩＮ＄；
　ＩＦ　ＳＴ＄＝＝ＲＯＯ＄（ＮＵＭ）　ＴＨＥＮ　＠ＨＩＴ
　ＩＦ　ＳＴ＄！＝ＬＥＦＴ＄（ＲＯＯ＄（ＮＵＭ），ＬＥＮ（ＳＴ＄））　ＴＨＥＮ　ＳＴ＄＝””？”　м”：？：ＢＥＥＰ
　ＩＦ　Ｅ＜１　ＴＨＥＮ　＠ＧＡＭＥＣＬ
　ＩＦ　ＢＴＲＩＧ（）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＡＵＳＥ
ＧＯＴＯ　＠ＬＯＯＰ

＠ＨＩＴ　’＜－－－－－－－－－－－－－－－－－－－－－－
　Ｓ（１０－Ｅ）＝ＦＬＯＯＲ（（ＭＡＩＮＣＮＴＬ－ＣＮＴ）／６）／１０
　？”　　”；Ｓ（１０－Ｅ）；”ヒ゛ョウ”
　Ｅ＝Ｅ－１
　ＧＯＳＵＢ　＠ＳＨＯＴ
ＧＯＴＯ　＠ＲＮＤＫＡＮＡ

＠ＰＡＵＳＥ　’＜－－－－－－－－－－－－－－－－－－－－
？”Аサイカイ／БＭＥＮＵ”：ＷＡＩＴ　１０
＠ＰＡＵＳＥＬＯＯＰ
Ｂ＝ＢＵＴＴＯＮ（）
ＩＦ　Ｂ　ＡＮＤ　１６　ＴＨＥＮ　ＷＡＩＴ　１０？”サイカイシマシタ”：ＲＥＴＵＲＮ
ＩＦ　Ｂ　ＡＮＤ　３２　ＴＨＥＮ　ＷＡＩＴ　１０ＧＯＴＯ　＠ＳＰＥＥＤＫＥＹＢＯＡＲＤ
ＧＯＴＯ　＠ＰＡＵＳＥＬＯＯＰ

＠ＧＡＭＥＣＬ　’＜－－－－－－－－－－－－－－－－－－－
ＢＧＭＳＴＯＰ
ＦＯＲ　Ｉ＝０ＴＯ　５ＢＥＥＰ　１３ＷＡＩＴ　１０＋Ｉ＊３ＮＥＸＴ
ＷＡＩＴ　６０ＴＡＬＫ”コウシテ　フ゜チコンノヘイワワ　マモラレルノテ゛アッタ”
ＧＯＳＵＢ　＠ＫＥＹＣＬＥＡＲ：ＷＡＩＴ　３００
ＢＧＭＰＬＡＹ　８
ＦＯＲ　Ｉ＝０ＴＯ　９ＳＣ＝ＳＣ＋Ｓ（Ｉ）：ＮＥＸＴ：ＳＣ＝ＳＣ／１０
ＩＦ　ＨＩ（４）＞ＳＣ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＨＩＳＣＯＲＥ
？：？”★ランキンク゛　１―５イ★”
ＦＯＲ　Ｉ＝０　ＴＯ　４
　？：？Ｉ＋１；”イ　”；ＨＮ＄（Ｉ）；”　ヤク”；ＨＩ（Ｉ）；”ヒ゛ョウ”
ＮＥＸＴ
ＬＩＮＰＵＴ　Ａ＄：ＧＯＴＯ　＠ＳＰＥＥＤＫＥＹＢＯＡＲＤ

＠ＨＩＳＣＯＲＥ　’＜－－－－－－－－－－－－－－－－－－
　ＨＩ（４）＝ＦＬＯＯＲ（ＳＣ＊１０）／１０
　？”ランクインシマシタ！　アナタノキロク：”；ＳＣ；”ヒ゛ョウ”
　？
　ＩＮＰＵＴ”ナマエハ”；ＨＮ＄（４）
　ＨＮ＄（４）＝ＬＥＦＴ＄（ＨＮ＄（４）＋”　　　　　”，５）
　ＳＯＲＴ　０，５，ＨＩ，ＨＮ＄
　ＭＥＭ＄＝””
　ＦＯＲ　Ｉ＝０　ＴＯ　４
　　ＭＥＭ＄＝ＭＥＭ＄＋ＨＮ＄（Ｉ）＋ＲＩＧＨＴ＄（”０００００”＋ＳＴＲ＄（ＨＩ（Ｉ）），５）
　ＮＥＸＴ
　ＳＹＳＢＥＥＰ＝０ＳＡＶＥ”ＭＥＭ＄：ＳＫＳＤ”
　ＳＹＳＢＥＥＰ＝１ＩＦ　ＲＥＳＵＬＴ　ＴＨＥＮ　ＢＥＥＰ　３　ＥＬＳＥ　ＢＥＥＰ　４
ＲＥＴＵＲＮ

＠ＧＡＭＥＯＶ　’＜－－－－－－－－－－－－－－－－－－－
ＢＧＭＳＴＯＰ：ＢＥＥＰ　１４ＷＡＩＴ　７０ＢＧＭＰＬＡＹ　６
ＷＡＩＴ　３５０：ＴＡＬＫ”ストホ゛ンノマケ”
ＬＩＮＰＵＴ　Ａ＄：ＧＯＴＯ　＠ＳＰＥＥＤＫＥＹＢＯＡＲＤ


＠ＳＴＯＲＹ　’＜＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
ＣＯＬＯＲ　０，５ＣＬＳ：ＧＯＳＵＢ　＠ＫＥＹＣＬＥＡＲ
ＲＥＳＴＯＲＥ　＠ＳＴＯＲＹＤＡＴＡ
　ＦＯＲ　Ｉ＝０　ＴＯ　１
　　ＲＥＡＤ　Ｒ＄：ＴＡＬＫ　Ｒ＄：？Ｒ＄
　　ＲＥＡＤ　Ｒ：ＷＡＩＴ　Ｒ
　　Ｉ＝Ｒ＝＝０
　ＮＥＸＴ
ＧＯＴＯ　＠ＳＰＥＥＤＫＥＹＢＯＡＲＤ


＠ＥＮＤ　’＜＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
ＣＯＬＯＲ　０，５ＣＬＳ：ＧＯＳＵＢ　＠ＫＥＹＣＬＥＡＲ
？”Ｓｅｅ　ｙｏｕ！”：ＷＡＩＴ　６０ＢＥＥＰ　４ＡＣＬＳ

ＥＮＤ　’ВВВВВВВВВВВВВВВВВВВВВВВВ


＠ＳＨＯＴ　’ミサイルハッシャ＜＝＝＝＝＝＝＝＝＝＝＝＝＝
　ＢＥＥＰ　１０
　ＦＯＲ　ＫＬＯＣ＝１　ＴＯ　２０
　　ＩＦ　ＭＩＤ＄（ＫＥＹＰ＄，ＫＬＯＣ，１）＝＝”Е”　ＴＨＥＮ　ＢＥＥＰ　１１
　　ＫＰ＄＝Ｍ＄：ＧＯＳＵＢ　＠ＫＥＹＰＲＩＮＴ
　　ＶＳＹＮＣ　１
　　ＫＰ＄＝”　”ＧＯＳＵＢ　＠ＫＥＹＰＲＩＮＴ
　ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＫＥＹＰＲＩＮＴ　’ル－チン＜＝＝＝＝＝＝＝＝＝＝＝＝＝
　ＦＯＲ　Ｉ＝１　ＴＯ　５
　　ＫＥＹＰ＄＝ＳＵＢＳＴ＄（ＫＥＹＰ＄，ＫＬＯＣ，１，ＫＰ＄）
　　ＫＥＹ　Ｉ，ＭＩＤ＄（ＫＥＹＰ＄，（Ｉ－１）＊４，４）
　ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＫＥＹＣＬＥＡＲ　’ル－チン＜＝＝＝＝＝＝＝＝＝＝＝＝＝
　ＦＯＲ　Ｉ＝０　ＴＯ　４
　　ＫＥＹ　Ｉ＋１，Ｋ＄（Ｉ）
　ＮＥＸＴ
ＲＥＴＵＲＮ


’ＤＡＴＡ＜＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

＠ＳＴＯＲＹＤＡＴＡ
ＤＡＴＡ”アルヒノコトタ゛ッタ”，１００
ＤＡＴＡ”フ゜チコンノキ－ホ゛－ト゛ニインヘ゛－タ゛－カ゛セメテキタ”，２００
ＤＡＴＡ”ソコテ゛ヒトリノユウシャカ゛タチアカ゛ッタ”，１６０
ＤＡＴＡ”ソノナモ”，６０
ＤＡＴＡ”ストホ゛ン！”，６０
ＤＡＴＡ”ロ－マシ゛ヲニュウリョクシテ”，１２０
ＤＡＴＡ”ハッシャタ゛！”，６０
ＤＡＴＡ””，０

＠ＫＡＮＡＤＡＴＡ
ＤＡＴＡ　”ア”，”イ”，”ウ”，”エ”，”オ”
ＤＡＴＡ　”カ”，”キ”，”ク”，”ケ”，”コ”
ＤＡＴＡ　”サ”，”シ”，”ス”，”セ”，”ソ”
ＤＡＴＡ　”タ”，”チ”，”ツ”，”テ”，”ト”
ＤＡＴＡ　”ナ”，”ニ”，”ヌ”，”ネ”，”ノ”
ＤＡＴＡ　”ハ”，”ヒ”，”フ”，”ヘ”，”ホ”
ＤＡＴＡ　”マ”，”ミ”，”ム”，”メ”，”モ”
ＤＡＴＡ　”ヤ”，”ユ”，”ヨ”
ＤＡＴＡ　”ラ”，”リ”，”ル”，”レ”，”ロ”
ＤＡＴＡ　”ワ”，”ヲ”，”ン”
ＤＡＴＡ　””

＠ＲＯＯＭＡＺＩＤＡＴＡ
ＤＡＴＡ　”Ａ”，”Ｉ”，”Ｕ”，”Ｅ”，”Ｏ”
ＤＡＴＡ”ＫＡ”，”ＫＩ”，”ＫＵ”，”ＫＥ”，”ＫＯ”
ＤＡＴＡ”ＳＡ”，”ＳＩ”，”ＳＵ”，”ＳＥ”，”ＳＯ”
ＤＡＴＡ”ＴＡ”，”ＴＩ”，”ＴＵ”，”ＴＥ”，”ＴＯ”
ＤＡＴＡ”ＮＡ”，”ＮＩ”，”ＮＵ”，”ＮＥ”，”ＮＯ”
ＤＡＴＡ”ＨＡ”，”ＨＩ”，”ＨＵ”，”ＨＥ”，”ＨＯ”
ＤＡＴＡ”ＭＡ”，”ＭＩ”，”ＭＵ”，”ＭＥ”，”ＭＯ”
ＤＡＴＡ”ＹＡ”，”ＹＵ”，”ＹＯ”
ＤＡＴＡ”ＲＡ”，”ＲＩ”，”ＲＵ”，”ＲＥ”，”ＲＯ”
ＤＡＴＡ”ＷＡ”，”ＷＯ”，”Ｎ”
ＤＡＴＡ””

’－－－－－－－－
’Ｇｅｎｅｒａｔｅｄ　ｂｙ　ＣＨＲＥＤ　ｏｎ　Ａｎｄｒｏｉｄ　　Ｖｅｒｓｉｏｎ　０．０．５

更新情報

Version1.0.1

　ＨＩ（Ｉ）＝ＶＡＬ（ＭＩＤ＄（ＭＥＭ＄，Ｉ＊１０＋５，５））／１０

赤いところを削除してください。ランキングにバグがありました。セーブデータも削除してください。(MEM$:SKSD)

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

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

Newきゃらくたぁ製作所 : よし、3号版作ろうかな・・・？ (2015/04/16 (木) 22:51:15)

選択肢	投票
DLしました！ボタン	10

選択肢	投票
(・∀・)ｲｲ!!	3
(・∀・)ｲｲﾖｲｲﾖｰ	0
(・A・)ｲｸﾅｲ!!	0
(ﾟДﾟ)ｺﾞﾙｧ!!	0
(ﾟ∀ﾟ)ｱﾋｬ	0
(ﾉ∀`)ｱﾁｬｰ	0
(ﾟДﾟ )ｱﾗﾔﾀﾞ!!	0
(ﾟ⊿ﾟ)ｲﾗﾈ	0
(ﾟдﾟ)ｳﾏｰ	0
(・∀・)ﾆﾔﾆﾔ	0
(ﾟДﾟ)ﾊｧ?	0
(・∀・)ｶｴﾚ!!	1
＼(^o^)／ｵﾜﾀ	2

プチコンまとめArchive