stratagus-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Stratagus-CVS] stratagus doc/ChangeLog.html doc/ccl/config.htm...


From: Russell Smith
Subject: [Stratagus-CVS] stratagus doc/ChangeLog.html doc/ccl/config.htm...
Date: Sun, 21 Sep 2003 05:31:55 -0400

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Russell Smith <address@hidden>  03/09/21 05:31:54

Modified files:
        doc            : ChangeLog.html 
        doc/ccl        : config.html unittype.html 
        src/clone      : unit.c 
        src/include    : unittype.h 
        src/unit       : ccl_unittype.c unittype.c 
        data/ccl       : units.ccl 
        data/ccl/human : units.ccl 
        data/ccl/orc   : units.ccl 

Log message:
        Made explode-when-killed define a missile

Patches:
Index: stratagus/data/ccl/human/units.ccl
diff -u stratagus/data/ccl/human/units.ccl:1.36 
stratagus/data/ccl/human/units.ccl:1.37
--- stratagus/data/ccl/human/units.ccl:1.36     Sat Sep 20 05:03:40 2003
+++ stratagus/data/ccl/human/units.ccl  Sun Sep 21 05:31:53 2003
@@ -26,7 +26,7 @@
 ;;      along with this program; if not, write to the Free Software
 ;;      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  
USA
 ;;
-;;     $Id: units.ccl,v 1.36 2003/09/20 09:03:40 mr-russ Exp $
+;;     $Id: units.ccl,v 1.37 2003/09/21 09:31:53 mr-russ Exp $
 
 ;;=============================================================================
 ;;     Define unit-types.
@@ -130,7 +130,7 @@
   'priority 70
   'points 100
   'demand 1
-  'explode-when-killed
+  'explode-when-killed 'missile-explosion
   'type-land
   'right-attack
   'can-ground-attack
