Page 1 of 2 12 LastLast
Results 1 to 25 of 31

Thread: Drop malefunction? :P

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

    Drop malefunction? :P

    Hey, none of the SRL dropping procedures seem to work for me, also not DropToFast by JAD.
    Everytime i put one (DropAll, DropTo(1, 28), DropToPosition(1, 28), etc.
    When Inv is Full, it click 'Continue' and then my mouse goes around the Coords 0,0 and 190, 0.
    Or its just looking for a color. (wich is in this case a dark color then, because these coords are in the 'black'.
    Ce ne sont que des gueux


  2. #2
    Join Date
    Mar 2007
    Posts
    3,042
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    Try dropping using DTMs or Bitmaps instead. They're a lot more accurate and since you make the dropping procedure yourself, you can control how fast it is. Try something like:

    SCAR Code:
    Procedure Drop;
    var
      x, y, DTMNAME: Integer;
    begin
      DTMNAME := DTMFromString('INSERTDTMHERE');
      while(FindDTM(DTMNAME, x, y, MIX1, MIY1, MIX2, MIY2)) do //While the DTM is found in your inventory
      begin
        Mouse(x, y, 2, 2, false);  //Right-click on it
        ChooseOption('rop'); //Select the drop option
        wait(500 + random(250)); //Wait a bit for it to disappear
      end;
      FreeDTM(DTMNAME); //Free the DTM so you don't have memory leaks.
    end;
    :-)

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

    Default

    Arghh, still the same!
    Maybe its just me?
    Made this out of it

    I need 2 diff dropping procedures, because i have an option to wear or not wear pick..
    SCAR Code:
    procedure Drop;
    var
      x, y, Ore: Integer;
    begin
      Ore := DTMFromString('78DA637461626078CA8002BCF514197418191' +
           '88088E13F1030FA02D5DC4155931E6CC5F09F01A2060418FD816A' +
           'DEA0AA315050405503B2EB130135C698E6806451D49803D53C405' +
           '511ECAC87AAC609A8E6167E730062361589');
      while (FindDTM(Ore, x, y, MIX1, MIY1, MIX2, MIY2)) do
      repeat
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('rop');
        wait(500 + random(250));
      end;
      until(InvEmpty);
      FreeDTM(Ore);
    end;

    procedure Drop2;
    var
      x, y, Ore: Integer;
    begin
      Ore := DTMFromString('78DA637461626078CA8002BCF514197418191' +
           '88088E13F1030FA02D5DC4155931E6CC5F09F01A2060418FD816A' +
           'DEA0AA315050405503B2EB130135C698E6806451D49803D53C405' +
           '511ECAC87AAC609A8E6167E730062361589');
      while (FindDTM(Ore, x, y, MIX1, MIY1, MIX2, MIY2)) do
      repeat
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('rop');
        wait(500 + random(250));
      end;
      until(InvCount = 27);
      FreeDTM(Ore);
    end;
    Ce ne sont que des gueux


  4. #4
    Join Date
    Mar 2007
    Posts
    3,042
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    Did you drag the crosshairs over the RuneScape window?
    :-)

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

    Default

    Ofc, how wud it else login :P
    Ce ne sont que des gueux


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

    Default

    I just use DropAll;


    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!

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

    Default

    OOO I JUST DONT...
    Dude is this spam? i said it didnt work for me!
    Ce ne sont que des gueux


  8. #8
    Join Date
    Oct 2007
    Location
    medway.england
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    did you do setupSRL; at the begining of your main loop? not doing that would stop em from working i think.

    coco

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

    Default

    Umm.. ofc, as i use SRL MultiPlayer, DeclarePlayers, LoginPlayer, etc.
    They work fine..
    Ce ne sont que des gueux


  10. #10
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's probably your script then. Maybe you should post the part of the script with it in it? Make sure that its actually running the dropall; or whatever. replace it with writeln('hello'); to test it.
    ~ Metagen

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

    Default

    Umm my full script:
    This includes the DTM drop procedure i made..

    SCAR Code:
    program PowerMin0r;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}


    {////////////////////////////////////////////////////////////////////////////////
    Use SRL 4 (I use Rev. #5-#6) and DiVi 3.12(a,b,c)
    /////////////////////////////////////////////////////////////////////////////////
    Start Logged In/Out.
    /////////////////////////////////////////////////////////////////////////////////
    NOT AUTOCOLOR!!! READ BELOW
    /////////////////////////////////////////////////////////////////////////////////
    Advice to set all 3 colors. (E.X: If there are 3 rocks, set 3 different colors)
    Default colors are for Iron Ore.
    /////////////////////////////////////////////////////////////////////////////////
    I know, i need to clean it up, only the Mainloop is ordered atm, Will work on it.
    ////////////////////////////////////////////////////////////////////////////////}


    var
      x, y, RocksMined, O : Integer;
      RockColor: Array [0..2] of Integer;

    const
      RunDir = 'W'; //Direction to run when in fight
      Angle = 'S'; //Wich compass angle? (N, E, S, W)
      Color1 = 1581113; //One color of the ore
      Color2 = 1583170; //Another color of the ore
      Color3 = 1646647; //Another color of the ore
      HowMuchLoads = 10;//How many loads to mine.
      PickWield = True; //Wield Pick? True or False.

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '' ; //Your Username.
      Players[0].Pass := '' ; // Your Password.
      Players[0].Nick := '' ; // 3-4 letters from your name.
      Players[0].Active := True ; //True = Use player, False = Don't use.

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure LoadArrays;
    begin
      RockColor[0] := Color1;
      RockColor[1] := Color2;
      RockColor[2] := Color3;
    end;

    procedure RunOn;
    begin
      if not LoggedIn then Exit;
      Mouse(674, 482, 2, 2, true);
      if (FindColorTolerance(x, y, 4803917, 625, 414, 658, 447, 10)) then
        Mouse(x, y, 5, 5, true);
    end;

    procedure MineThaOre;
    begin
      if not LoggedIn then Exit;
      if (FindColorSpiralTolerance(x, y, RockColor[0], 5, 5, 500, 336, 5)) or
         (FindColorSpiralTolerance(x, y, RockColor[1], 5, 5, 500, 336, 5)) or
         (FindColorSpiralTolerance(x, y, RockColor[2], 5, 5, 500, 336, 5)) then
        begin
        MMouse(x, y, 3, 3);
        wait(100+random(100));
        if IsUpText('ine') then
        begin
          GetMousePos(x, y);
          Mouse(x, y, 3, 3, True);
          GasFound(x, y);
          wait(3000+random(1000));
          RocksMined := RocksMined + 1;
        end else
        begin
          Players[CurrentPlayer].Active := False;
          LogOut;
        end;
      end;
    end;


    procedure Proggy;
    begin
      ClearDebug;
      Writeln('|+++++++++++++++++++++++++++++++++++++++++++++|');
      Writeln('Made by Floor66');
      Writeln('///////////////////////////////////////////////');
      Writeln('Copy? : Yes, but, CREDIT!');
      Writeln('\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\');
      Writeln('Ores Mined: '+IntToStr(RocksMined)+'');
      Writeln('|+++++++++++++++++++++++++++++++++++++++++++++|');
    end;

    procedure Credits;
    begin
      ClearDebug;
      Writeln('+++++++++++++++++++++++++++CREDITS:+++++++++++++++++++++++++++');
      wait(250);
      Writeln(' _____   __       ______  ______  _____       ____    ____    ');
      wait(250);
      Writeln('/\  __\ /\ \     /\  ___\/\  ___\/\  __\     / ___\  / ___\   ');
      wait(250);
      Writeln('\ \ \_\ \ \ \    \ \ \/\ \ \ \/\ \ \ \_\ \  /\ \__/_/\ \__/_  ');
      wait(250);
      Writeln(' \ \  _\ \ \ \  __\ \ \ \ \ \ \ \ \ \    /  \ \  _  \ \  _  \ ');
      wait(250);
      Writeln('  \ \ \/  \ \ \_\ \\ \ \_\ \ \ \_\ \ \ \\ \  \ \ \_\ \ \ \_\ \');
      wait(250);
      Writeln('   \ \_\   \ \____/ \ \_____\ \_____\ \_\ \_  \ \____/\ \____/');
      wait(250);
      Writeln('    \/_/    \/___/   \/_____/\/_____/\/_/\/_/  \/___/  \/___/ ');
      wait(250);
      Writeln('++++++++++++++++++++++++++++CREDITS:++++++++++++++++++++++++++');
      wait(1000);
    end;

    procedure Randoms;
    begin
      if not LoggedIn then Exit;
      FindTalk;
      FindNormalRandoms;
      FindLamp('mining');
      SolvePinball;
      if FindFight then
      begin
        RunTo(RunDir, True);
        Wait(15000 + random(5000));
        RunBack;
      end;
    end;

    procedure Drop;
    var
      x, y, Ore: Integer;
    begin
      Ore := DTMFromString('78DA637466626078C2800618E1E47F2060F40' +
           '6AAB98D5B0D980E00AA7946408D3F50CD7B026A9C806ABE105063' +
           '0254F39A801A73A09A0744D87593801A1BA09A0F44B88790DF838' +
           '06AEE1350630F547317BF1A00F8191214');
      while (FindDTM(Ore, x, y, MIX1, MIY1, MIX2, MIY2)) do
      repeat
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('rop');
        wait(500 + random(250));
      end;
      until(InvEmpty);
      FreeDTM(Ore);
    end;

    procedure Drop2;
    var
      x, y, Ore: Integer;
    begin
      Ore := DTMFromString('78DA637466626078C2800618E1E47F2060F40' +
           '6AAB98D5B0D980E00AA7946408D3F50CD7B026A9C806ABE105063' +
           '0254F39A801A73A09A0744D87593801A1BA09A0F44B88790DF838' +
           '06AEE1350630F547317BF1A00F8191214');
      while (FindDTM(Ore, x, y, MIX1, MIY1, MIX2, MIY2)) do
      repeat
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('rop');
        wait(500 + random(250));
      end;
      until(InvCount = 27);
      FreeDTM(Ore);
    end;

    procedure AntiBan;
    begin
      if (not(LoggedIn)) then Exit;
      SleepAndMoveMouse(1000+random(1337));
      GameTab(1+random(12));
      GameTab(4);
    end;

    begin
      SetupSRL;
      MouseSpeed := 20;
      LoadArrays;
      DeclarePlayers;
      Credits;
      ActivateClient;
      LoginPlayer;
      wait(2000+random(1000));
      RunOn;
      MakeCompass(Angle);
      HighestAngle;
      if (not(LoggedIn)) then Exit;
      repeat
        O := O+1
        repeat
          repeat
            if (not(LoggedIn)) then Exit;
            MineThaOre;
            AntiBan;
            MakeCompass('S');
            Randoms;
          until(InvFull);
          if (PickWield = True) then Drop;
          if (PickWield = False) then Drop2;
          SrlRandomsReport;
          Proggy;
        until(RocksMined >= HowMuchLoads * 28) or (not LoggedIn)
        NextPlayer(Players[CurrentPlayer].Active);
      Until(false);
    end.
    Ce ne sont que des gueux


  12. #12
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks fine to me, what happens with ur dtm thing?
    ~ Metagen

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

    Default

    if i have full inv, it goes to somewhere at 0,0 - 190, 0
    Ce ne sont que des gueux


  14. #14
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    RAWR! you have duplicate variable x, y. (i think, just a guess) change ur variables on the procedure to cx and cy
    ~ Metagen

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

    Default

    ok imm eat now test in 20min
    Ce ne sont que des gueux


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

    Default

    No work..
    Ce ne sont que des gueux


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

    Default

    sorry for bump + trip. post
    Ce ne sont que des gueux


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

    Default

    Quote Originally Posted by floor66 View Post
    OOO I JUST DONT...
    Dude is this spam? i said it didnt work for me!
    Have you ever though of getting SRL 4 Rev 6? OOO, it didn't work in SRL beta4, but it works now. OOO IT WORKS JUST FINE...


    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!

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

    Default

    Oo I Got Srl Rev 6 Oo Dissed
    Ce ne sont que des gueux


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

    Default

    ... Still no work
    Ce ne sont que des gueux


  21. #21
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    You dont need two procedures!

    Just do "If WearPick Then StartSlot = 1 Else StartSlot = 2" like that..

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

    Default

    Ok, but still, no dropping works..
    Ce ne sont que des gueux


  23. #23
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    How doesnt it exactly work?

    It doesnt do anything or what?

  24. #24
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by n3ss3s View Post
    You dont need two procedures!

    Just do "If WearPick Then StartSlot = 1 Else StartSlot = 2" like that..
    Or you could simplify your original Drop procedure:
    SCAR Code:
    procedure Drop;
    var
      x, y, Ore: Integer;
    begin
      Ore := DTMFromString('78DA637466626078C2800618E1E47F2060F40' +
           '6AAB98D5B0D980E00AA7946408D3F50CD7B026A9C806ABE105063' +
           '0254F39A801A73A09A0744D87593801A1BA09A0F44B88790DF838' +
           '06AEE1350630F547317BF1A00F8191214');
      while (FindDTM(Ore, x, y, MIX1, MIY1, MIX2, MIY2)) do
      begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('rop');
        wait(500 + random(250));
      end;
      FreeDTM(Ore);
    end;

    In theory this should work (removing the repeats). You also wouldn't need two drop procedures. Other than that I have no idea why it moves the mouse to the top left corner.

  25. #25
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    I think you also should add a failsafe in a procedure like that, about the chooseoption, do "If Not ChooseOption... Then MMouse(MSX1, MSY1, MIX2, MIY2) " so it moves the mouse away from the option window if it does not find that option.

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. What Do I Use For DROP Now???!!!
    By Ilikepie1995 in forum OSR Help
    Replies: 4
    Last Post: 09-30-2007, 08:15 PM
  2. drop
    By marre in forum OSR Help
    Replies: 6
    Last Post: 09-15-2007, 05:40 PM
  3. drop drop drop????
    By havoc928 in forum OSR Help
    Replies: 4
    Last Post: 08-21-2007, 03:29 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
  •