← Back to branch summary

~ubuntu-branches/ubuntu/edgy/fcmp/edgy

« back to all changes in this revision

Viewing changes to data/ccl/mythical/buttons.ccl

  • Committer: Bazaar Package Importer
  • Author(s): David Martínez Moreno
  • Date: 2003-04-09 09:12:33 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20030409091233-1ruf5bvxfmd9o36u
Tags: 1.18.20030311-2
http://bugs.debian.org/185657
debian/control: Changed dependencies for not breaking freecraft anymore.
Many thanks to Daniel Burrows for his help in pointing the solution
(closes: #185657).

Show diffs side-by-side

added added

removed removed

Lines of Context:
data/ccl/mythical/buttons.ccl
1
1
;;   ___________                     _________                _____  __
2
2
;;   \_   _____/______   ____   ____ \_   ___ \____________ _/ ____\/  |_
3
 
;;    |    __) \_  __ \_/ __ \_/ __ \/    \  \/\_  __ \__  \\   __\\   __\ 
 
3
;;    |    __) \_  __ \_/ __ \_/ __ \/    \  \/\_  __ \__  \\   __\\   __|
4
4
;;    |     \   |  | \/\  ___/\  ___/\     \____|  | \// __ \|  |   |  |
5
5
;;    \___  /   |__|    \___  >\___  >\______  /|__|  (____  /__|   |__|
6
6
;;        \/                \/     \/        \/            \/
8
8
;;                        T H E   W A R   B E G I N S
9
9
;;         FreeCraft - A free fantasy real time strategy game engine
10
10
;;
11
 
;;      buttons.ccl     -       Define the unit-buttons of the orc race.
 
11
;;      buttons.ccl     -       Define the unit-buttons of the mythical race.
12
12
;;
13
 
;;      (c) Copyright 2001 by Vladi Belperchinov-Shabanski and Lutz Sammer
 
13
;;      (c) Copyright 2001-2003 by Vladi Belperchinov-Shabanski and Lutz Sammer
14
14
;;
15
15
;;      FreeCraft is free software; you can redistribute it and/or modify
16
16
;;      it under the terms of the GNU General Public License as published
17
 
;;      by the Free Software Foundation; either version 2 of the License,
18
 
;;      or (at your option) any later version.
 
17
;;      by the Free Software Foundation; only version 2 of the License.
19
18
;;
20
19
;;      FreeCraft is distributed in the hope that it will be useful,
21
20
;;      but WITHOUT ANY WARRANTY; without even the implied warranty of
22
21
;;      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23
22
;;      GNU General Public License for more details.
24
23
;;
25
 
;;      $Id: buttons.ccl,v 1.5 2001/07/15 00:34:47 johns Exp $
 
24
;;      $Id: buttons.ccl,v 1.20 2003/02/17 20:09:28 jsalmon3 Exp $
26
25
 
27
26
;;----------------------------------------------------------------------------
28
27
;;      Define unit-button.
41
40
    unit-peon-with-gold unit-peon-with-wood unit-fad-man unit-double-head
42
41
    unit-sharp-axe unit-beast-cry unit-quick-blade unit-ice-bringer
43
42
    unit-evil-knight unit-skeleton unit-eye-of-vision unit-dragon
44
 
    unit-goblin-zeppelin unit-attack-peon unit-death-knight unit-fire-breeze
45
 
    orc-group))
 
43
    unit-zeppelin unit-attack-peon unit-death-knight unit-fire-breeze
 
44
    orc-group unit-daemon))
46
45
 
47
 
(define-button 'pos 2 'level 0 'icon 'icon-orc-shield1
 
46
(define-button 'pos 2 'level 0 'icon 'icon-mythical-shield1
48
47
  'action 'stop
49
48
  'key "s" 'hint "~!STOP"
50
49
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
52
51
    unit-peon-with-gold unit-peon-with-wood unit-fad-man unit-double-head
53
52
    unit-sharp-axe unit-beast-cry unit-quick-blade unit-ice-bringer
54
53
    unit-evil-knight unit-skeleton unit-eye-of-vision unit-dragon
55
 
    unit-goblin-zeppelin unit-attack-peon unit-death-knight unit-fire-breeze
56
 
    orc-group))
57
 
 
58
 
(define-button 'pos 2 'level 0 'icon 'icon-orc-shield2
59
 
  'action 'stop
60
 
  'allowed 'check-upgrade 'allow-arg '(upgrade-orc-shield1)
61
 
  'key "s" 'hint "~!STOP"
62
 
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
63
 
    unit-goblin-sappers unit-berserker unit-catapult))
64
 
 
65
 
(define-button 'pos 2 'level 0 'icon 'icon-orc-shield3
66
 
  'action 'stop
67
 
  'allowed 'check-upgrade 'allow-arg '(upgrade-orc-shield2)
68
 
  'key "s" 'hint "~!STOP"
69
 
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
70
 
    unit-goblin-sappers unit-berserker unit-catapult))
 
54
    unit-zeppelin unit-attack-peon unit-death-knight unit-fire-breeze
 
55
    orc-group unit-daemon))
 
56
 
 
57
(define-button 'pos 2 'level 0 'icon 'icon-mythical-shield2
 
58
  'action 'stop
 
59
  'allowed 'check-upgrade 'allow-arg '(upgrade-mythical-shield1)
 
60
  'key "s" 'hint "~!STOP"
 
61
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
 
62
    unit-goblin-sappers unit-berserker unit-catapult unit-quick-blade
 
63
    unit-beast-cry unit-fad-man unit-double-head))
 
64
 
 
65
(define-button 'pos 2 'level 0 'icon 'icon-mythical-shield3
 
66
  'action 'stop
 
67
  'allowed 'check-upgrade 'allow-arg '(upgrade-mythical-shield2)
 
68
  'key "s" 'hint "~!STOP"
 
69
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
 
70
    unit-goblin-sappers unit-berserker unit-catapult unit-quick-blade
 
71
    unit-beast-cry unit-fad-man unit-double-head))
