All pastes #971701 Raw Edit

Someone

public text v1 · immutable
·published 2008-04-04 22:31 UTC
rendered paste body
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