ship.lisp 1.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768
  1. (defvar *ai-ship-name-prefixes*
  2. (list
  3. "The Eerie"
  4. "The Sinister"
  5. "The Macabre"
  6. "The Gothic"
  7. "The Morbid"
  8. "The Haunting"
  9. "The Foreboding"
  10. "The Menacing"
  11. "The Ominous"
  12. "The Grim"
  13. "The Mysterious"
  14. "The Cryptic"
  15. "The Unsettling"
  16. "The Spooky"
  17. "The Creepy"
  18. "The Chilling"
  19. "The Ghostly"
  20. "The Shadowy"
  21. "The Forensic"
  22. "The Malevolent"))
  23. (defvar *ai-ship-name-suffixes*
  24. (list
  25. "Boat"
  26. "Craft"
  27. "Solarboat"
  28. "Schooner"
  29. "Clipper"
  30. "Steamer"
  31. "Freighter"
  32. "Cargo ship"
  33. "Liner"
  34. "Cruiser"
  35. "Ferry"
  36. "Barge"
  37. "Canoe"
  38. "Kayak"
  39. "Raft"
  40. "Yacht"
  41. "Catamaran"
  42. "Submarine"
  43. "Galleon"
  44. "Spacecraft"
  45. "Rocket"
  46. "Starship"
  47. "Interstellar"
  48. "VTOL"
  49. "Lunar Module"
  50. "Shuttle"
  51. "Cosmic Capsule"
  52. "Orbital Craft"
  53. "Extraterrestrial Transport"
  54. "Astroplane"
  55. "Celestial Cruiser"
  56. "Galactic Explorer"
  57. "Planetary Probe"
  58. "Voyager"
  59. "Astroship"
  60. "Deep Space Explorer"
  61. "Cosmonaut Craft"))
  62. ;;; SHIP INFO ;;;
  63. (defun ship-info (player-ship-obj)
  64. (display-crew player-ship-obj)
  65. (display-inventory player-ship-obj))
  66. ;;; SHIP INFO END ;;;