//Please note that this is the most basic
//version of this woodcutter.  It will be updated when
//I can find the time to do so.
//Thanks to Deprr for the ARi include!
//Thanks to the developers of SCAR for the form script!
//Happy Cheating!!
program DraynorOakCutter;
const
OakColor =801077;
var
frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Button1 : TButton;
AxeBaseInvColor,AxeHeadInvColor,axe,a,b,c,d:integer;
xyxy,x,y,talkto,talktoy,take,takeY,fixaxe,use,useY:integer;
invcount:integer;


{include ARi.txt}
procedure buttonclick(sender: TObject);
begin
 Writeln('Button pressed, woodcutting begining...');
 frmDesign.Caption:= frmDesign.Caption + '.';
 frmDesign.ModalResult:= mrOk;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 480;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 63;
Label1.Top := 37;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 64;
Label2.Top := 87;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 308;
Label3.Top := 36;
Label3.Width := 215;
Label3.Height := 13;
Label3.Caption := 'This auto woodcutter will cut the oak  tree by ';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 311;
Label4.Top := 52;
Label4.Width := 171;
Label4.Height := 13;
Label4.Caption := 'Draynor bank.  It will drop them also.';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 309;
Label5.Top := 69;
Label5.Width := 129;
Label5.Height := 13;
Label5.Caption := 'Enjoy and Happy Cheating!';
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 123;
Edit1.Top := 35;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := 'Enter Your Username';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 123;
Edit2.Top := 84;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := 'Enter Your Password';
Button1 := TButton.Create(frmDesign);
Button1.OnClick:= @buttonclick;
Button1.Parent := frmDesign;
Button1.Left := 247;
Button1.Top := 150;
Button1.Width := 120;
Button1.Height := 30;
Button1.Caption := 'Continue';
Button1.TabOrder := 10;
end;
procedure SafeInitForm;
var
 v: TVariantArray;
begin
 setarraylength(V, 0);
 ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
 frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
 v: TvariantArray;
begin
 setarraylength(V, 0);
 ThreadSafeCall('ShowFormModal', v);
end;

procedure Rwait(Rw:integer);
 var Rww:longint;
 begin
 Rww:=rw+random(rw/2)+getsystemtime;
 repeat
 wait(random(10));
 until(getsystemtime>rww);
 end;
procedure Fwait;
var x,y,flag:integer;
begin
repeat
rwait(2)
until(findcolorspiral(x,y,flag,628,63,669,97))or(not(findcolorspiral(x,y,flag,545,1,752,168)))or
     (findcolorspiral(x,y,255,628,63,669,97))or(not(findcolorspiral(x,y,255,545,1,752,168)))
end;
Procedure MouseX(x,y:Integer);
begin
 x:=x+random(5);
 y:=y+random(5);
 RWait(100);
 MoveMouseSmoothEx(x,y,2,6,25,16,15);
 GetMousePos(x,y);
 RWait(300);
end;
Procedure CMouse(x,y:integer; left:boolean);
begin
 Mousex(x,y);
 GetMousePos(x,y);
 RWait(50);
 HoldMouse(x,y,left);
 RWait(20);
 ReleaseMouse(x,y,left);
 Rwait(300);
end;
function FindMenuBmpFromTop(BitMap1:integer; BitMap2:integer; BitMapTol:integer; objcolor,objtol:integer):boolean;
var x,y,xx,yy:integer;
begin
cmouse(x,y,false)
rwait(1000)
if(not(FindBitmapToleranceIn(bitmap1,x,y,0,0,514,339,BitMapTol)))
or(not(FindBitmapToleranceIn(bitmap2,x,y,0,0,514,339,BitMapTol)))then
while(yy<14)do
begin
 rwait(30);
 if(xx=27)then
  begin
   xx:=0;
   yy:=yy+1;
  end;
 if(yy>13)then break;
 if(FindColorSpiralTolerance(x,y,objcolor,xx*25+5,yy*25+5,xx*25+25,yy*25+25,objtol))then
  begin
   mousex(516+random(80),338+random(50))
   rwait(100)
   Mousex(x,y);
   rwait(100);
   cmouse(x,y,false)
   rwait(400)
   if(FindBitmapToleranceIn(bitmap1,x,y,0,0,514,339,BitMapTol))
   or(FindBitmapToleranceIn(bitmap2,x,y,0,0,514,339,BitMapTol))then
    begin
     rwait(500)
     cmouse(x,y,true)
     result:=true
     break;
    end;
  end;
 xx:=xx+1;
