home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Games / Xconq 7.0d16 / lib / gettysburg.g < prev    next >
Encoding:
Text File  |  1993-12-20  |  16.0 KB  |  651 lines  |  [TEXT/MPS ]
  1. (game-module "gettysburg"
  2.   (title "Gettysburg")
  3.   (blurb "The Battle of Gettysburg, 1-3 July 1863")
  4.   (instructions (
  5.    "Most of the brigades are off-board, will come in a few at a time; "
  6.    "the Confederates from the north and west, the Federals from the south."
  7.    ""
  8.    "You have to try to hold your positions, while at the same time "
  9.    "charging the enemy."
  10.    ""
  11.    "Artillery can be captured, so be sure to guard it."
  12.    ))
  13.   (variants
  14.     (see-all true)
  15.     ("Day/Night" eval (world (day-length 24)))
  16.     )
  17.   )
  18.  
  19. (unit-type infantry)
  20. (unit-type cavalry)
  21. (unit-type artillery (image-name "cannon"))
  22. (unit-type supply-train (image-name "wagon"))
  23.  
  24. (define inf infantry)
  25. (define cav cavalry)
  26. (define arty artillery)
  27.  
  28. (terrain-type clear (image-name "straw") (char "+"))
  29. (terrain-type rough (image-name "mountains") (char "^"))
  30. (terrain-type light-woods (char "%"))
  31. (terrain-type orchard)
  32. (terrain-type woods (image-name "forest") (char "%"))
  33. (terrain-type town (image-name "urban") (char "G"))
  34. (terrain-type stream (image-name "water") (subtype border))
  35. (terrain-type ravine (image-name "gully") (subtype border))
  36. (terrain-type trail (subtype connection))
  37. (terrain-type road (subtype connection))
  38.  
  39. (add t* elevation-min 0 #|550|#)
  40. (add t* elevation-max 50 #|600|#)
  41.  
  42. (set grid-color "gray")
  43.  
  44. ;;; Static relationships.
  45.  
  46. (add t* capacity 3)
  47.  
  48. (table unit-size-in-terrain
  49.   (u* t* 1)
  50.   (inf road 10)
  51.   (supply-train t* 0)
  52.   )
  53.  
  54. ;(add u* possible-sides (not "independent"))
  55.  
  56. ;;; Actions.
  57.  
  58. (add u* acp-per-turn (8 16 8 8))
  59.  
  60. ;; Night shuts things down considerably.
  61.  
  62. (table night-acp-effect
  63.   ;; 1/4 of normal abilities.
  64.   (u* t* 25)
  65.   ;; Infantry in open terrain can still move around somewhat.
  66.   (infantry clear 50)
  67.   ;; (should allow movement along roads at normal rate?)
  68.   )
  69.   
  70. ;;; Movement.
  71.  
  72. (table mp-to-enter-terrain
  73.   (u* t* 1)
  74.   (u* rough 99)
  75.   (inf rough 2)
  76.   ((cav arty) woods 4)
  77.   ((inf cav) stream 0)
  78.   ((cavalry arty) road 0)
  79.   )
  80.  
  81. (table mp-to-leave-terrain
  82.   (u* t* 1)
  83.   (u* rough 99)
  84.   (inf rough 2)
  85.   ((cav arty) woods 4)
  86.   ((cavalry arty) road 0)
  87.   )
  88.  
  89. (table mp-to-traverse
  90.   ((arty cavalry) road (2 1))
  91.   (supply-train (trail road) (2 1))
  92.   )
  93.  
  94. (table zoc-range
  95.   (inf inf 1) ; should be 2
  96.   )
  97.  
  98. (table mp-to-enter-zoc
  99.   (inf inf 4)
  100.   )
  101.  
  102. (table mp-to-traverse-zoc
  103.   (inf inf 4)
  104.   )
  105.  
  106. ;;; Repair.
  107.  
  108. (table acp-to-repair
  109.   (u* u* 4)
  110.   )
  111.  
  112. (table hp-per-repair
  113.   (u* u* 2)
  114.   )
  115.  
  116. ;;; Combat.
  117.  
  118. (add u* hp-max 8)
  119.  
  120. (table acp-to-attack
  121.   (u* u* 4)
  122.   (arty u* 0)
  123.   (supply-train u* 0)
  124.   )
  125.  
  126. (table acp-to-defend
  127.   (u* u* 4))
  128.  
  129. (table hit-chance
  130.   (u* u* 50)
  131.   (supply-train u* 0)
  132.   )
  133.  
  134. (table damage
  135.   (u* u* 1d3)
  136.   (supply-train u* 0)
  137.   )
  138.  
  139. (add arty range 5)  ;  (5 or 3 - need two types?)
  140.  
  141. (add arty acp-to-fire 8)
  142.  
  143. (table capture-chance
  144.   (infantry arty 30)
  145.   )
  146.  
  147. ;; Everybody bounces back over time.
  148.  
  149. (add u* hp-recovery 0.25)
  150.  
  151. ;;; Vision.
  152.  
  153. (set terrain-seen true)
  154.  
  155. (add u* vision-range 5)
  156.  
  157. (table visibility
  158.   (u* t* 100)
  159.   (u* (orchard light-woods) 50)
  160.   (u* woods 0)
  161.   )
  162.  
  163. ;;; The world.
  164.  
  165. (world 125000)
  166.  
  167. (area 50 36)
  168.  
  169. (area (terrain
  170.   "50a"
  171.   "aea2e5ae5a2e3ae9ae18a"
  172.   "ae8a2e5aea2e2ae7ae18a"
  173.   "9aeae5ae2ae2ae7ae18a"
  174.   "10ae39a"
  175.   "4ae23ae2ae4ae13a"
  176.   "13ad6ae8a3e4ae13a"
  177.   "ae4a2e5aed5ae3ae25a"
  178.   "ae12ae6ae3ad6a2e3ad12a"
  179.   "ae2ae2ae2ae3ae12a2e4ae16a"
  180.   "5aeae2aea2ead11a2e21a"
  181.   "10aead2ae2a3f6a3e8ae3ae7a"
  182.   "3ae3ae2a2e4ae2a2fe5a3e8a2e3ae6a"
  183.   "aeae3ae3ae4ae10a2e6ae2a3e3ae5a"
  184.   "aea2e2a2e2aead3ad6ae2a2ead4ae7a3e4a"
  185.   "2ae6a2e2ad3ae6a2ea3e15ae4a"
  186.   "2a2e4ad4ae3ae6a3ea3e19a"
  187.   "14ae2ae3ac4aea3eae10ae6a"
  188.   "15a3e5aea7ea2e6ae2a3ed2a"
  189.   "13ad2aeae5ae2a2ea2e2ae3a4e8a"
  190.   "12a2e3ae13ae10ae7a"
  191.   "11ae2ae2ae2ad3aea2eae3ae16a"
  192.   "7a2e2aea3e2ae10ae3ae5ae10a"
  193.   "7a2e2ae7a2d3a2e3ae3ae4a3e7aea"
  194.   "8a2e14a3ea3e10aead3a2ea"
  195.   "9a2e3aeaea2ead2e5a3eae14aea"
  196.   "10ae3aeae3ae2ae3c6ae8a3e3aea"
  197.   "14ae6ae2ae2c7aeae5ac3e4a"
  198.   "21ae2a4e6ae9a2c4a"
  199.   "21ad6e22a"
  200.   "18a3e2a5e9ae2a3e2ad4a"
  201.   "19ae4a2e2aead10a3e2ad3a"
  202.   "18a3e7a2e20a"
  203.   "19a2e3a3ea2e20a"
  204.   "25a2e2ae3ae3ae3a3e6a"
  205.   "50a"
  206. ))
  207.  
  208. (area (aux-terrain stream
  209.   "50a"
  210.   "6agq7acy33a"
  211.   "6agL8ahq32a"
  212.   "6acT8agL32a"
  213.   "7ahq7acXi31a"
  214.   "7acXi7ab?y30a"
  215.   "8ab?y8ahq29a"
  216.   "10ahq7acT29a"
  217.   "10acT8ap}4aem22a"
  218.   "11ady7adU<3agM<21a"
  219.   "12ahq7ady3agL22a"
  220.   "12agL8ahq2agL22a"
  221.   "12agL8acT2agL22a"
  222.   "12agL9adyagL22a"
  223.   "12agL10adygL22a"
  224.   "12agL11ad:L22a"
  225.   "12acT12ahL22a"
  226.   "13ahq11agL22a"
  227.   "13agL11acT22a"
  228.   "13agL12ady21a"
  229.   "13acTgq11ady20a"
  230.   "14ahwL12ady19a"
  231.   "8ae2mi2acZL13ady18a"
  232.   "8acM=?y2ahL14ahq17a"
  233.   "12ad}igL14acT17a"
  234.   "13abCwL15ahqae14a"
  235.   "14agNT15acXicT13a"
  236.   "14agLhq14aenKqhq12a"
  237.   "14acTgL15a?YDgL12a"
  238.   "15ad:T16abC:L12a"
  239.   "16ab?y12ac}2moM<12a"
  240.   "18ahq12ab=CYH2m11a"
  241.   "18agL14acU3=<10a"
  242.   "18agL15ady13a"
  243.   "18acL16adq12a"
  244.   "50a"
  245. ))
  246.  
  247. (area (aux-terrain ravine
  248.   "50a"
  249.   "7agq41a"
  250.   "7agL14ai26a"
  251.   "7acT14ad}3agq20a"
  252.   "8ahq14ab<3a<20a"
  253.   "9a<40a"
  254.   "50a"
  255.   "50a"
  256.   "50a"
  257.   "35ai14a"
  258.   "35ady13a"
  259.   "34agqdy12a"
  260.   "18ae15agLab12a"
  261.   "18agL14agL14a"
  262.   "18agL14acL14a"
  263.   "18agL30a"
  264.   "19a<14agq14a"
  265.   "34agL4ae9a"
  266.   "34agL4acL8a"
  267.   "34acT4ae9a"
  268.   "35ahqeiaoL8a"
  269.   "35agLgMab<8a"
  270.   "36a<a<11a"
  271.   "50a"
  272.   "50a"
  273.   "50a"
  274.   "50a"
  275.   "50a"
  276.   "50a"
  277.   "50a"
  278.   "50a"
  279.   "50a"
  280.   "50a"
  281.   "50a"
  282.   "50a"
  283.   "50a"
  284. ))
  285.  
  286. (area (aux-terrain trail
  287.   "50a"
  288.   "19ae30a"
  289.   "20a@29a"
  290.   "21a>u27a"
  291.   "23a@3ac}21a"
  292.   "24a@3aj>u19a"
  293.   "25a>uaj2a>u17a"
  294.   "27a@j4a@4ai11a"
  295.   "28aE5a@3aj11a"
  296.   "27akr6a@2aj11a"
  297.   "27aj8a@aj11a"
  298.   "27aj9a@j11a"
  299.   "18ai8af10aE11a"
  300.   "18aj9aD9aj11a"
  301.   "18aj9aj9aj11a"
  302.   "18ab9aj9aj11a"
  303.   "28af9aj11a"
  304.   "7ae21aD8af11a"
  305.   "8aD20aj9aD10a"
  306.   "8af20aj9aj10a"
  307.   "9aD18akr9aj10a"
  308.   "9af18aj10aj10a"
  309.   "10a>u12ak3sv10aj10a"
  310.   "12a@7acu2aj4aD9af10a"
  311.   "13a>s2{su3a>uj4an10aD9a"
  312.   "15a2j2a>q3a?suakr@6ai2aj9a"
  313.   "15a2f10a>r2a@5aj2aj9a"
  314.   "16a2D9acsu2a@4aj2ab9a"
  315.   "16a2j12a>ua@3aj12a"
  316.   "16ajn14a>sP2aj12a"
  317.   "14acstr@2ae13a>wr12a"
  318.   "19a@2a@14a@12a"
  319.   "20a@2a@7aksu4aD11a"
  320.   "21a<2a>6sr2a>3sr11a"
  321.   "50a"
  322.   "50a"
  323. ))
  324.  
  325. (area (aux-terrain road
  326.   "50a"
  327.   "7ae4ae2ai3ai10aksq17a"
  328.   "8a>u3a@aj3aj8aksr19a"
  329.   "acu7a@3a@f3aj7akr21a"
  330.   "3a>u6a@3a@D2aj5aksr22a"
  331.   "5a>u5a>u2aE2aj4akr24a"
  332.   "7a>u5a@af2aj4aj25a"
  333.   "9a>u4a@aDaj3akr25a"
  334.   "11a>u3a@faj2akr26a"
  335.   "13a>u2a@Djakr27a"
  336.   "15a>uaAnkr28a"
  337.   "17a>q=?2su26a"
  338.   "15ak3syi3a>su23a"
  339.   "13aksr3a2f6a>su20a"
  340.   "12akr6aDH8a>3su15a"
  341.   "10aksr7apr@12a>3su10a"
  342.   "8aksr9aj@a@16a>2su6a"
  343.   "6aksr11ajaDa@19a>3sqa"
  344.   "4aksr13ajaf2a@24a"
  345.   "3acr15aj2a@2a@23a"
  346.   "20aj3a@2a@22a"
  347.   "20aj4aD2a>su19a"
  348.   "20aj4af5a@18a"
  349.   "20aj5aD5a>u16a"
  350.   "20aj5af7a>u14a"
  351.   "20af6aD8a>u12a"
  352.   "21aD5aj10a>u10a"
  353.   "21aj5af12a>u8a"
  354.   "21aj6a@13a>u6a"
  355.   "21aj7aD14a>u4a"
  356.   "21aj7af16a>u2a"
  357.   "21aj8aD17a<a"
  358.   "21aj8af19a"
  359.   "21aj9aD18a"
  360.   "21ab9ab18a"
  361.   "50a"
  362. ))
  363.  
  364. (area (features (
  365.    (17 "ridge" "Seminary *")
  366.    (16 "town" "Gettysburg")
  367.    (15 "hill" "Barlow's *")
  368.    (14 "hill" "Granite *")
  369.    (13 "hill" "Oak *")
  370.    (12 "hill" "Benner's *")
  371.    (11 "hill" "Wolf *")
  372.    (10 "hill" "Culp's *")
  373.    (9 "hill" "Power's *")
  374.    (8 "hill" "Cemetery *")
  375.    (7 "hill" "Little Round Top")
  376.    (6 "hill" "Big Round Top")
  377.    (5 "ridge" "Cress *")
  378.    (4 "ridge" "Warfield *")
  379.    (3 "ridge" "Cemetery *")
  380.    (2 "ridge" "McPherson's *")
  381.    (1 "ridge" "Herr *")
  382.   )
  383.   "50a"
  384.   "50a"
  385.   "50a"
  386.   "33ao16a"
  387.   "50a"
  388.   "50a"
  389.   "8ab41a"
  390.   "8a2b40a"
  391.   "7a3b40a"
  392.   "7a3b3ac36a"
  393.   "7a3b3ac36a"
  394.   "7a2b4a2c3a3q3am25a"
  395.   "8ab5ac4a2q29a"
  396.   "8ab5ac35a"
  397.   "8ab12ad28a"
  398.   "8ab12aidak25a"
  399.   "9ab11a2d6al20a"
  400.   "21a2d27a"
  401.   "21a2d27a"
  402.   "22ad27a"
  403.   "23ad26a"
  404.   "24ad2ad22a"
  405.   "25ad24a"
  406.   "26ad23a"
  407.   "25ab24a"
  408.   "50a"
  409.   "26ah23a"
  410.   "26ah23a"
  411.   "50a"
  412.   "26ag23a"
  413.   "50a"
  414.   "50a"
  415.   "50a"
  416.   "50a"
  417.   "50a"
  418.   "50a"
  419. ))
  420.  
  421. (area (elevations
  422.   "50a"
  423.   "a5ba3bc12a6b21a"
  424.   "a5ba2babc12a5b21a"
  425.   "a2b2aba2babc12a5b21a"
  426.   "a2b5a2babc11a2b24a"
  427.   "ab6a2b2a2b10a2b24a"
  428.   "8ab3a2b10a2b24a"
  429.   "8a2b3ab10a2b24a"
  430.   "7a3b3a2b9a2b24a"
  431.   "7a3b3a2b9a2b24a"
  432.   "7a3b3abab8a2b24a"
  433.   "7a2b4abab8ab25a"
  434.   "8ab5abab7ab25a"
  435.   "8ab5abab33a"
  436.   "8ab5ab2ab3ac28a"
  437.   "8ab8ab3a2c27a"
  438.   "9ab7ab3a2c27a"
  439.   "21a2c27a"
  440.   "21a2b27a"
  441.   "22a2b26a"
  442.   "23ab26a"
  443.   "27ab22a"
  444.   "25ab24a"
  445.   "26ab23a"
  446.   "25ab24a"
  447.   "50a"
  448.   "26ac23a"
  449.   "26ac23a"
  450.   "50a"
  451.   "26ac23a"
  452.   "50a"
  453.   "50a"
  454.   "50a"
  455.   "50a"
  456.   "50a"
  457.   "50a"
  458. ))
  459.  
  460. (side 1 (name "US") (adjective "Union")
  461.   (emblem-name "flag-usa") (names-locked true))
  462.  
  463. (side 2 (name "CSA") (adjective "Confederate")
  464.   (emblem-name "flag-csa") (names-locked true))
  465.  
  466. (set sides-min 2)
  467. (set sides-max 2)
  468.  
  469. (set advantage-default 1)
  470. (set advantage-min 1)
  471. (set advantage-max 1)
  472.  
  473. #|  ; McPherson's Ridge scenario
  474. (infantry 13 25 1  (n "1 Meredith"))
  475. (infantry 14 27 1  (n "2 Cutler"))
  476. (infantry 13 29 1  (n "3 Paul"))
  477. (infantry 13 28 1  (n "4 Baxter"))
  478. (infantry 14 24 1  (n "5 Rowley"))
  479. (infantry 13 26 1  (n "6 Stone"))
  480. (artillery 14 26 1  (n "7 Wainwright a"))
  481. (artillery 14 24 1  (n "8 Wainwright b"))
  482. (infantry 14 24 1  (n "5 Rowley"))
  483. (infantry 13 26 1  (n "6 Stone"))
  484. |#
  485.  
  486. (inf -21 -1 1 (n "Meredith") (cp -1) (x (appear 3)))
  487. (inf -21 -1 1 (n "Cutler") (cp -1) (x (appear 3)))
  488. (inf -21 -1 1 (n "Paul") (cp -1) (x (appear 4)))
  489. (inf -21 -1 1 (n "Baxter") (cp -1) (x ((appear 4))))
  490. (inf -3 -16 1 (n "Rowley") (cp -1) (x (appear 6)))
  491. (inf -3 -16 1 (n "Stone") (cp -1) (x (appear 6)))
  492. (arty -21 -1 1 (n "Wainwright 1") (cp -1) (x (appear 5)))
  493. (arty -21 -1 1 (n "Wainwright 2") (cp -1) (x (appear 5)))
  494. (inf -31 -1 1 (n "Cross") (cp -1) (x (appear 18)))
  495. (inf -31 -1 1 (n "Kelly") (cp -1) (x (appear 18)))
  496. (inf -31 -1 1 (n "Zook") (cp -1) (x (appear 18)))
  497. (inf -31 -1 1 (n "Brooke") (cp -1) (x (appear 19)))
  498. (inf -31 -1 1 (n "Harrow") (cp -1) (x (appear 19)))
  499. (inf -31 -1 1 (n "Webb") (cp -1) (x (appear 19)))
  500. (inf -31 -1 1 (n "Hall") (cp -1) (x (appear 20)))
  501. (inf -31 -1 1 (n "Carroll") (cp -1) (x (appear 20)))
  502. (inf -31 -1 1 (n "Smyth") (cp -1) (x (appear 20)))
  503. (inf -31 -1 1 (n "Willard") (cp -1) (x (appear 21)))
  504. (arty -31 -1 1 (n "Hazard 1") (cp -1) (x (appear 21)))
  505. (arty -31 -1 1 (n "Hazard 2") (cp -1) (x (appear 21)))
  506. (inf -21 -1 1 (n "Graham") (cp -1) (x (appear 12)))
  507. (inf -21 -1 1 (n "Ward") (cp -1) (x (appear 12)))
  508. (inf -21 -1 1 (n "de Trobriand") (cp -1) (x (appear 27)))
  509. (inf -21 -1 1 (n "Carr") (cp -1) (x (appear 13)))
  510. (inf -21 -1 1 (n "Brewster") (cp -1) (x (appear 13)))
  511. (inf -21 -1 1 (n "Burling") (cp -1) (x (appear 27)))
  512. (arty -21 -1 1 (n "Rand a") (cp -1) (x (appear 12)))
  513. (arty -21 -1 1 (n "Rand b") (cp -1) (x (appear 14)))
  514. (inf -43 -19 1 (n "Tilton") (cp -1) (x (appear 27)))
  515. (inf -43 -19 1 (n "Schweitzer") (cp -1) (x (appear 27)))
  516. (inf -43 -19 1 (n "Vincent") (cp -1) (x (appear 27)))
  517. (inf -43 -19 1 (n "Day") (cp -1) (x (appear 28)))
  518. (inf -43 -19 1 (n "Burbank") (cp -1) (x (appear 28)))
  519. (inf -43 -19 1 (n "Weed") (cp -1) (x (appear 28)))
  520. (inf -43 -19 1 (n "McCandless") (cp -1) (x (appear 31)))
  521. (inf -43 -19 1 (n "Fisher") (cp -1) (x (appear 32)))
  522. (arty -43 -19 1 (n "Martin a") (cp -1) (x (appear 29)))
  523. (arty -43 -19 1 (n "Martin b") (cp -1) (x (appear 29)))
  524. (inf -48 -4 1 (n "Torbert") (cp -1) (x (appear 34)))
  525. (inf -48 -4 1 (n "Bartlett") (cp -1) (x (appear 34)))
  526. (inf -48 -4 1 (n "Russell") (cp -1) (x (appear 34)))
  527. (inf -48 -4 1 (n "Grant") (cp -1) (x (appear 35)))
  528. (inf -48 -4 1 (n "Neill") (cp -1) (x (appear 35)))
  529. (inf -48 -4 1 (n "Shaler") (cp -1) (x (appear 35)))
  530. (inf -48 -4 1 (n "Eustis") (cp -1) (x (appear 36)))
  531. (inf -48 -4 1 (n "Wheaton") (cp -1) (x (appear 36)))
  532. (arty -48 -4 1 (n "Tompkins a") (cp -1) (x (appear 37)))
  533. (arty -48 -4 1 (n "Tompkins b") (cp -1) (x (appear 37)))
  534. (arty -48 -4 1 (n "Tompkins c") (cp -1) (x (appear 37)))
  535. (inf -21 -1 1 (n "von Gilsa") (cp -1) (x (appear 6)))
  536. (inf -21 -1 1 (n "Ames") (cp -1) (x (appear 6)))
  537. (inf -31 -1 1 (n "Coster") (cp -1) (x (appear 8)))
  538. (inf -31 -1 1 (n "Smith") (cp -1) (x (appear 8)))
  539. (inf -31 -1 1 (n "Schimmelfenning") (cp -1) (x (appear 6)))
  540. (inf -31 -1 1 (n "Krzyzanowski") (cp -1) (x (appear 6)))
  541. (arty -31 -1 1 (n "Osborn a") (cp -1) (x (appear 7)))
  542. (arty -31 -1 1 (n "Osborn b") (cp -1) (x (appear 7)))
  543. (inf -48 -4 1 (n "McDougall") (cp -1) (x (appear 10)))
  544. (inf -48 -4 1 (n "Ruger") (cp -1) (x (appear 10)))
  545. (inf -48 -4 1 (n "Candy") (cp -1) (x (appear 10)))
  546. (inf -48 -4 1 (n "Kane") (cp -1) (x (appear 11)))
  547. (inf -48 -4 1 (n "Greene") (cp -1) (x (appear 11)))
  548. (arty -48 -4 1 (n "Muhlenburg 1") (cp -1) (x (appear 12)))
  549. (arty -48 -4 1 (n "Muhlenburg 2") (cp -1) (x (appear 12)))
  550. (inf -21 -1 1 (n "Stannard") (cp -1) (x (appear 11)))
  551. (inf -48 -4 1 (n "Lockwood") (cp -1) (x (appear 25)))
  552. (arty -31 -1 1 (n "Ransom") (cp -1) (x (appear 24)))
  553. (arty -31 -1 1 (n "McGilvey") (cp -1) (x (appear 28)))
  554. (arty -31 -1 1 (n "Taft") (cp -1) (x (appear 24)))
  555. (arty -31 -1 1 (n "Huntington") (cp -1) (x (appear 25)))
  556. (arty -31 -1 1 (n "Fitzhugh") (cp -1) (x (appear 25)))
  557. (cav 20 24 1 (n "Gamble"))
  558. (cav 20 23 1 (n "Devin"))
  559. (cav -43 -19 1 (n "McIntosh") (cp -1) (x (appear 36)))
  560. (cav -43 -19 1 (n "Gregg") (cp -1) (x (appear 36)))
  561. (cav -43 -19 1 (n "Farnsworth") (cp -1) (x (appear 57)))
  562. (cav -43 -19 1 (n "Custer") (cp -1) (x (appear 57)))
  563. (supply-train -48 -4 1 (cp -1) (x (appear 16)))
  564.  
  565. (inf -1 -32 2 (n "Anderson") (cp -1) (x (appear 18)))
  566. (inf -1 -32 2 (n " Benning") (cp -1) (x (appear 18)))
  567. (inf -1 -32 2 (n "Law") (cp -1) (x (appear 31)))
  568. (inf -1 -32 2 (n "Robertson") (cp -1) (x (appear 18)))
  569. (arty -1 -32 2 (n "Henry") (cp -1) (x (appear 19)))
  570. (inf -1 -32 2 (n "Barksdale") (cp -1) (x (appear 19)))
  571. (inf -1 -32 2 (n "Kershaw") (cp -1) (x (appear 19)))
  572. (inf -1 -32 2 (n "Semmes") (cp -1) (x (appear 20)))
  573. (inf -1 -32 2 (n "Wofford") (cp -1) (x (appear 20)))
  574. (arty -1 -32 2 (n "Cabell") (cp -1) (x (appear 20)))
  575. (inf -1 -32 2 (n "Armisted") (cp -1) (x (appear 36)))
  576. (inf -1 -32 2 (n "Garnett") (cp -1) (x (appear 36)))
  577. (inf -1 -32 2 (n "Kemper") (cp -1) (x (appear 36)))
  578. (arty -1 -32 2 (n "Dearing") (cp -1) (x (appear 37)))
  579. (inf -1 -32 2 (n "Alexander") (cp -1) (x (appear 21)))
  580. (inf -1 -32 2 (n "Eshleman") (cp -1) (x (appear 21)))
  581. (inf -19 -34 2 (n "Gordon") (cp -1) (x (appear 9)))
  582. (inf -19 -34 2 (n "Hays") (cp -1) (x (appear 9)))
  583. (inf -19 -34 2 (n "Hoke") (cp -1) (x (appear 9)))
  584. (inf -19 -34 2 (n "Smith") (cp -1) (x (appear 10)))
  585. (arty -19 -34 2 (n "H. Jones") (cp -1) (x (appear 10)))
  586. (inf -1 -32 2 (n "Jones") (cp -1) (x (appear 13)))
  587. (inf -1 -32 2 (n "Nicholls") (cp -1) (x (appear 13)))
  588. (inf -1 -32 2 (n "Steuart") (cp -1) (x (appear 13)))
  589. (inf -1 -32 2 (n "Walker") (cp -1) (x (appear 14)))
  590. (arty -1 -32 2 (n "Latimer") (cp -1) (x (appear 14)))
  591. (inf -7 -34 2  (n "Daniel") (cp -1) (x (appear 7)))
  592. (inf -7 -34 2 (n "Doles") (cp -1) (x (appear 7)))
  593. (inf -7 -34 2 (n "Iverson") (cp -1) (x (appear 7)))
  594. (inf -7 -34 2 (n "O'Neal") (cp -1) (x (appear 8)))
  595. (inf -7 -34 2  (n "Ramseur") (cp -1) (x (appear 8)))
  596. (arty -1 -32 2 (n "Carter") (cp -1) (x (appear 8)))
  597. (arty -1 -32 2 (n "Dance") (cp -1) (x (appear 15)))
  598. (arty -1 -32 2 (n "Nelson") (cp -1) (x (appear 15)))
  599. (inf -1 -32 2 (n "Mahone") (cp -1) (x (appear 12)))
  600. (inf -1 -32 2 (n "Perry") (cp -1) (x (appear 12)))
  601. (inf -1 -32 2 (n "Posey") (cp -1) (x (appear 12)))
  602. (inf -1 -32 2 (n "Wilcox") (cp -1) (x (appear 13)))
  603. (inf -1 -32 2 (n "Wright") (cp -1) (x (appear 13)))
  604. (arty -1 -32 2 (n "J. Lane") (cp -1) (x (appear 13)))
  605. (inf 5 30 2 (n "Archer"))
  606. (inf -1 -32 2 (n "Brockenbrough") (cp -1) (x (appear 4)))
  607. (inf 5 30 2 (n "Davis"))
  608. (inf -1 -32 2 (n "Pettigrew") (cp -1) (x (appear 4)))
  609. (inf -1 -32 2 (n "J. Garnet") (cp -1) (x (appear 4)))
  610. (inf -1 -32 2 (n "Lane") (cp -1) (x (appear 7)))
  611. (inf -1 -32 2 (n "Perrin") (cp -1) (x (appear 7)))
  612. (inf -1 -32 2 (n "Scales") (cp -1) (x (appear 7)))
  613. (inf -1 -32 2 (n "Thomas") (cp -1) (x (appear 8)))
  614. (arty -1 -32 2 (n "Poague") (cp -1) (x (appear 8)))
  615. (arty -1 -32 2 (n "McIntosh") (cp -1) (x (appear 5)))
  616. (arty -1 -32 2 (n "Pegram") (cp -1) (x (appear 3)))
  617. (cav -19 -34 2 (n "Hampton") (cp -1) (x (appear 33)))
  618. (cav -19 -34 2 (n "Jenkins") (cp -1) (x (appear 10)))
  619. (cav -19 -34 2 (n "F. Lee") (cp -1) (x (appear 33)))
  620. (cav -19 -34 2 (n "W. Lee") (cp -1) (x (appear 33)))
  621.  
  622. (supply-train -1 -32 2 (cp -1) (x (appear 16)))
  623.  
  624. ;;; Should be more elaborate.
  625.  
  626. (scorekeeper (do last-side-wins))
  627.  
  628. ;;; We get at least three days.
  629.  
  630. (set last-turn 72)
  631.  
  632. ;;; ... and possibly another few hours.
  633.  
  634. (set extra-turn-chance 10)
  635.  
  636. (set calendar '(usual "hour"))
  637.  
  638. (set initial-date "06 1 Jul 1863")
  639.  
  640. ;; The game starts at six hours before noon.
  641.  
  642. (set initial-day-part 0)
  643.  
  644. (game-module (design-notes (
  645.   "This is a brigade-level simulation, inspired by the game described in"
  646.   "the July-Aug 1992 issue of Command."
  647.   ""
  648.   "The scale is 5 hexes/mile, 1 hour/turn."
  649.   )))
  650.  
  651.