2013年02月28日投稿 / 投稿者 : YHY / タグ : 投稿プログラム ゲーム スポーツ ミニゲーム QRコード
プチコンmkII 向けの QR コードです。
’サクシャ:YHY ’2013.03.01 Ver.1.1 CLEAR @TIT ACLS:BEEP 2 ? ? ”<<<SE ハ゛ッティンク゛>>> ? ? ”SE(コウカオン)ヲ タヨリニ ? ”タイミンク゛ヨク Аヲ オシテクタ゛サイ. ? ? ”<ケ゛-ム センタク> ? ”ホ-ムラン キョウソウ : PUSH А ? ”フリ- ハ゛ッティンク゛: PUSH Б ? ”タ゛ケ゛キ セ ン : PUSH Х ? H=0:B=0:M=0 @LP IF BUTTON(0)==16 GOTO @MD1 IF BUTTON(0)==32 GOTO @MD2 IF BUTTON(0)==128 GOTO @MD3 GOTO @LP @MD1 M=1 ? ”<スヒ゜-ト゛ センタク> ? ”090km/h → PUSH Ф ? ”120km/h →→ PUSH Х ? ”150km/h →→→ PUSH Б @LP1 IF BUTTON(0)==64 THEN A=3:GOTO @M1_NEX IF BUTTON(0)==128 THEN A=2:GOTO @M1_NEX IF BUTTON(0)==32 THEN A=1:GOTO @M1_NEX GOTO @LP1 @M1_NEX ? @MD2 GOSUB @SET FOR I=1 TO 5 IF M!=1 THEN A=RND(3)+1 GOSUB @PIT IF M==1 AND F==4 THEN H=H+1 IF M!=1 AND F>2 THEN H=H+1 WAIT 120 ? NEXT IF M==1 THEN ? ”アナタノ ホ-ムランハ ”;H;”ホン テ゛ス. IF M!=1 THEN GOSUB @AVE GOTO @RET @AVE H1=H1+H:H2=H2+1 IF H1!=0 THEN H=H1/H2*2 H$=STR$(H) H$=LEFT$(H$,4) ? ”アナタノ タ゛リツハ ”;H$;”ワリ テ゛ス. RETURN @MD3 GOSUB @SET FOR I=1 TO 10 A=RND(3)+1 GOSUB @PIT WAIT 6 GOSUB @SCR WAIT (RND(3)+1)*60 ? NEXT ? ”アナタノ トクテンハ ”;H;”テン テ゛ス. GOTO @RET @SCR IF F==4 THEN H=H+B+1:B=0 IF F==3 THEN B=B+1 IF B>3 THEN B=3:H=H+1 ? ”シュツルイ г=”;B RETURN @SET ? ”シ゛ュンヒ゛チュウ. ? WAIT 60 RETURN @RET ? ”Фテ゛ タイトルニ モト゛リマス. BEEP 2 @LP2 IF BUTTON(0)==64 GOTO @TIT GOTO @LP2 @PIT ? ”ヒ゜ッチャ- ナケ゛マシタ! BEEP 6,-12256+(4-A)*6128 C=0:F=0 FOR J=1 TO A*35 WAIT 1 C=C+1 IF F>0 GOTO @S_NEX IF BUTTON(2)==16 THEN GOSUB @CHE @S_NEX NEXT IF F>1 GOTO @S_NEX2 ? ”ストライク! : ”;55+(4-A)*30+RND(10);”km/h BEEP 4 @S_NEX2 RETURN @CHE F=1 IF C==A*30 GOTO @HR IF F<4 AND C>=A*28.5 AND C<=A*31.5 GOTO @HIT IF F<3 AND C>=A*28 AND C<=A*32 GOTO @FL ELSE BEEP 10 RETURN @HR ? ”ИИИ ホ-ムラン!! ИИИ” BEEP 32 F=4 RETURN @HIT A$=”センタ-” IF C<A*29.5 THEN BEEP 8,0,64,0 :A$=”レフト” IF C>A*30.5 THEN BEEP 8,0,127,127:A$=”ライト” ELSE BEEP 8 ? A$;” ホウコウニ ヒット.” F=3 RETURN @FL A$=”ミキ゛” IF C<A*30 THEN BEEP 8,4048,64,0:A$=”ヒタ゛リ” ELSE BEEP 8,4048,127,127 ? ”ファール! ”;A$;”ニ ソレマシタ.” F=2 RETURN
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)