end;
end;
procedure SendKeysSilentWait(s:string; WaitTime:integer);
var x,y:integer;
begin
x:=0
y:=0
repeat
wait(1+random(1))
x:=x+1
until(x=waittime)
SendKeysSilent(s)
repeat
wait(1+random(1))
y:=y+1
until(x=waittime)
end;
procedure FindColorClick(OakColor:integer; x1,y1,x2,y2:integer; left:boolean);
var x,y:integer;
begin
rwait(500)
if(findcolorspiral(x,y,801077,x1,y1,x2,y2))then
rwait(100)
cmouse(x,y,left)
end;
procedure dropallcolor(color:integer; WaitTime:integer);
var x,y,DropWhite,DropYellow:integer;
begin
DropWhite := BitmapFromString(29, 11, 'z78DA7373C30E4C1D4D4D4D8' +
     'C061B89EC42033018CC6EC6742DA6F8D0722DB2F8D072AD1BD1E9' +
     'DC8DC41C418C7ACA5D6B800470E9C59F2388574F896B31DD492D3' +
     '3892901283179D4B5F85D4B5E9A2435D7E0379318F5067801A64B' +
     'F0CBE252497C3AC7A51E005840B4F8');
DropYellow := BitmapFromString(29, 11, 'z78DA73737373333070C320' +
     '4D1D4D4D4D8C061B89EC420818CC6EC6742DA6F8D0722DB2F8D07' +
     '2AD1BD1E9DC8DC41C418C7ACA5D8B0C70E9C59F2388574F896B31' +
     'DD492D33892901283179D4B5F85D4B5E9A2435D7E0379318F5067' +
     '801A64BF0CBE252497C3AC7A51E00D98EA294');
repeat
if(findcolorspiral(x,y,color,551,203,746,466))then
MoveMouseSmoothEx(x,y,1,3,45,20,10)
wait(waittime+random(100))
cmouse(x,y,false)
wait(waittime+random(100))
if(FindBitmapToleranceIn(DropWhite,x,y,533,201,756,471,150))or
  (FindBitmapToleranceIn(DropYellow,x,y,533,201,756,471,150))then
wait(waittime+random(100))
MoveMouseSmoothEx(x+random(45),y+5+random(9),1,3,45,20,10)
getmousepos(x,y)
wait(waittime+random(100))
cmouse(x,y,true)
wait(waittime+random(100))
MoveMouseSmoothEx(0+random(764),0+random(502),1,3,45,20,10)
wait(waittime+500+random(100))
until(not(findcolorspiral(x,y,color,551,203,746,466)))
end;
procedure ClickInv(col:integer; row:integer; left:boolean);
begin
if ((col = 1)and(row =1)=true)then
 begin
 rwait(100)
 cmouse(588+random(5),227+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =1)=true)then
 begin
 rwait(100)
 cmouse(626+random(5),228+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =1)=true)then
 begin
 rwait(100)
 cmouse(669+random(5),227+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =1)=true)then
 begin
 rwait(100)
 cmouse(710+random(5),229+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =2)=true)then
 begin
 rwait(100)
 cmouse(586+random(5),264+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =2)=true)then
 begin
 rwait(100)
 cmouse(628+random(5),264+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =2)=true)then
 begin
 rwait(100)
 cmouse(670+random(5),264+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =2)=true)then
 begin
 rwait(100)
 cmouse(710+random(5),264+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =3)=true)then
 begin
 rwait(100)
 cmouse(588+random(5),300+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =3)=true)then
 begin
 rwait(100)
 cmouse(629+random(5),299+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =3)=true)then
 begin
 rwait(100)
 cmouse(671+random(5),300+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =3)=true)then
 begin
 rwait(100)
 cmouse(712+random(5),302+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =4)=true)then
 begin
 rwait(100)
 cmouse(586+random(5),338+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =4)=true)then
 begin
 rwait(100)
 cmouse(629+random(5),336+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =4)=true)then
 begin
 rwait(100)
 cmouse(670+random(5),337+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =4)=true)then
 begin
 rwait(100)
 cmouse(713+random(5),339+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =5)=true)then
 begin
 rwait(100)
 cmouse(585+random(5),373+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =5)=true)then
 begin
 rwait(100)
 cmouse(631+random(5),375+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =5)=true)then
 begin
 rwait(100)
 cmouse(670+random(5),375+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =5)=true)then
 begin
 rwait(100)
 cmouse(712+random(5),375+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =6)=true)then
 begin
 rwait(100)
 cmouse(585+random(5),405+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =6)=true)then
 begin
 rwait(100)
 cmouse(629+random(5),409+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =6)=true)then
 begin
 rwait(100)
 cmouse(671+random(5),409+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =6)=true)then
 begin
 rwait(100)
 cmouse(713+random(5),410+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =7)=true)then
 begin
 rwait(100)
 cmouse(586+random(5),445+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =7)=true)then
 begin
 rwait(100)
 cmouse(630+random(5),444+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =7)=true)then
 begin
 rwait(100)
 cmouse(671+random(5),445+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =7)=true)then
 begin
 rwait(100)
 cmouse(712+random(5),444+random(5),left)
 rwait(100)
