SRL Archive - First Scripts

power's powerminer


austinpowers

2008-12-21 21:44:39

This is my first script. It is a power miner.Test it for me
program New;
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
I, x, y:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; // 3/4 of name.
Players[0].Active := True;

Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := ''; // 3/4 of name.
Players[1].Active := True;
end;

begin
setupsrl;
DeclarePlayers;
LoadRockRecords;
repeat
repeat
FindObjRock(x, y, varrock_Iron);
Mouse(x, y, 2, 2, True);
FFlag(0);
FindNormalRandoms;
Wait(4000+Random(1000));
until InvFull
DropAll;
until false
end.

Aser

2008-12-21 21:50:43

DropItem(I);
can be replaced with

DropAll;

No anit-ban and no fail safe, endless loop exc…

Good first start, but it could use some work. I'll even help you if you want.

You should also say that it only mines in Varrock…

MylesMadness

2008-12-21 22:02:48

Well, I tutered him a little bit. That dropall thingy was a fail on my part, I told him to use drop item. And you forgot scar tags…

Aser

2008-12-21 22:24:40

When I viewed it…it had SCAR tags on it.

D1zl3

2008-12-22 04:02:50

Yeah theres no scar tags. Standards need some work, antiban/randoms, and if you have until(false), then it wouldnt be multiplayer, good work though.

Flamedrown

2008-12-28 00:02:48

dude try attaching it

Tickyy

2008-12-28 03:23:49

From: Flamedrown
dude try attaching it


nice gravedig Idiot, Try to Post something Useful.

hamgooof

2008-12-28 12:14:25

very nice, ill test this later, if its ok could anyone help tutor me? :D sorry if its the wrong placxe to post this

noidea

2008-12-28 12:54:54

From: Tickyy
nice gravedig Idiot, Try to Post something Useful.


Since when was a 5 day old thread a grave dig..?

PoPC0rN

2009-01-07 13:51:23

noidea, you have no idea..

Baked0420

2009-01-07 15:29:37

From: Tickyy
nice gravedig Idiot, Try to Post something Useful.


?? gravedig? the thread was 6 days old. and austinpowers nice first script, but maybe make the mining part in the main loop a procedure, just like you did for the players, and also maybe a decent spot to put FindNormalRandoms; could be after every repeat or something, so it at least looks for randoms once it does something again, instead of never looking for randoms.