SRL Archive - Help and Support

begin
  SetupSRL; //
  repeat
    repeat //
      tinmine;
    until i = 27; //
    DropAll; //
    i := 0; //
  until(Mined = Total); //
  Writeln('Mined : ' + IntToStr(Mined) + 'rocks.'); //
end.

This aint my whole code, jsut that part…LOL

It dropped My addy pick! I wasn't paying attetnion. What do I change to make it so it won't drop my pick but just the ores???? Pay attention to the "DropAll;" THanks for any help!

Use a different drop procedure where you can specify the drops, and make it not drop your pick, or you can make your own drop procedure that isn't called DropAll (could be called, for example, DropAll2, just so it doesn't clash with the include).

Hope this helps :D

No…I just wanted some1 to type like, a replacement that I can copy, YET STILL LEARN. :D, So any1 just post a code form of it.

just got an idea :p you'll see in a while.. for now just make sure your pick is in the 28th slot if you cant equip.. then do a drop from-to thing for 1-27

Procedure DropAllButPick;
var i:integer
begin
benmouse:=false;
for i:=2 to 28 doDropItem(i);
benmouse:=true;
end;

wont that only drop item 3 in your inv? cuz 2+1 = 3 :confused:

Do you have any of the older includes? Like Squig, or Si? They have procedures that Drop a specified amount. Just copy and paste that into your script. Sorry, I'm currently on a computer without SCAR so I can't help you look. :(

~WhiteShadow

From: phantombmx
wont that only drop item 3 in your inv? cuz 2+1 = 3 :confused:

no ittl drop from 2 to 28..

This is what SRL has to offer for you:
Just look in inventory.scar

procedure DropItem(i:integer); // * by Lorax
procedure DropAll; // * by Lorax
Procedure DropTo(x,y:Integer); // * by Sdcit
Procedure DropExcept(I : array of Integer); // * by Spky
function DropInvPosition(i : Integer): Boolean; //Mutant Squirrle
procedure DropToPosition(StartPosition, EndPosition: Integer); //Mutant Squirrle
procedure DropHold(keep:string); //Mutant Squirrle

From: phantombmx
just got an idea :p you'll see in a while.. for now just make sure your pick is in the 28th slot if you cant equip.. then do a drop from-to thing for 1-27

why not pick in first spot, and drop to thing from 2nd spot to 28th spot;

DropTo(2, 28);

;)