head 1.2; access; symbols; locks ingo:1.2; strict; comment @# @; 1.2 date 2002.11.09.00.11.44; author ingo; state Exp; branches; next 1.1; 1.1 date 2002.11.08.22.49.56; author ingo; state Exp; branches; next ; desc @@ 1.2 log @*** empty log message *** @ text @;; RoboVasion ;; (define (display el) (writes nil el)) (define (newline) (writes nil "\n")) (define (for-each func lst) (cond ((not (null? lst)) (func (car lst)) (for-each func (cdr lst))))) (define (println . args) (for-each display args) (newline)) (define color-dark-green 149) (println "+------------------------------------------------------------------+\n" "| RoboVasio 0.0.1 - Copyright (c) 2002 Ingo Ruhnke |\n" "+------------------------------------------------------------------+\n") ;(set-title-screen! "gfx/title.png") (set-menu-background! "gfx/title.png") (set-color-cycle-all! #f) (set-selection-style! 'corners) (set-show-sight-range! #f) (define-tileset 'robovasion-tileset 'class "summer" 'name "RoboVasion Default Tileset" 'image "tile.png" 'palette "summer.rgb" ;; Slots descriptions 'slots (list)) ;; Mapping (define-tileset-wc-names 'robovasion-tileset 'robovasion-tileset 'robovasion-tileset 'robovasion-tileset) (define-race-wc-names 'roborace 'roborace 'roborace) (define-cursor 'cursor-default 'any 'image "ui/cursor.png" 'hot-spot '( 4 10) 'size '(32 32)) (println "Loading fonts...") (define-font 'small "graphics/ui/fonts/small.png" 7 6) (define-font 'game "graphics/ui/fonts/game.png" 13 14) (define-font 'large "graphics/ui/fonts/large.png" 17 17) (define-font 'small-title "graphics/ui/fonts/large.png" 17 17) (define-font 'large-title "graphics/ui/fonts/large.png" 17 17) (define-unit-type 'unit-orc-wall 'name "Wall") (define-unit-type 'unit-human-wall 'name "Wall") (define-font-colors ;; 0 black #( 0 228 228 228 228 239 0 ) ;; 1 red #( 0 208 209 210 211 239 0 ) ;; 2 green #( 0 216 216 216 216 239 0 ) ;; 3 yellow #( 246 200 199 197 192 239 104 ) ;; 4 blue #( 0 1 1 1 1 239 0 ) ;; 5 magenta #( 0 220 220 220 220 239 0 ) ;; 6 cyan #( 0 224 224 224 224 239 0 ) ;; 7 white #( 0 246 246 246 104 239 0 ) ;; 8 grey #( 0 111 110 109 104 239 0 ) ;; 9 light-red #( 0 208 208 208 208 239 0 ) ;; a light-green #( 0 216 216 216 216 239 0 ) ;; b light-yellow #( 246 200 199 197 192 239 104 ) ;; c light-blue #( 0 1 1 1 1 239 0 ) ;; d light-magenta #( 0 220 220 220 220 239 0 ) ;; e light-cyan #( 0 224 224 224 224 239 0 ) ;; f light grey #( 0 111 110 109 104 239 0 ) ) (define-ui "orc" 640 480 ; Selector ; Filler 1 (list "graphics/ui/orc/640x480/filler-right.png" (+ 176 448) 0) ; Resource line '("graphics/ui/orc/640x480/resource.png" 176 0) ; gold resource (list "graphics/ui/gold,wood,oil,mana.png" 0 (+ 176 0) 0 14 14 (+ 176 0 18) 1) ; wood resource (list "graphics/ui/gold,wood,oil,mana.png" 1 (+ 176 65) 0 14 14 (+ 176 65 18) 1) ; oil resource (list "graphics/ui/gold,wood,oil,mana.png" 2 (+ 176 120) 0 14 14 (+ 176 120 18) 1) ; oge resource (list "graphics/ui/ore,stone,coal.png" 0 (+ 176 175) 0 14 14 (+ 176 175 18) 1) ; stone resource (list "graphics/ui/ore,stone,coal.png" 1 (+ 176 230) 0 14 14 (+ 176 230 18) 1) ; coal resource (list "graphics/ui/ore,stone,coal.png" 2 (+ 176 285) 0 14 14 (+ 176 285 18) 1) ; food resource (list "graphics/ui/food.png" 0 (+ 176 330) 0 14 14 (+ 176 330 18) 1) ; score (list "graphics/ui/score.png" 0 (+ 176 390) 0 14 14 (+ 176 390 18) 1) ; Info panel (list "graphics/ui/orc/infopanel.png" 0 160 176 176) ; Completed bar (list color-dark-green 12 313 50 313) ; Command button panel (list "graphics/ui/orc/640x480/buttonpanel.png" 0 336) ; The big map '(176 16 624 464) ; Menu button '("graphics/ui/orc/640x480/menubutton.png" 0 0) ; Minimap '("graphics/ui/orc/640x480/minimap.png" 0 24) ; Status line '("graphics/ui/orc/640x480/statusline.png" 176 464) ; Defines position and size of the different buttons. ; Menu button '( 24 2 128 17 ) ; 9 Character portraits '( 6 166 46 38 ) '( 62 166 46 38 ) '(118 166 46 38 ) '( 6 220 46 38 ) '( 62 220 46 38 ) '(118 220 46 38 ) '( 6 274 46 38 ) '( 62 274 46 38 ) '(118 274 46 38 ) ; 9 Buttons interface '( 6 337 46 38 ) '( 62 337 46 38 ) '(118 337 46 38 ) '( 6 384 46 38 ) '( 62 384 46 38 ) '(118 384 46 38 ) '( 6 431 46 38 ) '( 62 431 46 38 ) '(118 431 46 38 ) ; Defines position and size of the training queue buttons. '( 6 216 46 38 ) '( 62 216 46 38 ) '(118 216 46 38 ) '( 6 263 46 38 ) '( 62 263 46 38 ) '(118 263 46 38 ) (list 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default ) '("graphics/ui/orc/panel 1.png") '("graphics/ui/orc/panel 2.png") '("graphics/ui/orc/panel 3.png") '("graphics/ui/orc/panel 4.png") '("graphics/ui/orc/panel 5.png") ) (define-unit-type 'unit-nothing-22 'name "Nothing 22" 'files '() 'size '(0 0) 'animations 'animations-building 'icon 'icon-cancel 'construction 'construction-0 'speed 14 'hit-points 0 'tile-size '(0 0) 'box-size '(0 0) 'sight-range 0 'basic-damage 0 'piercing-damage 0 'missile 'missile-none 'priority 0 'type-land 'sounds '()) ;; EOF ;;@ 1.1 log @Initial revision @ text @d1 1 d3 1 a3 1 (writes nil el)) d17 3 a19 1 d25 1 a25 1 ;(set-title-screen! "gfx/title.png") d38 7 d46 46 a91 1 'image "ui/cursor.png" 'hot-spot '( 4 10) 'size '(32 32)) d94 2 a95 5 ; Filler 1 (list "graphics/ui/orc/640x480/filler-right.png" (+ 176 448) 0) ; Resource line '("graphics/ui/orc/640x480/resource.png" 176 0) d97 2 a98 184 ; gold resource (list "graphics/ui/gold,wood,oil,mana.png" 0 (+ 176 0) 0 14 14 (+ 176 0 18) 1) ; wood resource (list "graphics/ui/gold,wood,oil,mana.png" 1 (+ 176 65) 0 14 14 (+ 176 65 18) 1) ; oil resource (list "graphics/ui/gold,wood,oil,mana.png" 2 (+ 176 120) 0 14 14 (+ 176 120 18) 1) ; oge resource (list "graphics/ui/ore,stone,coal.png" 0 (+ 176 175) 0 14 14 (+ 176 175 18) 1) ; stone resource (list "graphics/ui/ore,stone,coal.png" 1 (+ 176 230) 0 14 14 (+ 176 230 18) 1) ; coal resource (list "graphics/ui/ore,stone,coal.png" 2 (+ 176 285) 0 14 14 (+ 176 285 18) 1) ; food resource (list "graphics/ui/food.png" 0 (+ 176 330) 0 14 14 (+ 176 330 18) 1) ; score (list "graphics/ui/score.png" 0 (+ 176 390) 0 14 14 (+ 176 390 18) 1) ; Info panel (list "graphics/ui/orc/infopanel.png" 0 160 176 176) ; Completed bar (list color-dark-green 12 313 50 313) ; Command button panel (list "graphics/ui/orc/640x480/buttonpanel.png" 0 336) ; The big map '(176 16 624 464) ; Menu button '("graphics/ui/orc/640x480/menubutton.png" 0 0) ; Minimap '("graphics/ui/orc/640x480/minimap.png" 0 24) ; Status line '("graphics/ui/orc/640x480/statusline.png" 176 464) ; Defines position and size of the different buttons. ; Menu button '( 24 2 128 17 ) ; 9 Character portraits '( 6 166 46 38 ) '( 62 166 46 38 ) '(118 166 46 38 ) '( 6 220 46 38 ) '( 62 220 46 38 ) '(118 220 46 38 ) '( 6 274 46 38 ) '( 62 274 46 38 ) '(118 274 46 38 ) ; 9 Buttons interface '( 6 337 46 38 ) '( 62 337 46 38 ) '(118 337 46 38 ) '( 6 384 46 38 ) '( 62 384 46 38 ) '(118 384 46 38 ) '( 6 431 46 38 ) '( 62 431 46 38 ) '(118 431 46 38 ) ; Defines position and size of the training queue buttons. '( 6 216 46 38 ) '( 62 216 46 38 ) '(118 216 46 38 ) '( 6 263 46 38 ) '( 62 263 46 38 ) '(118 263 46 38 ) (list 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default ) '("graphics/ui/orc/panel 1.png") '("graphics/ui/orc/panel 2.png") '("graphics/ui/orc/panel 3.png") '("graphics/ui/orc/panel 4.png") '("graphics/ui/orc/panel 5.png") ) (define-ui "orc" 800 600 ; Selector ; Filler 1 (list "graphics/ui/orc/640x480/filler-right.png" (+ 176 608) 0) ; Resource line '("graphics/ui/orc/640x480/resource.png" 176 0) ; gold resource (list "graphics/ui/gold,wood,oil,mana.png" 0 (+ 176 20) 0 14 14 (+ 176 40) 1) ; wood resource (list "graphics/ui/gold,wood,oil,mana.png" 1 (+ 176 100) 0 14 14 (+ 176 120) 1) ; oil resource (list "graphics/ui/gold,wood,oil,mana.png" 2 (+ 176 180) 0 14 14 (+ 176 200) 1) ; oge resource (list "graphics/ui/ore,stone,coal.png" 0 (+ 176 240) 0 14 14 (+ 176 260) 1) ; stone resource (list "graphics/ui/ore,stone,coal.png" 1 (+ 176 320) 0 14 14 (+ 176 340) 1) ; coal resource (list "graphics/ui/ore,stone,coal.png" 2 (+ 176 400) 0 14 14 (+ 176 420) 1) ; food resource (list "graphics/ui/food.png" 0 (+ 176 480) 0 14 14 (+ 176 500) 1) ; score (list "graphics/ui/score.png" 0 (+ 176 540) 0 14 14 (+ 176 560) 1) ; Info panel (list "graphics/ui/orc/infopanel.png" 0 160 176 176) ; Completed bar (list color-dark-green 12 313 50 313) ; Command button panel (list "graphics/ui/orc/640x480/buttonpanel.png" 0 336) ; The big map '(176 16 784 560) ; Menu button '("graphics/ui/orc/640x480/menubutton.png" 0 0) ; Minimap '("graphics/ui/orc/640x480/minimap.png" 0 24) ; Status line '("graphics/ui/orc/640x480/statusline.png" 176 584) ; Defines position and size of the different buttons. ; Menu button '( 24 2 128 17 ) ; 9 Character portraits '( 6 166 46 38 ) '( 62 166 46 38 ) '(118 166 46 38 ) '( 6 218 46 38 ) '( 62 218 46 38 ) '(118 218 46 38 ) '( 6 270 46 38 ) '( 62 270 46 38 ) '(118 270 46 38 ) ; 9 Buttons interface '( 6 337 46 38 ) '( 62 337 46 38 ) '(118 337 46 38 ) '( 6 384 46 38 ) '( 62 384 46 38 ) '(118 384 46 38 ) '( 6 431 46 38 ) '( 62 431 46 38 ) '(118 431 46 38 ) ; Defines position and size of the training queue buttons. '( 6 216 46 38 ) '( 62 216 46 38 ) '(118 216 46 38 ) '( 6 263 46 38 ) '( 62 263 46 38 ) '(118 263 46 38 ) (list 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default 'cursor-default) '("graphics/ui/orc/panel 1.png") '("graphics/ui/orc/panel 2.png") '("graphics/ui/orc/panel 3.png") '("graphics/ui/orc/panel 4.png") '("graphics/ui/orc/panel 5.png")) d100 103 @