2013年3月28日投稿 / 投稿者 : 道産子の初心者 / タグ : 投稿プログラム ゲーム QRコード mkII専用
今さらですが、ACLSを使っているため、初代に対応していないことに気づき、あわててタグを直しました。
1000で止めろ!ゲームが完全リメイクして帰ってきました!!
得点制となりました。得点は下記の通りです。
1000との差 | 評価 | 得点 |
---|---|---|
±0 | EXCELLENT! | 500点 |
±1〜2 | GOOD! | 200点 |
±3〜5 | CLEAR! | 100点 |
±6〜 | FALSE | -200点 |
また、ハイスコアの保存機能もついています。
載せたいです。
プチコンmkII 向けの QR コードです。
- LOAD ”MEM:DS1000SC”,FALSE
- HI=VAL(MEM$)
- IF RESULT==FALSE THEN HI=0
- @TOP
- ACLS:A=0
- BGMPLAY 7
- PRINT ”−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−”
- COLOR 13
- PRINT ”┐┌┐┌┐┌┐─゛│ ││ ┌┐│
- PRINT ”│││││││┬ ├┐└┼┐│││
- PRINT ”│└┘└┘└┘┘ │ ─┘│├┤.
- COLOR 0
- PRINT ”ル−ル:1000ニナッタラАヲオセ!ニアヒ゜ンハ+−5マテ゛!”
- PRINT ”HISCORE:” ;HI
- PRINT ”−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−”
- PRINT ”PUSH А BUTTON GAME START
- PRINT ”PUSH Б BUTTON HISCORE CLEAR
- @TOPBU
- IF BUTTON(2)==16 THEN BEEP 3
- IF BUTTON(3)==16 THEN GOTO @START
- IF BUTTON(2)==32 THEN BEEP 3
- IF BUTTON(3)==32 THEN GOTO @SCCLR
- VSYNC 1
- GOTO @TOPBU
- @START
- BGMSTOP
- CLS
- BEEP 0:LOCATE 0,0:PRINT ”┏┫”
- BEEP 0:LOCATE 0,1:PRINT ”┏┫”
- BEEP 0:LOCATE 0,2:PRINT ”┠┗”
- WAIT 60
- BEEP 0:LOCATE 0,0:PRINT ”┗┫”
- BEEP 0:LOCATE 0,1:PRINT ”┳┗”
- BEEP 0:LOCATE 0,2:PRINT ”┯┠”
- WAIT 60
- BEEP 0:LOCATE 0,0:PRINT ”┳┛”
- BEEP 0:LOCATE 0,1:PRINT ” ┛”
- BEEP 0:LOCATE 0,2:PRINT ”┳┯”
- WAIT 60
- BEEP 5
- LOCATE 0,0:COLOR 13:PRINT ”┗┏┃╋┏┳┏┓┣┫┃╋┏┻
- LOCATE 0,1:COLOR 13:PRINT ”┫┓ ┻ ┻┏┛┷━ ┻ ┻
- LOCATE 0,2:COLOR 13:PRINT ”┠┗ ┻ ┻ ┛┛┫ ┻ ┳
- WAIT 40
- SC=20
- C=0
- BGMPLAY 3
- @GAME
- CLS
- BEEP 2
- COLOR 0
- A=0
- PRINT ”アト” ;SC; ”カイ”
- PRINT ”SCORE:” ;C
- @LOOP
- A=A+1:LOCATE 0,2:COLOR 0:PRINT A
- B=BUTTON(2)
- IF B==16 THEN GOTO @HAN
- IF B==1024 THEN GOTO @POZ
- VSYNC 1:GOTO @LOOP
- @HAN
- ON A−995 GOTO @CL,@CL,@CL,@CL2,@CL2,@CL3,@CL2,@CL2,@CL,@CL,@CL
- COLOR 13:PRINT ”┣┏┳┏┓┛ ┳┏━┣┏
- COLOR 13:PRINT ”┣┏┻┏┛┛ ┃┠ ┣┏
- COLOR 13:PRINT ”┛ ┻ ┛┯┠┳┠━┯┠
- BEEP 6
- C=C−200
- @KAISU
- WAIT 50
- SC=SC−1
- IF SC==0 THEN GOTO @ENDGAME
- GOTO @GAME
- @CL
- BEEP 5
- COLOR 7:PRINT ”┗┏┻ ┣┏┳┏┓┣┫┻
- COLOR 7:PRINT ”┛ ┻ ┣┏┻┏┛┷━┻
- COLOR 7:PRINT ”┫┠┻┠┓┯┠┻ ┛┛┫┳
- C=C+100
- GOTO @KAISU
- @CL2
- BEEP 5
- COLOR 4:PRINT ”┗┏┳┏┓┗┫┻┏┓┛
- COLOR 4:PRINT ”┛╋┻ ┛┛┻┻ ┛┛
- COLOR 4:PRINT ”┫┨┃┠━┫┗┻┠━┓
- C=C+200
- GOTO @KAISU
- @CL3
- BEEP 55
- COLOR 3:PRINT ”┣┏┻ ┛┗┏┻┏━┛ ┻ ┣┏┻┓┛┏┣━┛
- COLOR 3:PRINT ”┣┏┃┠━┛ ┻┏━┛ ┻ ┣┏┻┃┛ ┛ ┛
- COLOR 3:PRINT ”┯┠┻ ┛┫┠┻┠┓┯┠┻┠┓┯┠┻ ┛ ┛ ┓
- C=C+500
- GOTO @KAISU
- @ENDGAME
- CLS
- BGMPLAY 5
- COLOR 0
- PRINT ”シュウリョウ!”
- PRINT ”カクトクSCORE:” ;C
- WAIT 200
- IF HI<C THEN GOTO @HISCORE
- GOTO @TOP
- @HISCORE
- BGMPLAY 8
- COLOR 3:PRINT ”┯┻┻┏━┛┛┛ ┣┫┻┏━┗┏┳┏┓┣┫┻┏┓┛
- COLOR 3:PRINT ”┛╋┻┏━┛┛┛ ┷━┻┏━┛ ┻ ┛┷━┻ ┛┛
- COLOR 3:PRINT ”┛┻┻┠┓┫┫━ ┛┫┻┠┓┫┠┃┠━┛┫┻┠━┓
- COLOR 0:PRINT ”シンキロク オメテ゛トウコ゛サ゛イマス!!”
- WAIT 400
- PRINT ”キロクヲホソ゛ンシマス。”
- MEM$=STR$(C)
- @SCSV
- SAVE ”MEM:DS1000SC”
- IF RESULT==CANCEL THEN GOTO @SCSV
- HI=C
- GOTO @TOP
- @POZ
- BEEP 3
- LOCATE 0,2:PRINT ”ホ゜−ス゛ Бテ゛サイカイ
- @POZBT
- B=BUTTON(2)
- IF B==32 THEN LOCATE 0,2:PRINT ” ”:BEEP 3:GOTO @LOOP
- VSYNC 1
- GOTO @POZBT
- @SCCLR
- WAIT 5:BGMSTOP
- CLS
- PRINT ”ハイスコアヲケシテヨロシイテ゛スカ?”
- PRINT ”А→ハイ
- PRINT ”Б→イイエ
- @CLRBU
- IF BUTTON(3)==16 THEN BEEP 3:GOTO @SCDE
- IF BUTTON(3)==32 THEN BEEP 4:WAIT 5:GOTO @TOP
- VSYNC 1
- GOTO @CLRBU
- @SCDE
- DELETE ”MEM:DS1000SC
- IF RESULT==CANCEL THEN GOTO @SCDE
- HI=0
- GOTO @TOP
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.246 秒 | このページの最終更新 : 2022/09/20 (火) 12:43:58 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30