71
72
 
72
73
(define-button 'pos 3 'level 0 'icon 'icon-battle-axe1
73
74
  'action 'attack
77
78
    unit-peon-with-gold unit-peon-with-wood unit-fad-man unit-double-head
78
79
    unit-sharp-axe unit-beast-cry unit-quick-blade unit-ice-bringer
79
80
    unit-evil-knight unit-skeleton unit-dragon unit-fire-breeze
80
 
    orc-group))
 
81
    orc-group unit-daemon))
81
82
 
82
83
(define-button 'pos 3 'level 0 'icon 'icon-battle-axe2
83
84
  'action 'attack
84
85
  'allowed 'check-upgrade 'allow-arg '(upgrade-battle-axe1)
85
86
  'key "a" 'hint "~!ATTACK"
86
87
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
87
 
    unit-goblin-sappers unit-berserker unit-catapult))
 
88
    unit-goblin-sappers unit-berserker unit-catapult unit-quick-blade
 
89
    unit-beast-cry unit-fad-man unit-double-head))
88
90
 
89
91
(define-button 'pos 3 'level 0 'icon 'icon-battle-axe3
90
92
  'action 'attack
91
93
  'allowed 'check-upgrade 'allow-arg '(upgrade-battle-axe2)
92
94
  'key "a" 'hint "~!ATTACK"
93
95
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
94
 
    unit-goblin-sappers unit-berserker unit-catapult))
 
96
    unit-goblin-sappers unit-berserker unit-catapult unit-quick-blade
 
97
    unit-beast-cry unit-fad-man unit-double-head))
95
98
 
96
99
(define-button 'pos 3 'level 0 'icon 'icon-throwing-axe1
97
100
  'action 'attack
102
105
  'action 'attack
103
106
  'allowed 'check-upgrade 'allow-arg '(upgrade-throwing-axe1)
104
107
  'key "a" 'hint "~!ATTACK"
105
 
  'for-unit '(unit-axethrower unit-berserker))
 
108
  'for-unit '(unit-axethrower unit-berserker unit-sharp-axe))
106
109
 
107
110
(define-button 'pos 3 'level 0 'icon 'icon-throwing-axe3
108
111
  'action 'attack
109
112
  'allowed 'check-upgrade 'allow-arg '(upgrade-throwing-axe2)
110
113
  'key "a" 'hint "~!ATTACK"
111
 
  'for-unit '(unit-axethrower unit-berserker))
 
114
  'for-unit '(unit-axethrower unit-berserker unit-sharp-axe))
112
115
 
113
116
(define-button 'pos 3 'level 0 'icon 'icon-catapult1
114
117
  'action 'attack
122
125
  'key "a" 'hint "~!ATTACK"
123
126
  'for-unit '(unit-catapult))
124
127
 
125
 
(define-button 'pos 4 'level 0 'icon 'icon-orc-patrol-land
126
 
  'action 'patrol
127
 
  'key "p" 'hint "~!PATROL"
128
 
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
129
 
    unit-goblin-sappers unit-berserker unit-catapult unit-fad-man
130
 
    unit-double-head unit-sharp-axe unit-beast-cry unit-quick-blade
131
 
    unit-skeleton unit-dragon unit-fire-breeze orc-group))
 
128
(if extensions
 
129
(define-button 'pos 4 'level 0 'icon 'icon-mythical-patrol-land
 
130
  'action 'patrol
 
131
  'key "p" 'hint "~!PATROL"
 
132
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
 
133
    unit-goblin-sappers unit-berserker unit-catapult unit-fad-man
 
134
    unit-double-head unit-sharp-axe unit-beast-cry unit-quick-blade
 
135
    unit-skeleton unit-dragon unit-fire-breeze orc-group unit-daemon
 
136
    unit-zeppelin unit-eye-of-vision))
 
137
(define-button 'pos 4 'level 0 'icon 'icon-mythical-patrol-land
 
138
  'action 'patrol
 
139
  'key "p" 'hint "~!PATROL"
 
140
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
 
141
    unit-goblin-sappers unit-berserker unit-catapult unit-fad-man
 
142
    unit-double-head unit-sharp-axe unit-beast-cry unit-quick-blade
 
143
    unit-skeleton unit-dragon unit-fire-breeze orc-group unit-daemon)) )
132
144
 
133
 
(define-button 'pos 5 'level 0 'icon 'icon-orc-stand-ground
 
145
(define-button 'pos 5 'level 0 'icon 'icon-mythical-stand-ground
134
146
  'action 'stand-ground
135
147
  'key "t" 'hint "S~!TAND GROUND"
136
148
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
137
149
    unit-goblin-sappers unit-berserker unit-catapult unit-fad-man
138
150
    unit-double-head unit-sharp-axe unit-beast-cry unit-quick-blade
139
 
    unit-dragon unit-fire-breeze unit-giant-turtle unit-ogre-juggernaught
140
 
    unit-troll-destroyer orc-group))
 
151
    unit-skeleton unit-dragon unit-fire-breeze unit-mythical-submarine
 
152
    unit-ogre-juggernaught unit-mythical-destroyer orc-group unit-daemon))
141
153
 
142
 
(define-button 'pos 6 'level 0 'icon 'icon-orc-attack-ground
 
154
(define-button 'pos 6 'level 0 'icon 'icon-mythical-attack-ground
143
155
  'action 'attack-ground
144
156
  'key "g" 'hint "ATTACK ~!GROUND"
145
157
  'for-unit '(unit-catapult unit-ogre-juggernaught orc-group))
146
158
 
147
 
(define-button 'pos 9 'level 0 'icon 'icon-orc-demolish
 
159
(define-button 'pos 9 'level 0 'icon 'icon-mythical-demolish
148
160
  'action 'demolish
149
161
  'key "d" 'hint "~!DEMOLISH"
150
162
  'for-unit '(unit-grunt unit-ogre unit-axethrower unit-ogre-mage
152
164
    unit-peon-with-gold unit-peon-with-wood unit-fad-man unit-double-head
153
165
    unit-sharp-axe unit-beast-cry unit-quick-blade unit-ice-bringer
154
166
    unit-evil-knight unit-skeleton unit-eye-of-vision unit-dragon
155
 
    unit-goblin-zeppelin orc-group))
 
167
    unit-zeppelin orc-group))
