program featherbuyer;
{.include libmod.txt}
{Credits to Alex for his amazing library (sorry i had to edit it >_<)}
{>>!!!!MAKE SURE YOU HAVE MY MODIFIED LIBRARY VERSION!!!!<<
HAVE MONEY IN FIRST INVENT SLOT!!! VERY IMPORTANT}
var
buy10,c,number:integer;

procedure prog(doing:string);
begin
writeln('');
writeln('');
writeln('****Ownage Feather Buyer By Tek********');
writeln('Currently: ' +doing);
writeln('Bought ' +inttostr(c) + ' Feathers');
writeln('Made You About: ' +inttostr(c*10)+ ' GP');
writeln('***************************************');
writeln('');
writeln('');
end;

procedure loadbmp;
begin
  buy10 := BitmapFromString(23, 3,
       'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF0000005D5447' +
       '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447' +
       'FF9040FF9040FF9040FF90405D5447FFFFFFFFFFFF0000005D5447' +
       '5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF000000' +
       '5D54475D54475D54475D54475D5447FF9040FF9040000000000000' +
       '000000FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF000000' +
       '5D54475D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447' +
       '5D5447FF9040FF90400000005D54475D5447');
end;

function money:boolean;
begin
mmouse(588,228,10,10)
if (not(istextat2(9,9,'Value Coins',100))) then
result:=true;
end;

procedure matrix;
begin
repeat
x:=random(556);
y:=random(350);
mmouse(x,y,0,0);
wait(2000+random(500));
until(false)
end;

function amount:boolean;
var
num1:integer;
begin
num1:=strtoint(readtextat(363,68,4,3));
if(num1>number) then
result:=true;
end;

procedure wt;
begin
wait(100+random(200));
end;

procedure keepin;
begin
repeat
x:=random(479);
y:=random(308);
mmouse(x,y,0,0);
wt;
wt;
wt;
wt;
wt;
until(amount=true)
end;

procedure buy;
begin
mmouse(379,82,5,5);
getmousepos(x,y);
if(amount) then
repeat
wt;
mouse(379,82,5,5,false);
findbitmap(buy10,x,y)
wt;
mouse(x,y,7,5,true);
c:=c+10;
wt;
prog('Buying');
until (amount=false)
end;

{function moneycheck:boolean;
var
money:integer;
begin
money:=strtoint(readtextat(584,212,3,3));
if (money<500) then
closewindow;
wt;
result:=true;
end;}

begin
setmousemode(false);
prog('Loading');
number:=960;
loadlibrary('Winamp 5.03a');
loadbmp;
repeat
prog('Buying');
buy;
wait(2000);
if (amount=false) then
prog('Keeping You Logged In');
keepin;
until(money=true)
prog('Matrixing...Yup Tek Ownzorz');
matrix;
end.