Sorry your browser is not supported!

perform checklist for object limbs obj
count=checklist quantity()
add limb obj,count,mesh_number

Rem Project: Cops
Rem Created: Friday, September 17, 2010
load object "media\H-SWAT-Idle.x",1
load image "media\swat.dds",1
texture object 1,1
set object speed 1,2
make camera 1
scale object 1,100,100,100
load object "media\H-SWAT-Attack1.x",2
texture object 2,1
hide object 2
show object 1
set object speed 2,10

 make object plane 99,25,25

position object 99,0,0,0
 rotate object 99,90,0,0
load image "media\grass_T.bmp",99

Rem ***** Main Source File *****

sync
autocam off
texture object 99,99
scale object texture 99,5,5
 
 load sound "media\Automatic loop.wav",1
 load sound "media\Leaves fast.wav",2
 set sound volume 2,85

hide light 0

MAKE LIGHT 1

cx#=0
cy#=0
cz#=0

px#=0
py#=0
pz#=0
rotate camera 1,0,180,0

load object "media\H-SWAT-Move.x",3
texture object 3,1
set object speed 3,5
 
 
 make mesh from object 1,1
 add limb 1,0,1



position light 1,0,5,0
set light range 1,10

remstart
set shadow shading on 1
set shadow shading on 2
set shadow shading on 3
remend




do

if object playing(2)=1 and sound playing(1)=0
play sound 1
endif

if object playing(3)=1 and sound playing(2)=0
play sound 2
endif




px# = object position x(1) 
py# = object position y(1)
pz# = object position z(1)

position object 3,px#,py#,pz#

position object 2,px#,py#,pz#
if object playing(2)=0 and object playing(3)=0
 hide object 2
 hide object 3
 loop object 1,1
 show object 1
 else
 hide object 1
 endif
cx#=px#
cy#=py#+2
cz#=pz#+1.4


if KEYSTATE(57)=1 and object playing(2)=0
hide object 1
hide object 3
show object 2
play object 2
endif

if KEYSTATE(17)=1 and object playing(2)=0 and object playing(3)=0
hide object 1
show object 3 

endif

if KEYSTATE(17)=1 and object playing(2)=0 and object playing(3)=0 then play object 3
if KEYSTATE(17)=1 and object playing(2)=0 then move object 1,-.02




if KEYSTATE(31)=1 and object playing(2)=0 and object playing(3)=0
hide object 1
show object 3 

endif

if KEYSTATE(31)=1 and object playing(2)=0 and object playing(3)=0 then play object 3
 if KEYSTATE(31)=1 and object playing(2)=0 then move object 1,.02

if KEYSTATE(30)=1 and object playing(2)=0
turn object left 1,1
turn camera left 1,1

endif



set camera to follow 1, cx#,cy#,cz#,0,-.5,.2,1,1



loop

ink rgb(0,100,0),1
box 0,0,50,50
ink rgb(0,90,0),1
box 10,10,40,40
get image 1,0,0,50,50,1

autocam off
sync on
helper=2
rem _floor
make object box 100,300,1,300:texture object 100,1:scale object texture 100,25,25
rem your hero
make object sphere 1,2:position object 1,0,1,0
rem object helper to position camera on it
make object box helper,1,1,1

do
rem hero moving speed
speed#=0.01
move object 1,speed#
if leftkey() then ang#=ang#-0.8
if rightkey() then ang#=ang#+0.8
yrotate object 1,ang#
 position camera object position x(helper),object position y(helper)+3,object position z(helper)
position object helper,object position x(1),object position y(1),object position z(1)
move object right helper,3    //right shouder
move object helper,-8
yrotate object helper,ang#

 yrotate camera ang#
sync
loop

ink rgb(0,100,0),1
box 0,0,50,50
ink rgb(0,90,0),1
box 10,10,40,40
get image 1,0,0,50,50,1

autocam off
sync on
helper=2
rem _floor
make object box 100,300,1,300:texture object 100,1:scale object texture 100,25,25
rem your hero
make object sphere 1,2:position object 1,0,1,0
rem object helper to position camera on it
make object box helper,1,1,1

do
rem hero moving speed
speed#=0.01
move object 1,speed#
if leftkey() then ang#=ang#-0.8
if rightkey() then ang#=ang#+0.8
yrotate object 1,ang#
 position camera object position x(helper),object position y(helper)+3,object position z(helper)
position object helper,object position x(1),object position y(1),object position z(1)
rem move object right helper,3    //right shouder
move object helper,-8
yrotate object helper,ang#

 yrotate camera ang#
sync
loop