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