Plant life and Tree magic use transparent texture. You need to let dark basic know to not show the transparent color.
`landscape by daygamer
sync on : sync rate 60 : hide mouse
make matrix 1,1000,1000,100,100
load image "textures\grass1.BMP",1
prepare matrix texture 1,1,1,1
randomize matrix 1,2
update matrix 1
for t = 100 to 200
load object "trees\Firsttree.dbo",t
Set Object Transparency t, 6
Set Alpha Mapping On t, 99
position object t,rnd(1000),0,rnd(1000)
scale object t,100+rnd(50),100+rnd(50),100+rnd(50)
next t
for p = 201 to 300
load object "plants\LSgrass.dbo",p
Set Object Transparency p, 6
Set Alpha Mapping On p, 99
scale object p,30,10,30
position object p,rnd(1000),0,rnd(1000)
next p
for t = 301 to 350
load object "trees\LSoak.dbo",t
Set Object Transparency t, 6
Set Alpha Mapping On t, 99
position object t,rnd(1000),0,rnd(1000)
scale object t,100+rnd(50),100+rnd(50),100+rnd(50)
next t
for r = 351 to 400
load object "plants\LSrock.dbo",r
Set Object Transparency r, 6
Set Alpha Mapping On r, 99
position object r,rnd(1000),0,rnd(1000)
scale object r,100+rnd(50),100+rnd(50),100+rnd(50)
next r
`load sound "music\06 Big Sky.mp3",1
`load sound "music\04 Indian Summer.mp3",2
`load sound "music\08 Nature of the Beast.wma",3
`load sound "music\01 Morning Dance.wma",4
`load sound "music\11 Lucky Bounce.wma",5
position camera 500,10,500
point camera 500,10,1000
do
if upkey()=1 then move camera 1
if downkey()=1 then move camera -1
if rightkey()=1 then turn camera right 2
if leftkey()=1 then turn camera left 2
`play music
`if play=0 then if inkey$()="p" then play sound rnd(1)+1 : play=1
`if inkey$()="p" then play=0
sync
loop
Hope this helps you.
