Calendar

February 2008
SunMonTueWedThuFriSat
 << <Mar 2010> >>
     12
3456789
10111213141516
17181920212223
242526272829 

Announce

Who's Online?

Member: 0
Visitor: 1

rss Syndication

Posts sent in: February 2008

12 Feb 2008 

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!!!!!!!!!!!!!!!!!!!!!!!!!!!


filip · 104 views · 1 comment
07 Feb 2008 

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.


filip · 79 views · 1 comment
04 Feb 2008 
filip · 46 views · Leave a comment
04 Feb 2008 
Frist scipt for Anything
  program New;
var tm, ksm,magec, ksmy, ksmx, ksmw, ksu, ksd, ksr, ksl:integer;
var q,x,w,y, skip,z, monster1, monsterM,sx, sy, xx, yy: Integer;
var clx, cly, ksosx, ksosy, setclx, setcly, ksoffsetx, ksoffsety:integer;
var ksS, selfbox: TBox;
begin
monster1:= 1638350;
monsterM:= 1629877;
selfbox:=IntToBox(270, 144, 364, 199);
if (findwindowtitlepart('endless online', false)=false) then
begin
writeln('Endless Online is not running... Script Terminated.')
terminatescript;
end
cleardebug;
setclx:=641
setcly:=507
findwindowtitlepart('endless online', false)
wait(300)
GetClientDimensions(clx, cly)
writeln('Your Client size is  X: '+inttostr(clx)+'  -  Y:'+inttostr(cly))
ksosx:=setclx-clx
ksosy:=setcly-cly
writeln('Your Offset is       X: '+inttostr(ksosx)+'  -  Y:'+inttostr(ksosy))
ksoffsetx:=313-ksosx
ksoffsety:=489-ksosy
writeln('Your KS Detection is X: '+inttostr(ksoffsetx)+'  -  Y:'+inttostr(ksoffsety))
wait(1000)
   activateclient;
repeaT
begin
z:=0
if findcolorspiral(x, y,9175295,306, 103, 332, 126) then begin
ksl:=0;
ksr:=0;
ksd:=0;
ksu:=0;
end
repeat
 z:=z+1
  writeln(inttostr(z)+'-'+inttostr(w))
