2012年03月28日投稿 / 投稿者 : R-gray / タグ : 投稿プログラム 鑑賞プログラム QRコード 初代対応
これは競馬的な鑑賞ソフトです。
すみません、ありません……
プチコンmkII 向けの QR コードです。
- ’DERBY GAME
- ’BY R−Gray
- CLEAR
- CLS
- GCLS
- DIM UMA(6)
- DIM MAL(4)
- DIM MAL2(8)
- DIM C0L(10)
- DIM UMAC(6)
- DIM UMN(6)
- FOR MLRN=0 TO 3
- MAL(MLRN)=RND(6)
- NEXT
- @M20
- MAL2(0)=RND(6)
- IF MAL2(0)==MAL(0) THEN @M20
- @M21
- MAL2(1)=RND(6)
- IF MAL2(1)==MAL2(0) OR MAL2(1)==MAL(0) THEN @M21
- @M22
- MAL2(2)=RND(6)
- IF MAL2(2)==MAL(1) THEN @M22
- @M23
- MAL2(3)=RND(6)
- IF MAL2(3)==MAL2(2) OR MAL2(3)==MAL(1) THEN @M23
- @M24
- MAL2(4)=RND(6)
- IF MAL2(4)==MAL(2) THEN @M24
- @M25
- MAL2(5)=RND(6)
- IF MAL2(5)==MAL2(4) OR MAL2(5)==MAL(2) THEN @M25
- @M26
- MAL2(6)=RND(6)
- IF MAL2(6)==MAL(3) THEN @M26
- @M27
- MAL2(7)=RND(6)
- IF MAL2(7)==MAL2(6) OR MAL2(7)==MAL(3) THEN @M27
- COL(0)=1
- COL(1)=1
- COL(2)=2
- COL(3)=7
- COL(4)=7
- COL(5)=8
- COL(6)=8
- COL(7)=8
- COL(8)=8
- COL(9)=15
- FOR U=0 TO 5
- UMAC(U)=COL(RND(10))
- NEXT
- COLOR 0
- LOCATE 0,1
- PRINT ” ┝┿”
- LOCATE 0,2
- PRINT ”┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┿│”
- LOCATE 0,3
- PRINT ”│ │ │ │ │ │ │ │ │ │ ┥│”
- LOCATE 0,4
- PRINT ”жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж”
- LOCATE 0,11
- PRINT ”┬──┬──┬──┬──┬──┬──┬──┬──┬──┬──┬─”
- LOCATE 0,12
- PRINT ”│ │ │ │ │ │ │ │ │ │ │ ”
- LOCATE 0,13
- PRINT ”жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж”
- LOCATE 0,14
- FOR WAK=1 TO 6
- PRINT WAK
- NEXT
- LOCATE 2,MAL(0)+14
- PRINT ”◎”
- LOCATE 2,MAL2(0)+14
- PRINT ”○”
- LOCATE 2,MAL2(1)+14
- PRINT ”○”
- LOCATE 3,MAL(1)+14
- PRINT ”◎”
- LOCATE 3,MAL2(2)+14
- PRINT ”○”
- LOCATE 3,MAL2(3)+14
- PRINT ”○”
- LOCATE 4,MAL(2)+14
- PRINT ”◎”
- LOCATE 4,MAL2(4)+14
- PRINT ”○”
- LOCATE 4,MAL2(5)+14
- PRINT ”○”
- LOCATE 5,MAL(3)+14
- PRINT ”◎”
- LOCATE 5,MAL2(6)+14
- PRINT ”○”
- LOCATE 5,MAL2(7)+14
- PRINT ”○”
- GFILL 0,32,255,104,11
- GPAINT 0,0,7
- @GAME
- FOR UMV=0 TO 5
- LOCATE 0,UMV+5
- COLOR UMAC(UMV)
- PRINT UMV+1
- NEXT
- @ODD
- COLOR 0
- FOR OD=0 TO 3
- UMN(MAL(OD))=UMN(MAL(OD))+1
- NEXT
- FOR OD2=0 TO 7
- UMN(MAL2(OD2))=UMN(MAL2(OD2))+0.5
- NEXT
- FOR ODP=0 TO 5
- UD=(RND(6)−UMN(ODP))/5
- LOCATE 7,ODP+14
- PRINT (5−UMN(ODP))+UD
- NEXT
- @OLP
- IF BUTTON()==16 THEN @LV
- GOTO @OLP
- @LV
- LOCATE 12,14
- PRINT ”1st”
- LOCATE 12,15
- PRINT ”2nd”
- LOCATE 12,16
- PRINT ”3rd”
- LOCATE 12,17
- PRINT ”4th”
- LOCATE 12,18
- PRINT ”5th”
- LOCATE 12,19
- PRINT ”6th”
- @LOOP
- TIME=TIME+1
- GO=RND(7)
- IF GO>=6 THEN GOSUB @MALGO
- LOCATE 0,GO+5
- IF UMA(GO)>=31 THEN @LOOP
- PRINT ” ”
- UMA(GO)=UMA(GO)+1
- IF UMA(GO)==31 THEN GOSUB @GOAL
- LOCATE UMA(GO),GO+5
- COLOR UMAC(GO)
- PRINT GO+1
- SP=10
- IF BUTTON()==768 THEN SP=1
- WAIT SP
- IF UMA(0)==31 AND UMA(1)==31 AND UMA(2)==31 THEN GOTO @CB
- GOTO @LOOP
- @CB
- IF UMA(3)==31 AND UMA(4)==31 AND UMA(5)==31 THEN GOTO @EN
- GOTO @LOOP
- @EN
- LOCATE 0,21
- COLOR 0
- END
- @MALGO
- MG=RND(16)
- IF MG<=7 THEN GO=MAL2(MG):RETURN
- MG=MG%4
- GO=MAL(MG)
- RETURN
- @GOAL
- TIME2=TIME/6
- TIME2=FLOOR(TIME2)
- RANK=RANK+1
- LOCATE 16,RANK+13
- COLOR 0
- PRINT GO+1;” ”;TIME2
- RETURN
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.110 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:05 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30