$oldevent = ""
While 1
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", "REALMBAY[dot]COM / data[dot]txt", False)
$oHTTP.Send()
$oReceived = $oHTTP.ResponseText
$oStatusCode = $oHTTP.Status
If $oStatusCode == 200 then
$file = FileOpen("EVENTS.txt", 2)
FileWrite($file, $oReceived)
FileClose($file)
$file2 = FileOpen("EVENTS.txt", 0)
$TheFirstLine = FileReadLine ($file2, 1)
$file3 = FileOpen("EVENTS.txt", 2)
FileWrite($file3, $TheFirstLine)
FileClose($file3)
$checking = FileOpen("EVENTS.txt", 0)
$TheLine = FileReadLine($checking, 1)
if $TheLine = $oldevent Then
sleep(50)
Else
$oldevent = $TheLine
$crap = SplashTextOn("", $TheLine, @desktopWidth, 50, 0, 0, 1, "", 5)
WinSetTrans($crap, "", 170)
FileClose($file2)
EndIf
EndIf
sleep(100)
WEnd

$oldevent = ""
While 1
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", "http://realmbay.com/data.php", False)
$oHTTP.Send()
$oReceived = $oHTTP.ResponseText
$oStatusCode = $oHTTP.Status
If $oStatusCode == 200 then
$file = FileOpen("EVENTS.txt", 2)
FileWrite($file, $oReceived)
FileClose($file)
$file2 = FileOpen("EVENTS.txt", 0)
$TheFirstLine = FileReadLine ($file2, 17)
$file3 = FileOpen("EVENTS.txt", 2)
FileWrite($file3, $TheFirstLine)
FileClose($file3)
$checking = FileOpen("EVENTS.txt", 0)
$TheLine = FileReadLine($checking, 1)
if $TheLine = $oldevent Then
sleep(300)
Else
$oldevent = $TheLine
$crap = SplashTextOn("", $TheLine, 500, 100, 200, 50, 17, "" )
WinSetTrans($crap, "", 170)
FileClose($file2)
EndIf
EndIf
sleep(100)
WEnd
$oldevent = ""
While 1
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", "http://realmbay.com/data.txt", False)
$oHTTP.Send()
$oReceived = $oHTTP.ResponseText
$oStatusCode = $oHTTP.Status
If $oStatusCode == 200 then
$file = FileOpen("EVENTS.txt", 2)
FileWrite($file, $oReceived)
FileClose($file)
$file2 = FileOpen("EVENTS.txt", 0)
$TheFirstLine = FileReadLine ($file2, 1)
$file3 = FileOpen("EVENTS.txt", 2)
FileWrite($file3, $TheFirstLine)
FileClose($file3)
$checking = FileOpen("EVENTS.txt", 0)
$TheLine = FileReadLine($checking, 1)
$DLG_NOTITLE = 1
$DLG_NOTONTOP = 2
$DLG_TEXTLEFT = 4
$DLG_TEXTRIGHT = 8
$DLG_MOVEABLE = 16
$DLG_TEXTVCENTER = 32
if $TheLine = $oldevent Then
sleep(50)
Else
$oldevent = $TheLine
$crap = SplashTextOn("Realm Notifier [Powered By RealmBay]",$TheLine, @desktopwidth, 50, 0, 0, 16, 1,"", 10)
WinSetTrans($crap, "", 175)
FileClose($file2)
EndIf
EndIf
sleep(100)
WEnd

$oldevent = ""
While 1
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", "http://realmbay.com/data.txt", False)
$oHTTP.Send()
$oReceived = $oHTTP.ResponseText
$oStatusCode = $oHTTP.Status
If $oStatusCode == 200 then
$file = FileOpen("EVENTS.txt", 2)
FileWrite($file, $oReceived)
FileClose($file)
$file2 = FileOpen("EVENTS.txt", 0)
$TheFirstLine = FileReadLine ($file2, 1)
$file3 = FileOpen("EVENTS.txt", 2)
FileWrite($file3, $TheFirstLine)
FileClose($file3)
$checking = FileOpen("EVENTS.txt", 0)
$TheLine = FileReadLine($checking, 1)
$DLG_MOVEABLE = 16
$DLG_NOTITLE = 1
$DLG_NOTONTOP = 2
$DLG_TEXTLEFT = 4
$DLG_TEXTRIGHT = 8
$DLG_MOVEABLE = 16
$DLG_TEXTVCENTER = 32
if $TheLine = $oldevent Then
sleep(50)
Else
$oldevent = $TheLine
$crap = SplashTextOn("Realm Notifier [Powered By RealmBay]",$TheLine, @desktopwidth, 50, 0, 0, 16, 1,"", 10)
WinSetTrans($crap, "", 175)
FileClose($file2)
EndIf
EndIf
sleep(100)
WEnd