SRL Archive - First Scripts

I needed this myself so i wrte this in like 2min :P
It drops on F1 key, terminates script on F2 key.
With my full guth on i'd rather not die with a fishing script, so this will just drop.


UPDATED added some stuff

program AdvancedAutoDropper;
{.include srl\srl.scar}

//Press F1 to drop
//Press F2 to stop dropping
//Press F3 to stop script



////////////////////////////////MADE BY FLOOR66\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////SETUP:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////////\/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
const
Speed = 35; //Mouse Speed
Spot = 2; //Wich inv spot to start on (e.x with a small fishing net it's place 2)
///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////END OF SETUP\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////////\/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


procedure Drop;
var F : Integer;
begin
 if (InvFull) then
  begin
   for F := Spot to 28 do
    DropItem(F);
    Exit;
  end else
   Writeln('Inventory not full');
   Exit;
end;

begin
 SetUpSRL;
  MouseSpeed := Speed;
  case random(5) of
  0: Disguise('iTunes');
  1: Disguise('Norton Internet Security');
  2: Disguise('Photoshop CS3 ~ hamza.bmp');
  3: Disguise('RuneScape World Map - Internet Explorer 7');
  4: Disguise('MSN Messenger');
  end;
repeat
 if (IsFKeyDown(1)) then
begin
GameTab(4);
Wait(1000);
 Drop;
repeat
  Status('Dropping.');
   wait(250);
    Status('Dropping..');
     wait(250);
    Status('Dropping...');
   wait(250);
  until(InvEmpty or IsFKeyDown(2));
  Status('-------------------');
 end;
until(IsFKeyDown(3) or (LoggedIn = False));
end.

It compiles but gives me a file access error.
If i can get it to work it would be handy for power fishing:D

How about you make it so when you push the excape key it drops? :D F2 goes to stats Tab.

i try it. i will edit if i am finished

u can easly edit it
change (IsFKeyDown(1))
to (IsFKeyDown(7))
and (IsFKeyDown(1))
to something else

I dont have the F2 gametab prob.. did you target RS applet?
Else u just use IsKeyDown instead of FKeyDown..

Soz for DP, but i updated it once again :)

Good job but, it's very hard to read. Let me fix the standards.

program AdvancedAutoDropper;
{.include srl\srl.scar}

//Press F1 to drop
//Press F2 to stop dropping
//Press F3 to stop script



////////////////////////////////MADE BY FLOOR66\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////SETUP:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////////\/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
const
  Speed = 35; //Mouse Speed
  Spot = 2; //Wich inv spot to start on (e.x with a small fishing net it's place 2)
///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////END OF SETUP\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////////\/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


procedure Drop;
var F : Integer;
begin
 if (InvFull) then
 begin
   for F := Spot to 28 do
   begin
     DropItem(F);
     Exit;
   end else
   begin
     Writeln('Inventory not full');
     Exit;
   end;
end;

begin
  SetUpSRL;
  MouseSpeed := Speed;
  case random(5) of
    0: Disguise('iTunes');
    1: Disguise('Norton Internet Security');
    2: Disguise('Photoshop CS3 ~ hamza.bmp');
    3: Disguise('RuneScape World Map - Internet Explorer 7');
    4: Disguise('MSN Messenger');
  end;
  repeat
    if (IsFKeyDown(1)) then
    begin
      GameTab(4);
      Wait(1000);
      Drop;
      repeat
        Status('Dropping.');
        wait(250);
        Status('Dropping..');
        wait(250);
        Status('Dropping...');
        wait(250);
      until(InvEmpty or IsFKeyDown(2));
      Status('-------------------');
    end;
  until(IsFKeyDown(3) or (LoggedIn = False));
end.

Good job other than the standards. It looks like you have been active here so good luck!

Good luck
Cut em2 it

Yeh, i know, i just suck @ standards :P
Bwt, i could also make it, that when InvFull, it drops :P

Oh and I forgot something:

if (InvFull) then
 begin
   for F := Spot to 28 do
   begin
     DropItem(F);
     Exit;
   end else
   begin
     Writeln('Inventory not full');
     Exit;
   end;

= bannage. It will drop everything extremely quickly, because this script has no waits in it.

if (InvFull) then
 begin
   for F := Spot to 28 do
   begin
     DropItem(F);
     Wait(700+random(200)); //Help with no bannage.
     Exit; //What is this here for? Only goes through one inventory slot for this.
   end else
   begin
     Writeln('Inventory not full'); //I'll show a different way to drop the entire
     Exit; //inventory if it isn't full :D
   end;

Here's how to do the entire inventory if it isn't full:

if ExistsItem(Slot) then

It's easy and reliable…

Cut em2 it

Meh, i think ur wrong, i tested it and it didnt go fast neither slow.

DropItem will drop the entire inventory because of F := Spot to 28 (=All slots).
So i dont need to put in a repeat, wich wud ban me w/o waits, :P

Yes, it may seem undetecable, but, if you move the mouse somewhere them move to the next spot automatically that looks botty…

Cut em2 it

Somehow i get error'd @ this:

program AdvancedAutoDropper;
{.include srl\srl.scar}

//Press F1 to drop
//Press F2 to stop dropping
//Press F3 to stop script



////////////////////////////////MADE BY FLOOR66\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////SETUP:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////////\/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
const
  Speed = 35; //Mouse Speed
  Spot = 2; //Wich inv spot to start on (e.x with a small fishing net it's place 2)
  Check = True; //Do you want to autodrop when inventory is full or just when F1 is pressed?
///////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////////END OF SETUP\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////////////////\/\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


procedure Drop;
var F : Integer;
begin
   for F := Spot to 28 do
   begin
    DropItem(F);
    Exit;
   end;
end;

begin
  SetUpSRL;
  MouseSpeed := Speed;
  case random(5) of
    0: Disguise('iTunes');
    1: Disguise('Norton Internet Security');
    2: Disguise('Photoshop CS3 ~ hamza.bmp');
    3: Disguise('RuneScape World Map - Internet Explorer 7');
    4: Disguise('MSN Messenger');
  end;
  if (Check = True) then
  begin
   repeat
    if (InvFull) then
    begin
     Drop;
      repeat
        Status('Dropping.');
        wait(250);
        Status('Dropping..');
        wait(250);
        Status('Dropping...');
        wait(250);
      until(InvEmpty or IsFKeyDown(2));
     end;
    until(IsFKeyDown(3) or (LoggedIn = False));
  end;
  if (Check = False) then
  begin
  repeat
    if (IsFKeyDown(1)) then
    begin
      GameTab(4);
      Wait(1000);
      Drop;
      repeat
        Status('Dropping.');
        wait(250);
        Status('Dropping..');
        wait(250);
        Status('Dropping...');
        wait(250);
      until(InvEmpty or IsFKeyDown(2));
      Status('-------------------');
     end;
   end;
  until(IsFKeyDown(3) or (LoggedIn = False));
end.

Post the error?

Unknow Identifier, you couldnt compile it? :P