SRL Archive - RS3 Outdated / Broken Scripts

tut runner...


mormonman

2008-11-11 21:42:46

Well, I have been patient for about 3 weeks… but i can't take it anymore! Is anyone going to make a new tut runner(i have tried to fix one but i can't do the login thing cuz it doesn't have welcome screen)?
I know its a very hard thing to make but it would be awesome if someone would make one(i would worship you and give rep+(i know that is not very much incentive but plx))!:(

lordsaturn

2008-11-11 21:47:05

Be patient, the script authors have to take time out of their own schedule to prepare and release content to you for free.
It won't be long before one is released soon anyways..*hint*

tarajunky

2008-11-11 22:12:40

You could always copy an edited LoginPlayer into your script that skips the click screen… :)

mormonman

2008-11-11 23:37:45

From: tarajunky
You could always copy an edited LoginPlayer into your script that skips the click screen… :)


i tried that… it didn't work!

lordsaturn

2008-11-12 00:08:11

Check out my runner in my sig, there's a function in there called 'MyLogin' with what you're looking for.

mormonman

2008-11-12 12:02:53

lol thanks!

mormonman

2008-11-16 01:06:08

ok login works… working on finding fishing spot… any help? what is the best way to do this?

this is the old version of finding it…:

procedure Fish(HowMuch: Integer);
var FishSpotDTM, c, i, slot, tx, ty: Integer; Fishing: LongInt;
begin
if(not(Logged))then Exit;
Status('Fishing');

FishSpotDTM := DTMFromstring('78DA63FCC4C0C070910105CC38F086410E483' +
'342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E3500EE' +
'831204');

WalkToMMArrow;
GameTabs(4);
MarkTime(Fishing);
repeat
ClickToContinue2;
if (FindDTM(FishSpotDTM, tx, ty, MSX1, MSY1, MSX2, MSY2)) then
begin
MMouse (tx, ty, 5, 5);
if IsUpText('et Fishing') then Mouse (tx, ty, 5, 5, True ) else
begin
if FindMSArrow(tx, ty) then
begin
MMouse(tx, ty -5, 1, 1);
Wait(50+Random(50));
if IsUpTextMultiCustom(['Net Fishing spot', 'ishing spot', 'Net fish']) then Mouse(tx, ty, 0, 0, True);
end;
end;
end;
FFlag(0);
Slot := 0;
Slot := InvCount;
c := 0;
repeat
Wait(1000+Random(300));
c := c +1;
until ((InvCount > Slot) or (c > 15))
if c <= 15 then
begin
i := i +1;
WriteLn('We cought a fish');
end;
if (TimeFromMark(Fishing) > 180000) then
begin
WriteLn('Fishing took longer then 3 mins, Setting player to False..');
Players[CurrentPlayer].Loc := 'Fishing';
Players[CurrentPlayer].Active := False;
Logout;
Exit;
end;
until(i >= HowMuch);
FreeDtm(FishSpotDtm);
end;

any ideas on how to fix… do i need to just make a new dtm?