Compare text

Find the difference between two text files

Real-time editor

Hide unchanged lines

Disable line wrap

Layout

Diff precision

Syntax highlighting

Diffchecker Desktop The most secure way to run Diffchecker. Get the Diffchecker Desktop app: your diffs never leave your computer!Get Desktop

Untitled diff

Created 10 years agoDiff never expires

4 removals

Lines
Total
Removed

Characters
Total
Removed

To continue using this feature, upgrade to Diffchecker Pro View Pricing

802 lines

18 additions

Lines
Total
Added

Characters
Total
Added

To continue using this feature, upgrade to Diffchecker Pro View Pricing

816 lines

SeedRnd MilliSecs()

Const gameLogicFPS = 60

Include "Hex8.bb"

Include "UDPNetwork_lib.bb"

Global localID

Global localName$ = Input("Enter your name : ")

If localName = "" Then localName = "player" + Rand(100,999)

Global localPlayerMesh

Type player

Field id

Field name$

Field ping

Field life

Field kills

Field deaths

Field mesh

Field r,g,b

Field nextX#,nextY#,nextZ#

Field previousX#,previousY#,previousZ#

Field nextYaw#

Field previousYaw#

Field nextTime

Field previousTime

Field lastPacket

Field currentY#

Field velocityY#

End Type

Type bullet

Field mesh

Field angle#

Field time

Field id ; id of player who fired

End Type

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Camera code from jfk EO-11110, thanks

Global bounce_cam=1 ; smooth camera motion? (0/1)

Global bounce_div#=10.0 ; the higher, the more sluggish the camera will follow. Recc: 3.0 to 20.0

; some globals used by ChaseCam

Global old_x#,old_y#,old_z#

; desired distance between camera and player mesh

Global x_dis#=7.0,y_dis#=3,z_dis#=7.0,y_dis_or#=y_dis#

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; network init ----------------------------------------;

Global localMode = Net_StartInput() ; bring the library "console" to connect

If localMode = 1 Or localMode = 2 ; 1 means we are client, 2 means we are server

localId = Net_CreatePlayer(localName) ; this command inits the server or local client

If localId = 0 ; error

Net_StopNetwork() ; close the network properly

RuntimeError("Failed to create player.")

EndIf

If localMode = 1 Then AppTitle("Client : " + localName + " (port:" + net_port + "/ ID=" + localID + ")")

If localMode = 2 Then AppTitle("Server : " + localName + " (port:" + net_port + "/ ID=" + localID + ")")

Else ; error

Net_StopNetwork()

RuntimeError("Failed to start game.")

EndIf

;------------------------------------------------------;

Graphics3D 640,480,32,2

SetBuffer BackBuffer()

CreateScene()

Global camera = CreateCamera()

CameraRange camera,0.1,1000

; create our own local player

localPlayerMesh = CreatePlayer(localID,localName)

old_x = EntityX(localPlayerMesh):old_y = EntityY(localPlayerMesh):old_z = EntityZ(localPlayerMesh) ; update camera position

; we send our color to the server

p.player = Object.player(GetPlayer(localID))

Net_SendMessage(3,p\r + "/" + p\g + "/" + p\b)

Global cR = p\r

Global cG = p\g

Global cB = p\b

; variables used to send our positions at a constant delay (saves bandwidth but makes a constant ping)

Global updatePosition = MilliSecs()

Global updateTick = 50

; chat

Global messageDisplayNumber = 10

Global messageOffset

Dim message$(messageDisplayNumber)

Global chatMode

Global chatMessage$ = localName + "> "

Global chatMillisecs = MilliSecs()

Global chatCursor

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

tweeningPeriod = 1000 / gameLogicFPS

tweeningTime = MilliSecs() - tweeningPeriod

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

While Not KeyHit(1)

;; I use tweening from castle demo here :

;;

;; - this allows to have very fast execution outside the tweening loop,

;; so the network is updated as fast as possible (needs Flip False)

;;

;; - this makes the game logic updated at a constant rate (Const FPS=)

;; so no need to set deltatime (and it saves CPU time for other things)

;; -------------------------------------------------------------------------------------------------; FAST EXECUTION (outside of tweening)

;; -------------------------------------------------------------------------------------------------;

; see the function, the interpolation variables are set properly here

UpdateNetwork()

;; -------------------------------------------------------------------------------------------------;

Repeat

tweeningElapsed = MilliSecs() - tweeningTime

Until tweeningElapsed

tweeningTicks = tweeningElapsed / tweeningPeriod

tweeningRate# = Float(tweeningElapsed Mod tweeningPeriod)/Float(tweeningPeriod)

For k = 1 To tweeningTicks

tweeningTime = tweeningTime + tweeningPeriod

If k = tweeningTicks Then CaptureWorld

;; ---------------------------------------------------------------------------------------------; MAIN UPDATE

;; ---------------------------------------------------------------------------------------------;

; update our player

UpdateLocalPlayer()

; the interpolation is made in this function

UpdatePlayers()

; update the bullets... only the server check for player kills

UpdateBullets()

UpdateWorld()

UpdateChaseCam(camera,localPlayerMesh)

;; ---------------------------------------------------------------------------------------------;

RenderWorld tweeningRate

;; -------------------------------------------------------------------------------------------------; 2D UPDATE

;; -------------------------------------------------------------------------------------------------;

DrawPlayersNames()

If KeyHit(28) And chatMode = 0 Then chatMode = 1:FlushKeys()

If chatMode = 1 Then UpdateChat()

DrawMessages()

If KeyDown(15) Then DrawScoreTable()

;; -------------------------------------------------------------------------------------------------;

Flip

Wend

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Net_StopNetwork()

End

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function UpdateNetwork()

; update incoming packets (better check ALL incoming messages so use While Wend)

While Net_CheckMessage() ; will check for a new message and fill Net_MsgType, Net_MsgString$, Net_MsgFrom and Net_MsgTo variables so we can read it

p.player = Object.player(GetPlayer(Net_MsgFrom)) ; get the player handle

If Handle(p) = 0 And Net_MsgType < 100 ; we received an update packet from a player we don't know

; so we ask the server who he is and return because we can't update him for now

; the server will resend us the info in a new player "100" message

Net_RequestPlayer(Net_MsgFrom)

Return

EndIf

Select Net_MsgType ; check the type of message

Case 1 ; chat message

NewMessage(Net_MsgString)

Case 2 ; player position and angle, example of packing data into string

offset1 = Instr(Net_MsgString,"/",1)

offset2 = Instr(Net_MsgString,"/",offset1+1)

offset3 = Instr(Net_MsgString,"/",offset2+1)

p\previousX = p\nextX

p\previousY = p\nextY

p\previousZ = p\nextZ

p\previousYaw = p\nextYaw

p\nextX = Left(Net_MsgString,offset1-1)

