Mercurial > eagle-eye

comparison enemy.pl @ 27:dd85b55eec2a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implemented basic inference engine.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 10 Oct 2008 03:38:49 +0800
parents 5635e75c92d0
children 0863b32e1a05
comparison
equal deleted inserted replaced
26:d8117792c6f5 27:dd85b55eec2a
8 my @wonderText = qw/NULL 赫菲斯拓斯的熔爐 蓋亞的神殿 狄奧尼索斯的花園 雅典娜的神殿 赫秘士的神殿 阿瑞斯的要塞 波賽頓的神殿 克羅瑟斯的神殿/; 8 my @wonderText = qw/NULL 赫菲斯拓斯的熔爐 蓋亞的神殿 狄奧尼索斯的花園 雅典娜的神殿 赫秘士的神殿 阿瑞斯的要塞 波賽頓的神殿 克羅瑟斯的神殿/;
9 9
10 if($#ARGV != 0) { 10 if($#ARGV != 0) {
11 die("Usage: $0 nickname\n"); 11 die("Usage: $0 nickname\n");
12 } 12 }
13
14 system('perl scores.pl ' . $ARGV[0]);
13 15
14 Ikariam::User->has_many(cities => 'Ikariam::Cities'); 16 Ikariam::User->has_many(cities => 'Ikariam::Cities');
15 my ($u) = Ikariam::User->search('name' => $ARGV[0]); 17 my ($u) = Ikariam::User->search('name' => $ARGV[0]);
16 if(defined($u)) { 18 if(defined($u)) {
17 foreach my $i (qw/name score trader_score_secondary army_score_main ally/) { 19 foreach my $i (qw/name score trader_score_secondary army_score_main ally/) {