This Code Is Driving Me Nuts - Please Help

Author

Message

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 21st Oct 2003 11:58

Link

Ok, this code is absolutely driving me crazy. I've been trying to figure out why is not working for about the last 3 hours but haven't gotten anywhere? Can any of you kind generous people

help?

Its supposed to generate a checkered map of symbols, each checker being 10 X 10. In the first row it generates everything looks great. Each checker is 10 X 10. But in the second and third rows of checkers things get a little ugly. Checkers arent 10 X 10 and some overlap each other.

Two strange things I've noticed is that if MAPX is perfectly divisible by L then everything works and looks great. The other strange thing is that if you look at the right and left ends of the second and third rows they both have the same symbols. If you add the colums at the end of the rows to the amount thats at the beginning of the row (with identical symbols) it equals 10. If this doesnt make any sense, run the code you'll see.

Any help would be really really really really really really really appreciated, thanks.

Ok, now let me step you through the code. MAPX and MAPY are constants defining the map size. Map element is a type for each individual symbol of the map, which holds two values. One value is the symbol it is using for mountainous, grassy, sandy terrain, etc. The other variable holds information to mark whether or not that map element has been used.

Then I make the map in an array form. The first FOR NEXT loop sets each element to its starting value, where RangeType is set to uDef for UNDEFINED.

Then the next FOR NEXT loop generates the map. First a symbol for the terrain type is picked at random. Then it goes through to check if each element is undefined. If one is undefined then every map element within a 10X10 area of it will be filled with the randomly selected symbol and each one's RangeType variable is changed from uDef to taken so its symbol cant be changed again. Then the loop keeps repeating until the entire map array of MapElements is filled.

Then the next DO LOOP just displays everything. I would be so grateful if anyone can help.

Oh ya, heres the code:

Quote: "RANDOMIZE TIMER()

#CONSTANT MAPX 70
#CONSTANT MAPY 30

TYPE MapElement
RangeType AS STRING
Symbol AS STRING
ENDTYPE

DIM Map(MAPX,MAPY) AS MapElement

FOR Y=0 TO MAPY : `SET DEFAULT VALUES FOR MAP ELEMENTS
FOR X=0 TO MAPX
Map(X,Y).RangeType="uDef"
NEXT X
NEXT Y

FOR Y=0 TO MAPY : REM GENERATE MAP
FOR X=0 TO MAPX
SELECT RND(4)
CASE 0
eSymbol$="M" : `MOUNTAINS
ENDCASE
CASE 1
eSymbol$="'" : `GRASS
ENDCASE
CASE 2
eSymbol$=":" : `SAND
ENDCASE
CASE 3
eSymbol$="~" : `WATER
ENDCASE
CASE 4
eSymbol$="m" : `HILLS
ENDCASE
ENDSELECT
IF Map(X,Y).RangeType="uDef"
L=10; `RND(17)+3
W=10; `RND(17)+3
FOR X2=1 TO L
FOR Y2=1 TO W
IF MAP(X+X2-1, Y+Y2-1).RangeType="uDef"
MAP(X+X2-1, Y+Y2-1).RangeType="taken"
MAP(X+X2-1, Y+Y2-1).Symbol=eSymbol$
ENDIF
NEXT Y2
NEXT X2
ENDIF
NEXT X
NEXT Y

do
CLS
FOR Y=0 TO MAPY
FOR X=0 TO MAPX
TEXT X * 13, Y * 13, MAP(X,Y).Symbol
NEXT X
NEXT Y
loop"

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 21st Oct 2003 12:59

Link

Voila!

+ Code Snippet

#CONSTANT MAPX 69
#CONSTANT MAPY 29

Remember you have set up map values for 0-70 which is actually 71 values.

If your mansion house needs haunting, just call Rentaghost!

Back to top

Profile PM Website

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 21st Oct 2003 19:09

Link

Thanks Spooky, but thats not exactly what Im looking for. As you can see by the comments in after L=10 and W=10 in the end I want to generate random squares and rectangles. I was just using the number 10 for testing purposes, and it needs to be able to work with #CONSTANT MAPX 70 and #CONSTANT MAPY 30

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 21st Oct 2003 19:30

Link

Right, found a bug in arrays - will report as bug.

Run following code to see what I mean

+ Code Snippet

