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

ナビゲーション

ウィキ メニュー  :  編集 - 差分 - 添付 - 新規 - 検索 - 一覧 - 新着 - ヘルプ

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

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

遊び方

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

詳しく

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

難易度変更の仕方

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

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

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

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

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

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

プログラムリスト

  1. CLEAR:CLS:Y=2:K=30:? ”READY?”:VSYNC 50:CLS:? ”GO”:VSYNC 30:BGMPLAY 23:LEVEL=1
  2. @A
  3. CLS:K=K+1:L=LEVEL:Z=0:T=T+1:IF T%(36/L)==0 THEN Y=RND(3)
  4. B=BUTTON():IF T%(36/L)==19−6*L THEN K=0:BEEP 12
  5. IF A%16/8+B%16/8*2==2 THEN IF X!=2 THEN X=X+1
  6. IF A%8/4+B%8/4*2==2 THEN IF X!=0 THEN X=X−1
  7. IF (A%32/16+B%32/16*2==2)AND(X==Y) THEN  H=H+1+FLOOR(T/200):Z=1
  8. IF (X==Y)AND(K==8) THEN GOTO @B
  9. A=BUTTON()
  10. IF H>=50+L*50 THEN GOTO @C
  11. LOCATE X*3,20:? ”▲”:GFILL 60,50,70,200,4:GFILL 0,50,60,80,4
  12. LOCATE Y*3,12:? ”◆”:IF Z==1 THEN LOCATE Y*3,12:? ”◇”:BEEP 68
  13. LOCATE 0,0:? ”HP”;L*50+50−H;” TIME”;T;” LEVEL”;L
  14. IF K<11 THEN LOCATE Y*3,12+K:? ”↓”
  15. VSYNC 3
  16. GOTO @A
  17. @B
  18. CLS:PRINT”GAME OVER TIME”;T:BGMPLAY 06:END
  19. @C
  20. CLS:PRINT”CLEAR TIME”;T:BGMPLAY 05:END

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

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

  • バイカウントメルビル : 1行目コンマがありません。 (2011/12/19 (月) 02:07:13)
  • バイカウントメルビル : あと3行目おかしくないですか? (2011/12/19 (月) 02:08:08)
  • バイカウントメルビル : 14行目Lが抜けてませんか? (2011/12/19 (月) 02:09:11)
  • 名無しさん : 間違えた場所を修正しました。ご指摘ありがとうございます (2011/12/20 (火) 12:37:51)
  • 翁鶏 : 5行目6行目 IFにIFきていませんか? (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 : QRコードのせてくれませんか? (2012/04/08 (日) 20:38:46)
  • 名無しさん : 二重分岐の何がおかしい? (2012/04/08 (日) 21:41:53)
  • ゆうしゃアシスタント : これやりたいけどQRコードにたよってるおれは無理だー! (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)
  • ゆうしゃアシスタント : ようやくできた!でもSyntax errorに! (2012/05/03 (木) 13:17:11)
  • ウイングの友達 : 20行だったので、打ち込みます。 (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)

PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.043 秒 | このページの最終更新 : 2012/08/23 (木) 01:11:55 (1861d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30