im makinga 2d map and using the 3d plain object as tiles. when i delete them to goto the next map the system wont recreate them when i have commanded to. y is this?
[/code]
`¬¬¬¬¬¬¬¬¬¬Area Changing¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
sync on
sync rate 30
set display mode 1024,768,16
world1:
cls
load image "grass08.bmp",1
load image "ash01.bmp",2
dim world1(5,5)
for y=0 to 4
for x=0 to 4
if world1data < 1 then restore world1data
read world1data
world1(x,y)=world1data
next x
next y
for y=0 to 4
for x=0 to 4
objnum = objnum + 1
make object plain objnum,5,5
position object objnum,x*5,y*5,75
if world1(x,y)> 0 then texture object objnum,world1(x,y) else color object objnum,0
next x
next y
do
if mouseclick()=1
delete image 1
delete image 2
for y=0 to 4
for x=0 to 4
delete object objnum
next y
next x
undim world1(5,5)
goto world2
endif
` X,Y,ZOOM
position camera 0,0,-10
xrotate camera 0.0
yrotate camera angle#
zrotate camera 0.0
sync
loop
world2:
cls
load image "grass08.bmp",1
load image "ash01.bmp",2
dim world2(10,10)
for y=0 to 9
for x=0 to 9
if world2data < 1 then restore world2data
read world2data
world2(x,y)=world2data
next x
next y
for y=0 to 9
for x=0 to 9
objnum = objnum + 1
make object plain objnum,10,10
position object objnum,x*10,y*10,75
if world2(x,y)> 0 then texture object objnum,world2(x,y) else color object objnum,0
next x
next y
do
if mouseclick()=2
delete image 1
delete image 2
for y=0 to 9
for x=0 to 9
delete object objnum
next y
next x
undim world2(10,10)
goto world1
endif
position camera 0,0,-10
xrotate camera 0.0
yrotate camera angle#
zrotate camera 0.0
sync
loop
world1data:
data 1,2,1,2,1
data 2,1,2,1,2
data 1,2,1,2,1
data 2,1,2,1,2
data 1,2,1,2,1
world2data:
data 1,1,1,1,1,1,1,1,1,1
data 2,2,2,2,2,2,2,2,2,2
data 1,1,1,1,1,1,1,1,1,1
data 2,2,2,2,2,2,2,2,2,2
data 1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1
data 2,2,2,2,2,2,2,2,2,2
data 1,1,1,1,1,1,1,1,1,1
data 2,2,2,2,2,2,2,2,2,2
data 1,1,1,1,1,1,1,1,1,1
[code]
All help appreciated. thanx in advance
Daedalus