end;
end;
procedure RunAwayNorth;
begin
CMouse(711,480,true)
rWait(1000)
CMouse(625,267,true)
rWait(500)
 CMouse(651,22,true)
 status('Runing North')
 rWait(10000)
 CMouse(644,139,true)
 rWait(5000)
 CMouse(580,265,true)
 rWait(1000)
 CMouse(650,185,true)
end;
procedure UseInvItem(col:integer; row:integer);
var x,y,UseWhite,UseYellow:integer;
begin
UseWhite := BitmapFromString(24, 11, 'z78DA737343005347535313236' +
          '4D20DAF2C2D48641B0DC08078D951F70C2DF7B8E105F8EDC2A592' +
          '3CF7608AE302F8D563BA8A16E1437C2C608A539E7EF0FB979898C' +
          '51F9EB84C20263D5312BFC4A737FCE613E35FF2D23F66F8E3F705' +
          'F12A89D70500812A6842');
UseYellow := BitmapFromString(24, 11, 'z78DA737373733330700393A6' +
          '8EA6A62646C8A41B5E595A90C8364200F1B2A3EE195AEE4196C52' +
          '4F1DB854B2579EEC114C705F0ABC774152DC287F858C014A73CFD' +
          'E0F72F31318B3F3C7199404C7AA6247E894F6FF8CD27C6BFE4A57' +
          'FCCF0C7EF0BE25512AF0B003F47597A');
clickinv(col,row,false)
rwait(200)
 if(FindBitmapToleranceIn(UseWhite,x,y,526,203,756,468,100))or
   (FindBitmapToleranceIn(UseYellow,x,y,526,203,756,468,100))then
rwait(100)
cmouse(x+random(50),y+random(5),true)
rwait(100)
end;
procedure logoutrs;
begin
cmouse(648,485,true)
rwait(1500)
mousex(643,377)
rwait(500)
cmouse(643,377,true)
rwait(500)
end;
Procedure GetAxeHeadInvColor;
begin
   Status('Getting AxeHeadInvColor...');
   rWait(500);
   Mousex(591,220);
   rWait(500);
   If(IsTextAt2(9,9,'Wield',100))then
     begin
      AxeHeadInvColor := GetColor(591,220);
      Status('AxeHeadInvinColor is '+inttostr(AxeHeadInvColor));
      rWait(500)
     end else
    begin
      Writeln('*************************');
      Writeln('No Axe in first inv slot!');
      Writeln('*************************');
      logoutrs;
    end;
end;
Procedure GetAxeBaseInvColor;
begin
   Status('Getting AxeBaseInvColor...');
   rWait(500);
   Mousex(580,227);
   rWait(500);
   If(IsTextAt2(9,9,'Wield',100))then
     begin
      AxeBaseInvColor := GetColor(580,227);
      Status('AxeBaseInvinColor is '+inttostr(AxeBaseInvColor));
      rWait(500)
     end else
    begin
      Writeln('*************************');
      Writeln('No Axe in first inv slot!');
      Writeln('*************************');
      logoutrs;
    end;
