odd, no diffrence, heres th enew code (now with code tags insted of quote)
Rem Project: forest
Rem Created: Sunday, August 28, 2011
Rem ***** Main Source File *****
global camheight as integer
camheight = 15
sync on
sync rate 60
backdrop on
autocam off
set camera range 1, 20000
load object "tree1.dbo",1
set object transparency 1, 6
set alpha mapping on 1, 99
position object 1, rnd(100),0, rnd(100)
load object "tree2.dbo",2
set object transparency 2, 6
set alpha mapping on 2, 99
position object 2, rnd(100),0, rnd(100)
load object "tree3.dbo",3
set object transparency 3, 6
set alpha mapping on 3, 99
position object 3, rnd(100),0, rnd(100)
load object "tree4.dbo",4
set object transparency 4, 6
set alpha mapping on 4, 99
position object 4, rnd(100),0, rnd(100)
load object "tree5.dbo",5
set object transparency 5, 6
set alpha mapping on 5, 99
position object 5, rnd(100),0, rnd(100)
load object "plant1.dbo",1007
set object transparency 1007, 6
set alpha mapping on 1007, 99
position object 1007, rnd(100),0, rnd(100)
scale object 1007,13,19,16
load object "plant2.dbo",1008
set object transparency 1008, 6
set alpha mapping on 1008, 99
position object 1008, rnd(100),0, rnd(100)
scale object 1008,13,19,16
load object "plant3.dbo",1009
set object transparency 1009, 6
set alpha mapping on 1009, 99
position object 1009, rnd(100),0, rnd(100)
scale object 1009,13,19,16
load object "plant4.dbo",1010
set object transparency 1010, 6
set alpha mapping on 1010, 99
position object 1010, rnd(100),0, rnd(100)
scale object 1010,13,19,16
load image "groundskin.jpg",1
make matrix 1, 2000, 2000, 25, 25
position matrix 1, -1000, 0, -1000
randomize matrix 1, rnd(10)
set matrix wireframe off 1
prepare matrix texture 1 ,1, 1, 1
update matrix 1
position camera 0,camheight, -250
set camera range 1,20000
for x = 5 to 1005
Instance object x, rnd(4)+1
position object x, rnd(2000)-1000, 0, rnd(2000)-1000
scale object x, 80+rnd(40), 80+rnd(40), 80+rnd(40)
turn object right x, rnd(359)
NEXT x
for z = 1011 to 2011
Instance object z, 1007+rnd(3)
position object z, rnd(2000)-1000, 0, rnd(2000)-1000
scale object z, 18+rnd(9), 18+rnd(9), 18+rnd(9)
turn object right z, rnd(359)
NEXT z
load image "test.png",2
texture object 6,2
load image "plant2.png",3
texture object 7,3
load image "plant3.png",4
texture object 8,4
load image "plant4.png",5
texture object 9,5
do
control camera using arrowkeys 0, 2, 0.5
if keystate(17) = 1 rem w
inc camheight
position camera camera position x(0), camheight, camera position z(0)
ENDIF
if keystate (31) = 1
dec camheight
position camera camera position x(0), camheight , camera position z(0)
ENDIF
sync
LOOP.....the feel of solitude hurts inside....
