[Reflection] ineedbot's AIO Woodcutter

[terd]

Is reflection down? I had to format my comp and after setting up simba it was saying reflection hooks were out of date. now it doesn't detect reflection at all.

edit: I'm stupid and forgot to re-download the reflection include but is the hooks still out-of-date?

I've had success using the hooks mentioned in the above post and replacing them in the reflection directory.

[codexfiles981]

I've had success using the hooks mentioned in the above post and replacing them in the reflection directory.

Does the bot work normally for you? Like does it just click trees once or does it click repeatedly?

[terd]

Does the bot work normally for you? Like does it just click trees once or does it click repeatedly?

It works, I've been running it in 6-8 hour increments.

[codexfiles981]

It works, I've been running it in 6-8 hour increments.

Great to hear, thanks for the help!

[terd]

As an update, I've been experimenting with aspects of this script on various accounts in various configurations. Using a controlled set of experiments, I think that I've determined that essentially any period of time running at draynor willows with banking, regardless of combat level, quest points, etc. will get your account banned 100%. This seems to corroborate some theories on targeted areas. I'll try to put some accounts on other areas to train them up and see if I get different results to narrow it down, but just in case anyone reading this is curious, most likely avoid draynor willows.

[codexfiles981]

As an update, I've been experimenting with aspects of this script on various accounts in various configurations. Using a controlled set of experiments, I think that I've determined that essentially any period of time running at draynor willows with banking, regardless of combat level, quest points, etc. will get your account banned 100%. This seems to corroborate some theories on targeted areas. I'll try to put some accounts on other areas to train them up and see if I get different results to narrow it down, but just in case anyone reading this is curious, most likely avoid draynor willows.

Well, to add onto your findings, I've found that this script will get you banned should you use banking at all it seems like. I've been able to easily get 70+ woodcutting via power chopping only and have gone many days straight without a ban. The moment I turn on banking, whether it be via a bank booth or deposit box, I can kiss my account goodbye the next day. I don't know why this is, perhaps the banking pattern is too predictable.

[terd]

Well, to add onto your findings, I've found that this script will get you banned should you use banking at all it seems like. I've been able to easily get 70+ woodcutting via power chopping only and have gone many days straight without a ban. The moment I turn on banking, whether it be via a bank booth or deposit box, I can kiss my account goodbye the next day. I don't know why this is, perhaps the banking pattern is too predictable.

What logs and what areas are you using?

[MonikCisnes]

why the bot disconect its self??

[codexfiles981]

What logs and what areas are you using?

Any logs and any area via either powerchop or just disable banking.

[terd]

Any logs and any area via either powerchop or just disable banking.

What areas of banking have you been banned using other than draynor?

[codexfiles981]

What areas of banking have you been banned using other than draynor?

Every single bank option: deposit boxes, boothes, etc. I just don't bank now, no big deal as woodcutting never really was a good money making method.

[akielies]

How do I fix this?

Error: Unknown declaration "Plane" at line 2002
Compiling failed.

[MonikCisnes]

is there any way to store logs in your bank instead selling or droping???

[skrine4]

Doesn't support redwood

[nt4rz]

For some reason the character refuse to deposit the logs, it opens the bank, but doesn't deposit the logs, it just clicks around where it says "bank" with the blue text, even though it has already opened the bank. Please help?

Also when I use this script, the bit just spam clicks the tree even though the character is already chopping it... It wasn't like that before :O
It has to be something with the new hooks.

Here is a picture of how it looks like:

[sizzayin]

Hey, I have been using this script for over a year and I currently have ~40M woodcutting exp from this script alone. For the past two weeks the script has not been working so I finally decided to post about since I haven't seen anyone else experiencing this issue. Basically the SMART client does not spawn, and instead a window pops up saying the following:
errorpic.PNG

This window is accompanied by the following error message in the debug box:
Capture.PNG

Any help on this issue would be greatly appreciated.

[ccesssu]

Has anyone else had issues with varrock east bank? Gets stuck upstairs and can't get back down

[troro1]

Has anyone been able to get this to work? It says the hooks are outdated for many days now.

[troro1]

Broken script. As part of the antiban it will click on different tabs. When it needs to drop logs, it will not click back to inventory which leaves the bot standing there with the mouse spazzing over where the logs are supposed to be in the inventory.

[feyko23]

EDIT #1 : I changed screen settings to fixed, but now it says:

[Reflection] [Fatal] Hooks are outdated. No need to post about it, we are currently working on it.

I know it says "no need to post about it, we are currently working on it" but some guys claim that they have managed to run the script so I though that I might be making a mistake somewhere.

I really do not want to be that guy, but I am new here and I really do not understand pretty much of this stuff. I get an error like this:

[Reflection] [Fatal] Failed to detect or load OSRS.
[Reflection] [Status] All cached references free'd from memory

I tried to download all plugins, updated them and set this updated and "extensions enabled" preset as default. But it still does not work.

Any kind of help would be appriciated.

[Gitface]

How's the banrate on this?

[footballjds]

why does the script have the player click on a tree it is already chopping? (isn't there an animation you can detect to know you're swinging an ax?)

[hexthis]

Updated Varrock east oaks, more; xp, logs, and gp per hour.

21:begin
          daLocation.ID := 21;

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1521;

          daLocation.Name := 'Varrock East Oaks';

          daLocation.PathToTree := [Point(3258, 3428), Point(3268, 3428), Point(3278, 3424)];
          daLocation.PathToBank := [Point(3278, 3424), Point(3268, 3428), Point(3258, 3428)];
          daLocation.TreeLocations := [Point(3282, 3417)];

          setLength(daLocation.TreeObjects, 2)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 0;
            Tile := Point(3282, 3417);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 1;
            Tile := Point(3279, 3415);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
          {with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 2;
            Tile := Point(3277, 3437);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;}
        end;

Bank normal logs, you got to add the job first then change the @@ to the job number and place it with other Varrock east stuff.


Bank Varrock East Trees:

        @@:begin
          daLocation.ID := @@;
          daLocation.Name := 'Varrock East Trees';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1511;

          daLocation.TreeLocations := [Point(3277, 3446)];

          daLocation.PathToTree := [Point(3258, 3428), Point(3268, 3428), Point(3275, 3436)];
          daLocation.PathToBank := [Point(3275, 3436), Point(3268, 3428), Point(3258, 3428)];

          setLength(daLocation.TreeObjects, 9)
          with daLocation.TreeObjects[0] do begin
            Offset := [80, 80, 80];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Tree';
            Index := 0;
            Tile := Point(3278, 3444);
            AliveIDs := AliveTreeIDs;
            DeadIDs := DeadTreeIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [80, 0, 80];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Tree';
            Index := 0;
            Tile := Point(3279, 3447);
            AliveIDs := AliveTreeIDs;
            DeadIDs := DeadTreeIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [80, 80, 80];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Tree';
            Index := 0;
            Tile := Point(3277, 3448);
            AliveIDs := AliveTreeIDs;
            DeadIDs := DeadTreeIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [80, 80, 80];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Tree';
            Index := 0;
            Tile := Point(3274, 3447);
            AliveIDs := AliveTreeIDs;
            DeadIDs := DeadTreeIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[4] do begin
            Offset := [80, 80, 80];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Tree';
            Index := 0;
            Tile := Point(3274, 3449);
            AliveIDs := AliveTreeIDs;
            DeadIDs := DeadTreeIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[5] do begin
            Offset := [50, 50, 80];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Tree';
            Index := 0;
            Tile := Point(3276, 3440);
            AliveIDs := AliveTreeIDs;
            DeadIDs := DeadTreeIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[6] do begin
            Offset := [50, 80, 80];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Tree';
            Index := 0;
            Tile := Point(3276, 3451);
            AliveIDs := AliveTreeIDs;
            DeadIDs := DeadTreeIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[7] do begin
            Offset := [50, 80, 80];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Tree';
            Index := 0;
            Tile := Point(3279, 3450);
            AliveIDs := AliveTreeIDs;
            DeadIDs := DeadTreeIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[8] do begin
            Offset := [50, 80, 80];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Tree';
            Index := 0;
            Tile := Point(3278, 3452);
            AliveIDs := AliveTreeIDs;
            DeadIDs := DeadTreeIDs;
            Plane := 0;
          end;
        end;

Rimmington Yews UPDATE!!! burn them yews too... Great for ultimate iron man. Please note that cutting and burning willows is much fast, but more likely to get banned sitting in same place cutting and burning till 99....

if only one person burning at location the 1 fire lane works well, added a small lane in case though

14:begin
          daLocation.ID := 14;
          daLocation.Name := 'Rimmington Yews';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.BankLocations, 1);
          with daLocation.BankLocations[0] do begin
            Offset := [0, 0, 50];
            TileOffset := [0, 0];
            Tile := Point(3045, 3234);
            Options := ['Deposit'];
            Plane := 0;
            Name := 'Bank';
          end;

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.canFire := true;

          setLength(daLocation.FireLanes, 2);
          with daLocation.FireLanes[0] do begin
            Plane := 0;
            Length := 24;
            Tile := Point(2943, 3228);
          end;
          with daLocation.FireLanes[1] do begin
            Plane := 0;
            Length := 19;
            Tile := Point(2945, 3216);
          end;

          daLocation.PathToBank := [Point(2935, 3228), Point(2940, 3228), Point(2945, 3229), Point(2950, 3228), Point(2955, 3228), Point(2960, 3227), Point(2965, 3225), Point(2970, 3225), Point(2975, 3225), Point(2980, 3225), Point(2985, 3223), Point(2990, 3223), Point(2995, 3222), Point(3000, 3222), Point(3005, 3219), Point(3009, 3215), Point(3014, 3215), Point(3019, 3217), Point(3024, 3217), Point(3027, 3221), Point(3027, 3226), Point(3027, 3231), Point(3029, 3236), Point(3034, 3236), Point(3039, 3236), Point(3044, 3236), Point(3045, 3235)];
          daLocation.PathToTree := [Point(3045, 3235), Point(3040, 3236), Point(3035, 3236), Point(3030, 3236), Point(3028, 3231), Point(3028, 3226), Point(3028, 3221), Point(3024, 3218), Point(3019, 3218), Point(3014, 3216), Point(3009, 3215), Point(3004, 3215), Point(2999, 3214), Point(2994, 3214), Point(2989, 3213), Point(2984, 3213), Point(2979, 3211), Point(2975, 3214), Point(2971, 3217), Point(2966, 3217), Point(2961, 3217), Point(2956, 3217), Point(2951, 3219), Point(2946, 3220), Point(2943, 3224), Point(2939, 3228), Point(2938, 3229)];
          daLocation.TreeLocations := [Point(2938, 3229)];

          setLength(daLocation.TreeObjects, 4)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(2936, 3230);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 1;
            Tile := Point(2941, 3233);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 2;
            Tile := Point(2934, 3234);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 3;
            Tile := Point(2935, 3226);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;

Woodcutting Guild Willows, Can bank but dropping is best imo

52:begin
      daLocation.Name := 'WC Willows';
      daLocation.ID := 52;

      daLocation.RunDirections := ['rand'];

      daLocation.canFire := true;

      setLength(daLocation.FireLanes, 1);
      with daLocation.FireLanes[0] do begin
        Plane := 0;
        Length := 26;
        Tile := Point(1633, 3504);
      end;

      daLocation.canBank := true;
      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, 0];
        Tile := Point(1592, 3475);
        Options := ['Bank'];
        Plane := 0;
        Name := 'Bank';
      end;

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1519;

      daLocation.TreeLocations := [Point(1626, 3500)];

      daLocation.PathToTree := [Point(1597, 3493), Point(1613, 3501)];
      daLocation.PathToBank := [Point(1613, 3501), Point(1599, 3495), Point(1591, 3477)];

      setLength(daLocation.TreeObjects, 4)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 0;
        Tile := Point(1628, 3500);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 0;
        Tile := Point(1629, 3498);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0
      end;
      with daLocation.TreeObjects[2] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 0;
        Tile := Point(1629, 3494);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0
      end;
      with daLocation.TreeObjects[3] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 0;
        Tile := Point(1632, 3496);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0
      end;
    end;

Seer's oak updated = more Logs, XP, GP

24:begin
          daLocation.ID := 24;
          daLocation.Name := 'Seers Oaks';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1521;

          daLocation.TreeLocations := [Point(2718, 3480)];

          setLength(daLocation.TreeObjects, 2)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 0;
            Tile := Point(2720, 3482);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 0;
            Tile := Point(2721, 3479);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
        end;

WC guild Oaks, 3 trees i use to drop logs, Fastest best way in game to get nests.

54:begin
          daLocation.ID := 54;
          daLocation.Name := 'WC Oaks';

          daLocation.canFire := true;

          setLength(daLocation.FireLanes, 1);
          with daLocation.FireLanes[0] do begin
            Plane := 0;
            Length := 26;
            Tile := Point(1633, 3504);
          end;

          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(1617, 3507);

          daLocation.RunDirections := ['n', 'w'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1521;

          daLocation.TreeLocations := [Point(1620, 3511)];

          setLength(daLocation.TreeObjects, 3);
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 250];
            TileOffset := [-2, 2];
            Tile := Point(1617, 3509);
            Options := ['Chop down Oak'];
            Name := 'Oak';
            Index := 0;
            AliveIDs := AliveOakIDs;
            DeadIds := DeadOakIDs;
            Timer.Restart;
            Timer.StartTime := -1;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 250];
            TileOffset := [-2, 2];
            Tile := Point(1621, 3508);
            Options := ['Chop down Oak'];
            Name := 'Oak';
            Index := 1;
            AliveIDs := AliveOakIDs;
            DeadIds := DeadOakIDs;
            Timer.Restart;
            Timer.StartTime := -1;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 250];
            TileOffset := [-2, 2];
            Tile := Point(1618, 3513);
            Options := ['Chop down Oak'];
            Name := 'Oak';
            Index := 2;
            AliveIDs := AliveOakIDs;
            DeadIds := DeadOakIDs;
            Timer.Restart;
            Timer.StartTime := -1;
          end;
        end;

Here is a version with Woodcutting guild oaks, willows, maples added, also better progress reporting on firemaking

