...
Include \"iscore.bb\"
...
If leben% < 0 Then game_over()
...
Function game_over()
ShareScore(\"http://www.johnesoft.de\",\"iscore.php\",\"?user=\"+name$+\"&score=\"+inet_score%,80)
End Function
...

Type OnlineScore
Field name$
Field score
End Type


Function ShareScore(url$,script$,par$,port)
   ;Print \"Verbinde mit \"+url$
   is_online=OpenTCPStream(url$,port)
   If is_online
      req$=script$+par$
      ;Request an das Serverscript schicken
      WriteLine is_online,\"GET \"+req$
      WriteLine is_online,\"\"   
      ;Daten empfangen
      Repeat
         ;Jetzt wird der Header überlesen
         trash$=Trim(ReadLine(is_online))
      Until Left(trash$,7)=\"[BEGIN]\" Or Eof(is_online)
      ;Score lesen
      Repeat
         in1$=Trim(ReadLine(is_online))
         in2$=Trim(ReadLine(is_online))
         If Left(in1$,5)<>\"[END]\"
            score.OnlineScore=New OnlineScore
            score\name$=in1$
            score\score=Int(in2$)
      EndIf
      Until Left(in1$,5)=\"[END]\" Or Eof(is_online)
      CloseTCPStream is_online
      Return 1
   Else
      Return 0
   EndIf
End Function