Results 1 to 4 of 4

Thread: help me get this runin then tell me how

  1. #1
    Join Date
    May 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help me get this runin then tell me how

    i'v worked on this script for 2 days and iv got it complete nd it complies but i can get it to run can some one help me here is te script it is a few of them addd togeather like i said it comlies just dont run



    program catherbyfisher;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Fishing.scar}
    {.include SRL/SRL/Extended/xMapWalk.scar}
    {
    begin;
    cathersby's auto fisher!
    -Features-
    Options to fish in catherby.
    Good banking procedure, never fails
    Full anti randoms
    Full anti ban
    Can run all night
    Easy to do setup-anyone can do it!
    -Instructions-
    Full out the setup
    Specify the window
    Start near the fishing spot
    Have fishing utensil in first inventory slot!


    }

    //Setup
    Const
    thefishis = 'lobsters'; //what fish, options are lobster
    theplaceis = 'catherby'; //where, options are catherby
    loadstodo = 1000; //loads to do
    //End of setup

    //Don't touch below

    var
    run3:Boolean;

    procedure mehantirandoms;
    begin
    FindNormalRandoms;
    FindFishingEquipmentColor;
    FindPlant;
    if (FindFight = true) then
    begin
    RunAwayDirection('S');
    Wait(5000);
    RunBack;
    end;
    if (FindMSColor(x, y, FishingEquipmentColor)) then
    begin
    Mouse(x, y, 1, 1, true);
    end;
    HandleWhirlPool;
    end;

    procedure mehantiban;
    begin
    RotateEvery(1);
    AntiBan;
    RandomChat;
    EnglishWords;
    end;

    procedure tothefish2;
    begin
    SetRun(true);
    GameTab(4);
    if theplaceis = 'catherby' then
    begin
    if (FindSymbol(x, y, 'archery shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000);
    if (FindSymbol(x, y, 'fishing shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000);
    end;
    end;
    end;

    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    end;
    end;

    begin
    end;
    end;
    begin;
    if (InvFull = true) then
    SetRun(true);
    run3:=true;
    end.

    procedure todabank2;
    begin
    SetRun(true);
    GameTab(4);
    if theplaceis = 'catherby' then
    begin
    if (FindSymbol(x, y, 'fishing shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000);
    if (FindSymbol(x, y, 'archery shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000);
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(50);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish2;
    end;
    end;
    end;
    end;

    if theplaceis = 'catherby' then
    begin
    if (FindSymbol(x, y, 'archery shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000);
    if (FindSymbol(x, y, 'fishing shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000);
    end;
    end;
    end;

    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    GameTab(4);
    for i := 1 to 28 do
    if (ExistsItem(i)) then
    Lobsters := Lobsters + 1;
    if Lobsters = 28 then
    SetRun(true);
    todabank2;
    end;
    end;

    procedure todabank;
    begin
    SetRun(true);
    GameTab(4);
    if theplaceis = 'catherby' then
    begin
    if (FindSymbol(x, y, 'fishing shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000);
    if (FindSymbol(x, y, 'archery shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000);
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish;
    end;

    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    end;

  2. #2
    Join Date
    Apr 2007
    Posts
    581
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    You need to add a loop after all the procedures. Like this.

    SCAR Code:
    begin
    repeat
    CheckLoggedIn;
    Bank;
    WalkToFish;
    Fish;
    if(CountInv() = 28) then
    WalkToBank;
    Bank;
    until(false)

    You'd have to fix it a bit, and I don't remember if CountInv() is a command or not.

  3. #3
    Join Date
    May 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmmm can u post that as likeu would put it in script?cuz iv onley been working with scar for ike 2 days and im stil not up to date with the scrpting stf

  4. #4
    Join Date
    May 2007
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    or would i just copy and past to botem?

Thread Information

Users Browsing this Thread

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

Posting Permissions

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