[Stratagus-CVS] stratagus data/ccl/orc/buttons.ccl src/ai/new_ai.c

[Crestez Leonard]

CVSROOT:        /cvsroot/stratagus
Module name:    stratagus
Branch:         
Changes by:     Crestez Leonard <address@hidden>        03/10/24 08:29:10

Modified files:
        data/ccl/orc   : buttons.ccl 
        src/ai         : new_ai.c 

Log message:
        Fix demolition for orcs.

Patches:
Index: stratagus/data/ccl/orc/buttons.ccl
diff -u stratagus/data/ccl/orc/buttons.ccl:1.27 
stratagus/data/ccl/orc/buttons.ccl:1.28
--- stratagus/data/ccl/orc/buttons.ccl:1.27     Wed Sep 10 09:53:46 2003
+++ stratagus/data/ccl/orc/buttons.ccl  Fri Oct 24 08:29:08 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: buttons.ccl,v 1.27 2003/09/10 13:53:46 martinxyz Exp $
+;;     $Id: buttons.ccl,v 1.28 2003/10/24 12:29:08 n0body Exp $
 
 ;; general commands -- almost all units have it -------------------------------
 
@@ -155,14 +155,10 @@
   'for-unit '(unit-catapult unit-ogre-juggernaught orc-group))
 
 (define-button 'pos 9 'level 0 'icon 'icon-mythical-demolish
-  'action 'demolish
+  'action 'cast-spell 'value spell-suicide-bomber
+  'allowed 'check-true
   'key "d" 'hint "~!DEMOLISH"
-  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
-    unit-goblin-sappers unit-berserker unit-catapult unit-peon
-    unit-fad-man unit-double-head
-    unit-sharp-axe unit-beast-cry unit-quick-blade unit-ice-bringer
-    unit-evil-knight unit-skeleton unit-eye-of-vision unit-dragon
-    unit-zeppelin orc-group))
+  'for-unit '(unit-goblin-sappers))
 
 ;; ogre-mage specific actions -------------------------------------------------
 
Index: stratagus/src/ai/new_ai.c
diff -u stratagus/src/ai/new_ai.c:1.76 stratagus/src/ai/new_ai.c:1.77
--- stratagus/src/ai/new_ai.c:1.76      Fri Oct 24 02:28:54 2003
+++ stratagus/src/ai/new_ai.c   Fri Oct 24 08:29:09 2003
@@ -26,7 +26,7 @@
 //      Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 //      02111-1307, USA.
 //
-//      $Id: new_ai.c,v 1.76 2003/10/24 06:28:54 mr-russ Exp $
+//      $Id: new_ai.c,v 1.77 2003/10/24 12:29:09 n0body Exp $
 
 
 //@{
@@ -740,7 +740,7 @@
 {
     CLprintf( file, "\n;;; -----------------------------------------\n" );
     CLprintf( file,
-             ";;; MODULE: AI $Id: new_ai.c,v 1.76 2003/10/24 06:28:54 mr-russ 
Exp $\n\n" );
+             ";;; MODULE: AI $Id: new_ai.c,v 1.77 2003/10/24 12:29:09 n0body 
Exp $\n\n" );
 
     SaveAiTypesWcName( file );
     SaveAiHelper( file );
@@ -1044,6 +1044,10 @@
        }
     }
 
+    if (pai->Player==ThisPlayer) {
+       DebugLevel0Fn("My guess is that you built something under ai me. 
naughty boy!\n");
+       return;
+    }
     DebugCheck( 1 );
 }