Endless Online News
Endless Online is back up and running smoothly after an unfortunate down period. The server came on around 2:30 in the afternoon yesterday and players are slowly making their way back on. Come join us!
host: game.endless-online.com
port: 8078
Blog Updates
I've made the rounds once again correcting a few slight errors and adding a few more things here and there. I've started a new section dedicated to Endless Online themed wallpapers. If you have any you would like to share link them in the comments.
Randomness
Just started watching a new anime called Ai Yori Aoshi. If you're a fan of ecchi/harem anime I highly recommend you check this one out. Reminds me a lot of Love Hina. It's been dubbed in English if you're against subtitles, check out the trailer below.
P.S. English dubs suck. The voice acting is way better in Japanese.
Shiny,s Revised amm8 script, still not completely fixed but working a heck of a lot better than it was
ReplyDeleteprogram AMM8;
var ksm,magec, ksmy, ksmx, ksmw, ksu, ksd, ksr, ksl,clickheal, hit:integer;
var x,w,y, skip,z, monster1, monsterM,sx, sy, xx, yy, t, ptts: Integer;
var clx, cly, ksosx, ksosy, setclx, setcly, ksoffsetx, ksoffsety:integer;
var ptx, pty, tr, relogtime, relogtimer,buypotsX, buypotsY:integer;
var window:string;
var ksS, selfbox: TBox;
const
user='0.0';
pass='mypass??';
share=0; //1 is on //anything else is off
Procedure ReadString(str: String);{by rena: START}
var
i,strLength :Integer;
goer: Boolean;
begin
i:=1
strLength:=Length(str)
goer:=False
while(irelogtimer)and(not(user='no relog'))) THEN BEGIN
relogtime:=20
RELOG
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 {AMM8 by joeyroyden / EoBots}
(findcolorspiral (x, y, monster1,288, 184, 300, 194)=false))then begin
FindColorspiral2(sx, sy, monsterM, 13, 61, 627, 331)
wait(10)
if magec=0 then begin
writeln('Go')
keydown(113)
wait(10)
keyup(113)
wait(10)
clickmouse(sx, sy, true)
wait(randomrange(100, 100))
magec:=0
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(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksm:=1
ksmx:=xx
ksmy:=yy
ksmw:=1
end
check_dc
if findcolorspiral(x, y,9175295,306, 103, 332, 126) then begin
ksl:=0;
ksr:=0;
ksd:=0;
ksu:=0;
end
end
until(x = 500000000)
end.
Heres the twice revised, now even better but will need 1 more revision to stop it from moving
ReplyDeleteprogram AMM8;
var ksm,magec, ksmy, ksmx, ksmw, ksu, ksd, ksr, ksl,clickheal, hit:integer;
var x,w,y, skip,z, monster1, monsterM,sx, sy, xx, yy, t, ptts: Integer;
var clx, cly, ksosx, ksosy, setclx, setcly, ksoffsetx, ksoffsety:integer;
var ptx, pty, tr, relogtime, relogtimer,buypotsX, buypotsY:integer;
var window:string;
var ksS, selfbox: TBox;
const
user='user';
pass='pass';
share=0; //1 is on //anything else is off
Procedure ReadString(str: String);{by rena: START}
var
i,strLength :Integer;
goer: Boolean;
begin
i:=1
strLength:=Length(str)
goer:=False
while(irelogtimer)and(not(user='no relog'))) THEN BEGIN
relogtime:=20
RELOG
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 {AMM8 by joeyroyden / EoBots}
(findcolorspiral (x, y, monster1,288, 184, 300, 194)=false))then begin
FindColorspiral2(sx, sy, monsterM, 13, 61, 627, 331)
wait(10)
if magec=0 then begin
writeln('Go')
keydown(113)
wait(10)
keyup(113)
wait(10)
clickmouse(sx, sy, true)
wait(randomrange(100, 100))
magec:=0
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(getcolor(ksoffsetx, ksoffsety)=0)then begin
ksm:=1
ksmx:=xx
ksmy:=yy
ksmw:=1
end
check_dc
if findcolorspiral(x, y,9175295,306, 103, 332, 126) then begin
ksl:=0;
ksr:=0;
ksd:=0;
ksu:=0;
end
end
until(x = 500000000)
end.