thieving script help

[p4i]

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.

[Boreas]

RunAwayDirection is old, its in xmapwalk, so either include that, or change it to Runto. I suggest the second.

[p4i]

well can some 1 write it in so i can see how it works? like rewrite it correctly

[IronTeapot]

Voila. also added in xtended map walk, for your runback call.



//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.

[p4i]

thanks i needed this !

[IronTeapot]

Glad I could be of assistance.