can any1 help me with this script it logs in the logs back out
SCAR Code:
program Ess_Power_Miner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}
var
k1, k2, s1, s2, runtime : integer;
const
rockcolor1= '9539996';
rockcolor2= '10856114';
Loads = 3;// amount of loads ess mining is pritty easy so pick high
Version = '1';
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
CurrentPlayer:= 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '';//username
Players[0].Pass := '';//password
Players[0].Nick := '';//3-4 letter of ur username not the first 1
Players[0].Active := True;
//
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
// antiban by osmm //
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
procedure Antiban;//antiban
begin
MouseSpeed := 9 + Random(5);
case random(7) of
0: begin
SleepAndMoveMouse(500 + random(500));
SleepAndMoveMouse(1500);
end;
1: begin
MMouse(Random (500), Random (500), 10 , 10);
MMouse(Random (500), Random (500), 10 , 10);
end;
2: begin
GameTab(1 + random(13));
FTWait(RandomRange(2,4));
GameTab(4);
end;
3: begin
RandomMovement;
ChooseOption('Cancel');
end;
4: begin
GameTab(2);
FTWait(RandomRange(2,4));
GameTab(4);
end;
5: begin
FTWait(RandomRange(2,4));
RandomMovement;
GameTab(4);
end;
6: begin
Pickupmouse;
BoredHuman;
GameTab(4);
end;
end;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
// procedure sleep; //
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
Procedure sleep2;
Begin
If(runTime = 0) Then
MarkTime(runTime)
Else If(TimeFromMark(runTime)>=(1200000)) Then
Begin
Logout;
NextPlayer(True);
MarkTime(runTime);
s1 := s1+1
End;
End;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
//procedure randoms; by every1 realy common in scripts //
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
Procedure Randoms;
Begin
FindTalk; //finds talkin randoms
FindNormalRandoms; //finds normal randoms
SolveChatRandom; //sloves chat randoms
FindLamp('mining'); //solves lamp and then choses a skill to update
SolvePinball; //solves pinball random
DwarfItem; //dropes dawalf items
FindPick;
if finddead then
begin
logout;
nextplayer(False);
end;
If(FindFight)Then
wait(10000 +random(2000));
Begin
MakeCompass('N');
RunTo('E', True);
Wait(4000 +Random(2000));
runto('E', true)
Wait(6000 +Random(2000));
Runto('w', true);
wait(6000 +random(2000));
runto('w', true);
wait(4000 +random(2000));
End;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
// reports
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
procedure Reports;
begin
writeln('----------ess power miner----------------------------');
writeln('----------mined about '+IntToStr(k1)+' essence-------');
writeln('----------Droped '+IntToStr(k2)+' inventorys---------');
writeln('----------Worked For '+TimeRunning+' ----------------');
writeln('----------version 1----------------------------------');
writeln('----------loged out '+IntToStr(s1)+' times-----------');
writeln('----------antiban preformed '+IntToStr(s2)+' times---');
SRLRandomsReport;
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
// procedure mineess; by me modfied by osmm //
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
Procedure MineEss;
var
x, y : integer;
begin
Disguise('mining & droping');
repeat
if InvFull then
begin
gametab(4);
Dropall;
randoms;
Reports;
k1 := k1+ 28
k2 := k2+ 1
s2 := s2+1
end else
if FindObjCustom(x, y, ['Mine', 'ess'], [rockcolor1, rockcolor2], 3) then
begin
mouse(x, y, 10, 10, true);
FindNormalRandoms;
Antiban;
randoms;
wait(750 + random(750));
end;
until(false);
end;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
// end of script very improtant //
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
begin
CheckUserNicks;
SetupSRL;
Disguise('starting script');
Getapplication.minimize;
ActivateClient;
DeclarePlayers;
loginplayer;
Disguise('script started');
disguise('itunes')
randoms;
repeat
MineEss;
sleep2;
if k2 = Loads then
reports;
NextPlayer(True);
until (false);
end.