TWM2/scripts/TWM2/Systems/NewsPanel.cs

function DownloadNewsPage() {
   $TWM::Ticks = 0;
   %server = "www.forums.phantomdev.net:80"; //
   if (!isObject(PageGrabber))
      %Downloader = new HTTPObject(PageGrabber){};
   else %Downloader = PageGrabber;
   %filename = "/viewtopic.php?f=11&t=416"; //File Location
   %Downloader.get(%server, %filename);
}

function PageGrabber::onLine(%this, %line) {
   %line = StrReplace(%line, "<br />", "");
   if (strstr(%line, "*Start") != -1) {
      //
      %moduPosition = strPos(%text, "%"); //gets first occurance
      %text = getSubStr(%text, %moduPosition+1, (strlen(%text)));
      %moduPosition = strPos(%text, "%"); //gets first occurance
      %i = 0;
      while(%moduPosition != -1) {
         %text[%i] = getSubStr(%text, 0, %moduPosition);
         %text = getSubStr(%text, %moduPosition+1, (strlen(%text)));
         %moduPosition = strPos(%text, "%"); //gets first occurance
         //
         %i++;
      }
      %text = StrReplace(%text, "%", "");
      %x = 0;
      while(isSet(%text[%x])) {
         echo(%text[%x]);
         %text[%x] = detag( %text[%x] );
         %textf = (%text $= "") ? %text[%x] : %textf NL %text[%x];
         $TWM::Ticks++;
         $TWM::Page[$TWM::Ticks] = ""@%textf@"";
         %x++;
      }
      //======= GMessage
      if(strPos(%text, "$") != -1 && strPos(%text, "*$") != -1) {
         %begin = strPos(%text, "$")+1;
         %end = strPos(%text, "*$");
         %textLine = getSubStr(%text, %begin, %end);
         echo(" *** MOTD GLOBAL: "@%textLine@"");
         $TWM2::MOTDGlobal = %textLine;
      }
   }
}

function PageGrabber::onConnectFailed() {
   echo("-- Could not connect to server.");
   echo("Using Page Specified In NewsPanel.cs");

   $TWM::Ticks = 2;
   $TWM::Page[1] = "Welcome To "@$Host::GameName@"";
   $TWM::Page[2] = "Total Warfare Mod 2 V"@$TWM::Version@"";

}

function PageGrabber::onDisconnect(%this) {
   %this.delete();
}