eagle-eye: enemy.pl annotate

annotate enemy.pl @ 41:5849b6fdc76c

removed my password from scripts.

author	"Rex Tsai <chihchun@kalug.linux.org.tw>"
date	Fri, 17 Oct 2008 01:27:10 +0800
parents	0863b32e1a05
children	4f7bca0d6190

rev	line source
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	1 #!/usr/bin/perl
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	2 use strict;
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	3 use Ikariam;
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	4 use Data::Dumper;
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	5
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	6 package main;
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	7 my @tradegoodText = qw/NULL 葡萄酒大理石水晶硫磺/;
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	8 my @wonderText = qw/NULL 赫菲斯拓斯的熔爐蓋亞的神殿狄奧尼索斯的花園雅典娜的神殿赫秘士的神殿阿瑞斯的要塞波賽頓的神殿克羅瑟斯的神殿/;
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	9
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	10 if($#ARGV != 0) {
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	11 die("Usage: $0 nickname\n");
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	12 }
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	13
38 0863b32e1a05 counting for the capture we can get from the enemy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 27 diff changeset	14 # system('perl scores.pl ' . $ARGV[0]);
27 dd85b55eec2a implemented basic inference engine. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 20 diff changeset	15
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	16 Ikariam::User->has_many(cities => 'Ikariam::Cities');
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	17 my ($u) = Ikariam::User->search('name' => $ARGV[0]);
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	18 if(defined($u)) {
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	19 foreach my $i (qw/name score trader_score_secondary army_score_main ally/) {
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	20 printf("%s: %s\n", $i, $u->get($i));
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	21 }
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	22 printf("\nCities\n");
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	23 # print Dumper($u->_data_hash);
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	24 foreach my $city ($u->cities) {
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	25 my $island = Ikariam::Island->retrieve($city->island);
38 0863b32e1a05 counting for the capture we can get from the enemy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 27 diff changeset	26 my $robbery = $city->citylevel * ($city->citylevel - 1) * $u->trader_score_secondary / 10000;
0863b32e1a05 counting for the capture we can get from the enemy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 27 diff changeset	27
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	28 printf("Name: %s\n", $city->cityname);
20 5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	29 if(defined($city->status))
5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	30 {
5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	31 printf("Status: <<<%s>>>\n", $city->status);
5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	32 }
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	33 printf("Level: %s\n", $city->citylevel);
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	34 printf("Island: %s\n", $island->name);
38 0863b32e1a05 counting for the capture we can get from the enemy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 27 diff changeset	35 printf("Location: [%s:%s] http://s2.ikariam.tw/index.php?view=island&id=%s&selectCity=%d\n",
0863b32e1a05 counting for the capture we can get from the enemy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 27 diff changeset	36 $island->x, $island->y, $island->id, $city->cityId);
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	37 printf("Tradegood: %s\n", $tradegoodText[$island->tradegood]);
38 0863b32e1a05 counting for the capture we can get from the enemy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 27 diff changeset	38 printf("Wonder: %s\n", $wonderText[$island->wonder]);
0863b32e1a05 counting for the capture we can get from the enemy "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 27 diff changeset	39 printf("Robbery score: %d\n\n", $robbery);
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	40 # print Dumper($island->_data_hash);
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	41 # print Dumper($city->_data_hash);
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	42 }
e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	43 }

Mercurial > eagle-eye

annotate enemy.pl @ 41:5849b6fdc76c