program Bot;
var x, y, Monster, HitCount, AntiF, Monsters, PotsMonster, HealsM, Direction, TargetDirection, MoveDirection, PotsUsed:Integer;
//Key Codes
var F1, F2, F3, F4, F5, F6, F7, F8, Num0, Num1, Num2, Num3, Num4, Num5, Num6, Num7, Num8, Num9, ArrowLeft, ArrowDown, ArrowRight, ArrowUp, Ctrl:Integer;
var KsDirection:String;
const
// To change time set your clock to 8:59:30 pm
// leave the clock open while autoing
// Open client from folder Before 8:59:45 wait till 9pm to turn on hacks
// DO NOT TURN ON ANY HACKS TILL 9 pm
// make sure its 9pm before u turn hacks on start script auto away

  //Relog settings
  Username = '';
  Password = '';
  CharacterNum = '1';
  DelayUserInput = 'true'; // Wait extra at login, for lag
  TakeDrop = 'off';// to pickup drops if not = off
  HOP = 'off';//for hop
  Healer  = 6;// amount of times to click heal

  MonsterPotter= 15;//Set Amount of pots to be used...

  Mager = 'on';//Option For mage off/on...
  spell = 'off';//heals with small heal only

  Archer = 'off';{!!!!!!!!Not yet Finished leave it off for now!!!!!!!!!}

  {.........guide...........
  F1 is your mage key.
  For DC input your info or your fucked.
  DO NOT FUCK WITH ANYTHING PLEASE.
  Dont give this out its for friends only thanks.
  Archer Settings not finished..}

  //General Settings
  HitCountReset = 35; //Time between checking if hitting in wrong direction(Do not set too low or your char will jump around trying to turn too fast)
  AntiFReset = 60; //Time before reloging if still attacking a single monster

  //Healing settings
  Pots = 'normal'; // herbs, normal
  HerbsForFull = 30; // Amount of herbs to use when potting

//No touchy any procedures!
Procedure ReadString(str: String);
var i,strLength :Integer; goer: Boolean;
    begin
    i:=1
    strLength:=Length(str)
    goer:=False
    while(i<strLength+1) do
    begin
    if(GetKeyCode(StrGet(str,i))=191)then
    begin
    KeyDown(16)
    goer:=True
    i:=i+1
    end;
    KeyDown(GetKeyCode(StrGet(str,i)))
    wait(25)
    KeyUp(GetKeyCode(StrGet(str,i)))
    wait(50)
    KeyUp(GetKeyCode(StrGet(str,i)))
    wait(25)
    i:=i+1
    if(goer=True)then
    begin
    KeyUp(16)
    wait(300)
    end;
    end;
end;

Procedure Click(x, y :Integer);
begin
    Movemouse(x, y);
    ClickMouse(x, y, true);
end;

Procedure KeyDUp(Key :Byte);
begin
KeyDown(Key);
Wait(10);
KeyUp(Key);
end;

Procedure Turn;
begin
KeyUp(Ctrl);
Wait(200);
    KeyDown(Direction);
    Wait(200);
    KeyUp(Direction);
end;

        Procedure Login;
        begin
            Click(109, 368); // Click "Play Game"
            if(DelayUserInput = 'true') then begin
            Wait(1200);
            end
            else begin
            Wait(300);
            end
            ReadString(Username);
            Click(416, 388); // Click password textbox
            Wait(50); ReadString(Password);
            Click(403, 431); // Click "Connect"
            Wait(500);
            if(FindColor(x, y, 151294, 371, 320, 371, 320)) then begin // Check for "Login request denied", "Connection not found", "D/C" to retry
                Click(399, 322);
                Wait(100); Login;
            end
            if(FindColor(x, y, 151294, 370, 224, 371, 225)) then begin
                Click(395, 225);
                Wait(100); Login;
            end
            else begin // Click login on the character
                Wait(1500);
                repeat
                    KeyDown(GetKeyCode(CharacterNum));
                    Wait(10);
                    KeyUp(GetKeyCode(CharacterNum));
                    Wait(10);
                until(FindColor(x, y, 229629, 343, 74, 344, 75) = false)
                Wait(50);
                Click(79, 366);
            end
            // Check if stuck at login screen(Not needed until a problem)
        end;
        Procedure CheckDc;
        begin
        if(FindColor(x, y, 151294, 29, 48, 585, 316)) then begin
        Click(x, y);
        Login;
        end
        end;

Procedure Relog;
begin
    Click(599, 48);
    Click(323, 225);// Logout
    Login;
    AntiF := AntiFReset;
    HitCount := HitCountReset;
end;

