Worklog for Techlord

HYPERPONG

Return to Worklogs

The Code:HP_ServerRun(Posted 2007-09-27)
;HYPER-PONG v 1.2 SERVER RUN

Include "HPv1.2.bb"

AppTitle(HP_GAME_NAME$+"...Initializing")
 
Graphics 300,200,32,2
Repeat

	Cls()
	Locate(0,0)
	HPServerCheck=HPServerCheck+1
	Print(HP_GAME_NAME$+"...Checking["+HPServerCheck+"]")

	If Not GNET_Exec("list","") 
		AppTitle(HP_GAME_NAME$+"...No Servers")
	EndIf

	CountHostIPs(GetEnv("localhost"))
	MyIP$=DottedIP(HostIP(1))
	
	
	For GNET_Server.GNET_Server=Each GNET_Server
		If Instr(GNET_Server\game$,HP_GAME_NAME$)
			Print("["+GNET_Server\ID+"]"+GNET_Server\game$)
			If GNET_Server\IP$=MyIP$ HPServerIsRunning=True
		EndIf	
	Next
	
	If Not HPServerIsRunning
		AppTitle(HP_GAME_NAME$+"...Launch") 
		ExecFile(Chr$(34)+"C:\Program Files\Blitz3D\myprojects\HPv1.2\HPServerKill.bat"+Chr$(34))
		Delay 10000
		ExecFile(Chr$(34)+"C:\Program Files\Blitz3D\myprojects\HPv1.2\HPServer.exe"+Chr$(34))
		HPServerCheck=0
	Else
		Print("Server is in Use.")
	EndIf
	
	Delay 30000

	HPServerIsRunning = False
	
	For GNET_Server.GNET_Server	 = Each GNET_Server
		Delete GNET_Server
	Next	
	
Until KeyDown(1)


DarkTokens: Coin-Op (MicroTransaction) API