Results 1 to 9 of 9

Thread: Help my first catherby fishing script

  1. #1
    Join Date
    Apr 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Help my first catherby fishing script

    I tryd to make a catherby fisher/banker script, but i did it wrong and dont know how to get it to work

    The problem is, I Cant get it to do anything

    here it is:

    SCAR Code:
    program CatherbyFisher;
    {.include SRL/SRL.scar}

    //My First script
    //Start at catherby bank, you have to be a member
    Const
      Loads =3;

    Var FishSymbol, BankSymbol, fishingSpot, BankBooth, Tuna, SwordFish,
        Shark,Lobster: Integer;
    {----------------------Setup Players Here-------------------------}
    procedure DeclarePlayers;
    begin
      HowManyPlayers:=1; //Number Of players.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer :=0 //Player to start on
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
      Players[0].Boolean1 :=true;  //true for cage fishing, false for harpoon fishing.

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := False;
      Players[1].Boolean1 :=true;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := False;
      Players[2].Boolean1 :=true;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := False;
      Players[3].Boolean1 :=true;

      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Active := False;
      Players[4].Boolean1 :=true;

      Players[5].Name := '';
      Players[5].Pass := '';
      Players[5].Nick := '';
      Players[5].Active := False;
      Players[5].Boolean1 :=true;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    {-------------------------------------------------------------------}
    //                      just dont touch anything down here
    Procedure Signature;
    begin
      ClearDebug;
      Writeln('jon98 catherby fisher      ');
      Wait(200);
      Writeln('  _______   ____    ___   _');
      Wait(200);
      Writeln('    | |    /    \   |  \  |');
      Wait(200);
      Writeln(' ___| |   (  ()  )  |   \ |');
      Wait(200);
      Writeln(' _____|    \____/  _|   _\|');
    end;

    Procedure DTMsAndBMPs;
    begin
      Lobster := DTMFromString('78DA6314606060E067400195AE72609A11CA6' +
           '704C98BA1AAA9F5C0A2468A010D30A2AA1104123204D48811610E' +
           '488D10AA8A526734F78802091E02E680D470A0AA1013124255037' +
           '22F0BAA9AE961AAA86A24810433AA9ADE40654C3733A1AAC9B295' +
           '4655038A0B2E02FE02C973A3AA49B392445503722F2FAA9A003D3' +
           '47F811882A86A72EDA531D50813481B6C986AEA3D1551D4000077' +
           'CA0C79');
      FishSymbol := BitmapFromString(15, 15, 'z78DAB5D45B0A802010' +
           '05D02D8D29999F3E68FF4BCAD06064B836F498E07E681EA72889A' +
           '6E5C8D40BE55946AC41E383966DF2A9A014BE997738D714BB7C66' +
           'DEF87FC8C05C62A6BDA7B1ABDF13D2E42C92B92613C9D1061FC6C' +
           'E85DC9D78CECD7D5A834F4E2353B65B19529AF29E969A9ED1DAFA' +
           '0494B796CDE92348066F9B3B5CE3C93BB9F6D27E75D24109E5FFF' +
           'EC137E786C67C72D6C13A00E69E266F');
      BankSymbol := BitmapFromString(15, 15, 'z78DAADD46D0A80200' +
           'C06E02BCDB4C29F7D79FF2345AE60A2D377908311C11E634D8986' +
           'CB75B375BDB57BCAE1370A5391F37BE32E9F5699573C5D38805DC' +
           'C669DD77909E4637AA2EB376429C86799BB726902326B32646DE3' +
           '4F19BFB95105CB5A9FB56E40B2E26B9D31CB70CF15793075B88CC' +
           'F737F926199EA132D05CDE4C0CF3867AED24EC75FB793F5AEBB01' +
           '912526BD');
      Tuna := DTMFromString('78DA63E46560600061247078D72E30CD08E53' +
           '38218620C688011550D3F90904055E161678CAA461848F0A3AA39' +
           'B6772FAA1A194C35060A0AA86A40F670A3AA59B76811AA1A4920C' +
           '144C0CD4240821D55C5FEAD5B31D5B01250C38F690E865D7C98EE' +
           'D9BE6635AA1A2E20C181AAA6A1A202550D0B90E041553377D2245' +
           '4359C98F1F5E2E953543520B708A2AA3973F4088A1A00101617D9' +
           '');
      SwordFish := DTMFromString('78DA63E4636060E066400187269E06D38C503' +
           'E231B90106440038CA86A98808414AA0A03050554353C40428080' +
           '3920791E02EE110312BCA86A2E6DBC89AA46024808A3AA39BDED3' +
           'CAA1A907BF909A89105127CA86A5A73BB30DDC386AAC6C73C0055' +
           '8D20A69A1CDF22543520B730A1AA59D0B20C330CD1CC995DBF005' +
           '50D2766182E2D5F87A20600E1781620');
      Shark := DTMFromString('78DA63E4616060E0644001958505609A11CA6' +
           '704318451D5F4B5B460AA916140038CA86A38808434AA8A828C0C' +
           '5435FC40829F80392240420455C5F635AB51D50861BA67EEA449A' +
           '86AC4808404AA9A350B16A0AA91C23407C3EF207931026E160712' +
           '3C04FC0E52C382AAC6D3C104558D00A69AA4E86854353C44A8614' +
           '7E240C194AE2E54356C40821D55CDEC891350D53003096EFC7E07' +
           '00E85D1531');
      FishingSpot := BitmapFromString(26, 23, 'z78DAE595CD0E02210' +
           'C845FA9FE323D52A0EFFF4836F1A25193AD4065E3654E64A71D3E' +
           '66D305299714A2574AE073FF771819F5E8F00588D9EB027329FAF' +
           '10C314A506E6F37821C7EE53E4A2B2AD5BAF2847092F6A58BB124' +
           '297236A6426D67B4D86B44D320AFEE7CC4D8D6D37C3E85DA53B30' +
           '91528B9361D926A76FA6ECA902232EC612C7EC2D9343E1235E015' +
           '6CA0422690B34253A96DA5AEAC046DA176F5DECB6B17C5E81EFF6' +
           '5A3DA7E39F2FFE62ED6D4E6EC9CBBDE006C1F3535');
      BankBooth := BitmapFromString(29, 27, 'z78DAED97DB8EDC200C8' +
           '65F091230E632C7F77FA43A7100034E9B74765B55EAAEE60F2260' +
           '7F3E0C1A704103017BDD7080D86BB4E861669DF60923CA99C7BA2' +
           '83A20A80A087E05708B8934E341538F0156A9B39902B1058CB0BD' +
           '50C409765D835134E2DCA847EF978B966688BFD71957D8E7719AE' +
           '3C4634517DC1ADD7027FB7B34C1BED4A1D7C9C6218C556E57F2BB' +
           'B1121BA19247F6DBEA7E9090051B6CA503D97CA3631C89C4471F5' +
           'CA7BE57995BB02E52111CC4D17CA3069847FB89FE82F663FBD44F' +
           'DBD729732AB46FBDAFC18EE323FD0EDA27E4A77730D45200869E7' +
           '3A7FE7CEBE96358DDFA3A0A41F288F62E52E201CB3C49256D9EA7' +
           '580E4EA6A50FBAA5F0A7285274A74DA4FFC8CA6BDC38EEE32E69D' +
           '9B2B426F323F75EF6D9A642D8D342C32608E7E44BAC17967925D3' +
           'FAD579417B5AB854D4B75453F2248F57F68E4845C69ADCE60CCB9' +
           '55D74D0764E8AAEA72D592DCC27D539DFC492FC6AB5AE69F38CD2' +
           '039765B52E22032A2DF624D0F683CC4F8A22E7A4EF5E49DE7642A' +
           '942DB4BD59AD3CB1D6DC39C335C57B09E11BB50B2D5333FABB5D2' +
           '3F558C172DBAA1A1ADFB21F3C8AEA82A5B32ACE6ADD448AEEC79F' +
           'A2AC8EA3870831B14DA8E53511151DD81ED99D0F2A76C57169ABD' +
           'E954947B7B5A59FD9EB0F2D2E4335B6EBE47E21B27C6E53CD13AA' +
           '1396DFC7D6E8FF17FFD623D4F8647FA6FD17EAE1FD356BF161EEB' +
           '1F8D51E8EFD1FE359DBC31743D0D06E0D060D1D0D322D293AEA1F' +
           '457C6A46525FD5CE295A6CC5C6A8E8B1FBF659B72FE526C77F576' +
           '10E939F09839F9BED35A48B4CA5830645A195D89A861D662E9DF3' +
           '2A1C279439BBC9FBB3A9E2B5777249585935FAC692CCBEAA819B8' +
           'A3BDDE6666BAE39B687061E57E901E959ACA8C890C573176B164F' +
           'BB9EB3273B629697F00E671E4FE');
    end;


    Procedure autotalker;
    Begin
      If (InChat('fish lvls') or
      Inchat('fishin lvls') or
      Inchat('fishing lvls') or
      Inchat('fshin lvls?') or
      Inchat('fishing lvls?') or
      Inchat('fish lvls?') or
      Inchat('fish levels') or
      Inchat('fishin levels') or
      Inchat('fishing levels') or
      Inchat('fish levels?') or
      Inchat('fishing levels?') or
      Inchat('fishin levels?')) then
      begin
        Typesend(IntToStr(GetSkillLevel('Fishing')))
      end;
    end;
    begin
      If (Inchat('hi everyone') or
      Inchat('hi every1')) then
      begin
        Typesend('HI!')
      end;
    end.

    Procedure BankToFish;
    Begin
      RadialWalk(FindWaterColor, 113, 121, 66, 0, 1);
      Flag;
      RadialWalk(FindWaterColor, 104, 114, 49, 0, 1);
      Flag;
      RadialWalk(FindWaterColor, 110, 117, 66, 0, 1);
      Flag;
    end;

    Procedure ClickFishSymbol;
    Begin
      If(FindBitmap(FishSymbol, x, y)) then
      ClickBMP;
    end;

    Procedure BackToBank;
    Begin
      If(InvFull) then
      SetRun(True);
      MakeCompass('N');
      HighestAngle;
      RadialWalk(FindWaterColor, 291, 285, 70, 0, 1);
      Flag;
      RadialWalk(FindWaterColor, 272, 277, 73, 0, 1);
      Flag;
      RadialWalk(FindWaterColor, 232, 239, 57, 0, 1);
      Flag;
    end;

    Procedure ClickBankSymbol;
    Begin
      If(FindBitmap(BankSymbol, x, y)) then
      ClickBMP;
    end;

    Procedure OpenBank;
    begin
      if(FindBitmap(BankBooth,x,y)) then
      MMouse,x,y,0,0)
      Mouse(x,y,0,0,False)
      ChooseOption(x, y, 'quickly')
      wait(1000+Random(500))
      If (Bankscrean) then
      Writeln('Opened Bank')
    end;

    function BankIt: Boolean;
    begin
      if(FindInvDTM(Lobster,x,y)) then
      Wait(500+Random(250))
      Mouse(x,y,2,2,False)
      ChooseOption(x,y,'StoreAll')
      if(FindInvDTM(Tuna,x,y)) then
      Wait(500+Random(250))
      Mouse(x,y,2,2,False)
      ChooseOption(x,y,'StoreAll')
      if(FindInvDTM(SwordFish,x,y)) then
      Wait(500+Random(250))
      Mouse(x,y,2,2,False)
      ChooseOption(x,y,'StoreAll')
      if(FindInvDTM(Shark,x,y)) then
      Wait(500+Random(250))
      Mouse(x,y,2,2,False)
      ChooseOption(x,y,'StoreAll')
      Writeln('Load Banked Sucessfully')
      CloseBank;
    end;

    procedure Proggy;
    begin
      ClearDebug;
      Writeln(':-----------------------------------------------');
      Writeln(':  Worked For : ' +ScriptTime2(2));
      Writeln(':  Did ' + IntToStr(LoadsNum)  + 'Loads         ');
      Writeln(':\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
      Writeln(':  Thankyou for using my catherby script--------');
      SRLRandomsReport;
    end

    Function TimeToFish:boolean;
    Begin
      if(FindBitmap(FishingSpot,x,y,)) then
      MMouse,x,y,0,0)
      Mouse(x,y,0,0,False
      If(Players[CurrentPlayer]boolean1=true)then
      If(ChooseOption(x,y,'Cage'))then
      writeln('Clicking fishing spot')else
      ChooseOption(x,y,'Cancel');
      If(ChooseOption(x,y,'Harpoon'))then
      writeln('Clicking fishing spot')else
      ChooseOption(x,y,'Cancel');
    end;
    {                 Main Loop                       }

    Procedure Setup;
    Begin
      SetupSRL;
      ActivateClient;
      Signature;
      DeclarePlayers;
      Wait(500+random(500);
      DTMsAndBMPs;
    end;

    begin
      Setup;
      repeat
        BankToFish;
        ClickFishSymbol;
        TimeToFish;
        AutoTalker;
        BackToBank;
        ClickBankSymbol;
        OpenBank;
        StoreItems;
        if(loadsNumB=Loads)then
        begin
          NextPlayer(True);
          LoadsNumb:=0;
          HighestAngle;
          MakeCompas('N');
          Writeln('Switched Players Successfuly');
        end;
        Proggy;
      until(False);
    end.program CatherbyFisher;
    {.include SRL/SRL.scar}

    //My First script
    //Start at catherby bank, you have to be a member
    Const
      Loads =3;

    Var FishSymbol, BankSymbol, fishingSpot, BankBooth, Tuna, SwordFish,
        Shark,Lobster: Integer;
    {----------------------Setup Players Here-------------------------}
    procedure DeclarePlayers;
    begin
      HowManyPlayers:=1; //Number Of players.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer :=0 //Player to start on
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
      Players[0].Boolean1 :=true;  //true for cage fishing, false for harpoon fishing.

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := False;
      Players[1].Boolean1 :=true;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := False;
      Players[2].Boolean1 :=true;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := False;
      Players[3].Boolean1 :=true;

      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Active := False;
      Players[4].Boolean1 :=true;

      Players[5].Name := '';
      Players[5].Pass := '';
      Players[5].Nick := '';
      Players[5].Active := False;
      Players[5].Boolean1 :=true;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    {-------------------------------------------------------------------}
    //                      just dont touch anything down here
    Procedure Signature;
    begin
      ClearDebug;
      Writeln('jon98 catherby fisher      ');
      Wait(200);
      Writeln('  _______   ____    ___   _');
      Wait(200);
      Writeln('    | |    /    \   |  \  |');
      Wait(200);
      Writeln(' ___| |   (  ()  )  |   \ |');
      Wait(200);
      Writeln(' _____|    \____/  _|   _\|');
    end;

    Procedure DTMsAndBMPs;
    begin
      Lobster := DTMFromString('78DA6314606060E067400195AE72609A11CA6' +
           '704C98BA1AAA9F5C0A2468A010D30A2AA1104123204D48811610E' +
           '488D10AA8A526734F78802091E02E680D470A0AA1013124255037' +
           '22F0BAA9AE961AAA86A24810433AA9ADE40654C3733A1AAC9B295' +
           '4655038A0B2E02FE02C973A3AA49B392445503722F2FAA9A003D3' +
           '47F811882A86A72EDA531D50813481B6C986AEA3D1551D4000077' +
           'CA0C79');
      FishSymbol := BitmapFromString(15, 15, 'z78DAB5D45B0A802010' +
           '05D02D8D29999F3E68FF4BCAD06064B836F498E07E681EA72889A' +
           '6E5C8D40BE55946AC41E383966DF2A9A014BE997738D714BB7C66' +
           'DEF87FC8C05C62A6BDA7B1ABDF13D2E42C92B92613C9D1061FC6C' +
           'E85DC9D78CECD7D5A834F4E2353B65B19529AF29E969A9ED1DAFA' +
           '0494B796CDE92348066F9B3B5CE3C93BB9F6D27E75D24109E5FFF' +
           'EC137E786C67C72D6C13A00E69E266F');
      BankSymbol := BitmapFromString(15, 15, 'z78DAADD46D0A80200' +
           'C06E02BCDB4C29F7D79FF2345AE60A2D377908311C11E634D8986' +
           'CB75B375BDB57BCAE1370A5391F37BE32E9F5699573C5D38805DC' +
           'C669DD77909E4637AA2EB376429C86799BB726902326B32646DE3' +
           '4F19BFB95105CB5A9FB56E40B2E26B9D31CB70CF15793075B88CC' +
           'F737F926199EA132D05CDE4C0CF3867AED24EC75FB793F5AEBB01' +
           '912526BD');
      Tuna := DTMFromString('78DA63E46560600061247078D72E30CD08E53' +
           '38218620C688011550D3F90904055E161678CAA461848F0A3AA39' +
           'B6772FAA1A194C35060A0AA86A40F670A3AA59B76811AA1A4920C' +
           '144C0CD4240821D55C5FEAD5B31D5B01250C38F690E865D7C98EE' +
           'D9BE6635AA1A2E20C181AAA6A1A202550D0B90E041553377D2245' +
           '4359C98F1F5E2E953543520B708A2AA3973F4088A1A00101617D9' +
           '');
      SwordFish := DTMFromString('78DA63E4636060E066400187269E06D38C503' +
           'E231B90106440038CA86A98808414AA0A03050554353C40428080' +
           '3920791E02EE110312BCA86A2E6DBC89AA46024808A3AA39BDED3' +
           'CAA1A907BF909A89105127CA86A5A73BB30DDC386AAC6C73C0055' +
           '8D20A69A1CDF22543520B730A1AA59D0B20C330CD1CC995DBF005' +
           '50D2766182E2D5F87A20600E1781620');
      Shark := DTMFromString('78DA63E4616060E0644001958505609A11CA6' +
           '704318451D5F4B5B460AA916140038CA86A38808434AA8A828C0C' +
           '5435FC40829F80392240420455C5F635AB51D50861BA67EEA449A' +
           '86AC4808404AA9A350B16A0AA91C23407C3EF207931026E160712' +
           '3C04FC0E52C382AAC6D3C104558D00A69AA4E86854353C44A8614' +
           '7E240C194AE2E54356C40821D55CDEC891350D53003096EFC7E07' +
           '00E85D1531');
      FishingSpot := BitmapFromString(26, 23, 'z78DAE595CD0E02210' +
           'C845FA9FE323D52A0EFFF4836F1A25193AD4065E3654E64A71D3E' +
           '66D305299714A2574AE073FF771819F5E8F00588D9EB027329FAF' +
           '10C314A506E6F37821C7EE53E4A2B2AD5BAF2847092F6A58BB124' +
           '297236A6426D67B4D86B44D320AFEE7CC4D8D6D37C3E85DA53B30' +
           '91528B9361D926A76FA6ECA902232EC612C7EC2D9343E1235E015' +
           '6CA0422690B34253A96DA5AEAC046DA176F5DECB6B17C5E81EFF6' +
           '5A3DA7E39F2FFE62ED6D4E6EC9CBBDE006C1F3535');
      BankBooth := BitmapFromString(29, 27, 'z78DAED97DB8EDC200C8' +
           '65F091230E632C7F77FA43A7100034E9B74765B55EAAEE60F2260' +
           '7F3E0C1A704103017BDD7080D86BB4E861669DF60923CA99C7BA2' +
           '83A20A80A087E05708B8934E341538F0156A9B39902B1058CB0BD' +
           '50C409765D835134E2DCA847EF978B966688BFD71957D8E7719AE' +
           '3C4634517DC1ADD7027FB7B34C1BED4A1D7C9C6218C556E57F2BB' +
           'B1121BA19247F6DBEA7E9090051B6CA503D97CA3631C89C4471F5' +
           'CA7BE57995BB02E52111CC4D17CA3069847FB89FE82F663FBD44F' +
           'DBD729732AB46FBDAFC18EE323FD0EDA27E4A77730D45200869E7' +
           '3A7FE7CEBE96358DDFA3A0A41F288F62E52E201CB3C49256D9EA7' +
           '580E4EA6A50FBAA5F0A7285274A74DA4FFC8CA6BDC38EEE32E69D' +
           '9B2B426F323F75EF6D9A642D8D342C32608E7E44BAC17967925D3' +
           'FAD579417B5AB854D4B75453F2248F57F68E4845C69ADCE60CCB9' +
           '55D74D0764E8AAEA72D592DCC27D539DFC492FC6AB5AE69F38CD2' +
           '039765B52E22032A2DF624D0F683CC4F8A22E7A4EF5E49DE7642A' +
           '942DB4BD59AD3CB1D6DC39C335C57B09E11BB50B2D5333FABB5D2' +
           '3F558C172DBAA1A1ADFB21F3C8AEA82A5B32ACE6ADD448AEEC79F' +
           'A2AC8EA3870831B14DA8E53511151DD81ED99D0F2A76C57169ABD' +
           'E954947B7B5A59FD9EB0F2D2E4335B6EBE47E21B27C6E53CD13AA' +
           '1396DFC7D6E8FF17FFD623D4F8647FA6FD17EAE1FD356BF161EEB' +
           '1F8D51E8EFD1FE359DBC31743D0D06E0D060D1D0D322D293AEA1F' +
           '457C6A46525FD5CE295A6CC5C6A8E8B1FBF659B72FE526C77F576' +
           '10E939F09839F9BED35A48B4CA5830645A195D89A861D662E9DF3' +
           '2A1C279439BBC9FBB3A9E2B5777249585935FAC692CCBEAA819B8' +
           'A3BDDE6666BAE39B687061E57E901E959ACA8C890C573176B164F' +
           'BB9EB3273B629697F00E671E4FE');
    end;


    Procedure autotalker;
    Begin
      If (InChat('fish lvls') or
      Inchat('fishin lvls') or
      Inchat('fishing lvls') or
      Inchat('fshin lvls?') or
      Inchat('fishing lvls?') or
      Inchat('fish lvls?') or
      Inchat('fish levels') or
      Inchat('fishin levels') or
      Inchat('fishing levels') or
      Inchat('fish levels?') or
      Inchat('fishing levels?') or
      Inchat('fishin levels?')) then
      begin
        Typesend(IntToStr(GetSkillLevel('Fishing')))
      end;
    end;
    begin
      If (Inchat('hi everyone') or
      Inchat('hi every1')) then
      begin
        Typesend('HI!')
      end;
    end.

    Procedure BankToFish;
    Begin
      RadialWalk(FindWaterColor, 113, 121, 66, 0, 1);
      Flag;
      RadialWalk(FindWaterColor, 104, 114, 49, 0, 1);
      Flag;
      RadialWalk(FindWaterColor, 110, 117, 66, 0, 1);
      Flag;
    end;

    Procedure ClickFishSymbol;
    Begin
      If(FindBitmap(FishSymbol, x, y)) then
      ClickBMP;
    end;

    Procedure BackToBank;
    Begin
      If(InvFull) then
      SetRun(True);
      MakeCompass('N');
      HighestAngle;
      RadialWalk(FindWaterColor, 291, 285, 70, 0, 1);
      Flag;
      RadialWalk(FindWaterColor, 272, 277, 73, 0, 1);
      Flag;
      RadialWalk(FindWaterColor, 232, 239, 57, 0, 1);
      Flag;
    end;

    Procedure ClickBankSymbol;
    Begin
      If(FindBitmap(BankSymbol, x, y)) then
      ClickBMP;
    end;

    Procedure OpenBank;
    begin
      if(FindBitmap(BankBooth,x,y)) then
      MMouse,x,y,0,0)
      Mouse(x,y,0,0,False)
      ChooseOption(x, y, 'quickly')
      wait(1000+Random(500))
      If (Bankscrean) then
      Writeln('Opened Bank')
    end;

    function BankIt: Boolean;
    begin
      if(FindInvDTM(Lobster,x,y)) then
      Wait(500+Random(250))
      Mouse(x,y,2,2,False)
      ChooseOption(x,y,'StoreAll')
      if(FindInvDTM(Tuna,x,y)) then
      Wait(500+Random(250))
      Mouse(x,y,2,2,False)
      ChooseOption(x,y,'StoreAll')
      if(FindInvDTM(SwordFish,x,y)) then
      Wait(500+Random(250))
      Mouse(x,y,2,2,False)
      ChooseOption(x,y,'StoreAll')
      if(FindInvDTM(Shark,x,y)) then
      Wait(500+Random(250))
      Mouse(x,y,2,2,False)
      ChooseOption(x,y,'StoreAll')
      Writeln('Load Banked Sucessfully')
      CloseBank;
    end;

    procedure Proggy;
    begin
      ClearDebug;
      Writeln(':-----------------------------------------------');
      Writeln(':  Worked For : ' +ScriptTime2(2));
      Writeln(':  Did ' + IntToStr(LoadsNum)  + 'Loads         ');
      Writeln(':\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
      Writeln(':  Thankyou for using my catherby script--------');
      SRLRandomsReport;
    end

    Function TimeToFish:boolean;
    Begin
      if(FindBitmap(FishingSpot,x,y,)) then
      MMouse,x,y,0,0)
      Mouse(x,y,0,0,False
      If(Players[CurrentPlayer]boolean1=true)then
      If(ChooseOption(x,y,'Cage'))then
      writeln('Clicking fishing spot')else
      ChooseOption(x,y,'Cancel');
      If(ChooseOption(x,y,'Harpoon'))then
      writeln('Clicking fishing spot')else
      ChooseOption(x,y,'Cancel');
    end;
    {                 Main Loop                       }

    Procedure Setup;
    Begin
      SetupSRL;
      ActivateClient;
      Signature;
      DeclarePlayers;
      Wait(500+random(500);
      DTMsAndBMPs;
    end;

    begin
      Setup;
      repeat
        BankToFish;
        ClickFishSymbol;
        TimeToFish;
        AutoTalker;
        BackToBank;
        ClickBankSymbol;
        OpenBank;
        StoreItems;
        if(loadsNumB=Loads)then
        begin
          NextPlayer(True);
          LoadsNumb:=0;
          HighestAngle;
          MakeCompas('N');
          Writeln('Switched Players Successfuly');
        end;
        Proggy;
      until(False);
    end.

  2. #2
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, well what EXCATLY was wrong with it?

  3. #3
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah i noticed that too but i cant help much till i know whats wrong with it, well it doesnt compile
    SCAR Code:
    [Runtime Error] : Exception: Access violation at address 0065478C in module 'scar.exe'. Read of address 00000000 in line 653 in script

  4. #4
    Join Date
    Apr 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I changed the script and now all it does is say

    Code:
    Successfully compiled
    Successfully executed
    It doesnt move or do anything.
    Can someone help me with my script please?

  5. #5
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can you post the script that just compiles and executes?

  6. #6
    Join Date
    Apr 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i already did, its the very first post

  7. #7
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jon98 View Post
    i already did, its the very first post
    i have no idea why this isn't working i tried many times got same error as you

    erm maybe too much bitmaps?

  8. #8
    Join Date
    Apr 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    there are 4 bitmaps, i guess there are too many

  9. #9
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    no its not too many bitmaps, some people use 10+ sorry i cant figure it out =\

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 6
    Last Post: 04-16-2009, 06:40 AM
  2. Catherby Fishing (cooker if there isnt one)
    By zenith22 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 01-09-2008, 02:51 AM
  3. Catherby Fisher script error....
    By acevampire in forum OSR Help
    Replies: 13
    Last Post: 11-04-2007, 07:34 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 Fishing script
    By Gabbe.91 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 04-17-2007, 01:59 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
  •