Sync On
Sync Rate 0
REM Variables
Type PlayerType
OldX As Float
OldY As Float
OldZ As Float
X As Float
Y As Float
Z As Float
GridX As Integer
GridY As Integer
GridZ As Integer
Jump As Float
JumpCount As Integer
JumpFlag As Integer
JumpMax As Integer
ObjNum As Integer
EndType
REM Current Player
Global PlayerSelect As Integer = 0
REM Make Array For 3 Players
Dim Player(2) As PlayerType
REM Create Array To Hold Level Data
Dim Level$(1,9)
REM Create Objects
MakePlayers()
MakeLevel()
REM Position Camera
`Position Camera 6,50,0
Set Camera Range 0.005,100
Point Camera 6,0,5
REM TimerSync Variables
TimerStart = Timer()
TimerDelay = 20
REM Main Loop
Do
REM TimerSync
If Timer() >= TimerStart + TimerDelay
REM Save Current Coordinates
Player(PlayerSelect).OldX = Player(PlayerSelect).X
Player(PlayerSelect).OldY = Player(PlayerSelect).Y
Player(PlayerSelect).OldZ = Player(PlayerSelect).Z
REM Press 1 For Player 1
If KeyState(2) = 1 Then PlayerSelect = 0
REM Press 2 For Player 2
If KeyState(3) = 1 Then PlayerSelect = 1
REM Press 3 For Player 3
If KeyState(4) = 1 Then PlayerSelect = 2
REM Move Player
If UpKey() = 1 Or KeyState(17) = 1
Player(PlayerSelect).X = NewXValue(Player(PlayerSelect).X,CameraY#,.1)
Player(PlayerSelect).Z = NewZValue(Player(PlayerSelect).Z,CameraY#,.1)
EndIf
If DownKey() = 1 Or KeyState(31) = 1
Player(PlayerSelect).X = NewXValue(Player(PlayerSelect).X,CameraY#,-.1)
Player(PlayerSelect).Z = NewZValue(Player(PlayerSelect).Z,CameraY#,-.1)
EndIf
If LeftKey() = 1 Or KeyState(30) = 1
Player(PlayerSelect).X = NewXValue(Player(PlayerSelect).X,CameraY#-90.0,.1)
Player(PlayerSelect).Z = NewZValue(Player(PlayerSelect).Z,CameraY#-90.0,.1)
EndIf
If RightKey() = 1 Or KeyState(32) = 1
Player(PlayerSelect).X = NewXValue(Player(PlayerSelect).X,CameraY#+90.0,.1)
Player(PlayerSelect).Z = NewZValue(Player(PlayerSelect).Z,CameraY#+90.0,.1)
EndIf
REM Update Position On Grid And Check For Sliding Collision
REM Update Grid Then Check For Collision Along X Axis Then Update Again
Player(PlayerSelect).GridX = Int((Player(PlayerSelect).X + 0.5))
CheckCollisionX()
Player(PlayerSelect).GridX = Int((Player(PlayerSelect).X + 0.5))
REM Update Grid Then Check For Collision Along Y Axis Then Update Again
Player(PlayerSelect).GridY = Int((Player(PlayerSelect).Y + 0.5))
CheckCollisionY()
Player(PlayerSelect).GridY = Int((Player(PlayerSelect).Y + 0.5))
REM Update Grid Then Check For Collision Along Z Axis Then Update Again
Player(PlayerSelect).GridZ = Int((Player(PlayerSelect).Z + 0.5))
CheckCollisionZ()
Player(PlayerSelect).GridZ = Int((Player(PlayerSelect).Z + 0.5))
REM Jump
If Player(PlayerSelect).JumpCount = 0 Then Player(PlayerSelect).JumpFlag = 0
If SpaceKey() = 1 And Player(PlayerSelect).JumpFlag = 0 Then Player(PlayerSelect).JumpFlag = 1
If Player(PlayerSelect).JumpFlag = 2 Then Player(PlayerSelect).JumpCount = Player(PlayerSelect).JumpCount - 1
If Player(PlayerSelect).JumpFlag = 1 Then Player(PlayerSelect).JumpCount = Player(PlayerSelect).JumpCount + 1
If Player(PlayerSelect).JumpCount = Player(PlayerSelect).JumpMax Then Player(PlayerSelect).JumpFlag = 2
REM Position Player Object
Position Object Player(PlayerSelect).ObjNum,Player(PlayerSelect).X,Player(PlayerSelect).Y + (Player(PlayerSelect).Jump * Player(PlayerSelect).JumpCount),Player(PlayerSelect).Z
REM First Person Controls
CameraX# = WrapValue(CameraX# + MouseMoveY())
CameraY# = WrapValue(CameraY# + MouseMoveX())
`If CameraX# < 270.0 Then CameraX# = 270.0
`If CameraX# < -90.0 Then CameraX# = -90.0
Rotate Camera CameraX#,CameraY#,0
`Position Camera Player(PlayerSelect).X,Player(PlayerSelect).Y + (Player(PlayerSelect).Jump * Player(PlayerSelect).JumpCount),Player(PlayerSelect).Z
Position Camera Player(PlayerSelect).X,Player(PlayerSelect).Y+10,Player(PlayerSelect).Z-5
REM Debug
Text 0,50,Str$(Player(PlayerSelect).Z) + " : " + Str$(Player(PlayerSelect).GridZ)
`Text 0,80,Mid$(Level$(Player(PlayerSelect).GridZ + 1),Player(PlayerSelect).GridX - 1)
`Text 30,80,Mid$(Level$(Player(PlayerSelect).GridZ + 1),Player(PlayerSelect).GridX)
`Text 60,80,Mid$(Level$(Player(PlayerSelect).GridZ + 1),Player(PlayerSelect).GridX + 1)
`Text 0,110,Mid$(Level$(Player(PlayerSelect).GridZ),Player(PlayerSelect).GridX - 1)
Text 30,110,Mid$(Level$(Player(PlayerSelect).GridY,Player(PlayerSelect).GridZ),Player(PlayerSelect).GridX)
`Text 60,110,Mid$(Level$(Player(PlayerSelect).GridZ),Player(PlayerSelect).GridX + 1)
`Text 0,140,Mid$(Level$(Player(PlayerSelect).GridZ - 1),Player(PlayerSelect).GridX - 1)
`Text 30,140,Mid$(Level$(Player(PlayerSelect).GridZ - 1),Player(PlayerSelect).GridX)
`Text 60,140,Mid$(Level$(Player(PlayerSelect).GridZ - 1),Player(PlayerSelect).GridX + 1)
REM Reset Timer Values
TimerStart = Timer()
EndIf
Sync
Loop
Function CheckCollisionX()
REM If Ran Into A Wall On X Axis ( Cube ) Reset Old X Position
If Val(Mid$(Level$(Player(PlayerSelect).GridY,Player(PlayerSelect).GridZ),Player(PlayerSelect).GridX)) = 1
Player(PlayerSelect).X = Player(PlayerSelect).OldX
EndIf
EndFunction
Function CheckCollisionY()
REM Gravity
Player(PlayerSelect).OldY = Player(PlayerSelect).OldY - 1
Player(PlayerSelect).Y = Player(PlayerSelect).Y - 1
REM Make Sure You Don't Fall Through The Floor
If Player(PlayerSelect).OldY < 0.0 Then Player(PlayerSelect).OldY = 0.0
If Player(PlayerSelect).Y < 0.0 Then Player(PlayerSelect).Y = 0.0
REM Check Collision With Stairs
If Val(Mid$(Level$(Player(PlayerSelect).GridY,Player(PlayerSelect).GridZ),Player(PlayerSelect).GridX)) = 5
If Player(PlayerSelect).Z > Player(PlayerSelect).GridZ - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
If Player(PlayerSelect).Z > (Player(PlayerSelect).GridZ + 0.2) - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
If Player(PlayerSelect).Z > (Player(PlayerSelect).GridZ + 0.4) - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
If Player(PlayerSelect).Z > (Player(PlayerSelect).GridZ + 0.6) - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
If Player(PlayerSelect).Z > (Player(PlayerSelect).GridZ + 0.8) - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
EndIf
If Val(Mid$(Level$(Player(PlayerSelect).GridY,Player(PlayerSelect).GridZ),Player(PlayerSelect).GridX)) = 6
If Player(PlayerSelect).X > Player(PlayerSelect).GridX - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
If Player(PlayerSelect).X > (Player(PlayerSelect).GridX + 0.2) - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
If Player(PlayerSelect).X > (Player(PlayerSelect).GridX + 0.4) - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
If Player(PlayerSelect).X > (Player(PlayerSelect).GridX + 0.6) - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
If Player(PlayerSelect).X > (Player(PlayerSelect).GridX + 0.8) - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
EndIf
If Val(Mid$(Level$(Player(PlayerSelect).GridY,Player(PlayerSelect).GridZ),Player(PlayerSelect).GridX)) = 8
If Player(PlayerSelect).Z > Player(PlayerSelect).GridZ - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
If Player(PlayerSelect).Z > (Player(PlayerSelect).GridZ + 1.0) - 0.5
Player(PlayerSelect).Y = Player(PlayerSelect).Y + 0.2
EndIf
EndIf
endif
REM Make Sure You Don't Go Through The Ceiling
If Player(PlayerSelect).OldY > 0.0 Then Player(PlayerSelect).OldY = 0.6
If Player(PlayerSelect).Y > 0.0 Then Player(PlayerSelect).Y = 0.6
EndFunction
Function CheckCollisionZ()
REM If Ran Into A Wall On Z Axis ( Cube ) Reset Old Z Position
If Val(Mid$(Level$(Player(PlayerSelect).GridY,Player(PlayerSelect).GridZ),Player(PlayerSelect).GridX)) = 1
Player(PlayerSelect).Z = Player(PlayerSelect).OldZ
EndIf
EndFunction
Function MakePlayers()
REM Create Spheres For Players
For PlayerCount = 0 To 2
Player(PlayerCount).ObjNum = PlayerCount + 1
Player(PlayerCount).Jump = 0.05
Player(PlayerCount).JumpMax = 40
Player(PlayerCount).JumpFlag = 0
Player(PlayerCount).JumpCount = 0
Make Object Sphere Player(PlayerCount).ObjNum,1
Next PlayerCount
EndFunction
Function MakeLevel()
REM Store Level Data For Level Creation And Collision
REM 1 = Walls : 0 = Floor : 2 = Player(0) Start Position : 3 = Player(1) Start Position
Level$(0,9) = "1111111111"
Level$(0,8) = "1500000001"
Level$(0,7) = "1010000101"
Level$(0,6) = "1000200061"
Level$(0,5) = "1000000401"
Level$(0,4) = "1000000001"
Level$(0,3) = "1001000061"
Level$(0,2) = "1010030101"
Level$(0,1) = "1000000001"
Level$(0,0) = "1111111111"
REM 7 Is Empty Space : 8 Is Floor Tile
Level$(1,9) = "1111111111"
Level$(1,8) = "1788888881"
Level$(1,7) = "1777787771"
Level$(1,6) = "1777787771"
Level$(1,5) = "1777777771"
Level$(1,4) = "1777777771"
Level$(1,3) = "1777777771"
Level$(1,2) = "1777777771"
Level$(1,1) = "1777777771"
Level$(1,0) = "1111111111"
REM Start Level Objects At 100
ObjNum = 100
For y = 0 To 1
For z = 0 To 9
For x = 1 To 10
REM Parse Level Data
TempVal = Val(Mid$(Level$(y,z),x))
REM If Level Data Is 0 Make A Floor Tile
If TempVal = 0
Make Object Plain ObjNum,1,1
Rotate Object ObjNum,90,0,0
Position Object ObjNum,x,y-0.5,z
EndIf
REM If Level Data Is 1 Make A Wall ( Cube )
If TempVal = 1
Make Object Cube ObjNum,1
Position Object ObjNum,x,y,z
EndIf
REM If Level Data Is 2 Make A Floor Tile And Set Start Position For Player(0)
If TempVal = 2
Make Object Plain ObjNum,1,1
Rotate Object ObjNum,90,0,0
Position Object ObjNum,x,y-0.5,z
Player(0).X = x
Player(0).Y = y
Player(0).Z = z
Player(0).GridX = x
Player(0).GridY = 0
Player(0).GridZ = z
Position Object Player(0).ObjNum,Player(0).X,Player(0).Y,Player(0).Z
EndIf
REM If Level Data Is 2 Make A Floor Tile And Set Start Position For Player(1)
If TempVal = 3
Make Object Plain ObjNum,1,1
Rotate Object ObjNum,90,0,0
Position Object ObjNum,x,y-0.5,z
Player(1).X = x
Player(1).Y = y
Player(1).Z = z
Player(1).GridX = x
Player(1).GridY = 0
Player(1).GridZ = z
Position Object Player(1).ObjNum,Player(1).X,Player(1).Y,Player(1).Z
EndIf
`4 is player 3
If TempVal = 4
Make Object Plain ObjNum,1,1
Rotate Object ObjNum,90,0,0
Position Object ObjNum,x,y-0.5,z
Player(2).X = x
Player(2).Y = y
Player(2).Z = z
Player(2).GridX = x
Player(2).GridY = 0
Player(2).GridZ = z
Position Object Player(2).ObjNum,Player(2).X,Player(2).Y,Player(2).Z
EndIf
REM Make stairs
If TempVal = 5
Make Object Box ObjNum,1,0.2,1
Position Object ObjNum,x,y-0.4,z
ObjNum = ObjNum + 1
Make Object Box ObjNum,1,0.2,0.8
Position Object ObjNum,x,y-0.2,z+0.1
ObjNum = ObjNum + 1
Make Object Box ObjNum,1,0.2,0.6
Position Object ObjNum,x,y,z+0.2
ObjNum = ObjNum + 1
Make Object Box ObjNum,1,0.2,0.4
Position Object ObjNum,x,y+0.2,z+0.3
ObjNum = ObjNum + 1
Make Object Box ObjNum,1,0.2,0.2
Position Object ObjNum,x,y+0.4,z+0.4
EndIf
If TempVal = 6
Make Object Box ObjNum,1,0.2,1
rotate object ObjNum,0,90,0
Position Object ObjNum,x,y-0.4,z
ObjNum = ObjNum + 1
Make Object Box ObjNum,1,0.2,0.8
rotate object ObjNum,0,90,0
Position Object ObjNum,x+0.1,y-0.2,z
ObjNum = ObjNum + 1
Make Object Box ObjNum,1,0.2,0.6
rotate object ObjNum,0,90,0
Position Object ObjNum,x+0.2,y,z
ObjNum = ObjNum + 1
Make Object Box ObjNum,1,0.2,0.4
rotate object ObjNum,0,90,0
Position Object ObjNum,x+0.3,y+0.2,z
ObjNum = ObjNum + 1
Make Object Box ObjNum,1,0.2,0.2
rotate object ObjNum,0,90,0
Position Object ObjNum,x+0.4,y+0.4,z
ObjNum = ObjNum + 1
EndIf
REM If Level Data Is 0 Make A Floor Tile
If TempVal = 8
Make Object Plain ObjNum,1,1
Rotate Object ObjNum,270,0,0
Color Object ObjNum,RGB(255,0,0)
Position Object ObjNum,x,y-0.6,z
EndIf
REM Increase Object Count
ObjNum = ObjNum + 1
Next x
Next z
Next y
EndFunction