Results 1 to 15 of 15

Thread: Super simple [AutoDropper] [SRL4#13]

  1. #1
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default Super simple [AutoDropper] [SRL4#13]

    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

    SCAR Code:
    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.
    Ce ne sont que des gueux


  2. #2
    Join Date
    Feb 2008
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  3. #3
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

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


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  4. #4
    Join Date
    Jan 2008
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i try it. i will edit if i am finished

  5. #5
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default

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

  6. #6
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    I dont have the F2 gametab prob.. did you target RS applet?
    Else u just use IsKeyDown instead of FKeyDown..
    Ce ne sont que des gueux


  7. #7
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Soz for DP, but i updated it once again
    Ce ne sont que des gueux


  8. #8
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

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

    SCAR Code:
    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
    Formerly known as Cut em2 it

  9. #9
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Yeh, i know, i just suck @ standards :P
    Bwt, i could also make it, that when InvFull, it drops :P
    Ce ne sont que des gueux


  10. #10
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Oh and I forgot something:

    SCAR Code:
    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.

    SCAR Code:
    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:

    SCAR Code:
    if ExistsItem(Slot) then

    It's easy and reliable...

    Cut em2 it
    Formerly known as Cut em2 it

  11. #11
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    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
    Ce ne sont que des gueux


  12. #12
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    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
    Formerly known as Cut em2 it

  13. #13
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Somehow i get error'd @ this:

    SCAR Code:
    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.
    Ce ne sont que des gueux


  14. #14
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Post the error?
    Formerly known as Cut em2 it

  15. #15
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Unknow Identifier, you couldnt compile it? :P
    Ce ne sont que des gueux


Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Mute's Simple AutoDropper [v1.0]
    By Mute in forum First Scripts
    Replies: 7
    Last Post: 02-07-2008, 07:02 PM
  2. Requesting SIMPLE and FAST Autodropper!
    By bgxsaer in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 11-17-2007, 03:58 PM
  3. [SRL4]Simple Autotyper[i use DiVi 3.12c]
    By Floor66 in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 11-03-2007, 06:11 AM
  4. A SRL Autodropper by Buckleyindahouse, its simple.
    By Buckleyindahouse in forum RS3 Outdated / Broken Scripts
    Replies: 11
    Last Post: 03-11-2007, 10:04 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •