Procedure init()
  OpenConsole()
  PrintN("Starting Master Server")
  InitNetwork()
  CreateNetworkServer(#PB_Any,6666)
  PrintN("Network initialized")
  ; connect to database server
  dbconn = OpenNetworkConnection("127.0.0.1",dbport)
  Debug(dbconn)
  If dbconn <> 0 
  PrintN("Server database connection established")
  Else
  PrintN("Failed connection to server")
  EndIf
  Delay(10000)
EndProcedure


IncludeFile "functions.pb"
init()
Repeat