mat_de_b
2007-08-30 15:58:05
Someone requested this in the request forum, so i thought id post it… feel free to comment on it… Just read the setup and run :D
{.Script Info:
# ScriptName = Mat's AutoDropper v1
# Author = mat_de_b
# Description = Automatically Drops Stuff
# Version = 1.5
# Date = 30/08/07 16:53 GMT
# Comments =
/Script Info}
program New;
{.include srl/srl.scar}
Const
FirstDropItem = 1; // The inventory slot of the first droppable item
// (put your stuff you wish to keep before it)
Mode = False; // True = Drops when full
// False = Drops on the press of Ctrl
procedure Drop;
var InvC:integer;
begin
repeat
ArrangeInv;
Writeln('Dropping');
InvC := InvCount;
DropToPosition(FirstDropItem, InvC);
Writeln('Done Dropping');
until(InvCount <= FirstDropItem);
end;
begin
SetupSRL;
Writeln('-------------------------------');
Writeln('-------------------------------');
Writeln('----------Made by--------------');
Writeln('----------mat_de_b-------------');
Writeln('-------------------------------');
Writeln('-------------------------------');
wait(2000);
repeat
if(mode = true)then
begin
Status('Waiting');
if(InvFull)then
begin
Drop;
end;
end;
if(mode = false)then
begin
Status('Waiting for you to press Control');
if(IsFunctionKeyDown(1))then
begin
Drop;
wait(2000+random(500));
end;
end;
until(False);
end.