SCAR Code:
program UltimateFisher;
{.include Si.scar}
var
FishText,BankText,Movement:string;
x,y,trips,NetFindCounter,
LostNetcount,WhirlpoolCount,
xx,yy,Fishcolor1,Fishcolor2,myattk,
FishTimeOut,lobtimeout,sharktimeout,
Harpoon,EquipColor,whirlpool,TunatimeOut,
whirlpool2,cage,Bitmap:integer;
ST:longint;
Castout,Lostnet,click,RightMove,LeftMove:boolean;
//For me....5360864 banksym tol 50
//15750425 fishsym tol 40
Const
userSet=1;//in Si
FishMode=3;// 1 for karjma fishing 2 for guild fishing 3 for catherby fishing
LeftClick=True;//right or left click lob spots (true or false)
KarajamaFishType='Lobster';//fish lobsters or tuna on karajama
CatherbyFishType='Lobster';//lobster, shark, or tuna
GuildFishType='Lobster';//shark or lobster or tuna
LampSkill='fishing';//skill for lamp to pick lower case
{Needed for any fishing}
UtensilColor=939386;//color of your fishing untensil while your fishing
{Only need for Lob fishing on karajama}
DirtRoad=939386;//dirt road on karjma (sorry almost no colors)
PotColor=1331103;//General Store pot symbol
StoreGuy=3037054;//shirt color like on shoulders
Trees=1396779;//banana tree lightest color ON MINI-MAP
{Only needed for guild fishing}
Dock=4136;//the brown dock color ON MINI-MAP
GuildBankFloor=2243678;//the brown color of the guild bank
Grass=1863022;//gree grass color ON MINI-MAP
{Only need for catherby fishing}
Road=5592411;//Road through catherby
BankPeople=60909;//yellow bank people on MINI-MAP
{End of colors}
Procedure Report(doing:string); //modified from Phalanx's script
var
RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
Time:String;
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if(Trips>0)then
avtime:=Seconds/TRips;
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
Writeln('Ultimate Fisher by Renagade');
writeln('***********************');
writeln('Currently: '+doing);
Writeln('Worked for '+Time);
if(Trips>0)then Writeln('Finished: '+inttostr(trips)+' trips')
Writeln('Fished: '+inttostr(trips*27)+' Fishies');
if(avtime>0)then
Writeln('Averaging: '+inttostr(3600/avtime*27)+' fish an hour');
if(whirlpoolcount>0)then Writeln('WhirlPools Avoided: '+inttostr(WhirlPoolCount))
if(gSiRandoms[0]>0)then Writeln('Attacks: '+inttostr(GSirandoms[0]))
if(gSiRandoms[1]>0)then writeln('Talked: '+inttostr(GSirandoms[1]));
if(gSiRandoms[4]>0)then Writeln('Loged in/out: '+inttostr(GSirandoms[4])+' times')
if(gSiRandoms[3]>0)then Writeln('Solved: '+inttostr(GSirandoms[3])+' Boxes')
if(gSiRandoms[2]>0)then Writeln('Dealt with: '+inttostr(GSirandoms[2])+' Lamps')
if(gSiRandoms[6]>0)then Writeln('Picked: '+inttostr(GSirandoms[6])+' Strange plant''s')
writeln('***********************');
end;
Procedure RunFarAway;//good
var ax,ay:integer;
begin
myattk:=myattk+1
if(fishmode=1)then
begin
mouse(648,149,3,3,true)
flag;
Wait(4000+random(6000))
if(FindColorTolerance(ax,ay,15750425,572,8,722,160,40))then
begin
Mouse(ax,ay+15,1,1,True)
wait(1000)
flag;
wait(766+random(132))
end;
If(FishMode=2)then
begin
if(findcolorspiral2(x,y,Grass,591,93,619,121))then
begin
Mouse(x,y,1,1,true)
flag;
Wait(5000)
if(FindColorTolerance(x,y,15750425,661,34,711,80,40))then
begin
Mouse(x,y,1,1,True)
end;
if(fishmode=3)then
begin
Run('N',False)
end;
end;
end;
end;
end;
procedure randoms;//good
Begin
if(beingAttacked)then
begin
RunFarAway;
end;
if(fishmode=1)then
CheckRandoms(userset,LampSkill,'S',True,True,srtall)
If(fishmode=2)then
CheckRandoms(userset,LampSkill,'N',False,True,srtall)
If(fishmode=3)then
CheckRandoms(userset,LampSkill,'E',False,True,srtall)
end;
Procedure NetFinder;//good
var ax,ay:integer;
begin
if(findcolorspiraltolerance(x,y,equipcolor,5,144,360,515,5))then
begin
MMouse(ax,ay,0,0)
If(isuptext('Take'))then
begin
Mouse(ax,ay,0,0,true)
flag;
Wait(643+random(644))
LostNet:=False
NetFindCounter:=NetFindCounter+1
end else
LostNet:=True
LostNetCount:=LostnetCount+1
end;
end;
funCtion AntiWhirlPool:boolean;
var acc:extended;
begin
WhirlPool := BitmapFromString(9, 8,
'9DA7B5C3BFC1C6C3C6C5C9D0A7B1BE697E9B9B9CA69B9CA6B4B0B4' +
'697E9BC9C7CAC2C7CEACB6C2697E9B9EA0ABC6C3C6A8ACB5A8ACB5' +
'697E9BD2D2D5B7BBC5B0B9C6A2A5B0A2A5B0A2A5B08B95A58C96A5' +
'697E9BC9CACFCCCED3A2ADBAB3B2B8949EAE939FADC6CAD199A3B2' +
'697E9B697E9B697E9B697E9BA4A7B2A4A7B2697E9B697E9B697E9B' +
'B4B7BFABAFB6969AA3A09CA29AA5B3AFB4BF9EA0AB9EA0AB697E9B' +
'D3CECDCCC6C6B8B2B3C6C8CC98A3B1A4A7B2A5A9B3A0A2ADB0ABAE' +
'BBC1CCDADADEBBC2CD697E9B9BA6B398A2B19A9BA69A9BA6ADA8AB' +
'');
WhirlPool2 := BitmapFromString(11, 4,
'AAB6C3C5C8CCC5C8CCC5C8CCC1C5C9BCBFC5C1C4C2D6D6CAD6D6CA' +
'D6D6CAD7D7CBCCCED3BEC1C6BABFC2BFC3C6BBC1C5AFB4B6E1E0E1' +
'CFD0D3BEC1B7D0CFC2D0CFC2C9CCCEC9CCCED0D0D2D2D1D3BBBFC3' +
'D8D9DBCFD3D6BDC4CBC0C3B8C7CAC9C0C3B9B4B8BBA3A9ADE4E0E0' +
'DBD8DACBCCD0BFC4CCA5AFBDA5AFBDA6A9B4CACBC7C2C5BA');
if(FindDeformedBitmapToleranceIn(WhirlPool,x,y,218,130,320,217,15,0,True,acc))or
(FindDeformedBitmapToleranceIn(WhirlPool2,x,y,218,130,320,217,15,0,True,acc))then
Result:=True
FreeBitmap(whirlpool)
FreeBitmap(whirlpool2)
end;
{======================Karajama specfic stuff=================}
procedure StoreToFish;
begin
If(FindColoredAreaTolerance(xx,yy,Dirtroad,693,56,720,90,21,2))then
begin
Mouse(xx,yy,0,0,True)
flag;
findcolor(xx,yy,trees,687,12,722,51)
Mouse(xx,yy,0,0,True)
wait(6000)
Flag;
findcolorspiraltolerance(xx,yy,15750425,559,5,731,157,40)
Mouse(xx,yy+15,0,0,True)
flag;
end else
If(not(FindColoredAreaTolerance(xx,yy,Dirtroad,693,56,720,90,21,2)))then
begin
logout;
Writeln('You got Lost')
terminatescript;
end;
end;
procedure SellFishies;
var trade:Integer;
begin
Trade := BitmapFromString(36, 5, 'z78DA333000013724608001DC' +
'70004A54D2C77C524D23DE045275916A0E79AE22469698F0A4DC9' +
'D03E52F7ABA9F16E97030F8CB80080000A849F54D');
xx:=244;
yy:=313;
repeat
FindColoredAreaTolerance(xx,yy,storeguy,0,0,390,335,2,3)
MMouse(xx,yy,0,0)
If(istextat2(9,9,'Talk',75))then
Mouse(xx,yy,0,0,false)
wait(200)
until(FindBitmapMaskTolerance(trade,xx,yy,0,0,513,337,20,20))
FindBitmapMaskTolerance(trade,xx,yy,0,0,513,337,20,20)
Mouse(xx,yy,0,0,true)
repeat
SLeep(100);
until(getcolor(216,41)=2070783)
wait(1000)
SellColor(Fishcolor1,10)
SellColor(FishColor2,10)
StoreToFish;
end;
procedure ToStorekarajama;
begin
If(Not(ExistsItem(0,0)))then
begin
Logout;
Writeln('Lost Pot')
Terminatescript;
End else
Begin
Report('Heading to the store')
findcolor(xx,yy,trees,627,130,728,162)
mouse(xx,yy,0,0,True)
flag;
mouse(xx,yy,0,0,True)
flag;
wait(500)
if(findcolor(xx,yy,potcolor,570,15,721,162))then
begin
mouse(xx+8,yy,0,0,True)
flag;
end else
begin
findcolor(xx,yy,DirtRoad,590,70,685,89)
Mouse(xx,yy,0,0,True)
flag;
findcolor(xx,yy,potcolor,570,15,721,162)
mouse(xx,yy,0,0,True)
flag;
end;
wait(1000)
SellFishies;
end;
end;
{======================End Karajama specfic stuff====================}
procedure Tofish; forward;
Procedure Banking;//good
begin
gametab(4);
Report('Banking')
OpenBank;
if(not(existsitem(0,0)))then
begin
depositarea(562,209,737,460)
MMouse(96,77,1,1)
If(not(IsTextUp(BankText)))then
begin
CloseWindow;
Logout;
Writeln('Out of fishing equipment')
TerminateScript;
end else
begin
Mouse(96,71,1,1,true)
end;
end else
begin
DepositArea(610,220,727,454)
depositarea(565,256,725,454)
CloseWindow;
end;
end;
Procedure ToFishGuild;
begin
Report('Going to fish in the Guild')
if(findcolorspiraltolerance(x,y,dock,692,50,714,87,3))then
begin
Mouse(x,y,0,0,true)
Flag;
end;
if(FindColorTolerance(x,y,15750425,572,8,722,160,40))then
begin
Mouse(x,y,0,0,True)
Flag;
end;
end;
Procedure ToBankGuild;
begin
Report('Going to Bank in the Guild')
if(not(FindColortolerance(x,y,5360864,570,8,725,162,50)))then
begin
if(findcolorspiral2(x,y,GuildBankFloor,575,81,614,133))then
MouseFlag(x,y,1,1)
if(FindColortolerance(x,y,5360864,570,8,725,162,50))then
Mouseflag(x,y,1,1)
end else
MouseFlag(x+6,y,1,1)
end;
{ Edited from janglebits <3 }
procedure SetSymBolPosition;
begin
rightMove:=False
LeftMove:=False //left
If(FindColorSpiralTolerance(x,y,15750425,566,40,645,138,40))Then
begin
LeftMove:=True
end; //right
If(FindColorSpiralTolerance(x,y,15750425,655,63,723,157,40))Then
begin
RightMove:=True
end;
if(RightMove=True)and(LeftMove=False)then
begin
MoveMent:='Right';
end;
if(LeftMove=True)and(RightMove=False)then
begin
MoveMent:='Left';
end;
if(LeftMove=True)and(RightMove=True)then
begin
MoveMent:='Right'; end;
end;
procedure CenterOnFish2;
begin
Report('Centering on Catherby fish')
If(Movement='Right')Then
begin
x:=679;
y:=90;
If(FindColorSpiralTolerance(x,y,15750425,655,63,723,157,40))Then
begin
Mouse(x+random(5),y+2-random(8),0,0,True)
Flag;
end;
end;
If(Movement='Left')Then
begin
x:=607;
y:=73;
If(FindColorSpiralTolerance(x,y,15750425,566,59,645,138,40))Then
begin
MouseFlag(x-random(5),y+2-random(8),0,0)
end;
end;
end;
procedure ToFishCatherby;
begin
Report('Going to Catherby fish spot')
If(FindColorTolerance(x,y,5360864,625,65,675,98,50))Then
begin
x:=714;
y:=112;
If(FindColorSpiral(x,y,Road,691,87,700,128))Then
begin
Repeat
Mouse(x-random(5),y-random(4),0,0,True)
Wait(2623+random(1324));
Flag;
FindColorSpiral(x,y,Road,691,73,700,128);
until(FindColorTolerance(x,y,15750425,571,93,723,157,40))
end;
x:=611;
y:=137;
If(FindColorSpiraltolerance(x,y,15750425,571,93,723,157,40))Then
begin
MouseFlag(x,y,5,4)
end;
end;
end;
Procedure ToBankCatherby;
Var x1,y1,Count:integer;
begin
Report('Going to Catherby bank')
If(Not(FindColorSpiral(x,y,Road,550,50,600,95)))Then
begin
Repeat
x:=615;
y:=73;
If(FindColorSpiraltolerance(x,y,15750425,566,40,645,138,40))Then
wait(100+random(450));
MouseFlag(x,y,1,1)
until((FindColorSpiral(x,y,Road,570,50,600,95)))
end;
If((FindColorSpiral(x,y,Road,570,50,600,95)))Then
begin
repeat
x:=580;
y:=85;
FindColorSpiral(x,y,Road,570,50,600,95);
Mouse(x+3+random(10),y+random(4),0,0,True)
wait(3120+random(1150));
Flag;
Count:=Count+1;
If(Count>1)Then
begin
Flag;
end;
until(FindColorTolerance(x,y,5360864,596,30,688,132,50))and(Count>1)
end;
If(FindColorTolerance(x1,y1,5360864,596,30,688,132,50))then
begin
repeat
FindColorTolerance(x,y,Bankpeople,x1-18,y1-35,x1+18,y1+5,12);
MouseFlag(x+random(5),y+9+random(4),0,0)
until(FindColorTolerance(x,y,5360864,625,65,675,98,50))
end;
end;
Procedure ToBank;//good
begin
case FishMode of
1:begin ToStoreKarajama; end;
2:begin ToBankGuild; end;
3:begin ToBankCatherby; end;
end;
end;
ProCedure ToFish;
begin
case FishMode of
1:begin StoreToFish; end;
2:begin ToFishGuild; end;
3:begin ToFishCatherby end;
end;
end;
Procedure CenterONFish;
begin
if(FindColorTolerance(x,y,15750425,572,76,722,160,40))then
begin
Report('Centering on fish')
wait(2000)
Mouse(x,y,0,0,True)
Flag;
end else
begin
logout;
Writeln('Got Lost...')
terminateScript;
end;
end;
procedure Catchfish;
var c,Openslitx,openSlity,b,fx,fy,cx,cy,ax,ay:integer;
TimedOut:boolean;
begin
ax:=15;
ay:=5;
Report('finding Fish')
timedout:=false;
castout:=False;
If(not(existsItem(0,0)))or(existsItem(3,6))then
exit;
repeat
ax:=ax+15;
ay:=ay+5;
x:=100+random(ax)
y:=100+random(ay)
b:=b+1
if(FindColorSpiralTolerance(x,y,15249528,5,5,514,337,20))then
MMouse(x,y,2,2);
wait(100+random(50))
If(Ax>415)then Ax:=15;
If(Ay>237)then Ay:=5;
until(IsTextAt2(9,9,FishText,100))or(b>25)or(Not(existsItem(0,0)))or(existsItem(3,6))
if(b>10)then
begin
if(FishMode=3)then
begin
b:=0;
SetSymbolPosition;
CenterOnFish2;
Catchfish;
end else
begin
b:=0;
CenterOnFish;
catchfish;
end;
end;
If(Not(ExistsItem(0,0)))or(existsItem(3,6))then
exit;
If(IsTextAt2(9,9,FishText,250))and(existsitem(0,0))then
begin
Report('Fishing')
Mouse(x,y,0,0,Click)
fx:=x; fy:=y;
Flag;
wait(200+random(200))
If(Not(ExistsItem(0,0)))or(existsItem(3,6))then
exit;
If(findbitmap(HarPoon,x,y))and(bitmap=2)or(findBitmap(Cage,x,y))and(bitmap=1)then
begin
MouseFlag(x,y,2,2)
end;
wait(500+random(500))
if(FindColorSpiralTolerance(cx,cy,UtensilColor,218,130,320,217,5))and(existsitem(0,0))then
begin
castout:=True
If(Not(ExistsItem(0,0)))or(existsItem(3,6))then
exit;
end else
begin
CatchFish;
end;
begin
Report('Fishing')
repeat
GhostSpeak('Fishing')
Randoms;
GetEmptyItemPosition(openSlitx,openslity)
wait(500)
c:=c+1
if(c>FishTimeOut*2)then
begin
timedout:=True;
end;
If(existsitem(openslitx,openslity))then
c:=0
until(timedout=True)or(not(existsItem(0,0)))or(ExistsItem(3,6))or(getcolor(143,426)=0)and(getcolor(140,426)=0)and(getcolor(70,430)=0)or
(not(FindColorSpiralTolerance(cx,cy,Utensilcolor,218,130,320,217,5)))and(not(ExistsItem(3,6)))or(antiwhirlpool)
if(timedout=true)then
begin
Timedout:=false;
Status('Man you suck at fishing...')
wait(200+random(500))
catchFish;
end;
if(antiwhirlpool)then
begin
Whirlpoolcount:=WhirlPoolCount+1
Mouse(649,84,0,2,true);
wait(8000);
end;
if(not(FindColorSpiralTolerance(cx,cy,Utensilcolor,218,130,320,217,5)))and(Not(existsitem(3,6)))then
begin
If(not(ExistsItem(0,0)))or(existsItem(3,6))then
Exit;
CatchFish;
end;
if(getcolor(143,426)=0)and(getcolor(140,426)=0)and(getcolor(70,430)=0)then
begin
logout;
writeln('you died')
terminatescript;
end;
end;
end;
end;
Procedure LoadBitmaps;
begin
HarPoon := BitmapFromString(51, 3,
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'');//bmp by benleegt
Cage := BitmapFromString(32, 6,
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'000000000000000000');//bmp by benleegt
end;
procedure SetStuffUp;
begin
Report('Setup')
TunaTimeOut:=20;
LobTimeOut:=25;
SharkTimeOut:=60;
Fishcolor1:=getcolor(661,228)
FishColor2:=Getcolor(711,224)
if(fishmode=1)and(karajamaFishType='Lobster')or(fishmode=1)and(karajamaFishType='lobster')then
begin
Bitmap:=1;
EQuipcolor:=getcolor(581,233)
FishTimeOut:=LobTimeOut;
FishText:='Cage';
Click:=LeftClick;
BankText:='Withdraw 1 Lobster';
end;
if(fishmode=1)and(karajamaFishType='Tuna')or(fishmode=1)and(karajamaFishType='tuna')then
begin
Bitmap:=2;
EQuipcolor:=getcolor(581,232)
FishTimeOut:=TunaTimeOut;
FishText:='Cage';
Click:=false;
BankText:='Withdraw 1 Harpoon';
end;
if(fishmode=2)and(GuildFishType='Shark')or(fishmode=2)and(guildfishtype='shark')then
begin
Bitmap:=2;
EquipColor:=getcolor(581,232)
FishTimeOut:=SharkTimeOut;
FishText:='Net';
Click:=False;
BankText:='Withdraw 1 Harpoon';
end;
if(fishmode=2)and(GuildFishType='Tuna')or(fishmode=2)and(guildfishtype='tuna')then
begin
Bitmap:=2;
EquipColor:=getcolor(581,232)
FishTimeOut:=tunaTimeOut;
FishText:='Cage';
Click:=False;
BankText:='Withdraw 1 Harpoon';
end;
if(fishmode=2)and(GuildFishType='Lobster')or(fishmode=2)and(guildfishtype='lobster')then
begin
Bitmap:=1;
EQuipcolor:=getcolor(581,233)
FishTimeOut:=lobTimeOut;
FishText:='Cage';
Click:=LeftClick;
BankText:='Withdraw 1 Lobster';
end;
if(fishmode=3)and(CatherbyFishType='Shark')or(fishmode=3)and(Catherbyfishtype='shark')then
begin
Bitmap:=2;
EquipColor:=getcolor(581,232)
FishTimeOut:=SharkTimeOut;
FishText:='Net';
Click:=False;
BankText:='Withdraw 1 Harpoon';
end;
if(fishmode=3)and(CatherbyFishType='Lobster')or(fishmode=3)and(Catherbyfishtype='lobster')then
begin
Bitmap:=1;
EQuipcolor:=getcolor(581,233)
FishTimeOut:=LobTimeOut;
FishText:='Cage';
Click:=LeftClick;
BankText:='Withdraw 1 Lobster';
end;
if(fishmode=3)and(CatherbyFishType='Tuna')or(fishmode=3)and(Catherbyfishtype='Tuna')then
begin
Bitmap:=2;
EquipColor:=getcolor(581,232)
FishTimeOut:=TunaTimeOut;
FishText:='Cage';
Click:=False;
BankText:='Withdraw 1 Harpoon';
end;
end;
begin
loadinclude(' ',true)
LoadBitmaps;
ST:=Getsystemtime;
SetRun(true);
GameTab(4);
ChatsOff;
Trips:=0;
WhirlpoolCount:=0
SetStuffUp;
Movement:='Right';
repeat
If(Not(FindColorSpiralTolerance(x,y,15249528,5,5,514,337,20)))then
Banking;
ToFish;
Repeat
CatchFish;
Until(ExistsItem(3,6))or(Not(ExistsItem(0,0))or(Invincount=28))
Trips:=Trips+1
ToBank;
Until(false)
end.