Compare text

Find the difference between two text files

Real-time diff

Unified diff

Collapse lines

Highlight change

Syntax highlighting

Tools

Untitled diff

Created 8 years agoDiff never expires

7 removals

603 lines

13 additions

609 lines

program AlkharidCooker;

{$DEFINE SMART}

{$i AeroLib/AeroLib.Simba}

Const

//----------------------Being user setup----------------------//

//----------------------Begin user setup----------------------//

WHATTOCOOK = 'Salmon'; // Trout, salmon, tuna, lobster, swordfish, monkfish, shark

WHATTOCOOK = 'shrimps'; // shrimps. trout, salmon, tuna, lobster, swordfish, monkfish, shark

FASTMODE = True; // Cook at the speed of light?

// Player info

P_USERNAME = '';

P_PASSWORD = '';

P_NICKNAME = '';

P_PIN = '';

P_MEMBER = False;

// Break settings

cBREAK_IN = 80; // How long before we take a break? (minutes)

cBREAK_FOR = 10; // How long will we break for? (minutes)

cR_BREAK_IN = 25; // Random minutes to add/subtract from how long until we break

cR_BREAK_FOR = 7; // Random minutes to add/subjtract from break duraction

//----------------------End user setup----------------------//

// Core constants

VERSION_MAIN = 2.1;

VERSION_MAIN = 2.6;

VERSION_SUB = 1;

type State = (COOKING, BANKWALK, RANGEWALK, BANKING, LOST);

Var

// Dynamic

fish_Cooked,

fish_Raw : TItem;

timer_CS : Timer;

lMMP : TPoint;

XPMod,cFish,

cRuns : Integer;

// Static

Obj_Stove,

Obj_Bank : TMSObject;

DTM_MMStove,

DTM_MMBank : TIntegerArray;

Shutdown : Boolean = False;

SDReason : String = 'Player inactive';

nameMod : String;

procedure declarePlayer();

begin

Me.Name := P_USERNAME;

Me.Pass := P_PASSWORD;

Me.Pin := P_PIN;

Me.Nick := P_NICKNAME;

Me.Member := P_MEMBER;

Me.Active := True;

end;

procedure loadVars();

var

A,B : Integer;

begin

Obj_Bank.create('AlKharidBooth', ['ank B','nk bo','booth'], [createCol(5462624, 5, 0.75, 0.90)], [createCol(276299, 3, 0.11, 3.38)]);

Obj_Stove.create('AlKharidRange', ['> Ra','Range','ange'], [createCol(2171173, 6, 0.00, 0.71)], [createCol(1320105, 12, 0.02, 0.22)]);

setLength(DTM_MMStove, 1);

setLength(DTM_MMBank, 2);

DTM_MMStove[0] := DTMFromString('mwQAAAHic42RgYNjCxMAwAYinQXEzENcBcRWUPxmIM4DqkqA4Foi9kbAbEDsCcXNFJMOXb2/h+O1bBoY/f5jANExMA6iOEGYFYiYCGA4AuqQe0w==');

DTM_MMBank[0] := DTMFromString('mAAEAAHic42FgYAhhYmBIBOIULDgWigOA2AuI3YDYA6jHFYrtgNgEiH2AOAyKQXx7KAbJ/7+VwPD26VP8+C0Dw58/TGD8H6hHgwTMCMRMJGBkAADUwygh');

DTM_MMBank[1] := DTMFromString('mrAAAAHic42BgYAhnYmBIAOIoIPYD4iAgTgTidCj2AqpxBWInILaDYhMgtoCKT52ZxvD06Qsw/vOHCYxhfBD+D1QjhwczAjETHgwDAML1Gdk=');

case lowercase(WhatToCook) of

'trout':

begin

XPMod := 70;

A := DTMFromString('mbQAAAHicY2VgYMhhYmDIBOI4Jgi7CogNGBkYNIDYDIrVgfjI7l1A1YwoWA5DBDsGAwCu2gV9');

B := DTMFromString('mlwAAAHicY2dgYHBiYmCwA2ITKB0AxO5AbAXEeowMDFpAbAbF6kCsBsSmQNyUnQ7UzYiBl3W2MohglWHAKQ7DUAAAeBwGZw==');

end;

'shrimps':

begin

XPMod := 30;

A := DTMFromString('mwQAAAHic42RgYAgD4gAgTgRiXyCOAWIfII4C4hQgTgbiXCgdB8SxQJwNxBlAHA3VB1I3p72Woa+6iGFZVTzD1LxQhoIge4bVUzsZ2hJ9GJI9LBnay3IZuIDqCGFGIjAcAADsbxNF');

B := DTMFromString('m1gAAAHic42JgYJjHxMAwGYpnAvEcIF4CxAuBeDYQT4GKMzEyMHACsRAQCwCxIBCzAzEDEP9ngMgzA/GKIlGGAhs+hkOtEgxzggUhCrBgLiCJjHEB7LoxMQIAAH5MC/c=');

end;

'salmon':

begin

XPMod := 90;

A := DTMFromString('mggAAAHicY2NgYDjAxMCwA4j3APEmID4CxKeBWJ+RgcEEiLWA2ByIDYBYFYh3lmUy7F84F6iTEQWLAEkRDFHcGAIAi4AJcg==');

B := DTMFromString('mbQAAAHicY2VgYJjGxMAwCYg7gHgWEC8CYgNGBgZtIDZjhLCVgPhlgCxQNSMKFsEQwY7BAADC7QVb');

end;

'tuna':

begin

nameMod := 's';

XPMod := 110;

A := DTMFromString('mrAAAAHic42BgYJjCxMAwAYh7gLgDygaJzQbiBUDMw8jAwAbEfEAsCMSiQMwPxSDxTcuXAU1hZMhMTATTYCzLAGfzQ1msCFkUNiEMAwBXowiU');

B := DTMFromString('mggAAAHicY2NgYJjKxMAwAYg7gHg6EC8G4rlAzMPIwMAGxMJALALE3EDMDMRt+dlAXYwYWASrKG4MAQAsnQVo');

end;

'lobster':

begin

nameMod := 's';

XPMod := 120;

A := DTMFromString('mwQAAAHic42RgYNgBxGuAeB8Ub4Tyt0H5+4F4DhDPB+LFQDwDihdDxVYC8SwgzrKVZqhwkWOo91RgmByqChRhxMByQBIZY6ogDsMBAAs/ECk=');

B := DTMFromString('mrAAAAHic42BgYIgD4iQgDgPiACCOAeIEIE4H4lQgngXES4B4GhDPB+LZQLwciBdAxQ6lSzCcy5UAshixYhEgKYJTljCGAQA1Nwqy');

end;

'swordfish':

begin

XPMod := 140;

A := DTMFromString('mggAAAHicY2NgYHBhYmCwA2JjILYEYh8g9gZiNkagJBALAzEHEPMAMRMQH599HiKBhkWwiuLGEAAAexIEIg==');

B := DTMFromString('mrAAAAHic42BgYMhjYmDIAOJ0IE4A4lggLgfiEiBOBmIWRgYGTiBmBGI+IBYFYm4gZoDyl5WtZ1ibuRMigIaXpm5gEAGyRLDK4hZHxjAAAC6OCVU=');

end;

'monkfish':

begin

XPMod := 150;

A := DTMFromString('mrAAAAHic42BgYMhkYmBIAOJyIM4C4hQgTgTiCiCuAeJnQDWPgfg1lH4AxG+A+B0Q3wHi5kgvhoYgDzCujXYHijCiYH4giQ8zEsAwAABT2w+m');

