Results 1 to 6 of 6

Thread: thieving script help

  1. #1
    Join Date
    Oct 2006
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

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

  2. #2
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

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

  3. #3
    Join Date
    Oct 2006
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  4. #4
    Join Date
    Oct 2006
    Posts
    412
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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_bitmapInteger;
    Run_directionstring;

    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(13'5D54475D5447FFFFFF');
    end;

    Procedure Steel;
    var
    x,yInteger;
    begin
    if(FindColorSpiralTolerance(x,y,Stall,298,116,357200,tol)=True)then
    begin
    Mouse
    (x,y,1,1,False);
    wait(random(100)+500);
    if(
    FindBitmapSpiralTolerance(Stall_bitmap,x,y,298116,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
    aInteger;
    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

  5. #5
    Join Date
    Oct 2006
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks i needed this !

  6. #6
    Join Date
    Oct 2006
    Posts
    412
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Glad I could be of assistance.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Thieving Script Request
    By stnrscott2 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 03-03-2008, 09:33 PM
  2. Thieving Script Request
    By stnrscott2 in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 01-24-2008, 01:34 AM
  3. good working thieving script
    By aka1represent in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 11-25-2007, 03:11 PM
  4. Thieving
    By yanix in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 08-26-2007, 05:21 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •