Mercurial > eagle-eye
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",