dim a(3,3)
for f=1 to 10
for g=1 to 10
a(f,g)=1
next g
next f
for f=1 to 10
print : print f;" = "
for g=1 to 10
print a(f,g);" ";
next g
next f
wait key

Your biggest problem is setting values in array outside of limit.

You say MAP(X+X2-1, Y+Y2-1).Symbol=eSymbol$

now if X goes from 0 to 70 and X2 goes from 1 to 10, then max value is 70+10-1 = 79 which is outside of array bounds and causes bugs in rest of array.

you need to limit x2 to remainder of map, not just 10. So if X is at 68, then X2 can only go up to 3.

You still have a problem in that your map goes from 0 to 70 which is actually 71 values, which is why you get an extra column at right.

If your mansion house needs haunting, just call Rentaghost!

Back to top

Profile PM Website

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 21st Oct 2003 22:39

Link

Thanks Spooky, I dont mind the extra column at right, because in the end the squares arent going to be 10X10, they'll be random. The 10X10 was just for testing purposes.

I'll make the changes you suggested and tell you what happens.

Back to top

Profile PM

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 21st Oct 2003 23:03

Link

GENIOUS!! Thanks for the tips Spooky.

Back to top

Profile PM

zircher

21

Years of Service

User Offline

Joined: 27th Dec 2002

Location: Oklahoma

Posted: 22nd Oct 2003 06:39

Link

The other side of the coin is to limit your starting locations so that maxStartX + maxSizeX can not exceed the array limits.
--
TAZ

Back to top

Profile PM Email Website

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 22nd Oct 2003 13:56

Link

Nah limiting the starting position wouldnt affect anything. They way I have it set up now is to draw random rectangles between 3 and 20 units in length and width. But I was able to work around it.

I set it up to check if the starting position + length (or width) is greater than MAPX or MAPY and if it is Lenth (or width)= the difference between MAPX (or MAPY) and the starting point. Heres the commands I added:

Quote: " IF X+L > MAPX THEN L = MAPX - X + 1
IF Y+W > MAPY THEN W = MAPY - Y + 1"

Back to top

Profile PM

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 22nd Oct 2003 13:58

Link

Oh wait I misread your post, ya thats exactly what I did

Back to top

Profile PM

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 22nd Oct 2003 23:30

Link

Ok I thought I had this figured out but I guess not. I have it setup now to draw random sized rectangles but some still seem to be overwriting each other. I've numbered each terrain rectangle drawn and you can see some ranges arent rectangular as theyre being overwritten by others. Every time a map element is set rangetype is set to something else other than "uDef" So it cant be overwritten again. But apparently it still is. Heres the code, thanks for the help:

RANDOMIZE TIMER()

#CONSTANT MAPX 70
#CONSTANT MAPY 30

CurPosX=0
CurPosY=0

TYPE MapElement
   RangeType AS STRING
   RangeName AS STRING
   RangeNumber AS INTEGER
   Symbol AS STRING
   colCode AS DWORD
ENDTYPE

DIM Map(MAPX,MAPY) AS MapElement

InitMap() : `SETUP AND INITIALIZE THE MAP AND ALL OF ITS ELEMENTS USING MAP ARRAY

DO : REM MAIN LOOP
   SET TEXT OPAQUE
   CLS
   FOR Y=0 TO MAPY
      FOR X=0 TO MAPX
         IF X = CurPosX AND Y = CurPosY
            INK MAP(X,Y).colCode, RGB(255,0,0)
         ELSE
            INK MAP(X,Y).colCode, 0
         ENDIF
         TEXT X * 13, Y * 13, MAP(X,Y).Symbol
      NEXT X
   NEXT Y
   IF UPKEY() THEN CurPosY = CurPosY - 1
   IF DOWNKEY() THEN CurPosY = CurPosY + 1
   IF RIGHTKEY() THEN CurPosX = CurPosX + 1
   IF LEFTKEY() THEN CurPosX = CurPosX - 1

IF CurPosY < 0 THEN CurPosY=0
   IF CurPosY > MAPY THEN CurPosY=MAPY
   IF CurPosX < 0 THEN CurPosX=0
   IF CurPosX > MAPX THEN CurPosX=MAPX

SET CURSOR 45, 500
   print CurPosX; " "; CurPosY; " "; MAP(CurPosX,CurPosY).RangeType; " "; MAP(CurPosX,CurPosY).RangeNumber

LOOP

FUNCTION InitMap

FOR Y=0 TO MAPY :       `SET DEFAULT VALUES FOR MAP ELEMENTS
   FOR X=0 TO MAPX
      Map(X,Y).RangeType="uDef"
   NEXT X
