Endless Online Haxs (((( PM Matthew If You Need Any Help ))))
 
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in

Share | 
 

 Matthew's Training at the Biter's!

Go down 
AuthorMessage
Admin
Admin


Number of posts: : 1
Guild Tag : NONE
Guild Name : NONE
Join date : 2009-12-21

PostSubject: Matthew's Training at the Biter's!   Sun Mar 21, 2010 3:31 pm

A script I've had for a couple months. It doesn't auto-relog since it's used in HOP. I can add it in the next version by request. It's not as quick as it doesn't use my new point-shoot grid system that i use with my archer, but it's good. I used it for leveling a 30-42. Oh and it doesn't detect Ks protection yet. I'll work on it.

Features:

•Turn and Melee
•Herb[No options yet(Because I wasn't going to release)]
•Exp, Hit and Herb counting
•Other stuff that I can't think of

◦SN: You should use some sort of auto hack that enables unlimited attacking in one spot. It shouldn't move. It does move on occasion though because people like to mess with it etc. I'll add more stability later. Also, F2 to start the script. As soon as you hit play it will activate EO and start potting. This feature is used so you can spike walk to an appropriate autoing location. If you wanna stop it, Ctrl+Alt+S(Only if it's the first scar client you've opened.) Also, it uses EoBot's patch. Further questions.. Post.

Without further pointless information noone cares about or will probably read.. the script:

F2 to Start the Script,
Code:
(*      _____
      /    \
      /  _  \
    /  /_\  \ ____  _____  ____  ____
    |        |/    \ /  _  \/    \|/__  \
    |        |  |\__\  ___|      | __\  |
    |    |    |  |  |  |___|  /\  |/ _  |
    |____|____|__|    \_____|__||__|\___/\_\
                                                        A.K.A Matthew!
          /|        |\              /|  /|
          / |  _____  | \            / |/|/ |
          \ |_|    \_| /          /__  __|
          \__|      \_/              / /                /\
              |  |\  \ _____  ___  _/_/  _____  ____  /  \
              |  | }  }  _  \/  \/  \ /    \ /    \ /_  _\
              |  |/  /  ___|          |  |  |      |  \ \
              |      /|  |___|  |\/|  |  |  |  /\  |__/ /
              |_____/  \_____|___| /|___|\_____/|_ ||__|___/
                                / /
                              /_/
*)
Program Train4Bitez;
var x, y, num, amm, dir, go:integer;
Const
Monster = 1638350;
Procedure Herb;
begin
    if (not(getcolor(194, 34)=44345)) then
              begin
                  clickmouse(464, 377, true)
                  wait(1)
                  clickmouse(464, 377, true)
                  num:=num+1;
                  clickmouse(464, 377, true)
                  wait(1)
                  clickmouse(464, 377, true)
                  num:=num+1;
                  clickmouse(464, 377, true)
                  wait(1)
                  clickmouse(464, 377, true)
                  num:=num+1;
                  clickmouse(464, 377, true)
                  wait(1)
                  clickmouse(464, 377, true)
                  num:=num+1;
                  clickmouse(464, 377, true)
                  wait(1)
                  clickmouse(464, 377, true)
                  num:=num+1;
                  clickmouse(464, 377, true)
                  wait(1)
                  clickmouse(464, 377, true)
                  num:=num+1;
                  clickmouse(464, 377, true)
                  wait(1)
                  clickmouse(464, 377, true)
                  num:=num+1;
                  clickmouse(464, 377, true)
                  wait(1)
                  clickmouse(464, 377, true)
                  num:=num+1;
                  clickmouse(464, 377, true)
                  wait(1)
                  clickmouse(464, 377, true)
                  num:=num+1;
                  clickmouse(464, 377, true)
                  wait(1)
                  clickmouse(464, 377, true)
                  num:=num+1;
          end;
end;

Procedure Stat;
Begin
    Cleardebug;
    writeln('Used '+inttostr(num)+' herbs.')
    writeln('Attacked '+inttostr(amm)+' times.')
    writeln('Gained '+inttostr(go)+' exp')
