home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 5
/
FREESOFT.BIN
/
fb386
/
dogfight
/
do_make.bas
< prev
next >
Wrap
BASIC Source File
|
1992-08-19
|
1KB
|
25 lines
10 '********** DOGFIGHT TO SURVIVE
20 '**** DATA MAKING PROGRAM programed by KIM
30 COLOR ,0:SCREEN@1:CLS:DIM Y(64):RANDOMIZE TIME:PASTEL 40
40 FOR A=0 TO 1:Y(A)=8-A*5:YY(A)=1:YT(A)=13-A*5:NEXT
50 FOR I=0 TO 255:FOR J=0 TO 129
60 PSET(I,J),[200,I/3+J,255-I/3-J]:NEXT J,I
70 K=1:GOSUB 120
80 FOR I=0 TO 255:FOR J=0 TO 129
90 PSET(I,J),[200,(255-I)/3+J,255-(255-I)/3-J]:NEXT J,I
100 K=2:GOSUB 120:END
110 '**[ SUB ]**
120 FOR I=1 TO 80:Z=RND*20+1:X=RND*(255-60/Z):FOR J=0 TO 40/Z'雲を描く
130 CIRCLE(30/Z+X,120-120/Z-J/10),J,7,.1!,,,F,PASTEL:NEXT J,I
140 FOR A=0 TO 1 '山を描く
150 FOR I=0 TO 255:IF I=251 AND K=2 THEN I=255:GOTO 200
160 Y(A)=Y(A)+INT(RND*2)*YY(A)
170 FOR J=1 TO Y(A):PSET(I,129-Y(A)+J),[195+60*A-10*J,0,195+60*A-10*J]:NEXT
180 IF Y(A)=YT(A) AND YY(A)=1 THEN YY(A)=-1:YB(A)=1+INT(RND*5)
190 IF Y(A)=YB(A) AND YY(A)=-1 THEN YY(A)=1:YT(A)=11-5*A+INT(RND*5)
200 NEXT:IF K=1 THEN 220
210 FOR I=0 TO 20:LINE(251,130-Y(A)+I)-(255,129-(8-A*5)+I),PSET,[195+60*A-10*I,0,195+60*A-10*I]:NEXT
220 NEXT
230 SAVE@ "DO_DATA"+RIGHT$(STR$(K),1)+".TIF",(0,0)-(255,129):RETURN
240 '**** RUNしたら、お茶でも飲んで待っていてください。