Results 1 to 5 of 5

Thread: Rimmington Miner

  1. #1
    Join Date
    Oct 2007
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Rimmington Miner

    Hi,

    I'm working on a Rimmington Miner and so far it's working pretty decent.

    I'm just in the need of a better way of finding the right rocks to mine at.
    Right now I am using DTMs of the places on the MM but since the MM isn't always the same I was wondering if you could give me a new idea on how to walk to the right spot.

    EDIT: Solved it myself: Makes angle False, then while rotating the MM it will look for the given rock and stop if it finds it.
    Last edited by Frt; 04-07-2009 at 04:52 PM. Reason: Solved myself

  2. #2
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    use a DDTM..

  3. #3
    Join Date
    Oct 2007
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by 99_ View Post
    use a DDTM..
    But the rocks at the MM changes position?

  4. #4
    Join Date
    Jan 2007
    Location
    Kansas
    Posts
    3,760
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Frt View Post
    But the rocks at the MM changes position?
    A DTM doesn't have to be in the same position every time...


  5. #5
    Join Date
    Oct 2007
    Location
    Denmark
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    So now I've tried with DDTMs but that doesn't help at all.

    My DDTM maker:
    SCAR Code:
    function MakeDDTM(Which: String): Integer;
    var
      dtmMainPoint: TDTMPointDef;
      dtmSubPoints: Array [0..3] of TDTMPointDef;
      TempTDTM: TDTM;
      i: Integer;
    begin
      case Lowercase(Which) of
        'iron':
        begin
          dtmMainPoint.x := 855;
          dtmMainPoint.y := 317;
          dtmMainPoint.Color := 801376;

          dtmSubPoints[0].x := 855;
          dtmSubPoints[0].y := 317;
          dtmSubPoints[0].Color := 801376;

          dtmSubPoints[1].x := 855;
          dtmSubPoints[1].y := 301;
          dtmSubPoints[1].Color := 3950919;

          dtmSubPoints[2].x := 849;
          dtmSubPoints[2].y := 314;
          dtmSubPoints[2].Color := 3950919;

          dtmSubPoints[3].x := 863;
          dtmSubPoints[3].y := 321;
          dtmSubPoints[3].Color := 3950919;
        end;
        'copper':
        begin
          dtmMainPoint.x := 894;
          dtmMainPoint.y := 284;
          dtmMainPoint.Color := 734551;

          dtmSubPoints[0].x := 894;
          dtmSubPoints[0].y := 284;
          dtmSubPoints[0].Color := 734551;

          dtmSubPoints[1].x := 894;
          dtmSubPoints[1].y := 275;
          dtmSubPoints[1].Color := 1327990;

          dtmSubPoints[2].x := 888;
          dtmSubPoints[2].y := 274;
          dtmSubPoints[2].Color := 1327990;

          dtmSubPoints[3].x := 885;
          dtmSubPoints[3].y := 281;
          dtmSubPoints[3].Color := 1327990;
        end;
        'tin':
        begin
          dtmMainPoint.x := 914;
          dtmMainPoint.y := 311;
          dtmMainPoint.Color := 734551;

          dtmSubPoints[0].x := 914;
          dtmSubPoints[0].y := 311;
          dtmSubPoints[0].Color := 734551;

          dtmSubPoints[1].x := 927;
          dtmSubPoints[1].y := 309;
          dtmSubPoints[1].Color := 1327990;

          dtmSubPoints[2].x := 920;
          dtmSubPoints[2].y := 313;
          dtmSubPoints[2].Color := 1327990;

          dtmSubPoints[3].x := 914;
          dtmSubPoints[3].y := 320;
          dtmSubPoints[3].Color := 3950919;
        end;
        'gold':
        begin
          dtmMainPoint.x := 878;
          dtmMainPoint.y := 345;
          dtmMainPoint.Color := 735323;

          dtmSubPoints[0].x := 878;
          dtmSubPoints[0].y := 345;
          dtmSubPoints[0].Color := 735323;

          dtmSubPoints[1].x := 885;
          dtmSubPoints[1].y := 336;
          dtmSubPoints[1].Color := 3950919;

          dtmSubPoints[2].x := 877;
          dtmSubPoints[2].y := 332;
          dtmSubPoints[2].Color := 3950919;

          dtmSubPoints[3].x := 880;
          dtmSubPoints[3].y := 335;
          dtmSubPoints[3].Color := 668242;
        end;
      end;
       
      dtmMainPoint.AreaSize := 5;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Tolerance := 10;
      for i := 0 to High(dtmSubPoints) do
      begin
        Writeln(IntToStr(i));
        dtmSubPoints[i].AreaSize := 7;
        dtmsubPoints[i].AreaShape := 0;
        dtmSubPoints[i].Tolerance := 10;
      end;
     
      TempTDTM.MainPoint := dtmMainPoint;
      TempTDTM.SubPoints := dtmSubPoints;
      Result := AddDTM(TempTDTM);
    end;

    Am I not making them correct?

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
  •