Advice requested for simple inventory drop

[WildCard45]

I am new to SCAR, but not to programming so much - so I was able to get a simple script going to dump all 28 carried inventory items using ClickWindMouse. This works okay, but I need your help in using this in another way.

Before, I was powermining manually, and then would run the script to dump the inventory.

Now I am power mining in the desert, and am carrying 27 water flasks. What I am trying to do is now manually mine 1x, and then dump that mined item onto the floor.

Problem: Is there a way I could script a 'dump28thItem' SCAR script that would be constantly running, but maybe could activate/dump 28th item under the following conditions:
a) It checks to see if there is anything in the 28th spot and dumps it
b) It waits for me to hit a certain key (eg cntr+F3), then dumps it.

Suggestions? Just looking for help in speeding up the dumping of that one inventory slot while I manually mine.

Thanks!
WC

 

[Hey321]

If (IsFkeyDown(Number)) Then
//code here

For your second question.

Your first one would need SRL and a loop.

program New;
{.include srl/srl.scar}

begin
  SetupSRL;
  Repeat
    If(ExistsItem(28))Then
      DropItem(28);
  Until(IsFkeyDown(9))
end.

This will continually check to see if an item exists in slot 28, then drop it, all using SRL. If you're looking for undetectable Runescape functions, I suggest downloading SCAR 3.21, and getting SRL #38, Dev Rev.

Check out Freddy1990.com for SCAR, and Villavu.com for SRL (although I believe SRL has built in support in SCAR in this version, but may not in future versions).

It helps to cut down on everything. Dropping everything looks like this in SRL:

If(IsFkeyDown(9))Then
  DropAll;

Feel free to private message me if you have any more questions, and I'll do my best to help you!

~Sandstorm

 

[WildCard45]

Thanks so much Hey321, incredible advice. I'll work on this tonight and get back to you tomorrow on my success or failure.

Thanks.so.much!

 

[Ghostman]

Procedure Droplog;
var
 i:integer;
begin
 for i:= 2 to 28 do
  begin
   If ExistsItem(i) then
   DropItem(i);
   Loads:=Loads+27;
 end;
end;

Remember you must have i has a integer