`========================================================
`====================Simple FPS==========================
`========================================================
`=======by culmor30======================================

`------CONTROLLER PROMPT------
`sync on:sync rate 0:



`------CONTROLLER PROMPT------



sync on
sync rate 60
color backdrop black
hide mouse
autocam off
phy start

global NextIDNumber = 0
global newy = 0

`=====Create player object=====
PlayerObject = NextIDNumber()
make object cube PlayerObject,2
scale object PlayerObject,2,20,2
position object PlayerObject,10,15,0
hide object PlayerObject
`=====Create player object=====

pbpx#=object position x(PlayerObject)
pbpy#=object position y(PlayerObject)
pbpz#=object position z(PlayerObject)

`=====Add Level Light 1=====
make light 1
set spot light 1,100,200
position light 1,200,350,100
point light 1,200,0,350
set light range 1,600
color light 1,rgb(255,255,255)
`=====Add Level Light 1=====

color light 0,255,255,255

`=====Add Level Light 2=====
make light 2
set spot light 2,100,200
position light 2,100,350,200
point light 2,350,0,200
set light range 2,600
color light 2,rgb(255,255,255)
`=====Add Level Light 2=====

set normalization on

`=====Level Fog=====
`-(Only works if GFX card supports it)
fog on
fog color rgb(000,040,000)
fog distance 350
set ambient light 2.0
color ambient light rgb(000,040,000)
`=====Level Fog=====

`=====Load Level=====
LevelObject = NextIDNumber()
load object "level.x", LevelObject
position object LevelObject ,0,0,0
scale object LevelObject,400,400,400
set object collision to polygons LevelObject
phy make rigid body static mesh LevelObject
`=====Load Level=====

`=====Load and position crosshair=====
screen_height=screen height()
screen_width=screen width()
screen_center_x=screen_width / 2
screen_center_y=screen_height / 2

CrossHairImage = NextIDNumber()
load image "crosshair.bmp",CrossHairImage,1

CrossHairSprite = NextIDNumber()
sprite CrossHairSprite,screen_center_x - 50,screen_center_y - 50,CrossHairImage
`=====Load and position crosshair=====

`=====Character Controller=====
phy make box character controller 1,pbpx#,pbpy#,pbpz#,2,20,2,1,1,50
`=====Character Controller=====

`===Banner===
titleimg=NextIDNumber()
load image "title.bmp",titleimg,1
titlesprite=NextIDNumber()
sprite titlesprite,790,680,titleimg
`===Banner===

type BulletType
     ObjectNumber as integer
     Distance     as float
endtype

dim Bullets(10) as BulletType

for b=0 to 10
     NewBullet = NextIDNumber()
     make object sphere NewBullet,0.2
     color object NewBullet,rgb(255,255,0)

     ` This is the object number.
     Bullets(b).ObjectNumber = NewBullet

     Bullets(b).Distance = -1.0

     hide object NewBullet
     position object NewBullet,0,-999,0
next b

sparktex = NextIDNumber()
load image "sparktexture.bmp",sparktex,0

BulletsInFlight = 0
BulletRange#    = 150.0
BulletVelocity# = 350.0

MovementSpeed#  = 75.0

`Bullethole
BulletHoleImage = NextIDNumber()
load image "bullet hole.bmp", BulletHoleImage,1

OriginalBulletHole = NextIDNumber()
make object plain OriginalBulletHole, 1, 1
texture object OriginalBulletHole, BulletHoleImage
set object transparency OriginalBulletHole, 5
hide object OriginalBulletHole

sparkexist# = particles exist(particleemitter)
sparkdeltimer# = 1

cyclecount#=1


