;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 |