AnonymousUser
07-01-2013, 10:53 PM
I was working on a small Oak cutter script. Next thing you know. It logs me out, my account has been permanently banned. .__.
Here is what I had.
Is this why?
program AnonymousOakChop_n_Burn;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
Var
mypath:TPointArray;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='Removed'; //Runescape Username
Players[0].Pass :='Removed'; //Runescape Password
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
end;
end;
procedure ChopTree;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'hop', 3361115, 4) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
end;
repeat
wait(400+random(250));
AntiBan;
Until not IsUpText('ew') or (InvFull);
until(InvFull);
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
SPS_Setup(RUNESCAPE_SURFACE, ['10_9']);
myPath := [Point(4167, 3631), Point(4179, 3609), Point(4194, 3625), Point(4196, 3641)];
if not LoggedIn then
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH); // Set camera angle high
SPS_WalkPath(MyPath); // walks your path.
Fflag(0); // will wait for the flag to go from minimap before continuing.
ChopTree;
end.
Here is what I had.
Is this why?
program AnonymousOakChop_n_Burn;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
Var
mypath:TPointArray;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='Removed'; //Runescape Username
Players[0].Pass :='Removed'; //Runescape Password
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
case Random(8) of
0:
begin
HoverSkill('Woodcutting', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
end;
end;
procedure ChopTree;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'hop', 3361115, 4) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
end;
repeat
wait(400+random(250));
AntiBan;
Until not IsUpText('ew') or (InvFull);
until(InvFull);
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
SPS_Setup(RUNESCAPE_SURFACE, ['10_9']);
myPath := [Point(4167, 3631), Point(4179, 3609), Point(4194, 3625), Point(4196, 3641)];
if not LoggedIn then
LoginPlayer;
SetAngle(SRL_ANGLE_HIGH); // Set camera angle high
SPS_WalkPath(MyPath); // walks your path.
Fflag(0); // will wait for the flag to go from minimap before continuing.
ChopTree;
end.