SRL Archive - RS3 Outdated / Broken Scripts

I made this script due to being to lazy powerchopping for hour`s on end.

Just start it and when you need your dtm dropped press the dash and it will drop it.

It deletes the dash so your chat so the dash doesn't get spammed overtime.

Credit to person with dtm.


Change the dtm for your use.

Version 1.0

Why not just use DropAll?
Not trying to discourage you..

You could just have it drop if the inventory is full.

That way, you don't need to press the minus key every time you want to drop, which can become a little suspicious anyway.

Good job though :) Keep it up!

Just use this

Program Dropper;
Procedure DropAllEx(Skip: TIntegerArray);
var
  i: Integer;
Begin
  for i := 1 to 28 do
    if not InIntArray(Skip, i) then
      DropItem(i);
End;

Begin
  DropAllEx([0]);
End.

Credit

http://villavu.com/forum/showthread.php?p=631261

From: TRiLeZ
Why not just use DropAll?
Not trying to discourage you..

I was getting a runtime error with the inventory.scar in the includes I believe.

From: Main_Ftw
Just use this

Program Dropper;
Procedure DropAllEx(Skip: TIntegerArray);
var
  i: Integer;
Begin
  for i := 1 to 28 do
    if not InIntArray(Skip, i) then
      DropItem(i);
End;

Begin
  DropAllEx([0]);
End.

Credit

http://villavu.com/forum/showthread.php?p=631261

I don`t feel like pressing control alt r everytime I want to drop something.

{.include SRL\SRL.scar}
var
  thedtm :Integer;

procedure DropStuff;
begin
  TypeByte(VK_BACK);
  ClickAllItems('dtm', thedtm, 'Drop', Random(250), []);
end;

procedure LoadDTMs;
begin
  thedtm := DTMFromString('78DA63CC646260B8C3800618E1E47F2060CC0' +
  '0AAF9805B0D98AE06AA794E404D2C50CD4B026A92806ADE125093' +
  '4E847B8A816A6E1250938CDFEF60BA14A8E6350135D94035EFF1A' +
  'B010036CF115F');
end;

begin
  setupsrl;
  LoadDTMs;
  mousespeed := 12+random(5);
  while (not(IsKeyDown('-'))) do
  Wait(100+random(250));
  if (IsKeyDown('-')) then
  repeat
    DropStuff;
  until(not(IsKeyDown('-'));
end.

That way you don't have to use "crtl+alt+r"

Guy`s every hear the word simple? Lawl.

@wyn10:
The thing I posted will drop all your item except for item in the 0 slot which doesn't exist.. (The procedure will drop all your item from the 1st inventory slot to the 28th if you make it skip 0).

@Runawaycop:
Go fix your application, quit messing around lol.

This is the most simple and convenient way to do it:

Program New;
{.include SRL/SRL.scar}

begin
  SetupSRL;
  repeat
    wait(50);
    if(InvFull)then DropAll;
  until(False);
end.

You don't need to press any buttons. Each time the inventory is full, it just drops.

Now they will beg for chopping procedure lawl.


Here is a chopping procedure which I think is worthy of people at this section.

Procedure Choptree;
var Tx, Ty: Integer;
Begin
  repeat
    Tx:=mscx+random(300)-random(300);
    Ty:=mscy+random(300)-random(300);
   Mmouse( Tx, Ty, 0, 0);
  Until (IsUpTextMultiCustom(['ree','ak','illow','ew','agic']))
  Wait(random(300));
  Mouse( Tx, Ty, 0, 0, true);
End;

@JAD. When I run that it moves my mouse around heckaz. It moves my character as well. Which is weird.

I was just making a simple dropper lmao…

From: wyn10
I was just making a simple dropper lmao…

At least fix your standards pl0x? :)

Sorted out standards on your script:

program Dropper;
{.include SRL\SRL.scar}

var
  TheDTM : Integer;

procedure Drop;
begin
  TypeByte(VK_BACK);
  ClickAllItems('dtm', TheDTM, 'Drop', Random(250), []);
end;

procedure LoadDTM;
begin
  TheDTM := DTMFromString('78DA63CC646260B8C3800618E1E47F2060CC0' +
            '0AAF9805B0D98AE06AA794E404D2C50CD4B026A92806ADE125093' +
            '4E847B8A816A6E1250938CDFEF60BA14A8E6350135D94035EFF1A' +
            'B010036CF115F');
end;

begin
  SetupSRL;
  LoadDTM;
  MouseSpeed:= RandomRange(11, 17);
  repeat
    if (IsKeyDown('-')) then
      Drop;
  until(False);
end.

A script I just made like this:

program Dropper;
{.include SRL/SRL.scar}

var
  I, D : Integer;
  DD : TIntegerArray;

procedure DontDrop; //Fill in this    -------------------------------
begin
  DD:= [1]; //Slots to NOT drop
end;

procedure DropAllEx(Skip: TIntegerArray); //Credits to Main_FTW
var
  I: Integer;
  
begin
  for I:= 1 to 28 do
    if not InIntArray(Skip, I) then
      DropItem(I);
end;

procedure Drop;
begin
  
begin
  SetupSRL;
  if InvFull then
  begin
    I:= RandomRange(2500, 7500);
    Alert('Dropping in ' + IntToStr(Round(I / 1000)) + ' seconds');
    Wait(I);
    DropAllEx(DD);
    Inc(D);
  end;
  WriteLn('Dropped ' + IntToStr(D) + 'times.');
end.

Richard