Program AntiPots;
Var x,y,PotColor:Integer;
Const
OutColor=1579032;
HerbsColor=1593649;
SHPotColor=3249919;  //fix
BHPotsColor=524527;
ElixerColor=15663318;
// Windows Clasic Themes Off
// Windowed 16 Bit Color
// F1 Close Chests
// F3 Start F2 Stop Speeding
// F5 Speed(1) F6 Speed(-1.8) F7 Speed(8)Or What Ever You Use
// F8 Login - F9 End AntiPots

LogInOn=1;  // 0=Off 1=On
WhatChar=1; //Char 1,2,3
UserName='None'; //Hit F8 To Login
PassWord='None';

PotsOn=1;   // 0=Off 1=On
UsePot=186; // 150-186 When To Use Pot
PotStop=188; // When To Stop Poting
PWait=350; // 10=Herbs 50=Med 200=Big 350=Elixers
PotType=1; // 1=Herbs 2=SmallHpPots 3=BigHpPots 4=Elixer

// Dont Edit Below
Procedure TypeIn(Input:String);
Var Key,C:Integer; Str,Check:String; Shift:Boolean; Begin
If(C>0)Then Begin Str:=LowerCase(Input);
End Else Begin Str:=Input;End;
Check:='ABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()~_+{}:"<>?';
For Key:=1 To Length(Str)
Do Begin C:=Pos(StrGet(Str,Key),Check); Shift:=(C>0);
If(Shift)Then Begin KeyDown(16);End;
KeyDown(GetKeyCode(StrGet(Str,Key)));Wait(15);
KeyUp(GetKeyCode(StrGet(Str,Key)));
If(Shift)Then Begin KeyUp(16);End;Wait(10);End;End;

Procedure Login; Begin  // Press F8 To Login
If(IsFKeyDown(8)) Then Begin
ClickMouse(125,365,True); Wait(1000);
ClickMouse(430,350,True); Wait(20); TypeIn(UserName); Wait(500);
ClickMouse(430,388,True); Wait(20); TypeIn(PassWord); Wait(500);
ClickMouse(420,430,True); Wait(2000);
If(WhatChar=1)Then Begin ClickMouse(540,125,True); End;
If(WhatChar=2)Then Begin ClickMouse(540,250,True); End;
If(WhatChar=3)Then Begin ClickMouse(540,375,True); End;
Wait(1000); End;End;

Procedure Pot; Begin If (PotsOn=1) Then Begin
If(PotType=1)Then Begin PotColor:=HerbsColor; End;
If(PotType=2)Then Begin PotColor:=SHPotColor; End;
If(PotType=3)Then Begin PotColor:=BHPotsColor; End;
If(PotType=4)Then Begin PotColor:=ElixerColor; End;
If(FindColor(x,y,OutColor,125,27,UsePot,28))Then Begin
Wait(10);Clickmouse(80,360,True);Wait(10);
If(FindColor(x,y,PotColor,115,359,475,459)) Then Begin Repeat
Clickmouse(x,y,True);Clickmouse(x,y,True);
Clickmouse(x,y,False); Wait(PWait);
Until Not(FindColor(x,y,OutColor,125,27,PotStop,28))
Or Not(FindColor(x,y,PotColor,115,359,475,459))Or(IsFKeyDown(9));
Wait(10);Clickmouse(80,440,True);Wait(10); End;End;End;End;

Procedure Chest; Begin
If(IsFKeyDown(1))Then Begin
ClickMouse(150,85,False);ClickMouse(150,85,False);
Clickmouse(170,285,True);
End;
End;

Procedure Anti; Begin // F3 Start F2 Stop Speeding
If(IsFKeyDown(3))Then Begin Wait(10); Repeat
Keydown(117);Wait(10);Pot;Keyup(117);
Keydown(118);Wait(3500);Keyup(118);
Until(IsFKeyDown(2))Or(IsFKeyDown(9));
Keydown(116);Wait(10);Keyup(116);
End;End;

Begin FindWindowTitlePart('Endless Online',False);
Activateclient; Wait(500); Repeat

Login;
Anti;
Pot;
Chest;

If(IsFKeyDown(9))Then Begin TerminateScript; End;
Until(False); End.