ON!-INITIAL OFF!-INITIAL ENABLE!-INITIAL DISABLE!-INITIAL >> >)> > ; "So we can use byte tables for rooms" ; "Saves a byte/word" ; "Seriously cram syntaxes" ; "Minor optimization" ; "Set UNDO bit in FLAGS" ; "GLOBAL property should make byte tables instead of word tables, due to ROOMS-AND-LGS-FIRST. DIRECTION properties redefined to take advantage of single-byte room pointers, and to make more common exit types take less space." (GLOBAL "MANY" LG:OBJECT = <> "MANY" )> (DIR TO R:ROOM = (UEXIT 1) #SEMI "UNCONDITIONAL EXIT" (REXIT ) #SEMI "TO ROOM") (DIR PER F:FCN = ; "Changed because most common case" (FEXIT 2) #SEMI "CONDITIONAL EXIT" (FEXITFCN ) #SEMI "PER FUNCTION") (DIR TO R:ROOM IF O:OBJECT IS OPEN = (DEXIT 3) #SEMI "CONDITIONAL EXIT" (REXIT ) #SEMI "TO ROOM" (DEXITOBJ ) #SEMI "IF DOOR IS OPEN") (DIR SORRY S:STRING = (NEXIT 4) #SEMI "IMPOSSIBLE EXIT" (NEXITSTR ) #SEMI "FAILURE MESSAGE" ) (DIR TO R:ROOM IF F:GLOBAL = (CEXIT 5) #SEMI "CONDITIONAL EXIT" (REXIT ) #SEMI "TO ROOM" (CEXITFLAG ) #SEMI "IF FLAG IS TRUE" ) > > > ADJ>>) ( ! ADJ>> .X>) FORM>>) (T 0)>) (<1? .N>
NOUN>>) ( ! NOUN>> .X>) FORM>>) (T 0)>) (T .X)>> .LIST>> (<> >)> > > ) (<==? .TN 10> ) (<==? .TN 12> ) (<==? .TN 15> ) (<==? .TN 20> ) (<==? .TN 50> ) (<==? .TN 99> ) (<==? .TN 100> ) (T )>)> > > ) (<==? .TN 10> ) (<==? .TN 15> ) (<==? .TN 50> ) (<==? .TN 100> ) (<==? .TN 250> ) (T )> >>)> > > ) (<==? .TN 999> ) (T )> >>>)> (<> .VAL)> <1 .X>) (T )>> ;"AUXES MERGED INTO MACROS" ;"MISC (BETA/GAMMA STUFF) DELETED" ; "If PARSER doesn't end before 44800, you'll lose on the C64." ;"GO & WAIT & WINDOW MERGED INTO OTHER-MISC" ;"MERGED LOCALS1 AND LOCALS2"