Object -> labceiling "потол/о/к/"
  with
	name 'крыш' 'потолок' 'потолк',
	description "Потолок находится высоко, панели висят по крайней мере в два раза выше, чем везде. Тебе не видно, из чего они сделаны.",
    casegen [ beg end csID;
        return ICVowel (csID, beg, end, 'о', 0);
	],
	before [;
		Examine:
			rfalse;
		default:
			"Здесь потолок находится слишком высоко.";
	],
  has scenery male;