end;
procedure Checkaxe;{only works if axe is in first slot}
begin
status('checking for axe')
if(not(findcolor(a,b,AxeHeadInvColor,553,208,600,242)))then
repeat
if(findcolorspiral(a,b,AxebaseInvColor,0,0,517,339))then
Mousex(a,b)
rWait(1000)
if(FindColorTolerance(c,d,4361967,0,0,513,23,100))then
CMouse(a,b,false)
rWait(500)
if(FindBitmapToleranceIn(take,a,b,0,0,517,339,150))or(FindBitmapToleranceIn(takeY,a,b,0,0,517,339,150))then
CMouse(a,b,true)
rWait(500)
if(findcolorspiral(a,b,AxeHeadInvColor,676,312,883,577))then
Mousex(a,b)
rWait(1000)
until(findcolorspiral(a,b,AxeHeadInvColor,676,312,883,577))
if(findcolor(a,b,AxeHeadInvColor,566,211,599,228))then
end;
procedure YellowTxtRandoms;
begin
if(FindColor(a,b,65535,5,5,514,337))then wait(200+random(342))
if(FindColor(a,b,65535,5,5,514,337))then
 begin
 repeat
 rWait(500);
 if(IsTextAt2(9,9,'Ta',100))then
  begin
  GetMousePos(a,b)
  CMouse(a,b,false)
  rWait(300)
  if(FindBitmap(Talkto,a,b))or(FindBitmap(TalktoY,a,b))then
   begin
   CMouse(a,b,true)
   rWait(1000)
   while((FindColor(a,b,16711680,5,345,510,465))or
        (FindColor(a,b,16777215,5,345,510,465)))and
        (not(GetColor(20,434)=0))do
    begin
    CMouse(a,b,true);
    rWait(2500);
    end;
   End;
  end;
until(not(FindColor(a,b,65535,5,5,514,337)))
 end;
end;
procedure OtherRandoms;
begin
if(findcolor(a,b,65280,232,130,275,151))then
rWait(100)
if(findcolor(a,b,65280,232,130,275,151))then
runawaynorth;
end;

procedure LoadTheBMPS;
begin
  Take := BitmapFromString(29, 11, 'z78DA7373230C4C1D4D4D4D8C' +
       '482529370117690006C8E61B60004A5C4B9E09F4347FD4B5A49A4' +
       'F7CDAC6348D78F5C4A479FCAEC595AA71998CCB76CCBC40AAC994' +
       '872DA62E62DC89DF5E52438FD4B0C5EF5A52D300797E242F04884' +
       'FB7F84B4E626299BA29019738F126E3AF29F0973906780131A611' +
       '238E0900F2FBB462');
  TakeY := BitmapFromString(29, 11, 'z78DAED95410EC0200804BF4' +
       '49AF2002FFCFF494D3C35216C76C1F4540E1C8C8E2BAE18116116' +
       '30FB72BF2F35CF0955B61D6F7E8E89DA1EE14BFEAF56E5F3DECE3' +
       '47E3EE379ACB6727545AE76CF6F4125CF6B9B57313AF1BE6AF5D4' +
       'DA62B5AA077A67EC5580F72DEE9CCC2D9F754235CE93F14F817B8' +
       'EC16068CC788E07A08EA256');
  Use := BitmapFromString(24, 11, 'z78DA737343005347535313236' +
       '4D20DAF2C2D48641B0DC08078D951F70C2DF7B8E105F8EDC2A592' +
       '3CF7608AE302F8D563BA8A16E1437C2C608A539E7EF0FB979898C' +
       '51F9EB84C20263D5312BFC4A737FCE613E35FF2D23F66F8E3F705' +
       'F12A89D70500812A6842');
  UseY := BitmapFromString(24, 11, 'z78DA737373733330700393A6' +
       '8EA6A62646C8A41B5E595A90C8364200F1B2A3EE195AEE4196C52' +
       '4F1DB854B2579EEC114C705F0ABC774152DC287F858C014A73CFD' +
       'E0F72F31318B3F3C7199404C7AA6247E894F6FF8CD27C6BFE4A57' +
       'FCCF0C7EF0BE25512AF0B003F47597A');

  TalkTo := BitmapFromString(29, 11, 'z78DA7373230C4C1D4D4D4D' +
       '8C4825719940B9C90660806C8E0106A0C4B5C826E012A796F9D43' +
       '56DD4B5B8CC213E6D13EF5AF252327ED7E24AD5C4E4265CAEC565' +
       '262E95D40A5BE2639C1877629600C4841EA9614B9E6BC92BCD487' +
       '52DB5C469916E6991127089935A53E02F5B0CF002624C23551C42' +
       '02004BDCB450');
  TalkToY := BitmapFromString(29, 11, 'z78DAED95310AC0300C03B' +
       'F644AFD802EFAFF930AE9120832B2E36CF5E0418443388A030066' +
       '08BB3FEEF795ED8CB04FB6513367AD1DB73381E95DFC5EDAEF967' +
       '1F46CEB6E6B498EDDB2542BAF89B9654C76B26BB6FA8D2B3ED70D' +
       'A04C2F3BDB9ADBDA36CBBAEDD24FE4F64412989EFD29E2DD62612' +
       '9B4ACFEF51704F6A270');
