Hi!
Habe hier einen kleinen Code, den ich mal ausprobieren wollte, wobei meine "Begrenzer" nicht ganz so funktionieren, wie ich es gerne hätte:
Ich hätte nämlich gerne, daß an den Rändern eine 0 steht, während sich im Inneren die Zahlen (vorerst) zufällig verteilen. Dabei wäre es wichtig, daß ich die Ränder auch mitschreibe, weil ich dort noch irgendwann eine 1 einfügen, abhängig vom Inhalt...
Hier der Code:
TYPE land
land_map[]
ENDTYPE
GLOBAL welt AS land
DIM welt.land_map[16][16]
FOR land_x = 0 TO 15
FOR land_y = 0 TO 15
welt.land_map[land_x][land_y] = RND(1)
IF land_x < 1 THEN welt.land_map[land_x][land_y] = 0
NEXT
NEXT
FOR x = 0 TO 15
FOR y = 0 TO 15
PRINT welt.land_map[x][y], 0 + (20 * x), 0 + (20 * y)
NEXT
NEXT
SHOWSCREEN
KEYWAITKönnte mir wer helfen?
GLG
W.
PS.: Auch der Versuch mit
IF land_x = 0 AND welt.land_map[land_x][land_y] > 0 THEN welt.land_map[land_x][land_y] = 0
hat nicht funktioniert... =/
Passt doch. Der linke Rand hat lauter 0er.
Wenn Du oben/unte/rechts auch willst dann:
IF land_x < 1 OR land_y<1 OR land_x>14 OR land_y>14
welt.land_map[land_x][land_y] = 0
ENDIF
Dann muß ich was übersehen/überlesen haben...
Danke!
Fangfrage:
Kennt sich jemand mit dem Begriff der "Perkolation" aus?
GLG
W.