Han-Object is Wall

From Vectorlab
Jump to: navigation, search


Checks if an object is a wall. By Orso B. Schmid


{ Orso *********************************************** }
{ checks if h is wall }
FUNCTION H_IsWall(h: HANDLE): BOOLEAN;
	VAR
		typ : INTEGER;
	BEGIN
		IF h <> NIL THEN
			typ := GetType(h);
			
		H_IsWall := ((typ=68) | (typ=89));
	END;