Simba Code:
Procedure WalkToBank;
begin
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
begin
wait(5000 + random(250));
end;
begin
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
begin
wait(3000 + random(250));
end;
begin
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')
wait(1500 + random(250));
MakeCompass('0');
end
else WriteLn('Could not find Bank');
end;
end;
end;
Simba Code:
Procedure WalkToBank;
begin
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
begin
repeat
wait(100);
until(Not IsMoving);
end;
begin
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
begin
repeat
wait(100);
until(Not IsMoving);
end;
begin
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')
repeat
wait(100);
until(Not IsMoving);
MakeCompass('0');
end
else WriteLn('Could not find Bank');
end;
end;
end;
Much more efficient.