Sorry your browser is not supported!

rem define 6 enemies
global Enemy1Attack as integer
global Enemy2Attack as integer
global Enemy3Attack as integer
global Enemy4Attack as integer
global Enemy5Attack as integer
global Enemy6Attack as integer

rem make 6 enemies attack
Enemy1Attack = 1
Enemy2Attack = 1
Enemy3Attack = 1
Enemy4Attack = 1
Enemy5Attack = 1
Enemy6Attack = 1

rem define enemies
dim EnemyAttack(5) as integer

rem make 6 enemies attack
for n = 0 to 5
   EnemyAttack( n ) = 1
next n

rem define enemies
dim EnemyAttack(5) as integer
dim EnemyName$(5) as string
dim EnemyPositionX#(5) as float
dim EnemyPositionY#(5) as float
dim EnemyPositionZ#(5) as float

rem set enemy parameters
for n = 0 to 5
   EnemyAttack( n ) = 1
   EnemyName$( n ) = "Gaylord"
   EnemyPositionX#( n ) = 5
   EnemyPositionY#( n ) = 7
   EnemyPositionZ#( n ) = 1
next n

rem create enemy UDT
type Enemy_t
   Attack as integer
   Name$ as string
   PositionX# as float
   PositionY# as float
   PositionZ# as float
endtype

rem define enemies
dim Enemy( 5 ) as Enemy_t

rem set enemy parameters
for n = 0 to 5
   Enemy( n ).Attack = 1
   Enemy( n ).Name$ = "Still a Gaylord"
   Enemy( n ).PositionX# = 5
   Enemy( n ).PositionY# = 7
   Enemy( n ).PositionZ# = 1
next n

   Enemy( n ).PositionX# = 5
   Enemy( n ).PositionY# = 7
   Enemy( n ).PositionZ# = 1

rem vector 3 type
type vec3
   X# as float
   Y# as float
   Z# as float
endtype

rem create enemy UDT
type Enemy_t
   Attack as integer
   Name$ as string
   Position as vec3
endtype

rem define enemies
dim Enemy( 5 ) as Enemy_t

rem set enemy parameters
for n = 0 to 5
   Enemy( n ).Attack = 1
   Enemy( n ).Name$ = "Still a Gaylord"
   Enemy( n ).Position.X# = 5
   Enemy( n ).Position.Y# = 7
   Enemy( n ).Position.Z# = 1
next n

Unit( n ).Anim.Frame.UnicornMagicAttackPrepare.mStart

save array "Enemy.dat" , Enemy()

load array "Enemy.dat" , Enemy()

rem vector 3 type
type vec3
   X# as float
   Y# as float
   Z# as float
endtype

rem create enemy UDT
type Enemy_t
   Attack as integer
   Name$ as string
   Position as vec3
   Obj as integer
endtype

rem define enemies
dim Enemy( 5 ) as Enemy_t

rem set enemy parameters
for n = 0 to 5
   Enemy( n ).Attack = 1
   Enemy( n ).Name$ = "Still a Gaylord"
   Enemy( n ).Position.X# = 5
   Enemy( n ).Position.Y# = 7
   Enemy( n ).Position.Z# = 1

   rem load model
   Enemy( n ).Obj = find free object()
   load object "model.x" , Enemy( n ).Obj
next n

Rem - A few example variables in my type are ; ID / Xpos / Ypos / Zpos 

Save array "Test.Dat",NPCS(Amount_Of_NPCS)

Rem - Error message [Array type is invalid]
Rem - Saving it like this : 
Save array "Test.Dat",NPCS(Amount_Of_NPCS).ID

Rem - Crashes the program before loading.

Dim Names(100) as String
Dim Health(100) as Double Float
Dim Object(100) as DWord

[Player]
Name=Player1
Position=0,0,0
File=Object.dbo

<n/>

`%Project Title%
`memblockshowcase.dba
`======================
Gosub Init

` Two items of the same class, one as the base class, the other inherits it as an extended class
Jack = MakeNewPlayer("Jack",20,30,40)
Bill = MakeNewEnemy("Bill",60,30,40,10,203)

` Save all players
If File Exist( "Players.dat" ) Then Delete File "Players.dat"
Open To Write 1, "Players.dat"
Write Memblock 1, 1
Close File 1
`----------------
` Load all players
Open To Read 2, "Players.dat"
Read Memblock 2, 2
Close File 2
Print "Player 1 is "; PlayerName$(1)
Print "Player 2 is "; PlayerName$(2)
Wait Key
Delete Memblock 1
Delete Memblock 2
End

//================================================================



#CONSTANT PLAYER_MEM 23
#CONSTANT AI_MEM 34
#CONSTANT MAX_MEMORY 2048


` Custom Variable Size Data Type
#CONSTANT PLAYER_TYPE 0
#CONSTANT AI_TYPE 1
` Player Fields
#CONSTANT TYPE_FIELD 0
#CONSTANT NAME_FIELD 1
	#CONSTANT NAME_LENGTH 10
#CONSTANT X_FIELD 11
#CONSTANT Y_FIELD 15
#CONSTANT Z_FIELD 19
	` Extended class inherits the field of Player_Type and adds two AI fields
	#CONSTANT AI_ID_FIELD 27
	#CONSTANT AI_DIFFICULTY_FIELD 31
