yanix
2007-08-25 16:51:08
Im looking for a dropper that drops everything in inv but not the first item and it dosent need anything just dont get me banned
2007-08-25 16:51:08
2007-08-25 16:57:08
2007-08-25 16:59:36
From: hermpie
dropto(2,28);
somthing like this ;)
please dont ask stupid things for this use search button
2007-08-25 17:20:59
program New;
{.include srl/srl.scar}
const
InvSpaceDrop = 1-28;
begin
SetupSRL;
repeat
if InvFull then
DropItem(InvSpaceDrop);
until(false)
end.
2007-08-25 18:01:52
{*******************************************************************************
procedure DropAll;
By: Lorax
Description: Drops all items
*******************************************************************************}
procedure DropAll;
var
i: Integer;
begin
for i := 1 to 28 do
DropItem(i);
end;
2007-08-25 18:40:11
{*******************************************************************************
procedure DropExcept(I: Array of Integer);
By: Spky
Description: Drops all except item(s) specified by inventory number(s).
*******************************************************************************}
procedure DropExcept(I: array of Integer);
var
InvSpot, En: Integer;
begin
for InvSpot := 1 to 28 do
begin
if (not (InvSpot = I[En])) then
DropItem(InvSpot) else
En := En + 1;
end;
end;
2007-08-25 22:31:20
Program AutoDropper
{.include SRL/SRL.scar}
begin
Drop(2,28);
end.
2007-08-26 03:05:44
From: Derek-
He doesn't want to drop the first item =]
use this{*******************************************************************************
procedure DropExcept(I: Array of Integer);
By: Spky
Description: Drops all except item(s) specified by inventory number(s).
*******************************************************************************}
procedure DropExcept(I: array of Integer);
var
InvSpot, En: Integer;
begin
for InvSpot := 1 to 28 do
begin
if (not (InvSpot = I[En])) then
DropItem(InvSpot) else
En := En + 1;
end;
end;
2007-08-26 03:17:29