home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / fb386 / dogfight / do_make.bas < prev    next >
BASIC Source File  |  1992-08-19  |  1KB  |  25 lines
  1. 10 '********** ＤＯＧＦＩＧＨＴ　ＴＯ　ＳＵＲＶＩＶＥ
  2. 20 '**** DATA MAKING PROGRAM                  programed by KIM
  3. 30 COLOR ,0:SCREEN@1:CLS:DIM Y(64):RANDOMIZE TIME:PASTEL 40
  4. 40 FOR A=0 TO 1:Y(A)=8-A*5:YY(A)=1:YT(A)=13-A*5:NEXT
  5. 50 FOR I=0 TO 255:FOR J=0 TO 129
  6. 60   PSET(I,J),[200,I/3+J,255-I/3-J]:NEXT J,I
  7. 70 K=1:GOSUB 120
  8. 80 FOR I=0 TO 255:FOR J=0 TO 129
  9. 90   PSET(I,J),[200,(255-I)/3+J,255-(255-I)/3-J]:NEXT J,I
  10. 100 K=2:GOSUB 120:END
  11. 110 '**[ SUB ]**
  12. 120 FOR I=1 TO 80:Z=RND*20+1:X=RND*(255-60/Z):FOR J=0 TO 40/Z'雲を描く
  13. 130   CIRCLE(30/Z+X,120-120/Z-J/10),J,7,.1!,,,F,PASTEL:NEXT J,I
  14. 140 FOR A=0 TO 1                '山を描く
  15. 150  FOR I=0 TO 255:IF I=251 AND K=2 THEN I=255:GOTO 200
  16. 160   Y(A)=Y(A)+INT(RND*2)*YY(A)
  17. 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
  18. 180   IF Y(A)=YT(A) AND YY(A)=1 THEN YY(A)=-1:YB(A)=1+INT(RND*5)
  19. 190   IF Y(A)=YB(A) AND YY(A)=-1 THEN YY(A)=1:YT(A)=11-5*A+INT(RND*5)
  20. 200  NEXT:IF K=1 THEN 220
  21. 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
  22. 220 NEXT
  23. 230 SAVE@ "DO_DATA"+RIGHT$(STR$(K),1)+".TIF",(0,0)-(255,129):RETURN
  24. 240 '**** ＲＵＮしたら､お茶でも飲んで待っていてください｡
  25.