diff sheep.pl @ 74:27b16506231f

improved the tech trees
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Wed, 22 Oct 2008 20:49:29 +0800
parents 3a611c51b99b
children 6527b4b20d60
line wrap: on
line diff
--- a/sheep.pl	Wed Oct 22 06:49:42 2008 +0800
+++ b/sheep.pl	Wed Oct 22 20:49:29 2008 +0800
@@ -83,14 +83,15 @@
 
             next if($capture < 100);
 
-            $line = sprintf("%d %s army %d %s/%s(%d),", 
+            $line = sprintf("%d %s score %d army %d %s/%s(%d),", 
                 $capture,
-                $c->status, $sheep->army_score_main, $sheep->name, $sheep->ally, $members);
+                $c->status, $sheep->score, $sheep->army_score_main, $sheep->name, $sheep->ally, $members);
 
-            $line .= sprintf("\"%s\" %d [%d,%d] %s http://s2.ikariam.tw/index.php?view=island&id=%d&selectCity=%d\n",
+            $line .= sprintf("\"%s\" %d [%d,%d] %s http://%s/index.php?view=island&id=%d&selectCity=%d\n",
                 $c->cityname, $c->citylevel, 
                 $island->x, $island->y,
                 $tradegoodText[$island->tradegood],
+                $::server,
                 $island->id,
                 $c->cityId
             );