SRL Archive - General

hey guys, thank for bearing with me :spot:
here's my question, how do i make him drop it after his inventory is full?

program Script;
{$DEFINE SMART}
{$i SRL/SRL.simba}

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
  Players[0].Pin := '';
  end;
  procedure AntiBan;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(8) of
  0:
  begin
    HoverSkill('Mining', false);
    wait(2511+random(3161));
    end;
    1:PickUpMouse;
    2:
    begin
      MakeCompass('N');
      wait(215+random(351));
      MakeCompass('S');
      wait(315+random(215));
      MakeCompass('N');
    end;
   end;
  end;
procedure MineOre;
var
x, y:integer;
begin

repeat

  if FindObj(x, y, 'opper', 4886265, 50) then
  begin
    Mouse(x, y, 5, 5, mouse_right);
   ChooseOption('ine')
   wait(6000+random(3511))  // set this to a higher number if it changes rocks too quickly =)
   end;
  repeat
  wait(400+random(511));
  AntiBan;
  Until not IsUpText('opper') or (InvFull);
until(InvFull);
end;

procedure drop;
var
ore, x, y:integer;
begin
  if(InvFull) then
  repeat
  until(InvEmpty);
  begin

ore:= DTMFromString('mlwAAAHicY2dgYDBiZmDQA2JzILYGYhsgNmWGiMszMTAoArEaECsBsQQQiwCxFBBPC9UF6mbCilMYcANGPBgKALCIA/0=');
 if FindDTM(ore, x, y, MIX1, MIY1, MIX2, MIY2) then
 Writeln('dropping hopefully');
 Mouse(x, y, 5, 5, mouse_Right);
 wait(20+random(51));
 IsUpText('rop');
 ChooseOption('rop');
 FreeDTM(ore);
 end;
 end;










begin
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
MineOre;
drop;
end.

he mines it, but whenever his inventory is full, he just stands there O.O
ty

anyone :D

procedure dropItems;
begin
  DropAll; // drops all items, 1-28.
  //or:
  DropAllExcept([1, 2, 3, 4]); // would drop all items except those in slots 1, 2, 3, and 4
end;

Look into inventory.simba for more.

Cheers,
Lj