NEXT Y

eMtNum=0
eGrNum=0
eSnNum=0
eWrNum=0
eHlNum=0
FOR Y=0 TO MAPY :       REM GENERATE MAP
   FOR X=0 TO MAPX
      IF MAP(X,Y).RangeType="uDef"
         SELECT RND(4)
            CASE 0
               eMtNum=eMtNum+1
               eSymbol$="M"
               eRangeName$="Mountain"
               ecCode=RGB(128,128,128)
            ENDCASE
            CASE 1
               eGrNum=eGrNum+1
               eSymbol$="'" : `GRASS
               eRangeName$="Grass"
               ecCode=RGB(0,255,0)
            ENDCASE
            CASE 2
               eSnNum=eSnNum+1
               eSymbol$=":" : `SAND
               eRangeName$="Sand"
               ecCode=RGB(255,128,0)
            ENDCASE
            CASE 3
               eWrNum=eWrNum+1
               eSymbol$="~" : `WATER
               eRangeName$="Water"
               ecCode=RGB(0,0,255)
            ENDCASE
            CASE 4
               eHlNum=eHlNum+1
               eSymbol$="m" : `HILLS
               eRangeName$="Hills"
               ecCode=RGB(0,128,0)
            ENDCASE
         ENDSELECT
      ENDIF
      IF Map(X,Y).RangeType="uDef"
         L=RND(15)+1
         W=RND(15)+1
         IF X+L > MAPX THEN L = MAPX - X + 1
         IF Y+W > MAPY THEN W = MAPY - Y + 1
         FOR X2=1 TO L
            FOR Y2=1 TO W
               IF MAP(X+X2-1, Y+Y2-1).RangeType="uDef"
                  MAP(X+X2-1, Y+Y2-1).RangeType=eRangeName$
                  IF eRangeName$="Mountain" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eMtNum
                  IF eRangeName$="Grass" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eGrNum
                  IF eRangeName$="Sand" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eSnNum
                  IF eRangeName$="Water" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eWrNum
                  IF eRangeName$="Hills" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eHlNum
                  MAP(X+X2-1, Y+Y2-1).Symbol=eSymbol$
                  MAP(X+X2-1, Y+Y2-1).colCode=ecCode
               ENDIF
            NEXT Y2
         NEXT X2
      ENDIF
   NEXT X
NEXT Y

ENDFUNCTION

+ Code Snippet

RANDOMIZE TIMER()

#CONSTANT MAPX 70
#CONSTANT MAPY 30

CurPosX=0
CurPosY=0

TYPE MapElement
   RangeType AS STRING
   RangeName AS STRING
   RangeNumber AS INTEGER
   Symbol AS STRING
   colCode AS DWORD
ENDTYPE

DIM Map(MAPX,MAPY) AS MapElement

InitMap() : `SETUP AND INITIALIZE THE MAP AND ALL OF ITS ELEMENTS USING MAP ARRAY

DO : REM MAIN LOOP
   SET TEXT OPAQUE
   CLS
   FOR Y=0 TO MAPY
      FOR X=0 TO MAPX
         IF X = CurPosX AND Y = CurPosY
            INK MAP(X,Y).colCode, RGB(255,0,0)
         ELSE
            INK MAP(X,Y).colCode, 0
         ENDIF
         TEXT X * 13, Y * 13, MAP(X,Y).Symbol
      NEXT X
   NEXT Y
   IF UPKEY() THEN CurPosY = CurPosY - 1
   IF DOWNKEY() THEN CurPosY = CurPosY + 1
   IF RIGHTKEY() THEN CurPosX = CurPosX + 1
   IF LEFTKEY() THEN CurPosX = CurPosX - 1

   IF CurPosY < 0 THEN CurPosY=0
   IF CurPosY > MAPY THEN CurPosY=MAPY
   IF CurPosX < 0 THEN CurPosX=0
   IF CurPosX > MAPX THEN CurPosX=MAPX

   SET CURSOR 45, 500
   print CurPosX; " "; CurPosY; " "; MAP(CurPosX,CurPosY).RangeType; " "; MAP(CurPosX,CurPosY).RangeNumber

LOOP

FUNCTION InitMap

FOR Y=0 TO MAPY :       `SET DEFAULT VALUES FOR MAP ELEMENTS
   FOR X=0 TO MAPX
      Map(X,Y).RangeType="uDef"
   NEXT X
