! Testing that held and creature tokens parse all/all-but correctly ! Testing issue 60 (sentence splitting) ! ! #Iftrue (#version_number == 8); Constant USEINFORM; #Endif; Constant Story "Parser test"; Constant Headline "^A parser test suite for PunyInform.^"; Serial "200827"; Constant INITIAL_LOCATION_VALUE = Library; ! Uncomment to show time instead of score/turns !Statusline time; Constant DEBUG; !Constant DEBUG_PARSEANDPERFORM; !Constant DEBUG_PARSEPATTERN; !Constant DEBUG_PARSETOKEN; !Constant DEBUG_CHECKNOUN; !Constant DEBUG_GETNEXTNOUN; !Constant DEBUG_SCOPE; ! Uncomment to add optional features to PunyLib !Constant DEBUG; !Constant CUSTOM_ABBREVIATIONS; !Constant OPTIONAL_ALLOW_WRITTEN_NUMBERS; Constant OPTIONAL_EXTENDED_METAVERBS; Constant OPTIONAL_EXTENDED_VERBSET; Constant OPTIONAL_NO_DARKNESS; !Constant OPTIONAL_FULL_SCORE; !Constant OPTIONAL_FULL_DIRECTIONS; !Constant OPTIONAL_GUESS_MISSING_NOUN; !Constant OPTIONAL_MANUAL_SCOPE; !Constant RUNTIME_ERRORS = 0; #Ifdef USEINFORM; Include "Parser"; Include "VerbLib"; #IfNot; Include "globals.h"; #EndIf; #Ifndef USEINFORM; Include "puny.h"; #EndIf; ! Uncomment to add PunyLib extensions !Include "ext_menu.h"; !Include "ext_flags.h"; !Include "ext_quote_box.h"; !Include "ext_cheap_scenery.h"; #Ifdef USEINFORM; Include "Grammar"; #Endif; Object Library "The Library" with name 'scenery' 'useless', description "You are in a library." ; Object -> Apple "apple" with name 'apple', before [; Take: print "taking apple^"; Remove: print "removing apple^"; ], has edible; Object -> Banana "banana" with name 'banana', before [; Take: print "taking banana^"; Remove: print "removing banana^"; ], has edible; Object -> Lemon "lemon" with name 'lemon', before [; Take: print "taking lemon^"; Remove: print "removing lemon^"; ], has edible; Object -> Box "box" with name 'box', before [; Take: print "taking box^"; Remove: print "removing box^"; Receive: if(noun == Apple) "Apples are verboten"; LetGo: if(noun == Banana) "It seems to be stuck inside the box."; ], has container open openable; [ Initialise; #IfDef USEINFORM; location=INITIAL_LOCATION_VALUE; #EndIf; ];