TobjType = (Class, Room, Door, Obj, Other);
PinFunct = ^TinFunct;
TinFunct = Record
	Name : Pchar;
	Vars : Pchar;
	Code : TStringList;
	cmt  : TstringList;
end;


PAction = ^Taction;
TAction = Record
	VMod : Pchar;
	Act  : Pchar;
end;

Pgrammar = ^Tgrammar;
TGrammar = Record
	Verb   	: Pchar;
	Kind	: Integer;
	Place	: Integer;
	Syn	: TstringList;	
	action 	: Tlist; 
end;	

PinfObj = ^TinfObj;
TinfObj = Record
	ObjType : TobjType;
	ObjName	: Pchar;
	ShortName: Pchar;
	Belongs_to: Pchar;
	Names	: Pchar;
	ObjCmt  : TstringList;
	Property: Tlist;
	Attribute: TstringList
		
end;

PInfScript = ^TInfScript;
TInfScript = Class(Tobject)
	Title 	 : Pchar;
	Headline : Pchar;
	Debug	 : Boolean;
	switches : Pchar;
	Global	 : TstringList;
	Constant : TstringList;
	Property : TstringList;
	Attrib   : TstringList;
	IncParse : TstringList;
	IncVerb  : TstringList;
	IncGrammar: TstringList;
	MainComment : TstringList;
	Obj	 : Tlist;
	Grammar  : Tlist;
end;