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.