chafari, I am a beginner in the DBPro. And I know real cost of my coding.
But:
`show the floor
make object plane 8,128000,128000
xrotate object 8, 90
load image "GRASS_01.bmp",8
texture object 8,8
scale object texture 8,6400,6400
`set up the lighting
set ambient light 75
`set background color to blue
color backdrop rgb(0,192,255)
gravity# = 0.5
`snow
make object plane 5,16,16
position object 5,0,512,0
load image "particle_snow.png",5
texture object 5,5
set object transparency 5, 1
`flame
load image "particle_flame.png",6
make particles 1,6,500,100
position particle emissions 1,0,0,-512
set particle velocity 1,5
set particle speed 1,0.005
set particle gravity 1,-1
set particle life 1,50
`animation constants
ANI_IDLE = 1
ANI_FIDGET = 2
ANI_ATTACK = 3
ANI_WALK = 4
ANI_RUN = 5
ANIMATIONS:
data 0,11800 `IDLE
data 12000,23800 `FIDGET
data 24000,35800 `ATTACK
data 36000,41800 `WALK
data 42000,45800 `RUN
`custom animation data type
type ANIMTYPE
start as integer
stop as integer
endtype
`create and fill the animation array
dim anim(5) as ANIMTYPE
for n = 1 to 5
read anim(n).start
read anim(n).stop
next n
`load and position the model
load object "baba.dbo", 1
position object 1, 0, 0, 0
animate(ANI_IDLE)
`load and glue item
perform checklist for object limbs 1
load object "sling-bikini.dbo", 3
glue object to limb 3,1,2
sync on
sync rate 60
`game loop
repeat
if keystate(2)=1
animate(ANI_IDLE)
set object speed 1, 9000
endif
if keystate(3)=1
animate(ANI_FIDGET)
set object speed 1, 9000
endif
if keystate(4)=1
animate(ANI_ATTACK)
set object speed 1, 9000
endif
if keystate(17)=1
animate(ANI_WALK)
move object 1,-1.5
set object speed 1, 9000
endif
if keystate(31)=1
animate(ANI_WALK)
move object 1,1
set object speed 1, -9000
endif
if keystate(19)=1
animate(ANI_RUN)
move object 1,-4.5
set object speed 1, 9000
endif
if keystate(30)=1
yrotate object 1,object angle y(1)-1
endif
if keystate(32)=1
yrotate object 1,object angle y(1)+1
endif
set camera to follow 0,object position x(1),object position y(1),object position z(1),object angle y(1)-180,200,125,25,0
if force# > -1 and force# < 1 then force# = force# - gravity#
rem **if spacekey() = 1 and force#<1 then force# = 0.1**
position object 5,object position x(5),object position y(5)-gravity#,object position z(5)
if spacekey() = 1 and force#<1 then force# = 0.9
position object 1,object position x(1),object position y(1)+force#,object position z(1)
if object position y(1)<0 then position object 1,object position x(1),0,object position z(1)
sync
until escapekey()
function animate(frame as integer)
loop object 1, anim(frame).start, anim(frame).stop
endfunction
I do think everyone can do that if he will spend pair bits of his life. For now my interest is particle system.
***
EXE(current - not final!):
The Lord
