So i had it working for a while, then i let a friend rewrite a few lines of code to get chat working, and suddenly players are no longer able to see each other.
This is based off the cube example.
Any help is appreciated.
Server:
set window position 0,0
Global joinMessage$
joinMessage$ = ""
Global players$
Global getMessage$
global name$
global rk
global a$ as string
global clearPrompt as integer
global promptFlag as integer
global dim message$(0) as string
global messageCount as integer
textPosY = 0
`Input "Enter Maximum of Players : ",players$
`Print "Maximum of Players : "+players$
`Print ""
`players$=(3200)
Input "Server Name : ",name$
set window title "Server "+name$
`net host val 3200
net host 3200
net set port 22101
clear entry buffer
cls
` Constants --------------------------------------
#constant MAXIMUM_PLAYERS 3200
#constant MESSAGE_ID_NAME 0
#constant MESSAGE_ID_GENERAL 1 : ` Contains just player data
#constant MESSAGE_ID_GENERALFULL 2 : ` Contains player numbers and player data
#constant MESSAGE_ID_PLAYERJOINED 3
#constant MESSAGE_ID_PLAYERQUIT 4
#constant MESSAGE_CHAT_ID 5
#constant FLAG_UP 1
#constant FLAG_DOWN 2
#constant FLAG_LEFT 4
#constant FLAG_RIGHT 8
` ------------------------------------------------
` Types ------------------------------------------
type player_data
exist as boolean
active as boolean
name as string
x as float
z as float
realx as float
realz as float
angle as float
key_up as boolean
key_down as boolean
key_left as boolean
key_right as boolean
endtype
` ------------------------------------------------
` Variables --------------------------------------
global dim player(MAXIMUM_PLAYERS) as player_data
global MOUSE_LBM_PRESSED as boolean
` ------------------------------------------------
sync off
autocam off
remstart
result = net host(MAXIMUM_PLAYERS)
net set port 22101
if not result
print "Could not start server: "+chr$(34)+net get error()+chr$(34)+"."
print "Press any key to exit."
wait key
end
endif
remend
make matrix 1, 1000, 1000, 10, 10
position camera 500, 1000, 500
point camera 500, 0, 500
backdrop on
color backdrop 0
sync on
sync rate 60
do
text 320,screen height()-90, "Players Online: "+str$(net get player amount())+" player(s) connected."
text 320,screen height()-75, "Maximum Players: "+str$(MAXIMUM_PLAYERS)
text 320,screen height()-60, "FPS: "+str$(screen fps())
for i=1 to 9999
If net player connected(i)=1
text 400,textPosY-80+10,"Player(s) "+str$(i)+" Connected."
endif
next i
newPlayer#=net player joined()
If newPlayer#=>0
getMessage$=joinMessage$
net put string getMessage$
net send newPlayer#
newPlayer#=0
endif
If net get message()=1
getMessage$=net get string()
net put string getMessage$
net send all
inc maxCount
array insert at bottom message$(0)
message$(maxCount)=getMessage$
inc tCount
messageFlag = 1
endif
if keystate(27)=1 and clearPrompt = 0
clearPrompt = 1
promptFlag = 1
else
if keystate(27)=0
clearPrompt= 0
endif
endif
if promptFlag = 0
clearText = 1
a$ = ""
clear entry buffer
endif
if promptFlag = 1
if commandKeyFlag = 0
if a$= "]"
clear entry buffer
commandKeyFlag = 1
endif
endif
if returnkey()=1 and rk = 0
rk = 1
serverMessage$="[Server]<<"+name$+">>"+a$
net put string serverMessage$
net send all
inc maxCount
array insert at bottom message$(0)
message$(maxCount)="[Server]<<"+name$+">>"+a$
clear entry buffer
inc tCount
if tCount > 17
textPosY = textPosY -15
endif
commandKeyFlag = 0
promptFlag = 0
else
if returnkey()=0
rk = 0
endif
endif
endif
if maxCount > 0
if tCount > 17
if messageFlag = 1 then textPosY = textPosY -15
messageFlag = 0
endif
for i =1 to maxCount
text 10,textPosY+15*i,message$(i)
next i
endif
set text opaque
if promptFlag = 1
a$=entry$(1)
text 10,screen height()-30,"Enter Message: "+a$
endif
HandleNetwork()
HandleMouseOvers()
HandleMovement()
sync
loop
function HandleMovement()
for x = 1 to MAXIMUM_PLAYERS
if player(x).exist
if player(x).key_up
player(x).realx = player(x).realx + sin(player(x).angle)
player(x).realz = player(x).realz + cos(player(x).angle)
endif
if player(x).key_down
player(x).realx = player(x).realx - sin(player(x).angle)
player(x).realz = player(x).realz - cos(player(x).angle)
endif
if player(x).key_left then player(x).angle = wrapvalue(player(x).angle-1)
if player(x).key_right then player(x).angle = wrapvalue(player(x).angle+1)
distx# = abs(player(x).realx-player(x).x)
speedx# = distx# / 10.0
distz# = abs(player(x).realz-player(x).z)
speedz# = distz# / 10.0
angle# = atanfull(player(x).realx-player(x).x, player(x).realz-player(x).z)
player(x).x = player(x).x + (sin(angle#)*speedx#)
player(x).z = player(x).z + (cos(angle#)*speedz#)
yrotate object x+10, player(x).angle
position object x+10, player(x).x, 0, player(x).z
endif
next x
endfunction
function HandleMouseOvers()
result = pick object(mousex(), mousey(), 10, 30)
if result = 0 then exitfunction
if result > 9 and result < 20
text mousex(), mousey()-13, player(result-10).name
`text mousex(), mousey()-28, player(playerNum).exist
endif
endfunction
function HandleNetwork()
` Player joining ------------
` ---------------------------
result = net player joined()
while result > 0
load object "Media/Nova.x",playerNum+10+result
player(result).exist = 1
rem send states & positions of players
net put byte MESSAGE_ID_GENERALFULL
for x = 1 to MAXIMUM_PLAYERS
if net player connected(x)
if player(x).active
net put byte x
net put string player(x).name
net put float player(x).realx
net put float player(x).realz
net put byte player(x).angle / 1.411
net put byte GetFlags(x)
endif
endif
next x
net send result
result = net player joined()
endwhile
` Player leaving -------------
` ----------------------------
result = net player left()
while result > 0
ResetPlayer(result)
net put byte MESSAGE_ID_PLAYERQUIT
net put byte result
net send all
result = net player left()
endwhile
` Message processing ---------
` ----------------------------
`get net message
while net get message()
playerNum = net message from()
select net get byte()
case MESSAGE_ID_NAME
playerNum = net message from()
player(playerNum).name = net get string()
player(playerNum).active = 1
`color object playerNum+10, rgb(0, 255, 0)
` Notify other players
net put byte MESSAGE_ID_PLAYERJOINED
net put byte playerNum
net put string player(playerNum).name
for x = 1 to MAXIMUM_PLAYERS
if net player connected(x)
if x <> playerNum
net send x, 1
endif
endif
next x
` Clear message data
net send 0
endcase
case MESSAGE_ID_GENERAL
player(playerNum).realx = net get float()
player(playerNum).realz = net get float()
player(playerNum).angle = net get byte() * 1.411
ApplyFlags(playerNum, net get byte())
ApplyPosition(playerNum)
` Forward message on
net put byte MESSAGE_ID_GENERAL
net put byte playerNum
net put float player(playerNum).realx
net put float player(playerNum).realz
net put byte player(playerNum).angle / 1.411
net put byte GetFlags(playerNum)
SendAllExcept(playerNum)
endcase
case MESSAGE_CHAT_ID
UserMsg as String
UserMsg = Net get string()
for x = 1 to MAXIMUM_PLAYERS
if net player connected(x)
if x <> playerNum
endif
net put string player(x).name+UserMsg
endif
next x
`set window title UserMsg
`net send player(playerNum).name+UserMsg
`net send x
Net Send All
endcase
endselect
get net message
endwhile
endfunction
function ResetPlayer(playerNum as integer)
if object exist(playerNum+10) then delete object playerNum+10
player(playerNum).exist = 0
player(playerNum).active = 0
player(playerNum).name = ": "
player(playerNum).x = 0
player(playerNum).z = 0
player(playerNum).realx = 0
player(playerNum).realz = 0
player(playerNum).angle = 0
player(playerNum).key_up = 0
player(playerNum).key_down = 0
player(playerNum).key_left = 0
player(playerNum).key_right = 0
endfunction
function SendAllExcept(except as integer)
for x = 1 to MAXIMUM_PLAYERS
if net player connected(x)
if x <> except
net send x,1
endif
endif
next x
net send 0
endfunction
function GetFlags(playerNum as integer)
local states as byte
if player(playerNum).key_up then states = states || FLAG_UP
if player(playerNum).key_down then states = states|| FLAG_DOWN
if player(playerNum).key_left then states = states || FLAG_LEFT
if player(playerNum).key_right then states = states || FLAG_RIGHT
endfunction states
function ApplyFlags(playerNum as integer, flags as integer)
if flags && FLAG_UP
player(playerNum).key_up = 1
else
player(playerNum).key_up = 0
endif
if flags && FLAG_DOWN
player(playerNum).key_down = 1
else
player(playerNum).key_down = 0
endif
if flags && FLAG_LEFT
player(playerNum).key_left = 1
else
player(playerNum).key_left = 0
endif
if flags && FLAG_RIGHT
player(playerNum).key_right = 1
else
player(playerNum).key_right = 0
endif
endfunction
function ApplyPosition(playerNum as integer)
position object playerNum+10+result, player(playerNum).x, 0, player(playerNum).z
yrotate object playerNum+10+result, player(playerNum).angle
endfunction
Client:
Global name$ as string
global a$ as string
global dim message$(0) as string
global clearPrompt as integer
global promptFlag as integer
global rk
global gk as integer
global RCamRange as integer
#constant SENDGAP 0.2
#constant MAXIMUM_PLAYERS 3200
#constant MESSAGE_ID_NAME 0
#constant MESSAGE_ID_CLANTAG 9
#constant MESSAGE_ID_GENERAL 1 : ` Contains just player data
#constant MESSAGE_ID_GENERALFULL 2 : ` Contains player numbers and player data
#constant MESSAGE_ID_PLAYERJOINED 3
#constant MESSAGE_ID_PLAYERQUIT 4
#constant FLAG_UP 1
#constant FLAG_DOWN 2
#constant FLAG_LEFT 4
#constant FLAG_RIGHT 8
#Constant FLAG_ROLL_LEFT 16
#Constant FLAG_ROLL_RIGHT 32
#Constant FLAG_PITCH_UP 64
#Constant FLAG_PITCH_DOWN 128
#constant MESSAGE_CHAT_ID 5
` Constants -----------------------------------
#constant MAXIMUM_TEXTLINE_AMOUNT 30
#constant MESSAGE_ID_FAIL 0
#constant MESSAGE_ID_SUCCESS 1
#constant MESSAGE_ID_REGISTER 0
#constant MESSAGE_ID_LOGIN 1
#constant MESSAGE_ID_CHAT 2
#constant MESSAGE_ID_NEWCLIENT 4
#constant MESSAGE_ID_CLIENTLEFT 5
` Variables -----------------------------------
dim TextLines(MAXIMUM_TEXTLINE_AMOUNT) as string
global CURRENT_TEXTLINE_AMOUNT as integer
global CURRENT_TEXT_ENTRY as string
global KEYDOWN_RETURN as boolean
global EnterKey as Byte
global ChatInUse as Byte
global LastChatMsg as String
global ChatKey as String
global ChatInputTimer as Integer
global ChatInputStr as String
` Types ------------------------------------------
type player_data
exist as boolean
name as string
CLANTAG as string
x as float
Y as float
z as float
realx as float
realz as float
angle as float
key_up as boolean
key_down as boolean
key_left as boolean
key_right as boolean
endtype
Type GameType
PvE as string
PvP as string
Normal as string
RP as string
ClanBattle as string
EndType
type Planet
object as integer
filename as string
name as string
population as integer
size as integer
race as string
endtype
` Variables --------------------------------------
global LASTSENT as integer
global NAME as string
Global CLANTAG as string
global dim player(MAXIMUM_PLAYERS) as player_data
global lastFlags as byte
global toSend
Global MaxPlanet = 9
dim Planet(MaxPlanet) as Planet
` ------------------------------------------------
sync off
autocam off
`ip$="24.113.151.115"
`ip$="127.0.0.1"
ip$="192.168.1.102"
result = net connect(ip$)
net set port 22101
if not result
print "Could not connect: "+chr$(34)+net get error()+chr$(34)+"."
print "Press any key to exit."
wait key
end
endif
dWidth$ as integer
dHeight$ as integer
input "Desktop Width: ",dWidth$
input "Desktop Height: ",dHeight$
width = dWidth$
height = dHeight$
set display mode dWidth$, dHeight$,32
if dWidth$=>1920
maximize window
endif
textPosY = 600
load image "Media/login2.png",90111
paste image 90111,0,0
AstAmount as integer
PlanetAmount as integer
SET CURSOR 1240,690
input " ", NAME
SET CURSOR 1235,720
input " ", CLANTAG
RCamRange=2500
`input "Clan/Fleet Tag: ",CLANTAG
`input "Amount of Asteroids: ",AstAmount
`input "Amount of Planets: ",PlanetAmount
AstAmount=0
cls
CenterBox(screen width()/2, screen height()/2, 135, 30, "LOADING...")
net put byte MESSAGE_ID_NAME
net put byte MESSAGE_ID_CLANTAG
net put string NAME
net put string CLANTAG
net send
LoadTextures()
phy start physx(),1,physx()
IMP START
phy set gravity 0,0,0
color ambient light rgb(64,64,64)
SET IMAGE COLORKEY 0,0,0
color backdrop 0,0
set normalization on
set ambient light 10
hide light 0
make light 100
color ambient light rgb(255,245,110)
position light 100,5000,0,15000
set light range 100,20000
set point light 100,5000,0,15000
make object sphere 100,5000
position object 100,5000,0,15000
set object light 100,0
sunimg = find free image (50500,50550)
load image "Media/51.png",sunimg
texture object 100,sunimg
set object specular 100,rgb(255,245,110)
backdrop on
color backdrop 0
set camera fov 45
set camera range 1,5280000
set global collision on
SP_Cube=find free object(1500,15000)
make object cube SP_Cube,10
Position Object SP_Cube,0,0,-1500
hide object SP_Cube
set object collision off SP_Cube
PlayerObj=10
load object "Media/Nova.x",10,5
NVLM = find free image (5000,5500)
NVCM = find free image (5001,5500)
load image "Media/federation_nova_LM.png",NVLM
load image "Media/federation_nova.tga",NVCM
texture object 10,0,NVCM
texture object 10,1,NVLM
set blend mapping on 10,1,NVLM,3,7
Load Effect "FX/relief_mapping.fx",125,0
Load Effect "FX/PixelLighting.fx",126,0
set object specular 10,rgb(255,192,128)
set object specular power 10,6
SET REFLECTION SHADING ON 10
position object 10,object position x(SP_Cube),object position y(SP_Cube),object position z(SP_Cube)
set object cull 10,1
SET SHADOW SHADING ON 10
make camera 6
set camera range 6,1,15000
set camera fov 6,60
backdrop on 6
color backdrop 6,rgb(128,128,128)
AIObj = find free object (125000,130000)
load object "Media/Sabre.x",AIObj
scale object AIObj,35,35,35
` if FILE EXIST("Sabre Class Collider.bc2")=1
`phy load rigid body dynamic mesh 125000,"Sabre Class Collider.bc2"
`else
`phy make rigid body dynamic mesh 125000,"Sabre Class Collider.bc2"
`print "Creating Ship Physics File..."
`endif
position object AIObj, 0,0,1500
`CreatePlanets(950,0,0,5000)
gosub draw_asteroids:
set object collision on 10
set object collision to polygons 10
if FILE EXIST("Nova Class Collider.bc2")=1
phy load rigid body dynamic mesh 10,"Nova Class Collider.bc2"
else
phy make rigid body dynamic mesh 10,"Nova Class Collider.bc2"
print "Creating Ship Physics File..."
endif
phy set rigid body mass 10,124000
`phy set rigid body mass AIObj,128000
Health=100
health_time =timer()
healthRecovery_delay =5000
objnum = 1
Lvl=1
PlayerExp=0
XPMod#=1.00
VIPXPMod#=1.34
Xp=0
Txp=0
TotalXp=0
dim ChatArray(0) as String
global TotalChatSpaces as Integer
TotalChatSpaces = 20
gosub SetUp_Bloom:
sync on
sync rate 60
do
update_time=timer()
If net get message()=1
getMessage$=net get string()
messageFlag = 1
inc maxCount
array insert at bottom message$(0)
if messageFlag = 1 then message$(maxCount)= getMessage$
if messageFlag = 2 then message$(maxCount)="<<"+NAME+">>"+a$
inc tCount
if tCount > 17 then textPosY = textPosY -15
messageFlag = 0
endif
if keystate(27)=1 and clearPrompt = 0
clearPrompt = 1
promptFlag = 1
else
if keystate(27)=0
clearPrompt= 0
endif
endif
if promptFlag = 0
clearText = 1
a$ = ""
clear entry buffer
endif
if promptFlag = 1
if commandKeyFlag = 0
if a$= "]"
clear entry buffer
commandKeyFlag = 1
endif
endif
if returnkey()=1 and rk = 0
rk = 1
clientMessage$="["+CLANTAG+"]"+NAME+": "+a$
net put string clientMessage$
net send
messageFlag = 2
clear entry buffer
commandKeyFlag = 0
promptFlag = 0
else
if returnkey()=0
rk = 0
endif
endif
endif
if maxCount > 0
for i =1 to maxCount
text 10,textPosY+15*i,message$(i)
next i
endif
`set text opaque
if promptFlag = 1
a$=entry$(1)
text 10,screen height()-30,"Enter Message: "+a$
endif
text 320,screen height()-60, str$(screen fps())
box 30 * xMulti,27 * yMulti,31+Health * xMulti,35 * yMulti,rgb(175,0,0),rgb(175,0,0),rgb(200,0,0),rgb(200,0,0)
Health$="Hull: "+str$(Health)+"%" : text 5,5,Health$
if keystate(2)=1
wait 250
Create_Klingon_Neghvar()
Endif
If keystate(3)=1
wait 250
Create_Cardassian_Galor()
Endif
if keystate(4)=1
wait 250
Create_Borg_Cube()
Endif
if keystate(5)=1
wait 250
Create_Federation_Galaxy()
Endif
point object 100,camera position x(),camera position y(),camera position z()
`phy add rigid body local force 125000,0,0,.015,PhyMode
if health=<0
CenterBox(screen width()/2, screen height()/2, 350, 26, "Your ship has been destroyed...")
endif
`if keystate(90)=1
` inc PlayerExp,1
` inc TotalXp,1
`Endif
remstart
Lv$="Level: "+str$(Lvl) : text 5,50,Lv$
GainedXp$="Xp: "+str$(PlayerExp) : text 5,75,GainedXp$
NeededXp$="Xp needed: "+str$(Xp) : text 5,100,NeededXp$
TotalXp$="Total XP: "+str$(TotalXp) : text 5,125,TotalXp$
if PlayerExp=Xp
Lvl=Lvl+1
dec PlayerExp,PlayerExp
Xp=Xp*XPMod#
Txp=PlayerExp
endif
remend
fps=screen fps()
if fps>0
phy set fixed timing (60.0/fps)
endif
` HandleControls()
position camera object position x(10),object position y(10),object position z(10)
if mouseclick()=0
xrotate camera camera angle x()+mousemovey()*0.25
yrotate camera camera angle y()+mousemovex()*0.25
if camera angle x()>90 then xrotate camera 90
if camera angle x()<-90 then xrotate camera -90
endif
if mouseclick()>0 then CamDis#=CamDis#-mousemovey()*0.25
CamDis#=CamDis#+mousemovez()*0.1
if CamDis#>-2 then CamDis#=-2
if CamDis#<-5000 then CamDis#=-5000
move camera CamDis#
`if camera position y()<-90 then position camera camera position x(),-90,camera position z()
mousemovex()=0
mousemovey()=0
`text 0,200,"Distance: "+str$(dist2object(1,98360))
text 0,250,"Polygons Onscreen: "+str$(statistic(1))
gosub UpDate_Bloom
set camera to image 6,6995,150,150,1,20
paste image 6995,screen width()-150, screen height()-150
position camera 6,object position x(10),object position y(10)+RCamRange,object position z(10)
point camera 6,object position x(10),object position y(10),object position z(10)
if keystate(88)=1
screenshot = 0
repeat
INC screenshot
until FILE EXIST("Screenshots/Screenshot-" + STR$(screenshot) + ".png") <> 1
img=find free image (100000,190000)
GET IMAGE img, 0, 0, SCREEN WIDTH(), SCREEN HEIGHT(), 3
SAVE IMAGE "Screenshots/Screenshot-" + STR$(screenshot) + ".png", img
DELETE IMAGE img
endif
HandleControls()
if net connected()
HandleNetwork()
else
CenterBox(screen width()/2, screen height()/2, 200, 26, "Connection to server lost.")
endif
HandleMovement()
AIGoto()
Phy Update
sync
loop
UpDate_Bloom:
position camera bloom_cam,camera position x(),camera position y(),camera position z()
rotate camera bloom_cam,camera angle x(),camera angle y(),camera angle z()
dis#=(sh#/2.0)/tan(fov/2.0)
position object bloom_obj+2,camera position x(),camera position y(),camera position z()
rotate object bloom_obj+2,camera angle x(),camera angle y(),camera angle z()
move object bloom_obj+2,dis#/400
move object up bloom_obj+2,0.01
move object left bloom_obj+2,0.01
scale object bloom_obj+2,101,101,0
return
SetUp_Bloom:
fov=60
sw#=screen width()
sh#=screen height()
dis#=(sh#/2)/tan(fov/2)
brightness#=0.25
blurWidth#=0.012
bloom_cam=3
bloom_img=50
bloom_obj=50
make camera bloom_cam
set camera to image bloom_cam,bloom_img,256,256
set camera range bloom_cam,3,5280000
set camera fov bloom_cam,fov
color backdrop bloom_cam,0
make object plain bloom_obj,sw#/100,sh#/100
load effect "FX/Bloom.fx",bloom_obj,0
texture object bloom_obj,0,bloom_img
set object effect bloom_obj,bloom_obj
position object bloom_obj,0,-10000,dis#/100
make camera bloom_cam+1
set camera to image bloom_cam+1,bloom_img+1,256,256
set camera range bloom_cam+1,0.1,5280000
set camera fov bloom_cam+1,fov
position camera bloom_cam+1,0,-10000,0
make object plain bloom_obj+1,sw#/100,sh#/100
load effect "FX/Bloom.fx",bloom_obj+1,0
texture object bloom_obj+1,bloom_img+1
set object effect bloom_obj+1,bloom_obj+1
position object bloom_obj+1,500,-10000,dis#/100
make camera bloom_cam+2
set camera to image bloom_cam+2,bloom_img+2,256,256
set camera range bloom_cam+2,0.1,5280000
set camera fov bloom_cam+2,fov
position camera bloom_cam+2,500,-10000,0
make object plain bloom_obj+2,-sw#/(400),sh#/(400)
load effect "FX/Bloom.fx",bloom_obj+2,0
texture object bloom_obj+2,0,bloom_img+2
set object effect bloom_obj+2,bloom_obj+2
ghost object on bloom_obj+2
set effect technique bloom_obj,"Tone"
set effect technique bloom_obj+1,"blurpassX"
set effect technique bloom_obj+2,"blurpassY"
set effect constant float bloom_obj+1,"Brightness",brightness#
set effect constant float bloom_obj+1,"blurWidth",blurWidth#
set effect constant float bloom_obj+2,"Brightness",brightness#
set effect constant float bloom_obj+2,"blurWidth",blurWidth#
return
function CameraFollowObject(Camera,Object,FollowX#,FollowY#,FollowZ#,XAng#,Yang#,ZAng#)
xpos#=object position x(Object)+(FollowZ#*cos(object angle x(Object))+FollowY#*sin(object angle x(Object)))*sin(object angle y(Object))+FollowX#*cos(object angle y(Object))
ypos#=object position y(Object)-FollowZ#*sin(object angle x(Object))+FollowY#*cos(object angle x(Object))
zpos#=object position z(Object)+(FollowZ#*cos(object angle x(Object))+FollowY#*sin(object angle x(Object)))*cos(object angle y(Object))-FollowX#*sin(object angle y(Object))
position camera Camera,xpos#,ypos#,zpos#
set camera to object orientation Camera,Object
pitch camera down Camera,XAng#
turn camera right Camera,YAng#
roll camera left Camera,ZAng#
endfunction
function third_person_camera(obj#,cam#,dist#,height#)
rem this sets camera's x angle back to 0
pitch camera up height#
rem positions camera in object position
position camera cam#,object position x(obj#),object position y(obj#),object position z(obj#)
rem rotate camera to object angles
set camera to object orientation cam#,obj#
rem tilt camera
pitch camera down height#
rem move camera at a distance away
move camera -dist#
endfunction
function xMultiplier(x,basex)
xMulti = x / basex
endfunction xMulti
function yMultiplier(y,basey)
yMulti = y / basey
endfunction yMulti
draw_starfield:
base=600000
spread=1000
stars=1000
dist=-50
cx#=camera position x()
cy#=camera position y()
cz#=camera position z()
pick screen screen width()/2,screen height()/2,dist
sx#=get pick vector x()
sy#=get pick vector y()
sz#=get pick vector z()
if object exist(600000)=0
make object plane 600000,.5,.5
for i=600001 to 600000+stars
clone object i,600000
set object light i,0
set object collision off i
position object i,rnd(spread*2)-spread,rnd(spread*2)-spread,camera position z()+rnd(dist)
next i
endif
for i=600000 to 600000+stars
if object in screen(i)=0
position object i,cx#+sx#+(rnd(spread)-(spread/2)),cy#+sy#+(rnd(spread)-(spread/2)),cz#+sz#+(rnd(spread*2)-(spread/2))
endif
dist#=distance(cx#,cy#,cz#,i)
scale object i,.1*(dist#*2),.1*(dist#*2),2000*speed#
set object to object orientation i,1
move object i,speed#*-1.2
next i
return
function distance(x1#,y1#,z1#,obj)
x2#=object position x(obj)
y2#=object position y(obj)
z2#=object position z(obj)
dist#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#)+(z1#-z2#)*(z1#-z2#))
endfunction dist#
function dist2object(obj1,obj2)
x2#=object position x(obj2)
y2#=object position y(obj2)
z2#=object position z(obj2)
x1#=object position x(obj1)
y1#=object position y(obj1)
z1#=object position z(obj1)
dist2object#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#)+(z1#-z2#)*(z1#-z2#))
endfunction dist2object#
function camera_follow(cam as integer,object as integer,maxdist# as float,smoothing as integer)
camx#=camera position x(cam)
camy#=camera position y(cam)
camz#=camera position z(cam)
objx#=object position x(object)
objy#=object position y(object)
objz#=object position z(object)
dist#=abs(sqrt(((camx#-objx#)^2)+((camy#-objy#)^2)+((camz#-objz#)^2)))
goalx#=(objx#+(sin(atanfull((camx#-objx#),(camz#-objz#)))*maxdist#))
goalz#=(objz#+(cos(atanfull((camx#-objx#),(camz#-objz#)))*maxdist#))
if dist#>maxdist#
camx#=curvevalue(goalx#,camx#,smoothing)
camz#=curvevalue(goalz#,camz#,smoothing)
endif
camy#=curvevalue(objy#+((object size y(object)/5)*6),camy#,smoothing)
point camera cam,objx#,objy#,objz#
position camera cam,camx#,camy#,camz#
endfunction
remstart
function HandleInput()
newData$ = entry$()
if newData$ <> ""
CURRENT_TEXT_ENTRY = CURRENT_TEXT_ENTRY + newData$
clear entry buffer
lenHigh = len(CURRENT_TEXT_ENTRY)
lenLow = lenHigh - len(newData$)
for x = lenHigh to lenLow step -1
char = asc(mid$(CURRENT_TEXT_ENTRY, x))
if char = 8
CURRENT_TEXT_ENTRY = left$(CURRENT_TEXT_ENTRY, x-2) + right$(CURRENT_TEXT_ENTRY, len(CURRENT_TEXT_ENTRY)-x)
else
if char < 32
CURRENT_TEXT_ENTRY = left$(CURRENT_TEXT_ENTRY, x-1) + right$(CURRENT_TEXT_ENTRY, len(CURRENT_TEXT_ENTRY)-x)
endif
endif
next x
DrawEntry()
endif
if returnkey()
if not KEYDOWN_RETURN
if CURRENT_TEXT_ENTRY <> ""
net put byte MESSAGE_ID_CHAT
net put string CURRENT_TEXT_ENTRY
net send
CURRENT_TEXT_ENTRY = ""
DrawEntry()
endif
KEYDOWN_RETURN = 1
endif
else
if KEYDOWN_RETURN
KEYDOWN_RETURN = 0
endif
endif
endfunction
remend
function XCenterPoint(x1#,x2#)
X3# =((X1# + X2#)/2)
endfunction X3#
function yCenterPoint(y1#,y2#)
Y3# =((Y1# + Y2#)/2)
endfunction Y3#
function zCenterPoint(Z1#,Z2#)
Z3# =((Z1# + Z2#)/2)
endfunction Z3#
//All your chat functions.
function Chat()
ChatKeys()
endfunction
Function ChatGUI()
ChatWindowGUI(10,screen height()-200,400,150)
Endfunction
function ChatWindowGUI(PosX as Integer,PosY as Integer,SizeX as Integer,SizeY as Integer)
text PosX,PosY-15,"General Chat"
//if Chat is opened
if ChatInUse =2
box PosX,PosY,PosX+SizeX,PosY+SizeY,rgb(0,0,0),rgb(50,50,50),rgb(0,0,0),rgb(50,50,50)
box PosX,PosY+SizeY,PosX+SizeX,PosY+SizeY+20,rgb(50,50,50),rgb(50,50,50),rgb(50,50,50),rgb(50,50,50)
line PosX,PosY+SizeY,PosX,PosY+SizeY+20
line PosX+SizeX,PosY+SizeY,PosX+SizeX,PosY+SizeY+20
line PosX,PosY+SizeY+20,PosX+SizeX,PosY+SizeY+20
ChatInput(PosX+4,PosY+SizeY)
endif
if ChatInUse = 3
ChatSubmitMsg(LastChatMsg)
Net Put Byte 5
Net Put String player(x).name+LastChatMsg
LastChatMsg = player(x).name+": "
net send
endif
line PosX,PosY,PosX+SizeX,PosY
line PosX,PosY,PosX,PosY+SizeY
line PosX+SizeX,PosY,PosX+SizeX,PosY+SizeY
Line PosX,PosY+SizeY,PosX+SizeX,PosY+SizeY
ChatDisplayHistoryText(PosX+3,PosY+SizeY)
endfunction
function ChatKeys()
if EnterKey = 3 then EnterKey = 0
if EnterKey = 2 and returnkey()=0 then EnterKey = 3
if EnterKey = 1 then EnterKey = 2
if EnterKey = 0 and returnkey()=1 then EnterKey = 1
if ChatInuse = 1 and EnterKey > 1 then ChatInuse = 2
if EnterKey = 1 and ChatInUse = 0 then ChatInuse = 1
if ChatInUse = 3 then ChatInuse = 0
if EnterKey = 1 and ChatInuse = 2 then ChatInuse = 3
endfunction
function ChatInput(PosX as Integer,PosY as Integer)
ChatKey = entry$(0)
if ChatInputTimer < timer()
ChatInputTimer = timer()+100
if len(ChatInputStr)>0 then ChatInputStr = "" else ChatInputStr = "|"
endif
if returnkey()=0 and len(ChatKey) >0 and keystate(14)=0
LastChatMsg = LastChatMsg + ChatKey
clear entry buffer
endif
//Backspacing..
if len(ChatKey)>0 and keystate(14)=1
lastChatMsg = left$(LastChatMsg,len(LastChatMsg)-1)
clear entry buffer
endif
text PosX,PosY,player(x).name+": "+LastChatMsg+ChatInputStr
endfunction
function ChatSubmitMsg(Txt as String)
//Move all chat array 1 index forward..
a as integer
dim ChatArray(array count(ChatArray(0))+1) as String
for a = Array count(ChatArray(0))-1 to 1 step -1
ChatArray(a) = ChatArray(a-1)
next a
ChatArray(0) = txt
endfunction
function ChatDisplayHistoryText(PosX as Integer,PosY as Integer)
for a=0 to 10
if a <= Array count(ChatArray(0))-1 then text PosX,PosY-(15*a)-15,ChatArray(a)
next a
endfunction
Function Update0030Loop()
set effect technique 1,"Black"
sync mask 2^1
sync
set effect technique 1,"Cubemap"
sync mask 2^0
`sync
endfunction
Function Update0030BeforeLoop()
load effect "FX/EnvironmentBump.fx",1,0
load image "Media/Floor.dds",1
load image "Media/Floor_n.dds",2
load image "Media/Cube0.dds",3,2
make camera 1
set camera to image 1,5,512,512
set camera fov 1,45
backdrop on 1
color backdrop 1,rgb(0,0,0)
load effect "FX/Light Scattering.fx",3,0
make object plain 5,2,2,1
texture object 5,5
set object effect 5,3
set object mask 5,2^0
endfunction
draw_asteroids:
Ast_base=880000
asteroids=AstAmount
Ast_spread=2
Ast_dist=1500
cx#=camera position x()
cy#=camera position y()
cz#=camera position z()
pick screen screen width()/2,screen height()/2,Ast_dist
sx#=get pick vector x()
sy#=get pick vector y()
sz#=get pick vector z()
CPX = Camera Position X()
CPY = Camera Position Y()
CPZ = Camera Position Z()
if object exist(880000)=0
load object "Media/AST_03.X",880000
`load image "Media/AST5.BMP",880000
`texture object 880000,880000
set object light 880000,0
if FILE EXIST("Asteroid-Collider.bc2")=0
phy make rigid body dynamic mesh 880000,"Asteroid-Collider.bc2"
print "Creating Asteroid Physics File..."
endif
hide object 880000
for i=880001 to 880000+asteroids
clone object i,880000,1
position object i,Ast_spread+rnd(Ast_spread*1000),Ast_spread+rnd(Ast_spread*1000),Ast_spread+rnd(Ast_spread*1000)
ROTATE OBJECT i, object angle x(i)+rnd(asteroids*2), object angle y(i)+rnd(asteroids*2),object angle z(i)+rnd(asteroids*2)
phy load rigid body dynamic mesh i,"Asteroid-Collider.bc2"
set object collision on i
set object cull i,1
set object light i,1
set object effect i,125
`texture object i,880000
scale object i,rnd(object scale x(880000)),rnd(object scale y(880000)),rnd(object scale z(880000))
next i
for i=880000 to 880000+asteroids
if object in screen(i)=0
position object i,cx#+sx#+(rnd(Ast_spread)-(Ast_spread/2)),cy#+sy#+(rnd(Ast_spread)-(Ast_spread/2)),cz#+sz#+(rnd(Ast_spread*2)-(Ast_spread/2))
endif
next i
Return
endif
Function AIGoto()
move object 125000,.5
point object 125000,object position x(10),object position y(10),object position z(10)
Endfunction
`draw_planets:
Function CreatePlanet(PL_Scale,XPPos#,YPPos#,ZPPos#)
PL_base=find free object(32500,80000)
PL_Scale=140+rnd(3200)
Planets=PlanetAmount
make object sphere PL_Base,PL_Scale,40,40
phy make rigid body static sphere PL_Base
position object PL_Base,XPPos#,YPPos#,ZPPos#
if object size(PL_Base)>3100 `Suns
texture object PL_Base,32502 `sun
endif
if object size(PL_Base)>2900 `Large Gas Giants
texture object PL_Base,32505 `gas
endif
if object size(PL_Base)>2500 `Medium Gas Giants
texture object PL_Base,32505 `gas
endif
if object size(PL_Base)>1900 `Small Gas Giants
texture object PL_Base,32505 `gas
endif
if object size(PL_Base)>1500 `Large Planets
texture object PL_Base,32500 `hab
endif
if object size(PL_Base)>1000 `Large Habitable
texture object PL_Base,32500 `hab
endif
if object size(PL_Base)>600 `Habitable
texture object PL_Base,32501 `hab
endif
if object size(PL_Base)>390 `Dwarf, Smaller Planet
texture object PL_Base,32501 `hab
Endif
if object size(PL_Base)>140 `Moon
texture object PL_Base,32501 `hab
Endif
EndFunction
Function Create_Klingon_Neghvar()
KShipNum=find free object (99999,130000)
load object "Media/Klingon_Neghvar.x",KShipNum,5
scale object KShipNum,25,25,25
`SET SHADOW SHADING ON KShipNum
Position Object KShipNum, camera position x(),camera position y(),camera position z()
set object cull KShipNum,1
texture object KShipNum,0,5051
texture object KShipNum,1,5050
set blend mapping on KShipNum,1,5050,3,7
Endfunction
Function Create_Cardassian_Galor()
CShipNum=find free object (89999,130000)
load object "Media/Cardassian_Galor.x",CShipNum,5
scale object CShipNum,30,30,30
`SET SHADOW SHADING ON CShipNum
Position Object CShipNum, camera position x(),camera position y(),camera position z()
set object cull CShipNum,1
texture object CShipNum,0,5020
texture object CShipNum,1,5021
set blend mapping on CShipNum,1,5021,3,7
Endfunction
Function Create_Borg_Cube()
BShipNum=find free object (79999,130000)
load object "Media/CapitalCarrier_BorgFCCube.dbo",BShipNum,5
scale object BShipNum,20,20,20
`SET SHADOW SHADING ON CShipNum
Position Object BShipNum, camera position x(),camera position y(),camera position z()
set object cull BShipNum,1
texture object BShipNum,0,6070
texture object BShipNum,1,6060
set blend mapping on BShipNum,1,6060,3,7
Endfunction
Function Create_Federation_Galaxy()
FShipNum=find free object (79999,130000)
load object "Media/Fed_Galaxy.dbo",FShipNum,5
yrotate object FShipNum,180
xrotate object FShipNum,90
fix object pivot FShipNum
scale object FShipNum,20,20,20
`SET SHADOW SHADING ON CShipNum
Position Object FShipNum, camera position x(),camera position y(),camera position z()
set object cull FShipNum,1
texture object FShipNum,0,7070
texture object FShipNum,1,7060
set blend mapping on FShipNum,1,7060,3,7
Endfunction
Function LoadTextures()
KNLM = find free image (5050,5550)
KNCM = find free image (5051,5550)
CNLM = find free image (5020,5520)
CNCM = find free image (5021,5520)
load image "Media/21.png",32500 `hab
load image "Media/26.png",32501 `hab
load image "Media/51.png",32502 `sun
load image "Media/52(2).png",32503 `sun
load image "Media/44.png",32504 `sun
load image "Media/gas1.png",32505 `gas
load image "Media/KN_Glow",5050 `Klingon Glow
load image "Media/Klingon_NeghVar-cl.dds",5051 ` Klingon Texture
Load Image "Media/Borg_LM.png",6060
Load Image "Media/Borg-cl.dds",6070
Load Image "Media/Fed_GalaxyLM1.png",7060
Load Image "Media/Fed_Galaxy-cl.dds",7070
load image "Media/CG_LM.png",5021
load image "Media/Cardassian_Galor-cl.dds",5020
load image "Media/stars2.png",519
load image "Media/radarimg.png",6995
Endfunction
function HandleMovement()
for x = 1 to MAXIMUM_PLAYERS
if player(x).exist
rem real values are the actual current values
if player(x).key_up
player(x).realx = player(x).realx + sin(player(x).angle)
player(x).realz = player(x).realz + cos(player(x).angle)
endif
if player(x).key_down
player(x).realx = player(x).realx - sin(player(x).angle)
player(x).realz = player(x).realz - cos(player(x).angle)
endif
if player(x).key_left then player(x).angle = wrapvalue(player(x).angle-1)
if player(x).key_right then player(x).angle = wrapvalue(player(x).angle+1)
distx# = abs(player(x).realx-player(x).x)
speedx# = distx# / 10.0
distz# = abs(player(x).realz-player(x).z)
speedz# = distz# / 10.0
angle# = atanfull(player(x).realx-player(x).x, player(x).realz-player(x).z)
player(x).x = player(x).x + (sin(angle#)*speedx#)
player(x).z = player(x).z + (cos(angle#)*speedz#)
yrotate object x+10, player(x).angle
position object x+10, player(x).x, 0, player(x).z
center text object screen x(x+10), object screen y(x+10)-13, player(x).CLANTAG+player(x).name
endif
next x
endfunction
function HandleNetwork()
while net get message()
inc MSGSRECVD
select net get byte()
case MESSAGE_ID_GENERAL
playerNum = net get byte()
player(playerNum).realx = net get float()
player(playerNum).realz = net get float()
player(playerNum).angle = net get byte() * 1.411
ApplyFlags(playerNum, net get byte())
endcase
case MESSAGE_ID_GENERALFULL
while net get message remainder() > 0
playerNum = net get byte()
player(playerNum).exist = 1
player(playerNum).name = net get string()
player(playernum).CLANTAG = net get string()
player(playerNum).realx = net get float()
player(playerNum).realz = net get float()
player(playerNum).angle = net get byte() * 1.411
ApplyFlags(playerNum, net get byte())
load object "Media/Nova.x",playerNum+10
texture object playerNum+10,0,NVCM
texture object playerNum+10,1,NVLM
set blend mapping on playerNum+10,1,NVLM,3,7
ApplyPosition(playerNum)
endwhile
endcase
case MESSAGE_ID_PLAYERJOINED
playerNum = net get byte()
player(playerNum).exist = 1
player(playerNum).name = net get string()
player(playernum).CLANTAG = net get string()
load object "Media/Nova.x",playerNum+10
texture object playerNum+10,0,NVCM
texture object playerNum+10,1,NVLM
set blend mapping on playerNum+10,1,NVLM,3,7
endcase
case MESSAGE_ID_PLAYERQUIT:
ResetPlayer(net get byte())
endcase
endselect
endwhile
if toSend and LASTSENT+SENDGAP<timer()
net put byte MESSAGE_ID_GENERAL
net put float object position x(10)
net put float object position z(10)
net put byte (object angle y(10) / 1.411)
flags = (upkey() || downkey() << 1 || leftkey() << 2 || rightkey() << 3)
net put byte flags
net send
toSend = 0
endif
endfunction
function HandleControls()
flags = 0
PhyMode = 4
if upkey() then phy add rigid body local force 10,0,0,.015,PhyMode : flags = flags || FLAG_UP
if downkey() then phy add rigid body local force 10,0,0,-.015,PhyMode : flags = flags || FLAG_DOWN
if leftkey() or keystate (30)=1 then phy add rigid body local torque 10, 0, -.0005, 0, PhyMode : flags = flags || FLAG_LEFT
if rightkey() or keystate (32)=1 then phy add rigid body local torque 10, 0, .0005, 0, PhyMode : flags = flags || FLAG_RIGHT
if keystate (16)=1 then phy add rigid body local torque 10, 0, 0, .0005, PhyMode : flags = flags || FLAG_ROLL_LEFT
if keystate (18)=1 then phy add rigid body local torque 10, 0, 0, -.0005, PhyMode : flags = flags || FLAG_ROLL_RIGHT
if keystate (17)=1 then phy add rigid body local torque 10, .0005, 0, 0, PhyMode : flags = flags || FLAG_PITCH_UP
if keystate (31)=1 then phy add rigid body local torque 10, -.0005, 0, 0, PhyMode : flags = flags || FLAG_PITCH_DOWN
phy set rigid body angular damping 10,.10
PhySpeed = phy get rigid body linear velocity z (10)
phy set rigid body max angular velocity 10,10
if spacekey()=1
phy set rigid body linear velocity 10,0,0,0
Endif
Text 5,175, "Speed: "+str$(PhySpeed)
if flags <> lastFlags
toSend = 1
lastFlags = flags
LASTSENT = timer()
endif
endfunction
function HandleCamera()
xPos# = object position x(10) + cos(270-object angle y(1)) * 50
zPos# = object position z(10) + sin(270-object angle y(1)) * 500
`position camera xPos#, 90, zPos#
`point camera object position x(1), 40, object position z(1)
set camera to follow object position x(10), object position y(10), object position z(10), 25, object scale z(10), 10, 1, 1
endfunction
function ResetPlayer(playerNum as integer)
if object exist(playerNum+10) then delete object playerNum+10
player(playerNum).exist = 0
player(playerNum).name = ": "
player(playernum).CLANTAG = ": "
player(playerNum).x = 0
player(playerNum).z = 0
player(playerNum).angle = 0
player(playerNum).key_up = 0
player(playerNum).key_down = 0
player(playerNum).key_left = 0
player(playerNum).key_right = 0
endfunction
function ApplyFlags(playerNum as integer, flags as integer)
if flags && FLAG_UP
player(playerNum).key_up = 1
else
player(playerNum).key_up = 0
endif
if flags && FLAG_DOWN
player(playerNum).key_down = 1
else
player(playerNum).key_down = 0
endif
if flags && FLAG_LEFT
player(playerNum).key_left = 1
else
player(playerNum).key_left = 0
endif
if flags && FLAG_RIGHT
player(playerNum).key_right = 1
else
player(playerNum).key_right = 0
endif
endfunction
function ApplyPosition(playerNum as integer)
position object playerNum+10, player(playerNum).x, 0, player(playerNum).z
yrotate object playerNum+10, player(playerNum).angle
endfunction
function CenterBox(x as integer, y as integer, xSize as integer, ySize as integer, textString as string)
xPos = x-(xSize/2)
yPos = y-(ySize/2)
ink rgb(32,32,200),0
box xPos, yPos, xPos+xSize, yPos+ySize
ink rgb(255,255,255),0
center text x, y-(text height("A")/2), textString
endfunction