Results 1 to 14 of 14

Thread: Catherby Fisher script error....

  1. #1
    Join Date
    Mar 2007
    Posts
    80
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Catherby Fisher script error....

    I found this script and Id like to use it....but theres an error, heres the script:
    SCAR Code:
    //Hosted by Runescape 101
    //Download more free scar scripts from [url]www.rs101.info[/url]
    program sk8tersautofisher;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Fishing.scar}
    {.include SRL/SRL/Extended/xMapWalk.scar}

    {
    Sk8ter's auto fisher!
    -Features-
    Options to fish in draynor, lumbridge, guild, catherby, and barbarian village.
    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, bait or feathers in second iventory slot if they are needed.
    Run!

    Note: If you're doing lumbridge, there is no banking.
    The bank is way too far off.
    It's only power fishing.
    }


    //Setup
    Const
    thefishis = 'lobster'; //what fish, options are shrimp (does both shrimp and anchovies), trout (trout and salmon), pike, lobster, tuna (tuna and swordfish), or shark
    theplaceis = 'catherby'; //where, options are catherby, guild, draynor, lumbridge, and barbvill.
    loadstodo = 1000; //loads to do
    //End of setup

    //Don't touch below

    var
    loads, fish, startlevel, endlevel, levelsgained, startxp, endxp, xpgained:Integer;
    FishText:String;
    run3:Boolean;
    Shrimp, Trout, Pike, Lobsters, Tuna, Sharks:Integer;
    i:Integer;

    procedure progressreport;
    begin
    AddToReport('sk8ters autofisher has done...');
    AddToReport('Loads: '+inttostr(loads));
    AddToReport('Fish: '+inttostr(fish));
    AddToReport('Levels gained: '+inttostr(levelsgained));
    AddToReport('XP Gained: '+inttostr(xpgained));
    AddToReport('Hope you had fun autoing!');
    end;

    procedure mehantirandoms;
    begin
    FindNormalRandoms;
    FindFishingEquipmentColor;
    FindPlant;
    if (FindFight = true) then
    begin
    RunAwayDirection('S');
    Wait(10000);
    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 theplaceis = 'guild' then
    begin
    Mouse(675, 115, 1, 1, true);
    GetSymbolColor(x, y, 'fishing spot');
    Mouse(x, y, 1, 1, true);
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    end;
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
    end;
    end;
    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    end;
    end;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    end;
    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(5000);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish2;
    end;
    end;
    end;
    end;
    if theplaceis = 'guild' then
    begin
    Mouse(607, 96, 1, 1, true);
    Wait(8000);
    GetSymbolColor(x, y, 'bank');
    Mouse(x, y, 1, 1, true);
    KeyDown(40);
    Wait(2000);
    KeyUp(40);
    MakeCompass('W');
    Wait(5000);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    KeyDown(38);
    Wait(2000);
    KeyUp(40);
    MakeCompass('N');
    tothefish2;
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    OpenBank3;
    Deposit(3, 28, 2);
    Closebank;
    tothefish2;
    end;
    if theplaceis = 'draynor' then
    begin
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    SendArrowSilentWait(2, 500 + Random(500));
    SendArrowSilentWait(4, 500 + Random(500));
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish2;
    end;
    end;
    if theplaceis = 'lumbridge' then
    begin
    DropToPosition(3, 28);
    end;
    loads:=loads + 1;
    tothefish2;
    end;

    procedure tothefish;
    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 theplaceis = 'guild' then
    begin
    Mouse(706,81, 1, 1, true);
    Wait(5000);
    GetSymbolColor(x, y, 'fishing spot');
    Mouse(x, y, 1, 1, true);
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    end;
    repeat
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Shrimp := Shrimp + 1;
    if Shrimp = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Trout := Trout + 1;
    if Trout = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Pike := Pike + 1;
    if Pike = 28 then
    SetRun(true);
    todabank2;
    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;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Tuna := Tuna + 1;
    if Tuna = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Sharks :=Sharks + 1;
    if Sharks = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    end;
    Wait(15000);
    until(InvFull)
    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;
    end;
    end;
    end;
    if theplaceis = 'guild' then
    begin
    Mouse(607, 96, 1, 1, true);
    Wait(8000);
    GetSymbolColor(x, y, 'bank');
    Mouse(x, y, 1, 1, true);
    KeyDown(40);
    Wait(2000);
    KeyUp(40);
    MakeCompass('W');
    Wait(5000);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    KeyDown(38);
    Wait(2000);
    KeyUp(40);
    MakeCompass('N');
    tothefish;
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    OpenBank3;
    Deposit(3, 28, 2);
    Closebank;
    tothefish;
    end;
    if theplaceis = 'draynor' then
    begin
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish;
    end;
    end;
    if theplaceis = 'lumbridge' then
    begin
    DropToPosition(3, 28);
    end;
    loads:=loads + 1;
    tothefish;
    end;


    procedure findthefish2;
    begin
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
    end;
    end;
    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    end;
    end;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    end;
    if (InvFull = true) then
    SetRun(true);
    todabank;
    end;

    procedure fishthefish;
    begin
    mehantiban;
    mehantirandoms;
    Wait(10000);
    findthefish2;
    if (InvFull = true) then
    SetRun(true);
    todabank;
    end;

    procedure findthefish;
    begin
    if thefishis = 'shrimp' then
    begin
    FishText:='Net';
    end;
    if thefishis = 'trout' then
    begin
    FishText:='Lure';
    end;
    if thefishis = 'pike' then
    begin
    FishText:='Lure';
    end;
    if thefishis = 'lobster' then
    begin
    FishText:='Cage';
    end;
    if thefishis = 'tuna' then
    begin
    FishText:='Cage';
    end;
    if thefishis = 'shark' then
    begin
    FishText:='Net';
    end;
    SetRun(true);
    GameTab(4);
    if (FindSymbol(x, y, 'fishing spot')) then
    Mouse(x, y, 1, 1, true);
    findthefish2;
    end;


    begin
    SetupSRL;
    startxp:=CurrentSkillXP('Fishing');
    startlevel:=GetSkillLevel('Fishing');
    if run3 = true then
    begin
    repeat
    findthefish;
    fishthefish;
    mehantirandoms;
    mehantiban;
    until(loads = loadstodo)
    end;
    repeat
    findthefish;
    fishthefish;
    mehantirandoms;
    mehantiban;
    until(loads = loadstodo)
    if loads = loadstodo then
    endxp:=CurrentSkillXP('Fishing');
    endlevel:=GetSkillLevel('Fishing');
    levelsgained:=endlevel-startlevel;
    xpgained:=endxp-startxp;
    if theplaceis = 'catherby' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'draynor' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'guild' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'barvill' then
    begin
    fish:=loads*26;
    end;
    if theplaceis = 'lumbridge' then
    begin
    fish:=loads*26;
    end;
    progressreport;
    end.

    It says theres an error:

    Line 567: unknown variable CurrentSkillXP
    http://www.fenjer.com/adnan/SRL/16/20/Merchampion.png
    Merchampion is going to be the ultimate autoing script! It will buy items for your set amount of price; trade people without you having to be there, and once your money is all out; guess what! It's going to sell the item for a different set amount of price! It's merchanting without you having to be there

  2. #2
    Join Date
    Mar 2007
    Posts
    80
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    could someone answer this soon?
    Id like to start using it....
    http://www.fenjer.com/adnan/SRL/16/20/Merchampion.png
    Merchampion is going to be the ultimate autoing script! It will buy items for your set amount of price; trade people without you having to be there, and once your money is all out; guess what! It's going to sell the item for a different set amount of price! It's merchanting without you having to be there

  3. #3
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    //Hosted by Runescape 101
    //Download more free scar scripts from <a href="http://www.rs101.info" target="_blank">www.rs101.info</a>
    program sk8tersautofisher;
     
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Fishing.scar}
    {.include SRL/SRL/Extended/xMapWalk.scar}
     
    {
    Sk8ter's auto fisher!
    -Features-
    Options to fish in draynor, lumbridge, guild, catherby, and barbarian village.
    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, bait or feathers in second iventory slot if they are needed.
    Run!
     
    Note: If you're doing lumbridge, there is no banking.
    The bank is way too far off.
    It's only power fishing.
    }

     
    //Setup
    Const
    thefishis = 'lobster'; //what fish, options are shrimp (does both shrimp and anchovies), trout (trout and salmon), pike, lobster, tuna (tuna and swordfish), or shark
    theplaceis = 'catherby'; //where, options are catherby, guild, draynor, lumbridge, and barbvill.
    loadstodo = 1000; //loads to do
    //End of setup
     
    //Don't touch below
     
    var
    loads, fish, startlevel, endlevel, levelsgained, startxp, endxp, CurrentSkillXP, xpgained:Integer;
    FishText:String;
    run3:Boolean;
    Shrimp, Trout, Pike, Lobsters, Tuna, Sharks:Integer;
    i:Integer;
     
    procedure progressreport;
    begin
    AddToReport('sk8ters autofisher has done...');
    AddToReport('Loads: '+inttostr(loads));
    AddToReport('Fish: '+inttostr(fish));
    AddToReport('Levels gained: '+inttostr(levelsgained));
    AddToReport('XP Gained: '+inttostr(xpgained));
    AddToReport('Hope you had fun autoing!');
    end;
     
    procedure mehantirandoms;
    begin
    FindNormalRandoms;
    FindFishingEquipmentColor;
    FindPlant;
    if (FindFight = true) then
    begin
    RunAwayDirection('S');
    Wait(10000);
    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 theplaceis = 'guild' then
    begin
    Mouse(675, 115, 1, 1, true);
    GetSymbolColor(x, y, 'fishing spot');
    Mouse(x, y, 1, 1, true);
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    end;
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
    end;
    end;
    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    end;
    end;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    end;
    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(5000);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish2;
    end;
    end;
    end;
    end;
    if theplaceis = 'guild' then
    begin
    Mouse(607, 96, 1, 1, true);
    Wait(8000);
    GetSymbolColor(x, y, 'bank');
    Mouse(x, y, 1, 1, true);
    KeyDown(40);
    Wait(2000);
    KeyUp(40);
    MakeCompass('W');
    Wait(5000);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    KeyDown(38);
    Wait(2000);
    KeyUp(40);
    MakeCompass('N');
    tothefish2;
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    OpenBank3;
    Deposit(3, 28, 2);
    Closebank;
    tothefish2;
    end;
    if theplaceis = 'draynor' then
    begin
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    SendArrowSilentWait(2, 500 + Random(500));
    SendArrowSilentWait(4, 500 + Random(500));
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish2;
    end;
    end;
    if theplaceis = 'lumbridge' then
    begin
    DropToPosition(3, 28);
    end;
    loads:=loads + 1;
    tothefish2;
    end;
     
    procedure tothefish;
    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 theplaceis = 'guild' then
    begin
    Mouse(706,81, 1, 1, true);
    Wait(5000);
    GetSymbolColor(x, y, 'fishing spot');
    Mouse(x, y, 1, 1, true);
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    end;
    repeat
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Shrimp := Shrimp + 1;
    if Shrimp = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Trout := Trout + 1;
    if Trout = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Pike := Pike + 1;
    if Pike = 28 then
    SetRun(true);
    todabank2;
    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;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Tuna := Tuna + 1;
    if Tuna = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Sharks :=Sharks + 1;
    if Sharks = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    end;
    Wait(15000);
    until(InvFull)
    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;
    end;
    end;
    end;
    if theplaceis = 'guild' then
    begin
    Mouse(607, 96, 1, 1, true);
    Wait(8000);
    GetSymbolColor(x, y, 'bank');
    Mouse(x, y, 1, 1, true);
    KeyDown(40);
    Wait(2000);
    KeyUp(40);
    MakeCompass('W');
    Wait(5000);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    KeyDown(38);
    Wait(2000);
    KeyUp(40);
    MakeCompass('N');
    tothefish;
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    OpenBank3;
    Deposit(3, 28, 2);
    Closebank;
    tothefish;
    end;
    if theplaceis = 'draynor' then
    begin
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish;
    end;
    end;
    if theplaceis = 'lumbridge' then
    begin
    DropToPosition(3, 28);
    end;
    loads:=loads + 1;
    tothefish;
    end;
     
     
    procedure findthefish2;
    begin
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
    end;
    end;
    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    end;
    end;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    end;
    if (InvFull = true) then
    SetRun(true);
    todabank;
    end;
     
    procedure fishthefish;
    begin
    mehantiban;
    mehantirandoms;
    Wait(10000);
    findthefish2;
    if (InvFull = true) then
    SetRun(true);
    todabank;
    end;
     
    procedure findthefish;
    begin
    if thefishis = 'shrimp' then
    begin
    FishText:='Net';
    end;
    if thefishis = 'trout' then
    begin
    FishText:='Lure';
    end;
    if thefishis = 'pike' then
    begin
    FishText:='Lure';
    end;
    if thefishis = 'lobster' then
    begin
    FishText:='Cage';
    end;
    if thefishis = 'tuna' then
    begin
    FishText:='Cage';
    end;
    if thefishis = 'shark' then
    begin
    FishText:='Net';
    end;
    SetRun(true);
    GameTab(4);
    if (FindSymbol(x, y, 'fishing spot')) then
    Mouse(x, y, 1, 1, true);
    findthefish2;
    end;
     
     
    begin
    SetupSRL;
    startxp:=CurrentSkillXP('Fishing');
    startlevel:=GetSkillLevel('Fishing');
    if run3 = true then
    begin
    repeat
    findthefish;
    fishthefish;
    mehantirandoms;
    mehantiban;
    until(loads = loadstodo)
    end;
    repeat
    findthefish;
    fishthefish;
    mehantirandoms;
    mehantiban;
    until(loads = loadstodo)
    if loads = loadstodo then
    endxp:=CurrentSkillXP('Fishing');
    endlevel:=GetSkillLevel('Fishing');
    levelsgained:=endlevel-startlevel;
    xpgained:=endxp-startxp;
    if theplaceis = 'catherby' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'draynor' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'guild' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'barvill' then
    begin
    fish:=loads*26;
    end;
    if theplaceis = 'lumbridge' then
    begin
    fish:=loads*26;
    end;
    progressreport;
    end.

    I fixed that one problem, but I couldn't check to see if there's any more, as I don't have scar on this pc...
    Interested in C# and Electrical Engineering? This might interest you.

  4. #4
    Join Date
    Mar 2007
    Posts
    80
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    now it says there's a type mismatch in the same area.
    http://www.fenjer.com/adnan/SRL/16/20/Merchampion.png
    Merchampion is going to be the ultimate autoing script! It will buy items for your set amount of price; trade people without you having to be there, and once your money is all out; guess what! It's going to sell the item for a different set amount of price! It's merchanting without you having to be there

  5. #5
    Join Date
    Feb 2007
    Location
    EST (US East Coast)
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    //Hosted by Runescape 101
    //Download more free scar scripts from <a href="http://www.rs101.info" target="_blank">www.rs101.info</a>
    program sk8tersautofisher;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Fishing.scar}
    {.include SRL/SRL/Extended/xMapWalk.scar}

    {
    Sk8ter's auto fisher!
    -Features-
    Options to fish in draynor, lumbridge, guild, catherby, and barbarian village.
    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, bait or feathers in second iventory slot if they are needed.
    Run!

    Note: If you're doing lumbridge, there is no banking.
    The bank is way too far off.
    It's only power fishing.
    }


    //Setup
    Const
    thefishis = 'lobster'; //what fish, options are shrimp (does both shrimp and anchovies), trout (trout and salmon), pike, lobster, tuna (tuna and swordfish), or shark
    theplaceis = 'catherby'; //where, options are catherby, guild, draynor, lumbridge, and barbvill.
    loadstodo = 1000; //loads to do
    //End of setup

    //Don't touch below

    var
    loads, fish, startlevel, endlevel, levelsgained, startxp, endxp, CurrentSkillXP, xpgained:Integer;
    FishText:String;
    run3:Boolean;
    Shrimp, Trout, Pike, Lobsters, Tuna, Sharks:Integer;
    i:Integer;

    procedure progressreport;
    begin
    AddToReport('sk8ters autofisher has done...');
    AddToReport('Loads: '+inttostr(loads));
    AddToReport('Fish: '+inttostr(fish));
    {AddToReport('Levels gained: '+inttostr(levelsgained));
    AddToReport('XP Gained: '+inttostr(xpgained));}

    AddToReport('Hope you had fun autoing!');
    end;

    procedure mehantirandoms;
    begin
    FindNormalRandoms;
    FindFishingEquipmentColor;
    FindPlant;
    if (FindFight = true) then
    begin
    RunAwayDirection('S');
    Wait(10000);
    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 theplaceis = 'guild' then
    begin
    Mouse(675, 115, 1, 1, true);
    GetSymbolColor(x, y, 'fishing spot');
    Mouse(x, y, 1, 1, true);
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    end;
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
    end;
    end;
    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    end;
    end;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    end;
    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(5000);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish2;
    end;
    end;
    end;
    end;
    if theplaceis = 'guild' then
    begin
    Mouse(607, 96, 1, 1, true);
    Wait(8000);
    GetSymbolColor(x, y, 'bank');
    Mouse(x, y, 1, 1, true);
    KeyDown(40);
    Wait(2000);
    KeyUp(40);
    MakeCompass('W');
    Wait(5000);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    KeyDown(38);
    Wait(2000);
    KeyUp(40);
    MakeCompass('N');
    tothefish2;
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    OpenBank3;
    Deposit(3, 28, 2);
    Closebank;
    tothefish2;
    end;
    if theplaceis = 'draynor' then
    begin
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    SendArrowSilentWait(2, 500 + Random(500));
    SendArrowSilentWait(4, 500 + Random(500));
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish2;
    end;
    end;
    if theplaceis = 'lumbridge' then
    begin
    DropToPosition(3, 28);
    end;
    loads:=loads + 1;
    tothefish2;
    end;

    procedure tothefish;
    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 theplaceis = 'guild' then
    begin
    Mouse(706,81, 1, 1, true);
    Wait(5000);
    GetSymbolColor(x, y, 'fishing spot');
    Mouse(x, y, 1, 1, true);
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    end;
    repeat
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Shrimp := Shrimp + 1;
    if Shrimp = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Trout := Trout + 1;
    if Trout = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Pike := Pike + 1;
    if Pike = 28 then
    SetRun(true);
    todabank2;
    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;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Tuna := Tuna + 1;
    if Tuna = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Sharks :=Sharks + 1;
    if Sharks = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    end;
    Wait(15000);
    until(InvFull)
    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;
    end;
    end;
    end;
    if theplaceis = 'guild' then
    begin
    Mouse(607, 96, 1, 1, true);
    Wait(8000);
    GetSymbolColor(x, y, 'bank');
    Mouse(x, y, 1, 1, true);
    KeyDown(40);
    Wait(2000);
    KeyUp(40);
    MakeCompass('W');
    Wait(5000);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    KeyDown(38);
    Wait(2000);
    KeyUp(40);
    MakeCompass('N');
    tothefish;
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    OpenBank3;
    Deposit(3, 28, 2);
    Closebank;
    tothefish;
    end;
    if theplaceis = 'draynor' then
    begin
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish;
    end;
    end;
    if theplaceis = 'lumbridge' then
    begin
    DropToPosition(3, 28);
    end;
    loads:=loads + 1;
    tothefish;
    end;


    procedure findthefish2;
    begin
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
    end;
    end;
    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    end;
    end;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    end;
    if (InvFull = true) then
    SetRun(true);
    todabank;
    end;

    procedure fishthefish;
    begin
    mehantiban;
    mehantirandoms;
    Wait(10000);
    findthefish2;
    if (InvFull = true) then
    SetRun(true);
    todabank;
    end;

    procedure findthefish;
    begin
    if thefishis = 'shrimp' then
    begin
    FishText:='Net';
    end;
    if thefishis = 'trout' then
    begin
    FishText:='Lure';
    end;
    if thefishis = 'pike' then
    begin
    FishText:='Lure';
    end;
    if thefishis = 'lobster' then
    begin
    FishText:='Cage';
    end;
    if thefishis = 'tuna' then
    begin
    FishText:='Cage';
    end;
    if thefishis = 'shark' then
    begin
    FishText:='Net';
    end;
    SetRun(true);
    GameTab(4);
    if (FindSymbol(x, y, 'fishing spot')) then
    Mouse(x, y, 1, 1, true);
    findthefish2;
    end;


    begin
    SetupSRL;
    {startxp:=CurrentSkillXP('fishing');
    startlevel:=GetSkillLevel('fishing'); }

    if run3 = true then
    begin
    repeat
    findthefish;
    fishthefish;
    mehantirandoms;
    mehantiban;
    until(loads = loadstodo)
    end;
    repeat
    findthefish;
    fishthefish;
    mehantirandoms;
    mehantiban;
    until(loads = loadstodo)
    if loads = loadstodo then
    {endxp:=CurrentSkillXP('Fishing');
    endlevel:=GetSkillLevel('Fishing');
    levelsgained:=endlevel-startlevel;
    xpgained:=endxp-startxp;}

    if theplaceis = 'catherby' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'draynor' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'guild' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'barvill' then
    begin
    fish:=loads*26;
    end;
    if theplaceis = 'lumbridge' then
    begin
    fish:=loads*26;
    end;
    progressreport;
    end.

    Didn't test the script, but I just commented the troublesome lines out and it will compile at least. All you lose is the ability to see XP and levels gained in the progress report, assuming it works past this.
    Temporarily inactive.

  6. #6
    Join Date
    Sep 2006
    Posts
    206
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if theplaceis = 'barbvill' then
    begin
    Mouse(945, 269, 0, 0, true);
    Wait(5000);
    Mouse(937, 250, 0, 0, true);
    Wait(5000);
    Mouse(944, 395, 0, 0, true);
    Wait(5000);
    Mouse(943, 302, 0, 0, true);
    Wait(5000);
    Mouse(935, 316, 0, 0, true);
    Wait(5000);
    end;

    ^^ = piece of shit....you will get teh ban shaft!!
    “Life is a goldmine, exploit it.” ~M. K. Soni
    www.sea4yourselves.com

  7. #7
    Join Date
    Feb 2007
    Location
    EST (US East Coast)
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Basically... didnt even use the randoms built into the Mouse command... ftw

    You can almost surely find a better one posted in the fishing section here.
    Temporarily inactive.

  8. #8
    Join Date
    Mar 2007
    Posts
    80
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nope i checked. I need a catherby fisher, if someone could direct me towards one id be very thankful
    http://www.fenjer.com/adnan/SRL/16/20/Merchampion.png
    Merchampion is going to be the ultimate autoing script! It will buy items for your set amount of price; trade people without you having to be there, and once your money is all out; guess what! It's going to sell the item for a different set amount of price! It's merchanting without you having to be there

  9. #9
    Join Date
    Mar 2007
    Posts
    80
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    also has to bank btw....
    http://www.fenjer.com/adnan/SRL/16/20/Merchampion.png
    Merchampion is going to be the ultimate autoing script! It will buy items for your set amount of price; trade people without you having to be there, and once your money is all out; guess what! It's going to sell the item for a different set amount of price! It's merchanting without you having to be there

  10. #10
    Join Date
    Mar 2007
    Posts
    80
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so does ANYONE have one that will not get me "teh ban shaft"?
    http://www.fenjer.com/adnan/SRL/16/20/Merchampion.png
    Merchampion is going to be the ultimate autoing script! It will buy items for your set amount of price; trade people without you having to be there, and once your money is all out; guess what! It's going to sell the item for a different set amount of price! It's merchanting without you having to be there

  11. #11
    Join Date
    Nov 2007
    Location
    California, USA
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am an anmature scripter... but I'll *attempt* to add randoms do that script since I want a catherby fisher/banker too & don't wish to get banned

  12. #12
    Join Date
    Nov 2007
    Location
    California, USA
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    //Hosted by Runescape 101
    //Download more free scar scripts from <a href="http://www.rs101.info" target="_blank">www.rs101.info</a>
    program sk8tersautofisher;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Fishing.scar}
    {.include SRL/SRL/Extended/xMapWalk.scar}

    {
    Sk8ter's auto fisher!
    -Features-
    Options to fish in draynor, lumbridge, guild, catherby, and barbarian village.
    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, bait or feathers in second iventory slot if they are needed.
    Run!

    Note: If you're doing lumbridge, there is no banking.
    The bank is way too far off.
    It's only power fishing.
    }


    //Setup
    Const
    thefishis = 'lobster'; //what fish, options are shrimp (does both shrimp and anchovies), trout (trout and salmon), pike, lobster, tuna (tuna and swordfish), or shark
    theplaceis = 'catherby'; //where, options are catherby, guild, draynor, lumbridge, and barbvill.
    loadstodo = 1000; //loads to do
    //End of setup

    //Don't touch below

    var
    loads, fish, startlevel, endlevel, levelsgained, startxp, endxp, CurrentSkillXP, xpgained:Integer;
    FishText:String;
    run3:Boolean;
    Shrimp, Trout, Pike, Lobsters, Tuna, Sharks:Integer;
    i:Integer;

    procedure progressreport;
    begin
    AddToReport('sk8ters autofisher has done...');
    AddToReport('Loads: '+inttostr(loads));
    AddToReport('Fish: '+inttostr(fish));
    {AddToReport('Levels gained: '+inttostr(levelsgained));
    AddToReport('XP Gained: '+inttostr(xpgained));}

    AddToReport('Hope you had fun autoing!');
    end;

    procedure mehantirandoms;
    begin
    FindNormalRandoms;
    FindFishingEquipmentColor;
    FindPlant;
    if (FindFight = true) then
    begin
    RunAwayDirection('S');
    Wait(10000+random(200));
    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+random(205));
    if (FindSymbol(x, y, 'fishing shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000+random(204));
    end;
    end;
    end;
    if theplaceis = 'guild' then
    begin
    Mouse(675, 115, 1, 1, true);
    GetSymbolColor(x, y, 'fishing spot');
    Mouse(x, y, 1, 1, true);
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(945, 269, 0, 0, true);
    Wait(5000+random(193));
    Mouse(937, 250, 0, 0, true);
    Wait(5000+random(203));
    Mouse(944, 395, 0, 0, true);
    Wait(5000-random(232));
    Mouse(943, 302, 0, 0, true);
    Wait(5000+random(198));
    Mouse(935, 316, 0, 0, true);
    Wait(5000-random(221));
    end;
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
    end;
    end;
    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    end;
    end;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    end;
    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+random(204));
    if (FindSymbol(x, y, 'archery shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000-random(189));
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000-random(301));
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish2;
    end;
    end;
    end;
    end;
    if theplaceis = 'guild' then
    begin
    Mouse(607, 96, 1, 1, true);
    Wait(8000+random(200));
    GetSymbolColor(x, y, 'bank');
    Mouse(x, y, 1, 1, true);
    KeyDown(40);
    Wait(2000-random(200));
    KeyUp(40);
    MakeCompass('W');
    Wait(5000+random(205));
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    KeyDown(38);
    Wait(2000);
    KeyUp(40);
    MakeCompass('N');
    tothefish2;
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(935, 316, 0, 0, true);
    Wait(5000+random(200));
    Mouse(943, 302, 0, 0, true);
    Wait(5000+random(200));
    Mouse(944, 395, 0, 0, true);
    Wait(5000-random(200));
    Mouse(937, 250, 0, 0, true);
    Wait(5000-random(200));
    Mouse(945, 269, 0, 0, true);
    Wait(5000+random(200));
    OpenBank3;
    Deposit(3, 28, 2);
    Closebank;
    tothefish2;
    end;
    if theplaceis = 'draynor' then
    begin
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    SendArrowSilentWait(2, 500 + Random(500));
    SendArrowSilentWait(4, 500 + Random(500));
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish2;
    end;
    end;
    if theplaceis = 'lumbridge' then
    begin
    DropToPosition(3, 28);
    end;
    loads:=loads + 1;
    tothefish2;
    end;

    procedure tothefish;
    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+random(200));
    if (FindSymbol(x, y, 'fishing shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000+random(200));
    end;
    end;
    end;
    if theplaceis = 'guild' then
    begin
    Mouse(706,81, 1, 1, true);
    Wait(5000+random(200));
    GetSymbolColor(x, y, 'fishing spot');
    Mouse(x, y, 1, 1, true);
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(945, 269, 0, 0, true);
    Wait(5000+random(200));
    Mouse(937, 250, 0, 0, true);
    Wait(5000+random(200));
    Mouse(944, 395, 0, 0, true);
    Wait(5000-random(200));
    Mouse(943, 302, 0, 0, true);
    Wait(5000-random(200));
    Mouse(935, 316, 0, 0, true);
    Wait(5000-random(200));
    end;
    repeat
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Shrimp := Shrimp + 1;
    if Shrimp = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Trout := Trout + 1;
    if Trout = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Pike := Pike + 1;
    if Pike = 28 then
    SetRun(true);
    todabank2;
    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;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Tuna := Tuna + 1;
    if Tuna = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
      GameTab(4);
      for i := 1 to 28 do
    if (ExistsItem(i)) then
          Sharks :=Sharks + 1;
    if Sharks = 28 then
    SetRun(true);
    todabank2;
    end;
    end;
    end;
    Wait(15000-random(200));
    until(InvFull)
    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+random(200));
    if (FindSymbol(x, y, 'archery shop')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000+random(200));
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    Wait(5000-random(200));
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish;
    end;
    end;
    end;
    end;
    if theplaceis = 'guild' then
    begin
    Mouse(607, 96, 1, 1, true);
    Wait(8000+random(200));
    GetSymbolColor(x, y, 'bank');
    Mouse(x, y, 1, 1, true);
    KeyDown(40);
    Wait(2000-random(200));
    KeyUp(40);
    MakeCompass('W');
    Wait(5000+random(200));
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    KeyDown(38);
    Wait(2000-random(200));
    KeyUp(40);
    MakeCompass('N');
    tothefish;
    end;
    if theplaceis = 'barbvill' then
    begin
    Mouse(935, 316, 0, 0, true);
    Wait(5000-random(200));
    Mouse(943, 302, 0, 0, true);
    Wait(5000+random(200));
    Mouse(944, 395, 0, 0, true);
    Wait(5000-random(200));
    Mouse(937, 250, 0, 0, true);
    Wait(5000+random(200));
    Mouse(945, 269, 0, 0, true);
    Wait(5000+random(200));
    OpenBank3;
    Deposit(3, 28, 2);
    Closebank;
    tothefish;
    end;
    if theplaceis = 'draynor' then
    begin
    if (FindSymbol(x, y, 'bank')) then
    begin
    Mouse(x, y, 1, 1, true);
    OpenBank3;
    Deposit(2, 28, 2);
    Closebank;
    tothefish;
    end;
    end;
    if theplaceis = 'lumbridge' then
    begin
    DropToPosition(3, 28);
    end;
    loads:=loads + 1;
    tothefish;
    end;


    procedure findthefish2;
    begin
    repeat
    if (FindColorSpiralTolerance(x,y,15515792,5,5,514,337,20)) then
    begin
    Mouse(x, y, 1, 1, false);
    end;
    until(ChooseOption(x, y, FishText))
    If(ChooseOption(x, y, FishText)) then
    begin
    ClickMSColor(15515792, false);
    if thefishis = 'shrimp' then
    begin
    if (ChooseOption(x, y, 'Net')) then
    begin
    end;
    end;
    if thefishis = 'trout' then
    begin
    if (ChooseOption(x, y, 'Lure')) then
    begin
    end;
    end;
    if thefishis = 'pike' then
    begin
    if (ChooseOption(x, y, 'Bait')) then
    begin
    end;
    end;
    if thefishis = 'lobster' then
    begin
    if (ChooseOption(x, y, 'Cage')) then
    begin
    end;
    end;
    if thefishis = 'tuna' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    if thefishis = 'shark' then
    begin
    if (ChooseOption(x, y, 'Harpoon')) then
    begin
    end;
    end;
    end;
    if (InvFull = true) then
    SetRun(true);
    todabank;
    end;

    procedure fishthefish;
    begin
    mehantiban;
    mehantirandoms;
    Wait(10000-random(200));
    findthefish2;
    if (InvFull = true) then
    SetRun(true);
    todabank;
    end;

    procedure findthefish;
    begin
    if thefishis = 'shrimp' then
    begin
    FishText:='Net';
    end;
    if thefishis = 'trout' then
    begin
    FishText:='Lure';
    end;
    if thefishis = 'pike' then
    begin
    FishText:='Lure';
    end;
    if thefishis = 'lobster' then
    begin
    FishText:='Cage';
    end;
    if thefishis = 'tuna' then
    begin
    FishText:='Cage';
    end;
    if thefishis = 'shark' then
    begin
    FishText:='Net';
    end;
    SetRun(true);
    GameTab(4);
    if (FindSymbol(x, y, 'fishing spot')) then
    Mouse(x, y, 1, 1, true);
    findthefish2;
    end;


    begin
    SetupSRL;
    {startxp:=CurrentSkillXP('fishing');
    startlevel:=GetSkillLevel('fishing'); }

    if run3 = true then
    begin
    repeat
    findthefish;
    fishthefish;
    mehantirandoms;
    mehantiban;
    until(loads = loadstodo)
    end;
    repeat
    findthefish;
    fishthefish;
    mehantirandoms;
    mehantiban;
    until(loads = loadstodo)
    if loads = loadstodo then
    {endxp:=CurrentSkillXP('Fishing');
    endlevel:=GetSkillLevel('Fishing');
    levelsgained:=endlevel-startlevel;
    xpgained:=endxp-startxp;}

    if theplaceis = 'catherby' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'draynor' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'guild' then
    begin
    fish:=loads*27;
    end;
    if theplaceis = 'barvill' then
    begin
    fish:=loads*26;
    end;
    if theplaceis = 'lumbridge' then
    begin
    fish:=loads*26;
    end;
    progressreport;
    end.



    Added some randomizers... don't know how much better that'll make it... now I'm going to attempt to add an auto chatter

  13. #13
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by pinkman6969 View Post
    I am an anmature scripter... but I'll *attempt* to add randoms do that script since I want a catherby fisher/banker too & don't wish to get banned
    04-03-2007, 06:04 AM

    Don't GraveDIG, its over 7 months old, the script wont even come close to working with srl 4

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  14. #14
    Join Date
    Nov 2007
    Location
    California, USA
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default rawr

    I noticed...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Catherby Fisher
    By mvp6789 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 02-02-2009, 11:26 PM
  2. Catherby Fisher
    By pkmage in forum First Scripts
    Replies: 11
    Last Post: 09-22-2008, 08:46 PM
  3. Catherby Fisher
    By TimHBB9991 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 08-23-2007, 07:02 PM
  4. Catherby Fisher Banker Cooker and Catherby Yew cutter
    By slipperyfox in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 08-05-2007, 12:02 AM
  5. Catherby Big Net Fisher
    By Zodia in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 05-29-2007, 12:05 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
  •