Advertisement
logicmoo

Untitled

Oct 25th, 2018
694
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 5.13 KB | None | 0 0
  1. /*
  2. %  NomicMUD: A MUD server written in Prolog
  3. %  Maintainer: Douglas Miles
  4. %  Dec 13, 2035
  5. %
  6. %  Bits and pieces:
  7. %
  8. % LogicMOO, Inform7, FROLOG, Guncho, PrologMUD and Marty's Prolog Adventure Prototype
  9. %
  10. %  Copyright (C) 2004 Marty White under the GNU GPL
  11. %  Sept 20,1999 - Douglas Miles
  12. %  July 10,1996 - John Eikenberry
  13. %
  14. %  Logicmoo Project changes:
  15. %
  16. % Main file.
  17. %
  18. */
  19. :- module(adv_test, [test_adv/0]).
  20.  
  21. %:- ensure_loaded(adv_main).
  22. adv_reset:-
  23.    adventure_init,
  24.    main_once,
  25.    main_once,
  26.    main_once,!.
  27.  
  28. test_adv :- test_adv(1).
  29.  
  30. test_adv(M-N) :- !,
  31.   forall(
  32.     between(M,N,O),
  33.     test_adv(O)).
  34.  
  35. test_adv(N) :-  
  36.    adv_reset,
  37.    adv_tst(N),
  38.    mainloop.
  39.  
  40. adv_tst(0):- adv_reset.
  41.  
  42. adv_tst(1):-
  43.    nlu_assert("Player~1 is in the kitchen."),
  44.    nlu_assert("There are boxes on the floor.").
  45.  
  46. adv_tst(2):-
  47.    nlu_assert("Player~1 opens a box."),
  48.    nlu_assert("There are books in the box.").
  49.  
  50. adv_tst(3):-
  51.    nlu_assert("Player~1 takes out the books."),
  52.    nlu_assert("Player~1 puts the books on the bookshelf."),
  53.    nlu_assert("Player~1 opens another box."),
  54.    nlu_assert("There are plates in the box."),
  55.    nlu_assert("Player~1 takes out the plates."),
  56.    nlu_assert("Player~1 puts them in the kitchen cabinet.").
  57.  
  58.  
  59. adv_tst(4):-
  60.    nlu_assert("He stands on the corner."),
  61.    nlu_assert("He sells purses."),
  62.    nlu_assert("He says, 'Ten Dollars' over and over."),
  63.    nlu_assert("Many women stop."),
  64.    nlu_assert("They look at all the purses."),
  65.    nlu_assert("They pick up the purses."),
  66.    nlu_assert("They look inside the purses."),
  67.    nlu_assert("They put the purses on their shoulders."),
  68.    nlu_assert("Many women buy a purse."),
  69.    nlu_assert("Some women buy two purses."),
  70.    
  71. adv_tst(5):-
  72.    nlu_assert("She is in her pajamas."),
  73.    nlu_assert("She lies down."),
  74.    nlu_assert("She puts her head on the pillow."),
  75.    nlu_assert("She moves the pillow around a little bit."),
  76.    nlu_assert("It is more comfortable now."),
  77.    nlu_assert("The lamp is still on."),
  78.    nlu_assert("She turns off the lamp."),
  79.    nlu_assert("Her bedroom is dark."),
  80.    nlu_assert("She puts her head back on the pillow."),
  81.    nlu_assert("She goes to sleep."),
  82.    
  83. adv_tst(6):-
  84.    nlu_assert("She opens the envelope."),
  85.    nlu_assert("She reads the letter."),
  86.    nlu_assert("The letter is from her cousin."),
  87.    nlu_assert("Her cousin is in Europe."),
  88.    nlu_assert("Her cousin likes Europe."),
  89.    nlu_assert("She finishes the letter."),
  90.    nlu_assert("She writes a letter to her cousin."),
  91.    nlu_assert("She tells her cousin all the latest news at home."),
  92.    nlu_assert("She thanks her cousin for the letter."),!.
  93.    
  94. adv_tst(7):-
  95.    nlu_assert("She is a model."),
  96.    nlu_assert("She walks up and down the runway."),
  97.    nlu_assert("She models clothes."),
  98.    nlu_assert("She models expensive clothes."),
  99.    nlu_assert("Famous designers design her clothes."),
  100.    nlu_assert("The clothes look good on her."),
  101.    nlu_assert("People watch her model clothes."),
  102.    nlu_assert("People spend lots of money on the clothes."),
  103.    nlu_assert("People buy the clothes."),
  104.    nlu_assert("She never buys the clothes."),
  105.    nlu_assert("She just wears them.").
  106.    
  107. adv_tst(8):-    
  108.    nlu_assert("The baby cries."),
  109.    nlu_assert("She looks at it."),
  110.    nlu_assert("She talks to it."),
  111.    nlu_assert("The baby cries some more."),
  112.    nlu_assert("She picks it up."),
  113.    nlu_assert("She holds it."),
  114.    nlu_assert("She pats the baby on the back."),
  115.    nlu_assert("The baby burps."),
  116.    nlu_assert("She puts the baby down."),
  117.    nlu_assert("She looks at it."),
  118.    nlu_assert("The baby looks at her."),
  119.    nlu_assert("It smiles at her.").
  120.    
  121. adv_tst(9):-    
  122.    nlu_assert("He has a secret."),
  123.    nlu_assert("He keeps his secret."),
  124.    nlu_assert("He shares it with nobody."),
  125.    nlu_assert("He tells it to nobody."),
  126.    nlu_assert("A secret is a secret."),
  127.    nlu_assert("He loves his teacher."),
  128.    nlu_assert("That is his secret."),
  129.    nlu_assert("His teacher is beautiful."),
  130.    nlu_assert("She is smart."),
  131.    nlu_assert("She likes him too."),
  132.    nlu_assert("She gives him A's on his homework."),
  133.   nlu_assert("She gives him gold stars for his class work."),!.
  134.  
  135. adv_tst(10):-
  136.   nlu_assert("It is winter."),
  137.   nlu_assert("It is early morning."),
  138.   nlu_assert("He goes to the park."),
  139.   nlu_assert("He puts on his ice skates."),
  140.   nlu_assert("He skates on the pond."),
  141.   nlu_assert("He skates round and round."),
  142.   nlu_assert("Nobody else is on the pond."),
  143.   nlu_assert("He has it all to himself."),
  144.   nlu_assert("It is quiet on the pond."),
  145.   nlu_assert("The only sound is his skates on the ice."),!.
  146.  
  147. adv_tst(11):-
  148.   nlu_assert("He has a pocketknife."),
  149.   nlu_assert("It has two parts."),
  150.   nlu_assert("It has a knife."),
  151.   nlu_assert("The knife is two inches long."),
  152.   nlu_assert("It is sharp."),
  153.   nlu_assert("He cuts rope with the knife."),
  154.   nlu_assert("He cuts wood with the knife."),
  155.   nlu_assert("The other part is a file."),
  156.   nlu_assert("The file is two inches long."),
  157.   nlu_assert("He files his nails with the file."),!.
  158.  
  159.  
  160. :- initialization(test_adv,main).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement