Code: Select all
procedure OpenFence;
begin
FindDistance:=5;
//findtype($0853,ground);
//UseFromGround(findItem);
UseObject(FindType($0853,Ground));
AddToSystemJournal('Открываем калитку');
end;
Code: Select all
procedure OpenFence;
begin
FindDistance:=5;
//findtype($0853,ground);
//UseFromGround(findItem);
UseObject(FindType($0853,Ground));
AddToSystemJournal('Открываем калитку');
end;
Code: Select all
procedure GotoChestFromHome();
begin
newMoveXY(x1, y1, false, 0, true);
moveOpenDoor := True;
newMoveXY(x2, y2, false, 0, true);
moveOpenDoor := False;
end;