Results 1 to 3 of 3

Thread: DDTM help

  1. #1
    Join Date
    Mar 2008
    Location
    Look behind you.
    Posts
    795
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default DDTM help

    Can someone help me make a procedure using my ddtm?
    SCAR Code:
    function LumbyStairsDDTM: Integer;
    var
      StairsMP: TDTMPointDef;
      StairsSP: array of TDTMPointDef;
      StairsDDTM: TDTM;
    begin
      SetArrayLength(StairsSP, 3);

      StairsMP.Areashape := 0;
      StairsMP.Areasize := 1;
      StairsMP.Color := 8226182;
      StairsMP.Tolerance := 20;
      StairsMP.x := 625;
      StairsMP.y := 77;

      StairsSP[0].x := 616;
      StairsSP[0].y := 65;
      StairsSP[0].areasize := 1;
      StairsSP[0].areashape := 0;
      StairsSP[0].color := 65536;
      StairsSP[0].tolerance := 20;

      StairsSP[1].x := 625;
      StairsSP[1].y := 53;
      StairsSP[1].areasize := 1;
      StairsSP[1].areashape := 0;
      StairsSP[1].color := 8226182;
      StairsSP[1].tolerance := 20;

      StairsSP[2].x := 633;
      StairsSP[2].y := 52;
      StairsSP[2].areasize := 1;
      StairsSP[2].areashape := 0;
      StairsSP[2].color := 8226182;
      StairsSP[2].tolerance := 20;

      StairsDDTM.MainPoint :=  StairsMP;
      StairsDDTM.SubPoints :=  StairsSP;
      result := AddDTM(StairsDDTM);
    end;

    All i want is for the mouse to click it. I've tried.. always got a runtime error. This is my first time using ddtms.

  2. #2
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default

    SCAR Code:
    Function LumbyStairsDDTM: Integer;
    var
      StairsMP: TDTMPointDef;
      StairsSP: array of TDTMPointDef;
      StairsDDTM: TDTM;
      DDTM, X, Y : Integer;
      WhichAngle : Extended;
    begin
      SetArrayLength(StairsSP, 3);

      StairsMP.Areashape := 0;
      StairsMP.Areasize := 1;
      StairsMP.Color := 8226182;
      StairsMP.Tolerance := 20;
      StairsMP.x := 625;
      StairsMP.y := 77;

      StairsSP[0].x := 616;
      StairsSP[0].y := 65;
      StairsSP[0].areasize := 1;
      StairsSP[0].areashape := 0;
      StairsSP[0].color := 65536;
      StairsSP[0].tolerance := 20;

      StairsSP[1].x := 625;
      StairsSP[1].y := 53;
      StairsSP[1].areasize := 1;
      StairsSP[1].areashape := 0;
      StairsSP[1].color := 8226182;
      StairsSP[1].tolerance := 20;

      StairsSP[2].x := 633;
      StairsSP[2].y := 52;
      StairsSP[2].areasize := 1;
      StairsSP[2].areashape := 0;
      StairsSP[2].color := 8226182;
      StairsSP[2].tolerance := 20;

      StairsDDTM.MainPoint :=  StairsMP;
      StairsDDTM.SubPoints :=  StairsSP;
      DDTM := AddDTM(StairsDDTM);   // Changed Result To DDTM
      // I Added this
      // VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
      WriteLn('DTM Loaded');
      If FindDtmRotated(DDTM, X, Y, MMX1, MMY1, MMX2, MMY2, Radians(-35), Radians(35), 0.05,
        WhichAngle) Then
      Begin
        Mouse(X, Y, 0, 0, True);
        Wait(250 + Random(250));
        FFlag(0);
      End;
      FreeDTM(DDTM);
      //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
       
    end;

  3. #3
    Join Date
    Mar 2008
    Location
    Look behind you.
    Posts
    795
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    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
  •