From: Tickyy
Alright, now show me your DDTM. I'll make some changes :).
function SetDDTM: Integer; // To get kinda near to the Fountain Spot/Below the Oak.
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 618;
dtmMainPoint.y := 209;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 7699073;
dtmMainPoint.Tolerance := 5;
dtmSubPoints[0].x := 618;
dtmSubPoints[0].y := 209;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 7699073;
dtmSubPoints[0].Tolerance := 5;
dtmSubPoints[1].x := 618;
dtmSubPoints[1].y := 198;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 1911346;
dtmSubPoints[1].Tolerance := 5;
dtmSubPoints[2].x := 618;
dtmSubPoints[2].y := 220;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 1909804;
dtmSubPoints[2].Tolerance := 5;
dtmSubPoints[3].x := 627;
dtmSubPoints[3].y := 210;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 8554382;
dtmSubPoints[3].Tolerance := 5;
dtmSubPoints[4].x := 610;
dtmSubPoints[4].y := 207;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 8554382;
dtmSubPoints[4].Tolerance := 5;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
Procedure WalkOut;
begin
MakeCompass('N');
DTM1 := SetDDTM;
If DTMRotated(DTM1, X, Y, MMX1, MMY1, MMX2, MMY2) Then
MMouse(x,y,0,0);
wait(500);
Mouse(x,y,0,0,True);
FLAG;
If FindSymbol(x,y,'water') or
FindSymbol(x,y,'quest') or
FindSymbol(x,y,'staff shop') then
wait(5000);
exit;
//WalkToSpots;
// Arsonist;
end;
function SETDTMOAK: Integer; // To get to Oak Tree.
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..3] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 615;
dtmMainPoint.y := 182;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 1662533;
dtmMainPoint.Tolerance := 5;
dtmSubPoints[0].x := 615;
dtmSubPoints[0].y := 182;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 1662533;
dtmSubPoints[0].Tolerance := 5;
dtmSubPoints[1].x := 611;
dtmSubPoints[1].y := 182;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 1004581;
dtmSubPoints[1].Tolerance := 5;
dtmSubPoints[2].x := 615;
dtmSubPoints[2].y := 181;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 1269301;
dtmSubPoints[2].Tolerance := 5;
dtmSubPoints[3].x := 617;
dtmSubPoints[3].y := 184;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 1662533;
dtmSubPoints[3].Tolerance := 5;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
Procedure WalkIn;
begin
MakeCompass('N');
DTM2 := SETDTMOAK;
If DTMRotated(DTM2, X, Y, MMX1, MMY1, MMX2, MMY2) Then
MMouse(x,y,0,0);
wait(500);
Mouse(x,y,0,0,True);
FLAG;
end;
Function SpotC: Integer; // To get to the Location nearest to the Bank
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..4] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 715;
dtmMainPoint.y := 178;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 8554382;
dtmMainPoint.Tolerance := 5;
dtmSubPoints[0].x := 715;
dtmSubPoints[0].y := 178;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 8554382;
dtmSubPoints[0].Tolerance := 5;
dtmSubPoints[1].x := 714;
dtmSubPoints[1].y := 193;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 3099740;
dtmSubPoints[1].Tolerance := 5;
dtmSubPoints[2].x := 718;
dtmSubPoints[2].y := 160;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 8554382;
dtmSubPoints[2].Tolerance := 5;
dtmSubPoints[3].x := 708;
dtmSubPoints[3].y := 174;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 8554382;
dtmSubPoints[3].Tolerance := 5;
dtmSubPoints[4].x := 723;
dtmSubPoints[4].y := 187;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 2372669;
dtmSubPoints[4].Tolerance := 5;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
Procedure SpotClight;
begin
MakeCompass('N');
SPOTCDTM := SpotC;
If DTMRotated(SPOTCDTM, X, Y, MMX1, MMY1, MMX2, MMY2) Then
MMouse(x,y,0,0);
wait(500);
Mouse(x,y,0,0,True);
Flag;
Arsonist;
end;