NEXT Y

eMtNum=0
eGrNum=0
eSnNum=0
eWrNum=0
eHlNum=0
FOR Y=0 TO MAPY :       REM GENERATE MAP
   FOR X=0 TO MAPX
      IF MAP(X,Y).RangeType="uDef"
         SELECT RND(4)
            CASE 0
               eMtNum=eMtNum+1
               eSymbol$="M"
               eRangeName$="Mountain"
               ecCode=RGB(128,128,128)
            ENDCASE
            CASE 1
               eGrNum=eGrNum+1
               eSymbol$="'" : `GRASS
               eRangeName$="Grass"
               ecCode=RGB(0,255,0)
            ENDCASE
            CASE 2
               eSnNum=eSnNum+1
               eSymbol$=":" : `SAND
               eRangeName$="Sand"
               ecCode=RGB(255,128,0)
            ENDCASE
            CASE 3
               eWrNum=eWrNum+1
               eSymbol$="~" : `WATER
               eRangeName$="Water"
               ecCode=RGB(0,0,255)
            ENDCASE
            CASE 4
               eHlNum=eHlNum+1
               eSymbol$="m" : `HILLS
               eRangeName$="Hills"
               ecCode=RGB(0,128,0)
            ENDCASE
         ENDSELECT
      ENDIF
      IF Map(X,Y).RangeType="uDef"
         L=RND(15)+1
         W=RND(15)+1
         IF X+L > MAPX THEN L = MAPX - X + 1
         IF Y+W > MAPY THEN W = MAPY - Y + 1
         FOR X2=1 TO L
            FOR Y2=1 TO W
               IF MAP(X+X2-1, Y+Y2-1).RangeType="uDef"
                  MAP(X+X2-1, Y+Y2-1).RangeType=eRangeName$
                  IF eRangeName$="Mountain" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eMtNum
                  IF eRangeName$="Grass" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eGrNum
                  IF eRangeName$="Sand" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eSnNum
                  IF eRangeName$="Water" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eWrNum
                  IF eRangeName$="Hills" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eHlNum
                  MAP(X+X2-1, Y+Y2-1).Symbol=eSymbol$
                  MAP(X+X2-1, Y+Y2-1).colCode=ecCode
               ENDIF
            NEXT Y2
         NEXT X2
      ENDIF
   NEXT X
NEXT Y

ENDFUNCTION

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 23rd Oct 2003 00:21

Link

L=RND(15)+1
W=RND(15)+1

Remember RND gives a range from 0 to a number, so your code is giving L and W random numbers from 1 to 16. This is why you are getting strips of 1 and is why it looks like some are overlapping

If your mansion house needs haunting, just call Rentaghost!

Back to top

Profile PM Website

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 23rd Oct 2003 01:38

Link

I know, I do want strips of 1, but it doesnt look as if some rectangles are overlapping, some are actually overlapping.

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 23rd Oct 2003 01:52

Link

It's impossible to have whole scrren broken up into rectangles. The overlapping effect is correct as coded.