phy update 0
`Begin main loop:
do
     PreviousCycleTime = CycleTime
     CycleTime         = timer()
     ElapsedTime       = CycleTime - PreviousCycleTime
     CyclesPerSecond#  = 1000.0 / ElapsedTime

     oldx#=object position x(PlayerObject)
     oldy#=object position y(PlayerObject)
     oldz#=object position z(PlayerObject)

     `=====WASD Controls=====
     if keystate(17)=1 
     move object PlayerObject, MovementSpeed# / CyclesPerSecond# : phy move character controller 1, MovementSpeed# / CyclesPerSecond#
     else
     phy move character controller 1,0.0
     endif

     if keystate(30)=1 then move object left PlayerObject, MovementSpeed# / CyclesPerSecond#

     if keystate(31)=1
     move object PlayerObject, 0.0 - (MovementSpeed# / CyclesPerSecond#) : phy move character controller 1, 0.0 - (MovementSpeed# / CyclesPerSecond#)
     else
     phy move character controller 1,0.0
     endif

     if keystate(32)=1 then move object right PlayerObject, MovementSpeed# / CyclesPerSecond#
     `=====WASD Controls=====

     x#=object position x(PlayerObject)
     y#=object position y(PlayerObject)
     z#=object position z(PlayerObject)

     `=====Camera/Player Obj Lock=====
     position camera object position x(PlayerObject),object position y(PlayerObject),object position z(PlayerObject)
     rotate camera camera angle x(),object angle y(PlayerObject),camera angle z()
     `=====Camera/Player Obj Lock=====

     `=====Camera Controls=====
     speed#=0.2
     damper#=10.0

     camy#=wrapvalue(camy#+mousemovex()*speed#):camx#=wrapvalue(camx#+mousemovey()*speed#)

     if camx#<=290 and camx#>180 then camx#=290
     if camx#>=70 and camx#<180 then camx#=70

     tx#=curvevalue(-camx#,tx#,damper#)
     ty#=curvevalue(-camy#,ty#,damper#)

     rotate camera camx#,object angle y(PlayerObject),0
     yrotate object 1,camy#
     `=====Camera Controls=====

`SPARKY'S SLIDING COLLISION FUNCTION CALL

     `slidingcollision(oldx#,oldy#,oldz#,x#,y#,z#,3,PlayerObject,LevelObject)

     if mouseclick() = 1 and FireTime < timer() - 200
          gosub FireBullet
          FireTime = timer()
     endif

     ` Process the bullets that are in flight.
     if BulletsInFlight > 0 then gosub bullets
     
     inc sparkdeltimer#
     text 500,20,"Spark Deletion Timer: "+str$(sparkdeltimer#)
     
     inc cyclecount#
     text 500,40,"Cycle Count: "+str$(cyclecount#)
     
     text 500,60,"Frames Per Second: "+str$(screen fps())

`))$#@#!BULLET ARRAY!#@#$((
     LineY = 10

     for b = 0 to 10
          inc LineY, 20
          text 10, LineY, str$(bullets(b).ObjectNumber) + " / " + str$(bullets(b).Distance)
     next b

     inc LineY, 20
     text 10, LineY,"Bullets in flight: "+str$(BulletsInFlight)

phy update 1
phy update 0
     sync
loop
`End main loop

` --------------------------------------------------------------------------------------------------

`========<=-=Bullets=-=>========
`---------->-=-Are-=-<----------
`========<=-=Annoying-=>========

FireBullet:

` Find the first unused bullet.

for b = 0 to 10

     ` If the bullet isn't in flight, position it at the point of origin.
     if Bullets(b).Distance = -1.0
          BulletObject = Bullets(b).ObjectNumber
          show object BulletObject
          position object BulletObject, camera position x(), camera position y(), camera position z()
          rotate object BulletObject, camera angle x(), camera angle y(), camera angle z()

          ` Annotate this bullet as being in flight.
          Bullets(b).Distance = 0.0

          inc BulletsInFlight

          ` We have our bullet, so exit.
          exit
     endif

next b

return

` --------------------------------------------------------------------------------------------------

bullets:

for b = 0 to 10

     ` If the bullet is in flight, see if it's going to hit something this program cycle.
     if Bullets(b).Distance > -1.0
          BulletObject = Bullets(b).ObjectNumber

          ` Note the bullet's position.
          PositionX# = object position x(BulletObject)
          PositionY# = object position y(BulletObject)
          PositionZ# = object position z(BulletObject)

          ` Move the bullet to where it's going to be if it doesn't hit anything.
          move object BulletObject, BulletVelocity# / CyclesPerSecond#

         

          ` An impact has occured.
       
               NewBulletHole = NextIDNumber()
               instance object NewBulletHole, OriginalBulletHole
               position object NewBulletHole, newx# + normx# / 10.0, newy# + normy# / 10.0, newz# + normz# / 10.0
               point object NewBulletHole, newx# + normx#, newy# + normy#, newz# + normz#

`----____----Spark Particles----____----

particleemitter = NextIDNumber()



`Spark Deletion Timer Stuff
if sparkdeltimer#>30
if sparksexist#>0
`DELETE THE EMITTER HERE
endif
sparkdeltimer#=0
endif

`--------                                                                ---------------

               ` Reset the distance of flight for next use of bullet.
               Bullets(b).Distance = -1.0
               dec BulletsInFlight
               hide object BulletObject
          ` An impact has not occured - the bullet will keep flying.
          else
               DistanceOfFlight# = Bullets(b).Distance + ThreeDimensionDistance#(PositionX#, PositionY#, PositionZ#, object position x(BulletObject), object position y(BulletObject), object position z(BulletObject))

               ` control bullet flight distance
               if DistanceOfFlight# >= BulletRange#
                    ` Reset the distance of flight for the next use of this bullet.
                    Bullets(b).Distance = -1.0
                    dec BulletsInFlight
                    hide object BulletObject
               ` The bullet's still flying, increase the distance of flight for next time.
               else
                    Bullets(b).Distance = DistanceOfFlight#
               endif

          endif

next b

return

` --------------------------------------------------------------------------------------------------



` --------------------------------------------------------------------------------------------------

function ThreeDimensionDistance#(FromX#, FromY#, FromZ#, ToX#, ToY#, ToZ#)
` calculate the distance between two points in three dimensions

TempX# = abs(FromX# - ToX#)
TempY# = abs(FromY# - ToY#)
TempZ# = abs(FromZ# - ToZ#)

ReturnValue# = sqrt((TempX# * TempX#) + (TempY# * TempY#) + (TempZ# * TempZ#))

endfunction ReturnValue#

` --------------------------------------------------------------------------------------------------

function NextIDNumber()
` determine ID numbers

inc NextIDNumber

endfunction NextIDNumber

function newy()

inc newy

endfunction newy

`------------------------------------------------------------------------------------------