function SetDDTM(ore : string): integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..5] of TDTMPointDef;
TempTDTM: TDTM;
TheColor : integer;
begin
case ore of
'iron' : TheColor := 1712955;
'coal' : TheColor := 1976104;
end;
EjjDebug('Set DDTM to '+ore+' color.');
dtmMainPoint.x := 1200;
dtmMainPoint.y := 284;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := TheColor;
dtmMainPoint.Tolerance := 19;
dtmSubPoints[0].x := 1200;
dtmSubPoints[0].y := 284;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := TheColor;
dtmSubPoints[0].Tolerance := 19;
dtmSubPoints[1].x := 1212;
dtmSubPoints[1].y := 282;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 131072;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 1206;
dtmSubPoints[2].y := 291;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 131072;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 1194;
dtmSubPoints[3].y := 297;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 131072;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 1183;
dtmSubPoints[4].y := 288;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 131072;
dtmSubPoints[4].Tolerance := 0;
dtmSubPoints[5].x := 1184;
dtmSubPoints[5].y := 280;
dtmSubPoints[5].AreaSize := 0;
dtmSubPoints[5].AreaShape := 0;
dtmSubPoints[5].Color := 131072;
dtmSubPoints[5].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;