; In diesem Programm wird ein Quelltext nach bestimmten Zeilen durchsucht.
; Der Quelltext wird von einem Server durch http geholt.
; Ein paar Zeilen habe ich gekürzt. Ich hoffe, es haben sich dadurch keine Fehler eingeschlichen.

Global ; ...

createWin1()

Repeat:  event = WaitEvent()


   If event = $401 Then connect()
   

WaitTimer(timer):  Until event = $803


Function createWin1()

   ;Fenster und Panels erstellen. Habe ich lieber gekürzt. Ist ziemlich viel.
   
End Function


Function connect()   

   sHandle = OpenTCPStream("rom.onlinewelten.com",80)

   WriteLine sHandle,"GET /news.php HTTP/1.1"
   WriteLine sHandle,"Host: rom.onlinewelten.com"
   WriteLine sHandle,Chr$(10)

   While Not Eof(sHandle)

      tmp = ReadLine(sHandle)
      
      
      If Instr(tmp,"Loginserver") <> 0 Then
            
            getServerStatus()
            Exit
               
      EndIf
   
         
   Wend
   
   
   CloseTCPStream sHandle
   

End Function

Function getServerStatus()

; in dieser Funktion wird nach einer bestimmten Zeile im Quelltext gesucht. Wird sie gefunden, verändert sich ein Bild.


      tmp = ReadLine(sHandle)
      tmp = ReadLine(sHandle)
      
      If Instr(tmp,"img/serverstate/offline.png") <> 0 Then SetPanelImage Plamp1, "Graphics/off.bmp"
      If Instr(tmp,"img/serverstate/online.png") <> 0 Then SetPanelImage Plamp1, "Graphics/on.bmp"
      
      tmp = ReadLine(sHandle)
      tmp = ReadLine(sHandle)
      tmp = ReadLine(sHandle)
      tmp = ReadLine(sHandle)
      tmp = ReadLine(sHandle)
      
      If Instr(tmp,"img/serverstate/offline.png") Then SetPanelImage Plamp2, "Graphics/off.bmp"
      If Instr(tmp,"img/serverstate/online.png") Then SetPanelImage Plamp2, "Graphics/on.bmp"
      
      tmp = ReadLine(sHandle)
      tmp = ReadLine(sHandle)
      tmp = ReadLine(sHandle)
      tmp = ReadLine(sHandle)
      
   ; usw .. geht sicher auch einfacher, aber das war mir in dem Fall nicht wichtig ;)
      
End Function