[Stratagus-ccl] CCL Alteration: define-ui

[jsalmon33]

The info panel has been redesigned.  The completed-bar, info-buttons, and
training-buttons have been moved inside of info-panel.

panel
    background image for the info panel
selected
    shows selected unit(s)
training
    shows training unit(s)
upgrading
    shows a building being upgraded
researching
    shows a building doing research
transporting
    shows units being transported
completed-bar
    the completed bar for building, training, upgrading, researching


Example

  (define info_panel_x 0)
  (define info_panel_y 160)
  (define icon_size '(46 38))

  (define-ui ...
    ...

    'info-panel (list
      'panel (list
        'file "graphics/ui/human/infopanel.png"
        'pos (list info_panel_x info_panel_y)
        'size '(176 176)
      )
      'selected (list
        'single (list
          'icon (list
            'pos '(  6 166) 'size icon_size))
        'multiple (list
          'icons (list
            (list 'pos '(  6 166) 'size icon_size)
            (list 'pos '( 62 166) 'size icon_size)
            (list 'pos '(118 166) 'size icon_size)
            (list 'pos '(  6 220) 'size icon_size)
            (list 'pos '( 62 220) 'size icon_size)
            (list 'pos '(118 220) 'size icon_size)
            (list 'pos '(  6 274) 'size icon_size)
            (list 'pos '( 62 274) 'size icon_size)
            (list 'pos '(118 274) 'size icon_size)))
      )
      'training (list
        'single (list
          'text (list
            'text "Training:"
            'font 'game
            'pos (list (+ info_panel_x 37) (+ info_panel_y 8 78)))
          'icon (list
            'pos (list (+ info_panel_x 107) (+ info_panel_y 8 70))
            'size icon_size)
        )
        'multiple (list
          'icons (list
            (list 'pos '(  6 216) 'size icon_size)
            (list 'pos '( 62 216) 'size icon_size)
            (list 'pos '(118 216) 'size icon_size)
            (list 'pos '(  6 263) 'size icon_size)
            (list 'pos '( 62 263) 'size icon_size)
            (list 'pos '(118 263) 'size icon_size)))
      )
      'upgrading (list
        'text (list
          'text "Upgrading:"
          'font 'game
          'pos (list (+ info_panel_x 29) (+ info_panel_y 8 78)))
        'icon (list
          'pos (list (+ info_panel_x 107) (+ info_panel_y 8 70))
          'size icon_size)
      )
      'researching (list
        'text (list
          'text "Researching:"
          'font 'game
          'pos (list (+ info_panel_x 16) (+ info_panel_y 8 78)))
        'icon (list
          'pos (list (+ info_panel_x 107) (+ info_panel_y 8 70))
          'size icon_size)
      )
      'transporting (list
        'icons (list
          (list 'pos '(  6 220) 'size icon_size)
          (list 'pos '( 62 220) 'size icon_size)
          (list 'pos '(118 220) 'size icon_size)
          (list 'pos '(  6 274) 'size icon_size)
          (list 'pos '( 62 274) 'size icon_size)
          (list 'pos '(118 274) 'size icon_size))
      )
      'completed-bar (list
        'color '(48 100 4)
        'pos '( 12 313)
        'size '(152 14)
        'text (list
          'text "% Complete"
          'font 'game
          'pos '( 50 313))
      )
    )

    ...
  )