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