SRL Archive - OSR Help

Code Shortening Help

YoHoJo

2011-12-13 03:51:44

function SetDDTM(WhichBar:String): Integer;
var
  OrePrimaryMainPoint,OreSecondaryMainPoint: TDTMPointDef;
  OrePrimarySubPoints,OreSecondarySubPoints : Array [0..5] of TDTMPointDef;
  OrePrimary, OreSecondary: TDTM;
begin
  Case WhichBar Of
    'bronze':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('copper'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('copper');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);

      OreSecondaryMainPoint.x := 167;         OreSecondaryMainPoint.y := 386;
      OreSecondaryMainPoint.AreaSize := 0;    OreSecondaryMainPoint.AreaShape := 0;
      OreSecondaryMainPoint.Color := AuoColorOre('tin'); OreSecondaryMainPoint.Tolerance := 0;

      OreSecondarySubPoints[0].x := 167;        OreSecondarySubPoints[0].y := 386;
      OreSecondarySubPoints[0].AreaSize := 0;   OreSecondarySubPoints[0].AreaShape := 0;
      OreSecondarySubPoints[0].Color := 131072;OreSecondarySubPoints[0].Tolerance := 0;

      OreSecondarySubPoints[1].x := 182;        OreSecondarySubPoints[1].y := 381;
      OreSecondarySubPoints[1].AreaSize := 0;   OreSecondarySubPoints[1].AreaShape := 0;
      OreSecondarySubPoints[1].Color := 131072; OreSecondarySubPoints[1].Tolerance := 0;

      OreSecondarySubPoints[2].x := 172;        OreSecondarySubPoints[2].y := 395;
      OreSecondarySubPoints[2].AreaSize := 0;   OreSecondarySubPoints[2].AreaShape := 0;
      OreSecondarySubPoints[2].Color := 131072; OreSecondarySubPoints[2].Tolerance := 0;

      OreSecondarySubPoints[3].x := 163;        OreSecondarySubPoints[3].y := 400;
      OreSecondarySubPoints[3].AreaSize := 0;   OreSecondarySubPoints[3].AreaShape := 0;
      OreSecondarySubPoints[3].Color := 131072; OreSecondarySubPoints[3].Tolerance := 0;

      OreSecondarySubPoints[4].x := 150;        OreSecondarySubPoints[4].y := 392;
      OreSecondarySubPoints[4].AreaSize := 0;   OreSecondarySubPoints[4].AreaShape := 0;
      OreSecondarySubPoints[4].Color := 131072; OreSecondarySubPoints[4].Tolerance := 0;

      OreSecondarySubPoints[5].x := 152;        OreSecondarySubPoints[5].y := 382;
      OreSecondarySubPoints[5].AreaSize := 0;   OreSecondarySubPoints[5].AreaShape := 0;
      OreSecondarySubPoints[5].Color := 131072; OreSecondarySubPoints[5].Tolerance := 0;

      OreSecondary.MainPoint := OreSecondaryMainPoint;
      OreSecondary.SubPoints := OreSecondarySubPoints;
      Result := AddDTM(OreSecondary);
    End;

    'iron':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('iron'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('iron');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);
    End;

    'silver':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('silver'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('silver');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);
    End;

    'steel':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('steel'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('steel');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);

      OreSecondaryMainPoint.x := 167;         OreSecondaryMainPoint.y := 386;
      OreSecondaryMainPoint.AreaSize := 0;    OreSecondaryMainPoint.AreaShape := 0;
      OreSecondaryMainPoint.Color := AuoColorOre('coal'); OreSecondaryMainPoint.Tolerance := 0;

      OreSecondarySubPoints[0].x := 167;        OreSecondarySubPoints[0].y := 386;
      OreSecondarySubPoints[0].AreaSize := 0;   OreSecondarySubPoints[0].AreaShape := 0;
      OreSecondarySubPoints[0].Color := AuoColorOre('coal');OreSecondarySubPoints[0].Tolerance := 0;

      OreSecondarySubPoints[1].x := 182;        OreSecondarySubPoints[1].y := 381;
      OreSecondarySubPoints[1].AreaSize := 0;   OreSecondarySubPoints[1].AreaShape := 0;
      OreSecondarySubPoints[1].Color := 131072; OreSecondarySubPoints[1].Tolerance := 0;

      OreSecondarySubPoints[2].x := 172;        OreSecondarySubPoints[2].y := 395;
      OreSecondarySubPoints[2].AreaSize := 0;   OreSecondarySubPoints[2].AreaShape := 0;
      OreSecondarySubPoints[2].Color := 131072; OreSecondarySubPoints[2].Tolerance := 0;

      OreSecondarySubPoints[3].x := 163;        OreSecondarySubPoints[3].y := 400;
      OreSecondarySubPoints[3].AreaSize := 0;   OreSecondarySubPoints[3].AreaShape := 0;
      OreSecondarySubPoints[3].Color := 131072; OreSecondarySubPoints[3].Tolerance := 0;

      OreSecondarySubPoints[4].x := 150;        OreSecondarySubPoints[4].y := 392;
      OreSecondarySubPoints[4].AreaSize := 0;   OreSecondarySubPoints[4].AreaShape := 0;
      OreSecondarySubPoints[4].Color := 131072; OreSecondarySubPoints[4].Tolerance := 0;

      OreSecondarySubPoints[5].x := 152;        OreSecondarySubPoints[5].y := 382;
      OreSecondarySubPoints[5].AreaSize := 0;   OreSecondarySubPoints[5].AreaShape := 0;
      OreSecondarySubPoints[5].Color := 131072; OreSecondarySubPoints[5].Tolerance := 0;

      OreSecondary.MainPoint := OreSecondaryMainPoint;
      OreSecondary.SubPoints := OreSecondarySubPoints;
      Result := AddDTM(OreSecondary);
    End;

    'gold':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('gold'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('gold');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);
    End;

    'mithril':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('mithril'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('mithril');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);

      OreSecondaryMainPoint.x := 167;         OreSecondaryMainPoint.y := 386;
      OreSecondaryMainPoint.AreaSize := 0;    OreSecondaryMainPoint.AreaShape := 0;
      OreSecondaryMainPoint.Color := AuoColorOre('coal'); OreSecondaryMainPoint.Tolerance := 0;

      OreSecondarySubPoints[0].x := 167;        OreSecondarySubPoints[0].y := 386;
      OreSecondarySubPoints[0].AreaSize := 0;   OreSecondarySubPoints[0].AreaShape := 0;
      OreSecondarySubPoints[0].Color := AuoColorOre('coal');OreSecondarySubPoints[0].Tolerance := 0;

      OreSecondarySubPoints[1].x := 182;        OreSecondarySubPoints[1].y := 381;
      OreSecondarySubPoints[1].AreaSize := 0;   OreSecondarySubPoints[1].AreaShape := 0;
      OreSecondarySubPoints[1].Color := 131072; OreSecondarySubPoints[1].Tolerance := 0;

      OreSecondarySubPoints[2].x := 172;        OreSecondarySubPoints[2].y := 395;
      OreSecondarySubPoints[2].AreaSize := 0;   OreSecondarySubPoints[2].AreaShape := 0;
      OreSecondarySubPoints[2].Color := 131072; OreSecondarySubPoints[2].Tolerance := 0;

      OreSecondarySubPoints[3].x := 163;        OreSecondarySubPoints[3].y := 400;
      OreSecondarySubPoints[3].AreaSize := 0;   OreSecondarySubPoints[3].AreaShape := 0;
      OreSecondarySubPoints[3].Color := 131072; OreSecondarySubPoints[3].Tolerance := 0;

      OreSecondarySubPoints[4].x := 150;        OreSecondarySubPoints[4].y := 392;
      OreSecondarySubPoints[4].AreaSize := 0;   OreSecondarySubPoints[4].AreaShape := 0;
      OreSecondarySubPoints[4].Color := 131072; OreSecondarySubPoints[4].Tolerance := 0;

      OreSecondarySubPoints[5].x := 152;        OreSecondarySubPoints[5].y := 382;
      OreSecondarySubPoints[5].AreaSize := 0;   OreSecondarySubPoints[5].AreaShape := 0;
      OreSecondarySubPoints[5].Color := 131072; OreSecondarySubPoints[5].Tolerance := 0;

      OreSecondary.MainPoint := OreSecondaryMainPoint;
      OreSecondary.SubPoints := OreSecondarySubPoints;
      Result := AddDTM(OreSecondary);
    End;

    'adamantite':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('adamantite'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('adamantite');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);

      OreSecondaryMainPoint.x := 167;         OreSecondaryMainPoint.y := 386;
      OreSecondaryMainPoint.AreaSize := 0;    OreSecondaryMainPoint.AreaShape := 0;
      OreSecondaryMainPoint.Color := AuoColorOre('coal'); OreSecondaryMainPoint.Tolerance := 0;

      OreSecondarySubPoints[0].x := 167;        OreSecondarySubPoints[0].y := 386;
      OreSecondarySubPoints[0].AreaSize := 0;   OreSecondarySubPoints[0].AreaShape := 0;
      OreSecondarySubPoints[0].Color := AuoColorOre('coal');OreSecondarySubPoints[0].Tolerance := 0;

      OreSecondarySubPoints[1].x := 182;        OreSecondarySubPoints[1].y := 381;
      OreSecondarySubPoints[1].AreaSize := 0;   OreSecondarySubPoints[1].AreaShape := 0;
      OreSecondarySubPoints[1].Color := 131072; OreSecondarySubPoints[1].Tolerance := 0;

      OreSecondarySubPoints[2].x := 172;        OreSecondarySubPoints[2].y := 395;
      OreSecondarySubPoints[2].AreaSize := 0;   OreSecondarySubPoints[2].AreaShape := 0;
      OreSecondarySubPoints[2].Color := 131072; OreSecondarySubPoints[2].Tolerance := 0;

      OreSecondarySubPoints[3].x := 163;        OreSecondarySubPoints[3].y := 400;
      OreSecondarySubPoints[3].AreaSize := 0;   OreSecondarySubPoints[3].AreaShape := 0;
      OreSecondarySubPoints[3].Color := 131072; OreSecondarySubPoints[3].Tolerance := 0;

      OreSecondarySubPoints[4].x := 150;        OreSecondarySubPoints[4].y := 392;
      OreSecondarySubPoints[4].AreaSize := 0;   OreSecondarySubPoints[4].AreaShape := 0;
      OreSecondarySubPoints[4].Color := 131072; OreSecondarySubPoints[4].Tolerance := 0;

      OreSecondarySubPoints[5].x := 152;        OreSecondarySubPoints[5].y := 382;
      OreSecondarySubPoints[5].AreaSize := 0;   OreSecondarySubPoints[5].AreaShape := 0;
      OreSecondarySubPoints[5].Color := 131072; OreSecondarySubPoints[5].Tolerance := 0;

      OreSecondary.MainPoint := OreSecondaryMainPoint;
      OreSecondary.SubPoints := OreSecondarySubPoints;
      Result := AddDTM(OreSecondary);
    End;

    'runeite':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('runeite'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('runeite');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);

      OreSecondaryMainPoint.x := 167;         OreSecondaryMainPoint.y := 386;
      OreSecondaryMainPoint.AreaSize := 0;    OreSecondaryMainPoint.AreaShape := 0;
      OreSecondaryMainPoint.Color := AuoColorOre('coal'); OreSecondaryMainPoint.Tolerance := 0;

      OreSecondarySubPoints[0].x := 167;        OreSecondarySubPoints[0].y := 386;
      OreSecondarySubPoints[0].AreaSize := 0;   OreSecondarySubPoints[0].AreaShape := 0;
      OreSecondarySubPoints[0].Color := AuoColorOre('coal');OreSecondarySubPoints[0].Tolerance := 0;

      OreSecondarySubPoints[1].x := 182;        OreSecondarySubPoints[1].y := 381;
      OreSecondarySubPoints[1].AreaSize := 0;   OreSecondarySubPoints[1].AreaShape := 0;
      OreSecondarySubPoints[1].Color := 131072; OreSecondarySubPoints[1].Tolerance := 0;

      OreSecondarySubPoints[2].x := 172;        OreSecondarySubPoints[2].y := 395;
      OreSecondarySubPoints[2].AreaSize := 0;   OreSecondarySubPoints[2].AreaShape := 0;
      OreSecondarySubPoints[2].Color := 131072; OreSecondarySubPoints[2].Tolerance := 0;

      OreSecondarySubPoints[3].x := 163;        OreSecondarySubPoints[3].y := 400;
      OreSecondarySubPoints[3].AreaSize := 0;   OreSecondarySubPoints[3].AreaShape := 0;
      OreSecondarySubPoints[3].Color := 131072; OreSecondarySubPoints[3].Tolerance := 0;

      OreSecondarySubPoints[4].x := 150;        OreSecondarySubPoints[4].y := 392;
      OreSecondarySubPoints[4].AreaSize := 0;   OreSecondarySubPoints[4].AreaShape := 0;
      OreSecondarySubPoints[4].Color := 131072; OreSecondarySubPoints[4].Tolerance := 0;

      OreSecondarySubPoints[5].x := 152;        OreSecondarySubPoints[5].y := 382;
      OreSecondarySubPoints[5].AreaSize := 0;   OreSecondarySubPoints[5].AreaShape := 0;
      OreSecondarySubPoints[5].Color := 131072; OreSecondarySubPoints[5].Tolerance := 0;

      OreSecondary.MainPoint := OreSecondaryMainPoint;
      OreSecondary.SubPoints := OreSecondarySubPoints;
      Result := AddDTM(OreSecondary);
    End;

  End;
