home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: The Best Of RUN 1-12 / thebest.zip / DRAGONS.BAS < prev    next >
BASIC Source File  |  1994-10-01  |  2KB  |  29 lines
  1. 100 REM RANDOM DRAGONS GWBASIC EGA (C) RUN FLAGAZINE 6
  2. 110 CLS : KEY OFF: RANDOMIZE TIMER: SCREEN 9
  3. 120 X = INT(RND * 200) + 10: Y = X: P = X: Q = X: COLOR 14, 0
  4. 130 LOCATE 25, 26: PRINT "Toets nieuw beeld - <Esc> Einde";
  5. 140 F = INT(RND * 3) - 1: B = INT(RND * 3) - 1:
  6. 141 IF CC < 1 THEN C = INT(RND * 16) + 1: CC = INT(RND * 20) + 5
  7. 150 X = X + F: Y = Y - B: Q = Q + B: P = P + F: CC = CC - 1
  8. 160 IF X < 10 OR X > 639 OR Q > 639 OR Q < 10 THEN X = 300: Q = 100
  9. 170 IF Y < 10 OR Y > 639 OR P > 639 OR P < 10 THEN P = 100: Y = 300
  10. 180 PSET (X, Y), C: PSET (639 - X, Y), C: PSET (-P, -Q), C
  11. 190 PSET (X, 300 - Y), C: PSET (639 - X, 300 - Y), C
  12. 200 PSET (Q, P), C: PSET (639 - Q, P), C: PSET (-X, -Y), C
  13. 210 PSET (Q, 300 - P), C: PSET (639 - Q, 300 - P), C
  14. 220 PSET (Y, X), C: PSET (639 - Y, X), C: PSET (-P, -Q), C
  15. 230 PSET (Y, 300 - X), C: PSET (639 - Y, 300 - X), C
  16. 240 PSET (P, Q), C: PSET (639 - P, Q), C: PSET (-X, -Y), C
  17. 250 PSET (P, 300 - Q), C: PSET (639 - P, 300 - Q), C
  18. 260 PSET (-P, 639 - Q), C: PSET (639 - X, 300 - Y), C
  19. 270 PSET (-X, 300 - Y), C: PSET (639 - P, 300 - Q), C
  20. 280 PSET (-Q, 639 - P), C: PSET (639 - Y, 300 - X), C
  21. 290 PSET (-Y, 300 - X), C: PSET (639 - Q, 300 - P), C
  22. 300 I$ = INKEY$: IF I$ = "" THEN 140
  23. 310 IF I$ = CHR$(27) THEN CLS : COLOR 7, 0: END
  24. 320 CLS : LOCATE 1, 1: PRINT "Nieuwe waarde voor X ["; X; "]"; : INPUT X
  25. 330 PRINT "Nieuwe waarde voor Y ["; Y; "]"; : INPUT Y
  26. 340 PRINT "Nieuwe waarde voor P ["; P; "]"; : INPUT P
  27. 350 PRINT "Nieuwe waarde voor Q ["; Q; "]"; : INPUT Q: CLS : GOTO 130
  28.  
  29.