Global EOL$		= Chr(13)+Chr(10)

Const PHP_GETIP					= 12

Global iS_LocalIP$
Global iS_TCPStream

iS_URL$				= \"www.makegame.de\"
iS_TCPPort		= 80
iS_Script$		= iS_URL$+\"/iscore2/iscore2.php\"

;-------------------------------------------------

iS_TCPStream=OpenTCPStream(iS_URL$,iS_TCPPort)

PHPComm(iS_Script$,\"?mode=12\",PHP_GETIP)

WaitKey : End

If iS_TCPStream Then CloseTCPStream iS_TCPStream

;-------------------------------------------------
;
; PHPComm(url$,parameter$,mode)
;
; kommuniziert mit einem PHP Script und nimmt die
; übertragenen Daten entgegen
;
; Parameter:
; url$				> URL bspw. \"www.makegame.de\"
; parameter$	> Parameterstring bspw. \"?mode=12&user=bruZard\"
; mode				> Siehe PHP Konstanten
;
; Rückgabe:
; es werden die entsprechenden Variablen gesetzt
;
;-------------------------------------------------
Function PHPComm(url$,parameter$,mode)
	WriteLine is_TCPStream,\"GET \"+\"http://\"+url$+parameter$+\" HTTP/1.1\"+EOL$+\"HOST: \"+url$+EOL$+\"User-Agent: \"+iS_Agent$+EOL$+\"Accept: */*\"+EOL$+\"\"+EOL$
	
	Repeat : in$=Trim(ReadLine(iS_TCPStream)) : Until Left(in$,5)=\"BEGIN\"
	Repeat
		in$=Trim(ReadLine(is_TCPStream))
		If Left(in$,3)<>\"END\"
			Select mode
				Case PHP_GETIP		: iS_LocalIP$=in$
			End Select
		EndIf
	Until Left(in$,3)=\"END\"
End Function