End;

All of the MainPoints for each DTM (for both the Primary and Secondary ore) are exactly the same, except for OrePrimaryMainPoint.Color.

All of the subpoints are exactly the same for every single DTM.

SHORTEN!

i luffs yeww

2011-12-13 04:00:11


for i := 0 to 5 do
  with array[i] do
  begin
    value := whatever;
  end;

like that?

Frement

2011-12-13 04:02:22

function SetDDTM(WhichBar:String): Integer;
var
  OrePrimaryMainPoint,OreSecondaryMainPoint: TDTMPointDef;
  OrePrimarySubPoints,OreSecondarySubPoints : Array [0..5] of TDTMPointDef;
  OrePrimary, OreSecondary: TDTM;
begin
  Case WhichBar Of
    'bronze':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('copper'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('copper');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);

      OreSecondaryMainPoint.x := 167;         OreSecondaryMainPoint.y := 386;
      OreSecondaryMainPoint.AreaSize := 0;    OreSecondaryMainPoint.AreaShape := 0;
      OreSecondaryMainPoint.Color := AuoColorOre('tin'); OreSecondaryMainPoint.Tolerance := 0;

      OreSecondarySubPoints[0].x := 167;        OreSecondarySubPoints[0].y := 386;
      OreSecondarySubPoints[0].AreaSize := 0;   OreSecondarySubPoints[0].AreaShape := 0;
      OreSecondarySubPoints[0].Color := 131072;OreSecondarySubPoints[0].Tolerance := 0;

      OreSecondarySubPoints[1].x := 182;        OreSecondarySubPoints[1].y := 381;
      OreSecondarySubPoints[1].AreaSize := 0;   OreSecondarySubPoints[1].AreaShape := 0;
      OreSecondarySubPoints[1].Color := 131072; OreSecondarySubPoints[1].Tolerance := 0;

      OreSecondarySubPoints[2].x := 172;        OreSecondarySubPoints[2].y := 395;
      OreSecondarySubPoints[2].AreaSize := 0;   OreSecondarySubPoints[2].AreaShape := 0;
      OreSecondarySubPoints[2].Color := 131072; OreSecondarySubPoints[2].Tolerance := 0;

      OreSecondarySubPoints[3].x := 163;        OreSecondarySubPoints[3].y := 400;
      OreSecondarySubPoints[3].AreaSize := 0;   OreSecondarySubPoints[3].AreaShape := 0;
      OreSecondarySubPoints[3].Color := 131072; OreSecondarySubPoints[3].Tolerance := 0;

      OreSecondarySubPoints[4].x := 150;        OreSecondarySubPoints[4].y := 392;
      OreSecondarySubPoints[4].AreaSize := 0;   OreSecondarySubPoints[4].AreaShape := 0;
      OreSecondarySubPoints[4].Color := 131072; OreSecondarySubPoints[4].Tolerance := 0;

      OreSecondarySubPoints[5].x := 152;        OreSecondarySubPoints[5].y := 382;
      OreSecondarySubPoints[5].AreaSize := 0;   OreSecondarySubPoints[5].AreaShape := 0;
      OreSecondarySubPoints[5].Color := 131072; OreSecondarySubPoints[5].Tolerance := 0;

      OreSecondary.MainPoint := OreSecondaryMainPoint;
      OreSecondary.SubPoints := OreSecondarySubPoints;
      Result := AddDTM(OreSecondary);
    End;

    'iron':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('iron'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('iron');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);
    End;

    'silver':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('silver'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('silver');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);
    End;

    'steel':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('steel'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('steel');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);
    End;

    'gold':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('gold'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('gold');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);
    End;

    'mithril':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('mithril'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('mithril');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);
    End;

    'adamantite':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('adamantite'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('adamantite');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);
    End;

    'runeite':
    Begin
      OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
      OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
      OrePrimaryMainPoint.Color := AuoColorOre('runeite'); OrePrimaryMainPoint.Tolerance := 0;

      OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
      OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
      OrePrimarySubPoints[0].Color := AuoColorOre('runeite');OrePrimarySubPoints[0].Tolerance := 0;

      OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
      OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
      OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

      OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
      OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
      OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

      OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
      OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
      OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

      OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
      OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
      OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

      OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
      OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
      OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

      OrePrimary.MainPoint := OrePrimaryMainPoint;
      OrePrimary.SubPoints := OrePrimarySubPoints;
      Result := AddDTM(OrePrimary);
    End;

  if not (WhichBar = 'bronze') and not (WhichBar = 'silver') and not (WhichBar = 'gold') and not (WhichBar = 'iron') then begin
	  OreSecondaryMainPoint.x := 167;         OreSecondaryMainPoint.y := 386;
      OreSecondaryMainPoint.AreaSize := 0;    OreSecondaryMainPoint.AreaShape := 0;
      OreSecondaryMainPoint.Color := AuoColorOre('coal'); OreSecondaryMainPoint.Tolerance := 0;

      OreSecondarySubPoints[0].x := 167;        OreSecondarySubPoints[0].y := 386;
      OreSecondarySubPoints[0].AreaSize := 0;   OreSecondarySubPoints[0].AreaShape := 0;
      OreSecondarySubPoints[0].Color := AuoColorOre('coal');OreSecondarySubPoints[0].Tolerance := 0;

      OreSecondarySubPoints[1].x := 182;        OreSecondarySubPoints[1].y := 381;
      OreSecondarySubPoints[1].AreaSize := 0;   OreSecondarySubPoints[1].AreaShape := 0;
      OreSecondarySubPoints[1].Color := 131072; OreSecondarySubPoints[1].Tolerance := 0;

      OreSecondarySubPoints[2].x := 172;        OreSecondarySubPoints[2].y := 395;
      OreSecondarySubPoints[2].AreaSize := 0;   OreSecondarySubPoints[2].AreaShape := 0;
      OreSecondarySubPoints[2].Color := 131072; OreSecondarySubPoints[2].Tolerance := 0;

      OreSecondarySubPoints[3].x := 163;        OreSecondarySubPoints[3].y := 400;
      OreSecondarySubPoints[3].AreaSize := 0;   OreSecondarySubPoints[3].AreaShape := 0;
      OreSecondarySubPoints[3].Color := 131072; OreSecondarySubPoints[3].Tolerance := 0;

      OreSecondarySubPoints[4].x := 150;        OreSecondarySubPoints[4].y := 392;
      OreSecondarySubPoints[4].AreaSize := 0;   OreSecondarySubPoints[4].AreaShape := 0;
      OreSecondarySubPoints[4].Color := 131072; OreSecondarySubPoints[4].Tolerance := 0;

      OreSecondarySubPoints[5].x := 152;        OreSecondarySubPoints[5].y := 382;
      OreSecondarySubPoints[5].AreaSize := 0;   OreSecondarySubPoints[5].AreaShape := 0;
      OreSecondarySubPoints[5].Color := 131072; OreSecondarySubPoints[5].Tolerance := 0;

      OreSecondary.MainPoint := OreSecondaryMainPoint;
      OreSecondary.SubPoints := OreSecondarySubPoints;
      Result := AddDTM(OreSecondary);
  end;
	
  End;
