Mercurial > eagle-eye

comparison agent.pl @ 80:7ab5fc8c847c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added some memo of TODO
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 24 Oct 2008 21:56:03 +0800
parents 9d92e8c12f58
children d57920014cb4
comparison
equal deleted inserted replaced
79:9d92e8c12f58 80:7ab5fc8c847c
17 } 17 }
18 18
19 sub is_attacked { 19 sub is_attacked {
20 my ($self, $city) = @_; 20 my ($self, $city) = @_;
21 # XXX 21 # XXX
22 return ($city->{wars}->{attacks} > 0 ) ? 1 : 0; 22 # $self->{'military'}->{wars}->{attacks}
23 # return ($city->{wars}->{attacks} > 0 ) ? 1 : 0;
24 return 0;
23 } 25 }
24 26
25 sub is_constructing { 27 sub is_constructing {
26 my ($self, $city) = @_; 28 my ($self, $city) = @_;
27 return ($city->{construction} > 0 ) ? 1 : 0; 29 return ($city->{construction} > 0 ) ? 1 : 0;