p\nextY = Mid(Net_MsgString,offset1+1,offset2-offset1-1)

p\nextZ = Mid(Net_MsgString,offset2+1,offset3-offset2-1)

p\nextYaw = Right(Net_MsgString,Len(Net_MsgString)-offset3)

p\previousTime = p\nextTime

p\nextTime = MilliSecs()

Case 3 ; update player colors

offset1 = Instr(Net_MsgString,"/",1)

offset2 = Instr(Net_MsgString,"/",offset1+1)

p\r = Left(Net_MsgString,offset1-1)

p\g = Mid(Net_MsgString,offset1+1,offset2-offset1-1)

p\b = Right(Net_MsgString,Len(Net_MsgString)-offset2)

EntityColor p\mesh,p\r,p\g,p\b

Case 4 ; a player fired

CreateBullet(Net_MsgFrom)

Case 5 ; a player lost some life

p\life = Net_MsgString

Case 6 ; a player killed another one

k.player = Object.player(GetPlayer(Net_MsgString)) ; killed player ID in MsgData

NewMessage(p\name + " killed " + k\name)

ResetPlayer(k\id)

Case 7 ; the server sends us score update for a player

offset = Instr(Net_MsgString,"/",1)

p\kills = Left(Net_MsgString,offset-1)

p\deaths = Right(Net_MsgString,Len(Net_MsgString)-offset)

Case 100 ; new player connected, OR the server tells us who is already connected so we can create players when joining the game

If localMode = 2

For p.player = Each player

Net_SendMessage(2,p\nextX + "/" + p\nextY + "/" + p\nextZ + "/" + p\nextYaw,p\id,Net_MsgFrom)

Net_SendMessage(3,p\r + "/" + p\g + "/" + p\b,p\id,Net_MsgFrom)

Net_SendMessage(5,p\life,p\id,Net_MsgFrom)

Net_SendMessage(7,p\kills+"/"+p\deaths,p\id,Net_MsgFrom)

EndIf

NewMessage(Net_MsgString + " connected")

CreatePlayer(Net_MsgFrom,Net_MsgString)

Case 101 ; a player has quit

For p.player = Each player

If Net_MsgFrom = p\id

NewMessage(p\name + " disconnected")

FreeEntity p\mesh

Delete p

EndIf

Case 102 ; host has changed

For p.player = Each player

If Net_MsgFrom = p\id

If p\id = localID

AppTitle("Server : " + localName + " (port:" + net_port + ")")

NewMessage("You are the new host")

localMode = 2

Else

NewMessage(p\name + " is the new host")

EndIf

Case 103 ; ping update

For p.player = Each player

If Net_MsgFrom = p\id

p\ping = Net_MsgString

EndIf

End Select

Wend

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function UpdateLocalPlayer()

; update our player

p.player = Object.player(GetPlayer(localID)) ; get our player

; inputs

If KeyDown(200) Then MoveEntity p\mesh,0,0,0.3

If KeyDown(208) Then MoveEntity p\mesh,0,0,-0.3

If KeyDown(203) Then TurnEntity p\mesh,0,3,0

If KeyDown(205) Then TurnEntity p\mesh,0,-3,0

; fire

If MouseHit(1)

Net_SendMessage(4,"")

CreateBullet(localID)

EndIf

; jump

If MouseHit(2)

; check if player is one the ground

LinePick(EntityX(p\mesh),EntityY(p\mesh),EntityZ(p\mesh),0,-1.2,0)

If PickedEntity()

p\velocityY = 0.5 ; set "inverse" of gravity velocity

EndIf

; we create a message type "2" for player position

If MilliSecs()-updatePosition > updateTick

Net_SendMessage(2,EntityX(p\mesh) + "/" + EntityY(p\mesh) + "/" + EntityZ(p\mesh) + "/" + EntityYaw(p\mesh))

updatePosition = MilliSecs()

EndIf

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function UpdatePlayers()

For p.player = Each player

If p\id <> localID ; update other players only

;; LINEAR INTERPOLATION ;;;;;;;;;;

If p\nextTime <> p\previousTime ; if both packets arrived at the same time, we can't interpolate

curTime# = Float(MilliSecs()-p\nextTime) / Float(p\nextTime-p\previousTime) ; curTime will be ideally 0.0-1.0, if it's > 1.0 then it performs extrapolation

If curTime > 1 Then curTime = 1 ; extrapolation gives anoying jittering effects

; special fix for yaw as EntityYaw returns a value beetween +180 ans -180, the interpolation can go backward

If p\previousYaw < 0 Then p\previousYaw = p\previousYaw + 360

If p\nextYaw < 0 Then p\nextYaw = p\nextYaw + 360

If Abs(p\nextYaw-p\previousYaw) > 180

If p\nextYaw > p\previousYaw

p\previousYaw = p\previousYaw + 360

Else

p\previousYaw = p\previousYaw - 360

EndIf

PositionEntity p\mesh,p\previousX+(p\nextX-p\previousX)*curTime,p\previousY+(p\nextY-p\previousY)*curTime,p\previousZ+(p\nextZ-p\previousZ)*curTime

RotateEntity p\mesh,0,p\previousYaw+(p\nextYaw-p\previousYaw)*curTime,0

Else

PositionEntity p\mesh,p\nextX,p\nextY,p\nextZ

RotateEntity p\mesh,0,p\nextYaw,0

EndIf

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ResetEntity p\mesh ; reset entity is useful here because of collisions

Else ; update our player, basically it just compute gravity

p\velocityY = p\velocityY - 0.03 ; fake gravity

If EntityY(p\mesh) - p\currentY >= 0 ; if player is not falling we limit the gravity

If p\velocityY < -0.03 Then p\velocityY = -0.03

EndIf

p\currentY = EntityY(p\mesh)

TranslateEntity p\mesh,0,p\velocityY,0

EndIf

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function CreatePlayer(id,name$)

For p.player = Each player

If p\id = id Then Return ; player already connected

p.player = New player

p\id = id

p\name = name

p\life = 100

p\mesh = CreateSphere()

EntityType p\mesh,2

EntityRadius p\mesh,1

NameEntity p\mesh,Handle(p)

nose = CreateSphere(8,p\mesh):EntityColor nose,255,0,0

PositionEntity nose,0,0,1

ScaleEntity nose,0.3,0.3,0.3

eyeLeft = CreateSphere(8,p\mesh):EntityColor eyeLeft,255,255,255

PositionEntity eyeLeft ,.29,.4,.7;1

ScaleEntity eyeLeft ,0.2,0.2,0.2

pupilLeft = CreateSphere(8,p\mesh):EntityColor pupilLeft ,0,0,0

PositionEntity pupilLeft ,.3,.4,.9;1

ScaleEntity pupilLeft ,0.05,0.05,0.02

eyeRight = CreateSphere(8,p\mesh):EntityColor eyeRight ,255,255,255

