Toukou/1000で止めろ!ゲーム Part2 の変更点

パンくずリスト

追加された行はこの色です。
削除された行はこの色です。
Toukou/1000で止めろ!ゲーム Part2 へ行く。
変更を無効にして元に戻す
Toukou/1000で止めろ!ゲーム Part2 の差分を削除
#title(投稿プログラム : 1000で止めろ！ゲーム Part2)
#contents
2013年3月28日投稿
/ 投稿者 : 道産子の初心者
/ &tag(投稿プログラム,ゲーム,QRコード,mkII専用);

*お知らせ [#q9771335]
今さらですが、ACLSを使っているため、初代に対応していないことに気づき、あわててタグを直しました。

* 概要 [#Summary]
瞬間ゲーム「[[1000で止めろ!ゲーム>Toukou/1000で止めろ!]]」が完全リメイクして帰ってきました！！
1000で止めろ！ゲームが完全リメイクして帰ってきました！！

** パート２では・・・ [#Part2]
得点制となりました。得点は下記の通りです。
|~1000との差|~評価|~得点|
|±０|EXCELLENT!|500点|
|±１～２|GOOD!|200点|
|±３～５|CLEAR!|100点|
|±６～|FALSE|-200点|

また、ハイスコアの保存機能もついています。

** 課題点 [#Kadai]
-1回のゲーム時間が長い
-画面があまりにも寂しい

* スクリーンショット・動画 [#ScreenShots]
載せたいです。

* QR コード [#QR]
プチコンmkII 向けの QR コードです。
|>|&basic{PRG:DS1000ST};|
|1/2|2/2|
|&ref(qr0.png);|&ref(qr1.png);|

* プログラムリスト [#List]
#basic{{
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
}}

* CHECKER FLAG (ひとことコメント) [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''名無しさん'' : ・・・。 (&new{2013/03/28 (木) 08:15:54};)
- ''名無しさん'' : 自分のサイトへのリンクのみ公開ってルール違反なのでは？ (&new{2013/03/28 (木) 10:58:03};)
- ''道産子の初心者'' : ↑対応しました。 (&new{2013/03/28 (木) 11:29:51};)
- ''名無しさん'' : ふざけてのか？これ？ (&new{2013/03/28 (木) 11:46:41};)
- ''道産子の初心者'' : ↑? (&new{2013/03/28 (木) 14:05:48};)
- ''道産子の初心者'' : リストを載せてくださった方、ありがとうございます。 (&new{2013/03/28 (木) 14:06:15};)
- ''名無しさん'' : ・・・。 (&new{2013/03/28 (木) 15:12:40};)
- ''道産子'' : 唐突で申し訳ありません。明日か明後日に、「1000で止めろ!フィーバー」を公開します。フィーバー制度を設けました。課題点がちょこちょこありますが、皆さんの意見をお聞きするため、投稿させて頂きます。 (&new{2013/04/30 (火) 21:58:58};)
- ''ももけん'' : １０００を５００に変えれば…　+－１０でセーフ(効果音　派ふっ）＋－２０でミス（－２００点　効果音てーてーてーれ　それ以上離れるとＯＵＴ（即終了 (&new{2013/05/01 (水) 06:56:57};)
- ''道産子'' : ↑ご意見ありがとうございます。 (&new{2013/05/11 (土) 13:27:00};)

#comment