home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 14 / unpacked-run14.zip / DRINGEN.BAS < prev    next >
BASIC Source File  |  1995-01-01  |  1KB  |  46 lines
  1. REM RANDOM GEBIEDSVERDELING VOLGENS 'FLIP-A-COIN-METHODE' DOOR MELLE KONING
  2. DEFINT A-Z: RANDOMIZE TIMER: WIDTH 80, 50: CLS
  3. DIM grid(80, 50)
  4. INPUT "Hoeveel landen >3 <16 "; keuze
  5. IF keuze < 3 THEN keuze = 4
  6. CLS
  7. startpunten = keuze
  8. aantalkleuren = keuze
  9. FOR x = 1 TO 80
  10.   FOR y = 1 TO 50
  11.     grid(x, y) = -1
  12.   NEXT y
  13. NEXT x
  14. FOR a = 1 TO startpunten
  15.   FOR n = 0 TO aantalkleuren
  16.     h = INT(RND * 80) + 1: v = INT(RND * 49) + 1
  17.     grid(h, v) = n: GOSUB teken
  18.   NEXT n
  19. NEXT a
  20. WHILE INKEY$ = ""
  21. FOR x = 2 TO 79
  22.   FOR y = 2 TO 49
  23.   IF grid(x, y) <> -1 THEN
  24.     xa = x + (INT(RND * 3) - 1)
  25.     ya = y + (INT(RND * 3) - 1)
  26.     IF grid(x, y) <> grid(xa, ya) THEN
  27.        IF (INT(RND * 2) - 1) THEN
  28.          grid(xa, ya) = grid(x, y)
  29.        ELSE
  30.          IF grid(xa, ya) <> -1 THEN
  31.           grid(x, y) = grid(xa, ya)
  32.          END IF
  33.        END IF
  34.        h = xa: v = ya: GOSUB teken
  35.        h = x: v = y: GOSUB teken
  36.      END IF
  37.    END IF
  38.    NEXT y
  39. NEXT x
  40. WEND
  41. END
  42. teken:
  43. LOCATE v, h: COLOR grid(h, v) + 1: PRINT CHR$(219);
  44. RETURN
  45.  
  46.