PositionEntity eyeRight ,-.29,.4,.7;1

ScaleEntity eyeRight ,0.2,0.2,0.2

pupilRight = CreateSphere(8,p\mesh):EntityColor pupilRight ,0,0,0

PositionEntity pupilRight ,-.3,.4,.9;1

ScaleEntity pupilRight ,0.05,0.05,0.02

unaBrow = CreateCone(8,1,p\mesh):EntityColor unaBrow ,0,0,0

PositionEntity unaBrow ,0,.45,.7

RotateEntity unaBrow ,-180,0,0

ScaleEntity unaBrow ,.7,.2,.3

p\nextX = -20

p\nextY = 1

p\nextZ = -20

p\nextYaw = -45

p\previousX = p\nextX

p\previousY = p\nextY

p\previousZ = p\nextZ

p\previousYaw = p\nextYaw

p\r = Rand(255)

p\g = Rand(255)

p\b = Rand(255)

EntityColor p\mesh,p\r,p\g,p\b

PositionEntity p\mesh,p\nextX,p\nextY,p\nextZ

RotateEntity p\mesh,0,p\nextYaw,0

ResetEntity p\mesh

p\currentY = p\nextY

p\previousTime = MilliSecs()

p\nextTime = MilliSecs()+1

Return p\mesh

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function ResetPlayer(id)

p.player = Object.player(GetPlayer(id))

p\life = 100

p\nextX = -20

p\nextY = 1

p\nextZ = -20

p\nextYaw = -45

p\previousX = p\nextX

p\previousY = p\nextY

p\previousZ = p\nextZ

p\previousYaw = p\nextYaw

PositionEntity p\mesh,p\nextX,p\nextY,p\nextZ

RotateEntity p\mesh,0,p\nextYaw,0

ResetEntity p\mesh

p\currentY = p\nextY

p\previousTime = MilliSecs()

p\nextTime = MilliSecs()+1

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function GetPlayer(id)

For p.player = Each player

If p\id = id

Return Handle(p)

EndIf

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function DrawPlayersNames()

For p.player = Each player

Color 255,255,255

CameraProject(camera,EntityX(p\mesh),EntityY(p\mesh),EntityZ(p\mesh))

If p\id <> localID Then Text ProjectedX(),ProjectedY()-60,p\name,1,1

Color 255,(255./100.)*p\life,(255./100.)*p\life

Text ProjectedX(),ProjectedY()-40,p\life,1,1

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function CreateBullet(id)

p.player = Object.player(GetPlayer(id))

b.bullet = New bullet

b\id = p\id

b\mesh = CreateSphere(2)

ScaleEntity b\mesh,0.2,0.2,0.2

EntityColor b\mesh,255,0,0

PositionEntity b\mesh,EntityX(p\mesh),EntityY(p\mesh),EntityZ(p\mesh)

RotateEntity b\mesh,0,EntityYaw(p\mesh),0

EntityType b\mesh,3

EntityRadius b\mesh,0.2

b\time = MilliSecs()

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function UpdateBullets()

For b.bullet = Each bullet

MoveEntity b\mesh,0,0,1

If CountCollisions(b\mesh)

If localMode = 2 ; only the server compute bullets collision with player

If GetEntityType(CollisionEntity(b\mesh,1)) = 2 ; a player is hit

touchedPlayer.player = Object.player(EntityName(CollisionEntity(b\mesh,1)))

touchedPlayer\life = touchedPlayer\life - 10

If touchedPlayer\life > 0 ; touched

Net_SendMessage(5,touchedPlayer\life,touchedPlayer\id)

Net_SendMessage(5,touchedPlayer\life,touchedPlayer\id,touchedPlayer\id)

Else ; killed

killerPlayer.player = Object.player(GetPlayer(b\id))

killerPlayer\kills = killerPlayer\kills + 1

touchedPlayer\deaths = touchedPlayer\deaths + 1

Net_SendMessage(6,touchedPlayer\id,killerPlayer\id)

Net_SendMessage(6,touchedPlayer\id,killerPlayer\id,killerPlayer\id)

Net_SendMessage(7,killerPlayer\kills+"/"+killerPlayer\deaths,killerPlayer\id)

Net_SendMessage(7,killerPlayer\kills+"/"+killerPlayer\deaths,killerPlayer\id,killerPlayer\id)

Net_SendMessage(7,touchedPlayer\kills+"/"+touchedPlayer\deaths,touchedPlayer\id)

Net_SendMessage(7,touchedPlayer\kills+"/"+touchedPlayer\deaths,touchedPlayer\id,touchedPlayer\id)

NewMessage(killerPlayer\name + " killed " + touchedPlayer\name)

ResetPlayer(touchedPlayer\id)

EndIf

FreeEntity b\mesh

Delete b

ElseIf MilliSecs()-b\time > 2000

FreeEntity b\mesh

Delete b

EndIf

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function NewMessage(msg$)

messageOffset = messageOffset + 1

If messageOffset > messageDisplayNumber

messageOffset = messageOffset - 1

For i = 2 To messageDisplayNumber

message(i-1) = message(i)

message(messageDisplayNumber) = msg

Else

message(messageOffset) = msg

EndIf

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function DrawMessages()

Color 255,255,255

For i = 1 To messageOffset

loc = Instr (message(i), "¿",1)

Text 0,(i-1)*15,message(i)

If loc > 1 Then

colorMessage$ = Mid$(message(i), 1, Len(message(i)) - 7 )

Hex$ = Right$(message(i),6)

Set_Color_Hex(Hex$)

Text 0,(i-1)*15,colorMessage$

Else

Color 255,255,255

Text 0,(i-1)*15,message(i)

End If

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function UpdateChat()

key = GetKey()

If key

If key = 13

If chatMessage <> localName + "> "

For i = Len(localName + "> ") To Len(chatMessage)

If Mid(chatMessage,i,1) <> " "

chatColor$ = RGB_To_TriHex(cR,cG,cB)

chatMessage = chatMessage + "¿" + chatColor$

Net_SendMessage(1,chatMessage)

NewMessage(chatMessage)

Exit

EndIf

chatMessage = localName + "> "

chatMode = 0

ElseIf key = 8 And Len(chatMessage) > Len ( localName + "> " )

chatMessage = Left(chatMessage,Len(chatMessage)-1)

ElseIf key > 31 And key < 127

chatMessage = chatMessage + Chr(key)

EndIf

Color 255,255,255

Rect 0,GraphicsHeight()-20,GraphicsWidth(),20,1

Color 0,0,0

Rect 0,GraphicsHeight()-20,GraphicsWidth(),20,0

If MilliSecs()-chatMillisecs > 500

chatCursor = Not chatCursor

chatMillisecs = MilliSecs()

EndIf

If chatCursor

Text 5,GraphicsHeight()-17,chatMessage + "|"

