Mercurial > eagle-eye

comparison warfare.pl @ 209:31fca1e55ed5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
we don't fight with sheep has only a little money
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Mon, 03 Nov 2008 22:28:28 +0800
parents d9f17bcbf1f1
children 978a949602e5
comparison
equal deleted inserted replaced
208:a2bb38589172 209:31fca1e55ed5
108 $c++ if($_->{to} == $city->cityId || $_->{from} == $city->cityId); 108 $c++ if($_->{to} == $city->cityId || $_->{from} == $city->cityId);
109 } 109 }
110 # we attack one city maximum 4 times a day. 110 # we attack one city maximum 4 times a day.
111 next if($c >= 4); 111 next if($c >= 4);
112 112
113 my $capture = $city->citylevel * ($city->citylevel - 1) * $sheep->trader_score_secondary / 10000;
114 next if($capture < 1500);
115
113 # { 116 # {
114 my $capture = $city->citylevel * ($city->citylevel - 1) * $sheep->trader_score_secondary / 10000;
115 my $line = sprintf("%d %s [%d,%d] %s (%d) %s Attacked %d", 117 my $line = sprintf("%d %s [%d,%d] %s (%d) %s Attacked %d",
116 $capture, $city->status, 118 $capture, $city->status,
117 $island->x, $island->y, 119 $island->x, $island->y,
118 $city->cityname, $city->cityId, 120 $city->cityname, $city->cityId,
119 $sheep->name, $c); 121 $sheep->name, $c);