desert.pm
package Desert;
use LWP::UserAgent;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(NeedSleep InBattle CheckProxy DieMe AliveMe KillSelf Guns Auth
ALRun);
sub NeedSleep
{@file=@_;
$slkoef=630;
$tis="(\.[^/]*) / (\.[^/]*)";
$i=0;
$strmask="HP \.$tis\.\">Персонаж</a>";
foreach my $tp (@file)
{
while ($tp=~/$strmask/g){$curh=$1; $maxh=$2;}
}
if ($maxh>0) {$slp=int((($maxh-$curh)/$maxh)*$slkoef);}
return $slp;
}
sub InBattle
{@livma=@_;
$dead=1;
$strmask="<a href=\"map.php\">Карта</a>";
foreach my $isk (@livma)
{
while ($isk=~/$strmask/g){$dead=0;}
}
return $dead;
}
sub CheckProxy
{$proxyd=$_[0];
$result=0;
$ua = LWP::UserAgent->new;
$ua -> timeout(6);
$ua->proxy(['http', 'ftp'] => "http://$proxyd");
$res = $ua->request(HTTP::Request->new(GET => "http://desert.com.ru"));
@req=$res->content;
$strmask="<title>Проклятая пустыня \.Проклятая Пустыня\.</title>";
foreach my $isk (@req)
{
while($isk=~/$strmask/g){$result=1;}
}
return $result;
}
sub DieMe
{$name=$_[0];
$st=''; $marker='';
open(FILE,"./sessions.dat");
@result=<FILE>;
close(FILE);
for($i=0;$i<=$#result;$i++)
{
while ($result[$i]=~/$name/ig){($nm,$st)=split(/\|/,$result[$i]);
chomp($st); $marker=$i;}
}
if ($st==2)
{$result[$marker]="$name|0";
open(FILE,">./sessions.dat");
for ($i=0;$i<=$#result;$i++)
{chomp($result[$i]);
if ($i==$#result){$pb="";}
else{$pb="\n";}
print FILE "$result[$i]$pb";
}
close(FILE);
die"System call to die";
}
}
sub AliveMe
{
$name=$_[0];
$marker='';
open(FILE,"./sessions.dat");
@result=<FILE>;
close(FILE);
for($i=0;$i<=$#result;$i++)
{
while ($result[$i]=~/$name/ig){$marker=$i;}
}
if ($marker ne '')
{
$result[$marker]="$name|1";
open(FILE,">./sessions.dat");
for ($i=0;$i<=$#result;$i++)
{chomp($result[$i]);
if ($i==$#result){$pr="";}
else {$pr="\n";}
print FILE "$result[$i]$pr";
}
close(FILE);
}
else
{
$rz="$name|1";
push(@result, $rz);
open(FILE,">./sessions.dat");
for ($i=0;$i<=$#result;$i++)
{chomp($result[$i]);
if ($i==$#result){$pr="";}
else {$pr="\n";}
print FILE "$result[$i]$pr";
}
close(FILE);
}
}
sub KillSelf
{
$name=$_[0];
open(FILE,"./sessions.dat");
@result=<FILE>;
close(FILE);
for($i=0;$i<=$#result;$i++)
{
while ($result[$i]=~/$name/ig){($nm,$st)=split(/\|/,$isk); chomp($st);
$mar=$i;}
}
$result[$mar]="$name|0";
open(FILE,">./sessions.dat");
for ($i=0;$i<=$#result;$i++)
{chomp($result[$i]);
if ($i==$#result){$pr="";}
else {$pr="\n";}
print FILE "$result[$i]$pr";
}
close(FILE);
}
sub Guns
{@mas=@_;
$a=0; $i=0;
$tisk="name=\"atak\"";
$tisk2="name=\"atak_2\"";
foreach my $isk (@mas)
{
if ($a==0){while ($isk=~/$tisk/g){$a=1; $i++;}}
if ($a==1){while ($isk=~/$tisk2/g){$a=2; $i++;}}
}
return $i;
}
sub Auth
{@mas=@_;
$tisk="неверная пара логин";
foreach my $isk (@mas)
{
while($isk=~/$tisk/g){die""}
}
}
sub ALRun
{
$name=$_[0];
open(FILE,"./sessions.dat");
@result=<FILE>;
close(FILE);
for($i=0;$i<=$#result;$i++)
{
while ($result[$i]=~/$name/ig){($nm,$st)=split(/\|/,$result[$i]);
chomp($st);}
}
if (($st==2)||($st==1))
{$ret=1;}
else {$ret=0;}
return $ret;
}
