Heres a nice grass effect which is originaly based off an idea by someone else, but I cannot rember the name. I'm going to try and incorporate this into the engine.
No media required:
REM Project: grass
REM Created: 16/05/2009 22:33:09
REM
REM ***** Main Source File *****
REM
sync on
dw=desktop width()
dh=desktop height()
set display mode dw,dh,32,1
autocam off
create bitmap 1,256,256
set current bitmap 1
for x=1 to 128 : for z=1 to 128
ink rgb(50,100+rnd(100),50),0
dot x,z
next z : next x
get image 1,1,1,128,128
cls
for t=1 to 1000
x=rnd(64)
z=rnd(64)
ink rgb(50,100+rnd(100),50),0
box x-1,z-1,x+1,z+1
next t
get image 2,1,1,64,64
cls
for t=1 to 4000
x=rnd(128)
z=rnd(128)
ink rgb(50,100+rnd(100),50),0
box x-1,z-1,x+1,z+1
next t
get image 3,1,1,128,128
cls
for t=1 to 8000
x=rnd(256)
z=rnd(256)
ink rgb(50,100+rnd(100),50),0
box x-1,z-1,x+1,z+1
next t
get image 4,1,1,256,256
delete bitmap 1
make object box 101,1,2,1
offset limb 101,0,0,1,0
make object box 100,1000,0.1,1000
texture object 100,1
scale object texture 100,50,50
position object 100,0,-0.1,0
for t=1 to 20
make object plain t,40,40
set object transparency t,4
set object t,1,1,0,1,0,0,0
texture object t,2
scale object texture t,8,8
t#=t
xrotate object t,90
position object t,0,t#/50,0
next t
detail=1
do
text 10,25,"1) Low detail 2) Medium detail 3) Medium detail"
text 10,50,str$(screen fps())
if keystate(2)=1
detail=1
for t=1 to 20
texture object t,2
next t
endif
if keystate(3)=1
detail=2
for t=1 to 20
texture object t,3
next t
endif
if keystate(4)=1
detail=3
for t=1 to 20
texture object t,4
next t
endif
position camera object position x(101),object position y(101),object position z(101)
cay#=cay#+mousemovex()/10
cax#=cax#+mousemovey()/10
rotate camera cax#,cay#,0
move camera -10
yrotate object 101,cay#
if upkey()=1 then move object 101,1
if downkey()=1 then move object 101,-1
x=object position x(101)
z=object position z(101)
xx=object position x(1)
zz=object position z(1)
if x>xx+5
for t=1 to 20
position object t,object position x(t)+5,object position y(t),object position z(t)
next t
endif
if x<xx-5
for t=1 to 20
position object t,object position x(t)-5,object position y(t),object position z(t)
next t
endif
if z>zz+5
for t=1 to 20
position object t,object position x(t),object position y(t),object position z(t)+5
next t
endif
if z<zz-5
for t=1 to 20
position object t,object position x(t),object position y(t),object position z(t)-5
next t
endif
tm#=tm#+2
kax#=wrapvalue((cax#+45)/-10)
for t=1 to 20
move object right t,cos(tm#)*0.0001*t
move object up t,sin(tm#)*0.0001*t
next t
sync
loop
I have recently been working on cities. I might just leave the create creator till a little later and use the engine to make a simple action game where you conquer or defend planets against aliens. This can then be expanded with the creature creator and extra phases.
