[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Stratagus-CVS] stratagus/data/ccl spells.ccl
|
From: |
Jimmy Salmon |
|
Subject: |
[Stratagus-CVS] stratagus/data/ccl spells.ccl |
|
Date: |
Wed, 19 Nov 2003 16:13:58 -0500 |
CVSROOT: /cvsroot/stratagus
Module name: stratagus
Branch:
Changes by: Jimmy Salmon <address@hidden> 03/11/19 16:13:58
Modified files:
data/ccl : spells.ccl
Log message:
Removed ^M's
Patches:
Index: stratagus/data/ccl/spells.ccl
diff -u stratagus/data/ccl/spells.ccl:1.19 stratagus/data/ccl/spells.ccl:1.20
--- stratagus/data/ccl/spells.ccl:1.19 Tue Oct 28 20:55:31 2003
+++ stratagus/data/ccl/spells.ccl Wed Nov 19 16:13:57 2003
@@ -1,327 +1,326 @@
-;; _________ __ __
-;; / _____// |_____________ _/ |______ ____ __ __ ______
-;; \_____ \\ __\_ __ \__ \\ __\__ \ / ___\| | \/ ___/
-;; / \| | | | \// __ \| | / __ \_/ /_/ > | /\___ \
-;; /_______ /|__| |__| (____ /__| (____ /\___ /|____//____ >
-;; \/ \/ \//_____/ \/
-;; ______________________ ______________________
-;; T H E W A R B E G I N S
-;; Stratagus - A free fantasy real time strategy game engine
-;;
-;; stratagus.ccl - The craft configuration language.
-;;
-;; (c) Copyright 1998-2003 by Joris Dauphin.
-;;
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2 of the License, or
-;; (at your option) any later version.
-;;
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with this program; if not, write to the Free Software
-;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
USA
-;;
-;; $Id: spells.ccl,v 1.19 2003/10/29 01:55:31 n0body Exp $
-
-;; For documentation see stratagus/doc/ccl/ccl.html ;; FIXME write and move
doc.
-
-(define-bool-flags 'isundead 'organic 'hero 'volatile)
-
-;; Declare some unit types used in spells. This is quite accetable, the other
-;; way would be to define can-cast-spell outside unit definitions, not much
of an improvement.
-(define-unit-type 'unit-revealer)
-(define-unit-type 'unit-eye-of-vision)
-(define-unit-type 'unit-critter)
-(define-unit-type 'unit-skeleton)
-(define-unit-type 'unit-circle-of-power)
-
-(define-spell "spell-suicide-bomber"
- 'showname "Demolish"
- 'manacost 0
- 'target 'self
- 'action '((demolish range 1 damage 400))
- 'sound-when-cast "holy vision"
- 'missile-when-cast "missile-normal-spell"
-)
-
-(define-spell "spell-holy-vision"
- 'showname "Holy Vision"
- 'manacost 70
- 'range 'infinite
- 'target 'position
- 'action '( (summon unit-type unit-revealer time-to-live 25) )
- 'sound-when-cast "holy vision"
- 'missile-when-cast "missile-normal-spell"
-)
-
-(define-spell "spell-healing"
- 'showname "Healing"
- 'manacost 6
- 'range 6
- 'target 'unit
- 'action '((adjust-vitals hit-points 1))
- 'condition '(
- organic only
- building false
- max-hp-percent 100)
- 'sound-when-cast "healing"
- 'missile-when-cast "missile-heal-effect"
- 'autocast '(range 6 condition (alliance only max-hp-percent 90 )
- )
-)
-
-(define-spell "spell-exorcism"
- 'showname "Exorcism"
- 'manacost 4
- 'range 10
- 'target 'unit
- 'action '((adjust-vitals hit-points -1))
- 'condition '(
- isundead only
- building false ; any undead buildings?
- alliance false
- )
- 'sound-when-cast "exorcism"
- 'missile-when-cast "missile-exorcism"
- 'autocast '(range 10 condition (coward false alliance false))
-)
-
-(define-spell "spell-eye-of-vision"
- 'showname "eye of vision"
- 'manacost 70
- 'range 6
- 'target 'position
- 'action '((summon unit-type unit-eye-of-vision time-to-live 5000))
- 'sound-when-cast "eye of vision"
- 'missile-when-cast "missile-normal-spell"
-)
-
-(define-spell "spell-haste"
- 'showname "haste"
- 'manacost 50
- 'range 6
- 'target 'unit
- 'action '((adjust-buffs haste-ticks 1000 slow-ticks 0))
- 'condition '(
- building false
- max-haste-ticks 10 ;; FIXME: proper value?
- )
- 'sound-when-cast "haste"
- 'missile-when-cast "missile-normal-spell"
- 'autocast '(range 6 condition (coward false alliance only))
- 'ai-cast '(range 6 combat only condition (coward false alliance only))
-)
-
-(define-spell "spell-slow"
- 'showname "slow"
- 'manacost 50
- 'range 10
- 'target 'unit
- 'action '((adjust-buffs slow-ticks 1000 haste-ticks 0))
- 'condition '(
- building false
- max-slow-ticks 10)
- 'sound-when-cast "slow"
- 'missile-when-cast "missile-normal-spell"
- 'autocast '(range 10 condition (coward false alliance false))
- 'ai-cast '(range 10 combat only condition (coward false alliance false))
-)
-
-(define-spell "spell-bloodlust"
- 'showname "bloodlust"
- 'manacost 50
- 'range 6
- 'target 'unit
- 'action '((adjust-buffs bloodlust-ticks 1000))
- 'condition '(
- organic only
- max-bloodlust-ticks 10)
- 'sound-when-cast "bloodlust"
- 'missile-when-cast "missile-normal-spell"
- 'autocast '(range 6 condition (coward false alliance only))
- 'ai-cast '(range 6 combat only condition (coward false alliance only))
-)
-
-(define-spell "spell-invisibility"
- 'showname "invisibility"
- 'manacost 200
- 'range 6
- 'target 'unit
- 'action '((adjust-buffs invisibility-ticks 2000))
- 'condition '(
- building false
- max-invisibility-ticks 10)
- 'sound-when-cast "invisibility"
- 'missile-when-cast "missile-normal-spell"
-; 'autocast '(range 6 condition (coward false))
-)
-
-(define-spell "spell-unholy-armor"
- 'showname "unholyarmor"
- 'manacost 100
- 'range 6
- 'target 'unit
- 'action '((adjust-buffs invincibility-ticks 500))
- 'condition '(
- building false
- max-invincibility-ticks 10)
- 'sound-when-cast "unholyarmor"
- 'missile-when-cast "missile-normal-spell"
-; 'autocast '(range 6 condition (coward false alliance only))
-)
-
-(define-spell "spell-flame-shield"
- 'showname "flame shield"
- 'manacost 50
- 'range 6
- 'target 'unit
- 'action '(
- (spawn-missile ttl 600 damage 1)
- (spawn-missile ttl 607 damage 1)
- (spawn-missile ttl 614 damage 1)
- (spawn-missile ttl 621 damage 1)
- (spawn-missile ttl 628 damage 1)
- )
- ;; I think it's better if we can cast it multiple times and the effects
stack.
- ;; Can be casted, and is effective on both allies and enemies
- 'condition '(building false)
- 'sound-when-cast "flame shield"
- 'missile-when-cast "missile-flame-shield" ; NOT use
-;; 'autocast '(range 6 condition (coward false))
-)
-
-(define-spell "spell-polymorph"
- 'showname "polymorph"
- 'manacost 200
- 'range 10
- 'target 'unit
- 'action '((polymorph new-form unit-critter))
- 'condition '(organic only)
- 'sound-when-cast "polymorph"
- 'missile-when-cast "missile-normal-spell"
- ;; Only cast on the strongest units!!!
-; 'autocast '(range 10 condition (alliance false min-hp-percent 75))
-)
-
-
-(define-spell "spell-blizzard"
- 'showname "blizzard"
- 'manacost 25
- 'range 12
- 'repeat-cast
- 'target 'position
- 'action '((area-bombardment
- fields 5
- shards 10
- damage 10
- ;; 128=4*32=4 tiles
- start-offset-x -128
- start-offset-y -128))
- 'sound-when-cast "blizzard"
- 'missile-when-cast "missile-blizzard"
-;; 'autocast '(range 12)
-)
-
-(define-spell "spell-death-and-decay"
- 'showname "death and decay"
- 'manacost 25
- 'range 12
- 'target 'position
- 'action '((area-bombardment fields 5 shards 10 damage 10))
- 'sound-when-cast "death and decay"
- 'missile-when-cast "missile-death-and-decay"
-;; 'autocast '(range 12)
-)
-
-(define-spell "spell-fireball"
- 'showname "fireball"
- 'manacost 100
- 'range 8
- 'target 'position
- 'action '((spawn-missile damage 20))
- 'sound-when-cast "fireball throw"
- 'missile-when-cast "missile-fireball"
-;; 'autocast '(range 8)
-)
-
-(define-spell "spell-runes"
- 'showname "runes"
- 'manacost 10
- 'range 10
- 'target 'position
- 'action '(
- (spawn-missile ttl 2000 damage 50
- start-point (base target add-x 0 add-y 0)
- end-point (base target add-x 0 add-y 0))
- (spawn-missile ttl 2000 damage 50
- start-point (base target add-x 32 add-y 0)
- end-point (base target add-x 32 add-y 0))
- (spawn-missile ttl 2000 damage 50
- start-point (base target add-x 0 add-y 32)
- end-point (base target add-x 0 add-y 32))
- (spawn-missile ttl 2000 damage 50
- start-point (base target add-x -32 add-y 0)
- end-point (base target add-x -32 add-y 0))
- (spawn-missile ttl 2000 damage 50
- start-point (base target add-x 0 add-y -32)
- end-point (base target add-x 0 add-y -32))
- )
- 'sound-when-cast "runes"
- 'missile-when-cast "missile-rune"
-;; 'autocast '(range 10)
-)
-
-(define-spell "spell-death-coil"
- 'showname "death coil"
- 'manacost 100
- 'range 10
- 'target 'position ;; FIXME position or organic target
- 'action '((spawn-missile damage 50))
-; 'condition '(UnitTypeflag (true organic))
- 'sound-when-cast "death coil"
- 'missile-when-cast "missile-death-coil"
-; 'autocast '(range 6)
-)
-
-(define-spell "spell-raise-dead"
- 'showname "raise dead"
- 'manacost 50
- 'range 6
- 'repeat-cast
- 'target 'position
- 'action '((summon unit-type unit-skeleton time-to-live 3600
require-corpse))
- 'sound-when-cast "raise dead"
- 'missile-when-cast "missile-normal-spell"
-;; 'autocast '(range 6)
-)
-
-(define-spell "spell-whirlwind"
- 'showname "whirlwind"
- 'manacost 100
- 'range 12
- 'target 'position
- 'action '(
- (spawn-missile ttl 800 damage 3
- start-point (base target add-x 0 add-y 0)
- end-point (base target add-x 0 add-y 0)))
- 'sound-when-cast "whirlwind"
- 'missile-when-cast "missile-whirlwind"
-;; 'autocast '(range 12)
-)
-
-(define-spell "spell-circle-of-power"
- 'showname "circle of power"
- 'manacost 25
- 'range -1
- 'target 'position
- 'action '((spawn-portal portal-type unit-circle-of-power))
- 'sound-when-cast "circle of power"
- 'missile-when-cast "missile-normal-spell"
-;; 'autocast '(range -1)
-)
-
+;; _________ __ __
+;; / _____// |_____________ _/ |______ ____ __ __ ______
+;; \_____ \\ __\_ __ \__ \\ __\__ \ / ___\| | \/ ___/
+;; / \| | | | \// __ \| | / __ \_/ /_/ > | /\___ \
+;; /_______ /|__| |__| (____ /__| (____ /\___ /|____//____ >
+;; \/ \/ \//_____/ \/
+;; ______________________ ______________________
+;; T H E W A R B E G I N S
+;; Stratagus - A free fantasy real time strategy game engine
+;;
+;; stratagus.ccl - The craft configuration language.
+;;
+;; (c) Copyright 1998-2003 by Joris Dauphin.
+;;
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2 of the License, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
USA
+;;
+;; $Id: spells.ccl,v 1.20 2003/11/19 21:13:57 jsalmon3 Exp $
+
+;; For documentation see stratagus/doc/ccl/ccl.html ;; FIXME write and move
doc.
+
+(define-bool-flags 'isundead 'organic 'hero 'volatile)
+
+;; Declare some unit types used in spells. This is quite accetable, the other
+;; way would be to define can-cast-spell outside unit definitions, not much
of an improvement.
+(define-unit-type 'unit-revealer)
+(define-unit-type 'unit-eye-of-vision)
+(define-unit-type 'unit-critter)
+(define-unit-type 'unit-skeleton)
+(define-unit-type 'unit-circle-of-power)
+
+(define-spell "spell-suicide-bomber"
+ 'showname "Demolish"
+ 'manacost 0
+ 'target 'self
+ 'action '((demolish range 1 damage 400))
+ 'sound-when-cast "holy vision"
+ 'missile-when-cast "missile-normal-spell"
+)
+
+(define-spell "spell-holy-vision"
+ 'showname "Holy Vision"
+ 'manacost 70
+ 'range 'infinite
+ 'target 'position
+ 'action '( (summon unit-type unit-revealer time-to-live 25) )
+ 'sound-when-cast "holy vision"
+ 'missile-when-cast "missile-normal-spell"
+)
+
+(define-spell "spell-healing"
+ 'showname "Healing"
+ 'manacost 6
+ 'range 6
+ 'target 'unit
+ 'action '((adjust-vitals hit-points 1))
+ 'condition '(
+ organic only
+ building false
+ max-hp-percent 100)
+ 'sound-when-cast "healing"
+ 'missile-when-cast "missile-heal-effect"
+ 'autocast '(range 6 condition (alliance only max-hp-percent 90 )
+ )
+)
+
+(define-spell "spell-exorcism"
+ 'showname "Exorcism"
+ 'manacost 4
+ 'range 10
+ 'target 'unit
+ 'action '((adjust-vitals hit-points -1))
+ 'condition '(
+ isundead only
+ building false ; any undead buildings?
+ alliance false
+ )
+ 'sound-when-cast "exorcism"
+ 'missile-when-cast "missile-exorcism"
+ 'autocast '(range 10 condition (coward false alliance false))
+)
+
+(define-spell "spell-eye-of-vision"
+ 'showname "eye of vision"
+ 'manacost 70
+ 'range 6
+ 'target 'position
+ 'action '((summon unit-type unit-eye-of-vision time-to-live 5000))
+ 'sound-when-cast "eye of vision"
+ 'missile-when-cast "missile-normal-spell"
+)
+
+(define-spell "spell-haste"
+ 'showname "haste"
+ 'manacost 50
+ 'range 6
+ 'target 'unit
+ 'action '((adjust-buffs haste-ticks 1000 slow-ticks 0))
+ 'condition '(
+ building false
+ max-haste-ticks 10 ;; FIXME: proper value?
+ )
+ 'sound-when-cast "haste"
+ 'missile-when-cast "missile-normal-spell"
+ 'autocast '(range 6 condition (coward false alliance only))
+ 'ai-cast '(range 6 combat only condition (coward false alliance only))
+)
+
+(define-spell "spell-slow"
+ 'showname "slow"
+ 'manacost 50
+ 'range 10
+ 'target 'unit
+ 'action '((adjust-buffs slow-ticks 1000 haste-ticks 0))
+ 'condition '(
+ building false
+ max-slow-ticks 10)
+ 'sound-when-cast "slow"
+ 'missile-when-cast "missile-normal-spell"
+ 'autocast '(range 10 condition (coward false alliance false))
+ 'ai-cast '(range 10 combat only condition (coward false alliance false))
+)
+
+(define-spell "spell-bloodlust"
+ 'showname "bloodlust"
+ 'manacost 50
+ 'range 6
+ 'target 'unit
+ 'action '((adjust-buffs bloodlust-ticks 1000))
+ 'condition '(
+ organic only
+ max-bloodlust-ticks 10)
+ 'sound-when-cast "bloodlust"
+ 'missile-when-cast "missile-normal-spell"
+ 'autocast '(range 6 condition (coward false alliance only))
+ 'ai-cast '(range 6 combat only condition (coward false alliance only))
+)
+
+(define-spell "spell-invisibility"
+ 'showname "invisibility"
+ 'manacost 200
+ 'range 6
+ 'target 'unit
+ 'action '((adjust-buffs invisibility-ticks 2000))
+ 'condition '(
+ building false
+ max-invisibility-ticks 10)
+ 'sound-when-cast "invisibility"
+ 'missile-when-cast "missile-normal-spell"
+; 'autocast '(range 6 condition (coward false))
+)
+
+(define-spell "spell-unholy-armor"
+ 'showname "unholyarmor"
+ 'manacost 100
+ 'range 6
+ 'target 'unit
+ 'action '((adjust-buffs invincibility-ticks 500))
+ 'condition '(
+ building false
+ max-invincibility-ticks 10)
+ 'sound-when-cast "unholyarmor"
+ 'missile-when-cast "missile-normal-spell"
+; 'autocast '(range 6 condition (coward false alliance only))
+)
+
+(define-spell "spell-flame-shield"
+ 'showname "flame shield"
+ 'manacost 50
+ 'range 6
+ 'target 'unit
+ 'action '(
+ (spawn-missile ttl 600 damage 1)
+ (spawn-missile ttl 607 damage 1)
+ (spawn-missile ttl 614 damage 1)
+ (spawn-missile ttl 621 damage 1)
+ (spawn-missile ttl 628 damage 1)
+ )
+ ;; I think it's better if we can cast it multiple times and the effects
stack.
+ ;; Can be casted, and is effective on both allies and enemies
+ 'condition '(building false)
+ 'sound-when-cast "flame shield"
+ 'missile-when-cast "missile-flame-shield" ; NOT use
+;; 'autocast '(range 6 condition (coward false))
+)
+
+(define-spell "spell-polymorph"
+ 'showname "polymorph"
+ 'manacost 200
+ 'range 10
+ 'target 'unit
+ 'action '((polymorph new-form unit-critter))
+ 'condition '(organic only)
+ 'sound-when-cast "polymorph"
+ 'missile-when-cast "missile-normal-spell"
+ ;; Only cast on the strongest units!!!
+; 'autocast '(range 10 condition (alliance false min-hp-percent 75))
+)
+
+(define-spell "spell-blizzard"
+ 'showname "blizzard"
+ 'manacost 25
+ 'range 12
+ 'repeat-cast
+ 'target 'position
+ 'action '((area-bombardment
+ fields 5
+ shards 10
+ damage 10
+ ;; 128=4*32=4 tiles
+ start-offset-x -128
+ start-offset-y -128))
+ 'sound-when-cast "blizzard"
+ 'missile-when-cast "missile-blizzard"
+;; 'autocast '(range 12)
+)
+
+(define-spell "spell-death-and-decay"
+ 'showname "death and decay"
+ 'manacost 25
+ 'range 12
+ 'target 'position
+ 'action '((area-bombardment fields 5 shards 10 damage 10))
+ 'sound-when-cast "death and decay"
+ 'missile-when-cast "missile-death-and-decay"
+;; 'autocast '(range 12)
+)
+
+(define-spell "spell-fireball"
+ 'showname "fireball"
+ 'manacost 100
+ 'range 8
+ 'target 'position
+ 'action '((spawn-missile damage 20))
+ 'sound-when-cast "fireball throw"
+ 'missile-when-cast "missile-fireball"
+;; 'autocast '(range 8)
+)
+
+(define-spell "spell-runes"
+ 'showname "runes"
+ 'manacost 10
+ 'range 10
+ 'target 'position
+ 'action '(
+ (spawn-missile ttl 2000 damage 50
+ start-point (base target add-x 0 add-y 0)
+ end-point (base target add-x 0 add-y 0))
+ (spawn-missile ttl 2000 damage 50
+ start-point (base target add-x 32 add-y 0)
+ end-point (base target add-x 32 add-y 0))
+ (spawn-missile ttl 2000 damage 50
+ start-point (base target add-x 0 add-y 32)
+ end-point (base target add-x 0 add-y 32))
+ (spawn-missile ttl 2000 damage 50
+ start-point (base target add-x -32 add-y 0)
+ end-point (base target add-x -32 add-y 0))
+ (spawn-missile ttl 2000 damage 50
+ start-point (base target add-x 0 add-y -32)
+ end-point (base target add-x 0 add-y -32))
+ )
+ 'sound-when-cast "runes"
+ 'missile-when-cast "missile-rune"
+;; 'autocast '(range 10)
+)
+
+(define-spell "spell-death-coil"
+ 'showname "death coil"
+ 'manacost 100
+ 'range 10
+ 'target 'position ;; FIXME position or organic target
+ 'action '((spawn-missile damage 50))
+; 'condition '(UnitTypeflag (true organic))
+ 'sound-when-cast "death coil"
+ 'missile-when-cast "missile-death-coil"
+; 'autocast '(range 6)
+)
+
+(define-spell "spell-raise-dead"
+ 'showname "raise dead"
+ 'manacost 50
+ 'range 6
+ 'repeat-cast
+ 'target 'position
+ 'action '((summon unit-type unit-skeleton time-to-live 3600
require-corpse))
+ 'sound-when-cast "raise dead"
+ 'missile-when-cast "missile-normal-spell"
+;; 'autocast '(range 6)
+)
+
+(define-spell "spell-whirlwind"
+ 'showname "whirlwind"
+ 'manacost 100
+ 'range 12
+ 'target 'position
+ 'action '(
+ (spawn-missile ttl 800 damage 3
+ start-point (base target add-x 0 add-y 0)
+ end-point (base target add-x 0 add-y 0)))
+ 'sound-when-cast "whirlwind"
+ 'missile-when-cast "missile-whirlwind"
+;; 'autocast '(range 12)
+)
+
+(define-spell "spell-circle-of-power"
+ 'showname "circle of power"
+ 'manacost 25
+ 'range -1
+ 'target 'position
+ 'action '((spawn-portal portal-type unit-circle-of-power))
+ 'sound-when-cast "circle of power"
+ 'missile-when-cast "missile-normal-spell"
+;; 'autocast '(range -1)
+)
+
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Stratagus-CVS] stratagus/data/ccl spells.ccl,
Jimmy Salmon <=