Mercurial > eagle-eye
diff freeland.pl @ 281:0d2c2a379c63
work merged
author | "Rex Tsai <chihchun@kalug.linux.org.tw>" |
---|---|
date | Tue, 02 Dec 2008 17:21:21 +0800 |
parents | a9847bf80058 |
children |
line wrap: on
line diff
--- a/freeland.pl Tue Dec 02 17:20:56 2008 +0800 +++ b/freeland.pl Tue Dec 02 17:21:21 2008 +0800 @@ -36,25 +36,25 @@ }); if($#islands == -1) { - my @cities = Ikariam::Cities->search_lamers(@location); - foreach my $city (@cities) { - my $island = Ikariam::Island->retrieve($city->island); - my $user = Ikariam::User->retrieve($city->user); - printf("%s (%d) \"%s\" %d [%d,%d] http://%s/index.php?view=island&id=%d&selectCity=%d\n", + my @cities = Ikariam::Cities->search_lamers(@location); + foreach my $city (@cities) { + my $island = Ikariam::Island->retrieve($city->island); + my $user = Ikariam::User->retrieve($city->user); + printf("%s (%d) \"%s\" %d [%d,%d] http://%s/index.php?view=island&id=%d&selectCity=%d\n", $user->name, $user->score, $city->cityname, $city->citylevel, $island->x, $island->y, $::server, $island->id, $city->cityId - ); - } + ); + } } else { # 依照距離列表 foreach my $island (@islands) { printf("%d [%d:%d] %s %s http://%s/index.php?view=island&id=%d%s\n", - (abs($x-$island->x) + abs($y-$island->y)), # minutes ? + (abs($x-$island->x) + abs($y-$island->y)), # minutes ? $island->x, $island->y, $tradegoodText[$island->tradegood], $wonderText[$island->wonder],