Advertisement
Guest User

Domain

a guest
Oct 17th, 2017
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.40 KB | None | 0 0
  1. (define (domain courseworkdomain)
  2. (:requirements
  3. :strips
  4. )
  5.  
  6. (:predicates
  7.  
  8. (personLocation ?p ?pl)
  9. (shipLocation ?s ?sl)
  10. (path ?l1 ?l2)
  11. (shipUndamaged ?u)
  12. (medicalSupplies ?pl)
  13. (navigatorOrders ?s ?l2)
  14. (robots ?c ?pl)
  15. (heavyEquipment ?pl)
  16.  
  17. )
  18.  
  19. (:action repair
  20. :parameters(?u)
  21. :precondition(and (shipUndamaged damaged)
  22. (personLocation engineers engineeringRoom)
  23. )
  24.  
  25. :effect(shipUndamaged undamaged)
  26. )
  27.  
  28. (:action charge_robot
  29. :parameters(?c ?pl)
  30. :precondition(robots uncharged ?pl)
  31. :effect(robots charged scienceLab)
  32. )
  33.  
  34. (:action transport_meds
  35. :parameters(?pl)
  36. :precondition(and(medicalSupplies ?pl)
  37. (personLocation medicalPersonnels sickbay))
  38. :effect(medicalSupplies sickbay)
  39. )
  40.  
  41. (:action move-heavyEquipment
  42. :parameters(?pl ?c)
  43. :precondition (and(robots charged ?pl)
  44. (heavyEquipment ?pl))
  45. :effect(and(robots uncharged cargoBay)
  46. (heavyEquipment cargoBay))
  47. )
  48.  
  49. (:action move_ship
  50. :parameters
  51. (?s ?sl ?l1 ?l2 ?u)
  52. :precondition
  53. (and
  54. (path ?l1 ?l2)
  55. (personLocation captain bridge)
  56. (shipUndamaged undamaged)
  57. )
  58. :effect
  59. (and
  60. (not (shipLocation ?s ?sl))
  61. (shipLocation ?s ?l2)
  62. )
  63. )
  64.  
  65. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement