home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / lib / magellan.g < prev    next >
Encoding:
Text File  |  1996-04-04  |  4.5 KB  |  197 lines  |  [TEXT/XCNQ]
  1. (game-module "magellan"
  2.   (title "Magellan")
  3.   (blurb "Try to circumnavigate the world and bring back treasure")
  4.   (base-module "voyages")
  5.   (instructions (
  6.   "Take your fleet and crew and try to sail around the world."
  7.   ""
  8.   "Be careful not to get lost or wreck your ships,"
  9.   "don't run out of food and water, and look for treasure."
  10.   ))
  11.   )
  12.  
  13. ;;; Modify the basic game to increase the amount of what's already known.
  14.  
  15. (add city initial-seen-radius 10)
  16.  
  17. (add fleet image-name "caravel-fleet-spain")
  18.  
  19. ;;; Use the big map of the world.
  20.  
  21. (include "earth-1deg")
  22.  
  23. ;;; One specific side only.
  24.  
  25. (set sides-max 1)
  26.  
  27. (side 1 (name "Spain") (noun "Spaniard") (adjective "Spanish")
  28.   (emblem-name "flag-spain-old")
  29.   (names-locked true)
  30.   )
  31.  
  32. ;;; Suppress creation of any other units.
  33.  
  34. (add u* start-with 0)
  35.  
  36. ;;; Magellan starts out near Madrid.
  37.  
  38. (explorer 125 105 1 (n "Magellan")
  39.   (x (remark "Our hero"))
  40.   )
  41.  
  42. (crew 123 103 1)
  43.  
  44. (fleet 124 102 1)   ; should start in Cadiz perhaps
  45.  
  46. ;;; Set up some European cities of Magellan's time.
  47.  
  48. (city 124 103 1 (n "Cadiz"))
  49. (city 126 106 1 (n "Madrid"))
  50. (city 122 104 0 (n "Lisbon"))
  51. (city 125 104 1 (n "Cordoba"))
  52. (city 128 107 1 (n "Zaragoza"))
  53. (city 131 107 1 (n "Barcelona"))
  54.  
  55. (side 1 (terrain-view
  56.   "360a"
  57.   "360a"
  58.   "360a"
  59.   "130a3b227a"
  60.   "120a15b2a4b219a"
  61.   "102ab16a23b218a"
  62.   "99a12b4a2ba25b217a"
  63.   "97a49b214a"
  64.   "93a54b213a"
  65.   "91a57b212a"
  66.   "90a59b211a"
  67.   "90a60b210a"
  68.   "90a61b209a"
  69.   "90a62b208a"
  70.   "76a2b12a63b207a"
  71.   "76a4b10a64b206a"
  72.   "76a6b9a64b205a"
  73.   "92a65b203a"
  74.   "94a66b200a"
  75.   "95a66b199a"
  76.   "96a66b198a"
  77.   "96a67b197a"
  78.   "93a70b197a"
  79.   "88a76b196a"
  80.   "79a87b194a"
  81.   "72a24b3a73b188a"
  82.   "66a26b6a76b186a"
  83.   "65a18b14a78b185a"
  84.   "64a12b20a73ba6b184a"
  85.   "62a7b26a82b183a"
  86.   "62a7b25a83b183a"
  87.   "62a5b26a84b183a"
  88.   "61a6b22a83b188a"
  89.   "60a6b23a12ba70b188a"
  90.   "62a2b23a12b2a71b188a"
  91.   "86a12b2a72b188a"
  92.   "84a14ba73b188a"
  93.   "83a7b3a3b2a73b189a"
  94.   "81a9b7a74b189a"
  95.   "80a15ba40b5a30b189a"
  96.   "76a59b7a29b189a"
  97.   "76a54b13a28b189a"
  98.   "74a54b16a27b9a5b175a"
  99.   "39a13b22a18b2a34b20a24b8a7b173a"
  100.   "39a21b13a18b4a33b21a24b8a8b171a"
  101.   "38a24b10a18ba37b35a11b8a12b166a"
  102.   "38a29b5a55b37a10b9a13b6a2b156a"
  103.   "36a34b2a55b40a7b10a21b51a2b102a"
  104.   "36a89b43a7b10a23b48a3b101a"
  105.   "34a91b44a7b10a26b42a5b101a"
  106.   "35a90b43a9b10a26b38a8b101a"
  107.   "35a90b43a10b12a4ba19b12a5b19a9b101a"
  108.   "36a88b45a3b2a7b16a18b9a8b17a8b103a"
  109.   "37a87b45a4b2a7b14a19b8a10b16a7b104a"
  110.   "38a12b2a73b45a4b2a7b12a20b7a13b15a3b107a"
  111.   "40a10b2a74b45a4b2a8b10a21b6a14b14a4b106a"
  112.   "43a7b2a74b46a3b4a7b5a25b4a16b14a4b106a"
  113.   "49ab2a41b5a29b46a3b4a7b4a26b3a20b10a4b106a"
  114.   "53a40b4a30b47a3b4a37b2a21b9a3b107a"
  115.   "58a36b2a31b48a2b5a37ba9ba11b10a3b106a"
  116.   "59a70b55a19b5a12ba7b5a9ba2b6a3b106a"
  117.   "60a40b2a28b55a17b8a11ba6b7a13b3a4b105a"
  118.   "59a40b2a29b56a16b11a15b8a13b3a3b105a"
  119.   "59a38b4a30b56a7ba7b12a8ba6b8a18b105a"
  120.   "60a10b2a3ba22b3a32b56a3b3a7b13a14b9a17b105a"
  121.   "61a10b2a2b9a45ba4b61a6b16a13b9a16b105a"
  122.   "62a9b15a43b2a5b59a6b17a13b9a13b107a"
  123.   "68a4b15a42b3a5b8a7b43a6b19a11b10a10b109a"
  124.   "69a3b17a39b5a20b2a2b38a6b21a10b10a10b108a"
  125.   "94a34b8a22b36a7b26a5b10a3ba7b107a"
  126.   "96a31b10a12b3a7b35a7b42a11b16a5b85a"
  127.   "97a29b14a3b10a6b34a7b44a13b10a9b84a"
  128.   "98a28b31a3b32a8b45a14b8a10b83a"
  129.   "99a26b33a3b30a9b45a5ba9b7a12b81a"
  130.   "99a26b33a3b30a8b47a15b6a15b78a"
  131.   "100a25b33a3b29a9b48a6ba8b5a16b77a"
  132.   "101a2b3a18b35a4b27a8b52a4b2a29b75a"
  133.   "108a15b37a4b27a7b53a4b2a29b74a"
  134.   "112a11b38a4b26a6b55a34b74a"
  135.   "114a9b40a4b24a5b58a33b73a"
  136.   "117a5b42a4b23a5b59a34b71a"
  137.   "107ab10a3b44a3b24a5b60a33b70a"
  138.   "118a4b43a3b25a5b62a30b70a"
  139.   "118a4b44a3b25a6b61a26b73a"
  140.   "118a4b45a3b25a7ba4b59a20b74a"
  141.   "117a4b46a4b25a12b59a17b76a"
  142.   "117a4b46a4b25a13b151a"
  143.   "117a4b47a3b26a13b150a"
  144.   "117a3b48a3b26a15b148a"
  145.   "118a3b47a3b26a9ba6b147a"
  146.   "118a3b48a3b25a8b2a7b146a"
  147.   "118a4b47a3b22a10b3a8b145a"
  148.   "118a5b47a3b21a10b3a8b145a"
  149.   "119a5b47a3b20a11b3a10b142a"
  150.   "119a6b47a3b19a11b3a11b141a"
  151.   "118a8b47a3b19a10b3a11b141a"
  152.   "116a12b45a4b19a10b2a11b141a"
  153.   "114a7b2a10b41a4b18a11ba4b148a"
  154.   "114a7b3a22b29a3b17a16b149a"
  155.   "113a6b5a26b26a3b16a16b149a"
  156.   "113a4b8a29b22a3b15a17b149a"
  157.   "114a3b9a2b2a3b8a3b2a14b17a3b14a12ba4b149a"
  158.   "114a3b33a12b16a4b12a7b159a"
  159.   "113a4b37a12b13a4b12a5b160a"
  160.   "113a4b42a12b9a4b11a4b161a"
  161.   "112a5b44a14b2a2b2a4b9a5b161a"
  162.   "108a2b2a4b50a15ba3b9a4b162a"
  163.   "108a8b54a16ba11b162a"
  164.   "109a6b60a22b163a"
  165.   "110a5b66a16b163a"
  166.   "186a4b170a"
  167.   "360a"
  168.   "360a"
  169.   "360a"
  170.   "360a"
  171.   "360a"
  172.   "360a"
  173.   "360a"
  174.   "360a"
  175.   "360a"
  176.   "360a"
  177.   "360a"
  178.   "360a"
  179.   "360a"
  180.   "360a"
  181.   "360a"
  182.   "360a"
  183.   "360a"
  184.   "360a"
  185.   "360a"
  186.   "360a"
  187.   "360a"
  188.   "360a"
  189.   "360a"
  190.   "360a"
  191.   "360a"
  192.   "360a"
  193.   "360a"
  194.   "360a"
  195.   "360a"
  196. ))
  197.