Results 1 to 5 of 5

Thread: Acces Violation with DTMRotated!!!

  1. #1
    Join Date
    Mar 2007
    Location
    Ohio
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Acces Violation with DTMRotated!!!

    i keep getting this [Runtime Error] : Exception: Access violation at address 007290FF in module 'scar.exe'. Read of address 00000000 in line 73 in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/Color.scar

    it opens up color and gives my that.this is what i have
    SCAR Code:
    program Scriptidge;
    {.include SRL/SRL.scar}

    var
      LadderDTM, x, y: Integer;
     
    procedure AssembleDDTM;
    var
      LadderDDTM: TDTM;
      MPoint: TDTMPointDef;
      SPoint: Array[0..3]of TDTMPointDef;
     
    begin
      MPoint.x := 593
      MPoint.y := 88
      MPoint.areasize := 1;
      MPoint.areashape := 0;
      MPoint.Color := 5066068;
      MPoint.tolerance := 255;

      SPoint[0].x := 596;
      SPoint[0].y := 86;
      SPoint[0].areasize := 3;
      SPoint[0].areashape := 0;
      SPoint[0].Color := 15464165;
      SPoint[0].tolerance := 25;

      SPoint[1].x := 592;
      SPoint[1].y := 91;
      SPoint[1].areasize := 3;
      SPoint[1].areashape := 0;
      SPoint[1].Color := 15464165;
      SPoint[1].tolerance := 25;

      SPoint[2].x := 593;
      SPoint[2].y := 99;
      SPoint[2].areasize := 3;
      SPoint[2].areashape := 0;
      SPoint[2].Color := 15464165;
      SPoint[2].tolerance := 25;

      SPoint[3].x := 607;
      SPoint[3].y := 91;
      SPoint[3].areasize := 3;
      SPoint[3].areashape := 0;
      SPoint[3].Color := 15464165;
      SPoint[3].tolerance := 25;

      LadderDDTM.MainPoint := MPoint;
      LadderDDTM.SubPoints := SPoint;
      LadderDTM := AddDTM(LadderDDTM);
    end;
     
    begin
      SetupSRL;
      if(DTMRotated(LadderDTM, x, y, MMX1, MMY1, MMX2, MMY2))then
      Mouse(x, y + 4, 4, 2, true);
    end.

  2. #2
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    add the procedure to ur loop. -.-

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  3. #3
    Join Date
    Mar 2007
    Location
    Ohio
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  4. #4
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    program Scriptidge;
    {.include SRL/SRL.scar}
     
    var
      LadderDTM, x, y: Integer;
     
    procedure AssembleDDTM;
    var
      LadderDDTM: TDTM;
      MPoint: TDTMPointDef;
      SPoint: Array[0..3]of TDTMPointDef;
     
    begin
      MPoint.x := 593
      MPoint.y := 88
      MPoint.areasize := 1;
      MPoint.areashape := 0;
      MPoint.Color := 5066068;
      MPoint.tolerance := 255;
     
      SPoint[0].x := 596;
      SPoint[0].y := 86;
      SPoint[0].areasize := 3;
      SPoint[0].areashape := 0;
      SPoint[0].Color := 15464165;
      SPoint[0].tolerance := 25;
     
      SPoint[1].x := 592;
      SPoint[1].y := 91;
      SPoint[1].areasize := 3;
      SPoint[1].areashape := 0;
      SPoint[1].Color := 15464165;
      SPoint[1].tolerance := 25;
     
      SPoint[2].x := 593;
      SPoint[2].y := 99;
      SPoint[2].areasize := 3;
      SPoint[2].areashape := 0;
      SPoint[2].Color := 15464165;
      SPoint[2].tolerance := 25;
     
      SPoint[3].x := 607;
      SPoint[3].y := 91;
      SPoint[3].areasize := 3;
      SPoint[3].areashape := 0;
      SPoint[3].Color := 15464165;
      SPoint[3].tolerance := 25;
     
      LadderDDTM.MainPoint := MPoint;
      LadderDDTM.SubPoints := SPoint;
      LadderDTM := AddDTM(LadderDDTM);
    end;
     
    begin
      SetupSRL;
      AssembleDDTM;
      if(DTMRotated(LadderDTM, x, y, MMX1, MMY1, MMX2, MMY2))then
      Mouse(x, y + 4, 4, 2, true);
    end.

    try that

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  5. #5
    Join Date
    Mar 2007
    Location
    Ohio
    Posts
    138
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh thanks wow i make lots of little stupid mistakes like that sometimes thanks for all the trouble

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. DTMRotated
    By Jackrawl in forum OSR Help
    Replies: 4
    Last Post: 12-20-2007, 11:35 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •