-
thieving script help
line 58 is messed up it keeps saying error line 58 how do i fix please some 1 help me
//Made By simon phillips (warship45)
program TeaStall;
{.include SRL/SRL.scar}
var
Trip,Trips,Tol,Stall,Stall_bitmap: Integer;
Run_direction: string;
Procedure SetUp;
begin
Trips:= 10; //number of drops before ending
Tol:= 10; //best at about 10
Stall:=8487307; //stall color
Run_direction:='N';
MouseSpeed:=10;
Stall_bitmap := BitmapFromString(1, 3, '5D54475D5447FFFFFF');
end;
Procedure Steel;
var
x,y: Integer;
begin
if(FindColorSpiralTolerance(x,y,Stall,298,116,357, 200,tol)=True)then
begin
Mouse(x,y,1,1,False);
wait(random(100)+500);
if(FindBitmapSpiralTolerance(Stall_bitmap,x,y,298, 116,357,200,tol)=True)then
begin
CMouse(x,y,1,1,True);
wait(Random(100)+500);
end else begin
Mouse(x,y,1,1,True);
end;
end;
end;
Procedure Drop;
var
a: Integer;
begin
DropAll;
Trip:=Trip+1;
if(Trip=Trips)then
begin
logout;
while(a=0)do
begin
wait(500000);
end;
end;
end;
Procedure Randoms;
begin
FindNormalRandoms;
if(FindFight)then
begin
RunAwayDirection(Run_direction);
wait(Random(5000)+3000);
RunBack;
end;
end;
//main loop//
begin
SetupSRL;
SetUp;
//main loop//
repeat
begin
while(InvCount<>28)do
begin
wait(random(500)+500);
Randoms;
Steel;
end;
Drop;
end;
until(False)
end.
-
RunAwayDirection is old, its in xmapwalk, so either include that, or change it to Runto. I suggest the second.
-
well can some 1 write it in so i can see how it works? like rewrite it correctly
-
Voila. also added in xtended map walk, for your runback call.
PHP Code:
//Made By simon phillips (warship45)
program TeaStall;
{.include SRL/SRL.scar}
{.include SRL/SRL/extended/xMapWalk.scar}// NEEDED THIS TO USE RUNBACK PROCEDURE
var
Trip,Trips,Tol,Stall,Stall_bitmap: Integer;
Run_direction: string;
Procedure SetUp;
begin
Trips:= 10; //number of drops before ending
Tol:= 10; //best at about 10
Stall:=8487307; //stall color
Run_direction:='N';
MouseSpeed:=10;
Stall_bitmap := BitmapFromString(1, 3, '5D54475D5447FFFFFF');
end;
Procedure Steel;
var
x,y: Integer;
begin
if(FindColorSpiralTolerance(x,y,Stall,298,116,357, 200,tol)=True)then
begin
Mouse(x,y,1,1,False);
wait(random(100)+500);
if(FindBitmapSpiralTolerance(Stall_bitmap,x,y,298, 116,357,200,tol)=True)then
begin
CMouse(x,y,1,1,True);
wait(Random(100)+500);
end else begin
Mouse(x,y,1,1,True);
end;
end;
end;
Procedure Drop;
var
a: Integer;
begin
DropAll;
Trip:=Trip+1;
if(Trip=Trips)then
begin
logout;
while(a=0)do
begin
wait(500000);
end;
end;
end;
Procedure Randoms;
begin
FindNormalRandoms;
if(FindFight)then
begin
RunTo(Run_direction,true); //the line you asked to be fixed.
wait(Random(5000)+3000);
RunBack; // need to have {.include SRL/SRL/extended/xMapWalk.scar}
end;
end;
//main loop//
begin
SetupSRL;
SetUp;
//main loop//
repeat
begin
while(InvCount<>28)do
begin
wait(random(500)+500);
Randoms;
Steel;
end;
Drop;
end;
until(False)
end.
-
-
Glad I could be of assistance.