End;

YoHoJo

2011-12-13 04:36:54

Thanks Frement!
Can get even shorter than that though, anyone else care to take it further?

Remember: All of the subpoints for ever ore are the same!
And the only difference for the mainpoints is the color!

I can see it getting much shorter still!

radiclerobby

2011-12-13 04:53:50

no clue if it will work how you want it to, just off what i looked at i came up with this, just call the 2 differnt ore types in the procedure like ('tin', 'copper'); i think this is what you were looking for not sure though. 


function SetDDTM(ore1, ore2:String): Integer;
var
  OrePrimaryMainPoint,OreSecondaryMainPoint: TDTMPointDef;
  OrePrimarySubPoints,OreSecondarySubPoints : Array [0..5] of TDTMPointDef;
  OrePrimary, OreSecondary: TDTM;
Begin
    OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
    OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
    OrePrimaryMainPoint.Color := AuoColorOre('ore1'); OrePrimaryMainPoint.Tolerance := 0;

    OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
    OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
    OrePrimarySubPoints[0].Color := AuoColorOre('ore1');OrePrimarySubPoints[0].Tolerance := 0;

    OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
    OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
    OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

    OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
    OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
    OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

    OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
    OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
    OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

    OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
    OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
    OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

    OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
    OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
    OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

    OrePrimary.MainPoint := OrePrimaryMainPoint;
    OrePrimary.SubPoints := OrePrimarySubPoints;
    Result := AddDTM(OrePrimary);

    OreSecondaryMainPoint.x := 167;         OreSecondaryMainPoint.y := 386;
    OreSecondaryMainPoint.AreaSize := 0;    OreSecondaryMainPoint.AreaShape := 0;
    OreSecondaryMainPoint.Color := AuoColorOre('ore2'); OreSecondaryMainPoint.Tolerance := 0;

    OreSecondarySubPoints[0].x := 167;        OreSecondarySubPoints[0].y := 386;
    OreSecondarySubPoints[0].AreaSize := 0;   OreSecondarySubPoints[0].AreaShape := 0;
    OreSecondarySubPoints[0].Color := AuoColorOre('ore2');OreSecondarySubPoints[0].Tolerance := 0;

    OreSecondarySubPoints[1].x := 182;        OreSecondarySubPoints[1].y := 381;
    OreSecondarySubPoints[1].AreaSize := 0;   OreSecondarySubPoints[1].AreaShape := 0;
    OreSecondarySubPoints[1].Color := 131072; OreSecondarySubPoints[1].Tolerance := 0;

    OreSecondarySubPoints[2].x := 172;        OreSecondarySubPoints[2].y := 395;
    OreSecondarySubPoints[2].AreaSize := 0;   OreSecondarySubPoints[2].AreaShape := 0;
    OreSecondarySubPoints[2].Color := 131072; OreSecondarySubPoints[2].Tolerance := 0;

    OreSecondarySubPoints[3].x := 163;        OreSecondarySubPoints[3].y := 400;
    OreSecondarySubPoints[3].AreaSize := 0;   OreSecondarySubPoints[3].AreaShape := 0;
    OreSecondarySubPoints[3].Color := 131072; OreSecondarySubPoints[3].Tolerance := 0;

    OreSecondarySubPoints[4].x := 150;        OreSecondarySubPoints[4].y := 392;
    OreSecondarySubPoints[4].AreaSize := 0;   OreSecondarySubPoints[4].AreaShape := 0;
    OreSecondarySubPoints[4].Color := 131072; OreSecondarySubPoints[4].Tolerance := 0;

    OreSecondarySubPoints[5].x := 152;        OreSecondarySubPoints[5].y := 382;
    OreSecondarySubPoints[5].AreaSize := 0;   OreSecondarySubPoints[5].AreaShape := 0;
    OreSecondarySubPoints[5].Color := 131072; OreSecondarySubPoints[5].Tolerance := 0;

    OreSecondary.MainPoint := OreSecondaryMainPoint;
    OreSecondary.SubPoints := OreSecondarySubPoints;
    Result := AddDTM(OreSecondary);
