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;