Mercurial > eagle-eye

comparison Ikariam.pm @ 197:dbdd7dcc91c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed for friendly troop and corruption
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Mon, 03 Nov 2008 03:17:43 +0800
parents 1332231eb5a0
children e9f111057392
comparison
equal deleted inserted replaced
196:ad88b3c92383 197:dbdd7dcc91c6
970 my $self = shift; 970 my $self = shift;
971 971
972 # MilitaryAdvisor 972 # MilitaryAdvisor
973 $self->checkMilitaryAdvisorMilitaryMovements(); 973 $self->checkMilitaryAdvisorMilitaryMovements();
974 $self->checkMilitaryAdvisorCombatReports(); 974 $self->checkMilitaryAdvisorCombatReports();
975 $self->checkFriends();
976 $self->{'research'} = $self->checkResearch((keys(%{$self->{'cities'}}))[0]); 975 $self->{'research'} = $self->checkResearch((keys(%{$self->{'cities'}}))[0]);
977 976
978 # alerts 977 # alerts
979 # //li[@id="advCities"]/a[@class="normalalert"] 978 # //li[@id="advCities"]/a[@class="normalalert"]
980 # //li[@id="advMilitary"]/a[@class="normalalert"] 979 # //li[@id="advMilitary"]/a[@class="normalalert"]
986 $self->checkCity($cityId); 985 $self->checkCity($cityId);
987 $self->checkTownHall($cityId); 986 $self->checkTownHall($cityId);
988 $self->checkArmies($cityId); 987 $self->checkArmies($cityId);
989 $self->checkTavern($cityId); 988 $self->checkTavern($cityId);
990 } 989 }
990 # $self->checkFriends();
991 return $self->{'cities'}; 991 return $self->{'cities'};
992 } 992 }
993 993
994 sub getNetIncome { 994 sub getNetIncome {
995 my $self = shift; 995 my $self = shift;