Results 1 to 4 of 4

Thread: Dropping Procedure

  1. #1
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Dropping Procedure

    For the life of me I cannot seem to get this to work. I've recreated it from the scripting tuts but it never drops the inventory Can anyone help out? It spams dropping a fish 28 times but never moves mouse to do any work.

    Simba Code:
    program New;
      {$i SRL\SRL.scar}
    Procedure DropFish;
    Var
      SeX, SeY, CrayDTM, I: Integer;
      Slotbox:TBox;
      CrayPattern:TIntegerArray;

    Begin

      CrayDTM := DTMFromString('mggAAAHicY2NgYFBlZGAwAWIlIFYBYhkg1gLiPiDuBuIWIJ4FxDOAuBWIM63lgboYMbAkA3aAqRKCIQAA5I4FMw==');
      CrayPattern:= [1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28]

      For I:=0 To 27 Do
      Begin
      Writeln('Dropping a Fish');
      SlotBox:=InvBox(CrayPattern[I]);
      If FindDtm(CrayDTM, SeX,SeY, Slotbox.X1,Slotbox.Y1,Slotbox.X2,Slotbox.Y2) Then
        Begin
          MouseItem(CrayPattern[I], False);
          ChooseOption('Dro');
        End;
      End;

    End;
    begin
      SetupSRL;
      Dropfish;
    end.

  2. #2
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Put a "WriteLn('In the FindDTM');" just before the MouseItem();
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  3. #3
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    Put a "WriteLn('In the FindDTM');" just before the MouseItem();
    Aha thank you. Just needed a nudge in the right direction. That didn't work so I generated a new DTM and turns out there was a different border color then from when I first made the DTM. Thank you, working perfectly now.
    Last edited by lilcmp1; 12-28-2011 at 04:30 PM.

  4. #4
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Awesome, glad it's working.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


Thread Information

Users Browsing this Thread

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

Posting Permissions

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