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

投稿プログラム : せませまシューティング

パンくずリスト

2011年12月17日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム シューティングゲーム 数行プログラム 初代対応

遊び方

左右で避けてAで弾を撃ち敵を倒すゲームです

詳しく

青い場所には乗れません 自分の弾の威力は時間が経つと上がります

難易度変更の仕方

1行目のLEVEL＝1の値を変えると難易度が変わります 1~3は敵が弾を撃ってきます 一回あたるとゲームオーバーです

4にすると敵はひたすら逃げます

5以降にすると敵は動きません

後このゲームは一画面プログラムにしようとしたのですがうまくいかずこのような形になりました

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

動作しているところを撮影した写真や動画があれば貼り付けてください。

プログラムリスト

  1. ＣＬＥＡＲ：ＣＬＳ：Ｙ＝２：Ｋ＝３０：？　”ＲＥＡＤＹ？”：ＶＳＹＮＣ　５０：ＣＬＳ：？　”ＧＯ”：ＶＳＹＮＣ　３０：ＢＧＭＰＬＡＹ　２３：ＬＥＶＥＬ＝１
  2. ＠Ａ
  3. ＣＬＳ：Ｋ＝Ｋ＋１：Ｌ＝ＬＥＶＥＬ：Ｚ＝０：Ｔ＝Ｔ＋１：ＩＦ　Ｔ％（３６／Ｌ）＝＝０　ＴＨＥＮ　Ｙ＝ＲＮＤ（３）
  4. Ｂ＝ＢＵＴＴＯＮ（）：ＩＦ　Ｔ％（３６／Ｌ）＝＝１９−６＊Ｌ　ＴＨＥＮ　Ｋ＝０：ＢＥＥＰ　１２
  5. ＩＦ　Ａ％１６／８＋Ｂ％１６／８＊２＝＝２　ＴＨＥＮ　ＩＦ　Ｘ！＝２　ＴＨＥＮ　Ｘ＝Ｘ＋１
  6. ＩＦ　Ａ％８／４＋Ｂ％８／４＊２＝＝２　ＴＨＥＮ　ＩＦ　Ｘ！＝０　ＴＨＥＮ　Ｘ＝Ｘ−１
  7. ＩＦ　（Ａ％３２／１６＋Ｂ％３２／１６＊２＝＝２）ＡＮＤ（Ｘ＝＝Ｙ）　ＴＨＥＮ　　Ｈ＝Ｈ＋１＋ＦＬＯＯＲ（Ｔ／２００）：Ｚ＝１
  8. ＩＦ　（Ｘ＝＝Ｙ）ＡＮＤ（Ｋ＝＝８）　ＴＨＥＮ　ＧＯＴＯ　＠Ｂ
  9. Ａ＝ＢＵＴＴＯＮ（）
  10. ＩＦ　Ｈ＞＝５０＋Ｌ＊５０　ＴＨＥＮ　ＧＯＴＯ　＠Ｃ
  11. ＬＯＣＡＴＥ　Ｘ＊３，２０：？　”▲”：ＧＦＩＬＬ　６０，５０，７０，２００，４：ＧＦＩＬＬ　０，５０，６０，８０，４
  12. ＬＯＣＡＴＥ　Ｙ＊３，１２：？　”◆”：ＩＦ　Ｚ＝＝１　ＴＨＥＮ　ＬＯＣＡＴＥ　Ｙ＊３，１２：？　”◇”：ＢＥＥＰ　６８
  13. ＬＯＣＡＴＥ　０，０：？　”ＨＰ”；Ｌ＊５０＋５０−Ｈ；”　ＴＩＭＥ”；Ｔ；”　ＬＥＶＥＬ”；Ｌ
  14. ＩＦ　Ｋ＜１１　ＴＨＥＮ　ＬＯＣＡＴＥ　Ｙ＊３，１２＋Ｋ：？　”↓”
  15. ＶＳＹＮＣ　３
  16. ＧＯＴＯ　＠Ａ
  17. ＠Ｂ
  18. ＣＬＳ：ＰＲＩＮＴ”ＧＡＭＥ　ＯＶＥＲ　ＴＩＭＥ”；Ｔ：ＢＧＭＰＬＡＹ　０６：ＥＮＤ
  19. ＠Ｃ
  20. ＣＬＳ：ＰＲＩＮＴ”ＣＬＥＡＲ　ＴＩＭＥ”；Ｔ：ＢＧＭＰＬＡＹ　０５：ＥＮＤ

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

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

  • バイカウントメルビル : １行目コンマがありません。 (2011/12/19 (月) 02:07:13)
  • バイカウントメルビル : あと３行目おかしくないですか？ (2011/12/19 (月) 02:08:08)
  • バイカウントメルビル : １４行目Lが抜けてませんか？ (2011/12/19 (月) 02:09:11)
  • 名無しさん : 間違えた場所を修正しました。ご指摘ありがとうございます (2011/12/20 (火) 12:37:51)
  • 翁鶏 : 5行目6行目　ＩＦにＩＦきていませんか? (2012/01/01 (日) 13:50:28)
  • わぁぃ@ : 5、6行目の2つ目のIF、変数名無いけど大丈夫？ (2012/01/01 (日) 18:43:32)
  • 翁鶏 : 当たり判定ないし・・・ (2012/01/02 (月) 19:46:59)
  • 名無しさん : すいません 5,6行目のXが抜けてました わぁぃ@さん修正ありがとうございます (2012/01/03 (火) 14:33:24)
  • 名無しさん : IFにIFきてませんか？　何がおかしいの (2012/04/07 (土) 19:11:43)
  • EXE : ＱＲｺｰﾄﾞのせてくれませんか？ (2012/04/08 (日) 20:38:46)
  • 名無しさん : 二重分岐の何がおかしい? (2012/04/08 (日) 21:41:53)
  • ゆうしゃアシスタント : これやりたいけどＱＲコードにたよってるおれは無理だー！ (2012/05/02 (水) 18:13:32)
  • ウイングの友達 : ↑同感 (2012/05/02 (水) 19:28:17)
  • ウイングの友達 : ↑同感wwwwwwwwwwwwwwww (2012/05/02 (水) 19:29:21)
  • 名無しさん : たった20行なのに… (2012/05/02 (水) 19:43:42)
  • ゆうしゃアシスタント : 中学生なんです。俺wできるだけがんばってみます！ (2012/05/03 (木) 12:48:08)
  • ゆうしゃアシスタント : ようやくできた！でもＳyntax errorに！ (2012/05/03 (木) 13:17:11)
  • ウイングの友達 : ２０行だったので、打ち込みます。 (2012/05/15 (火) 19:37:44)
  • hata0401 : 20行って言っても打つと意外に時間かかるもんだな・・・ (2012/06/10 (日) 20:50:07)
  • hata0401 : IFにIF!はじめてみた・・・’ネスト’ってやつか・・・ (2012/06/10 (日) 20:59:23)
  • hata0401 : 8行目のGOTOって省ける？ (2012/06/10 (日) 21:05:30)
  • hata0401 : 10行目のGOTOも省ける？ (2012/06/10 (日) 21:17:15)
  • 名無しさん : ↑できます (2012/06/17 (日) 15:22:27)
  • 名無しさん : qrは、 (2012/07/01 (日) 12:17:53)
  • 名無しさん : qrは、http://www2.u-netsurf.ne.jp/~ozawa/petitcom/petiteditor.htmlにコピペするといいよ。 (2012/07/01 (日) 12:19:03)
  • 名無しさん : メンドイ (2012/07/27 (金) 10:06:46)
  • 名無しさん : ↑2うちのpcじゃ重くなって最終的に全ての動作を受け付けなくなるんだが (2012/08/01 (水) 07:37:45)
  • 名無しさん : ↑自分でうちこめ (2012/08/22 (水) 20:48:41)
  • 名無しさん : ↑ファイト！！ (2012/08/22 (水) 20:48:57)
  • わぁぃ＠ : ↑3　PTCUtilitiesがある。 (2012/08/22 (水) 20:59:51)
  • otyaken : ☝PTCUtilitiesは動作を停止しましたって出てくることがあるんだよなー… (2012/08/22 (水) 21:01:55)
  • バイカウントメルビル : ↑↑さらに突然ウィンドウが消えることもある (2012/08/23 (木) 01:07:02)
  • 麿 : ↑6 ブラウザの問題だったりして。Firefox,Chrome,Safariの内使ってないブラウザで試すとか。 (2012/08/23 (木) 01:11:55)

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