end;


Procedure SetupARi;
begin
Writeln('Script is Using')
Writeln('   _____ __________.__    __            __   ')
Writeln('  /  _  \\______   \__| _/  |____  ____/  |_ ')
Writeln(' /  /_\  \|       _/  | \   __\  \/  /\   __\')
Writeln('/    |    \    |   \  |  |  |  >    <  |  |  ')
Writeln('\____|__  /____|_  /__| /\__| /__/\_ \ |__|  ')
Writeln('        \/       \/     \/          \/       ')
writeln('                             Created by Deprr')
xyxy:= LoadChars2(AppPath + 'CharsRS22\');
loadchars('');
loadthebmps;
end;
procedure CutOaks;
begin
Status('Cutting')
repeat
YellowTxtRandoms;
OtherRandoms;
until(FindColorSpiral2(x,y,(OakColor),10,12,516,342))
If(FindColorSpiral2(x,y,(OakColor),10,12,516,341)) Then
MoveMouse(x,y);
wait(100);
ClickMouse(x,y,true);
wait(100);
end;
procedure DropOaks;
begin
Status('Dropping logs');
//Ore 27\\
   wait(100);
   movemouse(683,472);
   wait(100);
   clickmouse(683,472, false);
   wait(100);
   movemouse(683,455);
   Wait(100);
   clickmouse(683,455, true);
   Wait(100);
//Ore 26\\
   wait(100);
   movemouse(642,472);
   wait(100);
   clickmouse(642,472, false);
   wait(100);
   movemouse(642,455);
   Wait(100);
   clickmouse(642,455, true);
   Wait(100);
//Ore 25\\
   wait(100);
   movemouse(600,472);
   wait(100);
   clickmouse(600,472, false);
   wait(100);
   movemouse(600,455);
   Wait(100);
   clickmouse(600,455, true);
   Wait(100);
//Ore 24\\
   wait(100);
   movemouse(723,437);
   wait(100);
   clickmouse(723,437, false);
   wait(100);
   movemouse(723,457);
   Wait(100);
   clickmouse(723,457, true);
   Wait(100);
//Ore 23\\
   wait(100);
   movemouse(683,437);
   wait(100);
   clickmouse(683,437, false);
   wait(100);
   movemouse(683,480);
   Wait(100);
   clickmouse(683,457, true);
   Wait(100);
//Ore 22\\
   wait(100);
   movemouse(642,437);
   wait(100);
   clickmouse(642,437, false);
   wait(100);
   movemouse(642,457);
   Wait(100);
   clickmouse(642,457, true);
   Wait(100);
//Ore 21\\
   wait(100);
   movemouse(600,437);
   wait(100);
   clickmouse(600,437, false);
   wait(100);
   movemouse(600,457);
   Wait(100);
   clickmouse(600,457, true);
   Wait(100);
//Ore 20\\
   wait(100);
   movemouse(723,400);
   wait(100);
   clickmouse(723,400, false);
   wait(100);
   movemouse(723,443);
   Wait(100);
   clickmouse(723,443, true);
   Wait(100);
//Ore 19\\
   wait(100);
   movemouse(683,400);
   wait(100);
   clickmouse(683,400, false);
   wait(100);
   movemouse(683,443);
   Wait(100);
   clickmouse(683,443, true);
   Wait(100);
//Ore 18\\
   wait(100);
   movemouse(642,400);
   wait(100);
   clickmouse(642,400, false);
   wait(100);
   movemouse(642,443);
   Wait(100);
   clickmouse(642,443, true);
   Wait(100);
//Ore 17\\
   wait(100);
   movemouse(600,400);
   wait(100);
   clickmouse(600,400, false);
   wait(100);
   movemouse(600,443);
   Wait(100);
   clickmouse(600,443, true);
   Wait(100);
//Ore 16\\
   wait(100);
   movemouse(723,364);
   wait(100);
   clickmouse(723,364, false);
   wait(100);
   movemouse(723,407);
   Wait(100);
   clickmouse(723,407, true);
   Wait(100);
//Ore 15\\
   wait(100);
   movemouse(683,364);
   wait(100);
   clickmouse(683,364, false);
   wait(100);
   movemouse(683,407);
   Wait(100);
   clickmouse(683,407, true);
   Wait(100);
//Ore 14\\
   wait(100);
   movemouse(642,364);
   wait(100);
   clickmouse(642,364, false);
   wait(100);
   movemouse(642,407);
   Wait(100);
   clickmouse(642,407, true);
   Wait(100);
//Ore 13\\
   wait(100);
   movemouse(600,364);
   wait(100);
   clickmouse(600,364, false);
   wait(100);
   movemouse(600,407);
   Wait(100);
   clickmouse(600,407, true);
   Wait(100);
//Ore 12\\
   wait(100);
   movemouse(723,328);
   wait(100);
   clickmouse(723,328, false);
   wait(100);
   movemouse(723,371);
   Wait(100);
   clickmouse(723,371, true);
   Wait(100);
//Ore 11\\
   wait(100);
   movemouse(683,328);
   wait(100);
   clickmouse(683,328, false);
   wait(100);
   movemouse(683,371);
   Wait(100);
   clickmouse(683,371, true);
   Wait(100);
//Ore 10\\
   wait(100);
   movemouse(642,328);
   wait(100);
   clickmouse(642,328, false);
   wait(100);
   movemouse(642,371);
   Wait(100);
   clickmouse(642,371, true);
   Wait(100);
//Ore 09\\
   wait(100);
   movemouse(600,328);
   wait(100);
   clickmouse(600,328, false);
   wait(100);
   movemouse(600,371);
   Wait(100);
   clickmouse(600,371, true);
   Wait(100);
//Ore 08\\
   wait(100);
   movemouse(723,294);
   wait(100);
   clickmouse(723,294, false);
   wait(100);
   movemouse(723,337);
   Wait(100);
   clickmouse(723,337, true);
   Wait(100);
//Ore 07\\
   wait(100);
   movemouse(683,294);
   wait(100);
   clickmouse(683,294, false);
   wait(100);
   movemouse(683,337);
   Wait(100);
   clickmouse(683,337, true);
   Wait(100);
//Ore 06\\
   wait(100);
   movemouse(642,294);
   wait(100);
   clickmouse(642,294, false);
   wait(100);
   movemouse(642,337);
   Wait(100);
   clickmouse(642,337, true);
   Wait(100);
//Ore 05\\
   wait(100);
   movemouse(600,294);
   wait(100);
   clickmouse(600,294, false);
   wait(100);
   movemouse(600,337);
   Wait(100);
   clickmouse(600,337, true);
   Wait(100);
//Ore 04\\
   wait(100);
   movemouse(723,255);
   wait(100);
   clickmouse(723,255, false);
   wait(100);
   movemouse(723,298);
   Wait(100);
   clickmouse(723,298, true);
   Wait(100);
//Ore 03\\
   wait(100);
   movemouse(683,255);
   wait(100);
   clickmouse(683,255, false);
   wait(100);
   movemouse(683,298);
   Wait(100);
   clickmouse(683,298, true);
   Wait(100);
//Ore 02\\
   wait(100);
   movemouse(642,255);
   wait(100);
   clickmouse(642,255, false);
   wait(100);
   movemouse(642,298);
   Wait(100);
   clickmouse(642,298, true);
   Wait(100);
//Ore 01\\
   wait(100);
   movemouse(600,255);
   wait(100);
   clickmouse(600,255, false);
   wait(100);
   movemouse(600,298);
   Wait(100);
   clickmouse(600,298, true);
   Wait(100);
end;

begin
SafeInitForm;
SafeShowFormModal;
SetupARi;
wait(5000);
GetAxeHeadInvColor;
wait(120);
GetAxeBaseInvColor;
wait(1000);
repeat
YellowTxtRandoms;
OtherRandoms;
CutOaks;
until(invcount>28);
DropOaks;
logoutrs;
end.