Else

Text 5,GraphicsHeight()-17,chatMessage

EndIf

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function DrawScoreTable()

For p.player = Each player

count = count + 1

baseX = (GraphicsWidth()-350)/2

baseY = (GraphicsHeight()-(35+20*count))/2

Color 0,0,0

Rect baseX,baseY,350,35+20*count,1

Color 255,192,0

Rect baseX,baseY,350,35+20*count,0

Text baseX+10,baseY+10,"Player Kills Deaths Ping"

Line baseX,baseY+25,baseX+349,baseY+25

For p.player = Each player

Color 255,255,255

If p\id = localID Then Color 255,100,100

i = i + 1

Text baseX+10,baseY+10+20*i,p\name

Text baseX+157,baseY+10+20*i,p\kills,1,0

Text baseX+240,baseY+10+20*i,p\deaths,1,0

Text baseX+322,baseY+10+20*i,p\ping,1,0

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function UpdateChaseCam(camera,player) ; thanks to jfk EO-11110 on bb forums for this function !

PositionEntity camera,EntityX(player,1),EntityY(player,1),EntityZ(player,1)

ResetEntity camera

x#=EntityX(player)+Sin(-EntityYaw(player)+180)*x_dis#

y#=EntityY(player)+y_dis#

z#=EntityZ(player)+Cos(-EntityYaw(player)+180)*z_dis#

