comparison Ikariam.pm @ 28:99723b8f348b

added rule_corruption
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 10 Oct 2008 04:42:05 +0800
parents dd85b55eec2a
children dbec53e754e3
comparison
equal deleted inserted replaced
27:dd85b55eec2a 28:99723b8f348b
297 $self->{'cities'}->{$cityId}->{happiness_text} = $happiness[$j]; 297 $self->{'cities'}->{$cityId}->{happiness_text} = $happiness[$j];
298 } 298 }
299 } 299 }
300 300
301 # Space, 房屋數 301 # Space, 房屋數
302 $self->{'cities'}->{$cityId}->{"space"} = {};
302 foreach my $j (qw/occupied total/) { 303 foreach my $j (qw/occupied total/) {
303 my ($elem) = $html->getElementsByAttribute("class", sprintf("value %s", $j)); 304 my ($elem) = $html->getElementsByAttribute("class", sprintf("value %s", $j));
304 if(defined($elem)) { 305 if(defined($elem)) {
305 $self->{'cities'}->{$cityId}->{"space_" . $j} = $elem->innerText(); 306 $self->{'cities'}->{$cityId}->{"space"}->{$j} = $elem->innerText();
306 } 307 }
307 } 308 }
308 309
309 # Actions 310 # Actions
310 # <span id="value_maxActionPoints">1</span> 311 # <span id="value_maxActionPoints">1</span>