Sweet codes bro

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

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.

Subject: Re: Sweet codes bro Wed Mar 24, 2010 4:03 am

oo Nice

Subject: Re: Sweet codes bro Sat Mar 27, 2010 7:32 pm

LOL Perfectskin... Alan?

Subject: Re: Sweet codes bro Sat Mar 27, 2010 7:56 pm

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

Beast wrote:: LOL Perfectskin... Alan?

?

Subject: Re: Sweet codes bro Sat Mar 27, 2010 8:26 pm

» EoRed sweet server