SRL Archive - First Scripts

Help my first catherby fishing script

jon98

2007-06-07 14:57:01

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:

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.

Pwnt by Pwnt

2007-06-07 20:43:04

ok, well what EXCATLY was wrong with it?

Pwnt by Pwnt

2007-06-07 21:44:43

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

jon98

2007-06-07 22:56:40

I changed the script and now all it does is say

Successfully compiled
Successfully executed

It doesnt move or do anything.
Can someone help me with my script please?

Pwnt by Pwnt

2007-06-09 04:14:27

can you post the script that just compiles and executes?

jon98

2007-06-09 22:06:06

i already did, its the very first post

Hugolord

2007-06-10 06:12:53

From: jon98
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?

jon98

2007-06-10 23:18:13

there are 4 bitmaps, i guess there are too many

Pwnt by Pwnt

2007-06-12 20:45:36

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