Sorry your browser is not supported!

Autocam Off
Hide Mouse
CLS
#include "NGCollision.dba"

NCULL_COUNTER_CLOCK 1
      NCULL_CLOCK 2
      NCULL_NONE 3

      TYPE_NGC_ELLIP=1
      TYPE_NGC_MESH=2

      ELLIP_2_ELLIP=1
      ELLIP_2_POLY=2

      RESP_STICK=1
      RESP_SLIDE=2
      RESP_SLIDE_NO_SLOPES=3
      RESP_SLIDE_NO_GRAV=4
      RESP_SLIDE_NO_ACCEL=5
      RESP_NONE=6

      DYN_NO_RESP=1
      DYN_RESP=2
      DYN_RESP_NOTURN=3

      Radius# = 80
   Gravity# = 10.0

 StartCollisionPRO(000000000,000000000,000000000)
SetCollisionsPRO( PLAYER_OBJ, WORLD_MESH, ELLIP_2_POLY, RESP_SLIDE, DYN_RESP, 0 )

Set global collision off

Load Object "Man2\Man2.x",2
 CollisionTypePRO( 2, PLAYER_OBJ )
SetObjRadiusPRO( 2, Radius#, Radius#, Radius# )
object_number, gravity_force#
      SetObjGravityPRO( 2, gravity# )


Load Object "Punk\H-Punk-Move.x",3
 CollisionTypePRO( 3, PLAYER_OBJ )
SetObjRadiusPRO( 3, Radius#, Radius#, Radius# )
object_number, gravity_force#
      SetObjGravityPRO( 3, gravity# )

Play Object 3
Loop Object 3

Load Object "US Car\H-US Car-Move.3ds",4
 CollisionTypePRO( 4, PLAYER_OBJ )
SetObjRadiusPRO( 4, Radius#, Radius#, Radius# )
object_number, gravity_force#
      SetObjGravityPRO( 4, gravity# )

Load Image "US Car\uscarlvl1.bmp",1

Load Object "US Car\H-US Car-Move-lvl1.3ds",5
 CollisionTypePRO( 5, PLAYER_OBJ )
SetObjRadiusPRO(5, Radius#, Radius#, Radius# )
object_number, gravity_force#
      SetObjGravityPRO(5, gravity# )

Load Image "US Car\uscarlvl1.bmp",1
Texture Object 5,1
Hide Object 5


Position Object 2,250,150,20
Position Object 3,150,150,100
Position Object 4,40,150,70
Position Object 5,Object Position X(4),Object Position Y(4),Object Position Z(4)

Scale Object 2,1000,1250,1000
Scale Object 3,6000,6000,6000
Scale Object 4,6000,6000,6000
Scale Object 5,6000,6000,6000





Sync On

Obj = 2
In_Car = 0

Do


Posx#=Object Position X(Obj)
Posy#=Object Position Y(Obj)
Posz#=Object Position Z(Obj)

angle#=object angle y(Obj)

camhigh#=posy#+35 : camfade#=3.5
set camera to follow Posx#,Posy#,Posz#,angle#+180,200,camhigh#,camfade#,1

If Upkey()=1 Then Move Object Obj,-2
If Downkey()=1 Then Move Object Obj,2
If LeftKey()=1 Then Yrotate Object Obj,WrapValue(angle#-2)
If Rightkey()=1 Then Yrotate Object Obj,Wrapvalue(angle#+2)

If ReturnKey()=1 and In_Car = 0 Then Obj = (Obj + 2):In_Car = 1:Hide Limb 2,0:Play Object 4:Loop Object 4
If Shiftkey()=1 and In_Car = 1 Then Obj = (Obj - 2):In_Car = 0:Show Limb 2,0:Stop Object 4
If Controlkey()=1 then Hide Object 4:Show Object 5

Move Object 3,-1
If Object Position Z(3) = -250 Then Position Object 3,Object Position X(3),Object Position Y(3),Object Position Z(3)+1:Yrotate Object 3,180
if Object Position Z(3) = 250 Then Position Object 3,Object Position X(3),Object Position Y(3),Object Position Z(3)-1:Yrotate Object 3,Wrapvalue(Object Angle Y(3)-180)


Sync
Loop