Procedure AutoPot;
var herbers, Xhp, TimesBy, Herts:Integer;
begin
    herbers := HerbsForFull;
    if(FindColor(x, y, 657930, 161, 38, 161, 38)) then begin
        Click(81, 366);
        Wait(75);
        if((Pots = 'herbs') and FindColor(x, y, 33792, 115, 365, 476, 467)) then begin
            repeat
                herbers := herbers -1;
                Click(x, y);
                Wait(4);
                Click(x, y);
                Wait(1);
                CheckDc;
            until(herbers <= 0)
        end
        else if((Pots = 'normal') and FindColor(x, y, 16711935, 115, 365, 476, 467)) then begin
                Click(x, y);
                Wait(8);
                Click(x, y);
                Wait(100);
                Potsused := PotsUsed + 1;
        end
        if(FindColor(x, y, 657930, 238, 34, 239, 35)) then begin // check TP
             Click(81, 366);
             Wait(100);
             if(FindColor(x, y, 16711812, 115, 365, 476, 467)) then begin
                Click(x, y);
                Wait(8);
                Click(x, y);
                Wait(10);
             end
        end
    end
end;

Procedure Checkheal;
begin
if (( spell = 'on' )) then begin
If findcolorspiral(x, y, 657930, 161, 34, 161, 34)then begin// and (FindColor(x, y, Monster, 274, 163, 298, 178) = false) or (FindColor(x, y, Monster, 272, 188, 295, 197) = false) or (FindColor(x, y, Monster, 332, 187, 360, 200) = false) or (FindColor(x, y, Monster, 335, 164, 358, 176) = false) then begin
wait(25)
repeat
CheckDc;
keydown(113)
wait(25)
KeyUp(113)
wait(500)
clickmouse(317, 181, true)
until (FindColor(x, y, 9408511, 193, 34, 193, 34))
end
end
end;

Procedure Status;
begin
if(FindWindowTitlePart('endless online', false)) then begin
    activateclient;
end
cleardebug;
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
writeln('Monsters killed: '+ inttostr(Monsters) +' | HitCount: '+ inttostr(HitCount) + ' | AntiFreeze: ' + inttostr(AntiF) +' | Pots Used: '+ inttostr(PotsUsed));
end;

Procedure AntiFreeze;
begin
    AntiF := AntiF - 1;
    Status;
    if(AntiF <= 0) then begin
        writeln('Frozen or some shit, time to relog.');
        KeyUp(Ctrl);
        Wait(10);
        Relog;
        Wait(20);
        keyDown(17);
        Wait(20);
    end
end;
Procedure DoHitCount;
begin
    HitCount := HitCount - 1;
    if(HitCount <= 0) then begin
      KeyUp(Ctrl); Wait(50); Direction := TargetDirection;
      KeyDUp(123);
      Wait(500);
      if(((Direction = ArrowLeft) and FindColor(x, y, Monster, 274, 163, 298, 178)) or ((Direction = ArrowDown) and FindColor(x, y, Monster, 272, 188, 295, 197)) or ((Direction = ArrowRight) and FindColor(x, y, Monster, 332, 187, 360, 200)) or ((Direction = ArrowUp) and FindColor(x, y, Monster, 330, 160, 358, 176))) then begin
          writeln('Turning to monster again, maybe I''m hitting in the wrong direction.');
          Turn;
          HitCount := HitCountReset;
          KeyDown(17);
      end
    end
end;

Procedure AutoPot2;
begin
If findcolorspiral(x, y, 657930, 162, 38, 162, 32)
and (FindColor(x, y, 16711935, 115, 365, 476, 467)) then begin
wait(50)
clickmouse(78, 360, true)
repeat
clickmouse(x, y, true)
wait(5)
clickmouse(x, y, true)
PotsMonster:=PotsMonster-1;
until(PotsMonster<1)
PotsMonster:=MonsterPotter;
end
end;

Procedure Mage;
begin
if((Mager = 'on')) then begin
if(FindColor(x, y, 1638350, 7, 34, 630, 337)) then begin
KeyDown(112);
Wait(20);
KeyUp(112);
Wait(10);
MoveMouseSmooth(x, y); Wait(1); ClickMouse(x, y, true);
Wait(1500);
end
end
end;

Procedure Left;
begin
    if (FindColor(x, y, Monster, 275, 145, 307, 163)) then begin
       writeln('Engaging Melee on monster on the Left');
       TargetDirection := ArrowLeft;
       if((Direction = TargetDirection) = false) then begin
        Direction := ArrowLeft;
        Turn;
       end
        Wait(50);
        KeyDown(17);
        Wait(200);
            repeat
                AutoPot2;
                AutoPot;
                AntiFreeze;
                DoHitCount;
                Wait(500);
            until((FindColor(x, y, Monster, 275, 145, 307, 163) = false) or (FindColor(x, y, 0, 313, 490, 313, 490)))
            HitCount := HitCountReset;
            AntiF := AntiFReset;
        KeyUp(Ctrl);
        Wait(500);
        if(FindColor(x, y, 0, 313, 490, 313, 490)) then begin // if find Not your battle! = false, begin
        KsDirection := 'Left';
        end
        else begin
             Monsters := Monsters + 1;
        end
    end
