Drax
2012-02-07 22:35:31
OK so what I'm trying to implement is SPS as my fail safe for my DTM Walking. Is there a better way to do it than like this?
Procedure WalkToBank;
begin
Antirandoms;
if ObjDTM_Walk('84:22:4:3:7:67:43:3:7:43:63:3:7:40:76:3:7:28:72:4:73:8:73:27:98:30:98:9', 0, 100, 80, True) then
Antiban;
if ObjDTM_Walk('106:48:3:10:7:119:69:10:7:119:61:10:7:119:53:4:98:27:97:50:116:51:115:27', 0, 100, 80, True) then
Antirandoms;
if ObjDTM_Walk('73:66:3:1:7:95:47:1:7:123:80:3:7:128:96:4:69:57:70:73:84:73:83:57', 0, 100, 80, True) then
begin
WriteLn('Now at Bank')
MakeCompass('N');
end else WriteLn('Could not find Bank');
If Not ObjDTM_InArea('73:66:3:1:7:95:47:1:7:123:80:3:7:128:96:4:69:57:70:73:84:73:83:57', false) then
WriteLn('Could Not Find Dtm trying SPS');
MakeCompass('N');
myPath := [Point(4164, 2746), Point(4169, 2749), Point(4175, 2752), Point(4181, 2752),
Point(4189, 2753), Point(4193, 2749), Point(4195, 2741), Point(4195, 2734),
Point(4193, 2728), Point(4193, 2721), Point(4190, 2713), Point(4187, 2704),
Point(4184, 2697), Point(4181, 2689), Point(4177, 2682), Point(4176, 2674),
Point(4182, 2669), Point(4186, 2667), Point(4186, 2660), Point(4185, 2654)];
SPS_WalkPath(myPath);
WriteLn('Now At Bank');
end;