obstacle=LinePick(EntityX(player),EntityY(player),EntityZ(player),(x-EntityX(player)),y_dis#,(z-EntityZ(player)),0.1)

If obstacle=0

new_x#=x

new_y#=y

new_z#=z

Else

new_x#=PickedX()

new_y#=PickedY()

new_z#=PickedZ()

EndIf

If bounce_cam=0

PositionEntity camera,new_x,new_y,new_z

Else

x=old_x+((New_x-old_x)/bounce_div#)

y=old_y+((New_y-old_y)/bounce_div#)

z=old_z+((New_z-old_z)/bounce_div#)

PositionEntity camera,x,y,z

EndIf

PointEntity camera,player

TurnEntity camera,-20,0,0 ; if you want the player mesh more on the bottom of the screen

old_x#=EntityX(camera)

old_y#=EntityY(camera)

old_z#=EntityZ(camera)

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function CreateScene()

texture = TextureCreate(128)

ground = CreatePlane()

EntityColor ground,150,150,150

EntityTexture ground,texture

cube = CreateCube():EntityColor cube,150,200,150

ScaleEntity cube,5,5,5:PositionEntity cube,0,5,0

EntityTexture cube,texture

sphere = CreateSphere(16):EntityColor sphere,200,150,150

ScaleEntity sphere,3,1,3:PositionEntity sphere,0,9.7,0

platform = CreateCube():EntityColor platform,150,150,200

ScaleEntity platform,3,1,10:PositionEntity platform,0,4.13,-13.15

TurnEntity platform,-30,0,0

EntityTexture platform,texture

FreeTexture texture

EntityType ground,1:EntityPickMode ground,2

EntityType cube,1:EntityPickMode cube,2

EntityType sphere,1:EntityPickMode sphere,2

EntityType platform,1:EntityPickMode platform,2

light = CreateLight()

TurnEntity light,30,70,0

;; COLLISIONS

Collisions 2,1,2,3 ; player to scene

Collisions 2,2,1,3 ; player to player

Collisions 3,1,2,1 ; bullet to scene

Collisions 3,2,1,1 ; bullet to player

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function TextureCreate(size)

texture = CreateTexture(size,size,9)

SetBuffer TextureBuffer(texture)

Color 255,255,255

Rect 0,0,size,size,1

Color 0,0,0

Rect 0,0,size,size,0

Line 0,0,size,size

Line 0,size,size,0

SetBuffer BackBuffer()

Return texture

End Function

Saved diffs

Original text

Open file

SeedRnd MilliSecs()

Const gameLogicFPS = 60

Include "UDPNetwork_lib.bb"

Global localID
Global localName$ = Input("Enter your name : ")
If localName = "" Then localName = "player" + Rand(100,999)

Global localPlayerMesh

Type player
	Field id
	Field name$
	Field ping
	
	Field life
	Field kills
	Field deaths
	
	Field mesh
	Field r,g,b

Field nextX#,nextY#,nextZ#
	Field previousX#,previousY#,previousZ#
	Field nextYaw#
	Field previousYaw#
	Field nextTime
	Field previousTime
	
	Field lastPacket
	
	Field currentY#
	Field velocityY#
End Type

Type bullet
	Field mesh
	Field angle#
	Field time
	Field id ; id of player who fired
End Type

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Camera code from jfk EO-11110, thanks
Global bounce_cam=1 ;  smooth camera motion? (0/1)
Global bounce_div#=10.0 ; the higher, the more sluggish the camera will follow. Recc: 3.0 to 20.0
; some globals used by ChaseCam
Global old_x#,old_y#,old_z#
; desired distance between camera and player mesh
Global x_dis#=7.0,y_dis#=3,z_dis#=7.0,y_dis_or#=y_dis#
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; network init ----------------------------------------;
Global localMode = Net_StartInput() ; bring the library "console" to connect

If localMode = 1 Or localMode = 2 ; 1 means we are client, 2 means we are server
	
	localId = Net_CreatePlayer(localName) ; this command inits the server or local client
	
	If localId = 0 ; error
		Net_StopNetwork() ; close the network properly
		RuntimeError("Failed to create player.")
	EndIf
	
	If localMode = 1 Then AppTitle("Client : " + localName + " (port:" + net_port + "/ ID=" + localID + ")")
	If localMode = 2 Then AppTitle("Server : " + localName + " (port:" + net_port + "/ ID=" + localID + ")")
	
Else ; error
	Net_StopNetwork()
	RuntimeError("Failed to start game.")
EndIf
;------------------------------------------------------;

Graphics3D 640,480,32,2
SetBuffer BackBuffer()

CreateScene()

Global camera = CreateCamera()
CameraRange camera,0.1,1000

; create our own local player
localPlayerMesh = CreatePlayer(localID,localName)
old_x = EntityX(localPlayerMesh):old_y = EntityY(localPlayerMesh):old_z = EntityZ(localPlayerMesh) ; update camera position

; we send our color to the server
p.player = Object.player(GetPlayer(localID))
Net_SendMessage(3,p\r + "/" + p\g + "/" + p\b)

; variables used to send our positions at a constant delay (saves bandwidth but makes a constant ping)
Global updatePosition = MilliSecs()
Global updateTick = 50

; chat
Global messageDisplayNumber = 10
Global messageOffset
Dim message$(messageDisplayNumber)

Global chatMode
Global chatMessage$ = localName + "> "
Global chatMillisecs = MilliSecs()
Global chatCursor

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
tweeningPeriod = 1000 / gameLogicFPS
tweeningTime = MilliSecs() - tweeningPeriod
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While Not KeyHit(1)

;; I use tweening from castle demo here :
	;;
	;; 		- this allows to have very fast execution outside the tweening loop,
	;; 		  so the network is updated as fast as possible (needs Flip False)
	;;
	;; 		- this makes the game logic updated at a constant rate (Const FPS=)
	;;		  so no need to set deltatime (and it saves CPU time for other things)

;; -------------------------------------------------------------------------------------------------; FAST EXECUTION (outside of tweening)
	;; -------------------------------------------------------------------------------------------------;
	
	; see the function, the interpolation variables are set properly here
	UpdateNetwork()
		
	;; -------------------------------------------------------------------------------------------------;

Repeat
		tweeningElapsed = MilliSecs() - tweeningTime
	Until tweeningElapsed
	tweeningTicks = tweeningElapsed / tweeningPeriod
	tweeningRate# = Float(tweeningElapsed Mod tweeningPeriod)/Float(tweeningPeriod)
	For k = 1 To tweeningTicks
		tweeningTime = tweeningTime + tweeningPeriod
		If k = tweeningTicks Then CaptureWorld
		
		;; ---------------------------------------------------------------------------------------------; MAIN UPDATE
		;; ---------------------------------------------------------------------------------------------;
		
		; update our player
		UpdateLocalPlayer()
		
		; the interpolation is made in this function
		UpdatePlayers()
		
		; update the bullets... only the server check for player kills
		UpdateBullets()

UpdateWorld()
		
		UpdateChaseCam(camera,localPlayerMesh)
		
		;; ---------------------------------------------------------------------------------------------;
		
	Next
	
	RenderWorld tweeningRate

;; -------------------------------------------------------------------------------------------------; 2D UPDATE
	;; -------------------------------------------------------------------------------------------------;
	
	DrawPlayersNames()
	
	If KeyHit(28) And chatMode = 0 Then chatMode = 1:FlushKeys()
	If chatMode = 1 Then UpdateChat()
	
	DrawMessages()
	
	If KeyDown(15) Then DrawScoreTable()
	
	;; -------------------------------------------------------------------------------------------------;
	
	Flip

Wend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Net_StopNetwork()

End

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdateNetwork()

; update incoming packets (better check ALL incoming messages so use While Wend)
	While Net_CheckMessage() ; will check for a new message and fill Net_MsgType, Net_MsgString$, Net_MsgFrom and Net_MsgTo variables so we can read it
		
		p.player = Object.player(GetPlayer(Net_MsgFrom)) ; get the player handle

If Handle(p) = 0 And Net_MsgType < 100 ; we received an update packet from a player we don't know
			; so we ask the server who he is and return because we can't update him for now
			; the server will resend us the info in a new player "100" message
			Net_RequestPlayer(Net_MsgFrom)
			Return
		EndIf
		
		Select Net_MsgType ; check the type of message
						
			Case 1 ; chat message
			
				NewMessage(Net_MsgString)
									
			Case 2 ; player position and angle, example of packing data into string
				
				offset1 = Instr(Net_MsgString,"/",1)
				offset2 = Instr(Net_MsgString,"/",offset1+1)
				offset3 = Instr(Net_MsgString,"/",offset2+1)
								
				p\previousX = p\nextX
				p\previousY = p\nextY
				p\previousZ = p\nextZ
				p\previousYaw = p\nextYaw
				
				p\nextX = Left(Net_MsgString,offset1-1)
				p\nextY = Mid(Net_MsgString,offset1+1,offset2-offset1-1)
				p\nextZ = Mid(Net_MsgString,offset2+1,offset3-offset2-1)
				p\nextYaw = Right(Net_MsgString,Len(Net_MsgString)-offset3)

p\previousTime = p\nextTime
				p\nextTime = MilliSecs()
							
			Case 3 ; update player colors
						
				offset1 = Instr(Net_MsgString,"/",1)
				offset2 = Instr(Net_MsgString,"/",offset1+1)
							
				p\r = Left(Net_MsgString,offset1-1)
				p\g = Mid(Net_MsgString,offset1+1,offset2-offset1-1)
				p\b = Right(Net_MsgString,Len(Net_MsgString)-offset2)
								
				EntityColor p\mesh,p\r,p\g,p\b
				
			Case 4 ; a player fired
			
				CreateBullet(Net_MsgFrom)
							
			Case 5 ; a player lost some life
			
				p\life = Net_MsgString
			
			Case 6 ; a player killed another one
			
				k.player = Object.player(GetPlayer(Net_MsgString)) ; killed player ID in MsgData
				NewMessage(p\name + " killed " + k\name)
				
				ResetPlayer(k\id)
			
			Case 7 ; the server sends us score update for a player
			
				offset = Instr(Net_MsgString,"/",1)
				
				p\kills = Left(Net_MsgString,offset-1)
				p\deaths = Right(Net_MsgString,Len(Net_MsgString)-offset)
						
			Case 100 ; new player connected, OR the server tells us who is already connected so we can create players when joining the game
							
				If localMode = 2
					For p.player = Each player
						Net_SendMessage(2,p\nextX + "/" + p\nextY + "/" + p\nextZ + "/" + p\nextYaw,p\id,Net_MsgFrom)
						Net_SendMessage(3,p\r + "/" + p\g + "/" + p\b,p\id,Net_MsgFrom)
						
						Net_SendMessage(5,p\life,p\id,Net_MsgFrom)
						Net_SendMessage(7,p\kills+"/"+p\deaths,p\id,Net_MsgFrom)
					Next
				EndIf
				
				NewMessage(Net_MsgString + " connected")
				CreatePlayer(Net_MsgFrom,Net_MsgString)
				
			Case 101 ; a player has quit
						
				For p.player = Each player
					If Net_MsgFrom = p\id
						NewMessage(p\name + " disconnected")
						FreeEntity p\mesh
						Delete p
					EndIf
				Next
							
			Case 102 ; host has changed
			
				For p.player = Each player
					If Net_MsgFrom = p\id
						If p\id = localID
							AppTitle("Server : " + localName + " (port:" + net_port + ")")
							NewMessage("You are the new host")
							localMode = 2
						Else
							NewMessage(p\name + " is the new host")
						EndIf					
					EndIf
				Next
			
			Case 103 ; ping update
			
				For p.player = Each player
					If Net_MsgFrom = p\id
						p\ping = Net_MsgString
					EndIf
				Next

End Select

Wend

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdateLocalPlayer()

; update our player
	p.player = Object.player(GetPlayer(localID)) ; get our player

; inputs
	If KeyDown(200) Then MoveEntity p\mesh,0,0,0.3
	If KeyDown(208) Then MoveEntity p\mesh,0,0,-0.3
	If KeyDown(203) Then TurnEntity p\mesh,0,3,0
	If KeyDown(205) Then TurnEntity p\mesh,0,-3,0
		
	; fire
	If MouseHit(1)
		Net_SendMessage(4,"")
		CreateBullet(localID)
	EndIf
	
	; jump
	If MouseHit(2)
		; check if player is one the ground
		LinePick(EntityX(p\mesh),EntityY(p\mesh),EntityZ(p\mesh),0,-1.2,0)
		If PickedEntity()
			p\velocityY = 0.5 ; set "inverse" of gravity velocity
		EndIf	
	EndIf
	
	; we create a message type "2" for player position
	If MilliSecs()-updatePosition > updateTick
	
		Net_SendMessage(2,EntityX(p\mesh) + "/" + EntityY(p\mesh) + "/" + EntityZ(p\mesh) + "/" + EntityYaw(p\mesh))
		updatePosition = MilliSecs()
	EndIf
	
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdatePlayers()

For p.player = Each player
				
		If p\id <> localID ; update other players only
						
			;; LINEAR INTERPOLATION ;;;;;;;;;;
			
			If p\nextTime <> p\previousTime ; if both packets arrived at the same time, we can't interpolate
				
				curTime# = Float(MilliSecs()-p\nextTime) / Float(p\nextTime-p\previousTime) ; curTime will be ideally 0.0-1.0, if it's > 1.0 then it performs extrapolation
				
				If curTime > 1 Then curTime = 1 ; extrapolation gives anoying jittering effects
				
				; special fix for yaw as EntityYaw returns a value beetween +180 ans -180, the interpolation can go backward
				If p\previousYaw < 0 Then p\previousYaw = p\previousYaw + 360
				If p\nextYaw < 0 Then p\nextYaw = p\nextYaw + 360
				If Abs(p\nextYaw-p\previousYaw) > 180
					If p\nextYaw > p\previousYaw
						p\previousYaw = p\previousYaw + 360
					Else
						p\previousYaw = p\previousYaw - 360
					EndIf
				EndIf
				
				PositionEntity p\mesh,p\previousX+(p\nextX-p\previousX)*curTime,p\previousY+(p\nextY-p\previousY)*curTime,p\previousZ+(p\nextZ-p\previousZ)*curTime
				RotateEntity p\mesh,0,p\previousYaw+(p\nextYaw-p\previousYaw)*curTime,0
				
			Else
			
				PositionEntity p\mesh,p\nextX,p\nextY,p\nextZ
				RotateEntity p\mesh,0,p\nextYaw,0
			
			EndIf
			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
						
			ResetEntity p\mesh ; reset entity is useful here because of collisions

Else ; update our player, basically it just compute gravity
		
			p\velocityY = p\velocityY - 0.03 ; fake gravity
			If EntityY(p\mesh) - p\currentY >= 0 ; if player is not falling we limit the gravity
				If p\velocityY < -0.03 Then p\velocityY = -0.03
			EndIf
		
			p\currentY = EntityY(p\mesh)
			TranslateEntity p\mesh,0,p\velocityY,0
						
		EndIf
	Next

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function CreatePlayer(id,name$)

For p.player = Each player
		If p\id = id Then Return ; player already connected
	Next

p.player = New player
	p\id = id
	p\name = name
	
	p\life = 100
	
	p\mesh = CreateSphere()
	EntityType p\mesh,2
	EntityRadius p\mesh,1
	
	NameEntity p\mesh,Handle(p)
	
	nose = CreateSphere(8,p\mesh):EntityColor nose,255,0,0
	PositionEntity nose,0,0,1
	ScaleEntity nose,0.3,0.3,0.3
	
	eyeLeft = CreateSphere(8,p\mesh):EntityColor eyeLeft,255,255,255
	PositionEntity eyeLeft ,.29,.4,.7;1
	ScaleEntity eyeLeft ,0.2,0.2,0.2
	
	pupilLeft = CreateSphere(8,p\mesh):EntityColor pupilLeft ,0,0,0
	PositionEntity pupilLeft ,.3,.4,.9;1
	ScaleEntity pupilLeft ,0.05,0.05,0.02
	
	eyeRight = CreateSphere(8,p\mesh):EntityColor eyeRight ,255,255,255
	PositionEntity eyeRight ,-.29,.4,.7;1
	ScaleEntity eyeRight ,0.2,0.2,0.2
		
	pupilRight = CreateSphere(8,p\mesh):EntityColor pupilRight ,0,0,0
	PositionEntity pupilRight ,-.3,.4,.9;1
	ScaleEntity pupilRight ,0.05,0.05,0.02

unaBrow = CreateCone(8,1,p\mesh):EntityColor unaBrow ,0,0,0
	PositionEntity unaBrow ,0,.45,.7
	RotateEntity unaBrow ,-180,0,0
	ScaleEntity unaBrow ,.7,.2,.3
	
	p\nextX = -20
	p\nextY = 1
	p\nextZ = -20
	p\nextYaw = -45
	
	p\previousX = p\nextX
	p\previousY = p\nextY
	p\previousZ = p\nextZ
	p\previousYaw = p\nextYaw
	
	p\r = Rand(255)
	p\g = Rand(255)
	p\b = Rand(255)
	EntityColor p\mesh,p\r,p\g,p\b
	
	PositionEntity p\mesh,p\nextX,p\nextY,p\nextZ
	RotateEntity p\mesh,0,p\nextYaw,0
	ResetEntity p\mesh
	
	p\currentY = p\nextY
	
	p\previousTime = MilliSecs()
	p\nextTime = MilliSecs()+1
	
	Return p\mesh

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function ResetPlayer(id)

p.player = Object.player(GetPlayer(id))

p\life = 100

p\nextX = -20
	p\nextY = 1
	p\nextZ = -20
	p\nextYaw = -45

p\previousX = p\nextX
	p\previousY = p\nextY
	p\previousZ = p\nextZ
	p\previousYaw = p\nextYaw

PositionEntity p\mesh,p\nextX,p\nextY,p\nextZ
	RotateEntity p\mesh,0,p\nextYaw,0
	ResetEntity p\mesh
	
	p\currentY = p\nextY
	
	p\previousTime = MilliSecs()
	p\nextTime = MilliSecs()+1

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function GetPlayer(id)

For p.player = Each player
		If p\id = id
			Return Handle(p)					
		EndIf
	Next
	
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function DrawPlayersNames()

For p.player = Each player
	
		Color 255,255,255
		CameraProject(camera,EntityX(p\mesh),EntityY(p\mesh),EntityZ(p\mesh)) 			
		If p\id <> localID Then Text ProjectedX(),ProjectedY()-60,p\name,1,1
		
		Color 255,(255./100.)*p\life,(255./100.)*p\life
		Text ProjectedX(),ProjectedY()-40,p\life,1,1

Next
	
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function CreateBullet(id)

p.player = Object.player(GetPlayer(id))

b.bullet = New bullet
	
	b\id = p\id
	
	b\mesh = CreateSphere(2)
	ScaleEntity b\mesh,0.2,0.2,0.2
	EntityColor b\mesh,255,0,0
		
	PositionEntity b\mesh,EntityX(p\mesh),EntityY(p\mesh),EntityZ(p\mesh)
	RotateEntity b\mesh,0,EntityYaw(p\mesh),0
	
	EntityType b\mesh,3
	EntityRadius b\mesh,0.2
		
	b\time = MilliSecs()

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdateBullets()

For b.bullet = Each bullet
	
		MoveEntity b\mesh,0,0,1
		
		If CountCollisions(b\mesh)
		
			If localMode = 2 ; only the server compute bullets collision with player
				If GetEntityType(CollisionEntity(b\mesh,1)) = 2 ; a player is hit
				
					touchedPlayer.player = Object.player(EntityName(CollisionEntity(b\mesh,1)))
					touchedPlayer\life = touchedPlayer\life - 10
					
					If touchedPlayer\life > 0 ; touched
						Net_SendMessage(5,touchedPlayer\life,touchedPlayer\id)
						Net_SendMessage(5,touchedPlayer\life,touchedPlayer\id,touchedPlayer\id)
					Else ; killed
						killerPlayer.player = Object.player(GetPlayer(b\id))
						
						killerPlayer\kills = killerPlayer\kills + 1
						touchedPlayer\deaths = touchedPlayer\deaths + 1						
						
						Net_SendMessage(6,touchedPlayer\id,killerPlayer\id)
						Net_SendMessage(6,touchedPlayer\id,killerPlayer\id,killerPlayer\id)
												
						Net_SendMessage(7,killerPlayer\kills+"/"+killerPlayer\deaths,killerPlayer\id)
						Net_SendMessage(7,killerPlayer\kills+"/"+killerPlayer\deaths,killerPlayer\id,killerPlayer\id)
						
						Net_SendMessage(7,touchedPlayer\kills+"/"+touchedPlayer\deaths,touchedPlayer\id)
						Net_SendMessage(7,touchedPlayer\kills+"/"+touchedPlayer\deaths,touchedPlayer\id,touchedPlayer\id)
						
						NewMessage(killerPlayer\name + " killed " + touchedPlayer\name)
						ResetPlayer(touchedPlayer\id)
					EndIf
				
				EndIf
			EndIf
			
			FreeEntity b\mesh
			Delete b
			
		ElseIf MilliSecs()-b\time > 2000
		
			FreeEntity b\mesh
			Delete b
			
		EndIf
	
	Next

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function NewMessage(msg$)

messageOffset = messageOffset + 1
	
	If messageOffset > messageDisplayNumber
	
		messageOffset = messageOffset - 1
		
		For i = 2 To messageDisplayNumber
			message(i-1) = message(i)		
		Next
		
		message(messageDisplayNumber) = msg
	
	Else
	
		message(messageOffset) = msg
	
	EndIf

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function DrawMessages()

Color 255,255,255

For i = 1 To messageOffset
	
		Text 0,(i-1)*15,message(i)	
	
	Next

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdateChat()

key = GetKey()

If key
		If key = 13
			If chatMessage <> localName + "> "
				For i = Len(localName + "> ") To Len(chatMessage)
					If Mid(chatMessage,i,1) <> " "
						Net_SendMessage(1,chatMessage)
						NewMessage(chatMessage)
						Exit
					EndIf
				Next
			EndIf
			chatMessage = localName + "> "
			chatMode = 0
		ElseIf key = 8 And Len(chatMessage) > Len ( localName + "> " )
			chatMessage = Left(chatMessage,Len(chatMessage)-1)
		ElseIf key > 31 And key < 127
			chatMessage = chatMessage + Chr(key)
		EndIf
	EndIf
	
	Color 255,255,255
	Rect 0,GraphicsHeight()-20,GraphicsWidth(),20,1
	
	Color 0,0,0
	Rect 0,GraphicsHeight()-20,GraphicsWidth(),20,0
	
	
	If MilliSecs()-chatMillisecs > 500
		chatCursor = Not chatCursor
		chatMillisecs = MilliSecs()
	EndIf
	
	If chatCursor
		Text 5,GraphicsHeight()-17,chatMessage + "|"
	Else
		Text 5,GraphicsHeight()-17,chatMessage
	EndIf

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function DrawScoreTable()

For p.player = Each player
		count = count + 1
	Next
	
	baseX = (GraphicsWidth()-350)/2
	baseY = (GraphicsHeight()-(35+20*count))/2

Color 0,0,0
	Rect baseX,baseY,350,35+20*count,1

Color 255,192,0
	Rect baseX,baseY,350,35+20*count,0

Text baseX+10,baseY+10,"Player          Kills     Deaths     Ping"
	Line baseX,baseY+25,baseX+349,baseY+25

For p.player = Each player
	
		Color 255,255,255
		If p\id = localID Then Color 255,100,100
	
		i = i + 1
		Text baseX+10,baseY+10+20*i,p\name
		Text baseX+157,baseY+10+20*i,p\kills,1,0
		Text baseX+240,baseY+10+20*i,p\deaths,1,0
		Text baseX+322,baseY+10+20*i,p\ping,1,0
	Next

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdateChaseCam(camera,player) ; thanks to jfk EO-11110 on bb forums for this function !
	PositionEntity camera,EntityX(player,1),EntityY(player,1),EntityZ(player,1)
	ResetEntity camera
	x#=EntityX(player)+Sin(-EntityYaw(player)+180)*x_dis#
	y#=EntityY(player)+y_dis#
	z#=EntityZ(player)+Cos(-EntityYaw(player)+180)*z_dis#
	obstacle=LinePick(EntityX(player),EntityY(player),EntityZ(player),(x-EntityX(player)),y_dis#,(z-EntityZ(player)),0.1)
	If obstacle=0
		new_x#=x
		new_y#=y
		new_z#=z
	Else
		new_x#=PickedX()
		new_y#=PickedY()
		new_z#=PickedZ()
	EndIf
	If bounce_cam=0
		PositionEntity camera,new_x,new_y,new_z
	Else
		x=old_x+((New_x-old_x)/bounce_div#)
		y=old_y+((New_y-old_y)/bounce_div#)
		z=old_z+((New_z-old_z)/bounce_div#)
		PositionEntity camera,x,y,z
	EndIf
	PointEntity camera,player
	TurnEntity camera,-20,0,0     ; if you want the player mesh more on the bottom of the screen
	old_x#=EntityX(camera)
	old_y#=EntityY(camera)
	old_z#=EntityZ(camera)
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function CreateScene()

texture = TextureCreate(128)
	
	ground = CreatePlane()
	EntityColor ground,150,150,150
	EntityTexture ground,texture
	
	cube = CreateCube():EntityColor cube,150,200,150
	ScaleEntity cube,5,5,5:PositionEntity cube,0,5,0
	EntityTexture cube,texture
	
	sphere = CreateSphere(16):EntityColor sphere,200,150,150
	ScaleEntity sphere,3,1,3:PositionEntity sphere,0,9.7,0
	
	platform = CreateCube():EntityColor platform,150,150,200
	ScaleEntity platform,3,1,10:PositionEntity platform,0,4.13,-13.15
	TurnEntity platform,-30,0,0
	EntityTexture platform,texture
	
	FreeTexture texture
	
	EntityType ground,1:EntityPickMode ground,2
	EntityType cube,1:EntityPickMode cube,2
	EntityType sphere,1:EntityPickMode sphere,2
	EntityType platform,1:EntityPickMode platform,2

light = CreateLight()
	TurnEntity light,30,70,0
	
	;; COLLISIONS
	Collisions 2,1,2,3 ; player to scene
	Collisions 2,2,1,3 ; player to player
	
	Collisions 3,1,2,1 ; bullet to scene
	Collisions 3,2,1,1 ; bullet to player
	
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function TextureCreate(size)
	texture = CreateTexture(size,size,9)
	SetBuffer TextureBuffer(texture)
	Color 255,255,255
	Rect 0,0,size,size,1
	Color 0,0,0
	Rect 0,0,size,size,0
	Line 0,0,size,size
	Line 0,size,size,0
	SetBuffer BackBuffer()
	Return texture
End Function

Changed text

Open file

SeedRnd MilliSecs()

Const gameLogicFPS = 60

Include "Hex8.bb"
Include "UDPNetwork_lib.bb"

Global localID
Global localName$ = Input("Enter your name : ")
If localName = "" Then localName = "player" + Rand(100,999)

Global localPlayerMesh

Type player
	Field id
	Field name$
	Field ping
	
	Field life
	Field kills
	Field deaths
	
	Field mesh
	Field r,g,b

Type bullet
	Field mesh
	Field angle#
	Field time
	Field id ; id of player who fired
End Type

; network init ----------------------------------------;
Global localMode = Net_StartInput() ; bring the library "console" to connect

Graphics3D 640,480,32,2
SetBuffer BackBuffer()

CreateScene()

Global camera = CreateCamera()
CameraRange camera,0.1,1000

; we send our color to the server
p.player = Object.player(GetPlayer(localID))
Net_SendMessage(3,p\r + "/" + p\g + "/" + p\b)

Global cR = p\r
Global cG = p\g
Global cB = p\b

; variables used to send our positions at a constant delay (saves bandwidth but makes a constant ping)
Global updatePosition = MilliSecs()
Global updateTick = 50

; chat
Global messageDisplayNumber = 10
Global messageOffset
Dim message$(messageDisplayNumber)

Global chatMode
Global chatMessage$ = localName + "> "
Global chatMillisecs = MilliSecs()
Global chatCursor

UpdateWorld()
		
		UpdateChaseCam(camera,localPlayerMesh)
		
		;; ---------------------------------------------------------------------------------------------;
		
	Next
	
	RenderWorld tweeningRate

Wend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Net_StopNetwork()

End

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdateNetwork()

End Select

Wend

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdateLocalPlayer()

; update our player
	p.player = Object.player(GetPlayer(localID)) ; get our player

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdatePlayers()

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function CreatePlayer(id,name$)

For p.player = Each player
		If p\id = id Then Return ; player already connected
	Next

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function ResetPlayer(id)

p.player = Object.player(GetPlayer(id))

p\life = 100

p\nextX = -20
	p\nextY = 1
	p\nextZ = -20
	p\nextYaw = -45

p\previousX = p\nextX
	p\previousY = p\nextY
	p\previousZ = p\nextZ
	p\previousYaw = p\nextYaw

PositionEntity p\mesh,p\nextX,p\nextY,p\nextZ
	RotateEntity p\mesh,0,p\nextYaw,0
	ResetEntity p\mesh
	
	p\currentY = p\nextY
	
	p\previousTime = MilliSecs()
	p\nextTime = MilliSecs()+1

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function GetPlayer(id)

For p.player = Each player
		If p\id = id
			Return Handle(p)					
		EndIf
	Next
	
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function DrawPlayersNames()

Next
	
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function CreateBullet(id)

p.player = Object.player(GetPlayer(id))

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdateBullets()

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function NewMessage(msg$)

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function DrawMessages()

Color 255,255,255

For i = 1 To messageOffset
		loc = Instr (message(i), "¿",1)
		If loc > 1 Then
			colorMessage$ = Mid$(message(i), 1, Len(message(i)) - 7 )
			Hex$ = Right$(message(i),6)		
			Set_Color_Hex(Hex$)
			Text 0,(i-1)*15,colorMessage$
		Else 
			Color 255,255,255
			Text 0,(i-1)*15,message(i)
		End If	
	Next

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function UpdateChat()

key = GetKey()

If key
		If key = 13
			If chatMessage <> localName + "> "
				For i = Len(localName + "> ") To Len(chatMessage)
					If Mid(chatMessage,i,1) <> " "
						chatColor$ = RGB_To_TriHex(cR,cG,cB)
						chatMessage = chatMessage + "¿" + chatColor$					
						Net_SendMessage(1,chatMessage)
						NewMessage(chatMessage)
						Exit
					EndIf
				Next
			EndIf
			chatMessage = localName + "> "
			chatMode = 0
		ElseIf key = 8 And Len(chatMessage) > Len ( localName + "> " )
			chatMessage = Left(chatMessage,Len(chatMessage)-1)
		ElseIf key > 31 And key < 127
			chatMessage = chatMessage + Chr(key)
		EndIf
	EndIf
	
	Color 255,255,255
	Rect 0,GraphicsHeight()-20,GraphicsWidth(),20,1
	
	Color 0,0,0
	Rect 0,GraphicsHeight()-20,GraphicsWidth(),20,0
	
	
	If MilliSecs()-chatMillisecs > 500
		chatCursor = Not chatCursor
		chatMillisecs = MilliSecs()
	EndIf
	
	If chatCursor
		Text 5,GraphicsHeight()-17,chatMessage + "|"
	Else
		Text 5,GraphicsHeight()-17,chatMessage
	EndIf

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function DrawScoreTable()

For p.player = Each player
		count = count + 1
	Next
	
	baseX = (GraphicsWidth()-350)/2
	baseY = (GraphicsHeight()-(35+20*count))/2

Color 0,0,0
	Rect baseX,baseY,350,35+20*count,1

Color 255,192,0
	Rect baseX,baseY,350,35+20*count,0

Text baseX+10,baseY+10,"Player          Kills     Deaths     Ping"
	Line baseX,baseY+25,baseX+349,baseY+25

End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function CreateScene()