[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Stratagus-CVS] stratagus/data/ccl ai.ccl
From: |
ludovic pollet |
Subject: |
[Stratagus-CVS] stratagus/data/ccl ai.ccl |
Date: |
Wed, 05 Nov 2003 13:00:25 -0500 |
CVSROOT: /cvsroot/stratagus
Module name: stratagus
Branch:
Changes by: ludovic pollet <address@hidden> 03/11/05 13:00:25
Modified files:
data/ccl : ai.ccl
Log message:
passive ai IS passive
Patches:
Index: stratagus/data/ccl/ai.ccl
diff -u stratagus/data/ccl/ai.ccl:1.60 stratagus/data/ccl/ai.ccl:1.61
--- stratagus/data/ccl/ai.ccl:1.60 Sat Nov 1 11:51:19 2003
+++ stratagus/data/ccl/ai.ccl Wed Nov 5 13:00:24 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: ai.ccl,v 1.60 2003/11/01 16:51:19 pludov Exp $
+;; $Id: ai.ccl,v 1.61 2003/11/05 18:00:24 pludov Exp $
;(define (ai:sleep) () #t)
@@ -716,6 +716,7 @@
(define-ai "wc2-passive" "*" "passive"
'(
;; Define the main AI script.
+ (ai:set-auto-attack #f)
(ai:sleep 10000)
(ai:restart)
))
@@ -1383,7 +1384,7 @@
(define-ai "wc2-air-attack" "*" "air-attack"
'(
;; Define the main AI script.
- (begin (ai:debug #f) (ai:set-auto-attack #f) (ai:sleep
(ai:get-sleep-cycles)))
+ (begin (ai:debug #f) (ai:sleep (ai:get-sleep-cycles)))
(ai:set-reserve! #( 0 0 0 0 0 0 0))
(ai:need (ai:city-center))
(ai:set (ai:worker) 1)
@@ -1952,7 +1953,7 @@
(define-ai 'orc-03 "*" "orc-03"
'(
;; Define the main AI script.
- (begin (ai:debug #f) (ai:sleep (ai:get-sleep-cycles)))
+ (begin (ai:debug #f) (ai:set-auto-attack #f) (ai:sleep
(ai:get-sleep-cycles)))
(ai:set (ai:worker) 2)
(ai:set (ai:tanker) 1)
(ai:wait (ai:worker)) ;; start hangs if nothing available
@@ -2144,7 +2145,7 @@
(define-ai 'hum-07 "*" "hum-07"
'(
;; Define the main AI script.
- (begin (ai:debug #f) (ai:sleep (ai:get-sleep-cycles)))
+ (begin (ai:debug #f) (ai:set-auto-attack #f) (ai:sleep
(ai:get-sleep-cycles)))
(ai:set (ai:worker) 2)
(ai:set (ai:tanker) 1)
(ai:sleep 10000)
@@ -2205,7 +2206,7 @@
(define-ai 'hum-09 "*" "hum-09"
'(
;; Define the main AI script.
- (begin (ai:debug #f) (ai:sleep (ai:get-sleep-cycles)))
+ (begin (ai:debug #f) (ai:set-auto-attack #f) (ai:sleep
(ai:get-sleep-cycles)))
(ai:set (ai:worker) 2)
(ai:set (ai:tanker) 1)
(ai:sleep 10000)
@@ -2575,7 +2576,7 @@
(ai:sleep 20000)
- (ai:force 0 (ai:flyer) 12)
+ (ai:force 1 (ai:flyer) 12)
(ai:sleep 21000)
@@ -2593,7 +2594,7 @@
(ai:set (ai:worker) 9)
(ai:wait (ai:worker)) ;; Wait for the workers
- (ai:force 0 (ai:flyer) 10)
+ (ai:force 1 (ai:flyer) 10)
(ai:sleep 64000)