@@ -822,6 +822,7 @@
   'points 100
   'supply 4
   'corpse '(unit-destroyed-2x2-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -851,6 +852,7 @@
   'priority 30 'annoy-computer-factor 35
   'points 160
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -880,6 +882,7 @@
   'priority 15 'annoy-computer-factor 35
   'points 240
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -909,6 +912,7 @@
   'priority 55 'annoy-computer-factor 50
   'points 95
   'corpse '(unit-destroyed-2x2-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'can-target-land 'can-target-sea 'can-target-air
   'building 
@@ -940,6 +944,7 @@
   'priority 15 'annoy-computer-factor 15
   'points 210
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -969,6 +974,7 @@
   'priority 15 'annoy-computer-factor 20
   'points 230
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -998,6 +1004,7 @@
   'priority 15 'annoy-computer-factor 20
   'points 280
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -1027,6 +1034,7 @@
   'priority 30 'annoy-computer-factor 20
   'points 170
   'corpse '(unit-destroyed-3x3-place 3)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'shore-building
@@ -1060,6 +1068,7 @@
   'priority 25 'annoy-computer-factor 15
   'points 150
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'can-store '(wood)
@@ -1090,6 +1099,7 @@
   'priority 15 'annoy-computer-factor 20
   'points 200
   'corpse '(unit-destroyed-3x3-place 3)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'shore-building
@@ -1121,6 +1131,7 @@
   'points 200
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'can-store '(wood gold)
@@ -1151,6 +1162,7 @@
   'priority 35 'annoy-computer-factor 20
   'points 240
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -1180,6 +1192,7 @@
   'priority 15 'annoy-computer-factor 20
   'points 170
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -1210,6 +1223,7 @@
   'priority 25 'annoy-computer-factor 20
   'points 200
   'corpse '(unit-destroyed-3x3-place 3)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'shore-building
@@ -1240,6 +1254,7 @@
   'priority 20 'annoy-computer-factor 20
   'points 160
   'corpse '(unit-destroyed-3x3-place 3)
+  'explode-when-killed 'missile-explosion
   'type-naval
   'building 
   'must-build-on-top 'unit-oil-patch
@@ -1273,6 +1288,7 @@
   'points 600
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'can-store '(gold wood)
@@ -1305,6 +1321,7 @@
   'points 1500
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'can-store '(gold wood)
@@ -1357,6 +1374,7 @@
   'priority 40 'annoy-computer-factor 50
   'points 200
   'corpse '(unit-destroyed-2x2-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'can-attack
   'can-target-land 'can-target-sea 'can-target-air
@@ -1390,6 +1408,7 @@
   'priority 40 'annoy-computer-factor 50
   'points 250
   'corpse '(unit-destroyed-2x2-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'can-attack
   'can-target-land 'can-target-sea
@@ -1420,6 +1439,7 @@
   'priority 0 'annoy-computer-factor 45
   'points 1
   'corpse '(unit-destroyed-1x1-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
Index: stratagus/data/ccl/orc/units.ccl
diff -u stratagus/data/ccl/orc/units.ccl:1.40 
stratagus/data/ccl/orc/units.ccl:1.41
--- stratagus/data/ccl/orc/units.ccl:1.40       Sat Sep 20 05:03:40 2003
+++ stratagus/data/ccl/orc/units.ccl    Sun Sep 21 05:31:53 2003
@@ -26,7 +26,7 @@
 ;;      along with this program; if not, write to the Free Software
 ;;      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  
USA
 ;;
-;;     $Id: units.ccl,v 1.40 2003/09/20 09:03:40 mr-russ Exp $
+;;     $Id: units.ccl,v 1.41 2003/09/21 09:31:53 mr-russ Exp $
 
 ;;=============================================================================
 ;;     Define unit-types.
@@ -126,7 +126,7 @@
   'priority 70
   'points 100
   'demand 1
-  'explode-when-killed
+  'explode-when-killed 'missile-explosion
   'type-land
   'right-attack
   'can-ground-attack
@@ -912,6 +912,7 @@
   'points 100
   'supply 4
   'corpse '(unit-destroyed-2x2-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -941,6 +942,7 @@
   'priority 30 'annoy-computer-factor 35
   'points 160
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -970,6 +972,7 @@
   'priority 15 'annoy-computer-factor 35
   'points 240
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -999,6 +1002,7 @@
   'priority 55 'annoy-computer-factor 50
   'points 95
   'corpse '(unit-destroyed-2x2-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'can-target-land 'can-target-sea 'can-target-air
   'building 
@@ -1030,6 +1034,7 @@
   'priority 15 'annoy-computer-factor 15
   'points 210
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -1059,6 +1064,7 @@
   'priority 15 'annoy-computer-factor 20
   'points 230
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -1088,6 +1094,7 @@
   'priority 15 'annoy-computer-factor 20
   'points 280
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -1117,6 +1124,7 @@
   'priority 30 'annoy-computer-factor 20
   'points 170
   'corpse '(unit-destroyed-3x3-place 3)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'shore-building
@@ -1149,6 +1157,7 @@
   'points 200
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'can-store '(gold wood)
@@ -1181,6 +1190,7 @@
   'priority 25 'annoy-computer-factor 15
   'points 150
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'can-store '(wood)
@@ -1211,6 +1221,7 @@
   'priority 15 'annoy-computer-factor 20
   'points 200
   'corpse '(unit-destroyed-3x3-place 3)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'shore-building
@@ -1241,6 +1252,7 @@
   'priority 35 'annoy-computer-factor 20
   'points 240
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -1270,6 +1282,7 @@
   'priority 15 'annoy-computer-factor 20
   'points 170
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
@@ -1300,6 +1313,7 @@
   'priority 25 'annoy-computer-factor 20
   'points 200
   'corpse '(unit-destroyed-3x3-place 3)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'shore-building
@@ -1330,6 +1344,7 @@
   'priority 20 'annoy-computer-factor 20
   'points 160
   'corpse '(unit-destroyed-3x3-place 3)
+  'explode-when-killed 'missile-explosion
   'type-naval
   'building 
   'must-build-on-top 'unit-oil-patch
@@ -1363,6 +1378,7 @@
   'points 600
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'can-store '(gold wood)
@@ -1395,6 +1411,7 @@
   'points 1500
   'supply 1
   'corpse '(unit-destroyed-4x4-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'can-store '(gold wood)
@@ -1447,6 +1464,7 @@
   'priority 40 'annoy-computer-factor 50
   'points 200
   'corpse '(unit-destroyed-2x2-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'can-attack
   'can-target-land 'can-target-sea 'can-target-air
@@ -1480,6 +1498,7 @@
   'priority 40 'annoy-computer-factor 50
   'points 250
   'corpse '(unit-destroyed-2x2-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'can-attack
   'can-target-land 'can-target-sea
@@ -1508,6 +1527,7 @@
   'priority 0 'annoy-computer-factor 45
   'points 1
   'corpse '(unit-destroyed-1x1-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 
   'sounds '(
Index: stratagus/data/ccl/units.ccl
diff -u stratagus/data/ccl/units.ccl:1.46 stratagus/data/ccl/units.ccl:1.47
--- stratagus/data/ccl/units.ccl:1.46   Fri Sep 12 13:44:34 2003
+++ stratagus/data/ccl/units.ccl        Sun Sep 21 05:31:53 2003
@@ -26,7 +26,7 @@
 ;;      along with this program; if not, write to the Free Software
 ;;      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  
USA
 ;;
-;;     $Id: units.ccl,v 1.46 2003/09/12 17:44:34 n0body Exp $
+;;     $Id: units.ccl,v 1.47 2003/09/21 09:31:53 mr-russ Exp $
 
 ;; Load the animations for the units.
 (ccl:load "ccl/anim.ccl")
@@ -198,6 +198,7 @@
   'armor 20 'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 0
   'corpse '(unit-destroyed-3x3-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building
   'gives-resource 'gold 'can-harvest
@@ -245,6 +246,7 @@
   'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 0
   'corpse '(unit-destroyed-2x2-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building
   'sounds '(
@@ -275,6 +277,7 @@
   'basic-damage 0 'piercing-damage 0 'missile 'missile-none
   'priority 0
   'corpse '(unit-destroyed-4x4-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 'builder-outside
   'can-cast-spell
@@ -307,6 +310,7 @@
   'priority 15 'annoy-computer-factor 35
   'points 150
   'corpse '(unit-destroyed-2x2-place 0)
+  'explode-when-killed 'missile-explosion
   'type-land
   'building 'builder-outside
   'can-cast-spell
Index: stratagus/doc/ChangeLog.html
diff -u stratagus/doc/ChangeLog.html:1.539 stratagus/doc/ChangeLog.html:1.540
--- stratagus/doc/ChangeLog.html:1.539  Sun Sep 21 04:40:44 2003
+++ stratagus/doc/ChangeLog.html        Sun Sep 21 05:31:50 2003
@@ -2,7 +2,7 @@
 <html>
 <head>
 <!--
-----   $Id: ChangeLog.html,v 1.539 2003/09/21 08:40:44 mr-russ Exp $
+----   $Id: ChangeLog.html,v 1.540 2003/09/21 09:31:50 mr-russ Exp $
 
 ----   (c) Copyright 1998-2003 by Lutz Sammer
 
@@ -36,6 +36,7 @@
 <li>Future 1.19 Release<p>
     <ul>
     <li>++
+    <li>Made explode-when-killed define a missile (from Russell Smith).
     <li>Fixed bug: did not save improve-production (from Russell Smith).
     <li>RevealAttacker does what it should, attack the attacker (from Russell 
Smith).
     <li>DrawUnitInfo uses Resource Names instead of hard coded (from Russell 
Smith).
Index: stratagus/doc/ccl/config.html
diff -u stratagus/doc/ccl/config.html:1.25 stratagus/doc/ccl/config.html:1.26
--- stratagus/doc/ccl/config.html:1.25  Wed Sep 17 05:17:12 2003
+++ stratagus/doc/ccl/config.html       Sun Sep 21 05:31:51 2003
@@ -1029,12 +1029,13 @@
 <a name="set-reveal-attacker!"></a>
 <h3>(set-reveal-attacker! reveal)</h3>
 
-.
-
+Sets where unit will respond the the attacking unit or not.  If set to true,
+they will respond whether they can see the unit or not.  If set to false,
+they will only response if the attacker is within their reaction range.
 
 <dl>
 <dt>reveal</dt>
-<dd>.
+<dd>#f or #t
 </dd>
 </dl>
 
@@ -1595,7 +1596,7 @@
 <a href="../../data/ccl/stratagus.ccl"> $LIBARYPATH/ccl/stratagus.ccl </a>
 
 <hr>
-Last changed: $Id: config.html,v 1.25 2003/09/17 09:17:12 mr-russ Exp $<br>
+Last changed: $Id: config.html,v 1.26 2003/09/21 09:31:51 mr-russ Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/doc/ccl/unittype.html
diff -u stratagus/doc/ccl/unittype.html:1.30 
stratagus/doc/ccl/unittype.html:1.31
--- stratagus/doc/ccl/unittype.html:1.30        Thu Sep 18 21:28:38 2003
+++ stratagus/doc/ccl/unittype.html     Sun Sep 21 05:31:52 2003
@@ -372,6 +372,9 @@
 <dd></dd>
 <dt>corpse</dt>
 <dd></dd>
+<dt>explode-when-killed</dt>
+<dd>Sets unit to explode when killed, syntax is followed by the missile to use.
+    eg. 'explode-when-killed 'missile-explosion</dd>
 <dt>type</dt>
 <dd></dd>
 <dt>right-mouse</dt>
@@ -607,7 +610,7 @@
 <h4>Not Used</h4>
 
 <hr>
-Last changed: $Id: unittype.html,v 1.30 2003/09/19 01:28:38 mr-russ Exp $<br>
+Last changed: $Id: unittype.html,v 1.31 2003/09/21 09:31:52 mr-russ Exp $<br>
 All trademarks and copyrights on this page are owned by their respective 
owners.
 <address>(c) 2002-2003 by <a href="http://stratagus.org";>
 The Stratagus Project</a></address></body></html>
Index: stratagus/src/clone/unit.c
diff -u stratagus/src/clone/unit.c:1.299 stratagus/src/clone/unit.c:1.300
--- stratagus/src/clone/unit.c:1.299    Sun Sep 21 03:13:51 2003
+++ stratagus/src/clone/unit.c  Sun Sep 21 05:31:52 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: unit.c,v 1.299 2003/09/21 07:13:51 mr-russ Exp $
+//     $Id: unit.c,v 1.300 2003/09/21 09:31:52 mr-russ Exp $
 
 //@{
 
@@ -3013,27 +3013,16 @@
     // Catapults,... explodes.
     //
     if( type->ExplodeWhenKilled ) {
-       // FIXME: make it configurable?
-       MakeMissile(MissileTypeExplosion
+       MakeMissile(type->Explosion.Missile
                ,unit->X*TileSizeX+type->TileWidth*TileSizeX/2
                ,unit->Y*TileSizeY+type->TileHeight*TileSizeY/2
                ,0,0);
-       RemoveUnit(unit,NULL);
-       UnitLost(unit);
-       UnitClearOrders(unit);
-       ReleaseUnit(unit);
-       return;
     }
 
     //
-    // Building,... explodes.
+    // Building,...
     //
     if( type->Building ) {
-       MakeMissile(MissileTypeByIdent("missile-explosion")
-               ,unit->X*TileSizeX+type->TileWidth*TileSizeX/2
-               ,unit->Y*TileSizeY+type->TileHeight*TileSizeY/2
-               ,0,0);
-
        //
        //      Building with units inside?
        //
@@ -3975,7 +3964,7 @@
     int InRun, RunStart;
 
     CLprintf(file,"\n;;; -----------------------------------------\n");
-    CLprintf(file,";;; MODULE: units $Id: unit.c,v 1.299 2003/09/21 07:13:51 
mr-russ Exp $\n\n");
+    CLprintf(file,";;; MODULE: units $Id: unit.c,v 1.300 2003/09/21 09:31:52 
mr-russ Exp $\n\n");
 
     //
     // Local variables
Index: stratagus/src/include/unittype.h
diff -u stratagus/src/include/unittype.h:1.109 
stratagus/src/include/unittype.h:1.110
--- stratagus/src/include/unittype.h:1.109      Sat Sep 20 05:03:40 2003
+++ stratagus/src/include/unittype.h    Sun Sep 21 05:31:52 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: unittype.h,v 1.109 2003/09/20 09:03:40 mr-russ Exp $
+//     $Id: unittype.h,v 1.110 2003/09/21 09:31:52 mr-russ Exp $
 
 #ifndef __UNITTYPE_H__
 #define __UNITTYPE_H__
@@ -116,6 +116,12 @@
 **             @note It is planned to support more than one weapons.
 **             And the sound of the missile should be used as fire sound.
 **
+**     UnitType::Explosion
+**
+**             Configuration and run time variable of the missile explosion.
+**             This is the explosion that happens if unit is set to
+**             ExplodeWhenKilled
+**
 **     UnitType::CorpseName
 **
 **             Corpse unit-type name, should only be used during setup.
@@ -685,6 +691,7 @@
 
     IconConfig Icon;                   /// Icon to display for this unit
     MissileConfig Missile;             /// Missile weapon
+    MissileConfig Explosion;           /// Missile for unit explosion
 
     char*      CorpseName;             /// Corpse type name
     UnitType*  CorpseType;             /// Corpse unit-type
Index: stratagus/src/unit/ccl_unittype.c
diff -u stratagus/src/unit/ccl_unittype.c:1.85 
stratagus/src/unit/ccl_unittype.c:1.86
--- stratagus/src/unit/ccl_unittype.c:1.85      Sat Sep 20 05:03:41 2003
+++ stratagus/src/unit/ccl_unittype.c   Sun Sep 21 05:31:52 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: ccl_unittype.c,v 1.85 2003/09/20 09:03:41 mr-russ Exp $
+//     $Id: ccl_unittype.c,v 1.86 2003/09/21 09:31:52 mr-russ Exp $
 
 //@{
 
@@ -350,8 +350,9 @@
            type->CorpseScript=gh_scm2int(gh_cadr(sublist));
        } else if( gh_eq_p(value,gh_symbol2scm("explode-when-killed")) ) {
            type->ExplodeWhenKilled=1;
+           type->Explosion.Name=gh_scm2newstr(gh_car(list),NULL);
+           type->Explosion.Missile=NULL;
            list=gh_cdr(list);
-
        } else if( gh_eq_p(value,gh_symbol2scm("type-land")) ) {
            type->UnitType=UnitTypeLand;
        } else if( gh_eq_p(value,gh_symbol2scm("type-fly")) ) {
Index: stratagus/src/unit/unittype.c
diff -u stratagus/src/unit/unittype.c:1.99 stratagus/src/unit/unittype.c:1.100
--- stratagus/src/unit/unittype.c:1.99  Sun Sep 21 04:40:44 2003
+++ stratagus/src/unit/unittype.c       Sun Sep 21 05:31:52 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//     $Id: unittype.c,v 1.99 2003/09/21 08:40:44 mr-russ Exp $
+//     $Id: unittype.c,v 1.100 2003/09/21 09:31:52 mr-russ Exp $
 
 //@{
 
@@ -802,7 +802,7 @@
                type->CorpseName,type->CorpseScript);
     }
     if( type->ExplodeWhenKilled ) {
-       CLprintf(file,"  'explode-when-killed\n");
+       CLprintf(file,"  'explode-when-killed '%s\n",type->Missile.Name);
     }
 
     CLprintf(file,"  ");
@@ -1112,7 +1112,7 @@
     char **sp;
 
     CLprintf(file,"\n;;; -----------------------------------------\n");
-    CLprintf(file,";;; MODULE: unittypes $Id: unittype.c,v 1.99 2003/09/21 
08:40:44 mr-russ Exp $\n\n");
+    CLprintf(file,";;; MODULE: unittypes $Id: unittype.c,v 1.100 2003/09/21 
09:31:52 mr-russ Exp $\n\n");
 
     // Original number to internal unit-type name.
 
@@ -1366,6 +1366,9 @@
        //      Lookup missiles.
        //
        type->Missile.Missile=MissileTypeByIdent(type->Missile.Name);
+       if( type->Explosion.Name ) {
+           type->Explosion.Missile=MissileTypeByIdent(type->Explosion.Name);
+       }
        //
        //      Lookup corpse.
        //




reply via email to

[Prev in Thread] Current Thread [Next in Thread]