! This routine is no longer used here, but provided to help existing games ! which use it as a general parsing routine: [ ConTopic w; consult_from = wn; do w=NextWordStopped(); until (w==-1 || (w=='to' && action_to_be==##Answer)); wn--; consult_words = wn-consult_from; if (consult_words==0) return -1; if (action_to_be==##Ask or ##Answer or ##Tell) { w=wn; wn=consult_from; parsed_number=NextWord(); if (parsed_number=='the' && consult_words>1) parsed_number=NextWord(); wn=w; return 1; } return 0; ]; ! ---------------------------------------------------------------------------- ! Final task: provide trivial routines if the user hasn't already: ! ---------------------------------------------------------------------------- #Stub TimePasses 0; #Stub Amusing 0; #Stub DeathMessage 0; #Stub DarkToDark 0; #Stub NewRoom 0; #Stub LookRoutine 0; #Stub AfterLife 0; #Stub GamePreRoutine 0; #Stub GamePostRoutine 0; #Stub AfterPrompt 0; #Stub BeforeParsing 0; #Stub PrintTaskName 1; #Stub InScope 1; #Stub UnknownVerb 1; #Stub PrintVerb 1; #Stub ParserError 1; #Stub ParseNumber 2; #Stub ChooseObjects 2; #IFNDEF PrintRank; Constant Make__PR; #ENDIF; #IFDEF Make__PR; [ PrintRank; "."; ]; #ENDIF; #IFNDEF ParseNoun; Constant Make__PN; #ENDIF; #IFDEF Make__PN; [ ParseNoun obj; obj=obj; return -1; ]; #ENDIF; #Default Story 0; #Default Headline 0; #IFDEF INFIX; #Include "infix"; #ENDIF; ! ----------------------------------------------------------------------------