POBLIST>>> > (OBL) POBLIST (VAL) ANY (BUCK) FIX (TL) ) >) (> >)> > >>> ) (T )> .VAL> ) "AUX" (OBL ) ATM) #DECL ((TICK) FIX (APP) (FLG DEATH) (OBL) OBLIST (NAME) (ATM) ) >) (T >)>) ()> >> ) (FLAG <>) (FUNCT <>) "AUX" ATM) #DECL ((STR) (FLID RMID) (ATM FUNCT) (FLAG) ) >)> > >>> .STR .FUNCT> CEXIT>> ) (FN <>) "AUX" (OBJ )) #DECL ((OID) STRING (STR) (FN) (OBJ) OBJECT (RM1 RM2) ) > .OBJ>) (> .OBJ>) ()>> >) DIR) #DECL ((PAIRS) ]> (DIR) DIRECTION (FROB) VECTOR (DOBL) POBLIST) .DOBL>> STRING> >>) (>)> >)> >> )>> > ) (BIT ,RLANDBIT) (PROPS ()) "AUX" (RM ) VAL M) #DECL ((ID D1 D2) STRING (EX) EXIT (APP) (BIT VAL) FIX (RM) ROOM (PROPS) (M) >) > <2 .M>) (0)>> FIX>>> >) (>)> > ,STAR-BITS>>)> > > .RM> > .VAL) ()>) ( PREP>>)>> (ACTIONS) POBLIST) .STR] ACTION>>> (DIR) POBLIST) DIRECTION>>> .NMS>> )) #DECL ((STR) STRING (NMS) (VAL) DIRECTION (DIR) POBLIST) > .NMS>> (VAL) ANY (ACTIONS) POBLIST) > > .N2>)>> "STUFF FOR ADDING TO VOCABULARY, ADDING TO LISTS (OF DEMONS, FOR EXAMPLE)." ) > ) .NM>>> .W>> (VAL) ANY (WORDS) POBLIST) > > .N2>)>> ) > > )>> ,DEMONS>) ()>> ) > )>> .ACTORS>) ()> .ADV> > > > "MAKE-ACTION: Function for creating a verb. Takes; vspec => [objspec {\"prep\"} {objspec} [pstring fcn] extras] objspec => OBJ | objlist objlist => ( objbits {fwimbits} {NO-TAKE} {MUST-HAVE} {TRY-TAKE} {=} ) extras => DRIVER FLIP Creates a VSPEC. " ) ATM VERB) #DECL ((SPECS) TUPLE (VV) (SUM) FIX (PREP ATM) ANY (VERB) VERB) <> <> 0>) (WHR 1)) #DECL ((SP) VECTOR (SYN) VECTOR (WHR) FIX) >) ( <>>) ( <>>) ( > > > FIX>> >) (ELSE >)> >> > >> >> > >> >> >> >> > >) ( >> T> >)> ) (<==? .ITM DRIVER> ,SDRIVER> FIX>>) (<==? .ITM FLIP> ,SFLIP> FIX>>)>> .SP> > > > .SPECS> VSPEC>> "Default value for syntax slots not specified" 0] VARG>> ;"To add VERBs to the BUNCHERS list" ) !,BUNCHERS)>> .STRS>> ; "For making end game questions" > 1 > OBJECT> >>> > > ) (CONTS ()) (PROPS (OGLOBAL 0)) "AUX" OBJ BITS) #DECL ((IDS ADJS) (STR) STRING (FLAGS) FIX (APP) (OBJ) OBJECT (NAM) (CONTS) LIST (PROPS) LIST) > ) (>> )>) (>> >)> > )> > )> .OBJ> ) (CONTENTS ()) (PROPS ()) "AUX" (OBJ >) (OBJS ,OBJECT-POBL)) #DECL ((NAMES ADJS) (DESC) STRING (FLAGS) FIX (ACTION) (CONTENTS) (PROPS) (OBJ) OBJECT (OBJS) POBLIST) ) (T )>> .NAMES>> > .ADJS>> ADJECTIVE> > .CONTENTS> >> .OBJ> (OBJ) OBJECT (O) ) > <==? >> .O) (> '![] "" 0 <> () <> <> ()] OBJECT>>> .OBJ)>> (VALUE) ROOM (ROOM) ROOM) ) ( ,NULL-DESC ,NULL-DESC ,NULL-EXIT () <> 0 ()> ROOM>>> .ROOM)>>