SRL Archive - Outdated / Broken

Rune mystry quest (unf.)


footballjds

2009-05-11 01:47:12

Hello all srl members, i spent a while on this and…. :D
well, i got a lot of code… its unfinished and everything i did i don't want credit for. i just want somone to use what i have so far and complete it!!!

attached is a self extracting file so u don't need winrar or anything… ;)

please just complete it someone :D
i was going to do it but then i ran outta time, and i don't really need it……

i also attached .rar if u want that instead of self extracting

noidea

2009-05-11 02:35:10

You prolly dont really want to use the Walls for walking, unless you have the MM EXACT ( Not the Compass, just to remind you )

I use something like
//Found in one of Homes scripts
procedure AlignMM(Direction: Char);
var DTM, x, y, i: integer;
acc: extended;
begin
MakeCompass(Direction)
DTM := DTMFromString('78DA634C676260086240016F9F7C641001D28' +
'C40FC1F0818416AFC71AB0101B09A7022D44413A1C60BBF1A009F' +
'1015DF');
wait(50)
if FindDtmRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2, radians(-40), radians(40), 0.01, acc) then
begin
if (acc < 0.1) and (acc > -0.1) then
exit
else
begin
repeat
if FindDtmRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2, radians(-40), radians(40), 0.01, acc) then
begin
if acc < 0 then
begin
KeyDown(VK_RIGHT)
Wait(20 + random(10))
KeyUp(VK_RIGHT)
end;
if acc > 0 then
begin
KeyDown(VK_LEFT)
Wait(20 + random(10))
KeyUp(VK_LEFT)
end;
if acc = 0 then break;
end else
exit;
wait(20)
Inc(i)
until (((acc < 0.1) and (acc > -0.1)) or (i > 25))
end;
end else MakeCompass(Direction);
freeDtm(DTM)
end;

footballjds

2009-05-11 03:18:03

lol, the wall walking is fine, as its a straight shot wall
and im not fixing this or anything.. its for somone else who wants to finish it and take FULL glory… :p