Endless Online - A Free MMORPG!

Endless Online News & Blog Updates

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.

2 comments:

  1. Shiny,s Revised amm8 script, still not completely fixed but working a heck of a lot better than it was

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

    ReplyDelete
  2. Heres the twice revised, now even better but will need 1 more revision to stop it from moving

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

    ReplyDelete