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

Share | 
 

 Sweet codes bro

Go down 
AuthorMessage
gottapercha
Starter
Starter


Number of posts: : 13
Join date : 2010-03-23

PostSubject: Sweet codes bro   Tue Mar 23, 2010 10:16 pm

this next code allows you to click!!!! :O
Code:
Procedure click(x,y:integer);
begin
clickMouse(x,y,true)
end;


This turns your magic spell on , which is f4 for me, it reads the black text, "small fire selected" at the bottom of screen.

Code:

procedure mageon();
var fire,i,x,y:integer;

begin
i:=0;
fire:= DTMFromString('78DA634C61606078C1C8800DC044193B81C41' +
      '3026A2601898704D46C0212CF895043C89C6D44A81100B25E12A1' +
      '8680390014700AF4');

for i:=0 to 1 do
begin
keydown(115)
sleep(18)
keyup(115)
if finddtm(fire,x,y,49, 469,347, 497) then
sleep(300);
break;
end;

freedtm(fire);
end;

This is from SRL forums and tells you how long your script has been running from the time you started it.

Code:
Function msToTime(ms: integer): string;
var
  RHours, Minutes, Seconds, RMinutes, RSeconds: LongInt;
  Time: string;
begin
  Seconds := ms div 1000;
  Minutes := Seconds div 60;
  RHours := Minutes div 60;
  Time := IntToStr(Seconds) + 'Secs';
  if Minutes <> 0 then
  begin
    RSeconds := Seconds mod (Minutes * 60);
    Time := IntToStr(Minutes) + 'Mins, ' + IntToStr(RSeconds) +
      'Secs';
  end;
  if RHours <> 0 then
  begin
    RMinutes := Minutes mod (RHours * 60);
    RSeconds := Seconds mod (Minutes * 60);
    Time := IntToStr(RHours) + 'Hrs, ' + IntToStr(RMinutes) +
      'Mins, ' + IntToStr(RSeconds) + 'Secs';
  end;
  Result := Time;
end;


function TimeRunning: String;
begin
  Result := msToTime(GetTimeRunning);
end;
*EXAMPLE* writeln('Script has ran for '+timerunning);


This finds the ok button on most lost connection/alert windows.
Code:
procedure ok();
var dtm,xx,yy:integer;
begin
dtm:= DTMFromString('78DA636C6764607006622470ED580F9886893' +
      '27610A1A69348735C50D564273BA1AAE901B24C51D538596AA2AA' +
      'E906B2CC08A8E902B2CC51D5480870609A6382AA66EFDA6A5435B' +
      '389F0D71C4C7F596A0AA0AA998BE966747300183D1894');
if finddtm(dtm,xx,yy,170, 184,471, 351) then
begin
clickmouse(xx,yy,true)
end;
freedtm(dtm)
end;

This next code, exits out of eo and reopens eo.
WILL ONLY WORK IF, you have a shortcut to endless.exe on desktop.
YOU NEED TO HAVE SCAR MAXIMIZED!, AND MINIMIZED! SO THAT NOTHING IS BLOCKING THE DESKTOP VEIW IF EO IS CLOSED!
this is because when scar exits endless, the client window is gone, so it makes scar the new client window, and
since scar is maximized its searching the whole area where the scar window would be if it werent minimized thus the eo shortcut on your desktop.
(might not work for everyone)
Code:
{=======================
  Reopens Endless-Online
--------
  Have a Shortcut in left top corner of desktop to Endless client
======================                        }
procedure reopeneo();
var i:integer;
begin
i:=0;
clickmouse(624, 14,true)
FindWindowtitlepart('SCAR', true)
activateclient;
sleep(1000)
if findcolor(x,y,5617407,-400,-400,900,900) then
begin
clickmouse(x,y,true)
sleep(15)
clickmouse(x,y,true)
end;
for i:=0 to 10 do
begin
sleep(1000)
if FindWindowtitlepart('Endless', true) then
break;
end;
activateclient;
end;

//===========================================


This is also from srl or something, its used to type in eo.


Code:
procedure TypeByte(k: Byte);
begin
  KeyDown(k);
  Wait(15);
  KeyUp(k);
end;

procedure TypeSendEx(Text: string; PressEnter: Boolean);
var
  S: string;
  I, L: Integer;
  Shift: Boolean;

begin
  S:= 'ABCDEFGHIJKLMNOPQRSTUVWXZ' + '~!@#$%^&*()_+{}|:"<>?';
  L := Length(Text);
  for I := 1 to L do
  begin
    Shift := (Pos(Text[i], S) > 0);
    if (Shift) then
    begin
      KeyDown(VK_SHIFT) Wait(40 + Random(40));
      while (Pos(Text[i], S) > 0) and (I <= Length(Text)) do
      begin
        TypeByte(GetKeyCode(Text[I]));
        Wait(15);
        Inc(I);
        if (I > Length(Text)) then Break;
      end;
    end;
    if (Shift) then
      KeyUp(VK_SHIFT);
    Wait(15);
    if (I <= Length(Text)) then
    begin
      TypeByte(GetKeyCode(Text[I]));
      Wait(15);
    end;
  end;
  if (PressEnter) then
    TypeByte(GetKeyCode(Chr(13)));
end;

procedure TypeSend(Text: string);
begin
  TypeSendEx(Text, True);
end;
example
typesend('hello world eo sucks ma baww sach')


Okay i think i gave all the procedures for this login one.
Code:

procedure login(user,pass:string);
label goback;
var xx,yy,dtm,i,dtm2,refused,lostconnect,noserv,character:integer;
begin
dtm:= DTMFromString('78DA6354616060B067644006D5C5D5601A26C' +
      'AB81F4838A0AA29AE4653033227035D4D31AA9A7D40229D805D20' +
      '73FA09A8019933014D0D9A7B00A1E90D9D');
dtm2:= DTMFromString('78DA6314646460B0046224B0355B134CC3441' +
      '99D9930D41C6B314455630C6479A2AA6909924055630B6425A0AA' +
      'F9FFFF3F8A1A00136B08A0');
noserv:= DTMFromString('78DA63FCCAC0C0708F01057CF870024C3342F' +
      '98CEF81C46D22D43C23A0E603116A3E11A106E4E62704D4E80259' +
      '928CF8D568025921A86AE6646BA2AAD90C245450D5F444A1A9390' +
      'B246EA1BA87C1300855CD1622DC035223845F0D00C7AB2A99');
lostconnect := DTMFromString('78DA637CC3C0C0709B01057CF870024C3342F' +
      '98C8781C43F026AB6028943A86AF6563BA1AA390324AEA1AA89F2' +
      '324455B316C89264C46F570F90C54E40CD11202141400D1790158' +
      'AAA664A94228A1A009F6A19F3');
refused := DTMFromString('78DA637CC3C0C0709B01057CF870024C3342F' +
      '98C2035CF08A8F942849A5F40E23E0135BF8930C78F91383584FC' +
      'E54B841A6D22D46812760F00F7712971');
character:= DTMFromString('78DA6314606260A8664001D78EF5806946289' +
      'F9117A8A683801A51A09A2E54355E5E86A86AC4806A1A50D54CE9' +
      '494655230B54D347C02E394C7330D4A800D5D4A0AA39B6B705558' +
      'D32504D27017334816A1AD1D5A099A30154D38E5F0D00884719C3' +
      '');
goback:
//////////////////////////////////
//////////////gets to login box
//////////////////////////////////
if finddtm(dtm,xx,yy,12,291,224,487) then
  begin
  i:=0;
  repeat
  clickmouse(103, 364,true)
  wait(1000)
  i:=i+1000;
  until finddtm(dtm2,xx,yy,224, 265,604, 479) or
  finddtm(lostconnect,xx,yy,170, 184,471, 351) or
  finddtm(noserv,xx,yy,170, 184,471, 351) or (i>=25000)
  if (i>=25000) then
  begin
  reopeneo()
      i:=0;
  end;

if finddtm(lostconnect,xx,yy,170, 184,471, 351) or
  finddtm(noserv,xx,yy,170, 184,471, 351)  then
  begin
  ok()
  end;

  if not finddtm(dtm2,xx,yy,224, 265,604, 479) then goto goback;
  writeln('Found login-box')
  end;
///////////////////////////////////

/////////////////////////////////////////////////////
/////////////logins with info checks for connection,
/////////////invalid info, ect..
////////////////////////////////////////////////////
if finddtm(dtm2,xx,yy,224, 265,604, 479) then
begin
writeln('Logging in with account: '+user+'.')
sleep(500)
typesend(user)
clickmouse(413, 383,true)
sleep(500)
typesend(pass)
repeat
wait(1000)
i:=i+1000;
until finddtm(refused,xx,yy,170, 184,471, 351) or
finddtm(character,xx,yy,467, 83,617, 182) or
finddtm(lostconnect,xx,yy,170, 184,471, 351) or
finddtm(noserv,xx,yy,170, 184,471, 351) or (i>=20000)
if (i>=20000) then goto goback;

if finddtm(lostconnect,xx,yy,170, 184,471, 351) or
  finddtm(noserv,xx,yy,170, 184,471, 351) or
  finddtm(refused,xx,yy,170, 184,471, 351)  then
  begin
  ok()
  end;

  if not finddtm(character,xx,yy,495, 116,585, 144) then goto goback;
  writeln('Were at character selection.')

if finddtm(character,xx,yy,495, 116,585, 144) then
begin
repeat
clickmouse(xx,yy,true)
sleep(500)
until findcolor(xx,yy,7054790,591, 381,591, 381)
writeln('Should be logging in...')
repeat
until findcolor(xx,yy,57087,441, 28,441, 28)
writeln('in-game')
writeln('This script was written by perfectskin.')
clickmouse(77, 442,true)
end;

end;
////////////////////////////////////////////////////
freedtm(dtm)
freedtm(dtm2)
freedtm(noserv)
freedtm(lostconnect)
freedtm(refused)
freedtm(character)
end;
My work is sloply
my ign is perfectskin.
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: Sweet codes bro   Wed Mar 24, 2010 4:03 am

oo Nice
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: Sweet codes bro   Sat Mar 27, 2010 7:32 pm

LOL Perfectskin... Alan?
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: Sweet codes bro   Sat Mar 27, 2010 7:56 pm

huh
Back to top Go down
View user profile http://endless-online-haxs.darkbb.com
gottapercha
Starter
Starter


Number of posts: : 13
Join date : 2010-03-23

PostSubject: Re: Sweet codes bro   Sat Mar 27, 2010 8:24 pm

Beast wrote:
LOL Perfectskin... Alan?
?
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: Sweet codes bro   Sat Mar 27, 2010 8:26 pm

wtf
Back to top Go down
View user profile http://endless-online-haxs.darkbb.com
Sponsored content




PostSubject: Re: Sweet codes bro   

Back to top Go down
 
Sweet codes bro
Back to top 
Page 1 of 1

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