SCAR Code:
program FushnChups;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fishing.scar}
///// >>Any-Key's Barbarian Village Fisher<< \\\\\
////Start at The Barbarian Village fishing spot\\\\\
/// Set Bank to false if dropping is preferred \\\\\
// Setup players and click play \\\\\
const
Bank = True; //Set to false to drop fish
var
Loads: Integer;
BanksCompleted: Integer;
Feathers: Boolean;
Reel: Boolean;
Trout, Salmon, Rod, Bait, FishSpot: Integer;
FishSymbol, BankSymbol, BankCounter: Integer;
Procedure ReadyDTMFiles;
begin
Trout := DTMFromString('78DA63D462646010616240067BD6AD01D38C5' +
'03EA331902580AA86858905558D32902543408D2290254C408D1A' +
'90C54F408D0E90C549408D0190C545408D1911E680EC9226A0461' +
'6BF1A0E200600EBD20501');
Salmon := DTMFromString('78DA63346664605808C448607E5C209886893' +
'26A0159AB50D5C064E16A3431CDC150630664CD24A0C610C89A81' +
'5B0D3388B605B2E610506309642D20A0C604C85A49408D1A90B58' +
'C801A7B206B327E35001ADB09C9');
Rod := DTMFromString('78DA63D4646460A86362400699FE9C609A11C' +
'A675400B29A50D5C064E16A1481AC6E026AB480AC56026AF480AC' +
'7A026ACC81AC42026AF481AC22026AD481AC0AFC6A0024D4062A');
Bait := DTMFromString('78DA63746264606060624006DBB6AD02D38C5' +
'03EA32790C584AA0606E06A7C80AC6F8CF8D5B803599F09A8B105' +
'B2FE1150630D643113708F0390C5C544D82E1EDC6AD840B415916' +
'A0408A8F106B27E33E255030017AC094D');
FishSpot := BitmapFromString(25, 24, 'z78DAC59641928420' +
'0C45AF14BB85846540B8FF9106858516A62780D3B3F94559A53CF' +
'F4F02F826C38C458116B6ADDA48C0EB8D6E18F975A38CDE6D37EA' +
'909D6F15C1510816919C2B3AC8E33130DC68278FB59817ADFE974' +
'B480C219DFD19F32A7F056218F44AD85DF44AE0B9307CCCCED306' +
'E92DF12079884E9F9D35B83AF39DEC9802C574594BEE29A87CFE4' +
'282B13AE7DDC3858A57EAECA404C7FAEE26C7CEBED353D53F7D74' +
'3AD52E83ACB6F5D08025F7FAC31925554EAB94152F93E19B33B37' +
'1ECE2D2CEB64A54B542DA1CE7B353131686DAAD52E5485EF5EEAE' +
'D1DDB1A9ECF2A941D18A8EF53A59AAAB9ED78FCECC87082B556F7' +
'682964AC8FF0C7E99A2EDCD6E4CDB7D8FFAA96B38BA4F43D5E99E' +
'A1FC563A3FA17C97F3D83D558A4ABBCFE8BCB70AAFA4B9916F3B9' +
'FE6C90CA144A55181A456FB84B7BF4C8693B6335FC50947BD75D6' +
'80743A8B77D1791DA26AB5B8A43AC71F22FC0107903479');
FishSymbol := BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
'9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
'045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
'BB6B6878');
BankSymbol := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
'100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
'8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
'A1997F9B842865493890F734C9301ACE46928');
BankCounter := BitmapFromString(30, 1, 'z78DA333530B' +
'130B1304521413484044218DB05C6868A1A98184144CC0C4D5C8C' +
'8C9149134B6333034B9C24C24C98692011430C930DA1A48BB1235' +
'0171209001C2C2544');
end;
Procedure UberBright;
Begin
GameTab(11);
Wait(400+random(12));
If GetColor(712, 226) <> 16777215 Then
Begin
Mouse(712, 226, 2, 2, True);
Wait(200+random(12));
End;
End;
Procedure FindFeathers;
begin
ReadyDTMFiles;
if(FindInvDTM(x, y, Bait)) then
begin
Feathers := True;
end
else
begin
Feathers := False;
Writeln('Wheres your feathers?')
terminatescript;
end
FreeDTM(Bait)
end;
Procedure FindRod;
begin
if(FindInvDTM(x, y, Rod)) then
begin
Reel := True
end
else
begin
Reel := False
Writeln('Wheres your rod?')
terminatescript;
end
FreeDTM(Rod)
end;
procedure FaceNorth;
begin
MakeCompass('N');
Wait(500 + Random(500));
MakeCompass('N');
Wait(500 + Random(500));
MakeCompass('N');
Wait(500 + Random(500));
HighestAngle;
Writeln('Now Facing North')
end;
Procedure ClickBMP;
begin
Wait(1000+random(15))
MMouse(x,y,0,0)
Wait(30+random(8))
Mouse(x+random(3),y+random(3),0,0,True)
end;
Procedure ClickSpotBMP;
begin
Wait(1000+random(15))
MMouse(x,y,0,0)
if(IsUpText('Lure')) then
Wait(30+random(8))
Mouse(x+random(3),y+random(3),0,0,True)
end;
Procedure FindFishSymbol;
begin
if(FindBitmap(FishSymbol, x,y)) then
ClickBMP;
end;
Procedure FindFishSpot;
begin
if(FindBitmap(FishSpot, x, y)) then
ClickSpotBMP;
end;
Procedure DropFish;
begin
if(Bank = False) and (InvFull) then
DropTo(3,28)
Writeln('Dropped fish, starting fishing again')
Loads:=Loads+1
end;
Procedure BankTravel;
begin
If(Bank=True) and (InvFull) then
SetRun; //PROBLEM <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
MakeCompass('N')
RadialRoadWalk(5921890, 90, 160, 60, 1, 1);
FFlag(3)
RadialRoadWalk(5921890, 105, 140, 60, 1, 1);
FFlag(3)
RadialRoadWalk(5855584, 75, 90, 60, 1, 1);
FFlag(4)
RadialRoadWalk(5855584, 55, 75, 60, 1, 1);
FFlag(4)
RadialRoadWalk(5855584, 67, 82, 70, 1, 1);
FFlag(5)
if(FindBitmap(BankSymbol, x, y)) then
ClickBMP;
end;
Procedure OpenBank;
begin
if(FindBitmap(BankCounter,x,y)) then
Wait(200+random(50))
MMouse(x,y,0,0)
Wait(50+random(12))
Mouse(x,y,0,0,False)
ChooseOption(x, y, 'quickly')
Wait(1000+random(69))
If (Bankscreen) then
Writeln('Opened Bank')
end;
Procedure Deposit;
begin
if(FindInvDTM(Salmon,x,y)) then
MMouse(x,y,0,0)
Wait(500+Random(69))
Mouse(x+random(3),y+random(3),0,0,False)
ChooseOption('All')
Wait(200+random(50))
if(FindInvDTM(Trout,x,y)) then
MMouse(x,y,0,0)
Wait(500+random(69))
Mouse(x+random(3),y+random(3),0,0,False)
ChooseOption('All')
Loads:= Loads+1
Writeln('Load Successfully Banked')
end;
begin
ActivateClient;
UberBright;
FindFeathers;
FindRod;
FaceNorth;
FindFishSymbol;
FindFishSpot;
HandleWhirlPool;
DropFish;
BankTravel;
OpenBank;
Deposit;
end.