Heres the script so far:
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 = 4621949;
////////////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
SRLId:= '3586';
SRLPassword:= 'skater';
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'User';
Players[0].Pass := 'Pass';
Players[0].Nick := 'Nick';
Players[0].Active := True;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Anti;
begin
FindNormalRandoms
if (Findfight) then
begin
runaway('N', false, 3, 9000+random(1000));
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Antiban;
begin
case random(10) of
0: BoredHuman;
2: RandomMovement;
4: PickUpMouse;
6: HoverSkill('woodcutting', false);
8: RandomRClick;
end;
wait(random(2000));
end;
////////////////////////////////////////////////////////////////////////////////
procedure Cut;
var
Inv: Integer;
begin
repeat
if(FindObj(x,y,'ree',Tree,15)) and not(InvFull) then
begin
Inv := InvCount;
Mouse(x,y,5,5,true);
Flag;
Clicks := Clicks + 1
ReportVars[0]:= 1;
Anti;
repeat
wait (random(1000));
until(InvCount > Inv);
Anti;
end;
until (InvFull);
end;
////////////////////////////////////////////////////////////////////////////////
Procedure Drop;
var
Logs: Integer;
begin
Logs := DTMFromString('78DA63CC65626078C68002F2428DC0342394C' +
'F580254F396010D30A2AAA906AA794A404D1950CD2D026A92806A' +
'EE1250130754F386809A34A09A8FF8D500000D2D0A5C');
if(FindDTM(logs,x,y,MIX1,MIY1,MIX2,MIY2))then
begin
DropAll;
wait(1000+random(500));
Writeln('Dropped');
Anti;
Logs := Logs + 28
ReportVars[0]:= 28;
end;
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;
////////////////////////////////////////////////////////////////////////////////
procedure SetUp;
begin
SetUpSRL;
ScriptID := '599';
end;
////////////////////////////////////////////////////////////////////////////////
begin
Setup;
DeclarePlayers;
Signature;
Disguise('Winamp');
If SRLID = '' then
begin
Writeln('Register at SRL now and stop Leech`n');
TerminateScript;
end;
wait(2000);
If (Not FindRS) then
begin
Terminatescript;
end else
begin
ActivateClient;
Writeln('Found RuneScape');
wait(5000);
LoginPlayer;
end;
repeat
If (Not loggedin)then
begin
Terminatescript;
end;
SetAngle(true);
MakeCompass('n');
Cut;
AntiBan;
Anti;
Drop;
Anti;
AntiBan;
Proggy;
until(False)
end.
It will log in, then just sit there... any idea why?
Forgot to put "mind" after someone in title, i don't have bad grammar just bad typing skills lmfao