Sorry your browser is not supported!

sync on : sync rate 60
hide mouse
autocam off
position camera 0,20,-100
load object "Trooper.X", 1

rem Override some properties of the object
set object diffuse 1,rgb(0,0,0)
set object specular 1,0
set object light 1,1
set object ambient 1,1

rem Standard conversion for DM2 object use
xrotate object 1,270
fix object pivot 1

rem Good first view
rotate object 1,0,180+45,0

idle = 1
attack = 2
hurt = 3
walk = 4
run = 5
animation = 0
gosub selec_ani
set object speed 1, 6400

do

	if keystate(2) = 1
		if animation <> 1
			animation = 1
			gosub selec_ani
		endif
	endif

	if keystate(3) = 1
		if animation <> 2
			animation = 2
			gosub selec_ani
		endif
	endif

	if keystate(4) = 1
		if animation <> 3
			animation = 3
			gosub selec_ani
		endif
	endif

	if keystate(5) = 1
		if animation <> 4
			animation = 4
			gosub selec_ani
		endif
	endif

	if keystate(6) = 1
		if animation <> 5
			animation = 5
			gosub selec_ani
		endif
	endif

	sync

loop

selec_ani:

	select animation
		case 1 : loop object 1, 0, 80 : endcase
		case 2 : loop object 1, 150, 200 : endcase
		case 3 : loop object 1, 201, 250 : endcase
		case 4 : loop object 1, 470, 530 : endcase
		case 5 : loop object 1, 570, 630 : endcase
		case default : loop object 1 : endcase
	endselect

return

rem put this before your main loop
`SETUP ANIMATIONS
   #Constant IDLE = 1
   #Constant WALKING = 2
   #Constant PATROLLING = 3
   #Constant ALERT = 4
   #Constant SHOOTING = 5
   #Constant DEAD = 6

   dim anims(6) as anim
      Anims(IDLE).start_frame = 0
      Anims(IDLE).end_frame = 80
      Anims(IDLE).speed = 6400
      Anims(WALKING).start_frame = 570
      Anims(WALKING).end_frame = 630
      Anims(WALKING).speed = 30000
      Anims(PATROLLING).start_frame = 470
      Anims(PATROLLING).end_frame = 530
      Anims(PATROLLING).speed = 7000
      Anims(ALERT).start_frame = 80
      Anims(ALERT).end_frame = 150
      Anims(ALERT).speed = 6400
      Anims(SHOOTING).start_frame = 160
      Anims(SHOOTING).end_frame = 180
      `Anims(SHOOTING).speed = 6400
      Anims(SHOOTING).speed = 26000
      Anims(DEAD).start_frame = 370
      Anims(DEAD).end_frame = 401
      Anims(DEAD).speed = 9000

rem put his in your "handle anims" function
      if animation <> DEAD then loop object obj, f(anims(animation).start_frame, obj), f(anims(animation).end_frame, obj)
      if animation = DEAD then play object obj, f(anims(animation).start_frame, obj), f(anims(animation).end_frame, obj)
      if animation = SHOOTING then play object obj, f(anims(animation).start_frame, obj), f(anims(animation).end_frame, obj)

rem put this function in your function block
function f(frame,obj)
   t_frames = total object frames(obj)
   fr = int(frame * (t_frames / 650))
endfunction fr




rem so your main loop might look like this:
do

if keystate(2)=1 then SetObjAnim(player_obj, anims(SHOOTING).sframe, anims(SHOOTING.eframe, anims(SHOOTING).speed
rem etc. etc. etc... :P

sync

loop

sync on
sync rate 60
load object "C:\Program Files\The Game Creators\DarkMATTER2\DM2Browser\Media\Actors\Monsters\Minotaur\Minotaur.X",1
xrotate object 1, 270
fix object pivot 1

set object speed 1, 6400
loop object 1,f(80,1),f(150,1)

do
sync
loop



function f(frame,obj)
   t_frames = total object frames(obj)
   fr = int(frame * (t_frames / 650))
endfunction fr

sync on
sync rate 60
load object "C:\Program Files\The Game Creators\DarkMATTER2\DM2Browser\Media\Actors\Monsters\Minotaur\Minotaur.X",1
xrotate object 1, 270
fix object pivot 1

set object speed 1, 6400
loop object 1,500,600

do
sync
loop