//==========================================================
Init:
	Global Slot
	Global ID
	Make Memblock 1, MAX_MEMORY
Return
//==========================================================
Function MakeNewPlayer(sName$,x#,y#,z#) 
 Inc ID
 If Slot + PLAYER_MEM > MAX_MEMORY
	` Error
 Endif
 Write Memblock String 1, Slot+NAME_FIELD, sName$ , NAME_LENGTH
 Write Memblock Float 1, Slot+X_FIELD, x#
 Write Memblock Float 1, Slot+Y_FIELD, y#
 Write Memblock Float 1, Slot+Z_FIELD, z#
 Inc Slot, PLAYER_MEM
EndFunction ID
//==========================================================
Function MakeNewEnemy(sName$,x#,y#,z#, AI_Number, Difficulty)
 
 Inc ID
 If Slot + AI_MEM > MAX_MEMORY
	` Error
 Endif
 Write Memblock String 1, Slot+NAME_FIELD, sName$ , NAME_LENGTH
 Write Memblock Float 1, Slot+X_FIELD, x#
 Write Memblock Float 1, Slot+Y_FIELD, y#
 Write Memblock Float 1, Slot+Z_FIELD, z#	
 ` My defined type has two extra fields
 Write Memblock Float 1, Slot+AI_ID_FIELD, AI_Number
 Write Memblock Float 1, Slot+AI_DIFFICULTY_FIELD, Difficulty
 Inc Slot, AI_MEM
Endfunction ID
//==========================================================
Function PlayerName$( ID )
	Local LocalSlot=0
	For i = 1 to ID
		If LocalSlot <= MAX_MEMORY
			If i = ID
				s$ = Memblock String$(2, LocalSlot+NAME_FIELD, NAME_LENGTH)
				ExitFunction s$
			Else
				If Memblock Byte(2, LocalSlot+TYPE_FIELD) = AI_TYPE
					Inc LocalSlot, AI_MEM
				Else
					Inc LocalSlot, PLAYER_MEM
				Endif
			Endif
		Else
			Exit
		EndIf
	Next i
Endfunction ""

Global name$ as string
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"
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 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

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

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:

backdrop on
color backdrop 0

sync on
sync rate 60

do

update_time=timer()

if net connected()=0
    print "The connection with the server has been lost."
    wait 3000
    end
endif

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$
	
	remstart
if spacekey()=1
	wait 250
CreatePlanet(PL_Scale,camera position x(),camera position y(),camera position z())
`Create_Klingon_Neghvar()
`Create_Cardassian_Galor()
endif
remend

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 (150000,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 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

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 ProcessMessage()
   msgID = net get byte()

   select msgID

      case MESSAGE_ID_CHAT
         username$ = net get string()
         message$ = net get string()
         AddTextLine("<"+username$+"> "+message$)
      endcase

      case MESSAGE_ID_NAME
         while net get message remainder() > 0
            if NAME <> "" then NAME = NAME + ", "
            NAME = NAME + net get string()
         endwhile
         AddTextLine("Name list: "+NAME+".")
      endcase

      case MESSAGE_ID_NEWCLIENT
            AddTextLine(net get string()+" has joined.")
      endcase

      case MESSAGE_ID_CLIENTLEFT
         AddTextLine(net get string()+" has left.")
      endcase

   endselect
endfunction

function AddTextLine(textLine as string)
   ` If message buffer full, scroll
   if CURRENT_TEXTLINE_AMOUNT = MAXIMUM_TEXTLINE_AMOUNT
      TextLines(CURRENT_TEXTLINE_AMOUNT) = textLine
      for x = 1 to MAXIMUM_TEXTLINE_AMOUNT
         TextLines(x-1) = TextLines(x)
      next x
      TextLines(MAXIMUM_TEXTLINE_AMOUNT) = ""
      DrawTextLines()
   else
      TextLines(CURRENT_TEXTLINE_AMOUNT) = textLine
      inc CURRENT_TEXTLINE_AMOUNT
      text 0, (CURRENT_TEXTLINE_AMOUNT-1)*13, TextLines((CURRENT_TEXTLINE_AMOUNT-1))
   endif
endfunction

function DrawTextLines()
   ink 0, 0
   box 0, 0, screen width(), MAXIMUM_TEXTLINE_AMOUNT*13
   ink rgb(255, 255, 255), 0
   for x = 0 to CURRENT_TEXTLINE_AMOUNT
      text 0, x*13, TextLines(x)
   next x
   line 0, (MAXIMUM_TEXTLINE_AMOUNT+1)*13, 640, (MAXIMUM_TEXTLINE_AMOUNT+1)*13
endfunction

function DrawEntry()
      ink rgb(100, 100, 100), 0
      box 0, 460, 640, 480
      ink rgb(255, 255, 255), 0
      text 0, 463, "> "+CURRENT_TEXT_ENTRY
endfunction

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()
    ChatWindowGUI(10,500,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

load array "array.dat" , entity() : rem I know this doesn't work with UDTs, but this is for simplicity's sake

rem load array
load array "array.dat" , entity()

rem load entities
for n = 0 to get array count( entity() , 0 )

   rem objects
   load object entity( n ).filename$ , entity( n ).ObjID
   position object entity( n ).ObjID , entity( n ).pos.x# , entity( n ).pos.y# , entity( n ).pos.z#

   rem etc.

next n