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 / freecraft.ccl < prev    next >
Text File  |  2000-04-02  |  5KB  |  183 lines
  1. ;;   ___________             _________              _____  __
  2. ;;   \_      _____/______   ____   ____ \_   ___ \____________ _/ ____\/  |_
  3. ;;    |    __) \_  __ \_/ __ \_/ __ \/    \  \/\_  __ \__  \\   __\\   __\ 
  4. ;;    |     \   |  | \/\  ___/\  ___/\     \____|  | \// __ \|  |   |  |
  5. ;;    \___  /   |__|    \___  >\___  >\______  /|__|  (____  /__|   |__|
  6. ;;      \/            \/       \/         \/           \/
  7. ;;  ______________________                           ______________________
  8. ;;              T H E   W A R   B E G I N S
  9. ;;       FreeCraft - A free fantasy real time strategy game engine
  10. ;;
  11. ;;    freecraft.ccl    -    The craft configuration language.
  12. ;;
  13. ;;    (c) Copyright 1998-2000 by Lutz Sammer
  14. ;;
  15. ;;    $Id: freecraft.ccl,v 1.20 2000/04/01 15:26:05 root Exp $
  16. ;;
  17.  
  18. (writes nil "FreeCraft default config file loading ...")
  19.  
  20. ;;-----------------------------------------------------------------------------
  21. ;;    Config-Part
  22. ;;-----------------------------------------------------------------------------
  23.  
  24. ;;    Edit the next sections to get your look and feel.
  25.  
  26. ;;    Set the game contrast,brightness,saturation.
  27. ;(contrast 100) (brightness 0) (saturation 100)
  28. (contrast 110) (brightness 15) (saturation 100)
  29.  
  30. ;;    Use internal races 0=original 1=new
  31. (race-add 0)
  32. ;(race-add 1)
  33.  
  34. ;;    Enter your default title screen.
  35. (title-screen "ale-title.png")
  36.  
  37. ;;-----------------------------------------------------------------------------
  38.  
  39. ;;    Define mana-sprite.
  40. ;;
  41. ;;    (mana-sprite file hotx hoty width height)
  42. ;;
  43. (mana-sprite    "mana.png"    -7 -7 7 7)
  44. ;(mana-sprite    "mana2.png"    -12 -2 13 4)
  45.  
  46. ;;    Define health-sprite.
  47. ;;
  48. ;;    (mana-sprite file hotx hoty width height)
  49. ;;
  50. (health-sprite    "health.png"    0 -7 7 7)
  51. ;(health-sprite    "health2.png"    0 -2 23 3)
  52.  
  53. ;;    Uncomment next, to get a health bar to the left of the unit
  54. ;(show-health-bar)
  55.  
  56. ;;    Uncomment next, to get a health dot to the left of the unit
  57. (show-health-dot)
  58.  
  59. ;;    Uncomment next, to get a mana bar to the right of the unit
  60. ;(show-mana-bar)
  61.  
  62. ;;    Uncomment next, to get a mana dot to the right of the unit
  63. (show-mana-dot)
  64.  
  65. ;;    Uncomment next, to get no full bars or dots.
  66. (show-no-full) 
  67. ;;    Uncomment next, to show always bars or dots.
  68. ;(show-full) 
  69.  
  70. ;;    Uncomment next, to show bars and dots always on top.
  71. (decoration-on-top)
  72.  
  73. ;;    Uncomment next, to show the sight range of the selected unit on map.
  74. ;(show-sight-range)
  75.  
  76. ;;    Uncomment next, to show the react range of the selected unit on map.
  77. ;(show-react-range)
  78.  
  79. ;;    Uncomment next, to show the attack range of the selected unit on map.
  80. ;(show-attack-range)
  81.  
  82. ;;    Uncomment next, to show the orders of the selected unit on map.
  83. ;(show-orders)
  84.  
  85. ;;    Uncomment next, to show the original game resource line.
  86. ;(original-resources)
  87.  
  88. ;;-----------------------------------------------------------------------------
  89.  
  90. ;;    Change next, for the wanted mouse speed.
  91. (mouse-adjust 15)
  92.  
  93. ;;    Uncomment next, to disable mouse scrolling.
  94. ;(mouse-scroll-off)
  95.  
  96. ;;    Keyboard scroll speed in frames (1=each frame,2 each second,...)
  97. (key-scroll-speed 1)
  98.  
  99. ;;    Mouse scroll speed in frames (1=each frame,2 each second,...)
  100. (key-scroll-speed 1)
  101.  
  102. ;;    Comment next, to disable the display of the command keys in buttons.
  103. (show-command-key)
  104.  
  105. ;;    Uncomment next, to reverse middle mouse button map move direction.
  106. ;(reverse-map-move)
  107.  
  108. ;;    Uncomment next, to reveal the complete map.
  109. ;(reveal-map)
  110.  
  111. ;;    Uncomment next, to disable the fog of war.
  112. ;(no-fog-of-war)
  113. (define (no-fog) (no-fog-of-war))    ; SHORTCUT
  114.  
  115. ;;    Uncomment next, to enable the fog of war.
  116. (fog-of-war)
  117.  
  118. ;;    Choose your default for minimap with/without terrain.
  119. (minimap-terrain)
  120. ;(minimap-no-terrain)
  121.  
  122. ;;    Choose your default for the fog of war style.
  123. ;(original-fog-of-war)
  124. (gray-fog-of-war)
  125.  
  126. ;;    If you use gray style fog of war set the contrast,brightness,saturation
  127. (fog-of-war-contrast 30)
  128. (fog-of-war-brightness 10)
  129. (fog-of-war-saturation 100)
  130.  
  131. ;;    Set forest regeneration speed. (n* seconds, 0 = disabled)
  132. ;;    (Auf allgemeinen Wunsch eines einzelnen Herrn :)
  133. (forest-regeneration 0)
  134. ;(forest-regeneration 5)
  135.  
  136. ;;-----------------------------------------------------------------------------
  137.  
  138. ;;    Edit next to increase the speed, for debugging.
  139.  
  140. ;;    Decrease the mining time by this factor.
  141. (speed-mine 10)
  142. ;;    Decrease the time in a gold deposit by this factor.
  143. (speed-gold 10)
  144. ;;    Decrease the time for chopping a tree by this factor.
  145. (speed-chop 10)
  146. ;;    Decrease the time in a wood deposit by this factor.
  147. (speed-wood 10)
  148. ;;    Decrease the time for haul oil by this factor.
  149. (speed-haul 10)
  150. ;;    Decrease the time in an oil deposit by this factor.
  151. (speed-oil 10)
  152. ;;    Decrease the time to build a unit by this factor.
  153. (speed-build 10)
  154. ;;    Decrease the time to train a unit by this factor.
  155. (speed-train 10)
  156. ;;    Decrease the time to upgrade a unit by this factor.
  157. (speed-upgrade 10)
  158. ;;    Decrease the time to research by this factor.
  159. (speed-research 10)
  160.  
  161. ;;    You can do all the above with this
  162. (speeds 1)
  163.  
  164. ;;-----------------------------------------------------------------------------
  165. ;;    Tables-Part
  166. ;;-----------------------------------------------------------------------------
  167.  
  168. ;;; Uses FreeCraft Library path!
  169. (load "ccl/tilesets.ccl" #f #t)
  170. ; FIXME: Need to check if sound support is present
  171. (load "ccl/sound.ccl" #f #t)
  172. (load "ccl/missiles.ccl" #f #t)
  173. (load "ccl/anim.ccl" #f #t)
  174. (load "ccl/units.ccl" #f #t)
  175. (load "ccl/upgrade.ccl" #f #t)
  176. (load "ccl/fonts.ccl" #f #t)
  177. (load "ccl/ui.ccl" #f #t)
  178. (load "ccl/ai.ccl" #f #t)
  179.  
  180. ;;-----------------------------------------------------------------------------
  181.  
  182. (writes nil "... ready!\n")
  183.