Mercurial > eagle-eye

comparison disturb.pl @ 364:7274d8f41d5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refined the timing for sending ships
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 01 Mar 2009 11:10:10 +0800
parents 7f38a5cb769e
children 9f19fe8d189c
comparison
equal deleted inserted replaced
363:3b2658751efa 364:7274d8f41d5f
5 package main; 5 package main;
6 my $ikariam = new Ikariam($::server, $::user, $::pass); 6 my $ikariam = new Ikariam($::server, $::user, $::pass);
7 7
8 if($#ARGV != 2) { die("Usage: $0 blockadeCity myCity travelTime\n"); } 8 if($#ARGV != 2) { die("Usage: $0 blockadeCity myCity travelTime\n"); }
9 my ($blockadeCity, $myCity, $travelTime) = @ARGV; 9 my ($blockadeCity, $myCity, $travelTime) = @ARGV;
10 $travelTime = ($travelTime - 10);
10 11
11 LOOP: while(1) { 12 LOOP: while(1) {
12 $ikariam->login; 13 $ikariam->login;
13 # delete the old event, and launch a new one. 14 # delete the old event, and launch a new one.
14 my $res = $ikariam->{mech}->get(sprintf('http://%s/index.php?view=militaryAdvisorMilitaryMovements', $::server)); 15 my $res = $ikariam->{mech}->get(sprintf('http://%s/index.php?view=militaryAdvisorMilitaryMovements', $::server));