end;
Procedure Down;
begin
    If (FindColor(x, y, Monster, 272, 188, 295, 197)) then begin
       writeln('Engaging Melee on monster on the Bottom');
       TargetDirection := ArrowDown;
       if((Direction = TargetDirection) = false) then begin
        Direction := ArrowDown;
        Turn;
       end
        Wait(50);
        KeyDown(17);
        Wait(200);
            repeat
                AutoPot2;
                AutoPot;
                AntiFreeze;
                DoHitCount;
                Wait(500);
            until((FindColor(x, y, Monster, 272, 188, 295, 197) = false) or (FindColor(x, y, 0, 313, 490, 313, 490)))
            HitCount := HitCountReset;
            AntiF := AntiFReset;
        KeyUp(Ctrl);
        Wait(500);
        if(FindColor(x, y, 0, 313, 490, 313, 490)) then begin // if find Not your battle! = false, begin
        KsDirection := 'Down';
        end
        else begin
             Monsters := Monsters + 1;
        end
    end
end;
Procedure Right;
begin
    If (FindColor(x, y, Monster, 332, 187, 360, 200)) then begin
       writeln('Engaging Melee on monster on the Right');
       TargetDirection := ArrowRight;
       if((Direction = TargetDirection) = false) then begin
        Direction := ArrowRight;
        Turn;
       end
        Wait(50);
        KeyDown(17);
        Wait(200);
            repeat
                AutoPot;
                AutoPot2;
                AntiFreeze;
                DoHitCount;
                Wait(500);
            until((FindColor(x, y, Monster, 332, 187, 360, 200) = false) or (FindColor(x, y, 0, 313, 490, 313, 490)))
            HitCount := HitCountReset;
            AntiF := AntiFReset;
        KeyUp(Ctrl);
        Wait(500);
        if(FindColor(x, y, 0, 313, 490, 313, 490)) then begin // if find Not your battle! = false, begin
        KsDirection := 'Right';
        end
        else begin
             Monsters := Monsters + 1;
        end
    end
end;
Procedure Up;
begin
    If (FindColor(x, y, Monster, 335, 164, 358, 176)) then begin
       writeln('Engaging Melee on monster on the Top');
       TargetDirection := ArrowUp;
       if((Direction = TargetDirection) = false) then begin
        Direction := ArrowUp;
        Turn;
       end
        Wait(50);
        KeyDown(17);
        Wait(200);
            repeat
                AutoPot;
                AutoPot2;
                AntiFreeze;
                DoHitCount;
                Wait(500);
            until((FindColor(x, y, Monster, 335, 164, 358, 176) = false) or (FindColor(x, y, 0, 313, 490, 313, 490)))
            HitCount := HitCountReset;
            AntiF := AntiFReset;
        KeyUp(Ctrl);
        Wait(500);
        if(FindColor(x, y, 0, 313, 490, 313, 490)) then begin // if find Not your battle! = false, begin
        KsDirection := 'Up';
        end
        else begin
             Monsters := Monsters + 1;
        end
    end
end;

procedure CheckKS;
begin
if(findcolor(x,y,0,313,485,313,485))then begin
writeln('Stopping melee on NPC this is not you,re battle');
repeat
KeyUp(17)
Left;
Right;
Down;
Up;
Mage;
until(FindColor(x, y, Monster, 274, 163, 298, 178) = false) or (FindColor(x, y, Monster, 272, 188, 295, 197) = false) or (FindColor(x, y, Monster, 332, 187, 360, 200) = false) or (FindColor(x, y, Monster, 335, 164, 358, 176)= false)
end
end;

Procedure CheckSides;
begin
if(KsDirection = 'Left') then begin
    Down;
    Right;
    Up;
    Left;
end
else if(KsDirection = 'Down') then begin
    Left;
    Right;
    Up;
    Down;
end
else if(KsDirection = 'Right') then begin
    Left;
    Down;
    Up;
    Right;
end
else begin
    Left;
    Down;
    Right;
    Up;
end
end;

Procedure CheckTrackR;
begin
if (FindColor(x, y, 132, 409, 101, 409, 101)) or (FindColor(x, y, 132, 634, 245, 634, 245)) or (FindColor(x, y, 132, 441, 117, 441, 117))then begin
KeyDown (39)
Wait(20)
KeyUp(39)
end
end;

Procedure CheckTrackU;
begin
if (FindColor(x, y, 132, 442, 84, 442, 84)) then begin
Keydown(38)
Wait(20)
KeyUp(38)
end
end;

Procedure CheckLoggedOut;
begin
if(FindColor(x, y, 1316092, 32, 158, 34, 160)) then begin
Login;
end
end;

