diff sheep.pl @ 65:3a611c51b99b

for the new world, we only have sheep with a little gold. poor people.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 21 Oct 2008 16:41:16 +0800
parents d2ac1e198ce4
children 27b16506231f
line wrap: on
line diff
--- a/sheep.pl	Tue Oct 21 00:50:37 2008 +0800
+++ b/sheep.pl	Tue Oct 21 16:41:16 2008 +0800
@@ -37,7 +37,7 @@
         SELECT user.id 
           FROM user, cities 
          WHERE user.id == cities.user 
-           AND user.trader_score_secondary >= 20
+           AND user.trader_score_secondary >= 200
            AND user.army_score_main <= 100
            AND cities.island IN (SELECT island.id FROM island WHERE island.x <= ? AND island.x >= ? AND island.y <= ? AND island.y >= ? )
     }
@@ -73,18 +73,18 @@
             next if($c->status eq 'v');
 
             unless($c->status eq 'i') {
-                next if($members > 3);
+                next if($members > 5);
             }
 
             my $island = Ikariam::Island->retrieve($c->island);
 
             # 所得金錢 = 對方城鎮等級x(對方城鎮等級-1)x對方金錢/10000
-            my $robbery = $c->citylevel * ($c->citylevel - 1) * $sheep->trader_score_secondary / 10000;
+            my $capture = $c->citylevel * ($c->citylevel - 1) * $sheep->trader_score_secondary / 10000;
 
-            next if($robbery < 2000);
+            next if($capture < 100);
 
             $line = sprintf("%d %s army %d %s/%s(%d),", 
-                $robbery,
+                $capture,
                 $c->status, $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",