Graphics 800, 600


Function Print(txt$)
	Text 0, 0, txt$
	Flip
End Function



While Not KeyHit(1) 

Print "a" 

Wend 
End 

; FPS Counter für den Serverthread
Global fps


; siehe FastPointer DLL -- holt den Pointer zum Serverthread in pointer1
Local pointer1 = FunctionPointer()
Goto skip1
ServerThread()
.skip1


; Hier die ganzen anderen Variablen
; und der Serverinit krams (alternativ im Thread)


;Hier wird dann der Server gestartet...
Write "Starting server..."
Local ServerThread = CreateThread(pointer1, 0)
Print "OK"


; Der Hauptthread bietet dann per Input die möglichkeit der Kontrolle
Print "Starting control panel..."
Repeat
	Local cmd$=Lower(Input(">"))
	Select cmd
		Case "quit" 
			Exit
		Case "fps"
			Print "ServerFPS: "+fps
		Default
			Print "unknown cmd"
	End Select
Forever

; Verbindungen etc beenden....
; Der ganze schmuu

; Thread beenden
FreeThread(ServerThread)
End


Function ServerThread(var%=0)
	Local ms=MilliSecs()+1000,count
	
	; Hier variablen oder Serverinit kram ( Alternativ zu oben)
	
	Repeat
		; Ein fps counter
		count=count+1
		If MilliSecs()>ms Then 
			fps=count
			count=0
			ms=MilliSecs()+1000
		EndIf
		
		; Hier dann der eigentliche Servercode
		
		
		; Hier muss zumindest unter B+ und Win7 ein Delay statt nem Waittimer hin.
		; Bei XP ging es noch mit Timer. Weiß nicht wies bei winserver ist....
		Delay 16
	Forever
End Function

Extern
Function api_GetAsyncKeyState(vKey%) = "GetAsyncKeyState@4"
EndExtern