Zufallsbegrenzung

[WPShadow]

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:

Code (glbasic) Select Expand

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... =/

[Kitty Hello]

Passt doch. Der linke Rand hat lauter 0er.
Wenn Du oben/unte/rechts auch willst dann:

Code (glbasic) Select Expand

       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

[WPShadow]

Dann muß ich was übersehen/überlesen haben...

Danke!

[WPShadow]

Fangfrage:

Kennt sich jemand mit dem Begriff der "Perkolation" aus?

GLG

W.