Results 1 to 3 of 3

Thread: Picking up items

  1. #1
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    423 Post(s)

    Default Picking up items

    Hey guys,

    Having some issues here
    I tried using DTM's to pickup items on the floor only to realise that depending on the camera angle the item changes shape etc...
    I don't know if Autocolour is a wise choice either.

    Any suggestions?

    Snippet into stuff I've tried:

    Code:
    rocedure FindNest_old;
    var
      X, Y: Integer;
    Begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      If FindObjCustom(x, y, ['Ne', 'st'], [3290938,3883332], 5) Then
      begin
        Mouse( x, y, 2, 2, True);
        Writeln('Found a nest... Attempting to pickup');
        MakeCompass(10 + random(50));
      end;
    End;
    
    function ItemFind_Nest : boolean;
    var
      X, Y: Integer;
    Begin
       if not LoggedIn then
        Exit;
      FindNormalRandoms;
      if (FindColorTolerance(x, y, NestColour, Msx1, Msy1, Msx2, Msy2, 10))
      or (FindColorTolerance(x, y, NestColour1, Msx1, Msy1, Msx2, Msy2, 10)) then
      begin
        MMouse(x, y, 0, 0);
        if (IsUpText('ake')) then
        begin
          Mouse(x, y, 2, 2, false);
          Flag;
        end;
      end;
    end;
    
    
    Procedure X_FindNest;
    var
      X, Y, FindNest: Integer;
    Begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      FindNest := DTMFromString('m6wAAAHic42ZgYOACYlEGCACxBaF8ISgfBFiAWBKIuaFsbqg6RiDmg7Jh6kB8diC2sdJgcLTXYfD1cWawtzMDs22sTSAYKOfibA3GIDYpgJEEjAQAXz4Ing==')
    
      If FindDTM(FindNest, X, Y, MSX1, MSY1, MSX2, MSY2) Then
      Begin
        Writeln('Found a nest... Attempting to pickup');
        MMouse (x, y, 5, 5);
        MakeCompass(0 + random(50));
    
        If IsUpText('nes') Then
          Mouse(x, y, 2, 2, True);
      End;
    
      FreeDTM(FindNest);
    End;
    
    Procedure FindEmptyNest; //Probably not needed. It's a procedure incase the script drops a nest randomly?
    var
      X, Y, EmptyNest: Integer;
    Begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      EmptyNest := DTMFromString('mlwAAAHicY2dgYMhmZGDIAuI4IE4B4nwgLgfiIiCew8TAsByIFwDxDCCeDsTzoGKeHhYMjo4WDN7ejkC2PYObmxmDjY0Gg56eBgM+wIgHQwEA+fEMeg==')
    
      If FindDTM(EmptyNest, X, Y, MSX1, MSY1, MSX2, MSY2) Then
      Begin
        Writeln('Found a nest... Attempting to pickup');
        MMouse (x, y, 5, 5);
        MakeCompass(0 + random(50));
    
        If IsUpText('nes') Then
          Mouse(x, y, 0, 0, True);
      End;
    
      FreeDTM(EmptyNest);
    End;
    
    
    Procedure X_CrushNest;
    var
      X, Y, CrushNest: Integer;
    Begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      CrushNest := DTMFromString('mggAAAHicY2NgYOADYiEgFgNiGSDmZYAATijNCGULQWkTAw0gyYSBuRiwA0YcGAIAboABOg==')
    
      If FindDTM(CrushNest, X, Y, MIX1, MIY1, MIX2, MIY2) Then
      Begin
        Writeln('Found a nest inside Inventory, Attempting to crush');
        MMouse (x, y, 5, 5);
    
        If IsUpText('cru') Then
          Mouse(x, y, 0, 0, True);
      End;
    
      FreeDTM(CrushNest);
    End;

  2. #2
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    You could use ACA to get the best color for the 100% drop(such as bones) then right click and search a text array for said drop, that's what I did for the only time I ever picked up drops.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  3. #3
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    423 Post(s)

    Default

    Quote Originally Posted by PatDuffy View Post
    You could use ACA to get the best color for the 100% drop(such as bones) then right click and search a text array for said drop, that's what I did for the only time I ever picked up drops.
    can't believe I didn't think of it. RISK said same thing at same time :P will try it thanks

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
  •