B := DTMFromString('mrAAAAHic42BgYNjHxMBwAIg3QenzQHwOiA8D8SEgnsHIwDAZiKcB8SIo7gPiOUC8AIizotyBpjBi4HAPawZXGwsGfiBPDgvmh2JMnagYBgAYGQ5w');

end;

'shark':

begin

nameMod := 's';

XPMod := 210;

A := DTMFromString('mlwAAAHicY2dgYMhhYmBIAOISIE6E4gIgrgJiP0YGhgggdgNiHyCOB+IQII4B4hl9vQxLZ84AmsCIgUWApAhWGfwYCgDO4wkS');

B := DTMFromString('mlwAAAHicY2dgYOgF4kYgboJiEH8iEE8H4q1AvA+INwLxUSDeCcTHgHgTEM9pyGI4tKAFyGLEwCJAUgSrDH4MBQBcwwyO');

end;

with fish_Raw do

DTM := A;

with fish_Cooked do

DTM := B;

timer_CS.start();

setupBreak(cBREAK_IN, cBREAK_FOR, cR_BREAK_IN, cR_BREAK_FOR);

end;

procedure freeGlobals();

var

i : Integer;

begin

for i:=0 to high(DTM_MMStove) do

freeDTM(DTM_MMStove[i]);

for i:=0 to high(DTM_MMBank) do

freeDTM(DTM_MMBank[i]);

freeDTM(fish_Raw.DTM);

freeDTM(fish_Cooked.DTM);

end;

Procedure report();

var

cXP: Integer;

begin

cXP := (cFish*XPMod);