End;
Procedure Write(str: String); {Created by Rena}
var
I,StrLength :Integer;
Goer: Boolean;

Begin
    I:=1
    StrLength:=Length(str)
    Goer:=False
    While(I<StrLength+1) Do
    begin
          If(GetKeyCode(StrGet(str,i))=191)then
          Begin
              KeyDown(16)
              Goer:=True
              I:=I+1
          End;
          KeyDown(GetKeyCode(StrGet(str,I)))
          Wait(25)
          KeyUp(GetKeyCode(StrGet(str,I)))
          Wait(26)
          I:=I+1
          If(goer=True)then
          Begin
              KeyUp(16)
          End;
    End;
    Wait(400)
End;
//----------
Procedure Load;
Begin
    findwindowtitlepart('endless online',false)
    activateclient
end;
procedure Left;
begin
    If FindColorSpiral(x,y,Monster,283, 166,289, 173)or(FindColor(x,y,Monster,288,158,292,162)) then
    begin
        clickmouse(78, 364, true);
          wait(7)
        repeat
        begin
        If not(dir=37) then
        begin
              keydown(37)
              wait(300)
              keyup(37)
              dir:=37;
                  end;
        Keydown(17)
        Wait(400)
        Keyup(17)
        Herb;
        Stat;
        amm:=amm+1;
    end;
    Until (Not(FindColorSpiral(x,y,Monster,283, 166,289, 173)or(FindColor(x,y,Monster,288,158,292,162))))
    //Log;
    go:=go+81;
end;
end;

//----------
Procedure Right;
begin
    If (FindColorSpiral(x,y,Monster,348, 200,357, 205))or(FindColor(x,y,Monster,342,188,348,194))then
    begin
    clickmouse(78, 364, true);
          wait(7)
    repeat
    begin
        If not(dir=39) then
        begin
              keydown(39)
              wait(300)
              keyup(39)
              dir:=39;
                end;
        Keydown(17)
        Wait(400)
        Keyup(17)
        Herb;
        amm:=amm+1;
        Stat;
    end;
    Until (Not((FindColorSpiral(x,y,Monster,348, 200,357, 205))or(FindColor(x,y,Monster,342,188,348,194))))
    //Log;
    go:=go+81;
End;
end;
//----------
Procedure Up;
Begin
    If FindColorSpiral(x,y,Monster,348, 164,357, 171)or(FindColor(x,y,Monster,343,158,347,162)) then
    begin
    clickmouse(78, 364, true);
          wait(7)
    repeat
    begin
        If not(dir=38) then
        begin
              keydown(38)
              wait(300)
              keyup(38)
              dir:=38;
                  end;
        Keydown(17)
        Wait(400)
        Keyup(17)
        Herb;
        amm:=amm+1;
        Stat;
    end;
    Until (not(FindColorSpiral(x,y,Monster,348, 164,357, 171)or(FindColor(x,y,Monster,343,158,347,162))))
    //Log;
    go:=go+81;
End;
end;
//----------
Procedure Down;
Begin
    If FindColorSpiral(x,y,Monster,278, 199,290, 205)or(FindColor(x,y,Monster,288,189,292,193)) then
    begin
    clickmouse(78, 364, true);
          wait(7)
    repeat
    begin
        If not(dir=40) then
        begin
              keydown(40)
              wait(300)
              keyup(40)
              dir:=40;
        end;
        Keydown(17)
        Wait(400)
        Keyup(17)
        Herb;
        amm:=amm+1;
        Stat;
    end;
    Until (Not(FindColorSpiral(x,y,Monster,278, 199,290, 205)or(FindColor(x,y,Monster,288,189,292,193))))
    //Log;
    go:=go+81;
End;
end;
Procedure Rage;
Begin
    Left;
    wait(100);
    Right;
    wait(100);
    Up;
    wait(100);
    Down;
    wait(100);
