home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / pc / software / spiele / strat / fcraft.tgz / fcraft.tar / clone-000402 / data / ccl / clone.ccl < prev    next >
Text File  |  2000-04-02  |  8KB  |  299 lines
  1. ;;
  2. ;;    A clone of a famous game.
  3. ;;
  4. ;;    clone.ccl    -    The clone configuration language.
  5. ;;
  6. ;;    (c) Copyright 1998,1999 by Lutz Sammer
  7. ;;
  8. ;;    $Id: clone.ccl,v 1.22 2000/02/25 00:56:43 root Exp $
  9. ;;
  10.  
  11. (display "clone config file loading ...");
  12.  
  13. (define nil () )
  14.  
  15. ;;-----------------------------------------------------------------------------
  16. ;;    Config-Part
  17. ;;-----------------------------------------------------------------------------
  18.  
  19. ;;    Edit the next sections to get your look and feel.
  20.  
  21. ;;    Enter your default title screen.
  22. (title-screen "ale-title.png")
  23.  
  24. ;;-----------------------------------------------------------------------------
  25.  
  26. ;;    Define mana-sprite.
  27. ;;
  28. ;;    (mana-sprite file hotx hoty width height)
  29. ;;
  30. ;(mana-sprite    "mana.png"    7 7 7 7)
  31.  
  32. ;;    Define health-sprite.
  33. ;;
  34. ;;    (mana-sprite file hotx hoty width height)
  35. ;;
  36. ;(health-sprite    "health.png"    0 7 7 7)
  37.  
  38. ;;    Uncomment next, to get a health bar to the left of the unit
  39. ;(show-health-bar)
  40.  
  41. ;;    Uncomment next, to get a health dot to the left of the unit
  42. (show-health-dot)
  43.  
  44. ;;    Uncomment next, to get a mana bar to the right of the unit
  45. ;(show-mana-bar)
  46.  
  47. ;;    Uncomment next, to get a mana dot to the right of the unit
  48. (show-mana-dot)
  49.  
  50. ;;    Uncomment next, to get no full bars or dots.
  51. (show-no-full) 
  52. ;;    Uncomment next, to show always bars or dots.
  53. ;(show-full) 
  54.  
  55. ;;    Uncomment next, to show bars and dots always on top.
  56. (decoration-on-top)
  57.  
  58. ;;    Uncomment next, to show the sight range of the selected unit on map.
  59. ;(show-sight-range)
  60.  
  61. ;;    Uncomment next, to show the react range of the selected unit on map.
  62. ;(show-react-range)
  63.  
  64. ;;    Uncomment next, to show the attack range of the selected unit on map.
  65. ;(show-attack-range)
  66.  
  67. ;;    Uncomment next, to show the orders of the selected unit on map.
  68. ;(show-orders)
  69.  
  70. ;;-----------------------------------------------------------------------------
  71.  
  72. ;;    Change next, for the wanted mouse speed.
  73. (mouse-adjust 15)
  74.  
  75. ;;    Uncomment next, to reverse middle mouse button map move direction.
  76. ;(reverse-map-move)
  77.  
  78. ;;    Uncomment next, to reveal the complete map.
  79. ;(reveal-map)
  80.  
  81. ;;    Uncomment next, to disable the fog of war.
  82. ;(no-fog-of-war)
  83. (define (no-fog) (no-fog-of-war))    ; SHORTCUT
  84.  
  85. ;;    Uncomment next, to enable the fog of war.
  86. (fog-of-war)
  87.  
  88. ;;    Choose your default for minimap with/without terrain.
  89. (minimap-terrain)
  90. ;(minimap-no-terrain)
  91.  
  92. ;;    Choose your default for the fog of war style.
  93. ;(original-fog-of-war)
  94. (gray-fog-of-war)
  95.  
  96. ;;    If you use gray style fog of war set the contrast,brightness,saturation
  97. (fog-of-war-contrast 30)
  98. (fog-of-war-brightness 10)
  99. (fog-of-war-saturation 100)
  100.  
  101. ;;-----------------------------------------------------------------------------
  102.  
  103. ;;    Edit next to increase the speed, for debugging.
  104.  
  105. ;;    Decrease the mining time by this factor.
  106. (speed-mine 10)
  107. ;;    Decrease the time in a gold deposit by this factor.
  108. (speed-gold 10)
  109. ;;    Decrease the time for chopping a tree by this factor.
  110. (speed-chop 10)
  111. ;;    Decrease the time in a wood deposit by this factor.
  112. (speed-wood 10)
  113. ;;    Decrease the time for haul oil by this factor.
  114. (speed-haul 10)
  115. ;;    Decrease the time in an oil deposit by this factor.
  116. (speed-oil 10)
  117. ;;    Decrease the time to build a unit by this factor.
  118. (speed-build 10)
  119. ;;    Decrease the time to train a unit by this factor.
  120. (speed-train 10)
  121. ;;    Decrease the time to upgrade a unit by this factor.
  122. (speed-upgrade 10)
  123. ;;    Decrease the time to research by this factor.
  124. (speed-research 10)
  125.  
  126. ;;    You can do all the above with this
  127. (speeds 1)
  128.  
  129. ;;-----------------------------------------------------------------------------
  130. ;;    Definitions-Part
  131. ;;-----------------------------------------------------------------------------
  132.  
  133. ;;    Tileset names for slots
  134. (define TilesetSummer        0)
  135. (define TilesetWinter        1)
  136. (define TilesetWasteland    2)
  137. (define TilesetSwamp        3)
  138.  
  139. ;;    Missile names for slots
  140. (define    MissileLightning    0)
  141. (define    MissileGriffonHammer    1)
  142. (define    MissileDragonBreath    2)
  143. (define    MissileFireball        3)
  144. (define    MissileFlameShield    4)
  145. (define    MissileBlizzard        5)
  146. (define    MissileDeathDecay    6)
  147. (define    MissileBigCannon    7)
  148. (define    MissileExorcism        8)
  149. (define    MissileHealEffect    9)
  150. (define    MissileTouchOfDeath    10)
  151. (define    MissileRune        11)
  152. (define    MissileWhirlwind    12)
  153. (define    MissileCatapultRock    13)
  154. (define    MissileBallistaBolt    14)
  155. (define    MissileArrow        15)
  156. (define    MissileAxe        16)
  157. (define    MissileSubmarineMissile    17)
  158. (define    MissileTurtleMissile    18)
  159. (define    MissileSmallFire    19)
  160. (define    MissileBigFire        20)
  161. (define    MissileImpact        21)
  162. (define    MissileNormalSpell    22)
  163. (define    MissileExplosion    23)
  164. (define    MissileSmallCannon    24)
  165. (define    MissileCannonExplosion    25)
  166. (define    MissileCannonTowerExplosion    26)
  167. (define    MissileDaemonFire    27)
  168. (define    MissileGreenCross    28)
  169. (define    MissileNone        29)
  170.  
  171. ;;    Unit-type names for slots
  172. (define    UnitFootman        0)
  173. (define    UnitGrunt        1)
  174. (define    UnitPeasant        2)
  175. (define    UnitPeon        3)
  176. (define    UnitBallista        4)
  177. (define    UnitCatapult        5)
  178. (define    UnitKnight        6)
  179. (define    UnitOgre        7)
  180. (define    UnitArcher        8)
  181. (define    UnitAxethrower        9)
  182. (define    UnitMage        10)
  183. (define    UnitDeathKnight        11)
  184. (define    UnitPaladin        12)
  185. (define    UnitOgreMage        13)
  186. (define    UnitDwarves        14)
  187. (define    UnitGoblinSappers    15)
  188. (define    UnitAttackPeasant    16)
  189. (define    UnitAttackPeon        17)
  190. (define    UnitRanger        18)
  191. (define    UnitBerserker        19)
  192. (define    UnitAlleria        20)
  193. (define    UnitTeronGorefiend    21)
  194. (define    UnitKurdanAndSky_ree    22)
  195. (define    UnitDentarg        23)
  196. (define    UnitKhadgar        24)
  197. (define    UnitGromHellscream    25)
  198. (define    UnitTankerHuman        26)
  199. (define    UnitTankerOrc        27)
  200. (define    UnitTransportHuman    28)
  201. (define    UnitTransportOrc    29)
  202. (define    UnitElvenDestroyer    30)
  203. (define    UnitTrollDestroyer    31)
  204. (define    UnitBattleship        32)
  205. (define    UnitJuggernaught    33)
  206. (define    UnitNothing        34)
  207. (define    UnitDeathwing        35)
  208. (define    UnitNothing1        36)
  209. (define    UnitNothing2        37)
  210. (define    UnitGnomishSubmarine    38)
  211. (define    UnitGiantTurtle        39)
  212. (define    UnitGnomishFlyingMachine    40)
  213. (define    UnitGoblinZeppelin    41)
  214. (define    UnitGryphonRider    42)
  215. (define    UnitDragon        43)
  216. (define    UnitTuralyon        44)
  217. (define    UnitEyeOfKilrogg    45)
  218. (define    UnitDanath        46)
  219. (define    UnitKorgathBladefist    47)
  220. (define    UnitNothing3        48)
  221. (define    UnitCho_gall        49)
  222. (define    UnitLothar        50)
  223. (define    UnitGul_dan        51)
  224. (define    UnitUtherLightbringer    52)
  225. (define    UnitZuljin        53)
  226. (define    UnitNothing4        54)
  227. (define    UnitSkeleton        55)
  228. (define    UnitDaemon        56)
  229. (define    UnitCritter        57)
  230. (define    UnitFarm        58)
  231. (define    UnitPigFarm        59)
  232. (define    UnitBarracksHuman    60)
  233. (define    UnitBarracksOrc        61)
  234. (define    UnitChurch        62)
  235. (define    UnitAltarOfStorms    63)
  236. (define    UnitScoutTowerHuman    64)
  237. (define    UnitScoutTowerOrc    65)
  238. (define    UnitStables        66)
  239. (define    UnitOgreMound        67)
  240. (define    UnitGnomishInventor    68)
  241. (define    UnitGoblinAlchemist    69)
  242. (define    UnitGryphonAviary    70)
  243. (define    UnitDragonRoost        71)
  244. (define    UnitShipyardHuman    72)
  245. (define    UnitShipyardOrc        73)
  246. (define    UnitTownHall        74)
  247. (define    UnitGreatHall        75)
  248. (define    UnitElvenLumberMill    76)
  249. (define    UnitTrollLumberMill    77)
  250. (define    UnitFoundryHuman    78)
  251. (define    UnitFoundryOrc        79)
  252. (define    UnitMageTower        80)
  253. (define    UnitTempleOfTheDamned    81)
  254. (define    UnitBlacksmithHuman    82)
  255. (define    UnitBlacksmithOrc    83)
  256. (define    UnitRefineryHuman    84)
  257. (define    UnitRefineryOrc        85)
  258. (define    UnitOilPlatformHuman    86)
  259. (define    UnitOilPlatformOrc    87)
  260. (define    UnitKeep        88)
  261. (define    UnitStronghold        89)
  262. (define    UnitCastle        90)
  263. (define    UnitFortress        91)
  264. (define    UnitGoldMine        92)
  265. (define    UnitOilPatch        93)
  266. (define    UnitStartLocationHuman    94)
  267. (define    UnitStartLocationOrc    95)
  268. (define    UnitGuardTowerHuman    96)
  269. (define    UnitGuardTowerOrc    97)
  270. (define    UnitCannonTowerHuman    98)
  271. (define    UnitCannonTowerOrc    99)
  272. (define    UnitCircleofPower    100)
  273. (define    UnitDarkPortal        101)
  274. (define    UnitRunestone        102)
  275. (define    UnitWallHuman        103)
  276. (define    UnitWallOrc        104)
  277. (define    UnitDeadBody        105)
  278. (define    UnitDestroyed1x1Place    106)
  279. (define    UnitDestroyed2x2Place    107)
  280. (define    UnitDestroyed3x3Place    108)
  281. (define    UnitDestroyed4x4Place    109)
  282. (define    UnitPeasantWithGold    110)
  283. (define    UnitPeonWithGold    111)
  284. (define    UnitPeasantWithWood    112)
  285. (define    UnitPeonWithWood    113)
  286.  
  287. ;;-----------------------------------------------------------------------------
  288. ;;    Tables-Part
  289. ;;-----------------------------------------------------------------------------
  290.  
  291. (primitive-load "data/ccl/tilesets.ccl")
  292. (primitive-load "data/ccl/sound.ccl")
  293. (primitive-load "data/ccl/missiles.ccl")
  294. (primitive-load "data/ccl/units.ccl")
  295.  
  296. ;;-----------------------------------------------------------------------------
  297.  
  298. (display "... ready!") (newline)
  299.