※人気投票開催中※
01/17(日)00:00-01/30(土)23:59
第二回鈴仙奮闘記キャラ人気投票
※新板できました※
ダイス創作物語板
ブログ 現行スレ 投票 最新20

1- レス

【赤と8ビットの】キャプテン岬【物語《ロマン》】


[475]キャプテン岬 ◆ma4dP58NuI :2018/07/01(日) 15:06:16 ID:5qLfYkp6
10 REM ●●●●●●●●●●●●●●●●スターライン●●●●●●●●●●●●●●●
20 CLS
30 BX=14;A$=‶$$$$″;YD=1:SC=0:BALL=5
40 DIM B(28,21)
50 FOR R=4 TO 7
60 FOR C=1 TO 26
70 B(C,R)=1
80 NEXT C
90 NEXT R
100 FOR R=4 TO 7
110 FOR C=1 TO 26
120 LOCATE C,R:PRINT ‶★″
130 NEXT C
140 NEXT R
150 LOCATE BX,19:PRINT A=
160 Y=10:X=BX+2:XD=INT(RND(1)*2)-.5:PAUSE=30
170 LOCATE BX ,19:PRINT A‶●″
180 FOR R=1 TO 1200:NEXT R
190 LOCATE 0,0:PRINT ‶BALL″;BALL
200 LOCATE X,Y:PRINT ‶●″
210 FOR R=1 TO PAUSE:NEXT R
220 GOSUB 410
230 LOCATE X,Y:PRINT ‶●″
240 IF B〔X,Y〕<>1 THEN 270
250 YD=‐YD:BEEP:B〔X,Y〕=0:SC=SC+1
260 LOCATE 20.0:PRINT ‶SCORE″,SC*10


名前

E-mail



0ch BBS 2007-01-24