:o

ok look now if some people dont reg. for my site then its going to go down becuse i got a little reminder about it and if i got get someone to reg then this site might go bye bye and i been woreking on new site SO PLZ :{ some reg. idc if its just one acc. plese people i just need 1 for user :/

Ok im sorry i've been having problems logging into my severs and stuff so i quit for like 4 weeks and all that happen it was a huge mess  and my site sucks cuz people are comming on and not reg. so its messing up my site so PLZ PLZ PLZ reg. i beg of u          This is a report!

well x.x im be hated but here. lol  
ok go to control pantle
then  click system
then u should see a tab that says HARDWARE
click it
then click on device manger
x.x u should see + computer
click the + and u see ACPI or w/e left click it
it might say  somthing click updare driver or w/e click that
and then u kno click nex next and ull chose yyour shit l8er

let it restart your computer

then claim down your computer will act up a bit

lol then go get ss i cant remeber the site i got  mine :[ but ill tell u the reg. code 

name:freeserials.com

the other thingy is  3314-8337-6732

Have fun [DONT DO THIS WITH WINDOWS vista!!!!!!!!!!!!!!!!!!!!!!!!!!!

program New;
Var x,y,a,b,c:Integer;
Var ar,br,cr:String;
Const
Npc1=8697558;

Procedure Check;
begin
ClickMouse(607,446,True)
Wait(500)
If GetColor(499,457)=13158600 then
Begin
ClickMouse(566,461,True)
Wait(100)
end;
ClickMouse(79,446,True)
end;

Procedure Finish;
Begin
If IsMouseButtonDown(False)=True then
Begin
TerminateScript;
End;
End;

Procedure Mage;
Begin
If FindColorSpiral(x,y,npc1,7,62,579,336) then
Begin
KeyDown(111+a)
Wait(15)
KeyUp(111+a)
MoveMouse(x,y)
Wait(10)
ClickMouse(x,y,True)
Wait(800)
End;
Wait(100)
Finish;
End;

Procedure Flowies;
Begin
If (Not(FindColorSpiral(x,y,npc1,7,62,579,336))) and FindColorSpiral(x,y,14606046,244,138,391,222) then
Begin
MoveMouse(x,y)
Wait(500)
ClickMouse(x,y,True)
Wait(100)
End;
Wait(100)
Finish;
End;

Procedure Grab;
Begin
If (Not(FindColorSpiral(x,y,npc1,7,62,579,336))) and FindColorSpiral(x,y,55039,244,138,391,222) then
Begin
MoveMouse(x,y)
Wait(500)
ClickMouse(x,y,True)
Wait(100)
End;
Wait(1000)
Finish;
End;

Procedure SHeal;
Begin
if (Not(GetColor(202,33)=15185407)) and (Not(FindColorSpiral(x,y,npc1,7,62,579,336))) then
Begin
KeyDown(119)
Repeat
Wait(10)
Grab;
if b=1 then
begin
Flowies;
end;
Until (GetColor(202,33)=15185407) or FindColorSpiral(x,y,npc1,7,62,579,336)
KeyUp(119)
end;
Wait(100)
Finish;
End;

Procedure Sheep;
Begin
If FindColorSpiral(x,y,8685155,7,62,579,336) then
Begin
KeyDown(111+a)
Wait(15)
KeyUp(111+a)
MoveMouse(x,y+5)
Wait(10)
ClickMouse(x,y+5,True)
Wait(1300)
end;
Wait(100)
Finish;
End;

begin
Disguise('Dennys Flowie Afker')
ar:=readln('What FKey Is Small Fire On?')
a:=strtoint(ar)
Wait(300)
br:=readln('Would you Like The Script To Automatically Pickup Flowys?(1=Yes 0=No)')
b:=strtoint(br)
Wait(300)
cr:=readln('Would you Like The Script To Automatically Heal?(1=Yes 0=No)')
c:=strtoint(cr)
Wait(300)
ClearDebug;
WriteLN('Warning: Hold Right Mouse Button To Stop AFKing!')
Wait(100)
readln('Please Note That You Must Hold Right Mouse Button To Stop Afking (Enter To Continue)')
FindWindow('Dennys Flowie Afker')
Activateclient;
Wait(1000)
FindWindow('Endless Online')
Activateclient;
Wait(1000)
Check;
Repeat
Repeat
Mage;
if c=1 then
begin
SHeal;
end;
Grab;
if b=1 then
begin
Flowies;
end
Until FindColorSpiral(x,y,8685155,7,62,579,336)
Sheep;
Finish;
Until (False)
end.
begin
end.