Ok, my script will just pass over my procedures and print the proggy, then repeat... someone mind telling me why?
SCAR Code:
{/////|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\\\\\
/////|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\\\\\
||||| |||||
||||| PowerCutter Ver 1 by Mikevskater |||||
||||| This ver only cuts normal trees... |||||
||||| Thanks ALOT to pwnaz0r for fixing my cut procedure! |||||
||||| |||||
\\\\\|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||/////
\\\\\|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||/////
}
program FirstScript;
{.include srl/srl.scar}
var
x, y: Integer;
Logs: Integer;
Clicks: Integer;
const
Tree = 2638907;
////////////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
SRLID := ' ';
SRLPassword := ' ';
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ' ';
Players[0].Pass := ' ';
Players[0].Nick := ' ';
Players[0].Active := True;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Anti;
begin
FindNormalRandoms
if FindFight then
RunAway('N', True, 1, 9000+random(1000));
end;
////////////////////////////////////////////////////////////////////////////////
procedure Antiban;
begin
case random(20) of
0: BoredHuman;
2: RandomMovement;
4: PickUpMouse;
6: HoverSkill('woodcutting', false);
8: RandomRClick;
end;
wait(random(2000));
end;
////////////////////////////////////////////////////////////////////////////////
procedure Cut;
var
Inv, z, zz: Integer;
begin
repeat
if invfull then break;
if FindObj(x, y, 'ree', Tree, 50) then
begin
Inv := InvCount;
Mouse(x, y, 5, 5, True);
z := 0;
FFlag(0);
Clicks := Clicks + 1
zz := 0;
ReportVars[1] := 1;
Anti;
repeat
wait(random(100));
z := z+1
until(InvCount > Inv) or (z > 150) or InvFull;
Anti;
end else
zz:=zz+1
until (InvFull) or (zz>28);
end;
////////////////////////////////////////////////////////////////////////////////
Procedure Drop;// By Timer150
var
i: Integer;
ItemPoint: TPoint;
begin
GameTab(4);
Wait(1000 + Random(500));
for i := 1 to 28 do
if (ExistsItem(i)) then
begin
ItemPoint := ItemCoords(i);
MMouse(ItemPoint.x, ItemPoint.y, 5, 5);
Wait(500 + Random(60));
if IsUpText('og') then
begin
Mouse(ItemPoint.x, ItemPoint.y, 5, 5, False);
Wait(500 + Random(50));
ChooseOption('rop');
logs := logs + 1;
ReportVars[0] := 1;
end;
end;
ArrangeInv;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Proggy;
begin
{ClearDebug;
Writeln('/-----------------------------------\');
Writeln('| PowerCutter by MikeVSkater |');
Writeln('\-----------------------------------/');
Writeln('/-----------------------------------\');
writeln(' Clicks: ' + inttostr(clicks));
Writeln(' Logs: ' + inttostr(logs));
Writeln(' Time: ' + TimeRunning);
Writeln('\-----------------------------------/');}
end;
////////////////////////////////////////////////////////////////////////////////
procedure Signature;
begin
ClearDebug;
Writeln('PowerCutter made by Mikevskater');
wait(500);
Writeln('This is my first script so please help me '+
'on anything you know that I dont?');
Wait(1000+random(500))
end;
////////////////////////////////////////////////////////////////////////////////
begin
SetupSRL;
ScriptID := '599';
DeclarePlayers;
Signature;
Disguise('Winamp');
If SRLID = '' then
begin
Writeln('Register at SRL now and stop Leech`n');
TerminateScript;
end;
wait(100 + Random(500));
If (Not FindRS) then
begin
Terminatescript;
end else
begin
ActivateClient;
Writeln('Found RuneScape');
Wait(500 + random(50));
If (Loggedin) then
begin
LogOut;
end;
LoginPlayer;
end;
SetAngle(True);
MakeCompass('N');
repeat
Cut;
Writeln('First');
wait(100);
AntiBan;
Writeln('Secound');
wait(100);
Anti;
Writeln('Third');
wait(100);
Drop;
Writeln('Four');
wait(100);
Anti;
Writeln('Five');
wait(100);
AntiBan;
Writeln('Six');
wait(100);
Proggy;
Writeln('Seven');
wait(100);
SRLRandomsReport;
until(False)
end.
Numbers are in main loop for debug.... Someone mind helpin me out?