Sorry your browser is not supported!

PHY MAKE RIGID BODY STATIC MESH "your floor"

 Rem /////////////////////////////
Rem Project: Blasted Arena
Rem Created: 1/14/2009 5:02:37 PM
Rem /////////////////////////////

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

Rem //////////////////////
Rem ***** Setup Game *****
Rem //////////////////////

Sync On
Sync Rate 0
Hide Mouse
AutoCam Off
Set Display Mode 800,600,32,1
Color Backdrop RGB(0,0,0)

Set Global Shadow Color 0,0,0,110
Set Point Light 0,128,200,-5
Color Light 0,RGB(255,255,255):Set Light Range 0,800

Rem ////////////////////////
Rem ***** Load Engines *****
Rem ////////////////////////

Phy Start
Phy Set Fixed Timing 1.0

Rem /////////////////////////////////
Rem ***** Load Needed Materials *****
Rem /////////////////////////////////

`Level Parts
ML1=B3D Load Object("Maps/ML1/ML1.dbo"):SC_SetupObject ML1,0,0
Scale Object ML1,50,50,50
Set Object Light ML1,0
Set Object Ambient ML1,0
Phy Make Rigid Body Static Mesh ML1

`Load Characters
Player1=B3D Load Object("Models/SAS.x")
YRotate Object Player1,180:Fix Object Pivot Player1
Position Object Player1,128,20,-5
Set Shadow Shading On Player1,-1,1500,1
Phy Make Box Character Controller Player1,128,20,-5,30,70,30,1,15,30

`Make Box
Box1=B3D Make Object Box(60,60,60):SC_SetupObject Box1,0,2
Position Object Box1,373,1,-7

Rem ///////////////////////////////////
Rem ***** Create/Manage Particles *****
Rem ///////////////////////////////////

Rem ////////////////////////////
Rem ***** RayCasting Setup *****
Rem ////////////////////////////

`Make Raycast Sphere
RayCastS=B3D Make Object Sphere(20)
RayCastM=M3D Make Mesh From Object(RayCastS)
Delete Object RayCastS

`Apply RayCastM To Player1
Perform Checklist For Object Limbs Player1
L=Checklist Quantity()
Add Limb Player1,L,RayCastM
Offset Limb Player1,L,0,30,-1000
Inc L,1:Dec L,1
Delete Mesh RayCastM

Rem ////////////////////////
Rem ***** Setup Camera *****
Rem ////////////////////////

`Make Camera Sphere
CSP1=B3D Make Object Sphere(20)
CSP1M=M3D Make Mesh From Object(CSP1)
Delete Object CSP1

`Apply Camera Sphere To Player
Perform Checklist For Object Limbs Player1
CSP1L=Checklist Quantity()
Add Limb Player1,CSP1L,CSP1M
Offset Limb Player1,CSP1L,0,550,110
Inc CSP1L,1:Dec CSP1L,1
Delete Mesh CSP1M

Rem ///////////////////////////
Rem ***** Weapon Varibles *****
Rem ///////////////////////////

`NDWA(Not Duel Wield-Able)
`DWA(Duel Wield-Able)

Rem ///////////////////////////
Rem ***** Static Varibles *****
Rem ///////////////////////////

Rem ///////////////////////////
Rem ***** Start Main Loop *****
Rem ///////////////////////////

`Do/Loop
Do

Rem ////////////////////////////
Rem ***** Dynamic Varibles *****
Rem ////////////////////////////

`Player1's Positions
Player1X#=Object Position X(Player1)
Player1Y#=Object Position Y(Player1)
Player1Z#=Object Position Z(Player1)

`Player1's Shooting Limb Positions
Player1LX#=Limb Position X(Player1,L)
Player1LY#=Limb Position Y(Player1,L)
Player1LZ#=Limb Position Z(Player1,L)

`Player1's Camera Controller
Player1CLX#=Limb Position X(Player1,CSP1L)
Player1CLY#=Limb Position Y(Player1,CSP1L)
Player1CLZ#=Limb Position Z(Player1,CSP1L)

`Game's Frame Rate
FrameRate=Screen FPS()

Rem /////////////////////////////////
Rem ***** Display OnScreen Info *****
Rem /////////////////////////////////

`Frame Rate
Text 0,0,"Frame Rate "+STR$(FrameRate)

`Player1 Position
Text 0,20,"Player1 X "+STR$(Player1X#)
Text 0,30,"Player1 Y "+STR$(Player1Y#)
Text 0,40,"Player1 Z "+STR$(Player1Z#)

Rem ////////////////////////
Rem ***** Setup Camera *****
Rem ////////////////////////

`Camera Position/Rotation
Position Camera Player1CLX#,Player1CLY#,Player1CLZ#
Set Camera to Object Orientation Player1
Camy#=Camy#+Controller Thumb Right X(0)/11000
YRotate Object Player1,Camy#:Point Camera Player1X#,Player1Y#+300,Player1Z#

Rem //////////////////////////////////////////////////////
Rem ***** Player1's Movement Controls And Animations *****
Rem //////////////////////////////////////////////////////

Key=0
`Idle Animation
If Controller Thumb Left Y(0)=0 And Controller Thumb Left Y(0)=0 Then Key=0
`Moving Up
If Controller Thumb Left Y(0)>0
   Key=1
   Set Object Speed Player1,55
   Loop Object Player1,663,681
   `Move Object Player1,3.0
   Phy Move Character Controller Player1,300.0
Endif
`Moving Down
If Controller Thumb Left Y(0)<0
   Key=1
   Set Object Speed Player1,35
   Loop Object Player1,598,622
   `Move Object Player1,-1.5
   Phy Move Character Controller Player1,-150.0
Endif
`Standing Animation
If Key=0
Phy Move Character Controller Player1,0.0
Loop Object Player1,573,597
Endif

Rem ///////////////////////////////////////
Rem ***** Player1's Shooting Controls *****
Rem ///////////////////////////////////////

`Fire RayCast
If Controller Trigger Right(0)>0
RayCast=SC_RayCast(Box1,Player1X#,Player1Y#,Player1Z#,Player1LX#,Player1LY#,Player1LZ#,Player1)
Endif

`Check If Box1 Was Hit
If Controller Trigger Right(0)>0
   If RayCast=1 Then Color Object Box1,RGB(255,0,0)
Endif
If RayCast=0 Then Color Object Box1,RGB(255,255,255)

Rem ///////////////////////
Rem ***** Update Game *****
Rem ///////////////////////

`----------------
`Update Collision
`----------------

`Box1
SC_UpdateObject Box1

`----------------
`Update Engines
`----------------

`Dark Physics
Phy Update

Rem /////////////////////////
Rem ***** End Main Loop *****
Rem /////////////////////////

Sync:Loop