if(z=100)then
begin
z:=0
keydown(123)
wait(200)
keyup(123)
end
if (findcolorspiral (x, y, monster1,275, 154, 303, 174)=false)then begin
ksl:=0; end
if ((findcolorspiral (x, y, monster1, 275, 154, 303, 174))and(ksl=0)) then
begin
if(FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin
writeln('Attempting to consume 1 potion')
clickmouse(78, 364, true)
clickmouse(462, 375, true)
wait(8)
clickmouse(462, 375, true)
sleep (350)
KEYDOWN(112)
WAIT(50)
KEYUP(112)
WAIT(20)
end else
begin
writeln('No Healing Required')
keydown(37)
wait(50)
keyup(37)
wait(20)
keydown(17)
wait(10)
keyup(17)
skip:=skip-1
magec:=0
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksl:=1
end
end
end
until ((findcolorspiral(x, y, monster1, 275, 154, 303, 174)=false)or(ksl=1))
keyup(17)
wait(200)
repeat
 z:=z+1
 writeln(inttostr(z)+'-'+inttostr(w))
if(z=100)then
begin
z:=0
keydown(123)
wait(200)
keyup(123)
end
if (findcolorspiral (x, y, monster1,336, 182, 363, 209)=false)then begin
ksr:=0
end
if ((findcolorspiral (x, y, monster1, 336, 182, 363, 209))and(ksr=0)) then
begin
IF (FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin
writeln('Attempting to consume 1 potion')
clickmouse(78, 364, true)
clickmouse(462, 375, true)
wait(8)
clickmouse(462, 375, true)
sleep (350)
KEYDOWN(112)
WAIT(50)
KEYUP(112)
WAIT(20)
end else
begin
writeln('No Healing Required')
keydown(39)
wait(50)
keyup(39)
wait(20)
keydown(17)
wait(10)
keyup(17)
skip:=skip-1
magec:=0
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksr:=1
end
end
end
until ((findcolorspiral(x, y, monster1, 336, 182, 363, 209)=false)or(ksr=1))
keyup(17)
wait(200)
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksm:=1
ksmx:=xx
ksmy:=yy
ksmw:=1
end
repeat
 z:=z+1
  writeln(inttostr(z)+'-'+inttostr(w))
if(z=100)then
begin
z:=0
keydown(123)
wait(200)
keyup(123)
end
if (findcolorspiral (x, y, monster1,323, 157, 350, 165)=false)then begin
ksu:=0
end
if ((findcolorspiral (x, y, monster1, 323, 157, 350, 165))and(ksu=0)) then
begin
IF (FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin
writeln('Attempting to consume 1 potion')
clickmouse(78, 364, true)
clickmouse(462, 375, true)
wait(8)
clickmouse(462, 375, true)
sleep (350)
KEYDOWN(112)
WAIT(50)
KEYUP(112)
WAIT(20)
end else
begin
writeln('No Healing Required')
keydown(38)
wait(50)
keyup(38)
wait(20)
keydown(17)
wait(10)
keyup(17)
skip:=skip-1
magec:=0
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksu:=1
end
end
end
until ((findcolorspiral(x, y, monster1, 323, 157, 350, 165)=false)or(ksu=1))
keyup(17)
wait(200)
repeat
 z:=z+1
  writeln(inttostr(z)+'-'+inttostr(w))
if(z=100)then
begin
z:=0
keydown(123)
wait(200)
keyup(123)
end
if (findcolorspiral (x, y, monster1,288, 184, 300, 194)=false)then begin
ksd:=0
end
if ((findcolorspiral (x, y, monster1, 288, 184, 300, 194))and(ksd=0)) then
begin
IF (FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin writeln('Attempting to consume 1 potion')
clickmouse(78, 364, true)
clickmouse(462, 375, true)
wait(8)
clickmouse(462, 375, true)
sleep (350)
KEYDOWN(112)
WAIT(50)
KEYUP(112)
WAIT(20)
end else
begin
writeln('No Healing Required')
keydown(40)
wait(50)
keyup(40)
wait(20)
keydown(17)
wait(10)
keyup(17)
skip:=skip-1
magec:=0
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksd:=1
end
end
end
until ((findcolorspiral(x, y, monster1, 288, 184, 300, 194)=false)or(ksd=1))
keyup(17)
end
if (findcolorspiral (x, y,monsterm, 13, 61, 627, 331)=false)then
begin
magec:=0
IF (GETCOLOR(201, 31)=16235924)then begin
repeat
wait(100)
KEYDOWN(115)
WAIT(800)
KEYUP(115)
WAIT(450)
until (((GETCOLOR(201, 31)=16235924)=false)
or (findcolorspiral(x, y, monster1, 13, 61, 627, 331)))
end
wait(750)
if(FindColorSpiral(x, y,61373, 13, 61, 627, 331))then
begin
repeat
FindColorSpiral(x, y,61373, 13, 61, 627, 331)
movemousesmooth(x, y);wait(200);clickmouse(x, y, true)
wait(80)
clickmouse(x, y, true)
until((FindColorSpiral(x, y,61373, 13, 61, 627, 331)=false)
or(findcolorspiral(x, y, monster1, 13, 61, 627, 331)))
end
cleardebug;
if (findcolorspiral(x, y, monsterm, 13, 61, 627, 331)=false) then begin
ksm:=0
end
if (ksm=0) then begin
  ksS := IntToBox(0, 0, 5, 5); end
writeln('AMMC v10 - By Joeyroyden - is waitting for a monster.')
repeat
if(FindColorSpiral(x, y,8716032, 13, 61, 627, 331))then
begin
repeat
FindColorSpiral(x, y,8716032, 13, 61, 627, 331)
movemousesmooth(x, y);wait(200);clickmouse(x, y, true)
wait(80)
clickmouse(x, y, true)
until((FindColorSpiral(x, y,8716032, 13, 61, 627, 331)=false)
or(findcolorspiral(x, y, monster1, 13, 61, 627, 331)))
end
until (findcolorspiral(x, y, monster1, 13, 61, 627, 331)=true)
end
skip:=skip-1;writeln('skip: '+inttostr(skip))
if FindColorSkipBox(sx, sy, monsterm, 13, 61, 627, 331, selfbox)then
begin
if (findcolorspiral2(xx, yy, monsterM, 11, 63, 626, 335)=true)then begin
if ((findcolorspiral2 (x, y, monsterm, ksmx-75, ksmy-75, ksmx+75, ksmy+75)=false))
then begin
ksm:=0
ksmw:=0
magec:=0
end
if (ksm=1) then begin
  ksS := IntToBox((ksmx-90), (ksmy-90), (ksmx+90), (ksmy+90)); end
if (ksm=0) then begin
  ksS := IntToBox(0, 0, 5, 5); end
  if(FindColorSkipBox(sx, sy, monsterM, 13, 61, 627, 331, ksS))then begin
if((findcolorspiral (x, y, monster1,275, 154, 303, 174)=false)
and
(findcolorspiral (x, y, monster1,336, 182, 363, 209)=false)
and
(findcolorspiral (x, y, monster1,323, 157, 350, 165)=false)
and
(findcolorspiral (x, y, monster1,288, 184, 300, 194)=false))then begin
FindColorspiral2(sx, sy, monsterM, 13, 61, 627, 331)
movemousesmooth(sx, sy)
wait(50)
if magec=0 then begin
writeln('Go')
keydown(113)
wait(25)
keyup(113)
wait(50)
clickmouse(sx, sy, true)
wait(1300)
magec:=1
end
end
ksmw:=0
skip:=1
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksm:=1
ksmx:=xx
ksmy:=yy
ksmw:=1
end
end
end
wait(100)
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksm:=1
ksmx:=xx
ksmy:=yy
ksmw:=1
end
if(FindColorSpiral(x, y, monsterm, 39, 75, 605, 305)and(magec=1)and(ksmw=0))then
begin
q:=Random(2)
writeln(inttostr(q))
if (q=0)then begin
   x:= x + (random(20)+15);
  y:= y + (random(20)+15);
end
if (q=1)then begin
   x:= x - (random(20)+15);
  y:= y - (random(20)+15);
end
tm := tm +1
writeln(inttostr(tm))
movemouse(x-5, y+5)
wait(33)
movemouse(x+3, y-3)
wait(33)
movemouse(x, y)
wait(33)
clickmouse(x, y, true)
END else begin
end
END
if(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksm:=1
ksmx:=xx
ksmy:=yy
ksmw:=1
end
if(FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then
begin
writeln('Attempting to consume 1 potion')
keydown(112)
wait(50)
keyup(112)
wait(20)
end
if findcolorspiral(x, y,9175295,306, 103, 332, 126) then begin
ksl:=0;
ksr:=0;
ksd:=0;
ksu:=0;
end
until(x = 5000000)



Ok Now pm me on endless[tonedeff] u need need speical sciprts =D
filip · 62 views · Leave a comment
03 Feb 2008 
go to http://test.endless-online.com/ click on downloads and u do rest i hope u can:lol!:

filip · 40 views · Leave a comment

1, 2  Next page