program newerLapeCutter;
{$DEFINE SMART}
{$DEFINE CHOPPER}
{$i Reflection/Reflection.Simba}
{$i [Reflection] ineedbot's functions.simba}

const Version = 5.04;

      PicturePage = 'http://pastebin.com/raw/zF7qBL4J';
      ScriptPage = 'https://raw.githubusercontent.com/ineedbots/Scripts/master/%5BReflection%5D%20ineedbot''s%20AIO%20Woodcutter.simba';

//Feel free to use code, GIVE CREDIT WHERE DUE! -ineedbot

type TreeObject = record
     Tile : TPoint;
     AliveIDs, DeadIDs : TIntegerArray;
     Name : String;
     Offset : array[0..2] of integer;
     TileOffset : array[0..1] of integer;
     Timer : TReflectTimer;
     Index, Plane : Integer;
     Options : TStringArray;
end;
TreeObjectArray = array of TreeObject;

function TreeObject.isAlive:boolean;
var TempObject : TReflectObject;
begin
  TempObject.GetAt(ObjGame, self.Tile);
  if not Reflect.Smart.IsNull(TempObject.Reference) and inIntArray(self.AliveIDs, TempObject.GetId) then
    exit(true);
end;

function TreeObject.isDead:boolean;
var TempObject : TReflectObject;
begin
  TempObject.GetAt(ObjGame, self.Tile);
  if not Reflect.Smart.IsNull(TempObject.Reference) and inIntArray(self.DeadIDs, TempObject.GetId) then
    exit(true);
end;

function TreeObjectArray.getAliveTrees:TreeObjectArray;
var i : integer;
begin
  for i:=0 to high(self) do
    if self[i].isAlive then begin
      setLength(result, length(result)+1);
      result[high(result)] := self[i];
    end;
end;

function TreeObjectArray.getDeadTrees:TreeObjectArray;
var i : integer;
begin
  for i:=0 to high(self) do
    if self[i].isDead then begin
      setLength(result, length(result)+1);
      result[high(result)] := self[i];
    end;
end;

function TreeObject.isValid:boolean;
begin
  if Self.Tile.x <> 0 then
    exit(true);
end;

function TreeObjectArray.getClosestTree:TreeObject;
var i : integer;
begin
  for i:=0 to high(self) do
    if not result.isValid then
      result := self[i]
    else
      if (Reflect.Tiles.DistanceFromTile(self[i].tile) < Reflect.Tiles.DistanceFromTile(result.tile)) then
        result := self[i];
end;

function TreeObjectArray.getClosestTreeTime:TreeObject;
var i:integer;
begin
  for i:=0 to high(self) do
    if (self[i].Timer.StartTime <> -1) then
      if not result.isValid then
        result := self[i]
      else if (self[i].Timer.Elapsedtime > result.Timer.Elapsedtime) then
          result := self[i];
end;

function TreeObjectArray.getTreeIndex(ind:integer):TreeObject;
var i : integer;
begin
  for i:=0 to high(self) do
    if self[i].Index = ind then
      exit(self[i]);
end;

function TreeObjectArray.getNextTree(PTree:TreeObject):TreeObject;
var CurrentTree : TreeObject;
begin
  CurrentTree := Self.getClosestTree;
  result := CurrentTree;

  if (high(self) < 1) or not PTree.isValid then
    exit;

  if(CurrentTree.Index < PTree.Index) or (CurrentTree.Index = high(self)) then begin
    result := Self.GetTreeIndex(CurrentTree.Index-1);
  end else begin
    result := Self.GetTreeIndex(CurrentTree.Index+1);
  end;
end;

type BankLocation = record
     Tile : TPoint;
     Name : String;
     Plane : integer;
     Offset : array[0..2] of integer;
     TileOffset : array[0..1] of integer;
     Options : TStringArray;
end;

type BankNPC = record
     Locations : TPointArray;
     Options, Names : TStringArray;
     IDs : TIntegerArray;
     Plane : Integer;
     Offset : array[0..2] of integer;
end;

type FireLane = record
     Plane, Length : Integer;
     Tile : TPoint;
end;

type workedLog = record
     chopped, ID, price : integer;
end;

type Location = record
     Name : string;
     RunDirections : TStringArray;
     ID, distanceCheck : integer;
     TreeLocations : TPointArray;
     canFire, canFletch, canBank, isDynamic, isSell, isFar, isPower : boolean;
     FletchPoint : TPoint;
     FireLanes : array of FireLane;
     PathToBank, PathToTree : TPointArray;
     customIDs : array of TIntegerArray;
     customTPAs : array of TPointArray;
     BankLocations : array of BankLocation;
     TreeObjects : TreeObjectArray;
     DoorObjects : array of TReflectDoor;
     BankNPCs : array of BankNPC;
     Logs : array of workedLog;
end;

var
  graphicOpti: TMufasaBitmap;

  statsServer: TStats;

  daLocation: Location;

  PreviousTree: TreeObject;

  statsTimer,LastXPCheck,gItemTim: TReflectTimer;

  playNum,job,RunAmount,AmountAmount,cpuLoadOften,cpuLoadWait,
  updateScreenOften,ItemCheckDistance,statsProfit,
  statsTime,statsFireXP,statsFletchXP,StartFletchXP,
  statsWoodXP,nullINT,gItemOften,Nests,StartWoodLevel,
  startWoodXp,LastXPXP,StartFireLevel,StartFireXP: integer;

  WorldList,TradingSticksIDs,GreeGreeIDs,ChopAnimationIDs,KnifeIDs,TinderIDs,
  FireIDs,FireAnimIDs,AxeIDs,CoinsIDs,ShaftIDs,FletchAnimationIDs,
  NestIDs: TIntegerArray;

  started,loading,saving,MouseKeys,DisableBank,UseSpec,useBreaks,
  dropOnly,useStats: boolean;

  sdrop,sbrin,sbreak,sbin,sbrfor,sbfor,swait,schat,sname,spass,spin,samount,
  sloc,stype,santi,srun,sworld,sspec,sbank,smouse,ssound,schatt,swaitt,swaito,
  supdatet,sscreent,slchatt,slevelt,scloset,sdismisst,sitemd,scriptstatus,sitemt: string;

  TFormMain,TFormBreak,TFormExtra: TForm;

  TLabelPin,TLabelWorld,TLabelRun,TLabelAnti,TLabelAmount,TLabelPlayNum,
  TLabelbIn,TLabelbrIn,TLabelbFor,TLabelItemDis,TLabelLookForChatTime,
  TLabelCloseTime,TLabelLevelUpTime,TLabelUpdateTime,TLabelDismissTime,
  TLabelWaitTime,TLabelWaitOften,TLabelbrFor,TLabelScreenTime,TLabelSound,
  TLabelChatTime,TLabelItemTime: TLabel;

  TEditUser,TEditPass,TEditPin,TEditWorld,TEditRun,TEditAnti,TEditAmount,
  TEditPlayNum,TEditbIn,TEditbrIn,TEditItemDis,TEditLookForChatTime,
  TEditCloseTime,TEditLevelUpTime,TEditUpdateTime,TEditDismissTime,
  TEditWaitTime,TEditWaitOften,TEditbFor,TEditbrFor,TEditScreenTime,
  TEditSound,TEditChatTime,TEditItemTime: TEdit;

  TButtonPlay,TButtonLoad,TButtonSave,TButtonBreak,TButtonExtra: TButton;

  TCheckBoxBreak,TCheckBoxTalk,TCheckBoxWait,TCheckBoxMouse,TCheckBoxSpec,
  TCheckBoxBank,TCheckBoxDropOnly: TCheckBox;

  TComboBoxLoc,TComboBoxType: TComboBox;

  TMainImage: TImage;

  TMainBMP: TBitmap;

procedure doUpdate;     //thanks shuttleu
var NetworkVersion : extended;
    FileNew, script : string;
    ThisFile : integer;
begin
  if DirectoryExists(ScriptPath + '.git\') then
    exit;
  script := Reflect.Misc.GetPage(scriptPage);
  try
    NetworkVersion := strToFloat(between('Version = ', ';', script));
  except
    begin
      daLogger.Error('Failed get update version.', []);
      exit;
    end;
  end;
  daLogger.Status('ineedbot''s Woodcutter:  Local Version: '+FloatToStr(Version)+'  Network Version: '+FloatToStr(NetworkVersion), []);
  if(Version < NetworkVersion) then begin
    FileNew := ScriptPath + '[Reflection] ineedbot''s AIO Woodcutter.simba';
    ThisFile := Rewritefile(FileNew, true);
    try
        WriteFileString(ThisFile, script);
      except
        begin
          daLogger.Error('Failed writing to: '+FileNew, []);
          CloseFile(ThisFile);
          exit;
        end;
      end;
      CloseFile(ThisFile);
      daLogger.Status('Successfully downloaded new script to '+FileNew+'. Please reopen this script.', []);
      TerminateScript;
  end else begin
    if(Version = NetworkVersion)then begin
    end else begin
    end;
  end;
end;

procedure YourClickProcedure(Sender: TObject);
{$IFNDEF CODEINSIGHT}
native;
{$ENDIF}
begin
  case sender of
    TButtonBreak:begin
      TFormBreak.ShowModal();
    end;
    TButtonExtra:begin
      TFormExtra.ShowModal();
    end;
    TButtonPlay:begin
      started := true;
      TFormMain.Close;
    end;
    TButtonLoad:begin
      loading := true;
      TFormMain.Close;
    end;
    TButtonSave:begin
      schat := tostr(TCheckBoxTalk.getstate);
      swait := tostr(TCheckBoxWait.getstate);
      sname := TEditUser.Gettext;
      spass := TEditPass.gettext;
      spin := TEditPin.gettext;
      samount := TEditAmount.gettext;
      stype := tostr(TComboBoxType.getitemindex);
      sloc := tostr(TComboBoxLoc.getitemindex);
      santi := TEditAnti.gettext;
      srun := TEditRun.gettext;
      sworld := TEditWorld.gettext;
      sspec := tostr(TCheckBoxSpec.getstate);
      sbank := tostr(TCheckBoxBank.getstate);
      smouse := tostr(TCheckBoxMouse.getstate);
      sbreak := tostr(TCheckBoxBreak.getstate);
      sbfor := TEditbFor.gettext;
      sbrfor := TEditbrFor.gettext;
      sbin := TEditbin.gettext;
      sbrin := TEditbrin.gettext;
      ssound := TEditSound.getText;
      sdismisst := TEditDismissTime.getText;
      slchatt := TEditLookForChatTime.getText;
      schatt := TEditChatTime.getText;
      supdatet := TEditUpdateTime.getText;
      sscreent := TEditScreenTime.getText;
      slevelt := TEditLevelUpTime.getTExt;
      swaitt := TEditWaitTime.getText;
      swaito := TEditWaitOften.getText;
      scloset := TEditCloseTime.getTExt;
      sitemd := TEditItemDis.getText;
      sdrop := tostr(TCheckBoxDropOnly.getstate);
      sitemt := TEditItemTime.getText;
      saving := true;
      TFormMain.Close;
     end;
  end;
end;

procedure _OnChange2;
var i : integer;
begin
  TComboBoxType.Clear;
  TComboBoxType.setText('Type of wood:');
  i := -1;
  case TComboBoxLoc.getItemIndex of
    (i:=i+1):begin   //lumbridge
      TComboBoxType.AddItem('Oaks (sell)', nil);
      TComboBoxType.AddItem('Willows (sell)', nil);
      TComboBoxType.AddItem('West Willows', nil);
      TComboBoxType.AddItem('West Willows(2)', nil);
      TComboBoxType.AddItem('North Willows', nil);
      TComboBoxType.AddItem('Yews', nil);
      TComboBoxType.AddItem('Yews (sell)', nil);
      TComboBoxType.AddItem('Progressive Chopping', nil);
    end;
    (i:=i+1):begin      //draynor
      TComboBoxType.AddItem('Oaks', nil);
      TComboBoxType.AddItem('Willows', nil);
      TComboBoxType.AddItem('Yews', nil);
    end;
    (i:=i+1):begin   //Rimmington
      TComboBoxType.AddItem('Willows (p.s.)', nil);
      TComboBoxType.AddItem('Yews (p.s.)', nil);
      TComboBoxType.AddItem('Willows (sell)', nil);
      TComboBoxType.AddItem('Yews', nil);
      TComboBoxType.AddItem('Yews (sell)', nil);
    end;
    (i:=i+1):begin      //Falador
      TComboBoxType.AddItem('Oaks', nil);
      TComboBoxType.AddItem('Yews', nil);
    end;
    (i:=i+1):begin   //edgeville
      TComboBoxType.AddItem('Yews', nil);
    end;
    (i:=i+1):begin     //varrock
      TComboBoxType.AddItem('Oaks (west)', nil);
      TComboBoxType.AddItem('Yews (palace)', nil);
      TComboBoxType.AddItem('Oaks (east)', nil);
      TComboBoxType.AddItem('Yews (pray)', nil);
      TComboBoxType.AddItem('Yews (east)', nil);
    end;
    (i:=i+1):begin   //seers
      TComboBoxType.AddItem('Oaks', nil);
      TComboBoxType.AddItem('Willows', nil);
      TComboBoxType.AddItem('Maples', nil);
      TComboBoxType.AddItem('Yews', nil);
      TComboBoxType.AddItem('Magics', nil);
      TComboBoxType.AddItem('Magics (2)', nil);
    end;
    (i:=i+1):begin   //catherby
      TComboBoxType.AddItem('Willows', nil);
      TComboBoxType.AddItem('Yews', nil);
    end;
    (i:=i+1):begin   //tree gnome village
      TComboBoxType.AddItem('Yews', nil);
      TComboBoxType.AddItem('Yews (2)', nil);
    end;
    (i:=i+1):begin     //barb
      TComboBoxType.AddItem('Willows', nil);
    end;
    (i:=i+1):begin     //deul
      TComboBoxType.AddItem('Magics', nil);
    end;
    (i:=i+1):begin     //ape
      TComboBoxType.AddItem('Teaks', nil);
    end;
    (i:=i+1):begin     //castle
      TComboBoxType.AddItem('Teaks', nil);
    end;
    (i:=i+1):begin     //two bai
      TComboBoxType.AddItem('Teaks', nil);
      TComboBoxType.AddItem('Teaks(2)', nil);
      TComboBoxType.AddItem('Mahogany', nil);
    end;
    (i:=i+1):begin     //powerchop
      TComboBoxType.AddItem('Normal Trees', nil);
      TComboBoxType.AddItem('Oaks', nil);
      TComboBoxType.AddItem('Willows', nil);
    end;
    (i:=i+1):begin     //wc guild
      TComboBoxType.AddItem('Oaks', nil);
      TComboBoxType.AddItem('Willows', nil);
      TComboBoxType.AddItem('Maples', nil);
      TComboBoxType.AddItem('Yews', nil);
      TComboBoxType.AddItem('Magics', nil);
      TComboBoxType.AddItem('Redwood', nil);
      TComboBoxType.AddItem('Redwood(2)', nil);
      TComboBoxType.AddItem('Redwood(3)', nil);
      TComboBoxType.AddItem('Redwood(4)', nil);
    end;
  end;
end;

procedure breakCheck;
begin
  TButtonBreak.setEnabled(toStr(TCheckBoxBreak.getState) = 'cbChecked');
end;

procedure OnChange(Sender: TObject);
{$IFNDEF CODEINSIGHT}
native;
{$ENDIF}
begin
  _OnChange2;
end;

procedure brakeHandle(Sender: TObject);
{$IFNDEF CODEINSIGHT}
native;
{$ENDIF}
begin
  breakCheck;
end;

procedure OnlyPostiveNumbers(Sender: TObject; var Key:Char);
{$IFNDEF CODEINSIGHT}
native;
{$ENDIF}
begin
  case toStr(key) of
    #8, '0'..'9':begin
    end;
    else begin
      Key := #0;
    end;
  end;
end;

procedure OnlyNumbers(Sender: TObject; var Key: Char);
{$IFNDEF CODEINSIGHT}
native;
{$ENDIF}
var _sender : TEdit;
begin
  _sender := sender;
  case toStr(key) of
    #8, '0'..'9', '-':begin
      if(toStr(key) = '-')then begin
        if(_sender.getSelStart <> 0)then begin
          Key := #0;
        end;
      end;
    end;
    else begin
      Key := #0;
    end;
  end;
end;

procedure NoKeys(Sender: TObject; var Key: Char);
{$IFNDEF CODEINSIGHT}
native;
{$ENDIF}
begin
  Key := #0;
end;

procedure OnlyPostiveNumbers2(Sender: TObject; var Key:Char);
{$IFNDEF CODEINSIGHT}
native;
{$ENDIF}
begin
  case toStr(key) of
    #8, ',', '0'..'9':begin
    end;
    else begin
      Key := #0;
    end;
  end;
end;

procedure InitForm;
var
  tempFont : TFont;
begin
  tempFont.Init;
  tempFont.setColor(0);
//TFormMain\\
 TFormMain.Init(nil);
  with TFormMain do
    begin
      SetCaption('ineedbot''s AIO Woodcutter');
      setBorderStyle(bsSingle);
      SetBounds(0,0,374,208);
      SetPosition(poScreenCenter);
  end;
  TMainImage.init(TFormMain);
  with TMainImage do
    begin
      setParent(TFormMain);
      SetBounds(0,0,374,208);
      setPicture(TMainBMP);
  end;
//TLabelPin\\
 TLabelPin.Init(TFormMain);
  with TLabelPin do
    begin
      SetParent(TFormMain);
      SetCaption('Pin:');
      SetBounds(2,57,53,16);
      setFont(tempFont);
  end;
//TLabelWorld\\
 TLabelWorld.Init(TFormMain);
  with TLabelWorld do
    begin
      SetParent(TFormMain);
      SetCaption('World:');
      SetBounds(2,82,68,16);
      setFont(tempFont);
  end;
//TLabelRun\\
 TLabelRun.Init(TFormMain);
  with TLabelRun do
    begin
      SetParent(TFormMain);
      SetCaption('When to run:');
      SetBounds(2,107,57,16);
      setFont(tempFont);
  end;
//TLabelAnti\\
 TLabelAnti.Init(TFormMain);
  with TLabelAnti do
    begin
      SetParent(TFormMain);
      SetCaption('Antiban often:');
      SetBounds(2,132,58,16);
      setFont(tempFont);
  end;
//TLabelAmount\\
 TLabelAmount.Init(TFormMain);
  with TLabelAmount do
    begin
      SetParent(TFormMain);
      SetCaption('Amount to cut:');
      SetBounds(2,157,80,16);
      setFont(tempFont);
  end;
//TLabelPlayNum\\
 TLabelPlayNum.Init(TFormMain);
  with TLabelPlayNum do
    begin
      SetParent(TFormMain);
      SetCaption('Player number:');
      SetBounds(116,182,85,16);
      setFont(tempFont);
  end;
//TEditUser\\
 TEditUser.Init(TFormMain);
  with TEditUser do
    begin
      SetParent(TFormMain);
      SetText('Username or email');
      SetBounds(2,27,219,23);
      setFont(tempFont);
  end;
//TEditPass\\
 TEditPass.Init(TFormMain);
  with TEditPass do
    begin
      SetParent(TFormMain);
      SetText('Password');
      SetBounds(225,27,147,23);
      setFont(tempFont);
      setPasswordChar('*');
      setMaxLength(20);
  end;
//TEditPin\\
 TEditPin.Init(TFormMain);
  with TEditPin do
    begin
      SetParent(TFormMain);
      SetText('');
      SetBounds(26,52,36,23);
      setFont(tempFont);
      setPasswordChar('*');
      setMaxLength(4);
      setONKEYPRESS(OnlyPostiveNumbers);
  end;
//TEditWorld\\
 TEditWorld.Init(TFormMain);
  with TEditWorld do
    begin
      SetParent(TFormMain);
      SetText('');
      SetBounds(40,77,80,23);
      setFont(tempFont);
      setONKEYPRESS(OnlyPostiveNumbers2);
  end;
//TEditRun\\
 TEditRun.Init(TFormMain);
  with TEditRun do
    begin
      SetParent(TFormMain);
      SetText('75');
      SetBounds(75,102,30,23);
      setFont(tempFont);
      setMaxLength(3);
      setONKEYPRESS(OnlyPostiveNumbers);
  end;
//TEditAnti\\
 TEditAnti.Init(TFormMain);
  with TEditAnti do
    begin
      SetParent(TFormMain);
      SetText('1000');
      SetBounds(82,127,48,23);
      setFont(tempFont);
      setMaxLength(6);
      setONKEYPRESS(OnlyPostiveNumbers);
  end;
//TEditAmount\\
 TEditAmount.Init(TFormMain);
  with TEditAmount do
    begin
      SetParent(TFormMain);
      SetText('-1');
      SetBounds(88,152,48,23);
      setFont(tempFont);
      setMaxLength(6);
      setONKEYPRESS(OnlyPostiveNumbers);
  end;
//TEditPlayNum\\
 TEditPlayNum.Init(TFormMain);
  with TEditPlayNum do
    begin
      SetParent(TFormMain);
      SetText('0');
      SetBounds(200,180,20,23);
      setFont(tempFont);
      setMaxLength(2);
      setONKEYPRESS(OnlyPostiveNumbers);
  end;
//TButtonPlay\\
 TButtonPlay.Init(TFormMain);
  with TButtonPlay do
    begin
      SetParent(TFormMain);
      SetCaption('Play');
      SetBounds(296,180,75,25);
      setFont(tempFont);
      setOnClick(YourClickProcedure);
  end;
//TButtonLoad\\
 TButtonLoad.Init(TFormMain);
  with TButtonLoad do
    begin
      SetParent(TFormMain);
      SetCaption('Load');
      SetBounds(2,180,50,25);
      setFont(tempFont);
      setOnClick(YourClickProcedure);
  end;
//TButtonSave\\
 TButtonSave.Init(TFormMain);
  with TButtonSave do
    begin
      SetParent(TFormMain);
      SetCaption('Save');
      SetBounds(54,180,50,25);
      setFont(tempFont);
      setOnClick(YourClickProcedure);
  end;
//TButtonBreak\\
 TButtonBreak.Init(TFormMain);
  with TButtonBreak do
    begin
      SetParent(TFormMain);
      SetCaption('Break handler');
      SetBounds(160,152,85,25);
      setFont(tempFont);
      setOnClick(YourClickProcedure);
      setEnabled(false);
  end;
//TButtonExtra\\
 TButtonExtra.Init(TFormMain);
  with TButtonExtra do
    begin
      SetParent(TFormMain);
      SetCaption('Extras');
      SetBounds(304,152,60,25);
      setFont(tempFont);
      setOnClick(YourClickProcedure);
  end;
//TCheckBoxBreak\\
 TCheckBoxBreak.Init(TFormMain);
  with TCheckBoxBreak do
    begin
      SetParent(TFormMain);
      SetCaption('');
      SetBounds(140,154,23,19);
      setState(0);
      setOnChange(brakeHandle);
      setFont(tempFont);
  end;
//TCheckBoxTalk\\
 TCheckBoxTalk.Init(TFormMain);
  with TCheckBoxTalk do
    begin
      SetParent(TFormMain);
      SetCaption('Use auto responder?');
      SetBounds(140,52,101,19);
      setState(0);
      setFont(tempFont);
  end;
//TCheckBoxWait\\
 TCheckBoxWait.Init(TFormMain);
  with TCheckBoxWait do
    begin
      SetParent(TFormMain);
      SetCaption('Force waits after actions?');
      SetBounds(140,72,103,19);
      setState(0);
      setFont(tempFont);
  end;
//TCheckBoxMouse\\
 TCheckBoxMouse.Init(TFormMain);
  with TCheckBoxMouse do
    begin
      SetParent(TFormMain);
      SetCaption('Use mouse keys?');
      SetBounds(140,92,115,19);
      setState(0);
      setFont(tempFont);
  end;
//TCheckBoxSpec\\
 TCheckBoxSpec.Init(TFormMain);
  with TCheckBoxSpec do
    begin
      SetParent(TFormMain);
      SetCaption('Use DAxe Spec?');
      SetBounds(140,112,107,19);
      setState(0);
      setFont(tempFont);
  end;
//TCheckBoxBank\\
 TCheckBoxBank.Init(TFormMain);
  with TCheckBoxBank do
    begin
      SetParent(TFormMain);
      SetCaption('Force disable banking?');
      SetBounds(140,132,105,19);
      setState(0);
      setFont(tempFont);
  end;
//TComboBoxLoc\\
 TComboBoxLoc.Init(TFormMain);
  with TComboBoxLoc do
    begin
      SetParent(TFormMain);
      SetBounds(2,2,219,23);
      setCaption('Location:');
      //add your items here
      AddItem('Lumbridge', nil);
      AddItem('Draynor', nil);
      AddItem('Rimmington', nil);
      AddItem('Falador', nil);
      AddItem('Edgeville', nil);
      AddItem('Varrock', nil);
      AddItem('Seers', nil);
      AddItem('Catherby', nil);
      AddItem('Gnome Stronghold', nil);
      AddItem('Barb. Assault', nil);
      AddItem('Duel Arena', nil);
      AddItem('Ape Atoll', nil);
      AddItem('Castle Wars', nil);
      AddItem('Tai Bwo Wannai', nil);
      AddItem('Powerchop', nil);
      AddItem('Woodcutting Guild', nil);
      //End items
      setFont(tempFont);
      setONKEYPRESS(NoKeys);
      setOnExit(OnChange);
  end;
//TComboBoxType\\
 TComboBoxType.Init(TFormMain);
  with TComboBoxType do
    begin
      SetParent(TFormMain);
      SetBounds(225,2,147,23);
      setCaption('Type of wood:');
      setFont(tempFont);
      setONKEYPRESS(NoKeys);
  end;

  TFormBreak.init(nil);
  with TFormBreak do
    begin
      SetCaption('Break Handler');
      setBorderStyle(bsSingle);
      SetBounds(0,0,255,120);
      SetPosition(poScreenCenter);
  end;
  TLabelbIn.init(TFormBreak);
  with TLabelbIn do
    begin
      setParent(TFormBreak);
      setCaption('Break after/every/within:');
      SetBounds(5,5,68,16);
      setFont(tempFont);
  end;
  TLabelbrIn.init(TFormBreak);
  with TLabelbrIn do
    begin
      setParent(TFormBreak);
      setCaption('Random:');
      SetBounds(5,30,68,16);
      setFont(tempFont);
  end;
  TLabelbFor.init(TFormBreak);
  with TLabelbFor do
    begin
      setParent(TFormBreak);
      setCaption('Break for:');
      SetBounds(5,65,68,16);
      setFont(tempFont);
  end;
  TLabelbrFor.init(TFormBreak);
  with TLabelbrFor do
    begin
      setParent(TFormBreak);
      setCaption('Random:');
      SetBounds(5,90,68,16);
      setFont(tempFont);
  end;
  TEditbIn.init(TFormBreak);
  with TEditbIn do
    begin
      setParent(TFormBreak);
      setText('90');
      SetBounds(150,2,100,23);
      setONKEYPRESS(OnlyPostiveNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TEditbrIn.init(TFormBreak);
  with TEditbrIn do
    begin
      setParent(TFormBreak);
      setText('30');
      SetBounds(150,30,100,23);
      setONKEYPRESS(OnlyPostiveNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TEditbFor.init(TFormBreak);
  with TEditbFor do
    begin
      setParent(TFormBreak);
      setText('10');
      SetBounds(150,67,100,23);
      setONKEYPRESS(OnlyPostiveNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TEditbrFor.init(TFormBreak);
  with TEditbrFor do
    begin
      setParent(TFormBreak);
      setText('5');
      SetBounds(150,92,100,23);
      setONKEYPRESS(OnlyPostiveNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;

  TFormExtra.init(nil);
  with TFormExtra do
    begin
      setCaption('Extras');
      setBorderStyle(bsSingle);
      SetBounds(0,0,255,330);
      SetPosition(poScreenCenter);
  end;
  TLabelSound.init(TFormExtra);
  with TLabelSound do
    begin
      setParent(TFormExtra);
      setCaption('Sound:');
      SetBounds(5,5,68,16);
      setFont(tempFont);
  end;
  TEditSound.init(TFormExtra);
  with TEditSound do
    begin
      setParent(TFormExtra);
      setText('C:\Windows\Media\Windows Notify.wav');
      SetBounds(150,5,100,23);
      setFont(tempFont);
  end;
  TLabelChatTime.init(TFormExtra);
  with TLabelChatTime do
    begin
      setParent(TFormExtra);
      setCaption('Chat time often:');
      SetBounds(5,30,68,16);
      setFont(tempFont);
  end;
  TEditChatTime.init(TFormExtra);
  with TEditChatTime do
    begin
      setParent(TFormExtra);
      setText('200000');
      SetBounds(150,30,100,23);
      setONKEYPRESS(OnlyNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TLabelScreenTime.init(TFormExtra);
  with TLabelScreenTime do
    begin
      setParent(TFormExtra);
      setCaption('Screen time often:');
      SetBounds(5,55,68,16);
      setFont(tempFont);
  end;
  TEditScreenTime.init(TFormExtra);
  with TEditScreenTime do
    begin
      setParent(TFormExtra);
      setText('1000');
      SetBounds(150,55,100,23);
      setONKEYPRESS(OnlyNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TLabelWaitTime.init(TFormExtra);
  with TLabelWaitTime do
    begin
      setParent(TFormExtra);
      setCaption('Wait time:');
      SetBounds(5,80,68,16);
      setFont(tempFont);
  end;
  TEditWaitTime.init(TFormExtra);
  with TEditWaitTime do
    begin
      setParent(TFormExtra);
      setText('-1');
      SetBounds(150,80,100,23);
      setONKEYPRESS(OnlyNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TLabelWaitOften.init(TFormExtra);
  with TLabelWaitOften do
    begin
      setParent(TFormExtra);
      setCaption('Wait often:');
      SetBounds(5,105,68,16);
      setFont(tempFont);
  end;
  TEditWaitOften.init(TFormExtra);
  with TEditWaitOften do
    begin
      setParent(TFormExtra);
      setText('250');
      SetBounds(150,105,100,23);
      setONKEYPRESS(OnlyPostiveNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TLabelDismissTime.init(TFormExtra);
  with TLabelDismissTime do
    begin
      setParent(TFormExtra);
      setCaption('Dismiss time:');
      SetBounds(5,130,68,16);
      setFont(tempFont);
  end;
  TEditDismissTime.init(TFormExtra);
  with TEditDismissTime do
    begin
      setParent(TFormExtra);
      setText('10000');
      SetBounds(150,130,100,23);
      setONKEYPRESS(OnlyNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TLabelUpdateTime.init(TFormExtra);
  with TLabelUpdateTime do
    begin
      setParent(TFormExtra);
      setCaption('Update time:');
      SetBounds(5,155,68,16);
      setFont(tempFont);
  end;
  TEditUpdateTime.init(TFormExtra);
  with TEditUpdateTime do
    begin
      setParent(TFormExtra);
      setText('45000');
      SetBounds(150,155,100,23);
      setONKEYPRESS(OnlyNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TLabelLevelUpTime.init(TFormExtra);
  with TLabelLevelUpTime do
    begin
      setParent(TFormExtra);
      setCaption('Level up time:');
      SetBounds(5,180,68,16);
      setFont(tempFont);
  end;
  TEditLevelUpTime.init(TFormExtra);
  with TEditLevelUpTime do
    begin
      setParent(TFormExtra);
      setText('2500');
      SetBounds(150,180,100,23);
      setONKEYPRESS(OnlyNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TLabelCloseTime.init(TFormExtra);
  with TLabelCloseTime do
    begin
      setParent(TFormExtra);
      setCaption('Close stuff time:');
      SetBounds(5,205,68,16);
      setFont(tempFont);
  end;
  TEditCloseTime.init(TFormExtra);
  with TEditCloseTime do
    begin
      setParent(TFormExtra);
      setText('10000');
      SetBounds(150,205,100,23);
      setONKEYPRESS(OnlyNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TLabelLookForChatTime.init(TFormExtra);
  with TLabelLookForChatTime do
    begin
      setParent(TFormExtra);
      setCaption('Look for chat time:');
      SetBounds(5,230,68,16);
      setFont(tempFont);
  end;
  TEditLookForChatTime.init(TFormExtra);
  with TEditLookForChatTime do
    begin
      setParent(TFormExtra);
      setText('2000');
      SetBounds(150,230,100,23);
      setONKEYPRESS(OnlyNumbers);
      setMaxLength(9);
      setFont(tempFont);
  end;
  TLabelItemDis.init(TFormExtra);
  with TLabelItemDis do
    begin
      setParent(TFormExtra);
      setCaption('Nest check distance:');
      SetBounds(5,255,68,16);
      setFont(tempFont);
  end;
  TEditItemDis.init(TFormExtra);
  with TEditItemDis do
    begin
      setParent(TFormExtra);
      setText('20');
      SetBounds(150,255,100,23);
      setONKEYPRESS(OnlyPostiveNumbers);
      setMaxLength(3);
      setFont(tempFont);
  end;
  TCheckBoxDropOnly.init(TFormExtra);
  with TCheckBoxDropOnly do
    begin
      setFont(tempFont);
      setParent(TFormExtra);
      setCaption('Drop only?');
      setState(0);
      SetBounds(5,280,68,16);
  end;
  TLabelItemTime.init(TFormExtra);
  with TLabelItemTime do
    begin
      setParent(TFormExtra);
      setCaption('Look for nest time:');
      SetBounds(5,305,68,16);
      setFont(tempFont);
  end;
  TEditItemTime.init(TFormExtra);
  with TEditItemTime do
    begin
      setParent(TFormExtra);
      setText('5000');
      SetBounds(150,305,100,23);
      setONKEYPRESS(OnlyNumbers);
      setMaxLength(9);
  end;
  tempFont.Free;
end;

procedure ShowFormModal;
{$IFNDEF CODEINSIGHT}
native;
{$ENDIF}
var
  i, h : integer;
  strings : TStringArray;
begin
  InitForm;

  if loading or saving then begin
    saving := false;
    loading := false;
    TEditUser.setText(sname);
    TEditPass.setText(spass);
    TEditPin.setText(spin);
    TEditWorld.setText(sworld);

    if (Length(santi) > 0) then
      TEditAnti.setText(santi)
    else
      TEditAnti.setText('0');

    if (Length(srun) > 0) then
      TEditRun.setText(srun)
    else
      TEditRun.setText('0');

    if (Length(samount) > 0) then
      TEditAmount.setText(samount)
    else
      TEditAmount.setText('0');

    if (Length(sloc) > 0) then
      TComboBoxLoc.setItemIndex(StrToInt(sloc))
    else
      TComboBoxLoc.setItemIndex(0);
    _OnChange2;

    if (Length(stype) > 0) then
      TComboBoxType.setItemIndex(StrToInt(stype))
    else
      TComboBoxType.setItemIndex(0);

    if(sbank = 'cbUnchecked')then
      TCheckBoxBank.setState(0)
    else
      TCheckBoxBank.setState(1);

    if(sspec = 'cbUnchecked')then
      TCheckBoxSpec.setState(0)
    else
      TCheckBoxSpec.setState(1);

    if(schat = 'cbUnchecked')then
      TCheckBoxTalk.setState(0)
    else
      TCheckBoxTalk.setState(1);

    if(swait = 'cbUnchecked')then
      TCheckBoxWait.setState(0)
    else
      TCheckBoxWait.setState(1);

    if(smouse = 'cbUnchecked')then
      TCheckBoxMouse.setState(0)
    else
      TCheckBoxMouse.setState(1);

    if(sbreak = 'cbUnchecked')then
      TCheckBoxBreak.setState(0)
    else
      TCheckBoxBreak.setState(1);
    breakCheck;

    TEditbin.setText(sbin);
    TEditbrin.setText(sbrin);
    TEditbfor.setText(sbfor);
    TEditbrfor.setText(sbrfor);

    if(sdrop = 'cbUnchecked')then
      TCheckBoxDropOnly.setState(0)
    else
      TCheckBoxDropOnly.setState(1);

    TEditSound.setText(ssound);
    TEditCloseTime.setText(scloset);
    TEditWaitOften.setText(swaito);
    TEditWaitTime.setText(swaitt);
    TEditLevelUpTime.setText(slevelt);
    TEditScreenTime.setText(sscreent);
    TEditUpdateTime.setText(supdatet);
    TEditChatTime.setText(schatt);
    TEditLookForChatTime.setText(slchatt);
    TEditDismissTime.setText(sdismisst);

    TEditItemDis.setText(sitemd);

    TEditItemTime.setText(sitemt);

    TEditPlayNum.setText(tostr(playNum));
  end;

  TFormMain.ShowModal;

  i := -1;
  h := -1;
  case TComboBoxLoc.getItemIndex of
    (i:=i+1):begin //lumb
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=0;  //    oak sell
        (h:=h+1):Job:=1;  //            willow sell
        (h:=h+1):Job:=2;  //    west will
        (h:=h+1):Job:=3;  //            west willow 2
        (h:=h+1):Job:=4;  //  north will
        (h:=h+1):Job:=5;  //   yew
        (h:=h+1):Job:=6;  //    yew sell
        (h:=h+1):Job:=7;  //    prog chop
      end;
    end;
    (i:=i+1):begin //draynor
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=8;  //oak
        (h:=h+1):Job:=9;  // willow
        (h:=h+1):Job:=10;  //  yew
      end;
    end;
    (i:=i+1):begin // rimm
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=11;  // will ps
        (h:=h+1):Job:=12;  //     yew ps
        (h:=h+1):Job:=13;  // will sell
        (h:=h+1):Job:=14;  //     yew
        (h:=h+1):Job:=15;  // yew sell
      end;
    end;
    (i:=i+1):begin //fala
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=16;  //  oak
        (h:=h+1):Job:=17;  //   yew
      end;
    end;
    (i:=i+1):begin // edge
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=18;  //       yew
      end;
    end;
    (i:=i+1):begin //varr
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=19;  //   oak west
        (h:=h+1):Job:=20;  //    yew palc
        (h:=h+1):Job:=21;  //   oak east
        (h:=h+1):Job:=22;  //    yew pray
        (h:=h+1):Job:=23;  //   yew east
      end;
    end;
    (i:=i+1):begin //seers
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=24;  // oak
        (h:=h+1):Job:=25;  //   willow
        (h:=h+1):Job:=26;  //     maople
        (h:=h+1):Job:=27;  //      yew
        (h:=h+1):Job:=28;  //          mage
        (h:=h+1):Job:=29;  //          mage2
      end;
    end;
    (i:=i+1):begin //cath
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=30;  //  will
        (h:=h+1):Job:=31;  //      yew
      end;
    end;
    (i:=i+1):begin //tree g
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=32;  //  yew
        (h:=h+1):Job:=33;  //  yew 2
      end;
    end;
    (i:=i+1):begin //      barb
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=34;  //   will
      end;
    end;
    (i:=i+1):begin //      deul
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=35;  //   mag
      end;
    end;
    (i:=i+1):begin //      ape
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=36;  //   teak
      end;
    end;
    (i:=i+1):begin //      castle wars
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=37;  //   teak
      end;
    end;
    (i:=i+1):begin //      two baw
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=38;  //   teak
        (h:=h+1):Job:=39;  //   teak 2
        (h:=h+1):Job:=40;  //   mah
      end;
    end;
    (i:=i+1):begin //      power
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=41;  //   tree
        (h:=h+1):Job:=42;  //       oak
        (h:=h+1):Job:=43;  //          willow
      end;
    end;
    (i:=i+1):begin //      wc guild
      case TComboBoxType.getItemIndex of
        (h:=h+1):Job:=51;  //          Oaks
        (h:=h+1):Job:=52;  //          Willows
        (h:=h+1):Job:=53;  //          Maples
        (h:=h+1):Job:=45;  //          Yews
        (h:=h+1):Job:=46;  //          Magics
        (h:=h+1):Job:=47;  //          red
        (h:=h+1):Job:=48;  //          red2
        (h:=h+1):Job:=49;  //          red3
        (h:=h+1):Job:=50;  //          red4
      end;
    end;
  end;

  ReflectPlayer.Username := TEditUser.getText;
  ReflectPlayer.Password := TEditPass.getText;
  ReflectPlayer.Pin := TEditPin.getText;
  ReflectPlayer.Active := true;

  SmartShowConsole := false;
  case random(8) of
    0:SmartUserAgent := 'Mozilla/5.0 (Windows NT 6.3; WOW64; rv:36.0) Gecko/20100101 Firefox/36.0';
    1:SmartUserAgent := 'Mozilla/5.0 (Windows NT 6.3; WOW64; rv:39.0) Gecko/20100101 Firefox/39.0';
    2:SmartUserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:36.0) Gecko/20100101 Firefox/36.0';
    3:SmartUserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:39.0) Gecko/20100101 Firefox/39.0';
    4:SmartUserAgent := 'Mozilla/5.0 (Windows NT 6.3; WOW64; rv:37.0) Gecko/20100101 Firefox/37.0';
    5:SmartUserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:37.0) Gecko/20100101 Firefox/37.0';
    6:SmartUserAgent := 'Mozilla/5.0 (Windows NT 6.3; WOW64; rv:38.0) Gecko/20100101 Firefox/38.0';
    7:SmartUserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:38.0) Gecko/20100101 Firefox/38.0';
  end;

  strings := GetWordsEx(TEditWorld.getText, '1234567890');
  if (length(strings) > 0) then
    SmartWorld := StrToInt(Strings[0]);

  setLength(WorldList, length(strings));
  for i := 0 to high(strings) do
    WorldList[i] := StrToInt(strings[i]);

  MouseKeys := (toStr(TCheckBoxMouse.getState) = 'cbChecked');
  DisableBank := (toStr(TCheckBoxBank.getState) = 'cbChecked');
  UseSpec := (toStr(TCheckBoxSpec.getState) = 'cbChecked');
  useBreaks := (toStr(TCheckBoxBreak.getState) = 'cbChecked');
  useAutoResponder := (toStr(TCheckBoxTalk.getState) = 'cbChecked');
  useFakeWaitTime := (toStr(TCheckBoxWait.getState) = 'cbChecked');
  dropOnly := (toStr(TCheckBoxDropOnly.getState) = 'cbChecked');

  if (Length(TEditRun.getText) > 0) then
    RunAmount := StrToInt(TEditRun.getText)
  else
    RunAmount := 0;

  if (Length(TEditAmount.getText) > 0) then
    AmountAmount := StrToInt(TEditAmount.getText)
  else
    AmountAmount := 0;

  if (Length(TEditAnti.getText) > 0) then
    AntiAmount := StrToInt(TEditAnti.getText)
  else
    AntiAmount := 0;

  if (Length(TEditPlayNum.getText) > 0) then
    playNum := StrToInt(TEditPlayNum.getText)
  else
    playNum := 0;

  if (Length(TEditCloseTime.getText) > 0) then
    closeAllOften := StrToInt(TEditCloseTime.GetText)
  else
    closeAllOften := 0;

  if (Length(TEditDismissTime.getText) > 0) then
    dismissAllOften := StrToInt(TEditDismissTime.GetText)
  else
    dismissAllOften := 0;

  if (Length(TEditLookForChatTime.getText) > 0) then
    lookForChatOften := StrToInt(TEditLookForChatTime.GetText)
  else
    lookForChatOften := 0;

  if (Length(TEditLevelupTime.getText) > 0) then
    checkForLevelOften := StrToInt(TEditLevelupTime.GetText)
  else
    checkForLevelOften := 0;

  if (Length(TEditChatTime.getText) > 0) then
    chatTimeOften := StrToInt(TEditChatTime.GetText)
  else
    chatTimeOften := 0;

  if (Length(TEditUpdateTime.getText) > 0) then
    updateAllOften := StrToInt(TEditUpdateTime.GetText)
  else
    updateAllOften := 0;

  if (Length(TEditWaitOften.getText) > 0) then
    cpuLoadOften := StrToInt(TEditWaitOften.GetText)
  else
    cpuLoadOften := 0;

  if (Length(TEditWaitTime.getText) > 0) then
    cpuLoadWait := StrToInt(TEditWaitTime.GetText)
  else
    cpuLoadWait := 0;

  if (Length(TEditScreenTime.getText) > 0) then
    updateScreenOften := StrToInt(TEditScreenTime.GetText)
  else
    updateScreenOften := 0;

  if (Length(TEditbin.getText) > 0) then
    breakIn := StrToInt(TEditbin.getText)
  else
    breakIn := 0;

  if (Length(TEditbrin.getText) > 0) then
    breakInRandom := StrToInt(TEditbrin.getText)
  else
    breakInRandom := 0;

  if (Length(TEditbfor.getText) > 0) then
    breakFor := StrToInt(TEditbfor.getText)
  else
    breakFor := 0;

  if (Length(TEditbrfor.getText) > 0) then
    breakForRandom := StrToInt(TEditbrfor.getText)
  else
    breakForRandom := 0;

  if (Length(TEditItemDis.getText) > 0) then
    ItemCheckDistance := StrToInt(TEditItemDis.GetText)
  else
    ItemCheckDistance := 0;

  if (Length(TEditItemTime.getText) > 0) then
    gItemOften := StrToInt(TEditItemTime.GetText)
  else
    gItemOften := 0;

  SoundString := TEditSound.getText;

  breakIn := breakIn*60000;
  breakInRandom := breakInRandom*60000;
  breakFor := breakFor*60000;
  breakForRandom := breakForRandom*60000;

  breakInTimer.restart;
  breakInFinal := breakIn + randomRange(-breakInRandom, breakInRandom);

  TFormBreak.Free;
  TFormExtra.Free;
  TFormMain.Free;
end;

procedure ShowForm();
var
  tempBMP : integer;
  IniString, picString, crypt : string;
begin
  daLogger.Init('Script', TReflectLoggerLevel.Status);

  picString := GetPage(PicturePage);

  tempBMP := BitmapFromString(374, 208, picString);
  TMainBMP.Init;
  TMainBMP := GetMufasaBitmap(tempBMP).ToTBitmap;
  freeBitmap(tempBMP);

  started := false;
  saving := false;
  loading := false;
  job := -1;
  playNum := 0;
  IniString := scriptPath+'ineedbot''s AIO Woodcutter user details.ini';

  sync(ShowFormModal);
  while saving or loading do begin
    if saving then begin
      writeini('chat', intToStr(playNum), schat, IniString);
      writeini('wait', intToStr(playNum), swait, IniString);
      writeini('name', intToStr(playNum), sname, IniString);

      crypt := spass;
      rc2_encrypt('ineedbotschop', htMD5, crypt);
      writeini('pass', intToStr(playNum), crypt, IniString);

      writeini('pin', intToStr(playNum), spin, IniString);
      writeini('world', intToStr(playNum), sworld, IniString);
      writeini('amount', intToStr(playNum), samount, IniString);
      writeini('run', intToStr(playNum), srun, IniString);
      writeini('anti', intToStr(playNum), santi, IniString);
      writeini('type', intToStr(playNum), stype, IniString);
      writeini('loc', intToStr(playNum), sloc, IniString);
      writeini('mouse', intToStr(playNum), smouse, IniString);
      writeini('bank', intToStr(playNum), sbank, IniString);
      writeini('spec', intToStr(playNum), sspec, IniString);
      writeini('bfor', intToStr(playNum), sbfor, IniString);
      writeini('brfor', intToStr(playNum), sbrfor, IniString);
      writeini('bin', intToStr(playNum), sbin, IniString);
      writeini('brin', intToStr(playNum), sbrin, IniString);
      writeini('brake', intToStr(playNum), sbreak, IniString);
      writeini('sound', intToStr(playNum), ssound, IniString);
      writeini('dismisst', intToStr(playNum), sdismisst, IniString);
      writeini('lchatt', intToStr(playNum), slchatt, IniString);
      writeini('chatt', intToStr(playNum), schatt, IniString);
      writeini('updatet', intToStr(playNum), supdatet, IniString);
      writeini('screent', intToStr(playNum), sscreent, IniString);
      writeini('levelt', intToStr(playNum), slevelt, IniString);
      writeini('waitt', intToStr(playNum), swaitt, IniString);
      writeini('waito', intToStr(playNum), swaito, IniString);
      writeini('closet', intToStr(playNum), scloset, IniString);
      writeini('itemd', intToStr(playNum), sitemd, IniString);
      writeini('drop', intToStr(playNum), sdrop, IniString);
      writeini('itemt', intToStr(playNum), sitemt, IniString);
    end;
    if (loading or saving) and FileExists(IniString) then begin
      schat := ReadINI('chat', intToStr(playNum), IniString);
      swait := ReadINI('wait', intToStr(playNum), IniString);
      sname := ReadINI('name', intToStr(playNum), IniString);

      crypt := ReadINI('pass', intToStr(playNum), IniString);
      rc2_decrypt('ineedbotschop', htMD5, crypt);
      spass := crypt;

      spin := ReadINI('pin', intToStr(playNum), IniString);
      sworld := ReadINI('world', intToStr(playNum), IniString);
      samount := ReadINI('amount', intToStr(playNum), IniString);
      srun := ReadINI('run', intToStr(playNum), IniString);
      santi := ReadINI('anti', intToStr(playNum), IniString);
      stype := ReadINI('type', intToStr(playNum), IniString);
      sloc := ReadINI('loc', intToStr(playNum), IniString);
      smouse := ReadINI('mouse', intToStr(playNum), IniString);
      sbank := ReadINI('bank', intToStr(playNum), IniString);
      sspec := ReadINI('spec', intToStr(playNum), IniString);
      sbfor := ReadINI('bfor', intToStr(playNum), IniString);
      sbrfor := ReadINI('brfor', intToStr(playNum), IniString);
      sbin := ReadINI('bin', intToStr(playNum), IniString);
      sbrin := ReadINI('brin', intToStr(playNum), IniString);
      sbreak := ReadINI('brake', intToStr(playNum), IniString);
      ssound := ReadINI('sound', intToStr(playNum), IniString);
      sdismisst := ReadINI('dismisst', intToStr(playNum), IniString);
      slchatt := ReadINI('lchatt', intToStr(playNum), IniString);
      schatt := ReadINI('chatt', intToStr(playNum), IniString);
      supdatet := ReadINI('updatet', intToStr(playNum), IniString);
      sscreent := ReadINI('screent', intToStr(playNum), IniString);
      slevelt := ReadINI('levelt', intToStr(playNum), IniString);
      swaitt := ReadINI('waitt', intToStr(playNum), IniString);
      swaito := ReadINI('waito', intToStr(playNum), IniString);
      scloset := ReadINI('closet', intToStr(playNum), IniString);
      sitemd := ReadINI('itemd', intToStr(playNum), IniString);
      sdrop := ReadINI('drop', intToStr(playNum), IniString);
      sitemt := ReadINI('itemt', intToStr(playNum), IniString);
    end;
    sync(showFormModal);
  end;

  TMainBMP.free;
end;

procedure doUpdateScreen;
var currentWoodXp, CurrentFireLevel, CurrentWoodLevel, currentFletchXp, currentFireXP, tempInt, i, h, tempCheck, tempCheck2, TimeRunning, myPlane: integer;
    _items : TReflectInvItemArray;
    perHour : extended;
    _eitems : TReflectWornEquipmentArray;
    tB : TBox;
    tObj : TReflectObject;
    RSTile, rsTile2 : TPoint;
    BankNPCIDs : TIntegerArray;
    _npcs : TReflectNpcArray;
    t_string : string;
begin
  graphicOpti.DrawClear(0);

  currentWoodLevel := ReflectPlayer.GetMaxSkillLevel(SKILL_WOODCUTTING);
  currentFletchXP := ReflectPlayer.GetSkillExp(SKILL_Fletching);
  currentWoodXP := ReflectPlayer.GetSkillExp(SKILL_WOODCUTTING);
  currentFireLevel := ReflectPlayer.GetMaxSkillLevel(SKILL_FireMaking);
  currentFireXP := ReflectPlayer.GetSkillExp(SKILL_FireMaking);

  TimeRunning := GetTimeRunning;
  perHour := 3600000/TimeRunning;

  myPlane := Reflect.Tiles.GetPlane;

  tempInt := Reflect.Gametab.CurrentColor;
  if tempInt = Gametab_Inventory then begin
    _items.GetAll;
    for i:=0 to high(_items) do begin
      h := _items[i].getid;
      if(inIntArray(AxeIDs, h))then begin
        tB := _items[i].GetBox;
        graphicOpti.DrawClippedText('Axe', 'upchars07', Point(tB.x1 - 5, tB.y1), true, 65280);
      end else begin
        if(inIntArray(KnifeIDs, h))then begin
          tB := _items[i].GetBox;
          graphicOpti.DrawClippedText('Knife', 'upchars07', Point(tB.x1 - 5, tB.y1), true, 65280);
        end else begin
          if(inIntArray(TinderIDs, h))then begin
            tB := _items[i].GetBox;
            graphicOpti.DrawClippedText('Tind.', 'upchars07', Point(tB.x1 - 5, tB.y1), true, 65280);
          end else begin
            if(inIntArray(CoinsIDs, h))then begin
              tB := _items[i].GetBox;
              graphicOpti.DrawClippedText('Coins', 'upchars07', Point(tB.x1 - 5, tB.y1), true, 65280);
            end else begin
              if(inIntArray(NestIDs, h))then begin
                tB := _items[i].GetBox;
                graphicOpti.DrawClippedText('Nest', 'upchars07', Point(tB.x1 - 5, tB.y1), true, 65280);
              end else begin
                if(inIntArray(ShaftIDs, h))then begin
                  tB := _items[i].GetBox;
                  graphicOpti.DrawClippedText('Shaft', 'upchars07', Point(tB.x1 - 5, tB.y1), true, 65280);
                end else begin
                  if(inIntArray(GreeGreeIds, h))then begin
                    tB := _items[i].GetBox;
                    graphicOpti.DrawClippedText('Gree', 'upchars07', Point(tB.x1 - 5, tB.y1), true, 65280);
                  end else begin
                    if(inIntArray(TradingSticksIds, h))then begin
                      tB := _items[i].GetBox;
                      graphicOpti.DrawClippedText('Sticks', 'upchars07', Point(tB.x1 - 5, tB.y1), true, 65280);
                    end else begin
                      for tempCheck := 0 to high(DaLocation.Logs) do
                        if h = DaLocation.Logs[tempCheck].ID then begin
                          tB := _items[i].GetBox;
                          graphicOpti.DrawClippedText('Log', 'upchars07', Point(tB.x1 - 5, tB.y1), true, 65280);
                        end;
                    end;
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
  end else begin
    if tempInt = Gametab_WornEquipment then begin
      _eitems.GetAll;
      for i:=0 to high(_eitems) do begin
        h := _eitems[i].getID;
        if(inIntArray(AxeIDs, h))then begin
          tB := _eitems[i].getBox;
          graphicOpti.DrawClippedText('Axe', 'upchars07', Point(tB.x1 - 5, tB.y1), true, 65280);
        end;
      end;
    end;
  end;

  for i:=0 to high(DaLocation.BankLocations) do begin
    if myPlane = DaLocation.BankLocations[i].Plane then begin
      if R_TileOnMM(DaLocation.BankLocations[i].Tile, RSTile) then begin
        graphicOpti.DrawEllipse(RSTile, 5, 5, clBlue, false);
        if R_TileOnMS(DaLocation.BankLocations[i].Tile, RSTile, DaLocation.BankLocations[i].Offset[0], DaLocation.BankLocations[i].Offset[1], DaLocation.BankLocations[i].Offset[2]) then begin
          graphicOpti.DrawClippedText(DaLocation.BankLocations[i].Name, 'upchars07', RSTile, true, clBlue);
        end;
      end;
    end;
  end;

  for i:=0 to high(DaLocation.TreeLocations) do begin
    if R_TileOnMM(DaLocation.TreeLocations[i], RSTile) then begin
      graphicOpti.DrawEllipse(RSTile, 5, 5, clGreen, false);
      if R_TileOnMS(DaLocation.TreeLocations[i], RSTile) then begin
        graphicOpti.DrawClippedText('Trees', 'upchars07', RSTile, true, clGreen);
      end;
    end;
  end;

  for i:=0 to high(DaLocation.FireLanes) do begin
    if myPlane = DaLocation.FireLanes[i].Plane then begin
      if R_TileOnMM(daLocation.FireLanes[i].Tile, RSTile) then begin
        graphicOpti.DrawEllipse(RSTile, 5, 5, clOrange, false);
        if R_TileOnMS(daLocation.FireLanes[i].Tile, RSTile) then begin
          graphicOpti.DrawClippedText('FireStart', 'upchars07', RSTile, true, clOrange);
        end;
      end;
      if R_TileOnMM(Point(daLocation.FireLanes[i].Tile.x-daLocation.FireLanes[i].Length, daLocation.FireLanes[i].Tile.y), RSTile) then begin
        graphicOpti.DrawEllipse(RSTile, 5, 5, clOrange, false);
        if R_TileOnMS(Point(daLocation.FireLanes[i].Tile.x-daLocation.FireLanes[i].Length, daLocation.FireLanes[i].Tile.y), RSTile) then begin
          graphicOpti.DrawClippedText('FireEnd', 'upchars07', RSTile, true, clOrange);
        end;
      end;
    end;
  end;

  for i:=0 to high(daLocation.BankNPCs) do
    for h:=0 to high(daLocation.BankNPCs[i].IDs) do begin
      setLength(BankNPCIDs, length(BankNPCIDs)+1);
      BankNPCIDs[high(BankNPCIDs)] := daLocation.BankNPCs[i].IDs[h];
    end;
  _npcs.GetAll;
  for i:=0 to high(_npcs) do begin
    if(inIntArray(BankNPCIDs, _npcs[i].getid))then begin
      rsTile2 := _npcs[i].gettile;
      if R_TileOnMM(rsTile2, RSTile) then begin
        graphicOpti.DrawEllipse(RSTile, 5, 5, clBlue, false);
        if R_TileOnMS(rsTile2, RSTile) then
          graphicOpti.DrawClippedText(_npcs[i].getname, 'upchars07', RSTile, true, clBlue);
      end;
    end;
  end;

  for i:=0 to high(daLocation.DoorObjects) do begin
    if myPlane = daLocation.DoorObjects[i].Plane then begin
      if R_TileOnMM(daLocation.DoorObjects[i].Tile, RSTile) then begin
        graphicOpti.DrawEllipse(RSTile, 5, 5, clGray, false);
        if R_TileOnMS(daLocation.DoorObjects[i].Tile, RSTile, daLocation.DoorObjects[i].Offset[0], daLocation.DoorObjects[i].Offset[1], daLocation.DoorObjects[i].Offset[2]) then begin
          tObj.GetAt(ObjBoundary, daLocation.DoorObjects[i].Tile);
          if not Reflect.Smart.IsNull(tObj.Reference) then begin
            graphicOpti.DrawClippedText('Closed door', 'upchars07', RSTile, true, clGray);
          end else begin
            graphicOpti.DrawClippedText('Opened door', 'upchars07', RSTile, true, clGray);
          end;
        end;
      end;
    end;
  end;

  for i:=0 to high(daLocation.TreeObjects) do begin
    if myPlane = daLocation.TreeObjects[i].Plane then begin
      tObj.GetAt(ObjGame, daLocation.TreeObjects[i].Tile);
      if not Reflect.Smart.IsNull(tObj.Reference) then
        h := tObj.GetId
      else
        h := -1;
      if inIntArray(daLocation.TreeObjects[i].AliveIDs, h) then begin
        t_string := 'Alive '+daLocation.TreeObjects[i].Name;
        daLocation.TreeObjects[i].Timer.Restart;
        daLocation.TreeObjects[i].Timer.StartTime := -1;
      end else begin
        if inIntArray(daLocation.TreeObjects[i].DeadIDs, h) then begin
          if (daLocation.TreeObjects[i].Timer.StartTime = -1) then
            daLocation.TreeObjects[i].Timer.reStart;
          t_string := 'Dead '+daLocation.TreeObjects[i].Name+'('+floatToStr(daLocation.TreeObjects[i].Timer.Elapsedtime / 1000)+')';
        end else begin
          if (daLocation.TreeObjects[i].Timer.StartTime = -1) then
            daLocation.TreeObjects[i].Timer.reStart;
          t_string := 'Unknown '+daLocation.TreeObjects[i].Name+' ID('+intToStr(h)+')';
        end;
      end;

      if R_TileOnMM(daLocation.TreeObjects[i].Tile, RSTile) then begin
        graphicOpti.DrawEllipse(RSTile, 5, 5, clAqua, false);
        if R_TileOnMS(daLocation.TreeObjects[i].Tile, RSTile, daLocation.TreeObjects[i].Offset[0], daLocation.TreeObjects[i].Offset[1], daLocation.TreeObjects[i].Offset[2]) then begin
          graphicOpti.DrawClippedText(t_string, 'upchars07', RSTile, true, clAqua);
        end;
      end;
    end;
  end;

  tempInt := 20;
  graphicOpti.DrawClippedText('Status: '+scriptStatus, 'upchars07', Point(5, tempInt), true, 65280);
  tempInt:=tempInt+15;
  tempCheck := currentWoodXP-startWoodXP;
  if (tempCheck > 0) then begin
    tempCheck2 := Round(tempCheck*perHour);
    graphicOpti.DrawClippedText('Woodcutting XP gained: '+intToStr(tempCheck)+'('+InttoStr(tempCheck2)+'), level: '+intToStr(currentWoodLevel)+'('+InttoStr(CurrentWoodLevel-StartWoodLevel)+') TTL: '+Reflect.Time.msToTime(Round(varExpToGoal(CurrentWoodXP, CurrentWoodLevel+1)/(((CurrentWoodXP-startWoodXP))/GetTimeRunning)), Time_Bare), 'upchars07', Point(5, tempInt), true, 65280);
    tempInt:=tempInt+15;
  end;
  tempCheck := currentFletchXP-startFletchXP;
  if (tempCheck > 0) then begin
    tempCheck2 := Round(tempCheck*perHour);
    graphicOpti.DrawClippedText('Fletching XP gained: '+intToStr(tempCheck)+'('+InttoStr(tempCheck2)+')', 'upchars07', Point(5, tempInt), true, 65280);
    tempInt:=tempInt+15;
  end;
  tempCheck := currentFireXP-startFireXP;
  if (tempCheck > 0) then begin
    tempCheck2 := Round(tempCheck*perHour);
    graphicOpti.DrawClippedText('Firemaking XP gained: '+intToStr(tempCheck)+'('+InttoStr(tempCheck2)+'), level: '+intToStr(currentFireLevel)+'('+InttoStr(CurrentFireLevel-StartFireLevel)+') TTL: '+Reflect.Time.msToTime(Round(varExpToGoal(CurrentFireXP, CurrentFireLevel+1)/(((CurrentFireXP-startFireXP))/GetTimeRunning)), Time_Bare), 'upchars07', Point(5, tempInt), true, 65280);
    tempInt:=tempInt+15;
  end;
  tempCheck := 0;
  for i:=0 to high(DaLocation.Logs) do
    tempCheck := tempCheck + DaLocation.Logs[i].chopped;
  if (tempCheck > 0) then begin
    tempCheck2 := Round(tempCheck*perHour);
    graphicOpti.DrawClippedText('Chopped: '+intToStr(tempCheck)+'('+InttoStr(tempCheck2)+'), nests: '+intToStr(nests), 'upchars07', Point(5, tempInt), true, 65280);
    tempInt:=tempInt+15;
    if daLocation.canBank and not daLocation.canFire and not daLocation.isSell and not daLocation.canFletch then begin
      tempCheck := 0;
      for i:=0 to high(DaLocation.Logs) do
        tempCheck := tempCheck + (DaLocation.Logs[i].price*DaLocation.Logs[i].chopped);
      tempCheck2 := Round(tempCheck*perHour);
      graphicOpti.DrawClippedText('Profit: '+intToStr(tempCheck)+'('+InttoStr(tempCheck2)+')', 'upchars07', Point(5, tempInt), true, 65280);
      tempInt:=tempInt+15;
    end;
  end;
  if useBreaks then begin
    graphicOpti.DrawClippedText('Breaks taken: '+intToStr(breaks)+', next break in: '+Reflect.Time.msToTime(breakInFinal-breakInTimer.Elapsedtime, Time_Bare), 'upchars07', Point(5, tempInt), true, 65280);
    tempInt:=tempInt+15;
  end;
  graphicOpti.DrawClippedText('Current job: '+daLocation.Name+', bank:'+boolToStr(daLocation.canBank)+', fletch:'+boolToStr(daLocation.canfletch)+', fire:'+boolToStr(daLocation.canfire), 'upchars07', Point(5, tempInt), true, 65280);
  tempInt:=tempInt+15;
  graphicOpti.DrawClippedText('Ran for '+Reflect.Time.msToTime(getTimeRunning(), TIME_FORMAL)+'. Script version: '+floatToStr(version)+'('+floatToStr(fversion)+')', 'upchars07', Point(5, tempInt), true, 65280);

  Reflect.Smart.Graphics.DrawBitmap(graphicOpti, Point(0, 0), true);
end;

procedure sleepScript(tim:integer);override;
var _t : treflecttimer;
begin
  if cpuLoadWait < 0 then begin
    sleep(tim);
  end else begin
    if cpuLoadWait = 0 then begin

    end else begin
      _t.restart;
      while (_t.Elapsedtime < tim) do
        sleep(cpuLoadWait);
    end;
  end;
end;

procedure updateScreen(_string:string);override;
begin
  if (_string <> '') then
    scriptStatus := _string;
  if cpuLoadOften > 0 then
    sleepScript(cpuLoadOften);
  if updateScreenTimer.Elapsedtime > updateScreenOften then begin
    doUpdateScreen;
    updateScreenTimer.restart;
  end;
end;

procedure TReflectObjectArray.GetAll2(ObjType: TObjectType; Distance: Integer; Position: TPoint);
var
  Multi, BaseX, BaseY, X, Y, I, Count, Plane, HighX, HighY: integer;
  Temp: TReflectObject;
  ObjectHook, SceneHook: THook;
begin
  if not Reflect.Mem.IsNull(ckObject) then
    Reflect.Mem.FreeObjects(ckObject, True);
  Distance := Round(Distance / 2);
  if HookCache[TCacheKey.ckRegion][0] = 0 then
    Reflect.Mem.GetObject(ckNull, ckRegion, Client_Region, 0, 0);
  BaseX := Reflect.Misc.BaseX;
  BaseY := Reflect.Misc.BaseY;
  Position := Point(Position.X - BaseX, Position.Y - BaseY);
  Plane := Reflect.Tiles.GetPlane;
  HighX := Position.X + Distance;
  HighY := Position.Y + Distance;
  if HighX > 103 then
    HighX := 103;
  if HighY > 103 then
    HighY := 103;
  SetLength(Self, 10817);
  for X := Position.X - Distance to HighX do
    for Y := Position.Y - Distance to HighY do
    begin
      Reflect.Mem.Get3DObject(ckRegion, ckSceneTile, Region_SceneTiles,
        Count, 0, Plane, X, Y);
      Temp._ObjType := ObjType;
      Temp._GetObject(Count, Point(BaseX + X, BaseY + Y));
      Inc(Count);
      if Temp.Reference = 0 then
        Continue;
      Self[I] := Temp;
      Inc(I);
    end;
    SetLength(Self, I);
    Reflect.Mem.FreeObjects(ckSceneTile, Count);
    Self.Sort;
end;

function apeAtollIsChopping(_treeTile : TPoint;_ids:TIntegerArray):boolean;
var invC, _id : integer;
    timer : treflecttimer;
    tObj : TReflectObject;
begin
  if daLocation.ID <> 36 then
    exit(false);
  timer.restart;
  invC := Reflect.Inv.Count;
  tObj.GetAt(ObjGame, _treeTile);
  if not Reflect.Smart.IsNull(tObj.Reference) then
    _id := tObj.GetId
  else
    _id := -1;
  while ReflectPlayer.IsLoggedIn and (timer.Elapsedtime < 5000) and (invC = Reflect.Inv.Count) and
  not ReflectPlayer.IsUnderAttack and inIntArray(_ids, _id) do begin
    randomHandler;
    FixActive;
    UpdateScreen('Chopping tree...');
    tObj.GetAt(ObjGame, _treeTile);
    if not Reflect.Smart.IsNull(tObj.Reference) then
      _id := tObj.GetId
    else
      _id := -1;
  end;
  result := (invC <> Reflect.Inv.Count);
end;

function daLocation.getLogIDs: TIntegerArray;
var i : integer;
begin
  for i:=0 to high(daLocation.Logs) do begin
    setLength(result, length(result)+1);
    result[high(result)] := daLocation.Logs[i].ID;
  end;
end;

function getActivatedSlot:integer;
var i : integer;
begin
  result := -1;
  for i:=1 to 28 do begin
    if slotActivated(i) then begin
      exit(i);
    end;
  end;
end;

function getActiveItemID:integer;
var i, h : integer;
    _items : TReflectInvItemArray;
begin
   _items.GetAll;
   h := getActivatedSlot;

   for i:=0 to high(_items) do
      if (_items[i].GetInvSlot = h) then
        exit(_items[i].GetID);
end;

function getGoodFireLaneIndices : TIntegerArray;
var i, h : integer;
    _obj : TReflectObject;
    goodArray : boolean;
begin
  for i:=0 to high(daLocation.Firelanes) do begin
    if Reflect.Tiles.GetPlane = daLocation.Firelanes[i].Plane then begin
      goodArray := true;
      for h:=daLocation.Firelanes[i].Tile.x downto (daLocation.Firelanes[i].Tile.x - daLocation.Firelanes[i].Length) do begin
        _obj.GetAt(ObjGame, Point(h, daLocation.Firelanes[i].Tile.Y));
        if not Reflect.Smart.IsNull(_obj.Reference) and inIntArray(FireIDs, _obj.GetId) then begin
          goodArray := false;
          break;
        end;
      end;
      if goodArray then begin
        setLength(result, length(result)+1);
        result[high(result)] := i;
      end;
    end;
  end;
end;

procedure dynChop;
var wclevel, i, coins : integer;
    equ : string;
    tP : TPoint;
    tB : TBox;
    _item : TReflectInvItem;
    _obj : TReflectObject;
    foundAxe : boolean;
    logIDs : TIntegerArray;
begin
  case job of
    7:begin
      equ := R_GetEquipText;
      foundAxe := ((equ = 'Steel axe') or (_item.Find('Steel axe')));

      if (equ = 'Unarmed') and _item.Find('Bronze axe') then begin
        if Reflect.Gametab.CurrentColor <> Gametab_Inventory then
          Reflect.Gametab.Open(Gametab_Inventory);
        _item.Interact(Mouse_left);
        sleepScript(1000+random(1000));
      end;

      wclevel := ReflectPlayer.GetMaxSkillLevel(SKILL_WOODCUTTING);

      logIDs := daLocation.getLogIDs;

      if _item.Find('Coins') then
        coins := _item.GetQuantity
      else
        coins := 0;

      setLength(daLocation.DoorObjects, 2);
      with daLocation.DoorObjects[0] do begin
        TileOffset := [0, 0];
        Plane := 0;
        Actions := ['Open'];
        Tile := Point(3215, 3245);
        Offset := [-62, 0, 100];
        TileEncompass := [Point(3208, 3244), Point(3210, 3242), Point(3212, 3242), Point(3214, 3244), Point(3214, 3249), Point(3212, 3251), Point(3210, 3251), Point(3208, 3249)];
      end;
      with daLocation.DoorObjects[1] do begin
        Plane := 0;
        TileOffset := [0, 0];
        Tile := Point(3234, 3203);
        Actions := ['Open'];
        Offset := [-62, 0, 100];
        TileEncompass := [Point(3233, 3205), Point(3233, 3201), Point(3228, 3201), Point(3228, 3205)];
      end;

      if wclevel >= 6 then begin
        if coins >= 208 then begin
          if not foundAxe then begin
            while ReflectPlayer.IsLoggedIn and not foundAxe and (coins >= 208) do begin
              foundAxe := ((R_GetEquipText = 'Steel axe') or (_item.Find('Steel axe')));
              if _item.Find('Coins') then
                coins := _item.GetQuantity
              else
                coins := 0;

              updateScreen('Going to go buy axe.');
              if Reflect.Inv.IsFull then begin
                if _item.Find(LogIDs) then begin
                  _item.Interact('Drop');
                  sleepScript(1000+random(1000));
                end;
              end;

              daLocation.DoorObjects[1].Open(false);
              if not Reflect.Shop.IsOpen then begin
                updateScreen('Trading Bob.');
                R_TryInteractNPC([505], ['Trade'], 5, 0, 0, 50);
                ReflectPlayer.FFlag(0, 5000+random(500));
                sleepScript(random(1000));
              end;
              updateScreen('Buying axe.');
              if Reflect.Shop.IsOpen then begin
                Reflect.Mouse.Move(Point(235, 81), 5, 5, Mouse_right);
                if Reflect.Text.ChooseOption('Buy 1') then
                  foundAxe := true;
                sleepScript(1000+random(1000));
                Reflect.Mouse.Move(Point(488, 43), 5, 5, Mouse_Left);
                sleepScript(1000+random(1000));
              end;
            end;
          end;
        end;
      end;

      daLocation.DoorObjects[1].Open(true);
      if wclevel >= 15 then begin
        if wclevel >= 30 then begin
          daLocation.ID := 1;

          daLocation.canBank := true;
          setLength(daLocation.BankNPCs, 1);
          with daLocation.BankNPCs[0] do begin
            Locations := [Point(3212, 3246)];
            Names := [];
            Plane := 0;
            IDs := [507, 506];
            Options := ['Trade S'];
            Offset := [0, 0, 50];
          end;
          daLocation.isSell := true;

          daLocation.isPower := false;
          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(264, 413);
          daLocation.TreeLocations := [Point(3234, 3242)];

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.TreeObjects, 2)
          with daLocation.TreeObjects[0] do begin
            Offset := [62, 62, 200];
            TileOffset := [0, 2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 0;
            Tile := Point(3234, 3238);
            AliveIDs := [7482, 7422, 7480, 7424, 1760, 1750, 1756, 1758];
            DeadIds := [9471, 9711];
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [-62, 62, 200];
            TileOffset := [-1, -1];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 1;
            Tile := Point(3234, 3244);
            AliveIDs := [7482, 7422, 7480, 7424, 1760, 1750, 1756, 1758];
            DeadIds := [9471, 9711];
            Plane := 0;
          end;
        end else begin
          daLocation.ID := 0;

          daLocation.canBank := true;
          setLength(daLocation.BankNPCs, 1);
          with daLocation.BankNPCs[0] do begin
            Locations := [Point(3212, 3246)];
            Names := [];
            Plane := 0;
            IDs := [507, 506];
            Options := ['Trade S'];
            Offset := [0, 0, 50];
          end;
          daLocation.isSell := true;

          daLocation.isPower := false;
          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(264, 413);

          daLocation.RunDirections := ['rand'];
          daLocation.TreeLocations := [Point(3206, 3242)];

          setLength(daLocation.TreeObjects, 2)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, -2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 0;
            Tile := Point(3204, 3247);
            AliveIDs := [7417, 1751];
            DeadIDs := [1356];
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 1;
            Tile := Point(3205, 3240);
            AliveIDs := [7417, 1751];
            DeadIDs := [1356];
            Plane := 0;
          end;
        end;
      end else begin
        daLocation.ID := 41;
        setLength(daLocation.customIDs, 1);
        daLocation.customIDs[0] := [1278, 1276, 1286, 1282, 2091, 2092];
        daLocation.canFletch := true;
        daLocation.fletchPoint := Point(62, 421);

        daLocation.isPower := true;
        daLocation.RunDirections := ['n'];

        daLocation.TreeLocations := [Point(3171, 3233)];
        daLocation.distanceCheck := 26;
      end;
    end;
  end;
end;

procedure setupScript;
var i : integer;
    AliveTreeIDs, DeadTreeIDs, AliveOakIDs, DeadOakIDs, AliveWillowIDs, DeadWillowIDs, AliveMapleIDs, DeadMapleIDs, AliveYewIDs, DeadYewIDs, AliveMagicIDs, DeadMagicIDs : TIntegerArray;
begin
  graphicOpti.Init(Client.GetMBitmaps);
  graphicOpti.SetSize(765, 503);
  graphicOpti.SetTransparentColor(0);

  AddOnTerminate('FreeDTMZ');

  Reflect.Interfaces.CloseAll;
  updateAllRefVars;
  updateScreen('Setting up...');
  useStats := true;
  if useStats then
    statsServer.Setup('6');

  StartWoodXP := ReflectPlayer.GetSkillExp(SKILL_WOODCUTTING);
  StartWoodLevel := ReflectPlayer.GetMaxSkillLevel(SKILL_WOODCUTTING);
  StartFletchXP := ReflectPlayer.GetSkillExp(SKILL_FLETCHING);
  StartFireXP := ReflectPlayer.GetSkillExp(SKILL_FIREMAKING);
  StartFireLevel := ReflectPlayer.GetMaxSkillLevel(SKILL_FIREMAKING);

  LastXPXP := StartWoodXP;
  LastXPCheck.restart;
  statsWoodXP := StartWoodXP;
  statsFletchXP := StartFletchXP;
  statsFireXp := StartFireXP;
  statsProfit := 0;
  StatsTimer.restart;
  gItemTim.restart;
  StatsTime := 50000 + random(400000);

  Nests := 0;

  wasWorking := false;

  ChopAnimationIDs := [879, 877, 875, 873, 871, 869, 867, 2846];
  FletchAnimationIDs := [1248];
  ShaftIDs := [52];
  CoinsIDs := [995];
  KnifeIDs := [946];
  AxeIDs := [1351, 1349, 1357, 1359, 6739, 1355, 1361, 1353];
  NestIDs := [5069, 5070, 5071, 5072, 5073, 5074, 7412, 11965];
  TinderIDs := [590];
  FireIDs := [26185, 2986, 9380];
  FireAnimIDs := [733];
  GreeGreeIDs := [4030, 4026, 4031, 4024];
  TradingSticksIDs := [6306];

  AliveTreeIDs := [1276, 1278];
  DeadTreeIDs := [1342];
  AliveOakIDs := [7417, 1751];
  DeadOakIDs := [1356];
  AliveWillowIDs := [7482, 7422, 7480, 7424, 1760, 1750, 1756, 1758];
  DeadWillowIDs := [9471, 9711];
  AliveMapleIDs := [7481, 1759];
  DeadMapleIDs := [9712];
  AliveYewIDs := [7420, 7419, 1754, 1753];
  DeadYewIDs := [9714];
  AliveMagicIDs := [7483, 1762, 1761];
  DeadMagicIDs  := [9713];

  daLocation.BankLocations := [];
  daLocation.BankNPCs := [];
  daLocation.customIDs := [];
  daLocation.customTPAs := [];
  daLocation.DoorObjects := [];
  daLocation.FireLanes := [];
  daLocation.Logs := [];
  daLocation.PathToBank := [];
  daLocation.PathToTree := [];
  daLocation.RunDirections := [];
  daLocation.TreeLocations := [];
  daLocation.TreeObjects := [];
  daLocation.canBank := false;
  daLocation.canFire := false;
  daLocation.canFletch := false;
  daLocation.isDynamic := false;
  daLocation.isSell := false;
  daLocation.ID := -1;
  daLocation.Name := '';
  daLocation.isFar := false;
  daLocation.isPower := false;
  daLocation.fletchPoint := Point(-1, -1);

  PreviousTree.Tile := Point(-1, -1);

  case job of
    8..10:begin
      daLocation.canBank := true;
      setLength(daLocation.BankLocations, 3);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [2, -1];
        Tile := Point(3091, 3245);
        Options := ['Bank Bank booth'];
        Plane := 0;
        Name := 'Bank';
      end;
      with daLocation.BankLocations[1] do begin
        Offset := [0, 0, 50];
        TileOffset := [2, 0];
        Tile := Point(3091, 3243);
        Options := ['Bank Bank booth'];
        Plane := 0;
        Name := 'Bank';
      end;
      with daLocation.BankLocations[2] do begin
        Offset := [0, 0, 50];
        TileOffset := [2, 1];
        Tile := Point(3091, 3242);
        Options := ['Bank Bank booth'];
        Plane := 0;
        Name := 'Bank';
      end;

      case job of
        8:begin
          daLocation.ID := 8;
          daLocation.Name := 'Draynor Oaks';

          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(264, 413);

          daLocation.RunDirections := ['n', 'w'];

          daLocation.canFire := true;

          setLength(daLocation.FireLanes, 5);
          with daLocation.FireLanes[0] do begin
            Plane := 0;
            Length := 17;
            Tile := Point(3098, 3247);
          end;
          with daLocation.FireLanes[1] do begin
            Plane := 0;
            Length := 26;
            Tile := Point(3098, 3248);
          end;
          with daLocation.FireLanes[2] do begin
            Plane := 0;
            Length := 20;
            Tile := Point(3097, 3249);
          end;
          with daLocation.FireLanes[3] do begin
            Plane := 0;
            Length := 16;
            Tile := Point(3105, 3250);
          end;
          with daLocation.FireLanes[4] do begin
            Plane := 0;
            Length := 10;
            Tile := Point(3087, 3250);
          end;

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1521;

          daLocation.TreeLocations := [Point(3103, 3243)];

          setLength(daLocation.TreeObjects, 1);
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 250];
            TileOffset := [-2, 2];
            Tile := Point(3103, 3243);
            Options := ['Chop down Oak'];
            Name := 'Oak';
            Index := 0;
            AliveIDs := AliveOakIDs;
            DeadIds := DeadOakIDs;
            Timer.Restart;
            Timer.StartTime := -1;
          end;
        end;
        9:begin
          daLocation.ID := 9;
          daLocation.Name := 'Draynor Willows';

          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(264, 413);

          daLocation.RunDirections := ['n', 's', 'e'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1519;

          daLocation.canFire := true;

          setLength(daLocation.FireLanes, 5);
          with daLocation.FireLanes[0] do begin
            Plane := 0;
            Length := 17;
            Tile := Point(3102, 3237);
          end;
          with daLocation.FireLanes[1] do begin
            Plane := 0;
            Length := 17;
            Tile := Point(3102, 3238);
          end;
          with daLocation.FireLanes[2] do begin
            Plane := 0;
            Length := 22;
            Tile := Point(3102, 3239);
          end;
          with daLocation.FireLanes[3] do begin
            Plane := 0;
            Length := 26;
            Tile := Point(3116, 3234);
          end;
          with daLocation.FireLanes[4] do begin
            Plane := 0;
            Length := 21;
            Tile := Point(3111, 3235);
          end;

          daLocation.TreeLocations := [Point(3083, 3237)];

          setLength(daLocation.TreeObjects, 2);
          with daLocation.TreeObjects[0] do begin
            Offset := [75, 125, 200];
            TileOffset := [2, 0];
            Tile := Point(3083, 3237);
            Options := ['Chop down Willow'];
            Name := 'Willow';
            Index := 0;
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Timer.Restart;
            Timer.StartTime := -1;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [75, 75, 200];
            TileOffset := [0, 2];
            Tile := Point(3085, 3235);
            Options := ['Chop down Willow'];
            Name := 'Willow';
            Index := 1;
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Timer.Restart;
            Timer.StartTime := -1;
            Plane := 0;
          end;
          {with daLocation.TreeObjects[2] do begin
            Offset := [75, 75, 200];
            TileOffset := [0, 2];
            Tile := Point(3088, 3234);
            Options := ['Chop down Willow'];
            Name := 'Willow';
            Index := 2;
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Timer.Restart;
            Timer.StartTime := -1;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [75, 75, 200];
            TileOffset := [0, 2];
            Tile := Point(3087, 3231);
            Options := ['Chop down Willow'];
            Name := 'Willow';
            Index := 3;
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Timer.Restart;
            Timer.StartTime := -1;
            Plane := 0;
          end;
          with daLocation.TreeObjects[4] do begin
            Offset := [75, 75, 200];
            TileOffset := [0, 2];
            Tile := Point(3088, 3227);
            Options := ['Chop down Willow'];
            Name := 'Willow';
            Index := 4;
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Timer.Restart;
            Timer.StartTime := -1;
            Plane := 0;
          end; }
        end;
        10:begin
          daLocation.ID := 10;
          daLocation.Name := 'Draynor Yews';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.isFar := true;

          daLocation.TreeLocations := [Point(3152, 3231)];

          daLocation.PathToBank := [Point(3152, 3229), Point(3147, 3229), Point(3142, 3229), Point(3137, 3229), Point(3132, 3229), Point(3127, 3228), Point(3122, 3228), Point(3117, 3228), Point(3112, 3230), Point(3108, 3234), Point(3104, 3238), Point(3105, 3243), Point(3104, 3248), Point(3099, 3250), Point(3094, 3248), Point(3093, 3243)];
          daLocation.PathToTree := [Point(3093, 3244), Point(3096, 3249), Point(3101, 3250), Point(3105, 3246), Point(3105, 3241), Point(3105, 3236), Point(3109, 3233), Point(3113, 3230), Point(3118, 3228), Point(3123, 3228), Point(3128, 3228), Point(3133, 3228), Point(3138, 3228), Point(3143, 3228), Point(3148, 3229)];

          setLength(daLocation.TreeObjects, 4)
          with daLocation.TreeObjects[0] do begin
           Offset := [0, 0, 250];
           TileOffset := [0, -2];
           Options := ['Chop down Yew'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Yew';
           Index := 0;
           Tile := Point(3147, 3255);
           AliveIDs := AliveYewIDs;
           DeadIDs := DeadYewIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
           Offset := [0, 0, 250];
           TileOffset := [0, 0];
           Options := ['Chop down Yew'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Yew';
           Index := 1;
           Tile := Point(3152, 3231);
           AliveIDs := AliveYewIDs;
           DeadIDs := DeadYewIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
           Offset := [0, 0, 250];
           TileOffset := [0, 0];
           Options := ['Chop down Yew'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Yew';
           Index := 2;
           Tile := Point(3166, 3220);
           AliveIDs := AliveYewIDs;
           DeadIDs := DeadYewIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
           Offset := [0, 0, 250];
           TileOffset := [-2, 0];
           Options := ['Chop down Yew'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Yew';
           Index := 3;
           Tile := Point(3185, 3227);
           AliveIDs := AliveYewIDs;
           DeadIDs := DeadYewIDs;
           Plane := 0;
          end;
        end;
      end;
    end;
    24..29:begin
      daLocation.canBank := true;
      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, -2];
        Tile := Point(2727, 3494);
        Options := ['Bank Bank booth'];
        Plane := 0;
        Name := 'Bank';
      end;

      case job of
        24:begin
          daLocation.ID := 24;
          daLocation.Name := 'Seers Oaks';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1521;

          daLocation.TreeLocations := [Point(2731, 3485)];

          setLength(daLocation.TreeObjects, 1)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 0;
            Tile := Point(2731, 3485);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
        end;
        25:begin
          daLocation.ID := 25;
          daLocation.Name := 'Seers Willows';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1519;

          daLocation.TreeLocations := [Point(2711, 3510)];

          setLength(daLocation.TreeObjects, 5)
          with daLocation.TreeObjects[0] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Willow';
           Index := 0;
           Tile := Point(2719, 3506);
           AliveIDs := AliveWillowIDs;
           DeadIDs := DeadWillowIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Willow';
           Index := 1;
           Tile := Point(2711, 3512);
           AliveIDs := AliveWillowIDs;
           DeadIDs := DeadWillowIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Willow';
           Index := 2;
           Tile := Point(2709, 3511);
           AliveIDs := AliveWillowIDs;
           DeadIDs := DeadWillowIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Willow';
           Index := 3;
           Tile := Point(2712, 3509);
           AliveIDs := AliveWillowIDs;
           DeadIDs := DeadWillowIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[4] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Willow';
           Index := 4;
           Tile := Point(2708, 3514);
           AliveIDs := AliveWillowIDs;
           DeadIDs := DeadWillowIDs;
           Plane := 0;
          end;
        end;
        26:begin
          daLocation.ID := 26;
          daLocation.Name := 'Seers Maples';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1517;

          daLocation.TreeLocations := [Point(2728, 3500)];

          daLocation.PathToBank := [Point(2725, 3501), Point(2720, 3499), Point(2718, 3494), Point(2720, 3489), Point(2724, 3486), Point(2725, 3491)];
          daLocation.PathToTree := [Point(2725, 3491), Point(2725, 3486), Point(2720, 3489), Point(2718, 3494), Point(2721, 3499), Point(2726, 3499)];

          setLength(daLocation.TreeObjects, 4)
          with daLocation.TreeObjects[0] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 0;
           Tile := Point(2721, 3502);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 1;
           Tile := Point(2727, 3502);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 2;
           Tile := Point(2730, 3502);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 3;
           Tile := Point(2732, 3500);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
        end;
        27:begin
          daLocation.ID := 27;
          daLocation.Name := 'Seers Yews';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.TreeLocations := [Point(2710, 3462)];

          daLocation.PathToBank := [Point(2714, 3462), Point(2718, 3465), Point(2719, 3470), Point(2723, 3474), Point(2725, 3479), Point(2724, 3484), Point(2725, 3489), Point(2725, 3491)];
          daLocation.PathToTree := [Point(2726, 3491), Point(2726, 3486), Point(2727, 3481), Point(2726, 3476), Point(2724, 3471), Point(2723, 3466), Point(2718, 3463), Point(2714, 3462)];

          setLength(daLocation.TreeObjects, 3)
          with daLocation.TreeObjects[0] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Yew';
           Index := 0;
           Tile := Point(2715, 3460);
           AliveIDs := AliveYewIds;
           DeadIDs := DeadYewIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Yew';
           Index := 1;
           Tile := Point(2706, 3460);
           AliveIDs := AliveYewIds;
           DeadIDs := DeadYewIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Yew';
           Index := 2;
           Tile := Point(2706, 3465);
           AliveIDs := AliveYewIds;
           DeadIDs := DeadYewIDs;
           Plane := 0;
          end;
        end;
        28:begin
          daLocation.ID := 28;
          daLocation.Name := 'Seers Magics';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1513;

          daLocation.TreeLocations := [Point(2693, 3425)];

          daLocation.PathToBank := [Point(2695, 3425), Point(2700, 3425), Point(2702, 3430), Point(2702, 3435), Point(2701, 3440), Point(2704, 3444), Point(2708, 3448), Point(2713, 3451), Point(2717, 3454), Point(2719, 3459), Point(2719, 3464), Point(2719, 3469), Point(2722, 3473), Point(2725, 3478), Point(2727, 3483), Point(2726, 3488), Point(2725, 3491)];
          daLocation.PathToTree := [Point(2726, 3490), Point(2726, 3485), Point(2727, 3480), Point(2727, 3475), Point(2727, 3470), Point(2728, 3465), Point(2727, 3460), Point(2725, 3455), Point(2721, 3452), Point(2721, 3447), Point(2719, 3442), Point(2714, 3440), Point(2713, 3435), Point(2711, 3430), Point(2707, 3426), Point(2702, 3425), Point(2697, 3425), Point(2693, 3424)];

          setLength(daLocation.TreeObjects, 3)
          with daLocation.TreeObjects[0] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Magic';
           Index := 0;
           Tile := Point(2692, 3425);
           AliveIDs := AliveMagicIDs;
           DeadIDs := DeadMagicIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Magic';
           Index := 1;
           Tile := Point(2691, 3428);
           AliveIDs := AliveMagicIDs;
           DeadIDs := DeadMagicIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Magic';
           Index := 2;
           Tile := Point(2696, 3424);
           AliveIDs := AliveMagicIDs;
           DeadIDs := DeadMagicIDs;
           Plane := 0;
          end;
        end;
        29:begin
          daLocation.ID := 29;
          daLocation.Name := 'Seers Magics(2)';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1513;

          daLocation.TreeLocations := [Point(2700, 3397)];

          daLocation.PathToBank := [Point(2701, 3396), Point(2704, 3392), Point(2709, 3392), Point(2714, 3393), Point(2714, 3398), Point(2716, 3403), Point(2715, 3408), Point(2715, 3413), Point(2714, 3418), Point(2714, 3423), Point(2713, 3428), Point(2713, 3433), Point(2713, 3438), Point(2710, 3442), Point(2712, 3447), Point(2717, 3449), Point(2720, 3453), Point(2720, 3458), Point(2720, 3463), Point(2720, 3468), Point(2722, 3473), Point(2725, 3478), Point(2727, 3483), Point(2726, 3488), Point(2726, 3491)];
          daLocation.PathToTree := [Point(2725, 3491), Point(2726, 3486), Point(2727, 3481), Point(2726, 3476), Point(2724, 3471), Point(2723, 3466), Point(2723, 3461), Point(2719, 3457), Point(2716, 3453), Point(2713, 3448), Point(2710, 3444), Point(2710, 3439), Point(2711, 3434), Point(2713, 3429), Point(2713, 3424), Point(2713, 3419), Point(2715, 3414), Point(2715, 3409), Point(2716, 3404), Point(2716, 3399), Point(2715, 3394), Point(2710, 3393), Point(2705, 3392), Point(2701, 3395), Point(2702, 3397)];

          setLength(daLocation.TreeObjects, 4)
          with daLocation.TreeObjects[0] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Magic';
           Index := 0;
           Tile := Point(2705, 3397);
           AliveIDs := AliveMagicIDs;
           DeadIDs := DeadMagicIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Magic';
           Index := 1;
           Tile := Point(2705, 3399);
           AliveIDs := AliveMagicIDs;
           DeadIDs := DeadMagicIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Magic';
           Index := 2;
           Tile := Point(2699, 3397);
           AliveIDs := AliveMagicIDs;
           DeadIDs := DeadMagicIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Magic';
           Index := 3;
           Tile := Point(2699, 3399);
           AliveIDs := AliveMagicIDs;
           DeadIDs := DeadMagicIDs;
           Plane := 0;
          end;
        end;
      end;
    end;
    30..31:begin
      daLocation.canBank := true;
      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, -2];
        Tile := Point(2809, 3442);
        Options := ['Bank Bank booth'];
        Plane := 0;
        Name := 'Bank';
      end;
      case job of
        30:begin
          daLocation.ID := 30;
          daLocation.Name := 'Catherby Willows';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1519;

          daLocation.TreeLocations := [Point(2783, 3428)];

          setLength(daLocation.TreeObjects, 5)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 0;
            Tile := Point(2786, 3430);
            AliveIDs := AliveWillowIDs;
            DeadIDs := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 1;
            Tile := Point(2783, 3427);
            AliveIDs := AliveWillowIDs;
            DeadIDs := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 2;
            Tile := Point(2781, 3428);
            AliveIDs := AliveWillowIDs;
            DeadIDs := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 3;
            Tile := Point(2768, 3427);
            AliveIDs := AliveWillowIDs;
            DeadIDs := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[4] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 4;
            Tile := Point(2771, 3428);
            AliveIDs := AliveWillowIDs;
            DeadIDs := DeadWillowIDs;
            Plane := 0;
          end;
        end;
        31:begin
          daLocation.ID := 31;
          daLocation.Name := 'Catherby Yews';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.TreeLocations := [Point(2758, 3432)];

          daLocation.PathToBank := [Point(2760, 3430), Point(2765, 3430), Point(2770, 3431), Point(2775, 3433), Point(2780, 3435), Point(2785, 3432), Point(2790, 3432), Point(2795, 3433), Point(2800, 3433), Point(2805, 3433), Point(2808, 3437), Point(2809, 3439)];
          daLocation.PathToTree := [Point(2809, 3439), Point(2805, 3436), Point(2801, 3433), Point(2796, 3433), Point(2791, 3433), Point(2786, 3432), Point(2781, 3434), Point(2776, 3435), Point(2771, 3433), Point(2766, 3431), Point(2761, 3430), Point(2759, 3430)];

          setLength(daLocation.TreeObjects, 6)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(2758, 3434);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 1;
            Tile := Point(2756, 3431);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 2;
            Tile := Point(2761, 3432);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 3;
            Tile := Point(2755, 3434);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[4] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 4;
            Tile := Point(2760, 3428);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[5] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 5;
            Tile := Point(2766, 3428);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;
      end;
    end;
    19:begin
      daLocation.canBank := true;
      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [-2, 0];
        Tile := Point(3186, 3436);
        Options := ['Bank Bank booth'];
        Plane := 0;
        Name := 'Bank';
      end;

      daLocation.ID := 19;
      daLocation.Name := 'Varrock Oaks (west)';

      daLocation.RunDirections := ['rand'];

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1521;

      daLocation.PathToBank := [Point(3170, 3422), Point(3174, 3425), Point(3178, 3428), Point(3182, 3432), Point(3184, 3436)];
      daLocation.PathToTree := [Point(3184, 3436), Point(3181, 3432), Point(3177, 3429), Point(3173, 3426), Point(3170, 3421), Point(3170, 3423)];
      daLocation.TreeLocations := [Point(3170, 3422)];

      setLength(daLocation.TreeObjects, 3)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Oak';
        Index := 0;
        Tile := Point(3168, 3421);
        AliveIDs := AliveOakIDs;
        DeadIDs := DeadOakIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Oak';
        Index := 1;
        Tile := Point(3166, 3412);
        AliveIDs := AliveOakIDs;
        DeadIDs := DeadOakIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[2] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Oak';
        Index := 2;
        Tile := Point(3162, 3417);
        AliveIDs := AliveOakIDs;
        DeadIDs := DeadOakIDs;
        Plane := 0;
      end;
    end;
    20:begin
      daLocation.Name := 'Varrock Yews (palace)';
      daLocation.ID := 20;

      daLocation.RunDirections := ['rand'];

      daLocation.canBank := true;
      setLength(daLocation.BankNPCs, 1);
      with daLocation.BankNPCs[0] do begin
        Locations := [Point(3167, 3489)];
        Names := [];
        Plane := 0;
        IDs := [5456, 5455, 5454, 5453];
        Options := ['Bank B'];
        Offset := [0, 0, 50];
      end;

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1515;

      daLocation.TreeLocations := [Point(3207, 3502)];

      daLocation.PathToTree := [Point(3167, 3489), Point(3173, 3490), Point(3179, 3490), Point(3185, 3490), Point(3191, 3491), Point(3196, 3494), Point(3197, 3500), Point(3203, 3502), Point(3206, 3502)];
      daLocation.PathToBank := [Point(3206, 3502), Point(3200, 3502), Point(3195, 3499), Point(3192, 3494), Point(3187, 3491), Point(3181, 3491), Point(3175, 3491), Point(3169, 3491), Point(3167, 3489)];

      setLength(daLocation.TreeObjects, 3)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 250];
        TileOffset := [2, -2];
        Options := ['Chop down Yew'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Yew';
        Index := 0;
        Tile := Point(3205, 3504);
        AliveIDs := AliveYewIDs;
        DeadIDs := DeadYewIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 250];
        TileOffset := [0, 2];
        Options := ['Chop down Yew'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Yew';
        Index := 1;
        Tile := Point(3209, 3500);
        AliveIDs := AliveYewIDs;
        DeadIDs := DeadYewIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[2] do begin
        Offset := [0, 0, 250];
        TileOffset := [-2, -2];
        Options := ['Chop down Yew'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Yew';
        Index := 2;
        Tile := Point(3222, 3503);
        AliveIDs := AliveYewIDs;
        DeadIDs := DeadYewIDs;
        Plane := 0;
      end;
    end;
    21..23:begin
      daLocation.canBank := true;

      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, 0];
        Tile := Point(3254, 3419);
        Options := ['Bank B'];
        Plane := 0;
        Name := 'Bank';
      end;

      case job of
        21:begin
          daLocation.ID := 21;

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1521;

          daLocation.Name := 'Varrock East Oaks';

          daLocation.TreeLocations := [Point(3280, 3431)];

          setLength(daLocation.TreeObjects, 3)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 0;
            Tile := Point(3280, 3431);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 1;
            Tile := Point(3282, 3425);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 2;
            Tile := Point(3277, 3437);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
        end;
        22:begin
          daLocation.ID := 22;

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.Name := 'Varrock East Yews (pray)';

          daLocation.TreeLocations := [Point(3249, 3473)];

          setLength(daLocation.TreeObjects, 1)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(3249, 3473);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;
        23:begin
          daLocation.ID := 23;

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.Name := 'Varrock East Yews';

          daLocation.TreeLocations := [Point(3271, 3471)];

          daLocation.isFar := true;

          setLength(daLocation.TreeObjects, 3)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(3271, 3471);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 1;
            Tile := Point(3267, 3494);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 2;
            Tile := Point(3305, 3470);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;
      end;
    end;
    16..17:begin
      daLocation.canBank := true;
      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, 0];
        Tile := Point(3012, 3354);
        Options := ['Bank Bank booth'];
        Plane := 0;
        Name := 'Bank';
      end;

      case job of
        16:begin
          daLocation.ID := 16;
          daLocation.Name := 'Falador Oaks';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1521;

          daLocation.TreeLocations := [Point(3001, 3365)];

          setLength(daLocation.TreeObjects, 1)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 0;
            Tile := Point(3001, 3367);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
        end;
        17:begin
          daLocation.ID := 17;
          daLocation.Name := 'Falador Yews';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.isFar := true;

          daLocation.PathToBank := [Point(3006, 3317), Point(3006, 3322), Point(3006, 3327), Point(3006, 3332), Point(3006, 3337), Point(3006, 3342), Point(3006, 3347), Point(3006, 3352), Point(3006, 3357), Point(3011, 3359), Point(3013, 3357)];
          daLocation.PathToTree := [Point(3012, 3355), Point(3009, 3359), Point(3008, 3354), Point(3008, 3349), Point(3008, 3344), Point(3008, 3339), Point(3008, 3334), Point(3008, 3329), Point(3008, 3324), Point(3007, 3319), Point(3002, 3319), Point(2998, 3315), Point(2997, 3314)];
          daLocation.TreeLocations := [Point(2997, 3314)];

          setLength(daLocation.TreeObjects, 3)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(2997, 3312);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 1;
            Tile := Point(3020, 3316);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 2;
            Tile := Point(3042, 3320);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;
      end;
    end;
    11..12, 14:begin
      daLocation.canBank := true;
      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, 0];
        Tile := Point(3045, 3234);
        Options := ['Deposit'];
        Plane := 0;
        Name := 'Bank';
      end;

      case job of
        11:begin
          daLocation.ID := 11;
          daLocation.Name := 'Port Sarim Willows';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1519;

          daLocation.PathToBank := [Point(3059, 3252), Point(3054, 3252), Point(3052, 3247), Point(3047, 3246), Point(3042, 3245), Point(3042, 3240), Point(3042, 3235), Point(3045, 3235)];
          daLocation.PathToTree := [Point(3045, 3235), Point(3042, 3239), Point(3042, 3244), Point(3047, 3246), Point(3052, 3247), Point(3054, 3252), Point(3059, 3253)];
          daLocation.TreeLocations := [Point(3059, 3252)];

          setLength(daLocation.TreeObjects, 4)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 0;
            Tile := Point(3057, 3255);
            AliveIDs := AliveWillowIDs;
            DeadIDs := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 1;
            Tile := Point(3062, 3255);
            AliveIDs := AliveWillowIDs;
            DeadIDs := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 2;
            Tile := Point(3063, 3253);
            AliveIDs := AliveWillowIDs;
            DeadIDs := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 3;
            Tile := Point(3057, 3252);
            AliveIDs := AliveWillowIDs;
            DeadIDs := DeadWillowIDs;
            Plane := 0;
          end;
        end;
        14:begin
          daLocation.ID := 14;
          daLocation.Name := 'Rimmington Yews';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.BankLocations, 1);
          with daLocation.BankLocations[0] do begin
            Offset := [0, 0, 50];
            TileOffset := [0, 0];
            Tile := Point(3045, 3234);
            Options := ['Deposit'];
            Plane := 0;
            Name := 'Bank';
          end;

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.PathToBank := [Point(2935, 3228), Point(2940, 3228), Point(2945, 3229), Point(2950, 3228), Point(2955, 3228), Point(2960, 3227), Point(2965, 3225), Point(2970, 3225), Point(2975, 3225), Point(2980, 3225), Point(2985, 3223), Point(2990, 3223), Point(2995, 3222), Point(3000, 3222), Point(3005, 3219), Point(3009, 3215), Point(3014, 3215), Point(3019, 3217), Point(3024, 3217), Point(3027, 3221), Point(3027, 3226), Point(3027, 3231), Point(3029, 3236), Point(3034, 3236), Point(3039, 3236), Point(3044, 3236), Point(3045, 3235)];
          daLocation.PathToTree := [Point(3045, 3235), Point(3040, 3236), Point(3035, 3236), Point(3030, 3236), Point(3028, 3231), Point(3028, 3226), Point(3028, 3221), Point(3024, 3218), Point(3019, 3218), Point(3014, 3216), Point(3009, 3215), Point(3004, 3215), Point(2999, 3214), Point(2994, 3214), Point(2989, 3213), Point(2984, 3213), Point(2979, 3211), Point(2975, 3214), Point(2971, 3217), Point(2966, 3217), Point(2961, 3217), Point(2956, 3217), Point(2951, 3219), Point(2946, 3220), Point(2943, 3224), Point(2939, 3228), Point(2938, 3229)];
          daLocation.TreeLocations := [Point(2938, 3229)];

          setLength(daLocation.TreeObjects, 4)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(2936, 3230);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 1;
            Tile := Point(2941, 3233);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 2;
            Tile := Point(2934, 3234);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 3;
            Tile := Point(2935, 3226);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;
        12:begin
          daLocation.ID := 12;
          daLocation.Name := 'Port Sarim Yews';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.TreeLocations := [Point(3054, 3271)];

          setLength(daLocation.TreeObjects, 1)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(3054, 3271);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;
      end;
    end;
    13, 15:begin
      daLocation.canBank := true;
      setLength(daLocation.BankNPCs, 1);
      with daLocation.BankNPCs[0] do begin
        Locations := [Point(2949, 3215)];
        Names := [];
        Plane := 0;
        IDs := [516, 517];
        Options := ['Trade'];
        Offset := [0, 0, 50];
      end;
      daLocation.isSell := true;

      case job of
        13:begin
          daLocation.Name := 'Rimmington Willows (sell)';
          daLocation.ID := 13;

          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(264, 413);

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1519;

          daLocation.TreeLocations := [Point(2962, 3198)];

          setLength(daLocation.TreeObjects, 4)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 0;
            Tile := Point(2962, 3198);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 1;
            Tile := Point(2963, 3195);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 2;
            Tile := Point(2966, 3199);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 3;
            Tile := Point(2961, 3195);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0;
          end;
        end;
        15:begin
          daLocation.Name := 'Rimmington Yews (sell)';
          daLocation.ID := 15;

          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(264, 413);

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.TreeLocations := [Point(2938, 3229)];

          setLength(daLocation.TreeObjects, 4)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(2936, 3230);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 1;
            Tile := Point(2941, 3233);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 2;
            Tile := Point(2934, 3234);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 3;
            Tile := Point(2935, 3226);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;
      end;
    end;
    35:begin
      daLocation.ID := 35;
      daLocation.Name := 'Duel Arena Magics';

      daLocation.RunDirections := ['rand'];

      daLocation.canBank := true;

      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, 0];
        Tile := Point(3381, 3269);
        Options := ['Open', 'Bank'];
        Plane := 0;
        Name := 'Bank';
      end;

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1513;

      daLocation.treeLocations := [Point(3369, 3312)];
      daLocation.pathToTree := [Point(3381, 3268), Point(3386, 3265), Point(3388, 3271), Point(3385, 3276), Point(3384, 3282), Point(3382, 3288), Point(3379, 3293), Point(3373, 3293), Point(3367, 3293), Point(3363, 3295)];
      daLocation.pathToBank := [Point(3363, 3295), Point(3369, 3293), Point(3375, 3293), Point(3379, 3289), Point(3382, 3284), Point(3382, 3278), Point(3385, 3273), Point(3385, 3267), Point(3382, 3269)];

      setLength(daLocation.TreeObjects, 2);
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Magic';
        Index := 0;
        Tile := Point(3357, 3311);
        AliveIDs := AliveMagicIDs;
        DeadIDs := DeadMagicIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Magic';
        Index := 1;
        Tile := Point(3369, 3312);
        AliveIDs := AliveMagicIDs;
        DeadIDs := DeadMagicIDs;
        Plane := 0;
      end;
    end;
    18:begin
      daLocation.ID := 18;
      daLocation.Name := 'Edgeville Yews';

      daLocation.canBank := true;

      daLocation.RunDirections := ['rand'];

      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, 0];
        Tile := Point(3095, 3491);
        Options := ['Bank B'];
        Plane := 0;
        Name := 'Bank';
      end;

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1515;

      daLocation.PathToBank := [Point(3094, 3470), Point(3094, 3475), Point(3094, 3480), Point(3093, 3485), Point(3090, 3489), Point(3093, 3491)];
      daLocation.PathToTree := [Point(3093, 3491), Point(3090, 3487), Point(3093, 3483), Point(3093, 3478), Point(3094, 3473), Point(3093, 3470)];
      daLocation.TreeLocations := [Point(3087, 3471)];

      setLength(daLocation.DoorObjects, 1);
      with daLocation.DoorObjects[0] do begin
        Plane := 0;
        Tile := Point(3091, 3470);
        TileOffset := [0, 0];
        Actions := ['Open'];
        Offset := [62, 0, 100];
        TileEncompass := [Point(3091, 3468), Point(3085, 3468), Point(3085, 3482), Point(3089, 3482), Point(3089, 3473), Point(3091, 3473)];
      end;

      setLength(daLocation.TreeObjects, 2)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 2];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Yew';
        Index := 0;
        Tile := Point(3086, 3469);
        AliveIDs := AliveYewIDs;
        DeadIDs := DeadYewIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, -2];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Yew';
        Index := 1;
        Tile := Point(3086, 3481);
        AliveIDs := AliveYewIDs;
        DeadIDs := DeadYewIDs;
        Plane := 0;
      end;
    end;
    34:begin
      daLocation.ID := 34;
      daLocation.Name := 'Barb. Assault Willows';

      daLocation.RunDirections := ['rand'];

      daLocation.canBank := true;
      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, 0];
        Tile := Point(2537, 3573);
        Options := ['Bank'];
        Plane := 0;
        Name := 'Bank';
      end;

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1519;

      daLocation.treeLocations := [Point(2520, 3579)];

      setLength(daLocation.TreeObjects, 5)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 0;
        Tile := Point(2517, 3598);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 1;
        Tile := Point(2518, 3577);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[2] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 2;
        Tile := Point(2517, 3579);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[3] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 3;
        Tile := Point(2519, 3581);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[4] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 4;
        Tile := Point(2517, 3582);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
    end;
    32..33:begin
      daLocation.canBank := true;
      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, 0];
        Tile := Point(2447, 3427);
        Options := ['Bank'];
        Plane := 0;
        Name := 'Bank';
      end;
      setLength(daLocation.customTPAs, 1);
      daLocation.customTPAs[0] := [Point(2445, 3435){plane 0 stairs}, Point(2445, 3434){plane 1 stairs}];

      case job of
        32:begin
          daLocation.ID := 32;
          daLocation.Name := 'Gnome Yews';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.TreeLocations := [Point(2441, 3435)];

          setLength(daLocation.TreeObjects, 3)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 2;
            Tile := Point(2433, 3426);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(2439, 3436);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 1;
            Tile := Point(2433, 3441);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;
        33:begin
          daLocation.ID := 33;
          daLocation.Name := 'Gnome Yews (2)';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          daLocation.TreeLocations := [Point(2494, 3395)];

          setLength(daLocation.TreeObjects, 4)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 2;
            Tile := Point(2493, 3401);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(2494, 3395);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 1;
            Tile := Point(2479, 3393);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 3;
            Tile := Point(2489, 3394);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;
      end;
    end;
    44:begin
      //11764   2490 3414
      //11764   2372 3426     gate closed 2380 3425
      writeln('Gnome Magics are not yet completed.');
    end;
    5:begin
      daLocation.ID := 5;
      daLocation.Name := 'Lumbridge Yews';

      daLocation.canBank := true;

      daLocation.RunDirections := ['rand'];

      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, 0];
        Tile := Point(3208, 3221);
        Options := ['Bank B'];
        Plane := 2;
        Name := 'Bank';
      end;

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1515;

      daLocation.TreeLocations := [Point(3248, 3202)];
      daLocation.PathToBank := [Point(3248, 3202), Point(3243, 3201), Point(3238, 3201), Point(3236, 3206), Point(3236, 3211), Point(3234, 3216), Point(3229, 3218), Point(3224, 3218), Point(3219, 3218), Point(3215, 3215), Point(3214, 3210), Point(3209, 3210), Point(3206, 3209)];
      daLocation.PathToTree := [Point(3206, 3210), Point(3211, 3210), Point(3215, 3213), Point(3215, 3218), Point(3220, 3218), Point(3225, 3218), Point(3230, 3218), Point(3232, 3213), Point(3234, 3208), Point(3236, 3203), Point(3241, 3201), Point(3246, 3201), Point(3248, 3201)];
      setLength(daLocation.customTPAs, 1);
      daLocation.customTPAs[0] := [Point(3205, 3208){'Climb-'}];

      setLength(daLocation.TreeObjects, 1)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Yew';
        Index := 0;
        Tile := Point(3250, 3202);
        AliveIDs := AliveYewIDs;
        DeadIDs := DeadYewIDs;
        Plane := 0;
      end;
    end;
    4:begin
      daLocation.ID := 4;
      daLocation.Name := 'North Lum. Willows';

      daLocation.RunDirections := ['rand'];

      daLocation.TreeLocations := [Point(3222, 3306)];

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1519;

      daLocation.canFire := true;

      setLength(daLocation.FireLanes, 3);
      with daLocation.FireLanes[0] do begin
        Plane := 0;
        Length := 23;
        Tile := Point(3243, 3307);
      end;
      with daLocation.FireLanes[1] do begin
        Plane := 0;
        Length := 18;
        Tile := Point(3244, 3308);
      end;
      with daLocation.FireLanes[2] do begin
        Plane := 0;
        Length := 17;
        Tile := Point(3245, 3309);
      end;

      setLength(daLocation.TreeObjects, 3)
      with daLocation.TreeObjects[0] do begin
        Offset := [100, -100, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 0;
        Tile := Point(3220, 3306);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 1;
        Tile := Point(3221, 3308);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[2] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 2;
        Tile := Point(3222, 3302);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
    end;
    3:begin
      daLocation.ID := 3;
      daLocation.Name := 'West Lum. Willows(2)';

      daLocation.RunDirections := ['rand'];

      daLocation.TreeLocations := [Point(3176, 3272)];

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1519;

      daLocation.canFire := true;

      setLength(daLocation.FireLanes, 2);
      with daLocation.FireLanes[0] do begin
        Plane := 0;
        Length := 26;
        Tile := Point(3180, 3263);
      end;
      with daLocation.FireLanes[1] do begin
        Plane := 0;
        Length := 14;
        Tile := Point(3172, 3262);
      end;

      setLength(daLocation.TreeObjects, 4)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 0;
        Tile := Point(3167, 3273);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 1;
        Tile := Point(3164, 3271);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[2] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 2;
        Tile := Point(3162, 3268);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[3] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 3;
        Tile := Point(3165, 3266);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
    end;
    2:begin
      daLocation.ID := 2;
      daLocation.Name := 'West Lum. Willows';

      daLocation.RunDirections := ['rand'];

      daLocation.TreeLocations := [Point(3176, 3272)];

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1519;

      daLocation.canFire := true;

      setLength(daLocation.FireLanes, 3);
      with daLocation.FireLanes[0] do begin
        Plane := 0;
        Length := 25;
        Tile := Point(3183, 3276);
      end;
      with daLocation.FireLanes[1] do begin
        Plane := 0;
        Length := 17;
        Tile := Point(3183, 3277);
      end;
      with daLocation.FireLanes[2] do begin
        Plane := 0;
        Length := 13;
        Tile := Point(3171, 3275);
      end;

      setLength(daLocation.TreeObjects, 2)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 0;
        Tile := Point(3178, 3274);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Willow';
        Index := 1;
        Tile := Point(3179, 3271);
        AliveIDs := AliveWillowIDs;
        DeadIds := DeadWillowIDs;
        Plane := 0;
      end;
    end;
    0..1, 6:begin
      daLocation.canBank := true;
      setLength(daLocation.BankNPCs, 1);
      with daLocation.BankNPCs[0] do begin
        Locations := [Point(3212, 3246)];
        Names := [];
        Plane := 0;
        IDs := [507, 506];
        Offset := [0, 0, 50];
        Options := ['Trade'];
      end;
      daLocation.isSell := true;

      setLength(daLocation.DoorObjects, 1);
      with daLocation.DoorObjects[0] do begin
        TileOffset := [0, 0];
        Plane := 0;
        Actions := ['Open'];
        Tile := Point(3215, 3245);
        Offset := [-62, 0, 100];
        TileEncompass := [Point(3208, 3244), Point(3210, 3242), Point(3212, 3242), Point(3214, 3244), Point(3214, 3249), Point(3212, 3251), Point(3210, 3251), Point(3208, 3249)];
      end;

      case job of
        0:begin
          daLocation.Name := 'Lumbridge Oaks (sell)';
          daLocation.ID := 0;

          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(264, 413);
          daLocation.TreeLocations := [Point(3206, 3242)];

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1521;

          setLength(daLocation.TreeObjects, 2)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, -2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 0;
            Tile := Point(3204, 3247);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Oak';
            Index := 1;
            Tile := Point(3205, 3240);
            AliveIDs := AliveOakIDs;
            DeadIDs := DeadOakIDs;
            Plane := 0;
          end;
        end;
        1:begin
          daLocation.Name := 'Lumbridge Willows (sell)';
          daLocation.ID := 1;

          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(264, 413);

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1519;

          daLocation.TreeLocations := [Point(3234, 3242)];

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.TreeObjects, 2)
          with daLocation.TreeObjects[0] do begin
            Offset := [62, 62, 200];
            TileOffset := [0, 2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 0;
            Tile := Point(3234, 3238);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [-62, 62, 200];
            TileOffset := [-1, -1];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 1;
            Tile := Point(3234, 3244);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0;
          end;
        end;
        6:begin
          daLocation.Name := 'Lumbridge Yews (sell)';
          daLocation.ID := 6;

          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(264, 413);
          daLocation.TreeLocations := [Point(3234, 3244)];

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          setLength(daLocation.TreeObjects, 1)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(3250, 3202);
            AliveIDs := AliveYewIDs;
            DeadIDs := DeadYewIDs;
            Plane := 0;
          end;
        end;
      end;
    end;
    36:begin
      daLocation.ID := 36;
      daLocation.Name := 'Ape Atoll Teaks';

      daLocation.RunDirections := ['rand'];

      daLocation.TreeLocations := [Point(2774, 2698)];

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 6333;

      setLength(daLocation.TreeObjects, 3)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 0;
        Tile := Point(2773, 2698);
        AliveIDs := [9036];
        DeadIDs := [9036];
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 1;
        Tile := Point(2776, 2698);
        AliveIDs := [9036];
        DeadIDs := [9036];
        Plane := 0;
      end;
      with daLocation.TreeObjects[2] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 2;
        Tile := Point(2773, 2700);
        AliveIDs := [9036];
        DeadIDs := [9036];
        Plane := 0;
      end;
    end;
    37:begin
      daLocation.ID := 37;
      daLocation.Name := 'Castle Wars Teaks';

      daLocation.RunDirections := ['rand'];

      daLocation.TreeLocations := [Point(2334, 3048)];

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 6333;

      daLocation.canFire := true;
      setLength(daLocation.FireLanes, 6);
      with daLocation.FireLanes[0] do begin
        Plane := 0;
        Length := 4;
        Tile := Point(2333, 3051);
      end;
      with daLocation.FireLanes[1] do begin
        Plane := 0;
        Length := 4;
        Tile := Point(2333, 3050);
      end;
      with daLocation.FireLanes[2] do begin
        Plane := 0;
        Length := 6;
        Tile := Point(2336, 3049);
      end;
      with daLocation.FireLanes[3] do begin
        Plane := 0;
        Length := 4;
        Tile :=Point(2334, 3048);
      end;
      with daLocation.FireLanes[4] do begin
        Plane := 0;
        Length := 5;
        Tile := Point(2335, 3047);
      end;
      with daLocation.FireLanes[5] do begin
        Plane := 0;
        Length := 4;
        Tile := Point(2335, 3046);
      end;

      setLength(daLocation.TreeObjects, 1)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 0;
        Tile := Point(2335, 3048);
        AliveIDs := [9036];
        DeadIDs := [9037];
        Plane := 0;
      end;
    end;
    38:begin
      daLocation.ID := 38;
      daLocation.Name := 'Tai Bwo Wannai Teaks';

      daLocation.RunDirections := ['rand'];

      daLocation.TreeLocations := [Point(2827, 3081)];

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 6333;

      setLength(daLocation.TreeObjects, 4)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 1;
        Tile := Point(2827, 3080);
        AliveIDs := [9036];
        DeadIDs := [9037];
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 2;
        Tile := Point(2828, 3082);
        AliveIDs := [9036];
        DeadIDs := [9037];
        Plane := 0;
      end;
      with daLocation.TreeObjects[2] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 0;
        Tile := Point(2828, 3079);
        AliveIDs := [9036];
        DeadIDs := [9037];
        Plane := 0;
      end;
      with daLocation.TreeObjects[3] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 3;
        Tile := Point(2822, 3078);
        AliveIDs := [9036];
        DeadIDs := [9037];
        Plane := 0;
      end;
    end;
    39:begin
      daLocation.ID := 39;
      daLocation.Name := 'Tai Bwo Wannai Teaks(2)';

      daLocation.RunDirections := ['rand'];

      daLocation.TreeLocations := [Point(2826, 3086)];

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 6333;

      setLength(daLocation.TreeObjects, 5)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 0;
        Tile := Point(2823, 3088);
        AliveIDs := [9036];
        DeadIDs := [9037];
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 1;
        Tile := Point(2825, 3087);
        AliveIDs := [9036];
        DeadIDs := [9037];
        Plane := 0;
      end;
      with daLocation.TreeObjects[2] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 2;
        Tile := Point(2827, 3088);
        AliveIDs := [9036];
        DeadIDs := [9037];
        Plane := 0;
      end;
      with daLocation.TreeObjects[3] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 3;
        Tile := Point(2827, 3085);
        AliveIDs := [9036];
        DeadIDs := [9037];
        Plane := 0;
      end;
      with daLocation.TreeObjects[4] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Teak';
        Index := 4;
        Tile := Point(2826, 3084);
        AliveIDs := [9036];
        DeadIDs := [9037];
        Plane := 0;
      end;
    end;
    40:begin
      daLocation.ID := 40;
      daLocation.Name := 'Tai Bwo Wannai Mahogany';

      daLocation.RunDirections := ['rand'];

      daLocation.TreeLocations := [Point(2824, 3084)];

      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 6332;

      setLength(daLocation.TreeObjects, 4)
      with daLocation.TreeObjects[0] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Mahogany';
        Index := 0;
        Tile := Point(2822, 3084);
        AliveIDs := [9034];
        DeadIDs := [9035];
        Plane := 0;
      end;
      with daLocation.TreeObjects[1] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Mahogany';
        Index := 1;
        Tile := Point(2820, 3088);
        AliveIDs := [9034];
        DeadIDs := [9035];
        Plane := 0;
      end;
      with daLocation.TreeObjects[2] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Mahogany';
        Index := 2;
        Tile := Point(2820, 3080);
        AliveIDs := [9034];
        DeadIDs := [9035];
        Plane := 0;
      end;
      with daLocation.TreeObjects[3] do begin
        Offset := [0, 0, 200];
        TileOffset := [0, 0];
        Options := ['Chop down'];
        Timer.Restart;
        Timer.StartTime := -1;
        Name := 'Mahogany';
        Index := 3;
        Tile := Point(2824, 3080);
        AliveIDs := [9034];
        DeadIDs := [9035];
        Plane := 0;
      end;
    end;
    41:begin
      daLocation.ID := 41;
      setLength(daLocation.customIDs, 1);
      daLocation.customIDs[0] := [1278, 1276, 1286, 1282, 2091, 2092];
      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1511;
      daLocation.canFletch := true;
      daLocation.name := 'Powerchop Normals';
      daLocation.fletchPoint := Point(79, 411);

      daLocation.isPower := true;
    end;
    42:begin
      daLocation.ID := 42;
      setLength(daLocation.customIDs, 1);
      daLocation.customIDs[0] := [7417];
      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1521;
      daLocation.canFletch := true;
      daLocation.name := 'Powerchop Oaks';
      daLocation.fletchPoint := Point(264, 413);

      daLocation.isPower := true;
    end;
    43:begin
      daLocation.ID := 43;
      setLength(daLocation.customIDs, 1);
      daLocation.customIDs[0] := [7480, 7422, 7482, 7424];
      setLength(daLocation.Logs, 1);
      daLocation.Logs[0].ID := 1519;
      daLocation.canFletch := true;
      daLocation.name := 'Powerchop Willows';
      daLocation.fletchPoint := Point(264, 413);

      daLocation.isPower := true;
    end;
    7:begin
      setLength(daLocation.Logs, 3);
      daLocation.Logs[0].ID := 1511;
      daLocation.Logs[1].ID := 1521;
      daLocation.Logs[2].ID := 1519;

      daLocation.Name := 'Progressive Chopping';
      daLocation.isDynamic := true;
    end;
    45..53:begin
      daLocation.canBank := true;
      setLength(daLocation.BankLocations, 1);
      with daLocation.BankLocations[0] do begin
        Offset := [0, 0, 50];
        TileOffset := [0, 0];
        Tile := Point(1592, 3475);
        Options := ['Bank'];
        Plane := 0;
        Name := 'Bank';
      end;

      case job of
        45:begin
          daLocation.ID := 45;
          daLocation.Name := 'WC Guild Yews';

          daLocation.RunDirections := ['rand'];

          daLocation.TreeLocations := [Point(1593, 3487)];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1515;

          setLength(daLocation.TreeObjects, 9)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [2, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 0;
            Tile := Point(1591, 3487);
            AliveIDs := AliveYewIds;
            DeadIDs := DeadYewIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, -2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 1;
            Tile := Point(1596, 3490);
            AliveIDs := AliveYewIds;
            DeadIDs := DeadYewIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 2;
            Tile := Point(1596, 3485);
            AliveIDs := AliveYewIds;
            DeadIDs := DeadYewIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, -2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 3;
            Tile := Point(1591, 3493);
            AliveIDs := AliveYewIds;
            DeadIDs := DeadYewIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[4] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, -2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 4;
            Tile := Point(1596, 3495);
            AliveIDs := AliveYewIds;
            DeadIDs := DeadYewIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[5] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 5;
            Tile := Point(1586, 3480);
            AliveIDs := AliveYewIds;
            DeadIDs := DeadYewIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[6] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, -2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 6;
            Tile := Point(1584, 3485);
            AliveIDs := AliveYewIds;
            DeadIDs := DeadYewIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[7] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, -2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 7;
            Tile := Point(1587, 3501);
            AliveIDs := AliveYewIds;
            DeadIDs := DeadYewIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[8] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, -2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Yew';
            Index := 7;
            Tile := Point(1582, 3497);
            AliveIDs := AliveYewIds;
            DeadIDs := DeadYewIds;
            Plane := 0;
          end;
        end;
        46:begin
          daLocation.ID := 46;
          daLocation.Name := 'WC Guild Magics';

          daLocation.RunDirections := ['rand'];

          daLocation.TreeLocations := [Point(1579, 3485)];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1517;

          setLength(daLocation.TreeObjects, 8)
          with daLocation.TreeObjects[0] do begin
            Offset := [62, 62, 200];
            TileOffset := [2, -1];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Magic';
            Index := 0;
            Tile := Point(1577, 3485);
            AliveIDs := AliveMagicIds;
            DeadIDs := DeadMagicIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [62, 62, 200];
            TileOffset := [-1, -1];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Magic';
            Index := 1;
            Tile := Point(1580, 3485);
            AliveIDs := AliveMagicIds;
            DeadIDs := DeadMagicIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [62, 62, 200];
            TileOffset := [2, 2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Magic';
            Index := 2;
            Tile := Point(1577, 3482);
            AliveIDs := AliveMagicIds;
            DeadIDs := DeadMagicIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [62, 62, 200];
            TileOffset := [-1, 2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Magic';
            Index := 3;
            Tile := Point(1580, 3482);
            AliveIDs := AliveMagicIds;
            DeadIDs := DeadMagicIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[4] do begin
            Offset := [62, 62, 200];
            TileOffset := [2, 2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Magic';
            Index := 4;
            Tile := Point(1577, 3489);
            AliveIDs := AliveMagicIds;
            DeadIDs := DeadMagicIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[5] do begin
            Offset := [62, 62, 200];
            TileOffset := [-1, 2];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Magic';
            Index := 5;
            Tile := Point(1580, 3489);
            AliveIDs := AliveMagicIds;
            DeadIDs := DeadMagicIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[6] do begin
            Offset := [62, 62, 200];
            TileOffset := [2, -1];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Magic';
            Index := 6;
            Tile := Point(1577, 3492);
            AliveIDs := AliveMagicIds;
            DeadIDs := DeadMagicIds;
            Plane := 0;
          end;
          with daLocation.TreeObjects[7] do begin
            Offset := [62, 62, 200];
            TileOffset := [-1, -1];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Magic';
            Index := 7;
            Tile := Point(1580, 3492);
            AliveIDs := AliveMagicIds;
            DeadIDs := DeadMagicIds;
            Plane := 0;
          end;
        end;
        47:begin
          daLocation.ID := 47;
          daLocation.Name := 'WC Guild Redwood';

          daLocation.RunDirections := ['rand'];

          daLocation.TreeLocations := [Point(1567, 3483)];

          setLength(daLocation.customTPAs, 1);
          daLocation.customTPAs[0] := [Point(1566, 3482)]; //ladder

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 19669;

          setLength(daLocation.TreeObjects, 2)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [-1, 0];
            Options := ['Cut'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Redwood';
            Index := 0;
            Tile := Point(1568, 3482);
            AliveIDs := [28859];
            DeadIDs := [28860];
            Plane := 2;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [-1, 0];
            Options := ['Cut'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Redwood';
            Index := 1;
            Tile := Point(1568, 3483);
            AliveIDs := [28859];
            DeadIDs := [28860];
            Plane := 2;
          end;
        end;
        48:begin
          daLocation.ID := 48;
          daLocation.Name := 'WC Guild Redwood(2)';

          daLocation.RunDirections := ['rand'];

          daLocation.TreeLocations := [Point(1567, 3493)];

          setLength(daLocation.customTPAs, 1);
          daLocation.customTPAs[0] := [Point(1566, 3493)]; //ladder

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 19669;

          setLength(daLocation.TreeObjects, 2)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [-1, 0];
            Options := ['Cut'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Redwood';
            Index := 0;
            Tile := Point(1568, 3493);
            AliveIDs := [28859];
            DeadIDs := [28860];
            Plane := 2;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [-1, 0];
            Options := ['Cut'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Redwood';
            Index := 1;
            Tile := Point(1568, 3492);
            AliveIDs := [28859];
            DeadIDs := [28860];
            Plane := 2;
          end;
        end;
        49:begin
          daLocation.ID := 49;
          daLocation.Name := 'WC Guild Redwood(3)';

          daLocation.RunDirections := ['rand'];

          daLocation.TreeLocations := [Point(1574, 3482)];

          setLength(daLocation.customTPAs, 1);
          daLocation.customTPAs[0] := [Point(1575, 3482)]; //ladder

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 19669;

          setLength(daLocation.TreeObjects, 2)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [-1, 0];
            Options := ['Cut'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Redwood';
            Index := 0;
            Tile := Point(1573, 3482);
            AliveIDs := [28859];
            DeadIDs := [28860];
            Plane := 2;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [-1, 0];
            Options := ['Cut'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Redwood';
            Index := 1;
            Tile := Point(1573, 3483);
            AliveIDs := [28859];
            DeadIDs := [28860];
            Plane := 2;
          end;
        end;
        50:begin
          daLocation.ID := 50;
          daLocation.Name := 'WC Guild Redwood(4)';

          daLocation.RunDirections := ['rand'];

          daLocation.TreeLocations := [Point(1574, 3493)];

          setLength(daLocation.customTPAs, 1);
          daLocation.customTPAs[0] := [Point(1575, 3493)]; //ladder

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 19669;

          setLength(daLocation.TreeObjects, 2)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [-1, 0];
            Options := ['Cut'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Redwood';
            Index := 0;
            Tile := Point(1573, 3492);
            AliveIDs := [28859];
            DeadIDs := [28860];
            Plane := 2;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [-1, 0];
            Options := ['Cut'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Redwood';
            Index := 1;
            Tile := Point(1573, 3493);
            AliveIDs := [28859];
            DeadIDs := [28860];
            Plane := 2;
          end;
        end;
        51:begin
          daLocation.ID := 51;
          daLocation.Name := 'WC Oaks';

          daLocation.canFire := true;

          setLength(daLocation.FireLanes, 1);
          with daLocation.FireLanes[0] do begin
            Plane := 0;
            Length := 26;
            Tile := Point(1633, 3504);
          end;

          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(1617, 3507);

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1521;

          daLocation.TreeLocations := [Point(1620, 3511)];

          setLength(daLocation.TreeObjects, 3);
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 250];
            TileOffset := [-2, 2];
            Tile := Point(1617, 3509);
            Options := ['Chop down Oak'];
            Name := 'Oak';
            Index := 0;
            AliveIDs := AliveOakIDs;
            DeadIds := DeadOakIDs;
            Timer.Restart;
            Timer.StartTime := -1;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 250];
            TileOffset := [-2, 2];
            Tile := Point(1621, 3508);
            Options := ['Chop down Oak'];
            Name := 'Oak';
            Index := 1;
            AliveIDs := AliveOakIDs;
            DeadIds := DeadOakIDs;
            Timer.Restart;
            Timer.StartTime := -1;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 250];
            TileOffset := [-2, 2];
            Tile := Point(1618, 3513);
            Options := ['Chop down Oak'];
            Name := 'Oak';
            Index := 2;
            AliveIDs := AliveOakIDs;
            DeadIds := DeadOakIDs;
            Timer.Restart;
            Timer.StartTime := -1;
          end;
        end;
        52:begin
          daLocation.Name := 'WC Willows';
          daLocation.ID := 52;

          daLocation.RunDirections := ['rand'];

          daLocation.canFire := true;

          setLength(daLocation.FireLanes, 2);
          with daLocation.FireLanes[0] do begin
            Plane := 0;
            Length := 26;
            Tile := Point(1633, 3504);
          end;
          with daLocation.FireLanes[1] do begin
            Plane := 0;
            Length := 28;
            Tile := Point(1642, 3505);
          end;

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1519;

          daLocation.TreeLocations := [Point(1626, 3500)];

          daLocation.PathToTree := [Point(1597, 3493), Point(1613, 3501)];
          daLocation.PathToBank := [Point(1613, 3501), Point(1599, 3495), Point(1591, 3477)];

          setLength(daLocation.TreeObjects, 7)
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 0;
            Tile := Point(1628, 3500);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 1;
            Tile := Point(1629, 3498);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 2;
            Tile := Point(1629, 3494);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0
          end;
          with daLocation.TreeObjects[3] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 3;
            Tile := Point(1632, 3496);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0
          end;
          with daLocation.TreeObjects[4] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 4;
            Tile := Point(1642, 3501);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0
          end;
          with daLocation.TreeObjects[5] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 5;
            Tile := Point(1638, 3498);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0
          end;
          with daLocation.TreeObjects[6] do begin
            Offset := [0, 0, 200];
            TileOffset := [0, 0];
            Options := ['Chop down'];
            Timer.Restart;
            Timer.StartTime := -1;
            Name := 'Willow';
            Index := 6;
            Tile := Point(1636, 3496);
            AliveIDs := AliveWillowIDs;
            DeadIds := DeadWillowIDs;
            Plane := 0
          end;
        end;
        53:begin
          daLocation.ID := 54;
          daLocation.Name := 'WC Maples';

          daLocation.RunDirections := ['rand'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1517;

          daLocation.TreeLocations := [Point(1615, 3494)];

          daLocation.PathToBank := [Point(1606, 3498), Point(1596, 3487), Point(1591, 3477)];
          daLocation.PathToTree := [Point(1598, 3489), Point(1609, 3496)];

          daLocation.canFire := true;

          setLength(daLocation.FireLanes, 3);
          with daLocation.FireLanes[0] do begin
            Plane := 0;
            Length := 21;
            Tile := Point(1609, 3498);
          end;
          with daLocation.FireLanes[1] do begin
            Plane := 0;
            Length := 27;
            Tile := Point(1611, 3497);
          end;
          with daLocation.FireLanes[2] do begin
            Plane := 0;
            Length := 20;
            Tile := Point(1627, 3502);
          end;

          setLength(daLocation.TreeObjects, 9)
          with daLocation.TreeObjects[0] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 0;
           Tile := Point(1614, 3493);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[1] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 1;
           Tile := Point(1617, 3497);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[2] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 2;
           Tile := Point(1619, 3494);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[3] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 3;
           Tile := Point(1617, 3491);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[4] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 4;
           Tile := Point(1611, 3490);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[5] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 5;
           Tile := Point(1609, 3494);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[6] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 6;
           Tile := Point(1612, 3497);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[7] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 7;
           Tile := Point(1622, 3496);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
          with daLocation.TreeObjects[8] do begin
           Offset := [0, 0, 200];
           TileOffset := [0, 0];
           Options := ['Chop down'];
           Timer.Restart;
           Timer.StartTime := -1;
           Name := 'Maple';
           Index := 8;
           Tile := Point(1625, 3495);
           AliveIDs := AliveMapleIDs;
           DeadIDs := DeadMapleIDs;
           Plane := 0;
          end;
        end;
      end;
    end;
  end;

  for i:=0 to high(DaLocation.Logs) do begin
    daLocation.Logs[i].chopped := 0;
    daLocation.Logs[i].price := getPriceGE(daLocation.Logs[i].ID);
  end;

  for i:=0 to 1000 do begin
    if(not FileExists(ScriptPath+'ineedbot''s AIO Woodcutter proggy '+toStr(i)+'.png'))then begin
      ProggieLocation := ScriptPath+'ineedbot''s AIO Woodcutter proggy '+toStr(i)+'.png';
      break;
    end;
  end;
  doProggy(ProggieLocation);

  if disableBank then
    daLocation.canBank := false;

  if daLocation.canfire and not Reflect.Inv.Contains(TinderIds) then
    daLocation.canfire := false;

  if daLocation.canfletch and not Reflect.Inv.Contains(KnifeIDs) then
    daLocation.canfletch := false;
end;

procedure FreeDTMZ;
begin
  graphicOpti.Free;
  daLogger.Status('Thanks for using ineedbot''s AIO Woodcutter v'+FloatToStr(Version)+'('+floatToStr(fversion)+')'+'! Please post your progress reports! Run time: '+Reflect.Time.msToTime(getTimeRunning(), TIME_FORMAL), []);
  if useStats then
    if statsServer.Commit then
      daLogger.Status('Successfully sent heartbeat to ''stats.grats.pw''.', []);
end;

procedure setupPlayer;
begin
  Reflect.Compass.Make('n');
  Reflect.Compass.MakePitch(10);
  LastXPCheck.restart;
end;

procedure _doCount(howManyToCount:integer);
var _items : TReflectInvItemArray;
    i, h, count: integer;
begin
  count := 0;
  statsServer.IncreaseVariable('43', 1);
  _items.GetAll;
  for i:=0 to high(_items) do begin
    for h:=0 to high(daLocation.Logs) do
      if (_items[i].GetID = daLocation.Logs[h].ID) and (count < howManyToCount) then begin
        inc(count);
        inc(daLocation.Logs[h].chopped);

        if (pos('logs', lowercase(_items[i].getName)) > 0) then begin
          if (pos('oak', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('30', 1)
          else if (pos('willow', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('31', 1)
          else if (pos('maple', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('32', 1)
          else if (pos('yew', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('33', 1)
          else if (pos('magic', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('34', 1)
          else if (pos('teak', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('131', 1)
          else if (pos('arctic pine', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('136', 1)
          else if (pos('mahogany', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('133', 1)
          else
             statsServer.IncreaseVariable('29', 1);
        end;
        if (pos('logs', lowercase(_items[i].getName)) > 0) then begin
          if (pos('oak', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('24', 1)
          else if (pos('willow', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('25', 1)
          else if (pos('maple', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('26', 1)
          else if (pos('yew', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('27', 1)
          else if (pos('magic', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('28', 1)
          else if (pos('teak', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('132', 1)
          else if (pos('arctic pine', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('135', 1)
          else if (pos('mahogany', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('134', 1)
          else
            statsServer.IncreaseVariable('23', 1);
        end;
      end;
  end;
end;

procedure doCount;
var _items : TReflectInvItemArray;
    i, h : integer;
begin
  statsServer.IncreaseVariable('43', 1);
  _items.GetAll;
  for i:=0 to high(_items) do begin
    for h:=0 to high(daLocation.Logs) do
      if (_items[i].GetID = daLocation.Logs[h].ID) then begin
        inc(daLocation.Logs[h].chopped);
        if (pos('logs', lowercase(_items[i].getName)) > 0) then begin
          if (pos('oak', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('30', 1)
          else if (pos('willow', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('31', 1)
          else if (pos('maple', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('32', 1)
          else if (pos('yew', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('33', 1)
          else if (pos('magic', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('34', 1)
          else if (pos('teak', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('131', 1)
          else if (pos('arctic pine', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('136', 1)
          else if (pos('mahogany', lowercase(_items[i].getName)) > 0) then
            statsServer.IncreaseVariable('133', 1)
          else
             statsServer.IncreaseVariable('29', 1);
        end;
      end;
  end;
end;

procedure doDropping(forced:boolean=false);
var _items : TReflectInvItemArray;
    i, _id, _slot : integer;
    tB : TBox;
    tP : TPoint;
    firstTim, didFirstInRow : boolean;
    logIDs, dropPattern : TIntegerArray;
begin
  if not forced then
    doCount;
  updateScreen('Dropping items.');
  doProggy(ProggieLocation);
  firstTim := true;
  logIDs := daLocation.getLogIDs;
  exitMenu;
  dropPattern := [1, 5, 9, 13, 17, 21, 25, 2, 6, 10, 14, 18, 22, 26, 3, 7, 11, 15, 19, 23, 27, 4, 8, 12, 16, 20, 24, 28];
  while ReflectPlayer.isLoggedIn and (firstTim or Reflect.Inv.Contains(logIDs))
  and not ReflectPlayer.IsUnderAttack and not anySlotActivated do begin
    updateScreen('Dropping items.');
    if Reflect.Gametab.CurrentColor <> Gametab_Inventory then
      Reflect.Gametab.Open(Gametab_Inventory);
    randomHandler;
    _items.GetAll(true);
    for i:=0 to high(dropPattern) do begin
      if not ReflectPlayer.isLoggedIn then
        break;
      if ReflectPlayer.IsUnderAttack then
        break;
      if anySlotActivated then
        break;

      _slot := dropPattern[i]-1;

      case _slot of
        0..3: didFirstInRow := false;
      end;

      _id := _items[_slot].getid;
      if _id <= 0 then
        continue;
      if not itemInSlot(_items[_slot].getinvslot) then
        continue;

      if dropOnly then begin
        if not inIntArray(logIDs, _id) then
          continue;
      end else begin
        if inIntArray(KnifeIDs, _id) then
          continue;
        if inIntArray(ShaftIDs, _id) then
          continue;
        if inIntArray(NestIDs, _id) then
          continue;
        if inIntArray(KnifeIDs, _id) then
          continue;
        if inIntArray(GreeGreeIDs, _id) then
          continue;
        if inIntArray(TradingSticksIDs, _id) then
          continue;
        if inIntArray(TinderIDs, _id) then
          continue;
        if inIntArray(CoinsIDs, _id) then
          continue;
        if inIntArray(AxeIDs, _id) then
          continue;
      end;

      tB := _items[_slot].GetBox;
      getMousePos(tP.x, tP.y);

      if not MouseKeys then begin
        if not PointInBox(tP, tB) then
          Reflect.Mouse.Move(tB);
        fastClick(Mouse_right);
        Reflect.Text.ChooseOption('Drop', 2500);
      end else begin
        if not didFirstInRow then begin
          didFirstInRow := true;
          if not PointInBox(tP, tB) then begin
            Reflect.Mouse.Move(tB);
            getMousePos(tP.x, tP.y);
          end;
        end;

        if not PointInBox(tP, tB) then
          MoveMouse(Reflect.Math.iGaussRange(tb.X1, tb.X2), Reflect.Math.iGaussRange(tb.y1, tb.y2));

        fastClick(Mouse_right);
        Reflect.Text.chooseOptionFast('Drop');
      end;
    end;
    firstTim := false;
  end;
end;

procedure doFire;
var goodLanes : TIntegerArray;
    goodLane, h, activeID, i : integer;
    tP, tP2 : TPoint;
    tB : TBox;
    fail, fail2, fail3 : TreflectTimer;
    _item : TReflectInvItem;
    _obj : TReflectObject;
    logIDs : TIntegerArray;
begin
  if not daLocation.canFire then
    exit;

  logIDs := daLocation.getLogIDs;
  if not Reflect.Inv.Contains(LogIDs) then
    exit;

  if not Reflect.Inv.Contains(TinderIds) then
    Exit;

  goodLanes := getGoodFireLaneIndices;
  goodLane := -1;

  if high(goodLanes) <= -1 then begin
    doDropping(true);
    exit;
  end;

  if(random(5) = 1) then begin
    goodLane := goodLanes[random(length(goodLanes))];
  end else begin
    for i:=0 to high(goodLanes) do
      if (goodLane = -1) or (Reflect.Tiles.DistanceFromTile(daLocation.FireLanes[goodLanes[i]].Tile) < Reflect.Tiles.DistanceFromTile(daLocation.FireLanes[goodLane].Tile)) then
        goodLane := goodLanes[i];
  end;

  fail.restart;
  while not R_TileOnMS(daLocation.FireLanes[goodLane].Tile, tP) and (fail.Elapsedtime < 30000) do begin
    updateScreen('Going to firelane.');
    ReflectPlayer.BlindWalkMM(daLocation.FireLanes[goodLane].Tile, 5);
    ReflectPlayer.FFlag(0, 2500+random(500));
    sleepScript(500+random(500));
  end;

  goodLanes := getGoodFireLaneIndices;
  goodLane := -1;

  if high(goodLanes) <= -1 then begin
    doDropping(true);
    exit;
  end;

  for i:=0 to high(goodLanes) do
    if (goodLane = -1) or (Reflect.Tiles.DistanceFromTile(daLocation.FireLanes[goodLanes[i]].Tile) < Reflect.Tiles.DistanceFromTile(daLocation.FireLanes[goodLane].Tile)) then
      goodLane := goodLanes[i];

  fail.restart;
  while not Reflect.Tiles.NearTile(daLocation.FireLanes[goodLane].Tile, 1) and R_TileOnMS(daLocation.FireLanes[goodLane].Tile, tP) and (fail.Elapsedtime < 10000) do begin
    updateScreen('Going to firelane tile.');
    R_InteractTile(daLocation.FireLanes[goodLane].Tile, ['Walk']);
    ReflectPlayer.FFlag(0, 5000+random(500));
    sleepScript(500+random(500));
  end;

  tP := Reflect.Tiles.GetGlobalTile;
  if Reflect.Inv.Contains(LogIDs) and Reflect.Inv.Contains(TinderIds) and
        (tP.Y = daLocation.FireLanes[goodLane].Tile.Y) and (tP.X >= daLocation.FireLanes[goodLane].Tile.x-daLocation.FireLanes[goodLane].Length) and
        (tP.X <= daLocation.FireLanes[goodLane].Tile.x) and ReflectPlayer.isLoggedIn and not ReflectPlayer.IsUnderAttack then
  begin
    _Docount(daLocation.FireLanes[goodLane].Length);
    updateScreen('Making fires...');
    randomHandler;
    doProggy(ProggieLocation);
  end;

  while Reflect.Inv.Contains(LogIDs) and Reflect.Inv.Contains(TinderIds) and
        (tP.Y = daLocation.FireLanes[goodLane].Tile.Y) and (tP.X >= daLocation.FireLanes[goodLane].Tile.x-daLocation.FireLanes[goodLane].Length) and
        (tP.X <= daLocation.FireLanes[goodLane].Tile.x) and ReflectPlayer.isLoggedIn and not ReflectPlayer.IsUnderAttack do
  begin
    if Reflect.Gametab.CurrentColor <> Gametab_Inventory then
      Reflect.Gametab.Open(Gametab_Inventory);

    _obj.GetAt(ObjGame, tP);
    if Reflect.Smart.IsNull(_obj.Reference) or not inIntArray(FireIDs, _obj.GetID) then begin
      if not anySlotActivated(true) then begin
        if _item.Find(TinderIds) then begin
          getMousePos(tP2.x, tP2.y);
          tB := _item.getbox;
          if not PointInBox(tP2, tB) then
            reflect.mouse.move(tB, mouse_left)
          else
            fastClick(mouse_left);
          fail2.restart;
          while not anySlotActivated(true) and (fail2.Elapsedtime < 1000) do
            sleepScript(25);
        end;
      end;

      if anySlotActivated(true) then begin
        activeID := getActiveItemID;
        if inIntArray(LogIDs, activeID) then begin
          if _item.Find(TinderIds) then begin
            getMousePos(tP2.x, tP2.y);
            tB := _item.getbox;
            if not PointInBox(tP2, tB) then
              reflect.mouse.move(tB, mouse_left)
            else
              fastClick(mouse_left);
          end;
        end else begin
          if inIntArray(TinderIds, activeID) then begin
            if _item.Find(LogIDs) then begin
              getMousePos(tP2.x, tP2.y);
              tB := _item.getbox;
              if not PointInBox(tP2, tB) then
                reflect.mouse.move(tB, mouse_left)
              else
                fastClick(mouse_left);
            end;
          end else begin
            fixActive;
          end;
        end;
      end;

      fail.restart;
      fail2.restart;
      fail3.restart;
      while Reflect.Tiles.NearTile(tP, 1) and (fail.Elapsedtime < 2500) do begin
        //updateScreen('Making fires...');  //to slow
        //randomHandler;//to slow
        if inIntArray(fireAnimIDs, ReflectPlayer.getAnimation) then
          fail.restart;
        if (fail3.Elapsedtime > 350) then begin     //used to stop overlap or false postive with wasactive
          if not anySlotActivated(true) then begin
            if (Reflect.Inv.CountQuantities(LogIDs) > 1){cuz theres a delay until the log disappears} and ((tP.X-1) >= daLocation.FireLanes[goodLane].Tile.x-daLocation.FireLanes[goodLane].Length) then begin
              if _item.Find(TinderIds) then begin
                getMousePos(tP2.x, tP2.y);
                tB := _item.getbox;
                if not PointInBox(tP2, tB) then
                  reflect.mouse.move(tB, mouse_left)
                else
                  fastClick(mouse_left);
                fail2.restart;
                while not anySlotActivated(true) and (fail2.Elapsedtime < 1000) do
                  sleepScript(25);
              end;
            end;
          end;
          if anySlotActivated(true) then begin
            activeID := getActiveItemID;
            if inIntArray(LogIDs, activeID) then begin
              if _item.Find(TinderIds) then begin
                getMousePos(tP2.x, tP2.y);
                tB := _item.getbox;
                if not PointInBox(tP2, tB) then
                  reflect.mouse.move(tB);
              end;
            end else begin
              if inIntArray(TinderIds, activeID) then begin
                if _item.Find(LogIDs) then begin
                  getMousePos(tP2.x, tP2.y);
                  tB := _item.getbox;
                  if not PointInBox(tP2, tB) then
                    reflect.mouse.move(tB);
                end;
              end else begin
                fixActive;
              end;
            end;
          end;
        end;
      end;

      fail.restart;
      _obj.GetAt(ObjGame, tP);
      while (Reflect.Smart.IsNull(_obj.Reference) or not inIntArray(FireIDs, _obj.GetId)) and (fail.Elapsedtime < 2500) do
        _obj.GetAt(ObjGame, tP);
      tP := Reflect.Tiles.GetGlobalTile;
    end else begin
      for h:=tP.x downto daLocation.FireLanes[goodLane].Tile.X-daLocation.FireLanes[goodLane].Length do begin
        _obj.GetAt(ObjGame, Point(h, tP.y));
        if Reflect.Smart.IsNull(_obj.Reference) or not inIntArray(FireIDs, _obj.GetID) then begin
          tP := Point(h, tP.y);
          break;
        end else begin
          if (h = daLocation.FireLanes[goodLane].Tile.X-daLocation.FireLanes[goodLane].Length) then
            exit;
        end;
      end;

      fail.restart;
      while not R_TileOnMS(tP, tP2) and (fail.Elapsedtime < 30000) do begin
        updateScreen('Going to fire spot...');
        ReflectPlayer.BlindWalkMM(tP, 5);
        ReflectPlayer.FFlag(0, 2500+random(500));
        sleepScript(500+random(500));
      end;

      fail.restart;
      while not Reflect.Tiles.NearTile(tP, 1) and R_TileOnMS(tP, tP2) and (fail.Elapsedtime < 10000) do begin
        updateScreen('Going to fire spot tile...');
        FixActive;
        R_InteractTile(tP, ['Walk']);
        ReflectPlayer.FFlag(0, 5000+random(500));
        sleepScript(500+random(500));
      end;

      updateScreen('Making fires...');
    end;
  end;
  sleepScript(1000+random(1000));
end;

procedure doFletch;
var _item : TReflectInvItem;
    i : integer;
    logIDs : TIntegerArray;
begin
  if not daLocation.canFletch then
    exit;

  logIDs := daLocation.getLogIDs;
  if not Reflect.Inv.Contains(LogIDs) then
    exit;

  if not Reflect.Inv.Contains(KnifeIDs) then
    exit;

  while ReflectPlayer.IsLoggedIn and Reflect.Inv.Contains(LogIDs) and Reflect.Inv.Contains(KnifeIDs)
  and not ReflectPlayer.IsUnderAttack do begin
    if Reflect.Gametab.CurrentColor <> Gametab_Inventory then
      Reflect.Gametab.Open(Gametab_Inventory);
    UpdateScreen('Going to fletch.');
    if not anySlotActivated then begin
      for i:=0 to high(KnifeIDs) do begin
        if _item.Find(KnifeIDs[i]) then begin
          reflect.mouse.move(_item.getBox, mouse_left);
          sleepScript(500+random(500));
          break;
        end;
      end;
    end;
    if anySlotActivated(true) then begin
      for i:=0 to high(LogIDs) do begin
        if _item.Find(LogIDs[i]) then begin
          reflect.mouse.move(_item.getBox, mouse_left);
          sleepScript(1500+random(500));
          break;
        end;
      end;
    end;
    Reflect.Mouse.Move(daLocation.FletchPoint, 15, 15, mouse_right);
    if Reflect.Text.ChooseOption('Make X') then begin
      sleepScript(750+random(1000));
      Reflect.Keyboard.TypeSend('99', true);
      sleepScript(random(1000));
      if(random(round(AntiAmount/200)) <> 1)then
        Reflect.Antiban.MMouseOffClient('rand');
      sleepScript(1000);
      while ReflectPlayer.IsLoggedIn and ReflectPlayer.isDoingAnim(FletchAnimationIDs, 1000) and
      not ReflectPlayer.IsUnderAttack do begin
        randomHandler;
        FixActive;
        UpdateScreen('Fletching...');
      end;
    end;
  end;
end;

procedure goTobank;
var RsTIle, nearestNPCTile : TPoint;
    i, h : integer;
    nearestBank : BankLocation;
    didPath : boolean;
label normal;
begin
  if not daLocation.canBank or ((length(daLocation.BankLocations) = 0) and (length(daLocation.BankNPCs) = 0)) then
    exit;

  if Reflect.Bank.IsOpen or Reflect.Bank.IsPinOpen or Reflect.Bank.IsDepositBoxOpen or Reflect.Shop.IsOpen then
    exit;

  case daLocation.ID of
    5:begin//lum yew
      if (length(daLocation.PathToBank) <> 0) then begin
        if R_TileOnMM(daLocation.PathToBank[0], RSTile) then begin
          updateScreen('Going to bank.');
          ReflectPlayer.WalkPathMM(daLocation.PathToBank, false);
          ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
          sleepScript(random(1500));
          didPath := true;
        end;
      end;
      while ReflectPlayer.IsLoggedIn and (Reflect.Tiles.GetPlane <> 2) and Reflect.Tiles.NearTile(daLocation.customTPAs[0][0], 100) do begin
        randomHandler;
        if(not R_TileOnMS(daLocation.customTPAs[0][0], rstile))then begin
          UpdateScreen('Going to stairs.');
          ReflectPlayer.BlindWalkMM(daLocation.customTPAs[0][0], 5);
          ReflectPlayer.FFlag(0, 2500+random(500));
          Sleepscript(random(2000));
        end;
        UpdateScreen('Going up stairs.');
        if(R_InteractTile(daLocation.customTPAs[0][0], ['Climb-up']))then begin
          ReflectPlayer.FFlag(0, 2500+random(500));
          Sleepscript(random(2000));
        end;
      end;
      if (Reflect.Tiles.GetPlane = 2) then
        goTo normal;
    end;
    32..33, 44:begin //gnome
      if (length(daLocation.PathToBank) <> 0) then begin
        if R_TileOnMM(daLocation.PathToBank[0], RSTile) then begin
          updateScreen('Going to bank.');
          ReflectPlayer.WalkPathMM(daLocation.PathToBank, false);
          ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
          sleepScript(random(1500));
          didPath := true;
        end;
      end;
      if Reflect.Tiles.GetPlane = 0 then begin
        if(not R_TileOnMS(daLocation.customTPAs[0][0], rstile))then begin
          UpdateScreen('Going to stairs.');
          ReflectPlayer.BlindWalkMM(daLocation.customTPAs[0][0], 5);
          ReflectPlayer.FFlag(0, 2500+random(500));
          Sleepscript(random(2000));
        end;
        UpdateScreen('Going up stairs.');
        if(R_InteractTile(daLocation.customTPAs[0][0], ['Climb-up']))then begin
            ReflectPlayer.FFlag(0, 2500+random(500));
            Sleepscript(random(2000));
        end;
      end;
      if Reflect.Tiles.GetPlane = 1 then
        goto Normal;
    end;
    18:begin//edge
      if daLocation.DoorObjects[0].Open(true) then
        goTo normal;
    end;
    0..1, 6:begin//lumb gen
      if daLocation.DoorObjects[0].Open(false) then
        goTo normal;
    end;
    47..50:begin //redwood
      if Reflect.Tiles.GetPlane = 2 then begin
        if(not R_TileOnMS(daLocation.customTPAs[0][0], rstile))then begin
          UpdateScreen('Going to ladder.');
          ReflectPlayer.BlindWalkMM(daLocation.customTPAs[0][0], 5);
          ReflectPlayer.FFlag(0, 2500+random(500));
          Sleepscript(random(2000));
        end;
        UpdateScreen('Going down ladder.');
        if(R_InteractTile(daLocation.customTPAs[0][0], ['Climb-down']))then begin
            ReflectPlayer.FFlag(0, 2500+random(500));
            Sleepscript(random(2000));
        end;
      end;
      if Reflect.Tiles.GetPlane = 0 then
        goto Normal;
    end;
    else begin
      normal:
      if (length(daLocation.BankNPCs) = 0) then begin
        nearestBank.Tile.x := -1;
        for i:=0 to high(daLocation.BankLocations) do
          if (Reflect.Tiles.DistanceFromTile(daLocation.BankLocations[i].Tile) < Reflect.Tiles.DistanceFromTile(nearestBank.Tile)) or (nearestBank.Tile.x = -1) then
            nearestBank := daLocation.BankLocations[i];
        if R_TileOnMS(nearestBank.Tile, RSTile, nearestBank.Offset[0], nearestBank.Offset[1], nearestBank.Offset[2]) then
          exit;
      end else begin
        nearestNPCTile.x := -1;
        for i:=0 to high(daLocation.BankNPCs) do
          for h:=0 to high(daLocation.BankNPCs[i].Locations) do
            if (Reflect.Tiles.DistanceFromTile(daLocation.BankNPCs[i].Locations[h]) < Reflect.Tiles.DistanceFromTile(nearestNPCTile)) or (nearestNPCTile.x = -1) then
              nearestNPCTile := daLocation.BankNPCs[i].Locations[h];
        if R_TileOnMS(nearestNPCTile, RSTile) then
          exit;
      end;

      if (length(daLocation.PathToBank) <> 0) and not didPath then begin
        if R_TileOnMM(daLocation.PathToBank[0], RSTile) then begin
          updateScreen('Going to bank.');
          ReflectPlayer.WalkPathMM(daLocation.PathToBank, false);
          ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
          sleepScript(random(1500));
          exit;
        end;
      end;

      if (length(daLocation.BankNPCs) = 0) then begin
        nearestBank.Tile.x := -1;
        for i:=0 to high(daLocation.BankLocations) do
          if (Reflect.Tiles.DistanceFromTile(daLocation.BankLocations[i].Tile) < Reflect.Tiles.DistanceFromTile(nearestBank.Tile)) or (nearestBank.Tile.x = -1) then
            nearestBank := daLocation.BankLocations[i];

        updateScreen('Going to bank.');
        ReflectPlayer.BlindWalkMM(Point(nearestBank.Tile.x + nearestBank.TileOffset[0], nearestBank.Tile.y + nearestBank.TileOffset[1]), 5);
        ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
        sleepScript(random(1500));
      end else begin
        nearestNPCTile.x := -1;
        for i:=0 to high(daLocation.BankNPCs) do
          for h:=0 to high(daLocation.BankNPCs[i].Locations) do
            if (Reflect.Tiles.DistanceFromTile(daLocation.BankNPCs[i].Locations[h]) < Reflect.Tiles.DistanceFromTile(nearestNPCTile)) or (nearestNPCTile.x = -1) then
              nearestNPCTile := daLocation.BankNPCs[i].Locations[h];

        updateScreen('Going to bank npc.');
        ReflectPlayer.BlindWalkMM(nearestNPCTile, 5);
        ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
        sleepScript(random(1500));
      end;
    end;
  end;
end;

procedure openBank;
var RsTIle, nearestNPCTile : TPoint;
    i, h : integer;
    nearestBank : BankLocation;
    nearestNPC : BankNPC;
    timer : TReflectTimer;
label normal;
begin
  if not daLocation.canBank or ((length(daLocation.BankLocations) = 0) and (length(daLocation.BankNPCs) = 0)) then
    exit;

  if Reflect.Bank.IsOpen or Reflect.Bank.IsPinOpen or Reflect.Bank.IsDepositBoxOpen or Reflect.Shop.IsOpen then
    exit;

  case daLocation.ID of
    0..1, 6:begin//lumb gen
      if daLocation.DoorObjects[0].Open(false) then
        goTo normal;
    end;
    18:begin//edge
      if daLocation.DoorObjects[0].Open(true) then
        goTo normal;
    end;
    else begin
      normal:
      if (length(daLocation.BankNPCs) = 0) then begin
        Reflect.Compass.Make('n');
        Reflect.Compass.MakePitch(10);

        nearestBank.Tile.x := -1;
        for i:=0 to high(daLocation.BankLocations) do
          if (Reflect.Tiles.DistanceFromTile(daLocation.BankLocations[i].Tile) < Reflect.Tiles.DistanceFromTile(nearestBank.Tile)) or (nearestBank.Tile.x = -1) then
            nearestBank := daLocation.BankLocations[i];

        if (Reflect.Tiles.GetPlane <> nearestBank.Plane) then
          exit;

        if not R_TileOnMS(nearestBank.Tile, RSTile, nearestBank.Offset[0], nearestBank.Offset[1], nearestBank.Offset[2]) then begin
          updateScreen('Going to bank.');
          ReflectPlayer.BlindWalkMM(Point(nearestBank.Tile.x + nearestBank.TileOffset[0], nearestBank.Tile.y + nearestBank.TileOffset[1]), 5);
          ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
          sleepScript(random(1500));
        end;
        if R_TileOnMS(nearestBank.Tile, RSTile, nearestBank.Offset[0], nearestBank.Offset[1], nearestBank.Offset[2]) then begin
          updateScreen('Opening bank.');
          if R_InteractTile(nearestBank.Tile, nearestBank.Options, nearestBank.Offset[0], nearestBank.Offset[1], nearestBank.Offset[2], true) then begin
            ReflectPlayer.FFlag(0, 5000+random(500));
            Timer.Restart;
            while not Reflect.Bank.IsOpen and not Reflect.Bank.IsPinOpen and not Reflect.Bank.IsDepositBoxOpen
            and not Reflect.Shop.IsOpen and (timer.ElapsedTime < 2500) do
              sleepScript(50);
          end;
        end;
      end else begin
        nearestNPCTile.x := -1;
        for i:=0 to high(daLocation.BankNPCs) do
          for h:=0 to high(daLocation.BankNPCs[i].Locations) do
            if (Reflect.Tiles.DistanceFromTile(daLocation.BankNPCs[i].Locations[h]) < Reflect.Tiles.DistanceFromTile(nearestNPCTile)) or (nearestNPCTile.x = -1) then begin
              nearestNPCTile := daLocation.BankNPCs[i].Locations[h];
              nearestNPC := daLocation.BankNPCs[i];
            end;

        if (Reflect.Tiles.GetPlane <> nearestNPC.Plane) then
          exit;

        updateScreen('Opening bank npc.');
        if R_TryInteractNPC(nearestNPC.IDs, nearestNPC.Options, 5, nearestNPC.Offset[0], nearestNPC.Offset[1], nearestNPC.Offset[2]) then begin
          ReflectPlayer.FFlag(0, 5000+random(500));
          Timer.Restart;
          while not Reflect.Bank.IsOpen and not Reflect.Bank.IsPinOpen and not Reflect.Bank.IsDepositBoxOpen
          and not Reflect.Shop.IsOpen and (timer.ElapsedTime < 2500) do
            sleepScript(50);
        end;
      end;
    end;
  end;
end;

procedure goToTrees;
var RsTIle, farest : TPoint;
    i  : integer;
    didPath : boolean;
label normal;
begin
  if length(daLocation.TreeLocations) = 0 then
    exit;

  case daLocation.ID of
    5:begin//lum yew
      while ReflectPlayer.IsLoggedIn and (Reflect.Tiles.GetPlane <> 0) and Reflect.Tiles.NearTile(daLocation.customTPAs[0][0], 100) do begin
        randomHandler;
        if(not R_TileOnMS(daLocation.customTPAs[0][0], rstile))then begin
          UpdateScreen('Going to stairs.');
          ReflectPlayer.BlindWalkMM(daLocation.customTPAs[0][0], 5);
          ReflectPlayer.FFlag(0, 2500+random(500));
          Sleepscript(random(2000));
        end;
        UpdateScreen('Going down stairs.');
        if(R_InteractTile(daLocation.customTPAs[0][0], ['Climb-down']))then begin
          ReflectPlayer.FFlag(0, 2500+random(500));
          Sleepscript(random(2000));
        end;
      end;
      if (Reflect.Tiles.GetPlane = 0) then
        goTo normal;
    end;
    32..33, 44:begin //gnome
      if(Reflect.Tiles.GetPlane <> 0) then begin
        if(not R_TileOnMS(daLocation.customTPAs[0][1], rstile))then begin
          UpdateScreen('Going to stairs.');
          ReflectPlayer.BlindWalkMM(daLocation.customTPAs[0][1], 5);
          ReflectPlayer.FFlag(0, 2500+random(500));
          Sleepscript(random(2000));
        end;
        UpdateScreen('Going down stairs.');
        if(R_InteractTile(daLocation.customTPAs[0][1], ['Climb-down']))then begin
          ReflectPlayer.FFlag(0, 2500+random(500));
          Sleepscript(random(2000));
        end;
      end;
      if(Reflect.Tiles.GetPlane = 0) then
        goTO normal;
    end;
    18:begin//edge
      if daLocation.DoorObjects[0].Open(false) then
        goTo normal;
    end;
    0..1, 6:begin//lumb gen
      if daLocation.DoorObjects[0].Open(true) then
        goTo normal;
    end;
    47..50:begin //redwood
      if(Reflect.Tiles.GetPlane <> 2) then begin
        if(not R_TileOnMS(daLocation.customTPAs[0][0], rstile))then begin
          UpdateScreen('Going to ladder.');
          ReflectPlayer.BlindWalkMM(daLocation.customTPAs[0][0], 5);
          ReflectPlayer.FFlag(0, 2500+random(500));
          Sleepscript(random(2000));
        end;
        UpdateScreen('Going up ladder.');
        if(R_InteractTile(daLocation.customTPAs[0][0], ['Climb-up']))then begin
          ReflectPlayer.FFlag(0, 2500+random(500));
          Sleepscript(random(2000));
        end;
      end;
      if(Reflect.Tiles.GetPlane = 2) then
        goTO normal;
    end;
    else begin
      normal:
      if (length(daLocation.PathToTree) <> 0) and not didPath then begin
        if R_TileOnMM(daLocation.PathToTree[0], RSTile) then begin
          updateScreen('Going to trees.');
          ReflectPlayer.WalkPathMM(daLocation.PathToTree, false);
          ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
          sleepScript(random(1500));
          exit;
        end;
      end;

      farest.x := -1;
      for i:=0 to high(daLocation.TreeLocations) do
        if (Reflect.Tiles.DistanceFromTile(daLocation.TreeLocations[i]) > Reflect.Tiles.DistanceFromTile(farest)) or (farest.x = -1) then
          farest := daLocation.TreeLocations[i];

      updateScreen('Going to tree spots.');
      ReflectPlayer.BlindWalkMM(farest, 5);
      ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
      sleepScript(random(1500));
    end;
  end;
end;

procedure doBanking;
var _items : TReflectInvItemArray;
    i, count, _id : integer;
    firstTim : boolean;
    logIDs : TIntegerArray;
    tB : TBox;
    tim : treflecttimer;
begin
  if not daLocation.canBank then
    exit;

  firstTim := true;
  logIDs := daLocation.getLogIDs;
  if daLocation.isSell then begin
    if not Reflect.Shop.IsOpen then
      exit;
    doCount;
    updateScreen('Selling items.');
    doProggy(ProggieLocation);
    while ReflectPlayer.isLoggedIn and (Reflect.Inv.Contains(LogIDs) or firstTim) and
    Reflect.Shop.IsOpen do begin
      updateScreen('Selling items.');
      _items.GetAll;
      for i:=0 to high(_items) do begin
        if not ReflectPlayer.IsLoggedIn then
          break;
        if not Reflect.Shop.IsOpen then
          break;

        if not itemInSlot(_items[i].getinvslot) then
          continue;

        _id := _items[i].getId;
        if dropOnly then begin
          if not inIntArray(LogIDs, _id) then
            continue;
        end else begin
          if inIntArray(KnifeIDs, _id) then
            continue;
          if inIntArray(AxeIDs, _id) then
            continue;
          if inIntArray(CoinsIDs, _id) then
            continue;
          if inIntArray(ShaftIDs, _id) then
            continue;
        end;

        count := Reflect.Inv.Count;
        tB := _items[i].getbox;
        Reflect.Mouse.Move(tB, mouse_right);
        sleepScript(100+random(100));
        Reflect.Text.ChooseOption('Sell 50');
        tim.restart;
        while (tim.Elapsedtime < 2500) and (Reflect.Inv.Count = count) do
          sleepScript(20 + Random(20));
        sleepScript(500+random(250));
        if pos('highly over-stocked', Reflect.Chat.GetTextOnLine(1)) > 1 then begin
          Reflect.Interfaces.Close(Interface_ShopMenu);
          sleepScript(1000+random(1500));
          doDropping(true);
          exit;
        end;
      end;
      firstTim := false;
    end;
    if(random(2) = 1)then
      Reflect.Interfaces.Close(Interface_ShopMenu);
    sleepScript(random(1500));
    goToTrees;
  end else begin
    if not Reflect.Bank.IsOpen and not Reflect.Bank.IsDepositBoxOpen and not Reflect.Bank.IsPinOpen then
      exit;

    if Reflect.Bank.IsPinOpen then begin
      if length(ReflectPlayer.Pin) = 4 then
        Reflect.Bank.EnterPin(ReflectPlayer.Pin)
      else begin
        Reflect.Bank.Close;
        daLogger.Status('Invalid pin.', []);
        UpdateScreen('Invalid pin.');
        ReflectPlayer.Active := false;
        ReflectPlayer.Logout;
        sleepScript(2500);
        exit;
      end;
      sleepScript(random(2500));
    end;

    if not Reflect.Bank.IsOpen and not Reflect.Bank.IsDepositBoxOpen then
      exit;
    doCount;
    updateScreen('Banking items.');
    doProggy(ProggieLocation);
    while ReflectPlayer.IsLoggedIn and (Reflect.Inv.Contains(LogIDs) or firstTim) and
    (Reflect.Bank.IsOpen or Reflect.Bank.IsDepositBoxOpen) do begin
      updateScreen('Banking items.');
      if not Reflect.Inv.Contains(KnifeIDs) and not Reflect.Inv.Contains(AxeIDs) and
      not Reflect.Inv.Contains(CoinsIDs) and not Reflect.Inv.Contains(ShaftIDs) and (random(2) = 0) then begin
        Reflect.Bank.DepositAll('inv');
        sleepScript(1000+random(1000));
      end else begin
        _items.GetAll;
        for i:=0 to high(_items) do begin
          if not ReflectPlayer.IsLoggedIn then
            break;
          if not Reflect.Bank.IsOpen and not Reflect.Bank.IsDepositBoxOpen then
            break;

          if not itemInSlot(_items[i].getinvslot) then
            continue;

          _id := _items[i].getId;
          if dropOnly then begin
            if not inIntArray(LogIDs, _id) then
              continue;
          end else begin
            if inIntArray(KnifeIDs, _id) then
              continue;
            if inIntArray(AxeIDs, _id) then
              continue;
            if inIntArray(CoinsIDs, _id) then
              continue;
            if inIntArray(ShaftIDs, _id) then
              continue;
          end;

          if not Reflect.Bank.IsDepositBoxOpen then
            tB := _items[i].GetBox
          else
            tB := Reflect.Bank.DepositBoxBox(_items[i].GetInvSlot);
          count := Reflect.Inv.Count;
          Reflect.Mouse.Move(tB, mouse_right);
          sleepScript(100+random(100));
          Reflect.Text.ChooseOption('Deposit-All');
          tim.restart;
          while (tim.Elapsedtime < 2500) and (Reflect.Inv.Count = count) do
            sleepScript(20 + Random(20));
          sleepScript(500+random(250));
        end;
      end;
      firstTim := false;
    end;
    if(random(2) = 1)then
      Reflect.Bank.Close;

    sleepScript(random(1500));
    goToTrees;
  end;
end;

function TReflectObject.ToTree:TreeObject;
begin
  with result do begin
    AliveIDs := [self.GetId];
    DeadIDs := [];
    Options := ['Chop down'];
    TileOffset := [0, 0];
    Tile := self.GetTile;
    Index := 0;
    Name := '';
    Timer.Restart;
    Timer.StartTime := -1;
    if inIntArray([1278, 1276, 7482, 7480, 7424, 7422], self.GetId) then
      Offset := [75, 75, 200]
    else if inIntArray([7417, 7419, 7420], self.GetId) then
      Offset := [150, 150, 250]
    else
      Offset := [0, 0, 100];
  end;
end;

procedure nestCheck;
var i : integer;
    _items : TReflectGroundItemArray;
    rsTile, nestTile : TPoint;
begin
  if gItemTim.Elapsedtime > gItemOften then begin
    _items.GetAll(ItemCheckDistance);
    for i:=0 to high(_items) do begin
      nestTile := _items[i].GetTile;
      if inIntArray(NestIDs, _items[i].getId) and not Reflect.Inv.IsFull {and canBank} then begin
        daLogger.Status('Found nest!', []);
        UpdateScreen('Found nest...');
        if not R_TileOnMS(nestTile, RSTile) then begin
          ReflectPlayer.BlindWalkMM(nestTile, 5);
          ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
          sleepScript(random(1500));
        end;

        UpdateScreen('Taking nest...');
        if R_InteractTile(nestTile, ['Take B']) then begin
          inc(Nests);
          statsServer.IncreaseVariable('119', 1);
          ReflectPlayer.FFlag(0, 5000+random(500));
          sleepScript(random(2000));
        end;
      end;
    end;
    gItemTim.restart;
  end;
end;

procedure chopTree;
var tempTree : TreeObject;
    rSTile : Tpoint;
    tempObject : TReflectObject;
    i, objectID : integer;
    _objects : TReflectobjecTArray;
    tempTrees : TreeObjectArray;
begin
  if useFakeWaitTime and wasWorking then begin
    updateScreen('Doing fake ''antiban'' wait.');
    sleepScript(1000+random(7500));
  end;
  if R_DidLevelUp or R_DidLevelUpExtra then begin
    updateScreen('Clicking level up!');

    for i:=0 to 1000 do
      if not FileExists(ScriptPath+'ineedbot''s clicking level up '+toStr(i)+'.png')then
        break;
    doProggy(ScriptPath+'ineedbot''s clicking level up '+toStr(i)+'.png');

    R_DidLevelUp(true);
    R_DidLevelUpExtra(true);
  end;

  case daLocation.ID of
    18:begin//edge
      if not daLocation.DoorObjects[0].Open(false) then
        exit;
    end;
    0..1, 6:begin//lum gen
      if not daLocation.DoorObjects[0].Open(true) then
        exit;
    end;
    5:begin //lum yew
      if Reflect.Tiles.GetPlane <> 0 then begin
        goToTrees;
        exit;
      end;
    end;
    32..33, 44:begin     //gnome
      if Reflect.Tiles.GetPlane <> 0 then begin
        goToTrees;
        exit;
      end;
    end;
    47..50:begin //redwood
      if Reflect.Tiles.GetPlane <> 2 then begin
        goToTrees;
        exit;
      end;
    end;
  end;

  updateScreen('Looking for tree...');
  tempTree.Tile.X := 0;

  if daLocation.isPower then begin
    wasWorking := false;
    if daLocation.distanceCheck < 1 then
      _objects.GetAll(ObjGame, 30)
    else
      _objects.GetAll2(ObjGame, daLocation.distanceCheck, daLocation.TreeLocations[0]);
    for i:=0 to high(_objects) do begin
      if inIntArray(daLocation.customIDs[0], _objects[i].getId) then begin
        tempTree := _objects[i].ToTree;
        break;
      end;
    end;
    if not tempTree.isValid then
      goToTrees;
  end else begin
    if daLocation.isFar then begin
      wasWorking := false;
      tempTrees := daLocation.TreeObjects.getAliveTrees;
      if length(tempTrees) <> 0 then begin
        tempTree := tempTrees.getClosestTree;
      end else begin
        tempTree := daLocation.TreeObjects.getNextTree(PreviousTree);
        PreviousTree := daLocation.TreeObjects.getClosestTree;
        UpdateScreen('Going to next tree...');
        if tempTree.isValid and not R_TileOnMS(tempTree.Tile, rsTile, tempTree.Offset[0], tempTree.Offset[1], tempTree.Offset[2]) then begin
          ReflectPlayer.BlindWalkMM(Point(tempTree.Tile.x + tempTree.TileOffset[0], tempTree.Tile.y + tempTree.TileOffset[1]), 5);
          ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
          sleepScript(random(1500));
        end;
      end;
    end else begin
      tempTrees := daLocation.TreeObjects.getAliveTrees;
      if length(tempTrees) <> 0 then begin
        tempTree := tempTrees.getClosestTree;
      end else begin
        tempTrees := daLocation.TreeObjects.getDeadTrees;
        if length(tempTrees) <> 0 then begin
          if daLocation.canFire and (daLocation.ID = 42) then begin
            doFire;
            exit;
          end;
          tempTree := daLocation.TreeObjects.getClosestTreeTime;
          if tempTree.isValid then begin
            if not Reflect.Tiles.NearTile(TempTree.Tile, 5) then begin
              ReflectPlayer.BlindWalkMM(Point(tempTree.Tile.x + tempTree.TileOffset[0], tempTree.Tile.y + tempTree.TileOffset[1]), 5);
              ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
              sleepScript(random(1500));
            end;
            tempTree.Tile.X := 0;
          end;
        end else begin
          goToTrees;
          exit;
        end;
      end;
    end;
  end;

  if tempTree.isValid then begin
    PreviousTree := daLocation.TreeObjects.getClosestTree;
    updateScreen('Going to chop tree.');
    if not R_TileOnMS(tempTree.Tile, rsTile, tempTree.Offset[0], tempTree.Offset[1], tempTree.Offset[2]) then begin
      ReflectPlayer.BlindWalkMM(Point(tempTree.Tile.x + tempTree.TileOffset[0], tempTree.Tile.y + tempTree.TileOffset[1]), 5);
      ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
      sleepScript(random(1500));
    end;

    Reflect.Interfaces.CloseAll;

    if R_TileOnMS(tempTree.Tile, rsTile, tempTree.Offset[0], tempTree.Offset[1], tempTree.Offset[2]) then begin
      if UseSpec and (ReflectPlayer.GetSpecPercent >= 100)then begin
        if Reflect.Gametab.CurrentColor <> Gametab_CombatOptions then
          Reflect.Gametab.Open(Gametab_CombatOptions);
        reflect.mouse.move(Point(645, 432), 5, 5);
        FastClick(mouse_left);
      end;
      if R_InteractTile(tempTree.Tile, tempTree.Options, tempTree.Offset[0], tempTree.Offset[1], tempTree.Offset[2]) then begin
        sleepScript(random(1000));
        if(random(round(AntiAmount/200)) <> 0)then
          Reflect.Antiban.MMouseOffClient('Random');
        ReflectPlayer.FFlag(0, 5000+random(500));
        sleepScript(1000+random(1000));
        tempObject.GetAt(ObjGame, tempTree.Tile);
        if not Reflect.Smart.IsNull(tempObject.Reference) then
          objectID := tempObject.GetId
        else
          objectID := -1;
        while ReflectPlayer.IsLoggedIn and inIntArray(TempTree.AliveIDs, objectID) and
              (inIntArray(ChopAnimationIDs, ReflectPlayer.GetAnimation) or apeAtollIsChopping(tempTree.tile, tempTree.AliveIDs)) and
              not Reflect.Inv.IsFull and not ReflectPlayer.IsUnderAttack do
        begin
          randomHandler;
          FixActive;
          UpdateScreen('Chopping tree...');
          wasWorking := true;
          nestCheck;
          tempObject.GetAt(ObjGame, tempTree.Tile);
          if not Reflect.Smart.IsNull(tempObject.Reference) then
            objectID := tempObject.GetId
          else
            objectID := -1;
        end;
      end;
    end;
  end;
end;

procedure runAway;
var RSTile : TPoint;
label _random;
begin
  RsTIle := Reflect.Tiles.GetGlobalTile;
  updateScreen('Running away.');
  if length(daLocation.RunDirections) = 0 then begin
    goto _random;
  end else begin
    case daLocation.RunDirections[random(length(daLocation.RunDirections))] of
      'n':begin
        ReflectPlayer.BlindWalkMM(point(RsTIle.x, RsTIle.y+15), 5);
      end;
      's':begin
        ReflectPlayer.BlindWalkMM(point(RsTIle.x, RsTIle.y-15), 5);
      end;
      'w':begin
        ReflectPlayer.BlindWalkMM(point(RsTIle.x-15, RsTIle.y), 5);
      end;
      'e':begin
        ReflectPlayer.BlindWalkMM(point(RsTIle.x+15, RsTIle.y), 5);
      end;
      else begin
        _random:
        case random(8) of
          0:ReflectPlayer.BlindWalkMM(point(RsTIle.x, RsTIle.y-15), 5);
          1:ReflectPlayer.BlindWalkMM(point(RsTIle.x, RsTIle.y+15), 5);
          2:ReflectPlayer.BlindWalkMM(point(RsTIle.x+15, RsTIle.y), 5);
          3:ReflectPlayer.BlindWalkMM(point(RsTIle.x-15, RsTIle.y), 5);
          4:ReflectPlayer.BlindWalkMM(point(RsTIle.x+15, RsTIle.y-15), 5);
          5:ReflectPlayer.BlindWalkMM(point(RsTIle.x-15, RsTIle.y+15), 5);
          6:ReflectPlayer.BlindWalkMM(point(RsTIle.x-15, RsTIle.y-15), 5);
          7:ReflectPlayer.BlindWalkMM(point(RsTIle.x+15, RsTIle.y+15), 5);
        end;
      end;
    end;
  end;
  ReflectPlayer.FFlag(2+randomRange(-2, 2), 5000+random(500));
  sleepScript(random(1500));
end;

procedure doChecks;
var i, tInt : integer;
begin
  UpdateScreen('');

  randomHandler;
  FixActive;

  if daLocation.canfire and not Reflect.Inv.Contains(TinderIds) then
    daLocation.canfire := false;

  if daLocation.canfletch and not Reflect.Inv.Contains(KnifeIDs) then
    daLocation.canfletch := false;

  if(ReflectPlayer.GetRunEnergy >= RunAmount) and not ReflectPlayer.IsRunOn then
    ReflectPlayer.SetRun(true);

  nestCheck;

  if ReflectPlayer.IsUnderAttack then begin
    UpdateScreen('Under attack! Running away to bank.');
    daLogger.Status('Under attack!', []);
    runAway;
    sleepScript(5000+random(2500));
  end;

  if(LastXPCheck.Elapsedtime > 600000) then begin
    if Reflect.Gametab.CurrentColor <> Gametab_Inventory then
      Reflect.Gametab.Open(Gametab_Inventory);
    setupPlayer;
    if(ReflectPlayer.GetSkillExp(SKILL_WOODCUTTING) <= LastXPXP)then begin
      UpdateScreen('No woodcutting XP gained in 10 minutes.');
      daLogger.Error('No woocutting XP gained in 10 minutes.', []);
      LastXPXP := ReflectPlayer.GetSkillExp(SKILL_WOODCUTTING);
      ReflectPlayer.Active := false;
      ReflectPlayer.Logout;
      sleepScript(2500);
      exit;
    end;
    LastXPXP := ReflectPlayer.GetSkillExp(SKILL_WOODCUTTING);
  end;

  if (StatsTimer.Elapsedtime > StatsTime) then begin
    StatsTimer.restart;
    StatsTime := 50000 + random(400000);
    tInt := 0;
    for i:=0 to high(daLocation.Logs) do
      tInt := tInt + (daLocation.Logs[i].price * daLocation.Logs[i].chopped);

    statsServer.IncreaseVariable('80', (ReflectPlayer.GetSkillExp(SKILL_WOODCUTTING)-statsWoodXP));
    statsServer.IncreaseVariable('79', (ReflectPlayer.GetSkillExp(SKILL_FIREMAKING)-statsFireXP));
    statsServer.IncreaseVariable('65', (ReflectPlayer.GetSkillExp(SKILL_FLETCHING)-statsFletchXP));
    if daLocation.canBank and not daLocation.canFire and not daLocation.isSell and not daLocation.canFletch then
      statsServer.IncreaseVariable('44', (tInt - statsProfit));

    statsWoodXP := ReflectPlayer.GetSkillExp(SKILL_WOODCUTTING);
    statsFletchXP := ReflectPlayer.GetSkillExp(SKILL_FLETCHING);
    statsFireXP := ReflectPlayer.GetSkillExp(SKILL_FIREMAKING);
    statsProfit := tInt;

    if useStats then
      if statsServer.Commit then
        daLogger.Status('Successfully sent heartbeat to ''stats.grats.pw''.', []);
  end;

  tInt := 0;
  for i:=0 to high(daLocation.Logs) do
    tInt := tInt + daLocation.Logs[i].chopped;
  if(tInt >= AmountAmount) and (AmountAmount > -1) then begin
    UpdateScreen('Chopped more or equal to given amount to chop.');
    daLogger.Status('Chopped more or equal to given amount to chop.', []);
    ReflectPlayer.Active := false;
    ReflectPlayer.Logout;
    sleepScript(2500);
    exit;
  end;

  if useBreaks then
    doBreakCheck;
end;

begin
  showForm;
  if started then begin
    ClearDebug;
    Reflect.Setup;
    Reflect.Smart.Graphics.Clear;
    if not(SmartEnabled(Reflect.Smart.Target)) then
      SmartSetEnabled(Reflect.Smart.Target, false);
    setupINeedFuncs;
    doUpdate;
    if (high(WorldList) > -1) and not ReflectPlayer.isLoggedIn then
      ReflectPlayer.ChangeWorld(WorldList[random(length(WorldList))]);
    nullInt := -1337;//so it runs .create at least once and makes sure script is played logged in
    while not(ReflectPlayer.isLoggedIn) or (nullInt = -1337) do begin
      if ReflectPlayer.Active then begin
        daLogger.Status('Logging player in...', []);
        ReflectPlayer.Login;
        if ReflectPlayer.Active then
          setupPlayer;
      end else begin
        sleepScript(1000);
      end;
      nullInt := 0;
    end;
    setupScript;
    while 1 do begin
      if ReflectPlayer.isLoggedIn then begin
        if daLocation.isDynamic then
          dynChop;
        if Reflect.Inv.IsFull then begin
          if useFakeWaitTime and wasWorking then begin
            updateScreen('Doing fake ''antiban'' wait.');
            sleepScript(1000+random(7500));
          end;
          wasWorking := false;
          if daLocation.canfire then begin
            doFire;
          end else begin
            if daLocation.canFletch then
              doFletch;
            if daLocation.canBank then begin
              goToBank;
              openBank;
              doBanking;
            end else begin
              doDropping(false);
            end;
          end;
        end else begin
          chopTree;
        end;
        doChecks;
      end else begin
        if ReflectPlayer.Active then begin
          if (high(WorldList) > -1) then
            ReflectPlayer.ChangeWorld(WorldList[random(length(WorldList))]);
          daLogger.Status('Logging player in...', []);
          ReflectPlayer.Login;
          if ReflectPlayer.Active then
            setupPlayer;
        end else begin
          sleepScript(1000);
        end;
      end;
    end;
  end;
end.

[Lipcot]

WC guild Oaks, 3 trees i use to drop logs, Fastest best way in game to get nests.

54:begin
          daLocation.ID := 54;
          daLocation.Name := 'WC Oaks';

          daLocation.canFire := true;

          setLength(daLocation.FireLanes, 1);
          with daLocation.FireLanes[0] do begin
            Plane := 0;
            Length := 26;
            Tile := Point(1633, 3504);
          end;

          daLocation.canFletch := true;
          daLocation.fletchPoint := Point(1617, 3507);

          daLocation.RunDirections := ['n', 'w'];

          setLength(daLocation.Logs, 1);
          daLocation.Logs[0].ID := 1521;

          daLocation.TreeLocations := [Point(1620, 3511)];

          setLength(daLocation.TreeObjects, 3);
          with daLocation.TreeObjects[0] do begin
            Offset := [0, 0, 250];
            TileOffset := [-2, 2];
            Tile := Point(1617, 3509);
            Options := ['Chop down Oak'];
            Name := 'Oak';
            Index := 0;
            AliveIDs := AliveOakIDs;
            DeadIds := DeadOakIDs;
            Timer.Restart;
            Timer.StartTime := -1;
          end;
          with daLocation.TreeObjects[1] do begin
            Offset := [0, 0, 250];
            TileOffset := [-2, 2];
            Tile := Point(1621, 3508);
            Options := ['Chop down Oak'];
            Name := 'Oak';
            Index := 1;
            AliveIDs := AliveOakIDs;
            DeadIds := DeadOakIDs;
            Timer.Restart;
            Timer.StartTime := -1;
          end;
          with daLocation.TreeObjects[2] do begin
            Offset := [0, 0, 250];
            TileOffset := [-2, 2];
            Tile := Point(1618, 3513);
            Options := ['Chop down Oak'];
            Name := 'Oak';
            Index := 2;
            AliveIDs := AliveOakIDs;
            DeadIds := DeadOakIDs;
            Timer.Restart;
            Timer.StartTime := -1;
          end;
        end;

No one is moderating it seems, but try not to multi post like this... just use the EDIT button and add to your replies.

[hexthis]

No one is moderating it seems, but try not to multi post like this... just use the EDIT button and add to your replies.

I merged em, have to start a new one now though... takes over 190 seconds to submit edit on that big post.