> )) ,SIZE-VALS>>>> )) > .NUM) (T >)>> > )) <* > <* ,SIZE-VALS ,MASS-VALS>>>>> )) ,MASS-VALS>> .NUM) (T >)>> )) >> 100> 999) (T .NUM)>> )) >>>> > ) ( >> ) (T >)>>> > ) (T )> ) (T )> )> > > ) (T >>)> >> > > ) (T >>)> >> >> > > ) ( > T) ( T) (T )> >> > > >> > >> > >> > )> > > > > )> > >> )> > > > )> > )> > > > ) ( )> >>> > > "> > > T) ( ) ( )>)>>> )) ) (T )> ;> )> ; > > > >> *3777*>> > > > > )) > ) ( > > ) ( > > ) ( ) (T )> >)> > ) ( > T) ( > >) (T )> >> > ) ( > > )> >> ) (T )>) (T > )> )>> ) (T )> > )> > > T) ( ) (T )> > )> >> ) (T )> ) (<1? .PERSON-COUNT> ) (T )>)> >>)> > ) ( >)> >> > ) (LOOK <>) "AUX" OBJ PREV (CNT 0) LIGHT) ;"if no place is passed as an argument" )> ;"use gl-place-cur" > )>; "describe each object" > ) ( ) ( ) ( ) ( ) ( ) ( ) (T )>> )> )> )> > ; "All words for this are in the table TH-EVENT-NAMES in CONSTANTS. This will only ever be found by MOBY-FIND." ; "Given noun and adjective, see if TH-EVENT can be a match" ,EN-ENTLEN>) (TB ) NTB ATB FLGS) > 2> > > >>> > > ; "NOARTC is handled by RT-DESC-EVENT" > ) (T )> > ) (T )> > ) (T )> ) (T )>)> > 1> )> >>>> ) "AUX" (NAM )) > )> ,EN-ENTLEN>) (TB ) NTB) > 1>> ; "This is the case we're interested in" > ) (T )>)> > 1> )> >>>> ) "AUX" (WD ) FLAGS) ,EN-ENTLEN>) (TB )) 1>> > .CLASS >> >) (T >> T>)> )> > 1> )> >>>> ) (CLASS <>)) ) (> )>> > > > " looks at you " " and says, \"" >) ( " says, \"" >)> ) (T ".">)> > " that " THE .THING> > " "> "." CR> > > > ) (THING <>)) )> > > > > ) ( 0> > > )> ) ( 0> > ) ( 0> > ) ( 0> > )>> ) "AUX" OBJ) > ) (T > > > ) ( > )>)> >)>> ) (T )>> > ) ( 1>> ) (T )>> ) ( ) ( ) (T >)>>> ; > ; "There's no way to set these, ever" ; ; "hrs min sec" ; "hrs min sec" ; "hrs min sec yrs mon day dow" > > > > > > > > > > > > ; "the following will normally not have to changed from game to game" > > > ; "Short status line" >)> > > > ;"wait stuff" > ) (AM-PM? 0)) >> > ,W?AM> ) (<==? .CNT ,W?PM> )> ) (T >)> > > ) (T > )> > > )> ) ( ) ( )> ) ( ) ( > ) (T <- .CHR !\0>>>)> >)>> ) ( > )>) ( )>) (T > >)> )> ) ( )> ,W?INTNUM> > )> ,W?MINUTE ,W?MINUTES> ) (T )> ) ( >> ) (T > > > > )> ) (> ; "24 hour notation" >> >> >>) (T ; "12 hour notation" 1> 12> 1>>> >> >>)> ; "Normalize seconds" 60>> > >> 60>> > >> )> >) (T >)>> > 1> 12> 1> 9> )> > ) (T )> )>> ) (<1? .TOD> ) (<==? .TOD 2> ) (T )>> ;"window routines" ;" RT-WINDOW [table] [left-margin]" ;" where [table] is a global PLTABLE with the 1st element = width of window" ;" followed by strings (0 for a blank line)" ;" if [left-margin] is not specified, window is centered" > > )> >>)> ;> > )> > ) (T )> > ; ; "send window to printer" )> > > > )> )>)> > > ; "constants used with table" ; ; "extra space added to each line that ends in a period followed by a space." ;>> ; "global used by invocation code fragment" ; "setting of global with value from table" ;> ; "invocation code fragment" ; > )> <> ,CH-HOLMES> >)>)> <==? ,CH-HOLMES>> )> ) (T )> )> )>> ) (T )> > > )> ) ( )>)>> > ) ( > ) ( > )>> >