Procedure CheckDrop;
begin
  if(TakeDrop = 'on')then begin
  if(FindColor(x, y, 8716032, 274, 205, 297, 210))then begin
  Wait(1500);
  MoveMouse(286, 205);
  Wait(200);
  ClickMouse(286, 205, true);
  Wait(2000);
  end
  else if(FindColor(x, y, 8716032, 340, 173, 361, 178)) then begin
  Wait(1500);
  MoveMouse(349, 173);
  Wait(200);
  ClickMouse(349, 173, true);
  Wait(2000);
  end
  else if(FindColor(x, y, 8716032, 338, 205, 361, 210)) then begin
  Wait(1500);
  MoveMouse(350, 204);
  Wait(200);
  ClickMouse(350, 204, true);
  Wait(2000);
  end
  else if(FindColor(x, y, 8716032, 274, 173, 297, 178)) then begin
  Wait(1500);
  MoveMouse(286, 172);
  Wait(200);
  ClickMouse(286, 172, true);
  Wait(2000);
  end
  else if(FindColor(x, y, 8716032, 242, 189, 260, 194)) then begin
  Wait(1500);
  MoveMouse(254, 188);
  Wait(200);
  ClickMouse(254, 188, true);
  Wait(2000);
  end
  else if(FindColor(x, y, 8716032, 306, 221, 329, 226)) then begin
  Wait(1500);
  MoveMouse(318, 220);
  Wait(200);
  ClickMouse(318, 220, true);
  Wait(2000);
  end
  else if(FindColor(x, y, 8716032, 370, 189, 393, 194)) then begin
  Wait(1500);
  MoveMouse(382, 189);
  Wait(200);
  ClickMouse(382, 189, true);
  Wait(2000);
  end
  else if(FindColor(x, y, 8716032, 306, 157, 329, 162)) then begin
  Wait(1500);
  MoveMouse(317, 155);
  Wait(200);
  ClickMouse(317, 155, true);
  Wait(2000);
  end
  else if(FindColor(x, y, 8716032, 306, 189, 329, 194)) then begin
  Wait(1500);
  MoveMouse(317, 188);
  Wait(200);
  ClickMouse(317, 188, true);
  Wait(2000);
  end
  end
end;

Procedure Movehome;
begin
if(HOP = 'on')then begin
if(findcolor(x,y,65280,501,80,501,80))then begin
repeat
wait(500)
AutoPot2;
CheckSides;
keydown(37)
wait(5)
Keyup(37)
until (findcolor(x,y,65280,597,128,597,128))
keyup(37)
repeat
wait(500)
Left;
Right;
Down;
Up;
Keydown(38)
wait(5)
Keyup(38)
until (findcolor(x,y,65280,532,160,532,160))
keyup(38)
repeat
wait(500)
Left;
Right;
Down;
Up;
Keydown(37)
wait(5)
Keyup(37)
until(findcolor(x,y,235,282,178,282,178))
keyup(37)
repeat
wait(500)
AutoPot2;
AutoPot;
Left;
Right;
Up;
Down;
CheckSides;
Keydown(37)
wait(5)
Keyup(37)
until(findcolor(x,y,252,390,165,390,165))
Keyup(37)
repeat
wait(500)
AutoPot2;
AutoPot;
Left;
Right;
Up;
Down;
CheckSides;
Keydown(38)
wait(5)
Keyup(38)
until(findcolor(x,y,241,99,308,99,308))
Keyup(38)
end
end
end;

Procedure Settings;
begin
    //Do not touch anything below unless you know what you're doing
   HitCount := HitCountReset;
   AntiF := AntiFReset;
   Direction := 0;
   MoveDirection := 0;
   Monster := 1638350;
   PotsUsed := 0;
   F1 := 112; F2 := 113; F3 := 114; F4 := 115; F5 := 116; F6 := 117; F7 := 118; F8 := 119;
   Num0 := 96; Num1 := 97; Num2 := 98; Num3 := 99; Num4 := 100; Num5 := 101; Num6 := 102; Num7 := 103; Num8 := 104; Num9 := 105;
   ArrowLeft := 37; ArrowDown := 40; ArrowRight := 39; ArrowUp := 38; Ctrl := 17;
end;

// Begin Main Loop
begin
Settings;
if(FindWindowTitlePart('endless online', false)) then begin
   activateclient;
end
ClearDebug;
Writeln('For MikeBot');
Wait(1000);
CheckLoggedOut;

repeat
Movehome;
//CheckTime;
CheckDc;
CheckTrackR;
CheckTrackU;
AutoPot2;
AutoPot;
Checkheal;
CheckKS;
Mage;
CheckSides;
CheckLoggedOut;
Status;
CheckDrop;
Wait(100);
until(false)
KeyUp(Ctrl);
end.