End;
Procedure Pause;
Begin
    if isfkeydown(2) then
    begin
    cleardebug;
    writeln('Paused')
          Repeat
          Begin
              Herb;
              wait(100);
              if isfkeydown(3) then
              Begin
                    repeat
                    Begin
                        wait(100)
                    End;
                    Until isfkeydown(3)
              End;
          End;
          until isfkeydown(2)
    End;
End;
Begin
    Disguise('Trainin at da bitaz. by Arenademon')
    Load;
    Wait(200)
    Begin
          repeat
          begin
              Herb;
          End;
          Until isfkeydown(2)
    End;
    Begin
          Repeat
          Begin
              Rage;
              Load;
              Stat;
              Pause;
              Herb;
              Wait(10)
          End;
          until isfkeydown(9)
    End;
End.
Back to top Go down
View user profile http://endless-online-haxs.darkbb.com
Beast
Scripter
Scripter
avatar

Male Number of posts: : 34
Age : 21
Join date : 2010-03-20

PostSubject: Re: Matthew's Training at the Biter's!   Sun Mar 28, 2010 5:24 pm

I request a auto relog :B
Back to top Go down
View user profile
Mike
Hax0r
Hax0r


Male Number of posts: : 107
Age : 22
Location : NONE
Guild Tag : NONE
Guild Name : NONE
Join date : 2010-03-20

PostSubject: Re: Matthew's Training at the Biter's!   Sun Mar 28, 2010 6:27 pm

Yeah same.
Back to top Go down
View user profile
andy1550
Starter
Starter
avatar

Number of posts: : 29
Age : 23
Location : Dominican Republic, DR
Join date : 2010-03-28

PostSubject: Re: Matthew's Training at the Biter's!   Mon Mar 29, 2010 8:10 pm

I dont request for a relog section its all good but i am trying to fixed the melee problem it should range with scav but cant find it

if u can fix the range part would be amazing :p Thanks


- If u dont understand me i said: thats my character just attack when the biter its infront of him its ok with saw but with scav it should attack long distance

My thinking xD

sunny Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy
Back to top Go down
View user profile
Admin
Admin


Number of posts: : 1
Guild Tag : NONE
Guild Name : NONE
Join date : 2009-12-21

PostSubject: Re: Matthew's Training at the Biter's!   Tue Mar 30, 2010 2:35 pm

Its going to take awhile xD
Back to top Go down
View user profile http://endless-online-haxs.darkbb.com
coolprincemervin
Noob
Noob


Number of posts: : 2
Join date : 2010-05-02

PostSubject: Re: Matthew's Training at the Biter's!   Sun May 02, 2010 8:04 pm

well the scar must be 3.13 or others also can? cause i got problem setting up 3.13


umm also i need anti lag and anti relog



oh yes and need to change anything in script?


Last edited by coolprincemervin on Sun May 02, 2010 8:07 pm; edited 1 time in total (Reason for editing : some thing missing)
Back to top Go down
View user profile
John
Co-Owner
Co-Owner


Number of posts: : 4
Join date : 2010-04-24

PostSubject: Re: Matthew's Training at the Biter's!   Sun May 02, 2010 8:15 pm

coolprincemervin wrote:
well the scar must be 3.13 or others also can? cause i got problem setting up 3.13


umm also i need anti lag and anti relog



oh yes and need to change anything in script?

Matthew has anti relog

and what do u mean oh yes and need to change anything in script?
Back to top Go down
View user profile
Sponsored content




PostSubject: Re: Matthew's Training at the Biter's!   

Back to top Go down
 
Matthew's Training at the Biter's!
Back to top 
Page 1 of 1
 Similar topics
-
» Chess Training!!!!!
» Books in chessbase format - best way for self-training
» Grandmaster Strategy Video Training Library
» Tactic Training Database
» Free chess tactics training site

Permissions in this forum:You cannot reply to topics in this forum
Endless Online Hacks :: SCAR 3.1.3 :: Scripts-
Jump to: