Admin
Admin
Number of posts: : 1
Guild Tag : NONE
Guild Name : NONE
Join date : 2009-12-21
 | Subject: 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. | |
|