End;

BraK

2011-12-13 06:07:45

function SetDDTM(WhichBar:String): Integer;
var
  OrePrimaryMainPoint,OreSecondaryMainPoint: TDTMPointDef;
  OrePrimarySubPoints,OreSecondarySubPoints : Array [0..5] of TDTMPointDef;
  OrePrimary, OreSecondary: TDTM;
begin
  OrePrimaryMainPoint.x := 167;         OrePrimaryMainPoint.y := 386;
  OrePrimaryMainPoint.AreaSize := 0;    OrePrimaryMainPoint.AreaShape := 0;
  OrePrimaryMainPoint.Tolerance := 0;

  OrePrimarySubPoints[0].x := 167;        OrePrimarySubPoints[0].y := 386;
  OrePrimarySubPoints[0].AreaSize := 0;   OrePrimarySubPoints[0].AreaShape := 0;
  OrePrimarySubPoints[0].Tolerance := 0;

  OrePrimarySubPoints[1].x := 182;        OrePrimarySubPoints[1].y := 381;
  OrePrimarySubPoints[1].AreaSize := 0;   OrePrimarySubPoints[1].AreaShape := 0;
  OrePrimarySubPoints[1].Color := 131072; OrePrimarySubPoints[1].Tolerance := 0;

  OrePrimarySubPoints[2].x := 172;        OrePrimarySubPoints[2].y := 395;
  OrePrimarySubPoints[2].AreaSize := 0;   OrePrimarySubPoints[2].AreaShape := 0;
  OrePrimarySubPoints[2].Color := 131072; OrePrimarySubPoints[2].Tolerance := 0;

  OrePrimarySubPoints[3].x := 163;        OrePrimarySubPoints[3].y := 400;
  OrePrimarySubPoints[3].AreaSize := 0;   OrePrimarySubPoints[3].AreaShape := 0;
  OrePrimarySubPoints[3].Color := 131072; OrePrimarySubPoints[3].Tolerance := 0;

  OrePrimarySubPoints[4].x := 150;        OrePrimarySubPoints[4].y := 392;
  OrePrimarySubPoints[4].AreaSize := 0;   OrePrimarySubPoints[4].AreaShape := 0;
  OrePrimarySubPoints[4].Color := 131072; OrePrimarySubPoints[4].Tolerance := 0;

  OrePrimarySubPoints[5].x := 152;        OrePrimarySubPoints[5].y := 382;
  OrePrimarySubPoints[5].AreaSize := 0;   OrePrimarySubPoints[5].AreaShape := 0;
  OrePrimarySubPoints[5].Color := 131072; OrePrimarySubPoints[5].Tolerance := 0;

  Case WhichBar Of
    'bronze':
    Begin
      OrePrimaryMainPoint.Color := AuoColorOre('copper');
      OrePrimarySubPoints[0].Color := AuoColorOre('copper');
      OreSecondaryMainPoint.Color := AuoColorOre('tin');
      OreSecondarySubPoints[0].Color := 131072;
    end;

    'iron':
    Begin
      OrePrimaryMainPoint.Color := AuoColorOre('iron');
      OrePrimarySubPoints[0].Color := AuoColorOre('iron');
    End;

    'silver':
    Begin
      OrePrimaryMainPoint.Color := AuoColorOre('silver');
      OrePrimarySubPoints[0].Color := AuoColorOre('silver');
    End;

    'steel':
    Begin
      OrePrimaryMainPoint.Color := AuoColorOre('steel');
      OrePrimarySubPoints[0].Color := AuoColorOre('steel');
    end;

    'gold':
    Begin
      OrePrimaryMainPoint.Color := AuoColorOre('gold');
      OrePrimarySubPoints[0].Color := AuoColorOre('gold');
    end;

    'mithril':
    Begin
      OrePrimaryMainPoint.Color := AuoColorOre('mithril');
      OrePrimarySubPoints[0].Color := AuoColorOre('mithril');
    End;

    'adamantite':
    Begin
      OrePrimaryMainPoint.Color := AuoColorOre('adamantite');
      OrePrimarySubPoints[0].Color := AuoColorOre('adamantite');
    End;

    'runeite':
    Begin
      OrePrimaryMainPoint.Color := AuoColorOre('runeite');
      OrePrimarySubPoints[0].Color := AuoColorOre('runeite');
    end;
  end;
  OrePrimary.MainPoint := OrePrimaryMainPoint;
  OrePrimary.SubPoints := OrePrimarySubPoints;
  Result := AddDTM(OrePrimary);

  if not (WhichBar = 'bronze') and not (WhichBar = 'silver') and not (WhichBar = 'gold') and not (WhichBar = 'iron') then
  begin
    OreSecondaryMainPoint.Color := AuoColorOre('coal');
    OreSecondarySubPoints[0].Color := AuoColorOre('coal');
  end;
	OreSecondaryMainPoint.x := 167;         OreSecondaryMainPoint.y := 386;
  OreSecondaryMainPoint.AreaSize := 0;    OreSecondaryMainPoint.AreaShape := 0;
  OreSecondaryMainPoint.Tolerance := 0;

  OreSecondarySubPoints[0].x := 167;        OreSecondarySubPoints[0].y := 386;
  OreSecondarySubPoints[0].AreaSize := 0;   OreSecondarySubPoints[0].AreaShape := 0;
  OreSecondarySubPoints[0].Tolerance := 0;

  OreSecondarySubPoints[1].x := 182;        OreSecondarySubPoints[1].y := 381;
  OreSecondarySubPoints[1].AreaSize := 0;   OreSecondarySubPoints[1].AreaShape := 0;
  OreSecondarySubPoints[1].Color := 131072; OreSecondarySubPoints[1].Tolerance := 0;

  OreSecondarySubPoints[2].x := 172;        OreSecondarySubPoints[2].y := 395;
  OreSecondarySubPoints[2].AreaSize := 0;   OreSecondarySubPoints[2].AreaShape := 0;
  OreSecondarySubPoints[2].Color := 131072; OreSecondarySubPoints[2].Tolerance := 0;

  OreSecondarySubPoints[3].x := 163;        OreSecondarySubPoints[3].y := 400;
  OreSecondarySubPoints[3].AreaSize := 0;   OreSecondarySubPoints[3].AreaShape := 0;
  OreSecondarySubPoints[3].Color := 131072; OreSecondarySubPoints[3].Tolerance := 0;

  OreSecondarySubPoints[4].x := 150;        OreSecondarySubPoints[4].y := 392;
  OreSecondarySubPoints[4].AreaSize := 0;   OreSecondarySubPoints[4].AreaShape := 0;
  OreSecondarySubPoints[4].Color := 131072; OreSecondarySubPoints[4].Tolerance := 0;

  OreSecondarySubPoints[5].x := 152;        OreSecondarySubPoints[5].y := 382;
  OreSecondarySubPoints[5].AreaSize := 0;   OreSecondarySubPoints[5].AreaShape := 0;
  OreSecondarySubPoints[5].Color := 131072; OreSecondarySubPoints[5].Tolerance := 0;

  OreSecondary.MainPoint := OreSecondaryMainPoint;
  OreSecondary.SubPoints := OreSecondarySubPoints;
  Result := AddDTM(OreSecondary);
  end;
