Changeset 13 for trunk/Main.pas

Timestamp:

Nov 27, 2009, 8:36:34 AM (15 years ago)

Author:

george

Message:

• Opraveno: Všechny odkazy na starý web wow.zdechov.net opraveny na aktuální www.heroesoffantasy.cz.

File:

• trunk/Main.pas (modified) (8 diffs)

trunk/Main.pas

@@ -12 +12 @@
 
 const
-  ApplicationVersion = '3.3';
+  ApplicationVersion = '3.4';
   ApplicationRevision = 6;
   R = '\Software\maronsoft\Heroes of Fantasy client pack\';
-  UpdateInfoFile = 'http://wow.zdechov.net/client/aktualizace.txt';
-  DefaultRSSChannel = 'http://wow.zdechov.net/rss.php?category=articles';
-  OldRSSChannel = 'http://wow.zdechov.net/rss.php';
+  HoFWeb = 'www.heroesoffantasy.cz';
+  HoFRealmList = 'heroesoffantasy.cz';
+  UpdateInfoFile = 'http://' + HoFWeb + '/client/aktualizace.txt';
+  DefaultRSSChannel = 'http://' + HoFWeb + '/rss.php?category=articles';
+  OldRSSChannel = 'http://' + HoFWeb + '/rss.php';
   AoWoWSearchURL = 'http://wowpreklad.zdechov.net/aowow/?search=';
-  HoFOnlineListURL = 'http://wow.zdechov.net/stat/stat.xml';
-  ProjectHomepage = 'http://wow.zdechov.net/?page=client';
-
+  HoFOnlineListURL = 'http://' + HoFWeb + '/stat/stat.xml';
+  ProjectHomepage = 'http://' + HoFWeb + '/?page=client';
+  AuthorEmail = 'maron2@centrum.cz';
+  
 type
   TWMMoving = record
@@ -343 +346 @@
         SetLength(Servers, 3);
         Servers[0].Name := 'Heroes of Fantasy';
-        Servers[0].Address := 'wow.zdechov.net';
+        Servers[0].Address := HoFRealmList;
         Servers[0].OnlinePlayersAddress := HoFOnlineListURL;
         Servers[0].ExeFile := GetWoWExeFile;
         Servers[0].Image := '1';
-        Servers[0].Description := 'Free server'+chr(13)+chr(10)+'Server podporovaný výrobcem programu'+chr(13)+chr(10)+'web: http://wow.zdechov.net/'+chr(13)+chr(10)+'reamlist: wow.zdechov.net';
+        Servers[0].Description := 'Free server'#13#10'Server podporovaný výrobcem programu'#13#10'web: http://' + HoFWeb + '/'#13#10'reamlist: ' + HoFRealmList;
 
         Servers[1].Name := 'Oficiální Server - Eu';
@@ -353 +356 @@
         Servers[1].ExeFile := GetWoWExeFile;
         Servers[1].Image := '';
-        Servers[1].Description := 'Oficiální server - Evropa'+chr(13)+chr(10)+'Web: http://www.wow-europe.com/';
+        Servers[1].Description := 'Oficiální server - Evropa'#13#10'Web: http://www.wow-europe.com/';
 
         Servers[2].Name := 'Oficiální Server - USA';
@@ -359 +362 @@
         Servers[2].ExeFile := GetWoWExeFile;
         Servers[2].Image := '';
-        Servers[2].Description := 'Oficiální server - Evropa'+chr(13)+chr(10)+'Web: http://www.worldofwarcraft.com/';
+        Servers[2].Description := 'Oficiální server - Evropa'#13#10'Web: http://www.worldofwarcraft.com/';
       end;
 
@@ -1037 +1040 @@
   with Servers[length(Servers) - 1] do begin
     Name := 'Heroes of Fantasy';
-    Address := 'wow.zdechov.net';
+    Address := HoFRealmList;
     OnlinePlayersAddress := HoFOnlineListURL;
     ExeFile := GetWoWExeFile;
     Image := '1';
-    Description := 'Heroes of Fantasy - Free server'+chr(13)+chr(10)+' 2x XP'+chr(13)+chr(10)+'web: http://wow.zdechov.net/'+chr(13)+chr(10)+'realmlist: wow.zdechov.net';
+    Description := 'Heroes of Fantasy - Free server'#13#10' 2x XP'#13#10'web: http://' + HoFWeb + '/'#13#10'realmlist: ' + HoFRealmList;
   end;
   WriteImages;
@@ -1203 +1206 @@
   {
 <?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE server SYSTEM "http://wow.zdechov.net/projectonlineplayes/onlineplayers.dtd">
+<!DOCTYPE server SYSTEM "http://www.heroesoffantasy.cz/projectonlineplayes/onlineplayers.dtd">
 <server>
   <servername>Heroes Of Fantasy</servername>
-  <serveraddress>wow.zdechov.net</serveraddress>
+  <serveraddress>www.heroesoffantasy.cz</serveraddress>
   <owner>Chronos</owner>
   <patch>2.13</patch>
@@ -1421 +1424 @@
 procedure TForm1.Importzwowstatusnet1Click(Sender: TObject);
 begin
-//http://wowstatus.net/serverlist.php
-
-  //načtení počtu serverů
+  // http://wowstatus.net/serverlist.php
+
+  // Načtení počtu serverů
   Form8.Caption := 'Import serverů z WoWStatus.net';
   Form8.LoadCountRegServers;
-  Form9.Gauge1.MaxValue := CountWoWStatusServers+80;
+  Form9.Gauge1.MaxValue := CountWoWStatusServers + 80;
   Form9.Show;
 
@@ -1432 +1435 @@
   Form8.ListView1.Clear;
   Form8.WriteServersWoWStatus('http://wowstatus.net/serverlist.php');
-
   Form9.Close;
 
-
-  if EndLoadingBool = false then begin
+  if not EndLoadingBool then begin
     Form8.Show;
-    //uložení počtu serverů
+    // Uložení počtu serverů
     CountWoWStatusServers := Form8.ListView1.Items.Count;
     Form8.SaveCountRegServers;
   end;
    // Form8.Timer1.Enabled := true;
-
 end;