I need Help Implementing a drop procedure for my auto miner.
Can Someone Please Help Me.
I need Help Implementing a drop procedure for my auto miner.
Can Someone Please Help Me.
make a dtm of the item you want to drop. then have the mouse right click it and select drop. or i think thats a drop(2,28) proc in srl?
"For it is not what goes into your mouth that will defile you; rather, it is what comes out of your mouth that defiles you." - Jesus of Nazareth
This is the one I always use. It goes through all the inventory slots and if the item exists (as in, is not empty), then it'll go over it and check the uptext to see if it's right.
ItemName is what you want it to drop and is setup like you do nick (as in, instead of Iron Ore, you would use ron). It should compilSCAR Code:procedure DropItems(ItemName: String);
var
i: Integer;
begin
for i:= 1 to 28 do
begin
if(ExistsItem(i)) then
if(IsUpText(ItemName)) then
DropItem(i);
end;
end;
By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.
Ok, Thank all of you for your Help =]
I'll Try some of those



To use DTMs, do this:
SHOULD work, just wrote it in this boxSCAR Code:procedure DropDTMs(DTM: Integer);
var
I, x, y: Integer;
B: TBox;
begin
for I:= 1 to 28 do
begin
B:= InvBox(I);
if(FindDTM(DTM, x, y, B.x1, B.y1, B.x2, B.y2))then
DropItem(I);
end;
end;![]()
You could do this:
Code:procedure dropstuff; var dropmark : integer; begin marktime(dropmark); repeat dropall; // or dropto(2, 28); wait(100 + random(100)); if (timefrommark(dropmark) > 60000) then Exit; until(InvEmpty); end;
Ok...
again i will try the choices and see which works best
or:
SCAR Code:function DropToCustom(StartSlot, EndSlot : Integer): Boolean;
var F : Integer;
begin
for F := StartSlot to EndSlot do
DropItem(F);
end;
end;
And doSCAR Code:DropToCustom(1, 28);
Or:
SCAR Code:function DropIt(Name : String; StartSlot, EndSlot : Integer): Boolean;
var F : Integer;
begin
for F := StartSlot to EndSlot do
begin
if (ExistsItem(F)) then
begin
if (IsUpText(Name)) then
DropItem(F);
Result := True;
Writeln('Done Dropping!');
end;
end;
end;
This is with more sure-ness it'll click the right item.
Use asIt'll look for shrimps (raw or cooked) in inv slot 2 to 28, because slot 1 is the net.SCAR Code:DropIt('hrimp', 2, 28); //Avoid UPPER CASE in it!
I suck @ standards :P
Ce ne sont que des gueux
@Floor & Mixter: You both forgot that you also have to move the mouse on the item - ever wondered why don't you get anything dropped?
Floor, your first one wouldn't compile, a for loop doesn't need an end if it hasn't got a begin...
I always type it out and always forget something (only checked it compiled). Anyway, you can frogive floor66 as you can tell he just stole mine and added 2 new variables
SCAR Code:procedure DropItems(ItemName: String);
var
i: Integer;
begin
for i:= 1 to 28 do
begin
if(ExistsItem(i)) then
begin
MMouseItem(i);
if(IsUpText(ItemName)) then
DropItem(i);
end;
end;
end;
By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.
oke :P Now u have enough thinks to choice I think ^^
There are currently 1 users browsing this thread. (0 members and 1 guests)