end;

This should work in theory haven't tested. :)

E: Fixed an error I found I built in.

Sabzi

2011-12-13 06:32:26

I believe you can just leave all the parameters you set to 0 out as that what it gets as default in ps, no? I might be completely wrong.

mixster

2011-12-13 07:54:41

function SetDDTM(WhichBar:String; primary: Boolean): Integer;
var
  OrePrimaryMainPoint: TDTMPointDef;
  OrePrimarySubPoints: Array [0..5] of TDTMPointDef;
  OrePrimary: TDTM;
  SubPoints: TPointArray;
  i: Integer;
begin
  OrePrimaryMainPoint.x := 167;
  OrePrimaryMainPoint.y := 386;
  OrePrimaryMainPoint.AreaSize := 0;
  OrePrimaryMainPoint.AreaShape := 0;
  OrePrimaryMainPoint.Tolerance := 0;

  SubPoints := [Point(167, 386), Point(182, 381), Point(172, 395), Point(163, 400), Point(150, 192), Point(152, 382)]

  for i := 0 to 5 do
  Begin
    OrePrimarySubPoints[i].x := SubPoints[i].x;
    OrePrimarySubPoints[i].y := SubPoints[i].y;
    OrePrimarySubPoints[i].AreaSize := 0;
    OrePrimarySubPoints[i].AreaShape := 0;
    OrePrimarySubPoints[i].Color := 131072;
    OrePrimarySubPoints[i].Tolerance := 0;
  End;

  Case WhichBar of
    'bronze':
    Begin
      If primary then
      Begin
        OrePrimaryMainPoint.Color := AuoColorOre('copper');
        OrePrimarySubPoints[0].Color := AuoColorOre('copper');
      End
      Else
        OrePrimaryMainPoint.Color := AuoColorOre('tin'); 
    End;
    'iron', 'silver', 'gold':
    Begin
      OrePrimaryMainPoint.Color := AuoColorOre(WhichBar);
      OrePrimarySubPoints[0].Color := AuoColorOre(WhichBar);
    End;
    'steel', 'adamantite', 'runeite':
    Begin
      If primary then
      Begin
        OrePrimaryMainPoint.Color := AuoColorOre(WhichBar);
        OrePrimarySubPoints[0].Color := AuoColorOre(WhichBar);
      End
      Else
      Begin
        OrePrimaryMainPoint.Color := AuoColorOre('coal'); 
        OrePrimarySubPoints[0].Color := AuoColorOre('coal');
      End
    End;
  End;
  OrePrimary.MainPoint := OrePrimaryMainPoint;
  OrePrimary.SubPoints := OrePrimarySubPoints;
  Result := AddDTM(OrePrimary);
End;

There's a problem with the original in that you overwrite the primary ore DTM with the second one (really, YoHoJo, trying to return two DTMs with one result variable? :)) so now you set primary to true to get the primary DTM and to false to get the secondary one (if there is one - if there isn't, you're going to get a nonsense DTM, but still a DTM.)

Haven't checked for compilation, but I'm hoping you can put all the points into a TPA like that, otherwise it should be fine.

Nava2

2011-12-13 10:45:59

Just use TMDTMs, they let you loop nicely through and set everything as you would expect.

Wyn

2011-12-13 10:54:01

Why not just use bitmaps…

BraK

2011-12-13 11:53:41

From: wyn10
Why not just use bitmaps…


DTMs can be use for a variety of objects easier. They also tend to be more accurate.

YoHoJo

2012-01-05 17:43:42

From: Nava2
Just use TMDTMs, they let you loop nicely through and set everything as you would expect.


Someone explain this?
Basically I just want a function FindBar(Bar:String); to find any bar I want accurately and with little code, I like DDTMs :D.