156
168
 
157
169
;; ogre-mage specific actions -------------------------------------------------
158
170
 
159
 
(define-button 'pos 7 'level 0 'icon 'icon-eye-of-vision
 
171
(define-button 'pos 7 'level 0 'icon 'icon-eye-of-kilrogg
160
172
  'action 'cast-spell 'value 'spell-eye-of-vision
161
 
  'allowed 'check-upgrade 'allow-arg '(upgrade-eye-of-vision)
162
 
  'key "k" 'hint "EYE OF ~!VISION"
163
 
  'for-unit '(unit-ogre-mage))
 
173
  'allowed 'check-upgrade 'allow-arg '(upgrade-eye-of-kilrogg)
 
174
  'key "k" 'hint "EYE OF ~!KILROGG"
 
175
  'for-unit '(unit-ogre-mage unit-fad-man))
164
176
 
165
177
(define-button 'pos 8 'level 0 'icon 'icon-bloodlust
166
178
  'action 'cast-spell 'value 'spell-bloodlust
167
179
  'allowed 'check-upgrade 'allow-arg '(upgrade-bloodlust)
168
180
  'key "b" 'hint "~!BLOODLUST"
169
 
  'for-unit '(unit-ogre-mage))
 
181
  'for-unit '(unit-ogre-mage unit-fad-man))
170
182
 
171
183
(define-button 'pos 9 'level 0 'icon 'icon-runes
172
184
  'action 'cast-spell 'value 'spell-runes
173
185
  'allowed 'check-upgrade 'allow-arg '(upgrade-runes)
174
186
  'key "r" 'hint "~!RUNES"
175
 
  'for-unit '(unit-ogre-mage))
 
187
  'for-unit '(unit-ogre-mage unit-fad-man))
176
188
 
177
189
;; cho'gall specific actions --- same as ogre mage but it has them always -----
178
190
 
179
 
(define-button 'pos 7 'level 0 'icon 'icon-eye-of-vision
 
191
(define-button 'pos 7 'level 0 'icon 'icon-eye-of-kilrogg
180
192
  'action 'cast-spell 'value 'spell-eye-of-vision
181
193
  'allowed 'check-true
182
 
  'key "k" 'hint "EYE OF ~!VISION"
 
194
  'key "k" 'hint "EYE OF ~!KILROGG"
183
195
  'for-unit '(unit-double-head))
184
196
 
185
197
(define-button 'pos 8 'level 0 'icon 'icon-bloodlust
211
223
  'action 'cast-spell 'value 'spell-haste
212
224
  'allowed 'check-upgrade 'allow-arg '(upgrade-haste)
213
225
  'key "h" 'hint "~!HASTE"
214
 
  'for-unit '(unit-death-knight))
 
226
  'for-unit '(unit-death-knight unit-ice-bringer unit-evil-knight))
215
227
 
216
228
(define-button 'pos 6 'level 0 'icon 'icon-raise-dead
217
229
  'action 'cast-spell 'value 'spell-raise-dead
218
230
  'allowed 'check-upgrade 'allow-arg '(upgrade-raise-dead)
219
231
  'key "r" 'hint "~!RAISE DEAD"
220
 
  'for-unit '(unit-death-knight))
 
232
  'for-unit '(unit-death-knight unit-ice-bringer unit-evil-knight))
221
233
 
222
234
(define-button 'pos 7 'level 0 'icon 'icon-whirlwind
223
235
  'action 'cast-spell 'value 'spell-whirlwind
224
236
  'allowed 'check-upgrade 'allow-arg '(upgrade-whirlwind)
225
237
  'key "w" 'hint "~!WHIRLWIND"
226
 
  'for-unit '(unit-death-knight))
 
238
  'for-unit '(unit-death-knight unit-ice-bringer unit-evil-knight))
227
239
 
228
240
(define-button 'pos 8 'level 0 'icon 'icon-unholy-armor
229
241
  'action 'cast-spell 'value 'spell-unholy-armor
230
242
  'allowed 'check-upgrade 'allow-arg '(upgrade-unholy-armor)
231
243
  'key "u" 'hint "~!UNHOLY ARMOR"
232
 
  'for-unit '(unit-death-knight))
 
244
  'for-unit '(unit-death-knight unit-ice-bringer unit-evil-knight))
233
245
 
234
246
(define-button 'pos 9 'level 0 'icon 'icon-death-and-decay
235
247
  'action 'cast-spell 'value 'spell-death-and-decay
236
248
  'allowed 'check-upgrade 'allow-arg '(upgrade-death-and-decay)
237
249
  'key "d" 'hint "~!DEATH AND DECAY"
238
 
  'for-unit '(unit-death-knight))
 
250
  'for-unit '(unit-death-knight unit-ice-bringer unit-evil-knight))
239
251
 
240
252
;; peon specific actions ------------------------------------------------------
241
253
 
263
275
 