e.g. (imagine 0's are undefined areas)

+ Code Snippet

So basically 4 is trying to build a 3*3 sqaure but cannot because you already have filled some with 2's

Run this modified version of your code and all will become clear

RANDOMIZE TIMER()

#CONSTANT MAPX 70
#CONSTANT MAPY 30

CurPosX=0
CurPosY=0

TYPE MapElement
   RangeType AS STRING
   RangeName AS STRING
   RangeNumber AS INTEGER
   Symbol AS STRING
   colCode AS DWORD
ENDTYPE

DIM Map(MAPX,MAPY) AS MapElement

InitMap() : `SETUP AND INITIALIZE THE MAP AND ALL OF ITS ELEMENTS USING MAP ARRAY

DO : REM MAIN LOOP
   SET TEXT OPAQUE
   CLS
   FOR Y=0 TO MAPY
      FOR X=0 TO MAPX
         IF X = CurPosX AND Y = CurPosY
            INK MAP(X,Y).colCode, RGB(255,0,0)
         ELSE
            INK MAP(X,Y).colCode, 0
         ENDIF
         TEXT X * 13, Y * 13, MAP(X,Y).Symbol
      NEXT X
   NEXT Y
   IF UPKEY() THEN CurPosY = CurPosY - 1
   IF DOWNKEY() THEN CurPosY = CurPosY + 1
   IF RIGHTKEY() THEN CurPosX = CurPosX + 1
   IF LEFTKEY() THEN CurPosX = CurPosX - 1

IF CurPosY < 0 THEN CurPosY=0
   IF CurPosY > MAPY THEN CurPosY=MAPY
   IF CurPosX < 0 THEN CurPosX=0
   IF CurPosX > MAPX THEN CurPosX=MAPX

SET CURSOR 45, 500
   print CurPosX; " "; CurPosY; " "; MAP(CurPosX,CurPosY).RangeType; " "; MAP(CurPosX,CurPosY).RangeNumber

LOOP

FUNCTION InitMap

FOR Y=0 TO MAPY :       `SET DEFAULT VALUES FOR MAP ELEMENTS
   FOR X=0 TO MAPX
      Map(X,Y).RangeType="uDef"
   NEXT X
NEXT Y

eMtNum=0
eGrNum=0
eSnNum=0
eWrNum=0
eHlNum=0
FOR Y=0 TO MAPY :       REM GENERATE MAP
   FOR X=0 TO MAPX
      IF MAP(X,Y).RangeType="uDef"
         SELECT RND(4)
            CASE 0
               eMtNum=eMtNum+1
               eSymbol$=str$(eMtNum)
               eRangeName$="Mountain"
               ecCode=RGB(128,128,128)
            ENDCASE
            CASE 1
               eGrNum=eGrNum+1
               eSymbol$=str$(eGrNum) : `GRASS
               eRangeName$="Grass"
               ecCode=RGB(0,255,0)
            ENDCASE
            CASE 2
               eSnNum=eSnNum+1
               eSymbol$=str$(eSnNum) : `SAND
               eRangeName$="Sand"
               ecCode=RGB(255,128,0)
            ENDCASE
            CASE 3
               eWrNum=eWrNum+1
               eSymbol$=str$(eWrNum) : `WATER
               eRangeName$="Water"
               ecCode=RGB(0,0,255)
            ENDCASE
            CASE 4
               eHlNum=eHlNum+1
               eSymbol$=str$(eHlNum) : `HILLS
               eRangeName$="Hills"
               ecCode=RGB(0,128,0)
            ENDCASE
         ENDSELECT
      ENDIF
      IF Map(X,Y).RangeType="uDef"
         L=RND(15)+1
         W=RND(15)+1
         IF X+L > MAPX THEN L = MAPX - X + 1
         IF Y+W > MAPY THEN W = MAPY - Y + 1
         FOR X2=1 TO L
            FOR Y2=1 TO W
               IF MAP(X+X2-1, Y+Y2-1).RangeType="uDef"
                  MAP(X+X2-1, Y+Y2-1).RangeType=eRangeName$
                  IF eRangeName$="Mountain" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eMtNum
                  IF eRangeName$="Grass" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eGrNum
                  IF eRangeName$="Sand" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eSnNum
                  IF eRangeName$="Water" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eWrNum
                  IF eRangeName$="Hills" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eHlNum
                  MAP(X+X2-1, Y+Y2-1).Symbol=eSymbol$
                  MAP(X+X2-1, Y+Y2-1).colCode=ecCode
               ENDIF
            NEXT Y2
         NEXT X2
      ENDIF
   NEXT X
NEXT Y

ENDFUNCTION

+ Code Snippet

RANDOMIZE TIMER()

#CONSTANT MAPX 70
#CONSTANT MAPY 30

CurPosX=0
CurPosY=0

TYPE MapElement
   RangeType AS STRING
   RangeName AS STRING
   RangeNumber AS INTEGER
   Symbol AS STRING
   colCode AS DWORD
ENDTYPE

DIM Map(MAPX,MAPY) AS MapElement

InitMap() : `SETUP AND INITIALIZE THE MAP AND ALL OF ITS ELEMENTS USING MAP ARRAY

DO : REM MAIN LOOP
   SET TEXT OPAQUE
   CLS
   FOR Y=0 TO MAPY
      FOR X=0 TO MAPX
         IF X = CurPosX AND Y = CurPosY
            INK MAP(X,Y).colCode, RGB(255,0,0)
         ELSE
            INK MAP(X,Y).colCode, 0
         ENDIF
         TEXT X * 13, Y * 13, MAP(X,Y).Symbol
      NEXT X
   NEXT Y
   IF UPKEY() THEN CurPosY = CurPosY - 1
   IF DOWNKEY() THEN CurPosY = CurPosY + 1
   IF RIGHTKEY() THEN CurPosX = CurPosX + 1
   IF LEFTKEY() THEN CurPosX = CurPosX - 1

   IF CurPosY < 0 THEN CurPosY=0
   IF CurPosY > MAPY THEN CurPosY=MAPY
   IF CurPosX < 0 THEN CurPosX=0
   IF CurPosX > MAPX THEN CurPosX=MAPX

   SET CURSOR 45, 500
   print CurPosX; " "; CurPosY; " "; MAP(CurPosX,CurPosY).RangeType; " "; MAP(CurPosX,CurPosY).RangeNumber

LOOP

FUNCTION InitMap

FOR Y=0 TO MAPY :       `SET DEFAULT VALUES FOR MAP ELEMENTS
   FOR X=0 TO MAPX
      Map(X,Y).RangeType="uDef"
   NEXT X
NEXT Y

eMtNum=0
eGrNum=0
eSnNum=0
eWrNum=0
eHlNum=0
FOR Y=0 TO MAPY :       REM GENERATE MAP
   FOR X=0 TO MAPX
      IF MAP(X,Y).RangeType="uDef"
         SELECT RND(4)
            CASE 0
               eMtNum=eMtNum+1
               eSymbol$=str$(eMtNum)
               eRangeName$="Mountain"
               ecCode=RGB(128,128,128)
            ENDCASE
            CASE 1
               eGrNum=eGrNum+1
               eSymbol$=str$(eGrNum) : `GRASS
               eRangeName$="Grass"
               ecCode=RGB(0,255,0)
            ENDCASE
            CASE 2
               eSnNum=eSnNum+1
               eSymbol$=str$(eSnNum) : `SAND
               eRangeName$="Sand"
               ecCode=RGB(255,128,0)
            ENDCASE
            CASE 3
               eWrNum=eWrNum+1
               eSymbol$=str$(eWrNum) : `WATER
               eRangeName$="Water"
               ecCode=RGB(0,0,255)
            ENDCASE
            CASE 4
               eHlNum=eHlNum+1
               eSymbol$=str$(eHlNum) : `HILLS
               eRangeName$="Hills"
               ecCode=RGB(0,128,0)
            ENDCASE
         ENDSELECT
      ENDIF
      IF Map(X,Y).RangeType="uDef"
         L=RND(15)+1
         W=RND(15)+1
         IF X+L > MAPX THEN L = MAPX - X + 1
         IF Y+W > MAPY THEN W = MAPY - Y + 1
         FOR X2=1 TO L
            FOR Y2=1 TO W
               IF MAP(X+X2-1, Y+Y2-1).RangeType="uDef"
                  MAP(X+X2-1, Y+Y2-1).RangeType=eRangeName$
                  IF eRangeName$="Mountain" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eMtNum
                  IF eRangeName$="Grass" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eGrNum
                  IF eRangeName$="Sand" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eSnNum
                  IF eRangeName$="Water" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eWrNum
                  IF eRangeName$="Hills" THEN MAP(X+X2-1, Y+Y2-1).RangeNumber=eHlNum
                  MAP(X+X2-1, Y+Y2-1).Symbol=eSymbol$
                  MAP(X+X2-1, Y+Y2-1).colCode=ecCode
               ENDIF
            NEXT Y2
         NEXT X2
      ENDIF
   NEXT X
NEXT Y

ENDFUNCTION

If your mansion house needs haunting, just call Rentaghost!

Back to top

Profile PM Website

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 23rd Oct 2003 02:20

Link

Oh ya, thats obvious, why didnt I think of that? Oh well...ok everything is well. Thanks again Spooky

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / This Code Is Driving Me Nuts - Please Help