comparison sheep.pl @ 350:85c17a9245e3

refined the sheep rules
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 15 Feb 2009 02:09:47 +0800
parents b245f259776f
children 84311fc6fe35
comparison
equal deleted inserted replaced
348:b245f259776f 350:85c17a9245e3
73 next if($ally->score > $myAlly->score); 73 next if($ally->score > $myAlly->score);
74 } 74 }
75 } 75 }
76 } 76 }
77 77
78 next if($c->citylevel le 10); 78 next if($c->citylevel le 5);
79 next if($c->risk ge 30); 79 next if($c->risk ge 50);
80 my $island = Ikariam::Island->retrieve($c->island); 80 my $island = Ikariam::Island->retrieve($c->island);
81 81
82 82
83 $line = sprintf("%d %s score %d army %d risk %d %s/%s,", 83 $line = sprintf("%d %s score %d army %d risk %d %s/%s,",
84 travelTime($::x, $::y, $island->x, $island->y), 84 travelTime($::x, $::y, $island->x, $island->y),