program YuffieThievingV4; {99HP} {BREWS}
{$I AeroLib/AeroLib.simba}

const

USER = 'b';
PASS = 'ohhello123';

COL = 3080239;
TOL = 25;
HUE = 0.17;
SAT = 0.24;

playerAFK = false; {will afk if a player is visible on map}
RunToNPC = false; {will run to closest npc on minimap if it can't find any}

var

brew, sanfew, x, y: integer;

procedure load();
begin
brew := DTMFromString('mkwEAAHicrc5JCoRADIXhZwmCw0IU2mt5WhEnhB5AvJGg9C+VpcsKfCRVSSC1pNVJPToMmJ3/+2AzP3u/8bW82OyIyXbrSCpQ4YXG3PXdK5EjQQzhJB244KyXYt9aPxBApnAR5iLvIf6PihRh');
sanfew := DTMFromString('maQEAAHicpc7BCYAwDIXh1A0c0oujCFKVSmlrVRC6gfv5izl6a+AjISHwWhFxjUhCwIaMQ0VMGJXFjEX7++tRDDusiMg4cZnvVnTekeDhYDGou+9IYyrVV22C3xQPpEEWGA==');
mousespeed := 60;

end;

procedure proggy;
begin
cleardebug;
writeln('OS-Scape YuffieThieving');
writeln(' Time Running: ' + MsToTime(GetTimeRunning, 3));
Writeln('');
wait(30);
end;

procedure free();
begin
freedtm(brew);
end;

procedure compass_reset();
begin
mouse(Point(561, 20), 0, 0, mouse_left);
end;

procedure login();
var
count: integer;
begin
wait(500);
mouse(Point(455, 296), 0, 0, mouse_left);
wait(500);
mouse(Point(340, 259), 0, 0, mouse_left);
wait(500);
count := 0;
repeat
Inc(count);
PressKey(VK_Back);
until count > 25;
wait(200);
sendkeys(user, 50, 10);
wait(200);
mouse(Point(340, 275), 0, 0, mouse_left);
count := 0;
repeat
Inc(count);
PressKey(VK_Back);
until count > 25;
wait(200);
sendkeys(pass, 50, 10);
wait(200);
mouse(Point(294, 320), 0, 0, mouse_left);
waitfunc(@ isloggedin, 100, 10000);
if (isloggedin()) then
begin
compass_reset;
end;
end;

procedure eat();
var
I, x, y: Integer;
spot : Tpoint;
begin
gameTab(TAB_INV);
begin
if (findDTM(brew, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Spot := (point(x, y));
AccurateMMouse(Spot, 0, 0);
fastClick(MOUSE_LEFT);
sleep(2000);
end
else
begin
writeln('No brews found');
terminatescript;
end;
end;
end;

procedure drink();
var
I, x, y: Integer;
spot : Tpoint;
begin
gameTab(TAB_INV);
begin
if (findDTM(sanfew, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Spot := (point(x, y));
AccurateMMouse(Spot, 0, 0);
fastClick(MOUSE_LEFT);
sleep(2000);
end
else
begin
writeln('No Sanfews found');
terminatescript;
end;
end;
end;


procedure stealNPC();
var
TPA: TPointArray;
ATPA: T2DPointArray;
I: Integer;
spot: TPoint;
t: Timer;
tCol: TColEx;
BOX: TBOX;
begin
if (not isloggedin) then
exit;
tCol.create(COL, TOL, HUE, SAT);
if (not tCol.findAllIn(AREA_MS, TPA)) then
begin
waitfunc(@ isPlayerWalking, 200, 1500) while (isLoggedIn() and isPlayerWalking()) do
sleep(random(5, 20));
exit;
end;
ATPA := FloodFillTPA(TPA);
SortATPAFromMidPoint(ATPA, Point(MSCX, MSCY));
if (length(ATPA) <= 0) then
exit;
for I := 0 to high(ATPA) do
begin
if (length(ATPA[I]) >= 20) then
begin
box := toBox(ATPA[I].getBounds().X1 - 10, ATPA[I].getBounds().Y1 - 35, ATPA[I].getBounds().X2, ATPA[I].getBounds().Y2);
if (box.x1 < 0) then
box.x1 := 0;
if (box.y1 < 0) then
box.y1 := 0;
if (not findColorSpiral(x, y, 255, box.X1, box.Y1, box.X2, box.Y2)) and (not findColorSpiral(x, y, 65280, box.X1, box.Y1, box.X2, box.Y2)) then

begin
spot := (MiddleTPA(ATPA[I]));
accurateMMouse(spot, 0, 0);
if (waitUptext('ttack CLOWN', 5)) then
fastClick(MOUSE_LEFT)
else
begin
fastClick(MOUSE_Right);
if not waitOption('ollow CLOWN', 5) then
exit;
end;

if (didYellowClick()) then
waitfunc(@ isPlayerWalking, 200, 1500)
while (isLoggedIn() and isPlayerWalking()) do
sleep(random(240, 300));
exit;
end;
end;
end;
end;

procedure loop();
begin

if (getMiniMapDotsIn('player', Area_MM)) then
if (playerAFK = true) then
while (getMiniMapDotsIn('player', Area_MM)) do
begin
wait(300);
writeln('Player Visible - Pretending to be afk');
end;
if (not isloggedin()) then
login();
begin

if FindColor(X,Y,1535,521,54,540,67) then eat(); {1}
if FindColor(X,Y,2815,521,54,540,67) then eat(); {2}
if FindColor(X,Y,4095,521,54,540,67) then eat(); {3}
if FindColor(X,Y,5375,521,54,540,67) then eat(); {4}
if FindColor(X,Y,6911,521,54,540,67) then eat(); {5}
if FindColor(X,Y,8191,521,54,540,67) then eat(); {6}
if FindColor(X,Y,9471,521,54,540,67) then eat(); {7}
if FindColor(X,Y,10751,521,54,540,67) then eat(); {8}
if FindColor(X,Y,12031,521,54,540,67) then eat(); {9}
if FindColor(X,Y,13567,521,54,540,67) then eat(); {10}
if FindColor(X,Y,14847,521,54,540,67) then eat(); {11}
if FindColor(X,Y,16127,521,54,540,67) then eat(); {12}
if FindColor(X,Y,17407,521,54,540,67) then eat(); {13}
if FindColor(X,Y,18687,521,54,540,67) then eat(); {14}
if FindColor(X,Y,20223,521,54,540,67) then eat(); {15}
if FindColor(X,Y,21503,521,54,540,67) then eat(); {16}
if FindColor(X,Y,22783,521,54,540,67) then eat(); {17}
if FindColor(X,Y,24063,521,54,540,67) then eat(); {18}
if FindColor(X,Y,25343,521,54,540,67) then eat(); {19}
if FindColor(X,Y,26879,521,54,540,67) then eat(); {20}
if FindColor(X,Y,28159,521,54,540,67) then eat(); {21}
if FindColor(X,Y,29439,521,54,540,67) then eat(); {22}
if FindColor(X,Y,30719,521,54,540,67) then eat(); {23}
if FindColor(X,Y,31999,521,54,540,67) then eat(); {24}
if FindColor(X,Y,33535,521,54,540,67) then eat(); {25}
if FindColor(X,Y,34815,521,54,540,67) then eat(); {26}
if FindColor(X,Y,36095,521,54,540,67) then eat(); {27}
if FindColor(X,Y,37375,521,54,540,67) then eat(); {28}
if FindColor(X,Y,38655,521,54,540,67) then eat(); {29}
if FindColor(X,Y,40191,521,54,540,67) then eat(); {30}
if FindColor(X,Y,41471,521,54,540,67) then eat(); {31}
if FindColor(X,Y,42751,521,54,540,67) then eat(); {32}
if FindColor(X,Y,44031,521,54,540,67) then eat(); {33}
if FindColor(X,Y,45311,521,54,540,67) then eat(); {34}
if FindColor(X,Y,46847,521,54,540,67) then eat(); {35}
if FindColor(X,Y,48127,521,54,540,67) then eat(); {36}
if FindColor(X,Y,49407,521,54,540,67) then eat(); {37}
if FindColor(X,Y,50687,521,54,540,67) then eat(); {38}
if FindColor(X,Y,51967,521,54,540,67) then eat(); {39}
if FindColor(X,Y,53503,521,54,540,67) then eat(); {40}
if FindColor(X,Y,54783,521,54,540,67) then eat(); {41}
if FindColor(X,Y,56063,521,54,540,67) then eat(); {42}
if FindColor(X,Y,57343,521,54,540,67) then eat(); {43}
if FindColor(X,Y,58623,521,54,540,67) then eat(); {44}
if FindColor(X,Y,60159,521,54,540,67) then eat(); {45}
if FindColor(X,Y,61439,521,54,540,67) then eat(); {46}
if FindColor(X,Y,62719,521,54,540,67) then eat(); {47}
if FindColor(X,Y,63999,521,54,540,67) then eat(); {48}
if FindColor(X,Y,65535,521,54,540,67) then eat(); {49}
if FindColor(X,Y,65530,521,54,540,67) then eat(); {50}
if FindColor(X,Y,65525,521,54,540,67) then eat(); {51}
if FindColor(X,Y,65520,521,54,540,67) then eat(); {52}
if FindColor(X,Y,65515,521,54,540,67) then eat(); {53}
if FindColor(X,Y,65509,521,54,540,67) then eat(); {54}
if FindColor(X,Y,65504,521,54,540,67) then eat(); {55}
if FindColor(X,Y,65499,521,54,540,67) then eat(); {56}
if FindColor(X,Y,65494,521,54,540,67) then eat(); {57}
if FindColor(X,Y,65489,521,54,540,67) then eat(); {58}
if FindColor(X,Y,65483,521,54,540,67) then eat(); {59}
if FindColor(X,Y,65478,521,54,540,67) then eat(); {60}
if FindColor(X,Y,65473,521,54,540,67) then eat(); {61}
if FindColor(X,Y,65468,521,54,540,67) then eat(); {62}
if FindColor(X,Y,65463,521,54,540,67) then eat(); {63}
if FindColor(X,Y,65457,521,54,540,67) then eat(); {64}
if FindColor(X,Y,65452,521,54,540,67) then eat(); {65}
if FindColor(X,Y,65447,521,54,540,67) then eat(); {66}
if FindColor(X,Y,65442,521,54,540,67) then eat(); {67}
if FindColor(X,Y,65437,521,54,540,67) then eat(); {68}
if FindColor(X,Y,65431,521,54,540,67) then eat(); {69}
if FindColor(X,Y,65426,521,54,540,67) then eat(); {70}
if FindColor(X,Y,65421,521,54,540,67) then eat(); {71}
if FindColor(X,Y,65416,521,54,540,67) then eat(); {72}
if FindColor(X,Y,65411,521,54,540,67) then eat(); {73}
if FindColor(X,Y,65405,521,54,540,67) then eat(); {74}
if FindColor(X,Y,65400,521,54,540,67) then eat(); {75}
if FindColor(X,Y,65395,521,54,540,67) then eat(); {76}
if FindColor(X,Y,65390,521,54,540,67) then eat(); {77}
if FindColor(X,Y,65385,521,54,540,67) then eat(); {78}
if FindColor(X,Y,65379,521,54,540,67) then eat(); {79}
if FindColor(X,Y,65374,521,54,540,67) then eat(); {80}
if FindColor(X,Y,65369,521,54,540,67) then eat(); {81}
if FindColor(X,Y,65364,521,54,540,67) then eat(); {82}
if FindColor(X,Y,65359,521,54,540,67) then eat(); {83}
if FindColor(X,Y,65353,521,54,540,67) then eat(); {84}
if FindColor(X,Y,65348,521,54,540,67) then eat(); {85}
if FindColor(X,Y,65343,521,54,540,67) then eat(); {86}
if FindColor(X,Y,65338,521,54,540,67) then eat(); {87}
if FindColor(X,Y,65333,521,54,540,67) then eat(); {88}
if FindColor(X,Y,65327,521,54,540,67) then eat(); {89}
if FindColor(X,Y,65322,521,54,540,67) then eat(); {90}
if FindColor(X,Y,65317,521,54,540,67) then eat(); {91}
if FindColor(X,Y,65312,521,54,540,67) then eat(); {92}
if FindColor(X,Y,65307,521,54,540,67) then eat(); {93}
if FindColor(X,Y,65301,521,54,540,67) then eat(); {94}
if FindColor(X,Y,65296,521,54,540,67) then eat(); {95}
if FindColor(X,Y,65291,521,54,540,67) then eat(); {96}
if FindColor(X,Y,65286,521,54,540,67) then eat(); {97}

end;

begin

if FindColor(X,Y,3327,521,99,540,111) then drink(); {1}
if FindColor(X,Y,6399,521,99,540,111) then drink(); {2}
if FindColor(X,Y,9471,521,99,540,111) then drink(); {3}
if FindColor(X,Y,12543,521,99,540,111) then drink(); {4}
if FindColor(X,Y,15615,521,99,540,111) then drink(); {5}
if FindColor(X,Y,18687,521,99,540,111) then drink(); {6}
if FindColor(X,Y,22015,521,99,540,111) then drink(); {7}
if FindColor(X,Y,25087,521,99,540,111) then drink(); {8}
if FindColor(X,Y,28159,521,99,540,111) then drink(); {9}
if FindColor(X,Y,31231,521,99,540,111) then drink(); {10}
if FindColor(X,Y,34303,521,99,540,111) then drink(); {11}
if FindColor(X,Y,37375,521,99,540,111) then drink(); {12}
if FindColor(X,Y,40447,521,99,540,111) then drink(); {13}
if FindColor(X,Y,43775,521,99,540,111) then drink(); {14}
if FindColor(X,Y,46847,521,99,540,111) then drink(); {15}
if FindColor(X,Y,49919,521,99,540,111) then drink(); {16}
if FindColor(X,Y,52991,521,99,540,111) then drink(); {17}
if FindColor(X,Y,56063,521,99,540,111) then drink(); {18}
if FindColor(X,Y,59135,521,99,540,111) then drink(); {19}
if FindColor(X,Y,59135,521,99,540,111) then drink(); {20}
if FindColor(X,Y,65535,521,99,540,111) then drink(); {21}
if FindColor(X,Y,65523,521,99,540,111) then drink(); {22}
if FindColor(X,Y,65511,521,99,540,111) then drink(); {23}
if FindColor(X,Y,65499,521,99,540,111) then drink(); {24}
if FindColor(X,Y,65487,521,99,540,111) then drink(); {25}
if FindColor(X,Y,65475,521,99,540,111) then drink(); {26}


stealNPC();
end;
end;

begin
initAL();
load();
AddOnTerminate('free');
if (not isloggedin()) then
login();
compass_reset();
setangle(0);
repeat
loop();
stealNPC();
until (false)
end.