This is the mail archive of the
xconq7@sources.redhat.com
mailing list for the Xconq project.
cleanups in roman.g
- To: xconq7 at sources dot redhat dot com
- Subject: cleanups in roman.g
- From: Jim Kingdon <kingdon at panix dot com>
- Date: Tue, 10 Apr 2001 02:54:00 -0400 (EDT)
Here are some cleanups in roman.g. Do these look right? In
particular, I wasn't able to test the one about lost-*-chance (in my
test game, the AI wouldn't surrender - which I'm assuming was a
separate problem/bug).
2001-04-09 Jim Kingdon <kingdon@panix.com>
* lib/roman.g: Set acp-per-turn for camp to 0. Set
hp-recovery for tribe and camp (just like the rest of the
units). Add docstring describing the
barbarian/civilized/roman thing. When a side loses, have its
cities/tribes revolt rather than vanishing.
Index: roman.g
===================================================================
RCS file: /cvs/xconq/xconq/lib/roman.g,v
retrieving revision 1.2
diff -u -r1.2 roman.g
--- roman.g 2000/11/22 16:36:16 1.2
+++ roman.g 2001/04/10 04:58:29
@@ -5,7 +5,14 @@
(notes
("The Roman Republic and Empire from 100 BC to 200 AD."
""
- "Massimo Campostrini <campo@mailbox.difi.unipi.it>"
+ "Sides are barbarian (which cannot have units of type urbs,"
+ "siege-engine, trireme, or legion), civilized (which cannot"
+ "have units of type legion), or roman (which can have any"
+ "type units). Barbarian sides are Aedui or Teutones."
+ "Civilized sides are Parthia, Macedonia, or Carthago. Roman"
+ "sides are Marius or Sulla."
+ ""
+ "Massimo Campostrini <campo@mailbox.difi.unipi.it> et al"
))
(variants
(world-seen false)
@@ -197,7 +204,7 @@
;;; Actions.
; i c a L B T U S / X V * @
-(add u* acp-per-turn ( 2 8 2 4 4 4 2 1 1 2 1 2 4))
+(add u* acp-per-turn ( 2 8 2 4 4 4 2 1 0 2 1 2 4))
(add movers acp-min (-2 -8 -2 -4 -4 -4 -3 -3 -2))
;;; Movement.
@@ -275,6 +282,7 @@
;; Automatic repair work.
(add troops hp-recovery 0.25)
(add ships hp-recovery 0.25)
+(add (/ V) hp-recovery 0.25)
(add cities hp-recovery 0.50)
;;; Production.
@@ -377,6 +385,11 @@
(table surrender-range (u* u* 1))
(add u* acp-to-change-side 1)
+
+;; Fate of units when a side loses.
+; Everything else vanishes.
+(add (X V * @) lost-vanish-chance 0)
+(add (X V * @) lost-revolt-chance 10000)
(add u* point-value 0)
(add makers point-value (1 1 3 9))