Mercurial > eagle-eye
view scan.pl @ 140:124fc7abda39
scan all the islands nearby our own cities.
author | "Rex Tsai <chihchun@kalug.linux.org.tw>" |
---|---|
date | Fri, 31 Oct 2008 10:44:28 +0800 |
parents | 6043e9bfdeef |
children | 0da6658697df |
line wrap: on
line source
#!/usr/bin/perl use strict; use Data::Dumper; use Ikariam; package main; sub saveCities { my ($island, @cities) = @_; if ($#cities == -1) { warn ("empty cities list.\n"); return; } foreach my $h_city (@cities) { $h_city->{island} = $island; $h_city->{'time'} = time; my $c = Ikariam::Cities->retrieve($h_city->{cityId}); if(defined($c)) { foreach (keys(%$h_city)) { $c->set($_ => $h_city->{$_}); } } else { $c = Ikariam::Cities->insert($h_city); } $c->update(); my $user = Ikariam::User->retrieve($h_city->{'user'}); next if (defined($user) && defined($user->time) && $user->time le (time - 60*60*1)); saveUser($h_city->{owner}); } } sub saveUser { my $userName = shift; my $users; foreach my $x (qw/score army_score_main trader_score_secondary/) { $users = $::i->viewScore($x, $userName, 0); foreach my $h_user (values(%{$users})) { printf("Saving user %s\n", $h_user->{'name'}); $h_user->{'time'} = time; my $user = Ikariam::User->retrieve($h_user->{'id'}); if(defined($user)) { foreach (keys(%$h_user)) { $user->set($_ => $h_user->{$_}); } } else { $user = Ikariam::User->insert($h_user); } $user->update(); saveAlly($h_user->{allyId}); } } } sub saveAlly { my $allyId = shift; return unless (defined($allyId) && $allyId ne '0'); # Save for member of ally my $ally = Ikariam::Ally->retrieve($allyId); if(!defined($ally) || $ally->time le (time - 60*60*1)) { my $h_ally = $::i->viewAlly($allyId); $h_ally->{'time'} = time; if(defined($ally)) { foreach (keys(%$h_ally)) { $ally->set($_ => $h_ally->{$_}); } } else { $ally = Ikariam::Ally->insert($h_ally); } } } our $i = new Ikariam($::server, $::user, $::pass); if($#ARGV == 1) { $i->login; my @islands = $i->viewWorldMap($ARGV[0], $ARGV[1]); saveIslands(@islands); $i->logout; } elsif($#ARGV == 0) { $i->login; my $island = $ARGV[0]; my @cities = $i->viewIsland($island); saveCities($island, @cities); $i->logout; } elsif($#ARGV == -1) { $i->login; my $cities = $i->check; foreach my $cityId (keys(%$cities)) { my @islands = $i->viewWorldMap( $cities->{$cityId}->{island}->{x}, $cities->{$cityId}->{island}->{y}); saveIslands(@islands); } $i->logout; } else { die("Usage: $0\nUsage: $0 x y\n"); } sub saveIslands { my @islands = shift; foreach my $h_island (@islands) { printf("checking island %d\n", $h_island->{id}); my $island; if($island = Ikariam::Island->retrieve($h_island->{id})) { foreach my $i (keys(%$h_island)) { $island->set($i => $h_island->{$i}); } } else { $island = Ikariam::Island->insert($h_island); } # scanning the island if($island->time le (time - 60*60*6)) { my @cities = $i->viewIsland($h_island->{id}); saveCities($h_island->{id}, @cities); $island->set('time', time); } $island->update(); } } # $i->getCityInfo();