progressReport(RESULT_DEBUGBOX, 'AlKharid Cooker', 'Flight', 'V '+toStr(VERSION_MAIN)+' Rev '+toStr(VERSION_SUB),

progressReport(RESULT_DEBUGBOX, 'AlKharid Cooker', 'Lilkilla', 'V '+toStr(VERSION_MAIN)+' Rev '+toStr(VERSION_SUB),

['Total run time','Cooking XP',capitalize(whatToCook)+nameMod+' cooked','Breaks','Logged in'],

[MsToTime(getTimeRunning(),Time_Abbrev),intToStrEx(cXP)+' ('+intToStrEx(getPerHour(cXP))+'/Hr)',

intToStrEx(cFish)+' ('+intToStrEx(getPerHour(cFish))+'/Hr)',break_Count,count_Login]);

randomsReport();

writeln('Time until break: '+msToTime(getTimeUntilBreak(), Time_Bare));

end;

procedure doAntiBans();

begin

if not isLoggedIn() then

Exit;

case random(1500) of

1..6:

begin

keyDown(40);

wait(RandomRange(500, 1100));

keyUp(40);

wait(RandomRange(310, 865));

setAngle(ANGLE_HIGH);

end;

if (timer_CS.timeElapsed() > 300000) then

begin

timer_CS.start();

hoverSkill('Cooking', False);

end;

8,9 : checkMovingObjs(true);

10,11 : checkMovingObjs(false);

12..70: humanRandomMouse();

end;

function inHouse(): Boolean;

var

Pnt : TPoint;

begin

if not isLoggedIn() then Exit(false);

if not DTM_findBestPointEx(DTM_MMStove, AREA_MM, Pnt) then

Exit;

result := (distance(MMCX,MMCY,Pnt.X,Pnt.Y) <= 8);

end;

function randomsCheck(): Boolean;

var

P : TPoint;

begin

if not isLoggedIn() then Exit;

findMod();

result := waitEx(1);

end;

procedure walkToBank();

var

Pnt : TPoint;

begin

if not isLoggedIn() then

Exit;

if (getRunEnergy() > randomRange(30,70)) then

toggleRunning(true);

while isPlayerWalking() do

waitEx(50);

if not DTM_findBestPointEx(DTM_MMBank, AREA_MM, Pnt) then

Exit;

Pnt := Point(Pnt.X, Pnt.Y+2);

case random(10) of

0..6 : missMouse(Pnt, 2, 2);

7..10 : humanMMouse(Pnt, 2, 2);

end;

fastClick(MOUSE_LEFT);

waitFunc(@isPlayerWalking, 60, 4000);

mouseBox(toBox(MSCX-20,MSCY-40,MSCX+20,MSCY+10), MOUSE_MOVE);

while isPlayerWalking() do

waitEx(50);

end;

function atRange(): Boolean;

var

Pnt : TPoint;

begin

if not isLoggedIn() then

Exit(false);

if not DTM_findBestPointEx(DTM_MMStove, AREA_MM, Pnt) then

Exit;

result := (distance(MMCX,MMCY,Pnt.X,Pnt.Y) <= 13);

end;

procedure walkToRange();

var

Pnt : TPoint;

S : Integer;

Slots : TIntegerArray;

begin

if not isLoggedIn() then

Exit;

if (getRunEnergy() > randomRange(30,70)) then

toggleRunning(true);

while isPlayerWalking() do

waitEx(60);

if not DTM_findBestPointEx(DTM_MMStove, AREA_MM, Pnt) then

Exit;

case random(10) of

0..6 : missMouse(Pnt, 0, 0);

7..10 : humanMMouse(Pnt, 0, 0);

end;

fastClick(MOUSE_LEFT);

waitFunc(@isPlayerWalking, 50, 4000);

mouseBox(AREA_INV, MOUSE_MOVE);

Slots := [];

Slots := fish_Raw.getSlots();

if (Length(Slots) < 1) then

Exit;

S := Slots[Random(Length(Slots))];

if not itemInSlot(S) then Exit;

while isPlayerWalking() do

begin

if (flagDistance() < randomRange(0,8)) then

begin

if not anySlotActivated() then

interactSlot(S, MOUSE_LEFT);

if FASTMODE then

Exit;

end;

waitEx(60);

end;

procedure startCooking();

var

T : Timer;

Pnt : TPoint;

Loop : Boolean;

C,S,

X,Y,i : Integer;

Pnts : TPointArray;

Slots : TIntegerArray;

label

Start,InteractScreen;

begin

Start:

Slots := [];

randomsCheck();

Loop := False;

gameTab(TAB_INV);

if chatOptionScreen() then

GoTo InteractScreen;

if not anySlotActivated() then

begin

Slots := fish_Raw.getSlots();

if (Length(Slots) < 1) then

Exit;

S := Slots[Random(Length(Slots))];

if not itemInSlot(S) then Exit;

interactSlot(S, MOUSE_MOVE);

if not isUpTextMulti(['Members','s obj']) then

fastClick(MOUSE_LEFT)

else

begin

warn('Cannot cook '+capitalize(WHATTOCOOK)+' in a F2P world, hopping worlds now...', WT_SCRIPT);

changeWorld(randomWorld(True), True);

Exit;

end;

if not waitFunc(@anySlotActivated, 50, 2000) then

GoTo Start;

end;

while isPlayerWalking() do

waitEx(60);

for i:=1 to 3 do

begin

if Obj_Stove.find(Pnt) then

break;

if (i=3) then

if not Obj_Stove.find(Pnt) then

begin

if pointsMatch(Pnt, point(0,0)) then

begin

setCompass(270);

walkToRange();

GoTo Start;

Exit;

end else

break;

end;

if waitUpTextMulti(['> Ra','Range','ange'], randomRange(150,300)) then

begin

fastClick(MOUSE_LEFT);

if not didRedClick() then

Exit;

end else

begin

fastClick(MOUSE_RIGHT);

if not waitOptionMulti(['> Ra','Range','ange'], randomRange(150,300)) then

Exit;

end;

humanMMouse(Point(250,420), 15, 15);

if FASTMODE then

FFlag(randomRange(0,5))

else

while isPlayerWalking() do

waitEx(50);

T.start();

while (T.timeElapsed() < 10000) do

begin

if not isLoggedIn then Exit;

randomsCheck();

if chatOptionScreen() then

break;

if findBlackChatMessage('interesting') then

break;

end;

InteractScreen:

if chatOptionScreen() then

begin

mouseBox(toBox(220,395,300,450), MOUSE_RIGHT);

waitOption('All', 200);

end else

begin

randomsCheck();

GoTo Start;

end;

C := fish_Raw.getAmount();

T.start();

repeat

if not isLoggedIn() then Exit;

randomsCheck();

if continueChat(False) then

begin

Loop := True;

break;

end;

if (fish_Raw.getAmount() < C) then

begin

C := fish_Raw.getAmount();

T.start();

end;

if (C < 2) then

begin

if not pointInBox(getMousePnt(), AREA_MM) then

missMouse(Point(594,70), 10, 10);

end;

if (C < 1) then

break;

doAntiBans();

wait(randomRange(200,450));

until(T.timeElapsed() > 9000)

if Loop then

GoTo Start;

end;

procedure doBanking();

var

T : Timer;

Pnt : TPoint;

i,c : Integer;

Slots : TIntegerArray;

label

Banking,Close;

begin

if not isLoggedIn() then

Exit;

if (Me.Pin <> '') then

inPin(Me.Pin);

if isBankOpen() then

GoTo Banking;

setCompass('W');

for i:=1 to 3 do

begin

if Obj_Bank.Find(5, point(MSCX+30,MSCY-15), Pnt) then

break;

if (i=3) then

if not Obj_Bank.Find(5, point(MSCX+30,MSCY-15), Pnt) then

Exit;

end;

if not openBankPoint(Pnt, True) then

Exit;

Banking:

incEx(cFish, fish_Cooked.getAmount(True));

Slots := fish_Cooked.getSlots();

if (getInvCount() > 0) then

quickDeposit('inv');

for i:=1 to 2 do

if scrollToItem(fish_Raw, Pnt) then

break

else

begin

searchBank('Raw '+lowercase(WHATTOCOOK));

if not withdrawItem(fish_Raw, -1) then

begin

Shutdown := True;

sdReason := 'Failed to find raw fish in the bank';

GoTo Close;

end;

c := fish_Raw.getAmount();

if c < 28 then

begin

if c = 1 then

begin

Shutdown := True;

sdReason := 'Finished cooking all Raw '+capitalize(whatToCook)+nameMod;

GoTo Close;

end;

if c = 2 then

begin

if not withdrawPoint(Pnt, 1) then

Exit;

end else

if not withdrawPoint(Pnt, -1) then

Exit;

GoTo Close;

end;

if RBoolEx(3) then

begin

if not withdrawPoint(Pnt, 0) then

begin

Shutdown := True;

sdReason := 'Failed to withdraw raw fish';

GoTo Close;

end;

end else

begin

if not withdrawPoint(Pnt, -1) then

begin

Shutdown := True;

sdReason := 'Failed to withdraw raw fish';

GoTo Close;

end;

if not FASTMODE then

waitFunc(@isInvFull, 50, 4000);

Close:

if not FASTMODE then

closeInterface();

inc(cRuns);

report();

breakHandler();

if FASTMODE then

walkToRange();

end;

function getState(): State;

var

pnts : TPointArray;

begin

result := LOST;

if not isLoggedIn() then

Exit;

case fish_Raw.inInventory() of

True:

if atRange() then

exit(COOKING)

else

exit(RANGEWALK);

False:

if atRange() then

exit(BANKWALK)

else

exit(BANKING);

end;

procedure scriptLoop();

var

curState : State;

begin

if not isLoggedIn() then Exit;

curState := getState();

case curState of

COOKING : startCooking();

BANKING : doBanking();

BANKWALK : walkToBank();

RANGEWALK : walkToRange();

LOST :

begin

Shutdown := True;

sdReason := 'Player lost';

end;

begin

declarePlayer();

initAL();

loadVars();

addOnTerminate('freeGlobals');

mouseSpeed := 20;

mouseSpeed := 40;

loginPlayer(true);

setCompass('W');

setAngle(ANGLE_HIGH);

toggleRunning(True);

//fixGraphics();

fixGraphics();

Repeat

if not Shutdown then

if not isLoggedIn() then

if loginPlayer(true) then

begin

setCompass('W');

setAngle(ANGLE_HIGH);

toggleRunning(True);

fixGraphics();

end;

while isLoggedIn() do

begin

if Shutdown then break;

randomsCheck();

if RBoolEx(3) then

doAntiBans();

scriptLoop();

end;

Until(Shutdown or (not Me.Active));

warn(SDReason, WT_SCRIPT);

logoutPlayer();

end.

Saved diffs

Original text

Open file

program AlkharidCooker;
{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}

Const
//----------------------Being user setup----------------------//
  WHATTOCOOK   = 'Salmon';   // Trout, salmon, tuna, lobster, swordfish, monkfish, shark
  FASTMODE     = True;       // Cook at the speed of light?

// Player info
  P_USERNAME   = '';
  P_PASSWORD   = '';
  P_NICKNAME   = '';
  P_PIN        = '';
  P_MEMBER     = False;

// Break settings
  cBREAK_IN    = 80;          // How long before we take a break? (minutes)
  cBREAK_FOR   = 10;          // How long will we break for? (minutes)
  cR_BREAK_IN  = 25;          // Random minutes to add/subtract from how long until we break
  cR_BREAK_FOR = 7;           // Random minutes to add/subjtract from break duraction
//----------------------End user setup----------------------//

// Core constants
  VERSION_MAIN = 2.1;
  VERSION_SUB  = 1;

type State = (COOKING, BANKWALK, RANGEWALK, BANKING, LOST);

Var
// Dynamic
  fish_Cooked,
  fish_Raw    : TItem;
  timer_CS    : Timer;
  lMMP        : TPoint;
  XPMod,cFish,
  cRuns       : Integer;
// Static
  Obj_Stove,
  Obj_Bank    : TMSObject;
  DTM_MMStove,
  DTM_MMBank  : TIntegerArray;
  Shutdown    : Boolean = False;
  SDReason    : String  = 'Player inactive';
  nameMod     : String;

procedure declarePlayer();
begin
  Me.Name      := P_USERNAME;
  Me.Pass      := P_PASSWORD;
  Me.Pin       := P_PIN;
  Me.Nick      := P_NICKNAME;
  Me.Member    := P_MEMBER;
  Me.Active    := True;
end;

procedure loadVars();
var
  A,B : Integer;
begin
  Obj_Bank.create('AlKharidBooth', ['ank B','nk bo','booth'], [createCol(5462624, 5, 0.75, 0.90)], [createCol(276299, 3, 0.11, 3.38)]);
  Obj_Stove.create('AlKharidRange', ['> Ra','Range','ange'], [createCol(2171173, 6, 0.00, 0.71)], [createCol(1320105, 12, 0.02, 0.22)]);

  setLength(DTM_MMStove, 1);
  setLength(DTM_MMBank, 2);
  DTM_MMStove[0] := DTMFromString('mwQAAAHic42RgYNjCxMAwAYinQXEzENcBcRWUPxmIM4DqkqA4Foi9kbAbEDsCcXNFJMOXb2/h+O1bBoY/f5jANExMA6iOEGYFYiYCGA4AuqQe0w==');
  DTM_MMBank[0]  := DTMFromString('mAAEAAHic42FgYAhhYmBIBOIULDgWigOA2AuI3YDYA6jHFYrtgNgEiH2AOAyKQXx7KAbJ/7+VwPD26VP8+C0Dw58/TGD8H6hHgwTMCMRMJGBkAADUwygh');
  DTM_MMBank[1]  := DTMFromString('mrAAAAHic42BgYAhnYmBIAOIoIPYD4iAgTgTidCj2AqpxBWInILaDYhMgtoCKT52ZxvD06Qsw/vOHCYxhfBD+D1QjhwczAjETHgwDAML1Gdk=');

  case lowercase(WhatToCook) of
    'trout':
    begin
      XPMod := 70;
      A     := DTMFromString('mbQAAAHicY2VgYMhhYmDIBOI4Jgi7CogNGBkYNIDYDIrVgfjI7l1A1YwoWA5DBDsGAwCu2gV9');
      B     := DTMFromString('mlwAAAHicY2dgYHBiYmCwA2ITKB0AxO5AbAXEeowMDFpAbAbF6kCsBsSmQNyUnQ7UzYiBl3W2MohglWHAKQ7DUAAAeBwGZw==');
    end;
    'salmon':
    begin
      XPMod := 90;
      A     := DTMFromString('mggAAAHicY2NgYDjAxMCwA4j3APEmID4CxKeBWJ+RgcEEiLWA2ByIDYBYFYh3lmUy7F84F6iTEQWLAEkRDFHcGAIAi4AJcg==');
      B     := DTMFromString('mbQAAAHicY2VgYJjGxMAwCYg7gHgWEC8CYgNGBgZtIDZjhLCVgPhlgCxQNSMKFsEQwY7BAADC7QVb');
    end;
    'tuna':
    begin
      nameMod := 's';
      XPMod   := 110;
      A       := DTMFromString('mrAAAAHic42BgYJjCxMAwAYh7gLgDygaJzQbiBUDMw8jAwAbEfEAsCMSiQMwPxSDxTcuXAU1hZMhMTATTYCzLAGfzQ1msCFkUNiEMAwBXowiU');
      B       := DTMFromString('mggAAAHicY2NgYJjKxMAwAYg7gHg6EC8G4rlAzMPIwMAGxMJALALE3EDMDMRt+dlAXYwYWASrKG4MAQAsnQVo');
    end;
    'lobster':
    begin
      nameMod := 's';
      XPMod   := 120;
      A       := DTMFromString('mwQAAAHic42RgYNgBxGuAeB8Ub4Tyt0H5+4F4DhDPB+LFQDwDihdDxVYC8SwgzrKVZqhwkWOo91RgmByqChRhxMByQBIZY6ogDsMBAAs/ECk=');
      B       := DTMFromString('mrAAAAHic42BgYIgD4iQgDgPiACCOAeIEIE4H4lQgngXES4B4GhDPB+LZQLwciBdAxQ6lSzCcy5UAshixYhEgKYJTljCGAQA1Nwqy');
    end;
    'swordfish':
    begin
      XPMod := 140;
      A     := DTMFromString('mggAAAHicY2NgYHBhYmCwA2JjILYEYh8g9gZiNkagJBALAzEHEPMAMRMQH599HiKBhkWwiuLGEAAAexIEIg==');
      B     := DTMFromString('mrAAAAHic42BgYMhjYmDIAOJ0IE4A4lggLgfiEiBOBmIWRgYGTiBmBGI+IBYFYm4gZoDyl5WtZ1ibuRMigIaXpm5gEAGyRLDK4hZHxjAAAC6OCVU=');
    end;
    'monkfish':
    begin
      XPMod := 150;
      A     := DTMFromString('mrAAAAHic42BgYMhkYmBIAOJyIM4C4hQgTgTiCiCuAeJnQDWPgfg1lH4AxG+A+B0Q3wHi5kgvhoYgDzCujXYHijCiYH4giQ8zEsAwAABT2w+m');
      B     := DTMFromString('mrAAAAHic42BgYNjHxMBwAIg3QenzQHwOiA8D8SEgnsHIwDAZiKcB8SIo7gPiOUC8AIizotyBpjBi4HAPawZXGwsGfiBPDgvmh2JMnagYBgAYGQ5w');
    end;
    'shark':
    begin
      nameMod := 's';
      XPMod   := 210;
      A       := DTMFromString('mlwAAAHicY2dgYMhhYmBIAOISIE6E4gIgrgJiP0YGhgggdgNiHyCOB+IQII4B4hl9vQxLZ84AmsCIgUWApAhWGfwYCgDO4wkS');
      B       := DTMFromString('mlwAAAHicY2dgYOgF4kYgboJiEH8iEE8H4q1AvA+INwLxUSDeCcTHgHgTEM9pyGI4tKAFyGLEwCJAUgSrDH4MBQBcwwyO');
    end;
  end;

  with fish_Raw do
    DTM := A;
  with fish_Cooked do
    DTM := B;

  timer_CS.start();
  setupBreak(cBREAK_IN, cBREAK_FOR, cR_BREAK_IN, cR_BREAK_FOR);
end;

procedure freeGlobals();
var
  i : Integer;
begin
  for i:=0 to high(DTM_MMStove) do
    freeDTM(DTM_MMStove[i]);
  for i:=0 to high(DTM_MMBank) do
    freeDTM(DTM_MMBank[i]);
  freeDTM(fish_Raw.DTM);
  freeDTM(fish_Cooked.DTM);
end;

Procedure report();
var
  cXP: Integer;
begin
  cXP := (cFish*XPMod);

  progressReport(RESULT_DEBUGBOX, 'AlKharid Cooker', 'Flight', 'V '+toStr(VERSION_MAIN)+' Rev '+toStr(VERSION_SUB),
    ['Total run time','Cooking XP',capitalize(whatToCook)+nameMod+' cooked','Breaks','Logged in'],
    [MsToTime(getTimeRunning(),Time_Abbrev),intToStrEx(cXP)+' ('+intToStrEx(getPerHour(cXP))+'/Hr)',
     intToStrEx(cFish)+' ('+intToStrEx(getPerHour(cFish))+'/Hr)',break_Count,count_Login]);

  randomsReport();
  writeln('Time until break: '+msToTime(getTimeUntilBreak(), Time_Bare));
end;

procedure doAntiBans();
begin
  if not isLoggedIn() then
    Exit;

  case random(1500) of
    1..6:
      begin
        keyDown(40);
        wait(RandomRange(500, 1100));
        keyUp(40);
        wait(RandomRange(310, 865));
        setAngle(ANGLE_HIGH);
      end;
    7:
      if (timer_CS.timeElapsed() > 300000) then
      begin
        timer_CS.start();
        hoverSkill('Cooking', False);
      end;
    8,9   : checkMovingObjs(true);
    10,11 : checkMovingObjs(false);
    12..70: humanRandomMouse();
  end;
end;

function inHouse(): Boolean;
var
  Pnt : TPoint;
begin
  if not isLoggedIn() then Exit(false);
  if not DTM_findBestPointEx(DTM_MMStove, AREA_MM, Pnt) then
    Exit;

  result := (distance(MMCX,MMCY,Pnt.X,Pnt.Y) <= 8);
end;

function randomsCheck(): Boolean;
var
  P : TPoint;
begin
  if not isLoggedIn() then Exit;
  findMod();
  result := waitEx(1);
end;

procedure walkToBank();
var
  Pnt : TPoint;
begin
  if not isLoggedIn() then
    Exit;
  if (getRunEnergy() > randomRange(30,70)) then
    toggleRunning(true);
  while isPlayerWalking() do
    waitEx(50);

  if not DTM_findBestPointEx(DTM_MMBank, AREA_MM, Pnt) then
    Exit;

  Pnt := Point(Pnt.X, Pnt.Y+2);
  case random(10) of
    0..6  : missMouse(Pnt, 2, 2);
    7..10 : humanMMouse(Pnt, 2, 2);
  end;

  fastClick(MOUSE_LEFT);
  waitFunc(@isPlayerWalking, 60, 4000);
  mouseBox(toBox(MSCX-20,MSCY-40,MSCX+20,MSCY+10), MOUSE_MOVE);
  while isPlayerWalking() do
    waitEx(50);
end;

function atRange(): Boolean;
var
  Pnt      : TPoint;
begin
  if not isLoggedIn() then
    Exit(false);
  if not DTM_findBestPointEx(DTM_MMStove, AREA_MM, Pnt) then
    Exit;

  result := (distance(MMCX,MMCY,Pnt.X,Pnt.Y) <= 13);
end;

procedure walkToRange();
var
  Pnt   : TPoint;
  S     : Integer;
  Slots : TIntegerArray;
begin
  if not isLoggedIn() then
    Exit;

  if (getRunEnergy() > randomRange(30,70)) then
    toggleRunning(true);
  while isPlayerWalking() do
    waitEx(60);

  if not DTM_findBestPointEx(DTM_MMStove, AREA_MM, Pnt) then
    Exit;

  case random(10) of
    0..6  : missMouse(Pnt, 0, 0);
    7..10 : humanMMouse(Pnt, 0, 0);
  end;

  fastClick(MOUSE_LEFT);
  waitFunc(@isPlayerWalking, 50, 4000);
  mouseBox(AREA_INV, MOUSE_MOVE);

  Slots := [];
  Slots := fish_Raw.getSlots();
  if (Length(Slots) < 1) then
    Exit;
  S := Slots[Random(Length(Slots))];
  if not itemInSlot(S) then Exit;

  while isPlayerWalking() do
  begin
    if (flagDistance() < randomRange(0,8)) then
    begin
      if not anySlotActivated() then
        interactSlot(S, MOUSE_LEFT);
      if FASTMODE then
        Exit;
    end;
    waitEx(60);
  end;
end;

procedure startCooking();
var
  T     : Timer;
  Pnt   : TPoint;
  Loop  : Boolean;
  C,S,
  X,Y,i : Integer;
  Pnts  : TPointArray;
  Slots : TIntegerArray;
label
  Start,InteractScreen;
begin
  Start:

  Slots := [];
  randomsCheck();
  Loop := False;
  gameTab(TAB_INV);

  if chatOptionScreen() then
    GoTo InteractScreen;

  if not anySlotActivated() then
  begin
    Slots := fish_Raw.getSlots();
    if (Length(Slots) < 1) then
      Exit;
    S := Slots[Random(Length(Slots))];

    if not itemInSlot(S) then Exit;
    interactSlot(S, MOUSE_MOVE);
    if not isUpTextMulti(['Members','s obj']) then
      fastClick(MOUSE_LEFT)
    else
    begin
      warn('Cannot cook '+capitalize(WHATTOCOOK)+' in a F2P world, hopping worlds now...', WT_SCRIPT);
      changeWorld(randomWorld(True), True);
      Exit;
    end;

    if not waitFunc(@anySlotActivated, 50, 2000) then
      GoTo Start;
  end;

  while isPlayerWalking() do
    waitEx(60);

  for i:=1 to 3 do
  begin
    if Obj_Stove.find(Pnt) then
      break;
    if (i=3) then
      if not Obj_Stove.find(Pnt) then
      begin
        if pointsMatch(Pnt, point(0,0)) then
        begin
          setCompass(270);
          walkToRange();
          GoTo Start;
          Exit;
        end else
          break;
      end;
  end;

  if waitUpTextMulti(['> Ra','Range','ange'], randomRange(150,300)) then
  begin
    fastClick(MOUSE_LEFT);
    if not didRedClick() then
      Exit;
  end else
  begin
    fastClick(MOUSE_RIGHT);
    if not waitOptionMulti(['> Ra','Range','ange'], randomRange(150,300)) then
      Exit;
  end;
  humanMMouse(Point(250,420), 15, 15);

  if FASTMODE then
    FFlag(randomRange(0,5))
  else
    while isPlayerWalking() do
      waitEx(50);

  T.start();
  while (T.timeElapsed() < 10000) do
  begin
    if not isLoggedIn then Exit;
    randomsCheck();
    if chatOptionScreen() then
      break;
    if findBlackChatMessage('interesting') then
      break;
  end;

  InteractScreen:
  if chatOptionScreen() then
  begin
    mouseBox(toBox(220,395,300,450), MOUSE_RIGHT);
    waitOption('All', 200);
  end else
  begin
    randomsCheck();
    GoTo Start;
  end;

  C := fish_Raw.getAmount();
  T.start();
  repeat
    if not isLoggedIn() then Exit;
    randomsCheck();
    if continueChat(False) then
    begin
      Loop := True;
      break;
    end;
    if (fish_Raw.getAmount() < C) then
    begin
      C := fish_Raw.getAmount();
      T.start();
    end;
    if (C < 2) then
    begin
      if not pointInBox(getMousePnt(), AREA_MM) then
        missMouse(Point(594,70), 10, 10);
    end;
    if (C < 1) then
      break;
    doAntiBans();
    wait(randomRange(200,450));
  until(T.timeElapsed() > 9000)
  if Loop then
    GoTo Start;
end;

procedure doBanking();
var
  T     : Timer;
  Pnt   : TPoint;
  i,c   : Integer;
  Slots : TIntegerArray;
label
  Banking,Close;
begin
  if not isLoggedIn() then
    Exit;

  if (Me.Pin <> '') then
    inPin(Me.Pin);
  if isBankOpen() then
    GoTo Banking;

  setCompass('W');
  for i:=1 to 3 do
  begin
    if Obj_Bank.Find(5, point(MSCX+30,MSCY-15), Pnt) then
      break;
    if (i=3) then
      if not Obj_Bank.Find(5, point(MSCX+30,MSCY-15), Pnt) then
        Exit;
  end;

  if not openBankPoint(Pnt, True) then
    Exit;

  Banking:
  incEx(cFish, fish_Cooked.getAmount(True));
  Slots := fish_Cooked.getSlots();

  if (getInvCount() > 0) then
    quickDeposit('inv');

  for i:=1 to 2 do
    if scrollToItem(fish_Raw, Pnt) then
      break
    else
    begin
      searchBank('Raw '+lowercase(WHATTOCOOK));
      if not withdrawItem(fish_Raw, -1) then
      begin
        Shutdown := True;
        sdReason := 'Failed to find raw fish in the bank';
        GoTo Close;
      end;
    end;

  c := fish_Raw.getAmount();
  if c < 28 then
  begin
    if c = 1 then
    begin
      Shutdown := True;
      sdReason := 'Finished cooking all Raw '+capitalize(whatToCook)+nameMod;
      GoTo Close;
    end;

    if c = 2 then
    begin
      if not withdrawPoint(Pnt, 1) then
        Exit;
    end else
      if not withdrawPoint(Pnt, -1) then
        Exit;

    GoTo Close;
  end;

  if RBoolEx(3) then
  begin
    if not withdrawPoint(Pnt, 0) then
    begin
      Shutdown := True;
      sdReason := 'Failed to withdraw raw fish';
      GoTo Close;
    end;
  end else
  begin
    if not withdrawPoint(Pnt, -1) then
    begin
      Shutdown := True;
      sdReason := 'Failed to withdraw raw fish';
      GoTo Close;
    end;
  end;

  if not FASTMODE then
    waitFunc(@isInvFull, 50, 4000);

  Close:
  if not FASTMODE then
    closeInterface();
  inc(cRuns);
  report();
  breakHandler();
  if FASTMODE then
    walkToRange();
end;

function getState(): State;
var
  pnts : TPointArray;
begin
  result := LOST;
  if not isLoggedIn() then
    Exit;

  case fish_Raw.inInventory() of
    True:
      if atRange() then
        exit(COOKING)
      else
        exit(RANGEWALK);
    False:
      if atRange() then
        exit(BANKWALK)
      else
        exit(BANKING);
  end;

end;

procedure scriptLoop();
var
  curState : State;
begin
  if not isLoggedIn() then Exit;

  curState := getState();
  case curState of
    COOKING   : startCooking();
    BANKING   : doBanking();
    BANKWALK  : walkToBank();
    RANGEWALK : walkToRange();
    LOST      :
    begin
      Shutdown := True;
      sdReason := 'Player lost';
    end;
  end;
end;

begin
  declarePlayer();
  initAL();

  loadVars();
  addOnTerminate('freeGlobals');

  mouseSpeed := 20;
  loginPlayer(true);
  setCompass('W');
  setAngle(ANGLE_HIGH);
  toggleRunning(True);
  //fixGraphics();

  Repeat
    if not Shutdown then
      if not isLoggedIn() then
        if loginPlayer(true) then
        begin
          setCompass('W');
          setAngle(ANGLE_HIGH);
          toggleRunning(True);
          fixGraphics();
        end;

    while isLoggedIn() do
    begin
      if Shutdown then break;
      randomsCheck();
      if RBoolEx(3) then
        doAntiBans();
      scriptLoop();
    end;
  Until(Shutdown or (not Me.Active));

  warn(SDReason, WT_SCRIPT);
  logoutPlayer();
end.

Changed text

Open file

program AlkharidCooker;
{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}

Const
//----------------------Begin user setup----------------------//
  WHATTOCOOK   = 'shrimps';   // shrimps. trout, salmon, tuna, lobster, swordfish, monkfish, shark
  FASTMODE     = True;       // Cook at the speed of light?

// Player info
  P_USERNAME   = '';
  P_PASSWORD   = '';
  P_NICKNAME   = '';
  P_PIN        = '';
  P_MEMBER     = False;

// Break settings
  cBREAK_IN    = 80;          // How long before we take a break? (minutes)
  cBREAK_FOR   = 10;          // How long will we break for? (minutes)
  cR_BREAK_IN  = 25;          // Random minutes to add/subtract from how long until we break
  cR_BREAK_FOR = 7;           // Random minutes to add/subjtract from break duraction
//----------------------End user setup----------------------//

// Core constants
  VERSION_MAIN = 2.6;
  VERSION_SUB  = 1;

type State = (COOKING, BANKWALK, RANGEWALK, BANKING, LOST);

Var
// Dynamic
  fish_Cooked,
  fish_Raw    : TItem;
  timer_CS    : Timer;
  lMMP        : TPoint;
  XPMod,cFish,
  cRuns       : Integer;
// Static
  Obj_Stove,
  Obj_Bank    : TMSObject;
  DTM_MMStove,
  DTM_MMBank  : TIntegerArray;
  Shutdown    : Boolean = False;
  SDReason    : String  = 'Player inactive';
  nameMod     : String;

procedure declarePlayer();
begin
  Me.Name      := P_USERNAME;
  Me.Pass      := P_PASSWORD;
  Me.Pin       := P_PIN;
  Me.Nick      := P_NICKNAME;
  Me.Member    := P_MEMBER;
  Me.Active    := True;
end;

procedure loadVars();
var
  A,B : Integer;
begin
  Obj_Bank.create('AlKharidBooth', ['ank B','nk bo','booth'], [createCol(5462624, 5, 0.75, 0.90)], [createCol(276299, 3, 0.11, 3.38)]);
  Obj_Stove.create('AlKharidRange', ['> Ra','Range','ange'], [createCol(2171173, 6, 0.00, 0.71)], [createCol(1320105, 12, 0.02, 0.22)]);

  setLength(DTM_MMStove, 1);
  setLength(DTM_MMBank, 2);
  DTM_MMStove[0] := DTMFromString('mwQAAAHic42RgYNjCxMAwAYinQXEzENcBcRWUPxmIM4DqkqA4Foi9kbAbEDsCcXNFJMOXb2/h+O1bBoY/f5jANExMA6iOEGYFYiYCGA4AuqQe0w==');
  DTM_MMBank[0]  := DTMFromString('mAAEAAHic42FgYAhhYmBIBOIULDgWigOA2AuI3YDYA6jHFYrtgNgEiH2AOAyKQXx7KAbJ/7+VwPD26VP8+C0Dw58/TGD8H6hHgwTMCMRMJGBkAADUwygh');
  DTM_MMBank[1]  := DTMFromString('mrAAAAHic42BgYAhnYmBIAOIoIPYD4iAgTgTidCj2AqpxBWInILaDYhMgtoCKT52ZxvD06Qsw/vOHCYxhfBD+D1QjhwczAjETHgwDAML1Gdk=');

  case lowercase(WhatToCook) of
    'trout':
    begin
      XPMod := 70;
      A     := DTMFromString('mbQAAAHicY2VgYMhhYmDIBOI4Jgi7CogNGBkYNIDYDIrVgfjI7l1A1YwoWA5DBDsGAwCu2gV9');
      B     := DTMFromString('mlwAAAHicY2dgYHBiYmCwA2ITKB0AxO5AbAXEeowMDFpAbAbF6kCsBsSmQNyUnQ7UzYiBl3W2MohglWHAKQ7DUAAAeBwGZw==');
    end;
    'shrimps':
    begin
      XPMod := 30;
      A     := DTMFromString('mwQAAAHic42RgYAgD4gAgTgRiXyCOAWIfII4C4hQgTgbiXCgdB8SxQJwNxBlAHA3VB1I3p72Woa+6iGFZVTzD1LxQhoIge4bVUzsZ2hJ9GJI9LBnay3IZuIDqCGFGIjAcAADsbxNF');
      B     := DTMFromString('m1gAAAHic42JgYJjHxMAwGYpnAvEcIF4CxAuBeDYQT4GKMzEyMHACsRAQCwCxIBCzAzEDEP9ngMgzA/GKIlGGAhs+hkOtEgxzggUhCrBgLiCJjHEB7LoxMQIAAH5MC/c=');
    end;
    'salmon':
    begin
      XPMod := 90;
      A     := DTMFromString('mggAAAHicY2NgYDjAxMCwA4j3APEmID4CxKeBWJ+RgcEEiLWA2ByIDYBYFYh3lmUy7F84F6iTEQWLAEkRDFHcGAIAi4AJcg==');
      B     := DTMFromString('mbQAAAHicY2VgYJjGxMAwCYg7gHgWEC8CYgNGBgZtIDZjhLCVgPhlgCxQNSMKFsEQwY7BAADC7QVb');
    end;
    'tuna':
    begin
      nameMod := 's';
      XPMod   := 110;
      A       := DTMFromString('mrAAAAHic42BgYJjCxMAwAYh7gLgDygaJzQbiBUDMw8jAwAbEfEAsCMSiQMwPxSDxTcuXAU1hZMhMTATTYCzLAGfzQ1msCFkUNiEMAwBXowiU');
      B       := DTMFromString('mggAAAHicY2NgYJjKxMAwAYg7gHg6EC8G4rlAzMPIwMAGxMJALALE3EDMDMRt+dlAXYwYWASrKG4MAQAsnQVo');
    end;
    'lobster':
    begin
      nameMod := 's';
      XPMod   := 120;
      A       := DTMFromString('mwQAAAHic42RgYNgBxGuAeB8Ub4Tyt0H5+4F4DhDPB+LFQDwDihdDxVYC8SwgzrKVZqhwkWOo91RgmByqChRhxMByQBIZY6ogDsMBAAs/ECk=');
      B       := DTMFromString('mrAAAAHic42BgYIgD4iQgDgPiACCOAeIEIE4H4lQgngXES4B4GhDPB+LZQLwciBdAxQ6lSzCcy5UAshixYhEgKYJTljCGAQA1Nwqy');
    end;
    'swordfish':
    begin
      XPMod := 140;
      A     := DTMFromString('mggAAAHicY2NgYHBhYmCwA2JjILYEYh8g9gZiNkagJBALAzEHEPMAMRMQH599HiKBhkWwiuLGEAAAexIEIg==');
      B     := DTMFromString('mrAAAAHic42BgYMhjYmDIAOJ0IE4A4lggLgfiEiBOBmIWRgYGTiBmBGI+IBYFYm4gZoDyl5WtZ1ibuRMigIaXpm5gEAGyRLDK4hZHxjAAAC6OCVU=');
    end;
    'monkfish':
    begin
      XPMod := 150;
      A     := DTMFromString('mrAAAAHic42BgYMhkYmBIAOJyIM4C4hQgTgTiCiCuAeJnQDWPgfg1lH4AxG+A+B0Q3wHi5kgvhoYgDzCujXYHijCiYH4giQ8zEsAwAABT2w+m');
      B     := DTMFromString('mrAAAAHic42BgYNjHxMBwAIg3QenzQHwOiA8D8SEgnsHIwDAZiKcB8SIo7gPiOUC8AIizotyBpjBi4HAPawZXGwsGfiBPDgvmh2JMnagYBgAYGQ5w');
    end;
    'shark':
    begin
      nameMod := 's';
      XPMod   := 210;
      A       := DTMFromString('mlwAAAHicY2dgYMhhYmBIAOISIE6E4gIgrgJiP0YGhgggdgNiHyCOB+IQII4B4hl9vQxLZ84AmsCIgUWApAhWGfwYCgDO4wkS');
      B       := DTMFromString('mlwAAAHicY2dgYOgF4kYgboJiEH8iEE8H4q1AvA+INwLxUSDeCcTHgHgTEM9pyGI4tKAFyGLEwCJAUgSrDH4MBQBcwwyO');
    end;
  end;

  with fish_Raw do
    DTM := A;
  with fish_Cooked do
    DTM := B;

  timer_CS.start();
  setupBreak(cBREAK_IN, cBREAK_FOR, cR_BREAK_IN, cR_BREAK_FOR);
end;

procedure freeGlobals();
var
  i : Integer;
begin
  for i:=0 to high(DTM_MMStove) do
    freeDTM(DTM_MMStove[i]);
  for i:=0 to high(DTM_MMBank) do
    freeDTM(DTM_MMBank[i]);
  freeDTM(fish_Raw.DTM);
  freeDTM(fish_Cooked.DTM);
end;

Procedure report();
var
  cXP: Integer;
begin
  cXP := (cFish*XPMod);

  progressReport(RESULT_DEBUGBOX, 'AlKharid Cooker', 'Lilkilla', 'V '+toStr(VERSION_MAIN)+' Rev '+toStr(VERSION_SUB),
    ['Total run time','Cooking XP',capitalize(whatToCook)+nameMod+' cooked','Breaks','Logged in'],
    [MsToTime(getTimeRunning(),Time_Abbrev),intToStrEx(cXP)+' ('+intToStrEx(getPerHour(cXP))+'/Hr)',
     intToStrEx(cFish)+' ('+intToStrEx(getPerHour(cFish))+'/Hr)',break_Count,count_Login]);

  randomsReport();
  writeln('Time until break: '+msToTime(getTimeUntilBreak(), Time_Bare));
end;

procedure doAntiBans();
begin
  if not isLoggedIn() then
    Exit;

  case random(1500) of
    1..6:
      begin
        keyDown(40);
        wait(RandomRange(500, 1100));
        keyUp(40);
        wait(RandomRange(310, 865));
        setAngle(ANGLE_HIGH);
      end;
    7:
      if (timer_CS.timeElapsed() > 300000) then
      begin
        timer_CS.start();
        hoverSkill('Cooking', False);
      end;
    8,9   : checkMovingObjs(true);
    10,11 : checkMovingObjs(false);
    12..70: humanRandomMouse();
  end;
end;

function inHouse(): Boolean;
var
  Pnt : TPoint;
begin
  if not isLoggedIn() then Exit(false);
  if not DTM_findBestPointEx(DTM_MMStove, AREA_MM, Pnt) then
    Exit;

  result := (distance(MMCX,MMCY,Pnt.X,Pnt.Y) <= 8);
end;

function randomsCheck(): Boolean;
var
  P : TPoint;
begin
  if not isLoggedIn() then Exit;
  findMod();
  result := waitEx(1);
end;

procedure walkToBank();
var
  Pnt : TPoint;
begin
  if not isLoggedIn() then
    Exit;
  if (getRunEnergy() > randomRange(30,70)) then
    toggleRunning(true);
  while isPlayerWalking() do
    waitEx(50);

  if not DTM_findBestPointEx(DTM_MMBank, AREA_MM, Pnt) then
    Exit;

  Pnt := Point(Pnt.X, Pnt.Y+2);
  case random(10) of
    0..6  : missMouse(Pnt, 2, 2);
    7..10 : humanMMouse(Pnt, 2, 2);
  end;

  fastClick(MOUSE_LEFT);
  waitFunc(@isPlayerWalking, 60, 4000);
  mouseBox(toBox(MSCX-20,MSCY-40,MSCX+20,MSCY+10), MOUSE_MOVE);
  while isPlayerWalking() do
    waitEx(50);
end;

function atRange(): Boolean;
var
  Pnt      : TPoint;
begin
  if not isLoggedIn() then
    Exit(false);
  if not DTM_findBestPointEx(DTM_MMStove, AREA_MM, Pnt) then
    Exit;

  result := (distance(MMCX,MMCY,Pnt.X,Pnt.Y) <= 13);
end;

procedure walkToRange();
var
  Pnt   : TPoint;
  S     : Integer;
  Slots : TIntegerArray;
begin
  if not isLoggedIn() then
    Exit;

  if (getRunEnergy() > randomRange(30,70)) then
    toggleRunning(true);
  while isPlayerWalking() do
    waitEx(60);

  if not DTM_findBestPointEx(DTM_MMStove, AREA_MM, Pnt) then
    Exit;

  case random(10) of
    0..6  : missMouse(Pnt, 0, 0);
    7..10 : humanMMouse(Pnt, 0, 0);
  end;

  fastClick(MOUSE_LEFT);
  waitFunc(@isPlayerWalking, 50, 4000);
  mouseBox(AREA_INV, MOUSE_MOVE);

  Slots := [];
  Slots := fish_Raw.getSlots();
  if (Length(Slots) < 1) then
    Exit;
  S := Slots[Random(Length(Slots))];
  if not itemInSlot(S) then Exit;

  while isPlayerWalking() do
  begin
    if (flagDistance() < randomRange(0,8)) then
    begin
      if not anySlotActivated() then
        interactSlot(S, MOUSE_LEFT);
      if FASTMODE then
        Exit;
    end;
    waitEx(60);
  end;
end;

procedure startCooking();
var
  T     : Timer;
  Pnt   : TPoint;
  Loop  : Boolean;
  C,S,
  X,Y,i : Integer;
  Pnts  : TPointArray;
  Slots : TIntegerArray;
label
  Start,InteractScreen;
begin
  Start:

  Slots := [];
  randomsCheck();
  Loop := False;
  gameTab(TAB_INV);

  if chatOptionScreen() then
    GoTo InteractScreen;

  if not anySlotActivated() then
  begin
    Slots := fish_Raw.getSlots();
    if (Length(Slots) < 1) then
      Exit;
    S := Slots[Random(Length(Slots))];

    if not itemInSlot(S) then Exit;
    interactSlot(S, MOUSE_MOVE);
    if not isUpTextMulti(['Members','s obj']) then
      fastClick(MOUSE_LEFT)
    else
    begin
      warn('Cannot cook '+capitalize(WHATTOCOOK)+' in a F2P world, hopping worlds now...', WT_SCRIPT);
      changeWorld(randomWorld(True), True);
      Exit;
    end;

    if not waitFunc(@anySlotActivated, 50, 2000) then
      GoTo Start;
  end;

  while isPlayerWalking() do
    waitEx(60);

  for i:=1 to 3 do
  begin
    if Obj_Stove.find(Pnt) then
      break;
    if (i=3) then
      if not Obj_Stove.find(Pnt) then
      begin
        if pointsMatch(Pnt, point(0,0)) then
        begin
          setCompass(270);
          walkToRange();
          GoTo Start;
          Exit;
        end else
          break;
      end;
  end;

  if waitUpTextMulti(['> Ra','Range','ange'], randomRange(150,300)) then
  begin
    fastClick(MOUSE_LEFT);
    if not didRedClick() then
      Exit;
  end else
  begin
    fastClick(MOUSE_RIGHT);
    if not waitOptionMulti(['> Ra','Range','ange'], randomRange(150,300)) then
      Exit;
  end;
  humanMMouse(Point(250,420), 15, 15);

  if FASTMODE then
    FFlag(randomRange(0,5))
  else
    while isPlayerWalking() do
      waitEx(50);

  T.start();
  while (T.timeElapsed() < 10000) do
  begin
    if not isLoggedIn then Exit;
    randomsCheck();
    if chatOptionScreen() then
      break;
    if findBlackChatMessage('interesting') then
      break;
  end;

  InteractScreen:
  if chatOptionScreen() then
  begin
    mouseBox(toBox(220,395,300,450), MOUSE_RIGHT);
    waitOption('All', 200);
  end else
  begin
    randomsCheck();
    GoTo Start;
  end;

  C := fish_Raw.getAmount();
  T.start();
  repeat
    if not isLoggedIn() then Exit;
    randomsCheck();
    if continueChat(False) then
    begin
      Loop := True;
      break;
    end;
    if (fish_Raw.getAmount() < C) then
    begin
      C := fish_Raw.getAmount();
      T.start();
    end;
    if (C < 2) then
    begin
      if not pointInBox(getMousePnt(), AREA_MM) then
        missMouse(Point(594,70), 10, 10);
    end;
    if (C < 1) then
      break;
    doAntiBans();
    wait(randomRange(200,450));
  until(T.timeElapsed() > 9000)
  if Loop then
    GoTo Start;
end;

procedure doBanking();
var
  T     : Timer;
  Pnt   : TPoint;
  i,c   : Integer;
  Slots : TIntegerArray;
label
  Banking,Close;
begin
  if not isLoggedIn() then
    Exit;

  if (Me.Pin <> '') then
    inPin(Me.Pin);
  if isBankOpen() then
    GoTo Banking;

  setCompass('W');
  for i:=1 to 3 do
  begin
    if Obj_Bank.Find(5, point(MSCX+30,MSCY-15), Pnt) then
      break;
    if (i=3) then
      if not Obj_Bank.Find(5, point(MSCX+30,MSCY-15), Pnt) then
        Exit;
  end;

  if not openBankPoint(Pnt, True) then
    Exit;

  Banking:
  incEx(cFish, fish_Cooked.getAmount(True));
  Slots := fish_Cooked.getSlots();

  if (getInvCount() > 0) then
    quickDeposit('inv');

  for i:=1 to 2 do
    if scrollToItem(fish_Raw, Pnt) then
      break
    else
    begin
      searchBank('Raw '+lowercase(WHATTOCOOK));
      if not withdrawItem(fish_Raw, -1) then
      begin
        Shutdown := True;
        sdReason := 'Failed to find raw fish in the bank';
        GoTo Close;
      end;
    end;

  c := fish_Raw.getAmount();
  if c < 28 then
  begin
    if c = 1 then
    begin
      Shutdown := True;
      sdReason := 'Finished cooking all Raw '+capitalize(whatToCook)+nameMod;
      GoTo Close;
    end;

    if c = 2 then
    begin
      if not withdrawPoint(Pnt, 1) then
        Exit;
    end else
      if not withdrawPoint(Pnt, -1) then
        Exit;

    GoTo Close;
  end;

  if RBoolEx(3) then
  begin
    if not withdrawPoint(Pnt, 0) then
    begin
      Shutdown := True;
      sdReason := 'Failed to withdraw raw fish';
      GoTo Close;
    end;
  end else
  begin
    if not withdrawPoint(Pnt, -1) then
    begin
      Shutdown := True;
      sdReason := 'Failed to withdraw raw fish';
      GoTo Close;
    end;
  end;

  if not FASTMODE then
    waitFunc(@isInvFull, 50, 4000);

  Close:
  if not FASTMODE then
    closeInterface();
  inc(cRuns);
  report();
  breakHandler();
  if FASTMODE then
    walkToRange();
end;

function getState(): State;
var
  pnts : TPointArray;
begin
  result := LOST;
  if not isLoggedIn() then
    Exit;

  case fish_Raw.inInventory() of
    True:
      if atRange() then
        exit(COOKING)
      else
        exit(RANGEWALK);
    False:
      if atRange() then
        exit(BANKWALK)
      else
        exit(BANKING);
  end;

end;

procedure scriptLoop();
var
  curState : State;
begin
  if not isLoggedIn() then Exit;

  curState := getState();
  case curState of
    COOKING   : startCooking();
    BANKING   : doBanking();
    BANKWALK  : walkToBank();
    RANGEWALK : walkToRange();
    LOST      :
    begin
      Shutdown := True;
      sdReason := 'Player lost';
    end;
  end;
end;

begin
  declarePlayer();
  initAL();

  loadVars();
  addOnTerminate('freeGlobals');

  mouseSpeed := 40;
  loginPlayer(true);
  setCompass('W');
  setAngle(ANGLE_HIGH);
  toggleRunning(True);
  fixGraphics();

  Repeat
    if not Shutdown then
      if not isLoggedIn() then
        if loginPlayer(true) then
        begin
          setCompass('W');
          setAngle(ANGLE_HIGH);
          toggleRunning(True);
          fixGraphics();
        end;

    while isLoggedIn() do
    begin
      if Shutdown then break;
      randomsCheck();
      if RBoolEx(3) then
        doAntiBans();
      scriptLoop();
    end;
  Until(Shutdown or (not Me.Active));

  warn(SDReason, WT_SCRIPT);
  logoutPlayer();
end.