ok now everything is screwed up.... can someone please fix this? ill give rep to whomever helps me out here...
SCAR Code:
{/////|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\\\\\
/////|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\\\\\
||||| |||||
||||| PowerCutter Ver 1 by Mikevskater |||||
||||| This ver only cuts normal trees... |||||
||||| |||||
\\\\\|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||/////
\\\\\|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||/////
}
program FirstScript;
{.include srl/srl.scar}
var
x,y: Integer;
Loads: Integer;
Clicks: Integer;
const
Tree = 4621949;
////////////////////////////////////////////////////////////////////////////////
procedure Anti;
begin
if (Findfight = true) then
begin
runaway('N', false, 3, 9000+random(1000));
end;
case random(10) of
0: BoredHuman;
2: RandomMovement;
4: PickUpMouse;
6: HoverSkill('woodcutting', false);
8: RandomRClick;
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Cut;
var
a,b,chopstart: Integer;
begin
repeat
if(FindObj(x,y,'ree',Tree,15)) and not(InvFull) then
begin
Mouse(x,y,5,5,true);
Flag;
MarkTime(chopstart);
a := InvCount;
Clicks := Clicks + 1
Anti;
repeat
wait (random(1000));
b := InvCount;
until(b > a);
Anti;
end;
until (not loggedIn) or (Not isuptext('hop')) or (TimeFromMArk(Chopstart) > (30000+random(15000)));
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;
Loads := Loads + 1
end;
end;
////////////////////////////////////////////////////////////////////////////////
procedure Proggy;
begin
ClearDebug;
Writeln('/-----------------------------------\');
Writeln('| PowerCutter by MikeVSkater |');
Writeln('\-----------------------------------/');
Writeln('/-----------------------------------\');
writeln(' Clicks: '+inttostr(clicks));
Writeln(' Logs: '+inttostr(loads));
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;
Signature;
Disguise('iTunes');
ActivateClient;
wait(2000);
repeat
If (Not loggedin)then
Terminatescript;
Cut;
Anti;
Drop;
Proggy;
until(False)
end.
put it in scar and try it..... its not working i screwed something up.... and i get this error now...
SCAR Code:
[Runtime Error] : Out Of Range in line 1443 in script C:\Program Files\SCAR 3.13\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar
Please Help Me!