Why does the ultimate fishing scipt randomly off click?

Why does the ultimate fishing scipt randomly off click?
All i want it to do is fish and bank. But it randomly off clicks somewhere then it goes back to fishin and then it randomly off clicks again every so often.
How do i fix this problem?

 

Post the script, I assume it's old.

 

i think its like an mis click feature that helps with anti ban

 

{+++++++++++++++++++++++Renagades Ultimate fisher+++++++++++++++++++++++++++

+CREDITS+
+bengleet i learned alot from your fisher and borrowed some pathing ideas <3
+Janglebits i took some ideas from your catherby fisher

+FEATURES+
+Catherby Tuna,lobster,SwordFish,Shark fishing
+Karajama lobster,Tuna,SwordFish fishing
+Guild lobster,shark,tuna,swordfish fishing
+Full Randoms except for whirlpool

+FUTURE UPDATES+
+whirlpool protection
+other stuff

+SETUP+
+Map facing as north as possible
+Net/cage/harpoon in first inventory spot
+Fill in setup
+extra fishing stuff in first bank slot
+Start near the fish spots
+Empty Inventory
+if fishing on karajama have a lob in third inventory spot if your
doing tuna and swordfish have a tuna in third spot and swordfish in fourth
+Start 'er Up

+VERSION HISTORY+
+1.0 only i had it (sucked)
+2.0 redid a whole bunch fixed fishing procedure
+2.1 fixed counters and some minor bugs
+2.2 fixed random stuff works pretty good now
+2.3 just overal made better
+2.4 added guild fishing now just to work out the bugs
+2.6 fixed fishing procedure alot updated pathing
+2.7 totally fixed catherby fishing mode to add sharks, tuna, and swordfish but lobsters work best
+2.8 fixed up minor bugs
+3.0 untensil finder never worked good so i took it out now it just goes straight to bank to get a new 1
}

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.

 

The script is too old, you will need to find a new one.