#!/usr/bin/perl -w

use HTTP::Cookies;
use LWP;
#unless(@ARGV){print("use comb.pl user pass\n");exit;};

my $ua = LWP::UserAgent->new(agent=>'Mozilla/4.0 (compatible; Windows 5.1)',timeout=>10);
$ua->cookie_jar( HTTP::Cookies->new());
#$proxy='206.107.24.126:3128';
#$ua->proxy('http', "http://$proxy/" );
#---------------
my $test=0;
my $i=0;
my @liv;
my $otk=0;
$liv[0]=1;
$liv[1]=1;
$req = new HTTP::Request 'POST','http://suncity.combats.ru/enter.pl';
$data='login='.$ARGV[0].'&psw='.$ARGV[1].'&F1';
$req->content_type('application/x-www-form-urlencoded');
$req->content($data);
$req->referer('http://combats.ru');
$res = $ua->request($req);
$content=$res->content;
$content=~ s/battle=([.0-9]+)"/$1/g;
if(!$1){die "no login\n";}


BLOCK :{
$live=0;
$alllive=21;
#---------LIVE------------
until($live==$alllive){
$res=$ua->get('http://suncity.combats.ru/inf.pl?#TUT ID IGROKA#'); 
$content=$res->content;
$content=~ s/top.setHP\((\d+),(\d+)//g;
$live=$1;
if($live!=int($live)){
print "IP BANNED\n";
exit;
}
$alllive=$2;
print "MY LIVE :$live/$alllive\n";
if($live<$alllive){
sleep(25*($alllive-$live));
}
}
#-------------------------
OUTER : while(1){
$res=$ua->get('http://suncity.combats.ru/zayavka.pl?level=fiz'); 
$content=$res->content;
$content=~ s/name=my_id value=(\d+)>/$1/;
$myid=$1;
while($content=~ m/value=(\d+)>\s*<\/*font class=date>\d+:\d+<\/font>\s*<SCRIPT>drwfl\("([- _a-z0-9]+)",(\d{10}),/ig){
$inf=$3;
$nameen=$2;
$enemch=$1;
$rest=$ua->get('http://suncity.combats.ru/inf.pl?'.$inf); 
$cont=$rest->content;
if($cont=~ s/top.setHP\((\d+),(\d+)//g){
$eneml=$1;
print $nameen." ";
if($eneml<=$alllive){
print "\nNAME :".$nameen.",LIVE :".$eneml."\n";
$req = new HTTP::Request 'POST','http://suncity.combats.ru/zayavka.pl';
$data='gocombat='.$enemch.'&confirm2=dfg&F1&level=begin&my_id='.$myid;
$req->content_type('application/x-www-form-urlencoded');
$req->content($data);
$res = $ua->request($req);
$con=$res->content;

if($con=~ m/name=close/ig){
print "ozhidanie podtvergdeniya\n";
until($content=~ m/let_attack/ig){
$res=$ua->get("http://suncity.combats.ru/battle.pl"); 
$content=$res->content;
$rest=$ua->get("http://suncity.combats.ru/zayavka.pl"); 
$co=$rest->content;
if($co=~ m/value=10 selected/ig){
print "otkaz\n";
#redo OUTER;
}
#print "wait fight\n";
$otk++;
if($otk==10){
#OTKAZ


}
sleep(30);
}
$content=~ s/name=myid value="(\d+)"//g;
$myid=$1;
print "start fight\n";
while($content!~ m/302 Found/ig){
$req = new HTTP::Request 'POST','http://suncity.combats.ru/battle.pl';
$att=int(rand(5)+1);
$def=int(rand(5)+1);
print $att.':'.$def."\n";
$data='f1=df&myid='.$myid.'&defend='.$def.'&enemy='.$enemch.'&attack0='.$att;
$req->content_type('application/x-www-form-urlencoded');
$req->content($data);
$res = $ua->request($req);
$content=$res->content;
open(IN,'>zzzz.html');
print IN $content;
close(IN);
while($content=~ m/id="refreshb/ig){
#print "wait enemy\n";
sleep(12);
$res=$ua->get("http://suncity.combats.ru/battle.pl"); 
$content=$res->content;
}
while($content=~ m/(\w+)\s*<\/span> \[(\d+)\/(\d+)/g){
if($1 && $2 && $3 ){
print "$1:[$2/$3]\n";
$liv[$i]=$2;
$i++;
}}
$i=0;
}
print "FINISH FIGHT\n";
$res=$ua->get('http://suncity.combats.ru/inf.pl?#TUT ID IGROKA#'); 
$content=$res->content;
$content=~ s/top.setHP\((\d+),(\d+)//g;
$live=$1;
if($live==0){
print "you die :(\n";
}
else{
$res=$ua->get('http://suncity.combats.ru/inf.pl?'.$inf); 
$content=$res->content;
$content=~ s/top.setHP\((\d+),(\d+)//g;
$livee=$1;
if($livee==0){
print "YOU WIN!!!\n";
}}
redo BLOCK;
}}}
}
print "\n";
sleep(5);
}
}