I download the text file script off rsbot and hit compile, but.class file doesnt show

Question in title,

i download the text file that people attatch, move it into the scripts, then i hit compile, but no .class file appears, therefore cannot access?

help pls?

 

Ok, i will go step by step the process you must do to access your scripts, so starting over:

1. Find the script you like and save it and put it on your desktop
a. Sometimes the script will be listed in a webpage, then all you have to do is press ctrl+a (to select everything on the page) and then press ctrl+c (to copy everything you selected)

2. Open the file you saved to your desktop with notepad. Do this by right clicking and choosing "open with".
a. Open Notepad now if you already haven't. press ctrl+v to paste the copied content into Notepad.

3. Once you have notepad open with the script you downloaded, go to file->save as and save the file with THE EXACT SAME NAME as you downloaded, but change the file extension name to .java
a. Example: You download YewCutter.txt (I don't .txt is an actual format you download with, but it doesn't matter for this example) I go file->save as and type into the box "YewCutter.java"

4. Before you close the save window you previously opened, change the file location of where you want to save the script. This should be in your RsBot folder, and then the script folder within.

5. Open your RsBot folder and then click compile all (the batch file). It should complie all your scripts (even your newly added one). Now, you may have to download JDK version 6 update 10 (the latest version) to do this. A simple google search will lead to the download.

6. Once you have compiled all, open the actual RsBot, and before you do anything, go to compiler->compile all. Give the program a minute to compile everything.

7. Voila. Your newly downloaded script should be located in your script page.

8. Go bot!

 

can any one compile this for me?? plz

//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
{+++++++++++++++++++++++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.