264
276
(define-button 'pos 8 'level 0 'icon 'icon-build-advanced
265
277
  'action 'button 'value 2
266
 
  'allowed 'check-unit 'allow-arg '(unit-troll-lumber-mill)
 
278
  'allowed 'check-units-or 'allow-arg '(unit-troll-lumber-mill unit-stronghold)
267
279
  'key "v" 'hint "BUILD AD~!VANCED STRUCTURE"
268
280
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
269
281
 
270
282
(define-button 'pos 9 'level 0 'icon 'icon-build-advanced
271
283
  'action 'button 'value 3
272
 
  'allowed 'check-units 'allow-arg '(unit-fortress unit-temple-of-the-damned
 
284
  'allowed 'check-units-and 'allow-arg '(unit-fortress unit-temple-of-the-damned
273
285
    unit-altar-of-storms)
274
286
  'key "e" 'hint "BUILD SP~!ECIAL STRUCTURE"
275
287
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
276
288
 
277
 
;; simple buildings orc -------------------------------------------------------
 
289
;; simple buildings mythical -------------------------------------------------------
278
290
 
279
291
(define-button 'pos 1 'level 1 'icon 'icon-pig-farm
280
292
  'action 'build 'value 'unit-pig-farm
281
293
  'key "f" 'hint "BUILD PIG ~!FARM"
282
294
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
283
295
 
284
 
(define-button 'pos 2 'level 1 'icon 'icon-orc-barracks
285
 
  'action 'build 'value 'unit-orc-barracks
 
296
(define-button 'pos 2 'level 1 'icon 'icon-mythical-barracks
 
297
  'action 'build 'value 'unit-mythical-barracks
286
298
  'key "b" 'hint "BUILD ~!BARRACKS"
287
299
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
288
300
 
296
308
  'key "l" 'hint "BUILD TROLL ~!LUMBER MILL"
297
309
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
298
310
 
299
 
(define-button 'pos 5 'level 1 'icon 'icon-orc-blacksmith
300
 
  'action 'build 'value 'unit-orc-blacksmith
 
311
(define-button 'pos 5 'level 1 'icon 'icon-mythical-blacksmith
 
312
  'action 'build 'value 'unit-mythical-blacksmith
301
313
  'key "s" 'hint "BUILD BLACK~!SMITH"
302
314
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
303
315
 
304
 
(define-button 'pos 7 'level 1 'icon 'icon-orc-watch-tower
305
 
  'action 'build 'value 'unit-orc-watch-tower
 
316
(define-button 'pos 7 'level 1 'icon 'icon-mythical-watch-tower
 
317
  'action 'build 'value 'unit-mythical-watch-tower
306
318
  'key "t" 'hint "BUILD ~!TOWER"
307
319
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
308
320
 
309
 
(define-button 'pos 8 'level 1 'icon 'icon-orc-wall
 
321
(define-button 'pos 8 'level 1 'icon 'icon-mythical-wall
310
322
  'action 'build 'value 'unit-orc-wall
311
323
  'allowed 'check-network
312
324
  'key "w" 'hint "BUILD ~!WALL"
317
329
  'key "\033" 'hint "~<ESC~> CANCEL"
318
330
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
319
331
 
320
 
;; orc advanced buildings -----------------------------------------------------
 
332
;; mythical advanced buildings -----------------------------------------------------
321
333
 
322
 
(define-button 'pos 1 'level 2 'icon 'icon-orc-shipyard
323
 
  'action 'build 'value 'unit-orc-shipyard
 
334
(define-button 'pos 1 'level 2 'icon 'icon-mythical-shipyard
 
335
  'action 'build 'value 'unit-mythical-shipyard
324
336
  'key "s" 'hint "BUILD ~!SHIPYARD"
325
337
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
326
338
 
327
 
(define-button 'pos 2 'level 2 'icon 'icon-orc-foundry
328
 
  'action 'build 'value 'unit-orc-foundry
 
339
(define-button 'pos 2 'level 2 'icon 'icon-mythical-foundry
 
340
  'action 'build 'value 'unit-mythical-foundry
329
341
  'key "f" 'hint "BUILD ~!FOUNDRY"
330
342
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
331
343
 
332
 
(define-button 'pos 3 'level 2 'icon 'icon-orc-refinery
 
344
(define-button 'pos 3 'level 2 'icon 'icon-mythical-refinery
333
345
  'action 'build 'value 'unit-orc-refinery
334
346
  'key "r" 'hint "BUILD ~!REFINERY"
335
347
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
336
348
 
337
 
(define-button 'pos 4 'level 2 'icon 'icon-goblin-alchemist
338
 
  'action 'build 'value 'unit-goblin-alchemist
 
349
(define-button 'pos 4 'level 2 'icon 'icon-alchemist
 
350
  'action 'build 'value 'unit-alchemist
339
351
  'key "a" 'hint "BUILD GOBLIN ~!ALCHEMIST"
340
352
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
341
353
 
364
376
  'key "\033" 'hint "~<ESC~> CANCEL"
365
377
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
366
378
 
367
 
;; orc special buildings ------------------------------------------------------
 
379
;; mythical special buildings ------------------------------------------------------
368
380
 
369
381
(define-button 'pos 1 'level 3 'icon 'icon-dark-portal
370
382
  'action 'build 'value 'unit-dark-portal
 
383
  'allowed 'check-no-network
371
384
  'key "p" 'hint "BUILD DARK ~!PORTAL"
372
385
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
373
386
 
374
387
(define-button 'pos 2 'level 3 'icon 'icon-runestone
375
388
  'action 'build 'value 'unit-runestone
 
389
  'allowed 'check-no-network
376
390
  'key "r" 'hint "BUILD ~!RUNESTONE"
377
391
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
378
392
 
381
395
  'key "\033" 'hint "~<ESC~> CANCEL"
382
396
  'for-unit '(unit-peon unit-peon-with-gold unit-peon-with-wood))
383
397
 
384
 
;; orc buildings commands -----------------------------------------------------
 
398
;; mythical buildings commands -----------------------------------------------------
385
399
 
386
400
(if extensions
387
401
(define-button 'pos 1 'level 0 'icon 'icon-critter
395
409
  'key "p" 'hint "TRAIN ~!PEON"
396
410
  'for-unit '(unit-great-hall unit-stronghold unit-fortress))
397
411
 
398
 
;; string hold upgrades -------------------------------------------------------
 
412
;; strong hold upgrades -------------------------------------------------------
399
413
 
400
414
(define-button 'pos 2 'level 0 'icon 'icon-stronghold
401
415
  'action 'upgrade-to 'value 'unit-stronghold
412
426
(if extensions (begin
413
427
(define-button 'pos 5 'level 0 'icon 'icon-harvest
414
428
  'action 'harvest
415
 
  'allowed 'check-no-work
416
429
  'key "h" 'hint "SET ~!HARVEST LUMBER/MINE GOLD"
417
430
  'for-unit '(unit-great-hall unit-stronghold unit-fortress))
418
431
 
419
432
(define-button 'pos 7 'level 0 'icon 'icon-move-peon
420
433
  'action 'move
421
 
  'allowed 'check-no-work
422
434
  'key "m" 'hint "SET ~!MOVE"
423
435
  'for-unit '(unit-great-hall unit-stronghold unit-fortress
424
 
    unit-orc-barracks unit-temple-of-the-damned unit-dragon-roost
425
 
    unit-goblin-alchemist))
 
436
    unit-mythical-barracks unit-temple-of-the-damned unit-dragon-roost
 
437
    unit-alchemist))
426
438
 
427
 
(define-button 'pos 8 'level 0 'icon 'icon-orc-shield1
 
439
(define-button 'pos 8 'level 0 'icon 'icon-mythical-shield1
428
440
  'action 'stop
429
 
  'allowed 'check-no-work
430
441
  'key "z" 'hint "SET ~!ZTOP"
431
442
  'for-unit '(unit-great-hall unit-stronghold unit-fortress
432
 
    unit-orc-barracks unit-temple-of-the-damned unit-dragon-roost
433
 
    unit-goblin-alchemist))
 
443
    unit-mythical-barracks unit-temple-of-the-damned unit-dragon-roost
 
444
    unit-alchemist))
434
445
 
435
446
(define-button 'pos 9 'level 0 'icon 'icon-battle-axe1
436
447
  'action 'attack
437
 
  'allowed 'check-no-work
438
448
  'key "e" 'hint "S~!ET ATTACK"
439
449
  'for-unit '(unit-great-hall unit-stronghold unit-fortress
440
 
    unit-orc-barracks unit-temple-of-the-damned unit-dragon-roost
441
 
    unit-goblin-alchemist)) ))
 
450
    unit-mythical-barracks unit-temple-of-the-damned unit-dragon-roost
 
451
    unit-alchemist)) ))
442
452
 
443
453
(define-button 'pos 1 'level 0 'icon 'icon-grunt
444
454
  'action 'train-unit 'value 'unit-grunt
445
455
  'key "g" 'hint "TRAIN ~!GRUNT"
446
 
  'for-unit '(unit-orc-barracks))
 
456
  'for-unit '(unit-mythical-barracks))
447
457
 
448
458
(define-button 'pos 2 'level 0 'icon 'icon-axethrower
449
459
  'action 'train-unit 'value 'unit-axethrower
450
460
  'key "a" 'hint "TRAIN ~!AXETHROWER"
451
 
  'for-unit '(unit-orc-barracks))
 
461
  'for-unit '(unit-mythical-barracks))
452
462
 
453
463
(define-button 'pos 2 'level 0 'icon 'icon-berserker
454
464
  'action 'train-unit 'value 'unit-berserker
455
465
  'key "b" 'hint "TRAIN ~!BERSERKER"
456
 
  'for-unit '(unit-orc-barracks))
 
466
  'for-unit '(unit-mythical-barracks))
457
467
 
458
468
(define-button 'pos 3 'level 0 'icon 'icon-catapult
459
469
  'action 'train-unit 'value 'unit-catapult
460
470
  'key "c" 'hint "BUILD ~!CATAPULT"
461
 
  'for-unit '(unit-orc-barracks))
 
471
  'for-unit '(unit-mythical-barracks))
462
472
 
463
473
(define-button 'pos 4 'level 0 'icon 'icon-ogre
464
474
  'action 'train-unit 'value 'unit-ogre
465
475
  'key "o" 'hint "TRAIN TWO-HEADED ~!OGRE"
466
 
  'for-unit '(unit-orc-barracks))
 
476
  'for-unit '(unit-mythical-barracks))
467
477
 
468
478
(define-button 'pos 4 'level 0 'icon 'icon-ogre-mage
469
479
  'action 'train-unit 'value 'unit-ogre-mage
470
480
  'key "o" 'hint "TRAIN ~!OGRE MAGE"
471
 
  'for-unit '(unit-orc-barracks))
 
481
  'for-unit '(unit-mythical-barracks))
472
482
 
473
 
(define-button 'pos 1 'level 0 'icon 'icon-goblin-zeppelin
474
 
  'action 'train-unit 'value 'unit-goblin-zeppelin
 
483
(define-button 'pos 1 'level 0 'icon 'icon-zeppelin
 
484
  'action 'train-unit 'value 'unit-zeppelin
475
485
  'key "z" 'hint "BUILD GOBLIN ~!ZEPPELIN"
476
 
  'for-unit '(unit-goblin-alchemist))
 
486
  'for-unit '(unit-alchemist))
477
487
 
478
488
(define-button 'pos 2 'level 0 'icon 'icon-goblin-sappers
479
489
  'action 'train-unit 'value 'unit-goblin-sappers
480
490
  'key "s" 'hint "TRAIN GOBLIN ~!SAPPERS"
481
 
  'for-unit '(unit-goblin-alchemist))
 
491
  'for-unit '(unit-alchemist))
482
492
 
483
493
(define-button 'pos 1 'level 0 'icon 'icon-death-knight
484
494
  'action 'train-unit 'value 'unit-death-knight
490
500
  'key "d" 'hint "BUILD ~!DRAGON"
491
501
  'for-unit '(unit-dragon-roost))
492
502
 
493
 
(define-button 'pos 1 'level 0 'icon 'icon-orc-oil-tanker
 
503
(define-button 'pos 1 'level 0 'icon 'icon-mythical-oil-tanker
494
504
  'action 'train-unit 'value 'unit-orc-oil-tanker
495
505
  'key "o" 'hint "BUILD ~!OIL TANKER"
496
 
  'for-unit '(unit-orc-shipyard))
 
506
  'for-unit '(unit-mythical-shipyard))
497
507
 
498
 
(define-button 'pos 2 'level 0 'icon 'icon-troll-destroyer
499
 
  'action 'train-unit 'value 'unit-troll-destroyer
 
508
(define-button 'pos 2 'level 0 'icon 'icon-mythical-destroyer
 
509
  'action 'train-unit 'value 'unit-mythical-destroyer
500
510
  'key "d" 'hint "BUILD ~!DESTROYER"
501
 
  'for-unit '(unit-orc-shipyard))
 
511
  'for-unit '(unit-mythical-shipyard))
502
512
 
503
 
(define-button 'pos 3 'level 0 'icon 'icon-orc-transport
504
 
  'action 'train-unit 'value 'unit-orc-transport
 
513
(define-button 'pos 3 'level 0 'icon 'icon-mythical-transport
 
514
  'action 'train-unit 'value 'unit-mythical-transport
505
515
  'key "t" 'hint "BUILD ~!TRANSPORT"
506
 
  'for-unit '(unit-orc-shipyard))
 
516
  'for-unit '(unit-mythical-shipyard))
507
517
 
508
 
(define-button 'pos 4 'level 0 'icon 'icon-giant-turtle
509
 
  'action 'train-unit 'value 'unit-giant-turtle
 
518
(define-button 'pos 4 'level 0 'icon 'icon-mythical-submarine
 
519
  'action 'train-unit 'value 'unit-mythical-submarine
510
520
  'key "g" 'hint "BUILD ~!GIANT TURTLE"
511
 
  'for-unit '(unit-orc-shipyard))
 
521
  'for-unit '(unit-mythical-shipyard))
512
522
 
513
523
(define-button 'pos 5 'level 0 'icon 'icon-ogre-juggernaught
514
524
  'action 'train-unit 'value 'unit-ogre-juggernaught
515
525
  'key "j" 'hint "BUILD ~!JUGGERNAUHGT"
516
 
  'for-unit '(unit-orc-shipyard))
 
526
  'for-unit '(unit-mythical-shipyard))
517
527
 
518
528
(if extensions (begin
519
529
;---------------------------------------------------
520
 
(define-button 'pos 6 'level 0 'icon 'icon-orc-ship-haul-oil
 
530
(define-button 'pos 6 'level 0 'icon 'icon-mythical-ship-haul-oil
521
531
  'action 'harvest
522
 
  'allowed 'check-no-work
523
532
  'key "h" 'hint "SET ~!HAUL OIL"
524
 
  'for-unit '(unit-orc-shipyard))
 
533
  'for-unit '(unit-mythical-shipyard))
525
534
;---------------------------------------------------
526
535
  ))
527
536
 
528
 
(define-button 'pos 1 'level 0 'icon 'icon-orc-guard-tower
529
 
  'action 'upgrade-to 'value 'unit-orc-guard-tower
 
537
(define-button 'pos 1 'level 0 'icon 'icon-mythical-guard-tower
 
538
  'action 'upgrade-to 'value 'unit-mythical-guard-tower
530
539
  'key "g" 'hint "UPGRADE TO ~!GUARD TOWER"
531
 
  'for-unit '(unit-orc-watch-tower))
 
540
  'for-unit '(unit-mythical-watch-tower))
532
541
 
533
 
(define-button 'pos 2 'level 0 'icon 'icon-orc-cannon-tower
534
 
  'action 'upgrade-to 'value 'unit-orc-cannon-tower
 
542
(define-button 'pos 2 'level 0 'icon 'icon-mythical-cannon-tower
 
543
  'action 'upgrade-to 'value 'unit-mythical-cannon-tower
535
544
  'key "c" 'hint "UPGRADE TO ~!CANNON TOWER"
536
 
  'for-unit '(unit-orc-watch-tower))
 
545
  'for-unit '(unit-mythical-watch-tower))
537
546
 
538
547
;; ships ----------------------------------------------------------------------
539
548
 
540
 
(define-button 'pos 1 'level 0 'icon 'icon-orc-ship-move
 
549
(define-button 'pos 1 'level 0 'icon 'icon-mythical-ship-move
541
550
  'action 'move
542
551
  'key "m" 'hint "~!MOVE"
543
 
  'for-unit '(unit-orc-oil-tanker unit-orc-oil-tanker-full unit-giant-turtle
544
 
    unit-ogre-juggernaught unit-troll-destroyer unit-orc-transport))
 
552
  'for-unit '(unit-orc-oil-tanker unit-orc-oil-tanker-full unit-mythical-submarine
 
553
    unit-ogre-juggernaught unit-mythical-destroyer unit-mythical-transport))
545
554
 
546
 
(define-button 'pos 2 'level 0 'icon 'icon-orc-ship-armor1
 
555
(define-button 'pos 2 'level 0 'icon 'icon-mythical-ship-armor1
547
556
  'action 'stop
548
557
  'key "s" 'hint "~!STOP"
549
 
  'for-unit '(unit-orc-oil-tanker unit-orc-oil-tanker-full unit-giant-turtle
550
 
    unit-ogre-juggernaught unit-troll-destroyer unit-orc-transport))
 
558
  'for-unit '(unit-orc-oil-tanker unit-orc-oil-tanker-full unit-mythical-submarine
 
559
    unit-ogre-juggernaught unit-mythical-destroyer unit-mythical-transport))
551
560
 
552
 
(define-button 'pos 3 'level 0 'icon 'icon-orc-unload
 
561
(define-button 'pos 3 'level 0 'icon 'icon-mythical-unload
553
562
  'action 'unload
554
563
  'key "u" 'hint "~!UNLOAD"
555
 
  'for-unit '(unit-orc-transport))
 
564
  'for-unit '(unit-mythical-transport))
556
565
 
557
 
(define-button 'pos 4 'level 0 'icon 'icon-orc-oil-platform
558
 
  'action 'build 'value 'unit-orc-oil-platform
 
566
(define-button 'pos 4 'level 0 'icon 'icon-mythical-oil-platform
 
567
  'action 'build 'value 'unit-mythical-oil-platform
559
568
  'key "b" 'hint "~!BUILD OIL PLATFORM"
560
569
  'for-unit '(unit-orc-oil-tanker))
561
570
 
562
 
(define-button 'pos 5 'level 0 'icon 'icon-orc-ship-haul-oil
 
571
(define-button 'pos 5 'level 0 'icon 'icon-mythical-ship-haul-oil
563
572
  'action 'harvest
564
573
  'key "h" 'hint "~!HAUL OIL"
565
574
  'for-unit '(unit-orc-oil-tanker))
566
575
 
567
 
(define-button 'pos 6 'level 0 'icon 'icon-orc-ship-return-oil
 
576
(define-button 'pos 6 'level 0 'icon 'icon-mythical-ship-return-oil
568
577
  'action 'return-goods
569
578
  'key "g" 'hint "RETURN WITH ~!GOODS"
570
579
  'for-unit '(unit-orc-oil-tanker-full))
571
580
 
572
 
(define-button 'pos 3 'level 0 'icon 'icon-orc-ship-cannon1
573
 
  'action 'attack
574
 
  'key "a" 'hint "~!ATTACK"
575
 
  'for-unit '(unit-giant-turtle unit-ogre-juggernaught unit-troll-destroyer))
576
 
 
577
 
(define-button 'pos 3 'level 0 'icon 'icon-orc-ship-cannon2
578
 
  'action 'attack
579
 
  'allowed 'check-upgrade 'allow-arg '(upgrade-orc-ship-cannon1)
580
 
  'key "a" 'hint "~!ATTACK"
581
 
  'for-unit '(unit-giant-turtle unit-ogre-juggernaught unit-troll-destroyer))
582
 
 
583
 
(define-button 'pos 3 'level 0 'icon 'icon-orc-ship-cannon3
584
 
  'action 'attack
585
 
  'allowed 'check-upgrade 'allow-arg '(upgrade-orc-ship-cannon2)
586
 
  'key "a" 'hint "~!ATTACK"
587
 
  'for-unit '(unit-giant-turtle unit-ogre-juggernaught unit-troll-destroyer))
588
 
 
589
 
(define-button 'pos 4 'level 0 'icon 'icon-orc-patrol-naval
 
581
(define-button 'pos 3 'level 0 'icon 'icon-mythical-ship-cannon1
 
582
  'action 'attack
 
583
  'key "a" 'hint "~!ATTACK"
 
584
  'for-unit '(unit-mythical-submarine unit-ogre-juggernaught unit-mythical-destroyer))
 
585
 
 
586
(define-button 'pos 3 'level 0 'icon 'icon-mythical-ship-cannon2
 
587
  'action 'attack
 
588
  'allowed 'check-upgrade 'allow-arg '(upgrade-mythical-ship-cannon1)
 
589
  'key "a" 'hint "~!ATTACK"
 
590
  'for-unit '(unit-mythical-submarine unit-ogre-juggernaught unit-mythical-destroyer))
 
591
 
 
592
(define-button 'pos 3 'level 0 'icon 'icon-mythical-ship-cannon3
 
593
  'action 'attack
 
594
  'allowed 'check-upgrade 'allow-arg '(upgrade-mythical-ship-cannon2)
 
595
  'key "a" 'hint "~!ATTACK"
 
596
  'for-unit '(unit-mythical-submarine unit-ogre-juggernaught unit-mythical-destroyer))
 
597
 
 
598
(define-button 'pos 4 'level 0 'icon 'icon-mythical-patrol-naval
590
599
  'action 'patrol
591
600
  'key "p" 'hint "~!PATROL"
592
 
  'for-unit '(unit-giant-turtle unit-ogre-juggernaught unit-troll-destroyer))
 
601
  'for-unit '(unit-mythical-submarine unit-ogre-juggernaught unit-mythical-destroyer))
593
602
 
594
603
(if extensions (begin
595
 
(define-button 'pos 7 'level 0 'icon 'icon-orc-ship-move
 
604
(define-button 'pos 7 'level 0 'icon 'icon-mythical-ship-move
596
605
  'action 'move
597
 
  'allowed 'check-no-work
598
606
  'key "m" 'hint "SET ~!MOVE"
599
 
  'for-unit '(unit-orc-shipyard))
 
607
  'for-unit '(unit-mythical-shipyard))
600
608
 
601
 
(define-button 'pos 8 'level 0 'icon 'icon-orc-ship-armor1
 
609
(define-button 'pos 8 'level 0 'icon 'icon-mythical-ship-armor1
602
610
  'action 'stop
603
 
  'allowed 'check-no-work
604
611
  'key "z" 'hint "SET ~!ZTOP"
605
 
  'for-unit '(unit-orc-shipyard))
 
612
  'for-unit '(unit-mythical-shipyard))
606
613
 
607
 
(define-button 'pos 9 'level 0 'icon 'icon-orc-ship-cannon1
 
614
(define-button 'pos 9 'level 0 'icon 'icon-mythical-ship-cannon1
608
615
  'action 'attack
609
 
  'allowed 'check-no-work
610
616
  'key "e" 'hint "S~!ET ATTACK"
611
 
  'for-unit '(unit-orc-shipyard)) ))
 
617
  'for-unit '(unit-mythical-shipyard)) ))
612
618
 
613
619
;; upgrades -------------------------------------------------------------------
614
620
 
616
622
  'action 'research 'value 'upgrade-battle-axe1
617
623
  'allowed 'check-single-research
618
624
  'key "w" 'hint "UPGRADE ~!WEAPONS (Damage +2)"
619
 
  'for-unit '(unit-orc-blacksmith))
 
625
  'for-unit '(unit-mythical-blacksmith))
620
626
 
621
627
(define-button 'pos 1 'level 0 'icon 'icon-battle-axe3
622
628
  'action 'research 'value 'upgrade-battle-axe2
623
629
  'allowed 'check-single-research
624
630
  'key "w" 'hint "UPGRADE ~!WEAPONS (Damage +2)"
625
 
  'for-unit '(unit-orc-blacksmith))
626
 
 
627
 
(define-button 'pos 2 'level 0 'icon 'icon-orc-shield2
628
 
  'action 'research 'value 'upgrade-orc-shield1
629
 
  'allowed 'check-single-research
630
 
  'key "s" 'hint "UPGRADE ~!SHIELDS (Armor +2)"
631
 
  'for-unit '(unit-orc-blacksmith))
632
 
 
633
 
(define-button 'pos 2 'level 0 'icon 'icon-orc-shield3
634
 
  'action 'research 'value 'upgrade-orc-shield2
635
 
  'allowed 'check-single-research
636
 
  'key "s" 'hint "UPGRADE ~!SHIELDS (Armor +2)"
637
 
  'for-unit '(unit-orc-blacksmith))
 
631
  'for-unit '(unit-mythical-blacksmith))
 
632
 
 
633
(define-button 'pos 2 'level 0 'icon 'icon-mythical-shield2
 
634
  'action 'research 'value 'upgrade-mythical-shield1
 
635
  'allowed 'check-single-research
 
636
  'key "s" 'hint "UPGRADE ~!SHIELDS (Armor +2)"
 
637
  'for-unit '(unit-mythical-blacksmith))
 
638
 
 
639
(define-button 'pos 2 'level 0 'icon 'icon-mythical-shield3
 
640
  'action 'research 'value 'upgrade-mythical-shield2
 
641
  'allowed 'check-single-research
 
642
  'key "s" 'hint "UPGRADE ~!SHIELDS (Armor +2)"
 
643
  'for-unit '(unit-mythical-blacksmith))
638
644
 
639
645
(define-button 'pos 3 'level 0 'icon 'icon-catapult1
640
646
  'action 'research 'value 'upgrade-catapult1
641
647
  'allowed 'check-single-research
642
648
  'key "c" 'hint "UPGRADE ~!CATAPULT (Damage +15)"
643
 
  'for-unit '(unit-orc-blacksmith))
 
649
  'for-unit '(unit-mythical-blacksmith))
644
650
 
645
651
(define-button 'pos 3 'level 0 'icon 'icon-catapult2
646
652
  'action 'research 'value 'upgrade-catapult2
647
653
  'allowed 'check-single-research
648
654
  'key "c" 'hint "UPGRADE ~!CATAPULT (Damage +15)"
649
 
  'for-unit '(unit-orc-blacksmith))
 
655
  'for-unit '(unit-mythical-blacksmith))
650
656
 
651
657
(define-button 'pos 1 'level 0 'icon 'icon-throwing-axe2
652
658
  'action 'research 'value 'upgrade-throwing-axe1
732
738
  'key "d" 'hint "RESEARCH ~!DEATH AND DECAY"
733
739
  'for-unit '(unit-temple-of-the-damned))
734
740
 
735
 
(define-button 'pos 1 'level 0 'icon 'icon-orc-ship-cannon2
736
 
  'action 'research 'value 'upgrade-orc-ship-cannon1
737
 
  'allowed 'check-single-research
738
 
  'key "c" 'hint "UPGRADE ~!CANNONS (Damage +5)"
739
 
  'for-unit '(unit-orc-foundry))
740
 
 
741
 
(define-button 'pos 1 'level 0 'icon 'icon-orc-ship-cannon3
742
 
  'action 'research 'value 'upgrade-orc-ship-cannon2
743
 
  'allowed 'check-single-research
744
 
  'key "c" 'hint "UPGRADE ~!CANNONS (Damage +5)"
745
 
  'for-unit '(unit-orc-foundry))
746
 
 
747
 
(define-button 'pos 2 'level 0 'icon 'icon-orc-ship-armor2
748
 
  'action 'research 'value 'upgrade-orc-ship-armor1
749
 
  'allowed 'check-single-research
750
 
  'key "a" 'hint "UPGRADE SHIP ~!ARMOR (Armor +5)"
751
 
  'for-unit '(unit-orc-foundry))
752
 
 
753
 
(define-button 'pos 2 'level 0 'icon 'icon-orc-ship-armor3
754
 
  'action 'research 'value 'upgrade-orc-ship-armor2
755
 
  'allowed 'check-single-research
756
 
  'key "a" 'hint "UPGRADE SHIP ~!ARMOR (Armor +5)"
757
 
  'for-unit '(unit-orc-foundry))
 
741
(define-button 'pos 1 'level 0 'icon 'icon-mythical-ship-cannon2
 
742
  'action 'research 'value 'upgrade-mythical-ship-cannon1
 
743
  'allowed 'check-single-research
 
744
  'key "c" 'hint "UPGRADE ~!CANNONS (Damage +5)"
 
745
  'for-unit '(unit-mythical-foundry))
 
746
 
 
747
(define-button 'pos 1 'level 0 'icon 'icon-mythical-ship-cannon3
 
748
  'action 'research 'value 'upgrade-mythical-ship-cannon2
 
749
  'allowed 'check-single-research
 
750
  'key "c" 'hint "UPGRADE ~!CANNONS (Damage +5)"
 
751
  'for-unit '(unit-mythical-foundry))
 
752
 
 
753
(define-button 'pos 2 'level 0 'icon 'icon-mythical-ship-armor2
 
754
  'action 'research 'value 'upgrade-mythical-ship-armor1
 
755
  'allowed 'check-single-research
 
756
  'key "a" 'hint "UPGRADE SHIP ~!ARMOR (Armor +5)"
 
757
  'for-unit '(unit-mythical-foundry))
 
758
 
 
759
(define-button 'pos 2 'level 0 'icon 'icon-mythical-ship-armor3
 
760
  'action 'research 'value 'upgrade-mythical-ship-armor2
 
761
  'allowed 'check-single-research
 
762
  'key "a" 'hint "UPGRADE SHIP ~!ARMOR (Armor +5)"
 
763
  'for-unit '(unit-mythical-foundry))