Mercurial > eagle-eye

comparison planner.pl @ 354:72df6f5bd05d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
watting two nay fights
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 15 Feb 2009 14:21:07 +0800
parents 85d60a0569bf
children 58351fccf619
comparison
equal deleted inserted replaced
353:6c03c2c80429 354:72df6f5bd05d
59 my $targetCity = Ikariam::Cities->retrieve($targetCityId); 59 my $targetCity = Ikariam::Cities->retrieve($targetCityId);
60 60
61 61
62 # NAVY 62 # NAVY
63 my $city = LoadFile(sprintf("city-%s-dump.yaml", $navyCity)); 63 my $city = LoadFile(sprintf("city-%s-dump.yaml", $navyCity));
64 $city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 33) + 25; 64 $city->{distance} = travelTime($targetCity->island->x, $targetCity->island->y, $city->{island}->{x}, $city->{island}->{y}, 33) + 45;
65 $city->{type} = "navy"; 65 $city->{type} = "navy";
66 push (@cities, $city); 66 push (@cities, $city);
67 67
68 # ARMY 68 # ARMY
69 my $city = LoadFile(sprintf("city-%s-dump.yaml", $armyCity)); 69 my $city = LoadFile(sprintf("city-%s-dump.yaml", $armyCity));