view enemy_scores.pl @ 366:2cfa03edc22e

ignore island we don't know yet
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 01 Mar 2009 11:10:52 +0800
parents cea21f99e56f
children e551351b18de
line wrap: on
line source

#!/usr/bin/perl
use strict;
use Ikariam;
use Data::Dumper;
use YAML qw/LoadFile/;
use POSIX qw(strftime);

package main;
my @tradegoodText = qw/NULL 葡萄酒 大理石 水晶 硫磺/;
my @wonderText = qw/NULL 赫菲斯拓斯的熔爐 蓋亞的神殿 狄奧尼索斯的花園 雅典娜的神殿 赫秘士的神殿 阿瑞斯的要塞 波賽頓的神殿 克羅瑟斯的神殿/;

package main;

if($#ARGV != 0) {
    die("Usage: $0 nickname\n");
}

my ($u) = Ikariam::User->search('name' => $ARGV[0]);
if(defined($u)) {
    foreach my $i (qw/name time score trader_score_secondary army_score_main ally/) {
        if($i eq "time") {
            printf("time: %s, ",  strftime ("%Y-%m-%d %H:%M", localtime($u->get('time'))));
        } else {
            printf("%s: %s, ", $i, $u->get($i));
        }
    }
    print("\n");
}