SRL Archive - RS3 Script Requests

I've heard of drop party scripts before, but never seen one. Are there any around here, and if not, could someone make one? I'd imagine it would work by finding a drop party manually, then turning on the script and it picking up items faster then anyone else. Not sure how it would be done, my scripting knoloedge is very limited.
Thanks Guyys!

E: Found this, Dont think it functional though

procedure DropParty;
var
  I,StartCount, Invount: Integer;
  MyTPA: TPointArray;
  MyPoint: TPoint;
begin
  StartCount := InvCount;
  if FindColorsSpiralTolerance(MMCX,MMCY,MyTPA,2552,MMX1,MMY1,MMX2,MMY2,5) then
  begin
    SortTPAFrom(MyTPA,point(MMCX,MMCY));
    for I := 0 to High(MyTPA) do
    begin
      MyPoint := MMtoMS(MyTPA[i]);
      MMouse(MyPoint.x,MyPoint.y,RandomRange(-2,2),RandomRange(-2,2));
      if WaitUpText('ake',1000) then
      begin
        ClickMouse2(mouse_Left);
        Flag;
        if InvCount > StartCount then
          WriteLn('We got an item!') else
        WriteLn('Somebody beat us to it.. :(');
      end;
    end;
  end else
  begin
    WriteLn('No item dots on minimap yet..');
    Wait(RandomRange(500,750));
  end;
end;

I don't see much of a point for this to be honest, doing it manually would be better

Would be funnier lol
And perhaps a Nightmare, later..

People drop various items of various size, color, location, etc.
It would be extremely hard/impossible to make one.

One in Java would be easier, it would just look for certain item IDs and click them.
But even then, it's still about who is closer to the item too so they can reach it faster (or telegrabing).

Not very probable/possible to make a good one with Simba.

Ehh.. it wouldn't be so good you could use some form of SPS Coordinate labeling where ever an Items been picked up, to Avoid Any Spots Near it until none are Left to probably have some form of an advantage but It would most likely be pretty Lame I reckon, you would just need to use the MM to scan for Red Dots In a loop and Convert what's found using MMtoMS(); also have your mouse always close to the center of the Screen to get the fastest result ;)

Sounds confusing… I guess Ill just stick to telegrabbing, Thanks guys!

Here you go I just whipped you up a better one from the one you posted it wouldn't have worked very well at all.. ;)
Try it out and tell me how it goes.

Program DropPartyItemGrabber;
{$DEFINE SMART}
{$i SRL/srl.simba}

//Edited by Leetsxc
var
  I,StartCount, Invount, TPALength, X, Y: Integer;
  MyTPA: TPointArray;
  MyPoint: TPoint;

begin
  StartCount := InvCount;
  Repeat
    //Make Sure Mouse in the Middle of the Screen with anti-ban
    GetMousePos(x,y);
    if(not(InRange(x, MSCX-(MSX2/4), MSCX+(MSX2/4)) and InRange(y, MSCY-(MSY2/4), MSCY+(MSY2/4))))then
    MMouse(MSCX-(MSX2/4), MSCY-(MSY2/4), MSCX+(MSX2/4), MSCY+(MSY2/4));

    if(FindColorsSpiralTolerance(MMCX,MMCY,MyTPA,2552,MMX1,MMY1,MMX2,MMY2,5)) then
    begin
      SortTPAFrom(MyTPA,point(MMCX,MMCY));
      MiddleTPA(MyTPA);
      TPALength:=High(myTPA);    //So the Loop doesn't need 2 Call High(); every time
      for I := 0 to TPALength do  //To Speed the Script up a couple MS
      begin
        MyPoint := MMtoMS(MyTPA[i]);
        //Will check if the point is Clickable otherwise it's a waste of time moving the
        //Mouse and Clicking on it because it won't be on the Main Screen
        if(not(InRange(MyPoint.x, MSX1, MSX2) and InRange(myPoint.y, MSY1, MSY2)))then
          Exit;
        MMouse(MyPoint.x,MyPoint.y,RandomRange(-2,2),RandomRange(-2,2));
        if(IsMoving())then
        begin
          if(WaitUptext('ake', 300+Random(200)))then
            ClickMouse2(mouse_Left);
        end else
          ClickMouse2(mouse_Left);
        if(DidRedClick())then
        begin
          Flag;
          Sleep(1000+Random(250)); //Flag End's before you get to the item
          Invount:=InvCount;   //So find the right time to wait after its done
          if(Invount>StartCount)then
          begin
            StartCount:=Invount;
            WriteLn('We got an item!');
          end else
          begin
            WriteLn('Somebody beat us to it..  :(');
            Break;
          end;
        end else
        begin
          Writeln('We Missed or Someone beat us 2 it.. :(! but we will Continue Scanning While Moving Muhaha!!! Mwahahahaaaaaaaaaa........!!!');
          Break;
        end;
      end;
    end;
  Until(Not(LoggedIN()));
end.

ooh, Looks interesting from what I understand! Ill try it out tomorrow! Thanks!