#!/usr/bin/perl -w
 
use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use HTTP::Cookies;

	my $agent = 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051111 Firefox/1.5';
	my $proxy = '';

my $ua = LWP::UserAgent->new(keep_alive => 1, timeout => 300);
$ua->agent($agent);
$ua->proxy('http', $proxy) if ($proxy ne '');
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave => 1));

	my $uni = 'http://de669.beta.ogame.org/game/'; 
	my $session = '';

	my $auftrag = 4; # 1 = angreifen, 2 = AKS atten, 3 = transport, 4 = stationieren, 5 = AKS halten, 6 = spionage, 7 = kolonisierung, 8 = Abbau, 9 = mondzerstörung?
	
# wähle einen plani/mond im brauser aus, um von dort aus die fleet zu starten.

	my $ziel_gal = 6;
	my $ziel_sys = 211;
	my $ziel_pla = 4;
	my $ziel_art = 1; # 1 = plani, 2 = tf, 3 = mond

	my $v = 10; # Geschwindigkeit: 1 = 10%, ..., 10 = 100%

# daran nicht dran rumschrauben:

	my $url_0 = "".$uni."flotten1.php?session=".$session."";
	my $url_1 = "".$uni."flotten2.php?session=".$session."";
	my $url_2 = "".$uni."flotten3.php?session=".$session."";
	my $url_3 = "".$uni."flottenversand.php?session=".$session."";

	my $maxkt = 9999999999;
	my $maxgt = 9999999999;
	my $maxlj = 9999999999;
	my $maxsj = 9999999999;
	my $maxxer = 9999999999;
	my $maxss = 9999999999;
	my $maxkolo = 9999999999;
	my $maxrec = 9999999999;
	my $maxspio = 9999999999;
	my $maxbomb = 9999999999;
	my $maxzz = 9999999999;
	my $maxrip = 9999999999;

	my $maxmet = 9999999999;
	my $maxkris = 9999999999;
	my $maxdeut = 9999999999;

# was du mitnehmen willst:

	my $kt = $maxkt;
	my $gt = $maxgt;
	my $lj = $maxlj;
	my $sj = $maxsj;
	my $xer = $maxxer;
	my $ss = $maxss;
	my $kolo = $maxkolo;
	my $rec = $maxrec;
	my $spio = $maxspio;
	my $bomb = $maxbomb;
	my $zz = $maxzz;
	my $rip = $maxrip;

	my $met = $maxmet;
	my $kris = $maxkris;
	my $deut = $maxdeut;

# ab hier auch nix verändern:

my $req1_1 = HTTP::Request->new(GET => $url_0);
my $res1_1 = $ua->request($req1_1);
my $content = $res1_1->as_string;

my $req1_2  =  POST $url_1,  
[ ship202 => $kt, ship203 => $gt, ship204 => $lj, ship205 => $sj, ship206 => $xer, ship207 => $ss, ship208 => $kolo, ship209 => $rec, ship210 => $spio, ship211 => $bomb, ship213 => $zz, ship214 => $rip];
my $res1_2 = $ua->request($req1_2);

my $req2  =  POST $url_2,  
[thisresource1 => $met,  thisresource2 => $kris,  thisresource3 => $deut, ship202 => $kt, ship203 => $gt, ship204 => $lj, ship205 => $sj, ship206 => $xer, ship207 => $ss, ship208 => $kolo, ship209 => $rec, ship210 => $spio, ship211 => $bomb, ship213 => $zz, ship214 => $rip, galaxy => $ziel_gal,  system => $ziel_sys,  planet => $ziel_pla,  planettype => $ziel_art,  speed => $v ];
my $res2 = $ua->request($req2);

my $req3  =  POST $url_3,  
[ order => $auftrag,  thisresource1 => $met,  thisresource2 => $kris,  thisresource3 => $deut, ship202 => $kt, ship203 => $gt, ship204 => $lj, ship205 => $sj, ship206 => $xer, ship207 => $ss, ship208 => $kolo, ship209 => $rec, ship210 => $spio, ship211 => $bomb, ship213 => $zz, ship214 => $rip, galaxy => $ziel_gal,  system => $ziel_sys,  planet => $ziel_pla,  planettype => $ziel_art, speed => $v, resource1 => $met, resource2 => $kris, resource3 => $deut ];
my $res3 = $ua->request($req3);

my $success = $res3->as_string;
if ($success =~ /success/igm) {
	print "Flotte wurde erfolgreich verschickt @ ".scalar(localtime)."." 
} else {
	print "Flotte konnte nicht verschickt werden. Ueberpruefe deine Einstellungen und versuche es erneut."
}