Stealth Client Forum

Code: Select all

    //  если после трёх попыток дверь осталась на месте, считаем что она залочена.
    if (SinDoorID <> $0) and (i >= 3) then
    begin
      MoverMessage('It seems door is locked.');
      Script_SetBadLocation(ToX, ToY);
      Exit(-2); // нельзя пройти
    end;

Code: Select all

		case Step(Dir, Stam > 5) of
			1: sync;
			5: begin
				if (not Dead) and FindDoor(MovePoints[i].X, MovePoints[i].Y) then begin
					OpenDoor;
					sync;
					continue;
				end;
				if OnCantStep <> nil then
					if OnCantStep() then continue;
				SetBadLocation(MovePoints[i].X, MovePoints[i].Y);
				break;
			end;
			7: if OnStep <> nil then
				if not OnStep() then exit;
		else
			break;
		end;

Code: Select all

function FindDoor(X, Y: integer):boolean;
var
	t: word;
begin
while FindAtCoord(X, Y) > 0 do begin
	t:= GetType(FindItem);
	if (t >= $0675) and (t <= $06F6) then begin
		result:= true;
		exit;
	end;
	Ignore(FindItem);
end;
end;