[continued]
version 6.1 - collisions not working properly
// Project: Universal 1st/3rd person framework.
// Created: 2017-02-04
WindowAndDisplaySetup()
AssignKeys()
foldstart // ------------------- Initialization variables ----------------------------.
#option_explicit
#constant version#=6.1
#constant physscale=40
#constant texturized=0 // toggle procedural generated textures or plain colors(faster)
Global progresscount=0
// camera & player controller..
#constant MaxCameraDistance#= 280/2 // needs work..
Global MinCameraDistance#
MinCameraDistance# = 140
Global NewCameraDistance#
NewCameraDistance#=MaxCameraDistance#
Global UserCameraDistance#
UserCameraDistance#=MaxCameraDistance#
Global CameraDistance#
Global CameraAngleX#,CameraAngleY#
Global GetPointerMoveX#, GetPointerMoveY#
Global RayObjectID
Global adjustfactorX#=0
Global adjustfactorZ#=0
Global FrameTime#
Global PointerX#, PointerY#, PointerZ#
Global cam_up=0
Global mouselocked=0
Global cammode=0
Global endgame=0
Global infodisplay=1
Global helpdisplay=0
Global nightMode=0
Global lightMode=0
Global torchOn=0
Global fog=0
Global gravity#= 20 //60 // if set lower than the ricochet of bullet collisions can set player up into the sky like a rocket booster.
// -10.0 meters per second on the Y axis will give the correct visual result.
// player..
Global playerheight#= 72 // 1.8*physscale
Global playerwidth# = 40 // 1 *physscale
Global hspeed#= 80 // 2 * 40
Global vspeed#= 20 // 0.5 * 40
Global speed#= 1 // 40 // 1 * 40
Global jump=0
Global upy#=0
Global maxjump# //5
maxjump#= 200 //120 // gravity# *3
Global jumpwait#=0
Global falling=0
Global climbing=0
Global hitobjectatx, hitobjectaty, hitobjectatz,object_hit, object_hit_ammount
////////////////////////////////<<<<<<<<<<<
Global flymode=0
// objects..
Global planeID
// player(s)..
Global PlayerObjectID,rightarmID, leftarmID, gunID, gunendID,targetID, unaBrow, nose, tail, SourceID
Global targetIDx#, targetIDy#, targetIDz#
Global PlayerX#,PlayerY#,PlayerZ#
Global oldPlayerX#,oldPlayerY#,oldPlayerZ#
Global newPlayerX#,newPlayerY#,newPlayerZ#
Global newestPlayerX#, newestPlayerY#, newestPlayerZ#
Global swapped_player
////////////////////////////////<<<<<<<<<<<<<<<<<<<<<<<<<
// building..
//Global floor3A
// elevator..
Global ElevatorY#=1
ElevatorY#=ElevatorY#*physscale
Global ElevatorVector#=.1
ElevatorVector#=ElevatorVector#*physscale
ElevatorVector#=4
Global Elevator1
Global EleTimerSet=0
Global EleWait#=0
Global FirstFloorDone=0
Global SecFloorDone=0
Global ThrdFloorDone=0
Global TopFloor=0
Global ElevatorDoorLeft0
Global ElevatorDoorRight0
Global ElevatorDoorLeft1
Global ElevatorDoorRight1
// ladder & jumppad..
Global ladderhitbox
Global ladderhitbox2
Global pad
//remstart
//////////////////// needs sorting(due to opt explic)...
Global img, delayperiod#, delay#, steeltexture, rooflighttexture
Global elevatortop, elevatorlight, elevatorwallleft, elevatorwallfront, elevatorpostleft, elevatorpostright, elevatorroof
Global wr, wg, wb, wt, wr#,wg#, wb#,wt#, lx#, ly#, lz#
Global l1, l2, l3, l4, l5, l22, leftlightpodbulb, rightlightpodbulb, blucone, redcone
Global ladderBulbBtmCap1 ,ladderBulbBtmHng1, ladderBulb1 // ladderbulpbtmcap1
Global ladderBulbTopCap2, ladderBulbBtmHng2, ladderBulb2 , ladderBulb3
Global ladderLightC, ladderLight2C, ladderLight3C
Global ladderBulb2BtmCap1, ladderBulb2BtmHng1
Global ladderBulb2TopCap2, ladderBulb2BtmHng2
Global ladderBulb3BtmCap1, ladderBulb3BtmHng1
Global ladderBulb3TopCap2, ladderBulb3BtmHng2
////////////////////
// text..
Global dis$ as string
//remend
foldend
CreateWorld() // ------------- Setup Environment -------------------------------.
foldstart // ------------------- Players system ------------------------------------.
type MeshIDs
body_mID as integer
unaBrow_mID as integer
nose_mID as integer
tail_mID as integer
footLeft_mID as integer
footRight_mID as integer
leftArm_mID as integer
rightArm_mID as integer
gun_mID as integer
gunsight_mID as integer
gunend_mID as integer
target_mID as integer
campivot_mID as integer
endtype
type CharacterType
// vars
name as string // character's name
species as string // human, enemy, extra, monster, bot
energy as float
// physical..
width as float // mesh width
height as float // mesh height
weight as float // for use with physics
// coords & angles....
x as float
y as float
z as float
anglex as float
angley as float
anglez as float
oldx as float
oldy as float
oldz as float
oldanglex as float
oldangley as float
oldanglez as float
// meshes..
mesh as MeshIDs
endtype
Global player as CharacterType[5] // Setup an array of 5 players as type Character
// create players.. using : createPlayer( plr ref as Character, n$, spc$, nrg#, wdt#, hgt#, wgt#, ix#, iy#, iz#, iax#, iay#, iaz#)
Global localPlayer as integer // used for switching players..
localPlayer=1 // start of as player1
createPlayer( player[localPlayer], "Player1", "human",100, playerwidth#, playerheight#, 80, 0,0,0, 0,0,0 )
SetObjectPosition( player[1].mesh.body_mID, 0,playerheight#/2,-10*physscale)
Global plrtexture as integer
//If texturized=1
plrtexture =CreateTexture(250,24, makecolor(155,155,205) ,27)
SetObjectImage( player[1].mesh.body_mID, plrtexture, 0 )
//endif
createPlayer( player[2], "Player2", "human",100,1.8,1,80,0,0,0, 0,0,0 )
SetObjectColor( player[2].mesh.body_mID,200,50,55,255)
SetObjectPosition( player[2].mesh.body_mID, -300,playerheight#/2,0)
createPlayer( player[3], "Player3", "human",100,1.8,1,80,0,0,0, 0,0,0 )
SetObjectColor( player[3].mesh.body_mID,50,50,200,255)
SetObjectPosition( player[3].mesh.body_mID, -500,playerheight#/2,0)
foldend
do // -------------------------- Main loop ------------------------------------------.
FrameTime#=GetFrameTime()
//UpdateElevator()
//UpdateLights()
UpdatePlayer(localPlayer)
// UpdateProjectile()
CheckAdditionalKeys()
DisplayInfo()
DisplayHelp()
If endgame=1 then exit
sync()
loop
ClearPointLights()
End // exit game..
// ----------------------------- Functions ------------------------------------------.
foldstart // ------------------- setup and update world --------------------------.
Function WindowAndDisplaySetup()
// ------------not really needed for this example -------
// set window properties
SetWindowTitle("Test V"+str(version#,1) )
// set display properties
SetWindowSize(1920,1080,0)
SetWindowAllowResize(1) // allow the user to resize the window
SetVirtualResolution(1920,1080) // doesn't have to match the window
//setvirtualresolution(1024,600)
SetOrientationAllowed(1,1,1,1) // allow both portrait and landscape on mobile devices
SetSyncRate(30,0) // 30fps instead of 60 to save battery
SetScissor(0,0,0,0) // use the maximum available screen space, no black borders
UseNewDefaultFonts(1) // since version 2.0.22 we can use nicer default fonts
SetPrintSize( 20 )
SetPrintColor( 00, 00, 00,255 )
SetClearColor(1,128,198)
SetGlobal3DDepth(10000) // Sets the position of all 3D objects relative to 2D objects.
SetResolutionMode(1)
SetAntialiasMode(1)
SetImmersiveMode(1)
SetRawMouseVisible(0)
SetCameraRange(1,1,1000 *physscale)
SetAmbientColor(128,128,128)
SetGenerateMipmaps(1)
// -----------------------------------------------------------
fog=1
// add some atmospheric fog
SetFogMode( fog )
SetFogColor( 161,183,209 )
SetFogRange( 50*physscale, 700*physscale )
//SetFogRange( 60,95 )
SetFogSunColor( 255,230,179 )
// -----------------------------------------------------------
SetShadowMappingMode(3)
SetShadowSmoothing(1) // random sampling
SetShadowMapSize(2048,2024)
EndFunction
Function CreateWorld()
// create a plane for things to stand on, turn its collision off, rotate it and position it under the middle box to act as a ground
// this is purely coismetic
planeID=CreateObjectPlane(40000,40000)
SetObjectCollisionMode(planeID,0) // this is to stop it interfering with the collision with the map
// ensure everything is at correct starting point an orientation at creation.
SetObjectPosition(planeID,0,0,0) : SetObjectRotation(planeID,0,0,0)
// put where we want it..
SetObjectRotation(planeID,90,0,0) // put it flat
SetObjectPosition(planeID,0,0,0) //realign with origin
If texturized=1
planetexture as integer
planetexture = CreateTexture(512,512, makecolor(50,200,100) ,20) //
progresscount=progresscount+1
SetObjectImage(planeID,planetexture,0)
Else
SetObjectColor(planeID,50,200,100,255) // color it lawn style
Endif
// mark the center of our world(0,0,0). with a streetlight..
Global centerpoleID // center mark
centerpoleID=CreateObjectCylinder(240,8,480)
SetObjectPosition(centerpoleID,0,120,0) : SetObjectRotation(centerpoleID,0,0,0) // ensure is at correct starting point.
If texturized=1
//poletexture = CreateTexture(512,512, makecolor(10,10,10) ,20) //
// poletexture = CreateTexture(20,255, makecolor(50,255,255) ,50)
Global poletexture
poletexture = CreateTexture(20,255, makecolor(186, 196, 200) ,50)
progresscount=progresscount+1
SetObjectImage(centerpoleID,poletexture,0)
Else
SetObjectColor( centerpoleID ,0,0,0,255)
Endif
SetObjectCastShadow(centerpoleID,1)
Lightbulb as integer
Lightbulb=CreateObjectCapsule(40,80,1280)
SetObjectPosition(Lightbulb,0,6*physscale,0)
SetObjectColor(Lightbulb, 255,255,255,225)
SetObjectTransparency(Lightbulb,1)
SetObjectColorEmissive(Lightbulb,1255,1255,1255)
Lightcap as integer
Lightcap= CreateObjectCone(20,80,1280)
SetObjectPosition(Lightcap,0,280,0)
If texturized=1
Global poletexture2
//poletexture2 = CreateTexture(20,20, makecolor(50,255,255) ,50)
poletexture2 = CreateTexture(20,20, makecolor(186, 196, 200) ,50)
progresscount=progresscount+1
SetObjectImage(Lightcap,poletexture2,0)
Else
SetObjectColor(Lightcap, 55,55,55,255)
Endif
SetObjectCastShadow(centerpoleID,1)
// Create some random static scenery objects to test with..
Global Dim obstacle[20]
Global Dim textureobstacle[20]
Local i as integer, r as integer
For i=2 To 20
r=Random(1,4)
if r=1
obstacle[i]=CreateObjectBox( random(1,800), random(1,800) , random(1,800) )
SetObjectPosition(obstacle[i],0,0,0) : SetObjectRotation(obstacle[i],0,0,0) // ensure is at correct starting point.
SetObjectPosition( obstacle[i], Random(-3000, 3000),0,Random(-3000,1000))
SetObjectRotation (obstacle[i],0.0,Random(0,360),0.0)
elseif r=2
obstacle[i]=CreateObjectCone(random(1,800),random(1000,2000),random(1,1200))
SetObjectPosition(obstacle[i],0,0,0) : SetObjectRotation(obstacle[i],0,0,0) // ensure is at correct starting point.
//SetObjectPosition( obstacle[i], Random(-2000,2000),0,Random(-2000,2000))
SetObjectPosition( obstacle[i], Random(-3000, 3000),0,Random(-3000,1000))
SetObjectRotation (obstacle[i],0.0,Random(0,360),0.0)
elseif r=3
obstacle[i]=CreateObjectCylinder(random(1,280),random(1,600),random(1,1200))
SetObjectPosition(obstacle[i],0,0,0) : SetObjectRotation(obstacle[i],0,0,0) // ensure is at correct starting point.
//SetObjectPosition( obstacle[i], Random(-2000,2000),0,Random(-2000,2000))
// SetObjectPosition( obstacle[i], Random(-3000, 3000),0,Random(-3000,1000))
while GetObjectX( obstacle[i] ) = 0 or GetObjectX( obstacle[i] ) < -500 or GetObjectX( obstacle[i] ) < 500 or GetObjectZ( obstacle[i] ) = 0 or (GetObjectZ( obstacle[i] ) > -500 and GetObjectZ( obstacle[i] ) < 500)
SetObjectPosition( obstacle[i], Random(-3000, 3000),0,Random(-3000,1000))
endwhile
SetObjectRotation (obstacle[i],Random(0,360),Random(0,360),0.0)
//SetObjectScale (obstacle[i],-Random(.2,1),-Random(.2,1),-Random(.2,1))
else
//( diameter, rows, columns )
diameter# as float, rows# as float, colums# as float
diameter#= random(20,1000)
rows#=random(.1,25)
colums#=random(5,32)
obstacle[i]=CreateObjectsphere(diameter#,rows# ,colums# )
SetObjectPosition(obstacle[i],0,0,0) : SetObjectRotation(obstacle[i],0,0,0) // ensure is at correct starting point.
//SetObjectPosition( obstacle[i], Random(-2000,2000),-diameter#/5+random(0,40),Random(-2000,2000))
SetObjectPosition( obstacle[i], Random(-3000,3000),-diameter#/5+random(0,40),Random(-3000,1000))
// SetObjectScale (obstacle[i],Random(.2,1),Random(.2,1),Random(.2,1))
SetObjectRotation (obstacle[i],0.0,Random(0,360),0.0)
endif
//SetObjectScale (obstacle[i],Random(.2,2),Random(.2,2),Random(.2,2))
SetObjectRotation (obstacle[i],0.0,Random(0,360),0.0)
If texturized=1
textureobstacle[i] = CreateTexture ( Random(0,1024), Random(0,1024), makecolor( Random(0,255), Random(0,255), Random(0,255) ) , Random(1,100) )
progresscount=progresscount+1
SetObjectImage(obstacle[i],textureobstacle[i],0)
Else
SetObjectColor (obstacle[i],Random(0,255),Random(0,255),Random(0,255),Random(0,255))
Endif
SetObjectCollisionMode(obstacle[i],1)
SetObjectCastShadow(obstacle[i],1)
Next
// create jumping pad(s)
padsupport as integer
padsupport=CreateObjectBox( 160, 80 , 160 )
SetObjectPosition(padsupport,0,0,0) : SetObjectRotation(padsupport,0,0,0) // ensure is at correct starting point.
SetObjectPosition( padsupport, -200 ,0 , 2000 )
SetObjectColor (padsupport,55,55,55,255)
SetObjectCastShadow(padsupport,1)
//pad as integer
pad=CreateObjectsphere(2,120 ,120 )
SetObjectScale(pad, 60 , 10, 60 )
SetObjectPosition(pad,0,0,0) : SetObjectRotation(pad,0,0,0) // ensure is at correct starting point.
SetObjectPosition( pad, -200, 40, 2000)
SetObjectColor (pad,155,100,155,255)
//CreateLights()
EndFunction
Function Updateworld()
If nightMode
SetAmbientColor(12,12,12)
SetClearColor(12,12,12)
Else
SetAmbientColor(128,128,128)
SetClearColor(1,128,198)
EndIf
EndFunction
foldend
foldstart // .------------------ setup and update players ------------------------.
function createPlayer( plr ref as CharacterType, n$, spc$, nrg#, wdt#, hgt#, wgt#, ix#, iy#, iz#, iax#, iay#, iaz#)
// setup player properities..
plr.name = n$
plr.species= spc$
plr.energy = nrg#
plr.width = wdt#
plr.height = hgt#
plr.weight = wgt#
plr.x = ix#
plr.y = iy#
plr.z = iz#
plr.anglex = iax#
plr.angley = iay#
plr.anglez = iaz#
plr.oldx = ix#
plr.oldy = iy#
plr.oldz = iz#
plr.oldanglex = iax#
plr.oldangley = iay#
plr.oldanglez = iaz#
addMeshesToPlayer( plr ) // add meshes that make up this character
endfunction
function addMeshesToPlayer( plr ref as CharacterType )
// add meshes that make up the character..
plr.mesh.body_mID = CreateObjectCapsule(playerwidth#,playerheight#,1) // ( diameter, height, axis )
SetObjectPosition(plr.mesh.body_mID, 0, playerheight#/2, -400) // 0,1*playerheight#/2,-10*physscale)
SetObjectCastShadow(plr.mesh.body_mID,1)
SetObjectCollisionMode(plr.mesh.body_mID, 0) //prevent self hiting
// add some detail so orientation of player is more clear..
plr.mesh.unaBrow_mID = CreateObjectCone(.4*physscale,.8*physscale,12):SetObjectColor( plr.mesh.unaBrow_mID ,0,0,0,255)
SetObjectPosition(plr.mesh.unaBrow_mID,0,0,0) : SetObjectRotation(plr.mesh.unaBrow_mID,0,0,0) // ensure is at correct starting point.
SetObjectPosition( plr.mesh.unaBrow_mID ,0,.4*physscale,.3*physscale)
SetObjectRotation( plr.mesh.unaBrow_mID ,-180,0,0)
SetObjectCastShadow(plr.mesh.unaBrow_mID,1)
SetObjectCollisionMode(plr.mesh.unaBrow_mID,0) //prevent self hiting
FixObjectToObject(plr.mesh.unaBrow_mID,plr.mesh.body_mID)
plr.mesh.nose_mID = CreateObjectSphere(.2*physscale,1.2,12):SetObjectColor( plr.mesh.nose_mID,255,0,0,255) // //250,150,155,255=pink
SetObjectPosition(plr.mesh.nose_mID,0,0,0) : SetObjectRotation(plr.mesh.nose_mID,0,0,0) // ensure is at correct starting point.
SetObjectPosition( plr.mesh.nose_mID,0,.2*physscale,.5*physscale)
SetObjectCastShadow(plr.mesh.nose_mID,1)
SetObjectCollisionMode(plr.mesh.nose_mID,0) //prevent self hiting
FixObjectToObject(plr.mesh.nose_mID,plr.mesh.body_mID)
plr.mesh.tail_mID = CreateObjectcone(.2*physscale,.3*physscale,12):SetObjectColor( plr.mesh.tail_mID ,255,255,255,255)
SetObjectPosition(plr.mesh.tail_mID ,0,0,0) : SetObjectRotation(plr.mesh.tail_mID ,0,0,0) // ensure is at correct starting point.
//SetObjectPosition( tail,0,-.9*physscale,-.4*physscale)
SetObjectPosition( plr.mesh.tail_mID ,0,-.81*physscale,-.4*physscale)
SetObjectRotation(plr.mesh.tail_mID ,-130,0,0)
SetObjectCastShadow(plr.mesh.tail_mID ,1)
SetObjectCollisionMode(plr.mesh.tail_mID ,0) //prevent self hiting
FixObjectToObject(plr.mesh.tail_mID ,plr.mesh.body_mID)
plr.mesh.footLeft_mID = CreateObjectcone(.2*physscale,.3*physscale,12):SetObjectColor( plr.mesh.footLeft_mID,255,0,0,255)
SetObjectPosition(plr.mesh.footLeft_mID,0,0,0) : SetObjectRotation(plr.mesh.footLeft_mID,0,0,0) // ensure is at correct starting point.
SetObjectPosition( plr.mesh.footLeft_mID,-.2*physscale,-.77*physscale,.25*physscale)
SetObjectRotation(plr.mesh.footLeft_mID,0,0,0)
SetObjectCastShadow(plr.mesh.footLeft_mID,1)
SetObjectCollisionMode(plr.mesh.footLeft_mID,0) //prevent self hiting
FixObjectToObject(plr.mesh.footLeft_mID,plr.mesh.body_mID)
plr.mesh.footRight_mID = CreateObjectcone(.2*physscale,.3*physscale,12):SetObjectColor( plr.mesh.footRight_mID,255,0,0,255)
SetObjectPosition(plr.mesh.footRight_mID,0,0,0) : SetObjectRotation(plr.mesh.footRight_mID,0,0,0) // ensure is at correct starting point.
SetObjectPosition( plr.mesh.footRight_mID,.2*physscale,-.77*physscale,.25*physscale)
SetObjectRotation(plr.mesh.footRight_mID,0,0,0)
SetObjectCastShadow(plr.mesh.footRight_mID,1)
SetObjectCollisionMode(plr.mesh.footRight_mID,0) //prevent self hiting
FixObjectToObject(plr.mesh.footRight_mID,plr.mesh.body_mID)
// add left arm..
plr.mesh.leftArm_mID = CreateObjectSphere(.6*physscale,10,10) //diameter, rows, columns )
SetObjectScale(plr.mesh.leftArm_mID,.7,1.4,1)
SetObjectColor( plr.mesh.leftArm_mID,150,150,255,255)
SetObjectPosition(plr.mesh.leftArm_mID,0,0,0) : SetObjectRotation(plr.mesh.leftArm_mID,0,0,0) // ensure is at correct starting point.
SetObjectPosition(plr.mesh.leftArm_mID,-.4*physscale,-.1*physscale,.1*physscale)
SetObjectRotation(plr.mesh.leftArm_mID,0,0,00)
FixObjectToObject(plr.mesh.leftArm_mID, plr.mesh.body_mID)
SetObjectCollisionMode(plr.mesh.leftArm_mID,0) //prevent self hiting
SetObjectCastShadow(plr.mesh.leftArm_mID,1)
// add right arm..
plr.mesh.rightArm_mID = CreateObjectSphere(.6*physscale,10,10) //diameter, rows, columns )
SetObjectColor( plr.mesh.rightArm_mID,150,150,255,255)
SetObjectPosition(plr.mesh.rightArm_mID,0,0,0) : SetObjectRotation(plr.mesh.rightArm_mID,0,0,0) // ensure is at correct starting point.
SetObjectPosition(plr.mesh.rightArm_mID,.4*physscale,0,.1*physscale)
SetObjectRotation(plr.mesh.rightArm_mID,0,0,0)
FixObjectToObject(plr.mesh.rightArm_mID,plr.mesh.body_mID )
SetObjectCollisionMode(plr.mesh.rightArm_mID,0) //prevent self hiting
SetObjectCastShadow(plr.mesh.rightArm_mID,1)
// add gun..
plr.mesh.gun_mID = CreateObjectCylinder(1.1*physscale,.2*physscale,10) //height, diameter, segments )
SetObjectPosition(plr.mesh.gun_mID,0,0,0) : SetObjectRotation(plr.mesh.gun_mID,0,0,0) // ensure is
SetObjectPosition(plr.mesh.gun_mID,0,0,0) : SetObjectRotation(plr.mesh.gun_mID,0,0,0) // ensure is at correct starting point.
SetObjectRotation(plr.mesh.gun_mID,90,7,0) // rotate the cylinder from vertical to horizontal position(infliuences also the coords syst; x=y
SetObjectPosition(plr.mesh.gun_mID,0.2*physscale,0.15*physscale,0.4*physscale)
FixObjectToObject(plr.mesh.gun_mID,plr.mesh.rightArm_mID)
SetObjectColor(plr.mesh.gun_mID,0,0,0,255) //
SetObjectCollisionMode(plr.mesh.gun_mID,0) //prevent self hiting
SetObjectCastShadow(plr.mesh.gun_mID,1)
//create marker for sight at end of gun and use as pivot for releasing bullets.
plr.mesh.gunsight_mID= CreateObjectCone(.1*physscale,0.14*physscale,1*physscale) //height, diameter, segments
SetObjectPosition(plr.mesh.gunsight_mID,0,0,0) : SetObjectRotation(plr.mesh.gunsight_mID,0,0,0) // ensure is at correct starting point.
SetObjectRotation(plr.mesh.gunsight_mID,90,180,0)
SetObjectPosition (plr.mesh.gunsight_mID,0,.5*physscale,-0.1*physscale)
FixObjectToObject(plr.mesh.gunsight_mID, plr.mesh.gun_mID )
SetObjectColor(plr.mesh.gunsight_mID,50,50,55,255) //
SetObjectCollisionMode(plr.mesh.gunsight_mID,0) //prevent self hiting
SetObjectCastShadow(plr.mesh.gunsight_mID,1)
//create pivot for releasing bullets.
plr.mesh.gunend_mID= CreateObjectSphere(.3*physscale,16,16) //height, diameter, segments
SetObjectPosition(plr.mesh.gunend_mID,0,0,0) : SetObjectRotation(plr.mesh.gunend_mID,0,0,0) // ensure is at correct starting point.
SetObjectRotation(plr.mesh.gunend_mID,-90,0,0)
SetObjectPosition(plr.mesh.gunend_mID,-0.01*physscale,0.5*physscale,-0.01*physscale)
FixObjectToObject(plr.mesh.gunend_mID,plr.mesh.gun_mID)
SetObjectColor(plr.mesh.gunend_mID,255,255,0,55) //
SetObjectCollisionMode(plr.mesh.gunend_mID,0) //prevent self hiting
SetObjectTransparency(plr.mesh.gunend_mID,1)
//SetObjectVisible(plr.mesh.gunend_mID,0)
plr.mesh.target_mID= CreateObjectSphere(.25*physscale,16,16) //height, diameter, segments
//targetID= CreateObjectbox(4,4,1) //height, diameter, segments
SetObjectPosition(plr.mesh.target_mID,0,0,0) : SetObjectRotation(plr.mesh.target_mID,0,0,0) // ensure is at correct starting point.
SetObjectRotation(plr.mesh.target_mID,-90,0,0)
SetObjectPosition(plr.mesh.target_mID,-0.01*physscale,.65*physscale,0.01*physscale)
FixObjectToObject(plr.mesh.target_mID,plr.mesh.gun_mID)
SetObjectColor(plr.mesh.target_mID,255,0,0,155) //
SetObjectCollisionMode(plr.mesh.target_mID,0) //prevent self hiting
SetObjectTransparency(plr.mesh.target_mID,1)
MoveObjectLocalZ(plr.mesh.target_mID, 7*physscale)
SetObjectColorEmissive(plr.mesh.target_mID,255,0,0)
//targetTexture=LoadImage( "blue.png" )
//setobjectimage( plr.mesh.target_mID, targetTexture, 1 )
// cam pivot..
plr.mesh.campivot_mID = CreateObjectBox(.5*physscale,.5*physscale,.5*physscale):SetObjectColor( plr.mesh.campivot_mID ,255,255,0,105)
SetObjectPosition(plr.mesh.campivot_mID, 0,0,0) : SetObjectRotation(plr.mesh.campivot_mID ,0,0,0) // ensure is at correct starting point.
//SetObjectPosition(plr.mesh.campivot_mID ,0, 40 ,-20) //0,1*physscale,-.5*physscale)
SetObjectPosition(plr.mesh.campivot_mID ,0, 40 , -40) //-MaxCameraDistance#) //1 unit above and behind the player.
SetObjectTransparency(plr.mesh.campivot_mID ,1)
SetObjectCollisionMode(plr.mesh.campivot_mID ,0) //prevent self hiting
FixObjectToObject(plr.mesh.campivot_mID ,plr.mesh.body_mID)
FixObjectPivot(plr.mesh.campivot_mID )
endfunction
Function UpdatePlayer(locPlr as integer)
Local joystick_x# as float
Local joystick_y# as float
Local PointerX# as float
Local PointerY# as float
Local CamPivotX# as float
Local CamPivotY# as float
Local CamPivotZ# as float
Local NewCamPivotX# as float
Local NewCamPivotY# as float
Local NewCamPivotZ# as float
// store players current x,y,z and angles before any movement..
player[locPlr].oldx = GetObjectX(player[locPlr].mesh.body_mID)
player[locPlr].oldy = GetObjectY(player[locPlr].mesh.body_mID)
player[locPlr].oldx = GetObjectZ(player[locPlr].mesh.body_mID)
// -------------------------- jumping.. --------------------------------------------------------------------
If GetRawKeyState(KEY_SPACE) and falling=0 // Space = jump
If jump=0 and Timer()>jumpwait# // inair=0 // if not juming/inair already, so no jumping when falling..
jump=1 // intitiate new jump
jumpwait#=Timer()+.4 // delay should so player cannot initiate jumping right after for is weird,
Endif
Endif
// excute jump..
if jump=1 // if jump has been initiated
upy#=upy#+40 //(gravity#*jmultiplier#) // count up till max jump heigth reached.
if upy#>=maxjump# // if maxheight reached then reset y to 0 and no end jump..
upy#=0
jump=0
else // if not reached maximum height yet then..
MoveObjectLocalY(player[locPlr].mesh.body_mID,40) // the actual jump.
endif
endif
// ------------------------------------------------------------------------------------------------------------
// get input from mouse pointer..(to turn player left/right and/or turn cam up/dow)
PointerX#=GetPointerX()
PointerY#=GetPointerY()
If mouseLocked=0
setrawmouseposition(GetVirtualWidth()*0.5,GetVirtualHeight()*0.5) // re-center mouse on screen
EndIf
GetPointerMoveX#=(PointerX#-GetPointerX()) // calculate distance moved
GetPointerMoveY#=(PointerY#-GetPointerY())
// for turning left/right..
If GetRawKeyState(KEY_LEFT) OR GetRawKeyState(KEY_A) // Left/A = turn player left
GetPointerMoveX# = -hspeed#
Endif
If GetRawKeyState(KEY_RIGHT) OR GetRawKeyState(KEY_D) // Right/D = turn player right
GetPointerMoveX# = hspeed#
Endif
// get current camera angles..
CameraAngleX#=CameraAngleX#+GetPointerMoveY#*FrameTime#
CameraAngleY#=CameraAngleY#+GetPointerMoveX#*FrameTime# // calc camera angle
UserCameraDistance#=UserCameraDistance#-GetRawMouseWheelDelta() *40 // zoom in/out when used mousewheel
if UserCameraDistance#>MaxCameraDistance# then UserCameraDistance#=MaxCameraDistance# //limit max dist from cam
if UserCameraDistance#<MinCameraDistance# then UserCameraDistance#=MinCameraDistance# // limit minimum dist from cam
// ------------------------------------------------------------------------------------------------------------
// for moving forward/backward..
// get player's AGK joystick input.
// On PC WASD are used, on devices without kybd will create a virtual onscreen joystick.
// ( can optionally be positiioned differently on screen using SetJoystickScreenPosition ).
joystick_x# = GetJoyStickX()*hspeed# // horizontal movement input
joystick_y# = GetJoyStickY()*-vspeed# // vertical movement input
// get vertical keybpard input (PC only)..
speed#=1 // set initial speed.
If (GetRawKeyState(KEY_UP) or GetRawKeyState(KEY_W) or GetRawMouseRightState() ) AND GetRawKeyState(KEY_SHIFT) // Up/W/RBM + SHIFT = move player forward(run)
speed#=3 // with shift = speedup.
joystick_y#=1*vspeed# *speed# //addjust z
ElseIf GetRawKeyState(KEY_UP) or GetRawKeyState(KEY_W) or GetRawMouseRightState() // Up/W/RBM = move player forward (walk)
speed#=1 // without Shift = normal speed.
joystick_y#=1*vspeed# *speed# //addjust z
Else
//
endif
If GetRawKeyState(KEY_DOWN) or GetRawKeyState(KEY_S) // Down/S = move player backward. (acually I think the S key will be read by default when using GetJoyStick() so pehaps redundant..
joystick_y#=1*-vspeed# *speed#
Endif
// move player based on the input of joystick and mouse..
RotateObjectLocalY(player[locPlr].mesh.body_mID,joystick_x#) // seems redundant,but somehow makes cam movement more fluid?
MoveObjectLocalZ(player[locPlr].mesh.body_mID,joystick_y#)
SetObjectRotation(player[locPlr].mesh.body_mID,0,CameraAngleY#,0) // set player at Y angle calculated according to mousemovement, don't move X angle for player will then tilt up/down
// for strafe.. ( if not put here then doesn't work )
If GetRawKeyState(KEY_Q) // Q = move (strafe) player left
joystick_y# = .1*-hspeed#
MoveObjectLocalX(player[locPlr].mesh.body_mID,joystick_y#)
Endif
If GetRawKeyState(KEY_E) // E = move (strafe) player right
joystick_y# = .1*hspeed#
MoveObjectLocalX(player[locPlr].mesh.body_mID,joystick_y#)
Endif
// -------------------------- apply gravity.. --------------------------------------------------------------
if flymode=1
falling=0 // gravity#=0.0
else // always apply gravity, unless fly mode active..
falling=1 //gravity#=0.5
endif
if jump=0
MoveObjectLocalY(player[locPlr].mesh.body_mID,-gravity#) ///2) // gravity ""always on'' except when jumping..
endif
// ------------------------------------------------------------------------------------------------------------
// ################### manage collision checking for the player with other geometry #############
// after above movements, get players new x,y,z's for usage with collisions..
player[locPlr].x=GetObjectX(player[locPlr].mesh.body_mID)
player[locPlr].y=GetObjectY(player[locPlr].mesh.body_mID)
player[locPlr].z=GetObjectZ(player[locPlr].mesh.body_mID)
// sphere cast between the old and new positions of the player to see if we hit something while moving to new location..
object_hit = ObjectSphereSlide(0,player[locPlr].oldx , player[locPlr].oldy, player[locPlr].oldz, player[locPlr].x, player[locPlr].y, player[locPlr].z, playerwidth#)
// if the sphere has collided with an object then calculate sphere new position to give sliding collision
If object_hit <> 0 // we've hit something then adjust the x,y,z's ..
newestPlayerX#=GetObjectRayCastSlideX(0)
if newestPlayerX#<>player[locPlr].x
//hitobjectatx=1
endif
newestPlayerY#=GetObjectRayCastSlideY(0)
if newestPlayerY#<>player[locPlr].y
//hitobjectaty=1
falling=0
endif
newestPlayerZ#=GetObjectRayCastSlideZ(0)
if newestPlayerZ#<>player[locPlr].z
//hitobjectatz=1
endif
if object_hit = ladderhitbox or object_hit = ladderhitbox2 //or object_hit= Stairs
gravity#= -70 //-.5 //1 // reduce/reverse gravity
elseif object_hit = pad
jump=1
maxjump#=750
gravity#=-30 //1 // cancel out gravity
else // if hit something else..
gravity#= 20 //70 //.5
maxjump#=200 // 5 //*physscale
endif
else // nothing hit ( could also be up in air)
hitobjectatx=0 : hitobjectaty=0 : hitobjectatz=0
//climbing=0
if jump=0
maxjump#=200
gravity#= 20
endif
// nothings hit so original values after move are still valid, no need to orrect..
newestPlayerX#=player[locPlr].x
newestPlayerY#=player[locPlr].y
newestPlayerZ#=player[locPlr].z
EndIf
// prevent falling through floor due to gravity update..
If newestPlayerY# <=playerheight#/2 // so if gravity aplied but now ending up below the btm floor.. (could also be checked against terrainy.
newestPlayerY#=playerheight#/2 // limit/reset y to minimm y so don't fall through floor
falling=0
endif
// (re)position player onto new corrected location..
SetObjectPosition(player[locPlr].mesh.body_mID, newestPlayerX#, newestPlayerY#, newestPlayerZ# ) //process all modifications made above.
// **************************************************************************************
// ************************************ CAMERA MOVEMENT *************************
// **************************************************************************************
// ####### manage camera avoiding geometry inbetween player and cam ########
// get player's current x,y,z's after moves above. and store them..
player[locPlr].x=GetObjectX(player[locPlr].mesh.body_mID )
player[locPlr].y=GetObjectY(player[locPlr].mesh.body_mID )
player[locPlr].z=GetObjectZ(player[locPlr].mesh.body_mID )
// ------------------------------------------------------------------------------------------------------------
If cammode=0 // 3rd person mode(default)..
// 1st: sync campivot to new player location..
SetObjectPosition(player[locPlr].mesh.campivot_mID, player[locPlr].x, player[locPlr].y+40, player[locPlr].z) // sync pivot with player pos, but a bit higher(shoulderheight).
SetObjectRotation(player[locPlr].mesh.campivot_mID, GetObjectAngleX(player[locPlr].mesh.body_mID) ,GetObjectAngleY(player[locPlr].mesh.body_mID) ,GetObjectAngleZ(player[locPlr].mesh.body_mID) ) // sync rotation also.
// store the pivot's positions..
CamPivotX# = GetObjectX(player[locPlr].mesh.campivot_mID )
CamPivotY# = GetObjectY(player[locPlr].mesh.campivot_mID )
CamPivotZ# = GetObjectZ(player[locPlr].mesh.campivot_mID )
// now move pivot behind the player at max distance..
MoveObjectLocalZ( player[locPlr].mesh.campivot_mID, -MaxCameraDistance#)
// get the campivot''s new location..
NewCamPivotX# = GetObjectX(player[locPlr].mesh.campivot_mID )
NewCamPivotY# = GetObjectY(player[locPlr].mesh.campivot_mID )
NewCamPivotZ# = GetObjectZ(player[locPlr].mesh.campivot_mID )
// cast from old pivot pos to new to see if something in between the old and new positions..
RayObjectID=ObjectRayCast(0,CamPivotX#,CamPivotY#,CamPivotZ#,NewCamPivotX#,NewCamPivotY#,NewCamPivotZ#) // sent a ray from players pos to cam behind player.
if RayObjectID<>0 // if an object was hit, this means there's an object between player and cam, obstructing the view'
NewCameraDistance#=GetObjectRayCastDistance(0) // get distance to where has been hit.
else
NewCameraDistance#=UserCameraDistance# // nothing's hit so just set to user defined zoom distance.
endif
// calculate new pivot distance..
SetObjectPosition(player[locPlr].mesh.campivot_mID, CamPivotX#,CamPivotY#,CamPivotZ#) // 1st set back to original position.
CameraDistance#=CurveValue(NewCameraDistance#, CameraDistance#,10) // new camdistance in 10 steps..
MoveObjectLocalZ(player[locPlr].mesh.campivot_mID, -CameraDistance#) // move pivot to newly calculated distance behind the player.
//UpdateCamera(locPlr) // replaced below with this function , renabled for debuging..
// ------------------------------------------------------------------------------------------------------------------
// handle camera angles .
// ---- limit cam x angle otherwise may tilt too far up or down..
If CameraAngleX# < 0 // ( iaw: if cam angle negative , we're looking up)
if CameraAngleX#<= -90 // if exceeds allowed range..
CameraAngleX#=-90 // limit angle up angle.
endif
// update campivot pos: move campivot backwards to new campivot position behind player..(local z-axis)..
MoveObjectLocalZ(player[locPlr].mesh.campivot_mID, -CameraAngleX#*2.05)
elseIf CameraAngleX#>85 // if in exceeds allowed range..
CameraAngleX#=85 // limit cam down angle.
// update campivot pos: move campivot backwards to new campivot position behind player..(local z-axis)..
MoveObjectLocalZ(player[locPlr].mesh.campivot_mID, CameraAngleX#*2.05) //
else // so we're looking up or down or straight ahead, and within allowed range..
// no need to restrain any angles, just update campivot pos: move campivot backwards to new campivot position behind player..(local z-axis)..
MoveObjectLocalZ( player[locPlr].mesh.campivot_mID, CameraAngleX#*2.05) //
endif
// sync camera position to campivot..
// 1st place camera at player's campivot position, which is slightly above player at shoulderheight.
SetCameraPosition(1,GetObjectX(player[locPlr].mesh.campivot_mID ),GetObjectY(player[locPlr].mesh.campivot_mID ),GetObjectZ(player[locPlr].mesh.campivot_mID ) )
// now rotate camera as set by inputs of controllers..
SetCameraRotation(1,CameraAngleX#,CameraAngleY#,0 ) // set camera at angle calculated according to mouse(etc)input..
ElseIf cammode =1 // 1st person mode..
foldstart
SetCameraPosition(1,PlayerX#,PlayerY#+24,PlayerZ#-16) // place camera at player position
SetCameraRotation(1,CameraAngleX#,CameraAngleY#,0) // set camera at angle calculated according to mousemovent
// need to hide face objects?
//SetObjectVisible(PlayerObjectID,cammode)
SetCameraPosition(1,PlayerX#,PlayerY#+(.6*physscale),PlayerZ#-(.4*physscale)) // place camera at player position
// ------------------------------------------------------------------------------------------------------------
foldend
Elseif cammode =2 // detached cam mode..(currently only for debugging) // still needs cam correction for not allowed angles.as in 3rd pers mode.
foldstart
//Setcameralookat(1,PlayerX#,PlayerY#+(.6*physscale),PlayerZ#-(.4*physscale),0) // follow the player around from afar
Setcameralookat(1,PlayerX#,20,PlayerZ#-16,0) // follow the player around from afar
//CameraDistance#=CurveValue(NewCameraDistance#,CameraDistance#,10)
if CameraDistance#<MinCameraDistance#*4
CameraDistance#=MinCameraDistance#*4
SetCameraPosition(1,PlayerX#,PlayerY#,PlayerZ#) // set initial player position.
If jump=0
// MoveCameraLocaly(1,-adjustfactorY#) ///5) // move cam to new position above the player when needed, so floor don't get in the way
MoveCameraLocalZ(1,-CameraDistance#) // move cam to new position behind the player.
endif
endif
// need to still make cam move along when player moves sideways or wanders off too far depth wise.. obstacle avoiding can also be used here,
foldend
Endif
// ------------------------------------------------------------------------------------------------------------
// also update arm+gun rotation ..
SetobjectRotation(player[locPlr].mesh.rightArm_mID,CameraAngleX#,0,0) // adjust gun position according to cam
// ------------------------------------------------------------------------------------------------------------
EndFunction
Function UpdateCamera(locPlr as integer) // sync cam with pivot
// handle camera angles .
// ---- limit cam x angle otherwise may tilt too far up or down..
If CameraAngleX# < 0 // ( iaw: if cam angle negative , we're looking up)
if CameraAngleX#<= -90 // if exceeds allowed range..
CameraAngleX#=-90 // limit angle up angle.
endif
// update campivot pos: move campivot backwards to new campivot position behind player..(local z-axis)..
MoveObjectLocalZ(player[locPlr].mesh.campivot_mID, -CameraAngleX#*2.05)
elseIf CameraAngleX#>85 // if in exceeds allowed range..
CameraAngleX#=85 // limit cam down angle.
// update campivot pos: move campivot backwards to new campivot position behind player..(local z-axis)..
MoveObjectLocalZ(player[locPlr].mesh.campivot_mID, CameraAngleX#*2.05) //
else // so we're looking up or down or straight ahead, and within allowed range..
// no need to restrain any angles, just update campivot pos: move campivot backwards to new campivot position behind player..(local z-axis)..
MoveObjectLocalZ( player[locPlr].mesh.campivot_mID, CameraAngleX#*2.05) //
endif
// sync camera position to campivot..
// 1st place camera at player's campivot position, which is slightly above player at shoulderheight.
SetCameraPosition(1,GetObjectX(player[locPlr].mesh.campivot_mID ),GetObjectY(player[locPlr].mesh.campivot_mID ),GetObjectZ(player[locPlr].mesh.campivot_mID ) )
// now rotate camera as set by inputs of controllers..
SetCameraRotation(1,CameraAngleX#,CameraAngleY#,0 ) // set camera at angle calculated according to mouse(etc)input..
//SetCameraRotation(1,CameraAngleX#,CameraAngleY#,CameraAngleY#) ) // mod for drunk / drug / wounded walk
// SetObjectPosition(player[locPlr].mesh.campivot_mID, GetObjectX(player[locPlr].mesh.campivot_mID ),GetObjectY(player[locPlr].mesh.campivot_mID ),GetObjectZ(player[locPlr].mesh.campivot_mID ) )
EndFunction
foldend
foldstart // ------------------- additionals ----------------------------------------.
function CurveValue(Destination#,Current#,Steps#)
Current#=Current#+((Destination#-Current#)/Steps#)
endfunction Current#
Function AssignKeys()
#constant KEY_KEY_BACKSPACE 8
#constant KEY_TAB 9
#constant KEY_ENTER 13 // also numpad enter
#constant KEY_SHIFT 16
#constant KEY_CONTROL 17
#constant KEY_ALT 18 // added
#constant KEY_ESC 27
#constant KEY_SPACE 32
#constant KEY_PAGEUP 33
#constant KEY_PAGEDOWN 34
#constant KEY_END 35
#constant KEY_HOME 36
#constant KEY_LEFT 37
#constant KEY_UP 38
#constant KEY_RIGHT 39
#constant KEY_DOWN 40
#constant KEY_INSERT 45
#constant KEY_DELETE 46
#constant KEY_0 48
#constant KEY_1 49
#constant KEY_2 50
#constant KEY_3 51
#constant KEY_4 52
#constant KEY_5 53
#constant KEY_6 54
#constant KEY_7 55
#constant KEY_8 56
#constant KEY_9 57
#constant KEY_A 65
#constant KEY_B 66
#constant KEY_C 67
#constant KEY_D 68
#constant KEY_E 69
#constant KEY_F 70
#constant KEY_G 71
#constant KEY_H 72
#constant KEY_I 73
#constant KEY_J 74
#constant KEY_K 75
#constant KEY_L 76
#constant KEY_M 77
#constant KEY_N 78
#constant KEY_O 79
#constant KEY_P 80
#constant KEY_Q 81
#constant KEY_R 82
#constant KEY_S 83
#constant KEY_T 84
#constant KEY_U 85
#constant KEY_V 86
#constant KEY_W 87
#constant KEY_X 88
#constant KEY_Y 89
#constant KEY_Z 90
#constant KEY_CONTEXT 93
#constant KEY_NUM_MULTIPLY 106 // numpad multiply
#constant KEY_NUM_PLUS 107 // numpad plus
#constant KEY_F1 112
#constant KEY_F2 113
#constant KEY_F3 114
#constant KEY_F4 115
#constant KEY_F5 116
#constant KEY_F6 117
#constant KEY_F7 118
#constant KEY_F8 119
//#constant KEY_F9 120 // does not exist
#constant KEY_SEMICOL 186
#constant KEY_EQUALS 187
#constant KEY_COMMA 188
#constant KEY_MINUS 189 // numpad subtract
#constant KEY_PERIOD 190 // also numpad
#constant KEY_SLASH 191
#constant KEY_SINGLQUOTE 192 // numpad divide (this is the same code as the grave accent/tilde key and seems to be a bug,
// should be 191 to match the forward slash key)
#constant KEY_SQRBRLEFT 219
#constant KEY_BACKSLASH 220
#constant KEY_SQRBRRIGHT 221
#constant KEY_HASH 222 // APOSTROPHE ?
#constant KEY_ACCENT 223 // ' << is called what?
EndFunction
Function CheckAdditionalKeys()
//
// CTRL / LMB = shoot
// MMBwheel = +: zoom , -: release (as in how I did in Blitz GameX 15 )
//
// Space = jump
// Alt / C = crouch
// Enter = chat
// KEY_BACKSLASH =
// Tab/MMBbtn+whl = scroll+select weapon/inventrory
// M = toggle Map
// N = toggle Compas
// R = toggle Radar
// P = toggle Pause
// L = toggle Lights on/off
// T = toggle Torch on/off.
// F = toggle Focus (lock mouse to screen).
// I = toggle display Inverntory screen??
// Esc = 1x: mainmenu , 2x: exit(windows only)
// F1 = help/ info (as done in F3)
// F2 = toggle Audio on/off
// F3 = toggle 1st / 3rd person / detached / fly mode )
// F4 = Focus / Lock mouse
// Debug Functions:
// F5 = Refresh/reset player/environment ??
// F6 = toggkle Fog ??
// F7 = toggle sun on/off ??
// F8 = day/night mode ??
// Home = Show waypoint to home
// End = Show waypoint to nearest exit??
// PgUp = reorganize item up in inverntory screen
// PgDown = reorganize item down in inventory screen
remstart
if GetRawKeyState(KEY_SPACE) = 1 //Space(jump)
initJump(grav decrease for while, jump_time)
endif
if GetRawKeyState(KEY_Alt = 1 //C(crouch)
crouchPlayer = 1
endif
remend
if GetRawKeyState(KEY_CONTROL) = 1 or GetRawMouseLeftState() //Ctrl/LMB
//CreateProjectile(PlayerObjectID)
// CreateProjectile(gunendID) // shoot from gunend
//if item=weapon
// launchProjectile
//else
// useCurrentItem
//endif
endif
if GetRawKeyPressed (KEY_BACKSLASH) //KEY_BACKSLASH = swap player..
localPlayer=localPlayer+1
if localPlayer=4
localPlayer=1
// works but cam coords and angles need to be stored at players so that can pick back up correct orientation,
// not of last player..(to do)
swapped_player=1
endif
endif
if GetRawKeyState(KEY_L) = 1 and timer()>delayperiod# // L= toggle streetlight on/off.
lightMode=1-lightMode
if GetPointLightExists( 30 ) =0 and lightMode=0
// CreatePointLight(6, GetObjectX(targetID),GetObjectY(targetID), GetObjectZ(targetID),5,1255,1255,1255)
// CreatePointLight(1, GetObjectWorldX(targetID),GetObjectWorldY(targetID), GetObjectWorldZ(targetID),5,1255,1255,1255)
CreatePointLight(30 , 0,480,0, 5000, 1255, 1255, 1255)
SetPointLightMode(30,1)
SetPointLightPosition(30,0,480,0)
delayperiod#=Timer()+1
elseif GetPointLightExists( 30 ) =1 and lightMode=1
DeletePointLight(30)
endif
endif
If GetRawKeyState(KEY_T) = 1 // T= toggle totch on/off.
torchOn=1-torchOn
delayperiod#=Timer()+1000000
For delay#=0 to delayperiod#
Next delay# // make sure doesn't get pressed right after again.
Endif
If GetRawKeyState(KEY_F) = 1 // F= toggle focus (lock mouse to screen).
mouseLocked=1-mouseLocked
SetRawMouseVisible (mouseLocked)
delayperiod#=Timer()+1000000
For delay#=0 to delayperiod#
Next delay# // make sure doesn't get pressed right after again.
Endif
If GetRawKeyState(KEY_F1) = 1 // F1= help
helpdisplay=1-helpdisplay
delayperiod#=Timer()+1000000
For delay#=0 to delayperiod#
Next delay# // make sure doesn't get pressed right after again.
EndIf
If GetRawKeyState(KEY_F2) = 1 // F2= info
infodisplay=1-infodisplay
delayperiod#=Timer()+1000000
For delay#=0 to delayperiod#
Next delay# // make sure doesn't get pressed right after again.
EndIf
If GetRawKeyPressed(KEY_F3) = 1 // F3= toggle (1st/3rd person)
cammode=cammode+1
if cammode=1 // 1st person mode..
endif
if cammode=2 // detached cam mode..
MoveCameraLocalZ(1,-10) // move cam to new position behind the player.
MoveCameraLocalY(1,3) // move cam to new position behind the player.
endif
if cammode=3
cammode=0
flymode=1 //flymode on
endif
if cammode=4 // reset to default 3rd person mode
cammode=0
flymode=0 //flymode off
endif
//delayperiod#=Timer()+5000000
//For delay#=0 to delayperiod#
//Next delay# // make sure doesn't get pressed right after again.
EndIf
If GetRawKeyState(KEY_F4) = 1 // F4 = toggle fly/walk mode
flymode=1-flymode
delayperiod#=Timer()+1000000
For delay#=0 to delayperiod#
Next delay# // make sure doesn't get pressed right after again.
EndIf
If GetRawKeyState(KEY_F7) = 1 // F7 = toggle sun on/off
//sunMode=1-sunMode
delayperiod#=Timer()+1000000
For delay#=0 to delayperiod#
Next delay# // make sure doesn't get pressed right after again.
UpdateWorld()
EndIf
If GetRawKeyState(KEY_F8) = 1 // F8 = day/night mode
nightMode=1-nightMode
If nightMode=1
lightMode=1
CreatePointLight(30 , 0,5,0, 400, 1255, 1255, 1255)
SetPointLightMode(30,1)
SetPointLightPosition(30,0,5*40,0)
else
lightMode=0
DeletePointLight(30)
endif
delayperiod#=Timer()+1000000
For delay#=0 to delayperiod#
Next delay# // make sure doesn't get pressed right after again.
UpdateWorld()
EndIf
//CreatePointLight(30 , 0,5*40,0, 400, 1255, 1255, 1255)
//SetPointLightMode(30,1)
//SetPointLightPosition(30,0,5*40,0)
remstart
If GetRawKeyState(KEY_I) = 1 then inventoryMode=1-inventoryMode //toggle inventory/zoom
If Tab/MMBwheel and inventoryMode=True then select weapon/item+ or -
If Tab/MMBwheel and inventoryMode=False then zoom+ or -
If Enter/MMB and mulitPlayer then chat=1-chat
If M(map) then mapDisplay=1-mapDisplay
If P/Pause then pauseGame=1-pauseGame
If F1(help) then helpDisplay=1-helpDisplay
If F4(fog)
If F5
If F5 then audioOn=1-audioOn
If F6
gfxMode=gfxMode+1
if gfxMode=gfxMax
gfxMode=gfxModeMin(PC only)
endif
endif
endif
remend
If GetRawKeyPressed(KEY_ESC) then endgame=1 // Esc = exit(windows only)
EndFunction
Function CreateTexture(sizex# as float, sizey# as float, color, density as integer)
// Function to create a texture
//
// Inputs - Sizex - size of the texture to create - width
// Sizey - size of the texture to create - height
// Color - is the main color of the image
// Denisity - is a the depth of the texture - the lower the value, the more detail. higher value = no detail
//
// Returns the image for the resulting texture
//
// EG. CreateTexture ( 100, 100, makecolor(0,0,255), 100)
// This could create a DEEP water effect texture?
Local memblockid as integer
Local imgwidth as integer
Local imgheight as integer
Local size as integer
Local offset as integer
Local r as integer, g as integer, b as integer, a as integer
Local strength as integer
Local img as integer
//SetPrintColor( 225,255,255)
SetPrintSize(60)
Print("")
Print("")
Print("")
Print("")
Print (" Please wait, creating textures: " + Str( progresscount) )
sync()
swap()
drawbox(0,0,sizex#, sizey#, color, color,color,color, 1)
render()
img = getimage(0,0,sizex#, sizey#)
memblockid = CreateMemblockFromImage (img)
imgwidth = GetMemblockInt(memblockid, 0)
imgheight = GetMemblockInt(memblockid, 4)
size=GetMemblockSize(memblockid)
for offset=12 to size-4 step 4
r=GetMemblockByte(memblockid, offset)
g=GetMemblockByte(memblockid, offset+1)
b=GetMemblockByte(memblockid, offset+2)
a=GetMemblockByte(memblockid, offset+3)
strength=random(1,density)
SetMemblockByte (memblockid, offset, r-strength)
SetMemblockByte (memblockid, offset+1, g-strength)
SetMemblockByte (memblockid, offset+2, b-strength )
SetMemblockByte (memblockid, offset+3, a-strength)
next
deleteimage (img)
img = CreateImageFromMemblock(memblockid)
DeleteMemblock(memblockid)
EndFunction img
foldend
foldstart // ------------------- display text ---------------------------------------.
Function DisplayInfo()
Local camdis$ as string
SetPrintColor( 225,255,255)
SetPrintSize(30)
If infodisplay
// print info on screen..
Print ("FPS: " + str( ScreenFPS() ))
Print ("FrameTime: " + str( GetFrameTime() ))
Print ("Seconds: " + str( GetSeconds() ))
Print ("Polygons: " + str( GetPolygonsDrawn () ))
Print ("")
// Print ("Player X: " + Str(GetObjectX(Player)) + " , Player Y: " + Str(GetObjectY(Player)) +" , Player Z: " + Str(GetObjectZ(Player)))
Print ("Player X: " + Str(PlayerX#) + " , Player Y: " + Str(PlayerY#) +" , Player Z: " + Str(PlayerZ#))
Print ("CameraX: " + Str(GetCameraX(1)) + " , CameraY: " + Str(GetCameraY(1)) +" , CameraZ: " + Str(GetCameraZ(1)))
Print("CameraAngleX: "+ str(CameraAngleX#)+" CameraAngleY: "+ str(CameraAngleY#) ) // +"CameraAngleZ: "+ str(CameraAngleZ#))
Print("--------------------------------------------")
Print("CameraDistance#: "+ str(CameraDistance#))
Print("NewCameraDistance#: "+ str(NewCameraDistance#))
Print("UserCameraDistance#: "+ str(UserCameraDistance#))
Print("RayObjectID#: "+ str(RayObjectID))
Print("--------------------------------------------")
Print("")
if cammode=0 then camdis$="3rd person(default)"
if cammode=1 then camdis$="1st person"
if cammode=2 then camdis$="detached"
Print("Cammode: "+ camdis$)
Print("")
Print("flymode: "+ str(flymode))
Print("nightmode: "+ str(nightMode))
Print("timer: " + str(timer()) )
Print("EleWait#: " +str(EleWait#))
remstart
Print("shotdelay: " + str(shotdelay#))
Print("bulletcount: " + str(bulletcount) + " ammountofammo: " + str(ammountofammo))
Print("hitobjectatx: " + str(hitobjectatx))
Print("hitobjectaty: " + str(hitobjectaty))
Print("hitobjectatz: " + str(hitobjectatz))
//for n = 0 to 100
//print ("bulletLight[]= " + str(bulletLight[n] ) +" " )
//next
remend
print("")
if object_hit=ladderhitbox or object_hit=ladderhitbox2
dis$="hit"
endif
Print("ladder hit: " + dis$ +" = " + str(ladderhitbox) )
Print ("object_hit: "+str(object_hit) )
Print("GetObjectRayCastNumHits: "+ str(GetObjectRayCastNumHits()) )
Print("maxjump: " + str(maxjump#))
Print("")
//Print("pad= "+str(pad))
Print("GetObjectY(Elevator1): " + str(GetObjectY(Elevator1)))
//Print ("bullx#: "+str(bullx#) + " bully#: " + str(bully#) + " bullz#"+str(bullz#) )
//Print ("BulletLight[bulletcount]= "+str(BulletLight[1])) //100224
//Print ("targetIDx: "+Str(GetObjectX(targetID))+", targetIDy: "+str(GetObjectY(targetID))+", targetIDz: "+Str(GetObjectZ(targetID)))
Print("")
Print ("F1 = Help")
EndIf
EndFunction
Function DisplayHelp()
If helpdisplay
// print info on screen..
Print ("F2 = toggle tech info")
Print ("F3 = toggle 1st/3rd person mode")
Print ("F4 = toggle fly/walk mode")
Print ("F5 = toggle audio on/off")
Print ("F6 = toggle fog on/off")
Print ("F7 = toggle sun on/off")
Print ("F8 = toggle day/night")
Print("")
Print ("W, A, S, D, RMB, cursor keys = move")
Print ("Q, E = strafe")
Print ("Mouse to look round")
Print ("Mousewheel = zoom in/out")
Print ("Shift + move = run")
Print ("Space = jump, (+ forward = climb/fly-when in flymode)")
Print ("-Not implemented yet/fully-")
Print ("Alt = crouch")
Print ("Ctrl / LMB = fire/use item")
Print ("Tab / i = cycle inventory items")
Print ("T = torch, M = map, C = compass ")
Print ("")
Print ("F = toggle Mouse lock")
Print ("Esc = exit, P = pause" )
EndIf
EndFunction
foldend
