Results 1 to 1 of 1

Thread: Laake's DeadDropper

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

    Default Laake's DeadDropper

    Lol, i made this for a friend cause he wanted. Then i decided to make a simple drop version! :P

    This is the only version! :P

    Start at trees dead trees! :O

    Simba Code:
    program WoodCutter;

    {$DEFINE SMART}
    {$i SRL/srl.simba}
    {$i sps/sps.simba}
    {$i SRL/SRL/misc/paintsmart.simba}






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

      With Players[0] Do
      Begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Nick        := ''; //Player nickname - 3-4 letters of Player username.
        Active      := True;
      End;

    End;
    procedure SetupChar;

    begin

    SetupSRL();
    SetAngle(0);
    ClickNorth(0);
    end;
    procedure Startup;
    begin
      Smart_Server := 69;
      Smart_Members:= true;
      Smart_Signed := true;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      MouseSpeed := 500;
      wait(100+random(100));
    end;


    Function FindObjOnScreen(Color,Tolerance:Integer;MC2:Variant): Boolean;
      var
      X,Y:Integer;
        CTS,I,T: Integer;
        TPA: TPointArray;
        begin
      repeat
        Result := False;
        CTS := GetColorToleranceSpeed;

        ColorToleranceSpeed(2);

        SetColorSpeed2Modifiers(0.50,0.65);

         FindColorsSpiralTolerance(MSCX, MSCY, TPA,(Color), MSX1, MSY1, MSX2, MSY2, Tolerance);
        ColorToleranceSpeed(CTS);

        if (Length(TPA) < 1) then
          Exit;

        MMouse(TPA[0].X, TPA[0].Y, 0, 0);
        if WaitUpText('Chop', 500) then
        begin
          GetMousePos(X, Y);
          ClickMouse2(MC2);
          Result := True;
          Exit;
        end;
        Until(Result)
        end;

    begin
      Startup;
      SetupChar;
      Begin
      Repeat
      Repeat
      FindObjOnScreen(2106665,2,True);
      Wait(1500 + Random(1000));
      Until InvFull;
      DropAll;
      Until (Not LoggedIn);
      end;
    end.

    Dont hate! :P

    This is for begining woodcutters!

    Only bug is it will sometimes go for trees behind a fence! :P

    You may take this edit it in anyway you want and release, if its too close to just a simple c1d1 then give credit! :P


    Tada!
    Last edited by laakerules; 02-11-2012 at 05:00 PM.

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
  •