empi 0.21 → 0.25

data/lib/lib/user_interface/cursor.rb

@@ -0,0 +1,252 @@
+class Cursor
+  attr_accessor :freeroam, :info_stopped
+
+  def initialize(x, y, map, infopane)
+    dir_path = File.dirname(__FILE__)
+
+    @x = x
+    @y = y
+    @map = map
+    @infopane = infopane
+
+    @image = Gosu::Image.new(dir_path + '/../../media/cursor.png')
+    @freeroam = false
+    @info_stopped = false
+
+    # Give to Infopane link to yourself (for freeroam marker)
+    if !@infopane
+      abort("Cursor.initialize(): Infopane is not set")
+    end
+    @infopane.cursor = self
+  end
+
+  def update(button)
+    case button
+    # Cardinal directions
+    when Gosu::KbLeft, Gosu::KbA, Gosu::KB_NUMPAD_4 then
+      move!(-1, 0) unless @x <= 0
+    when Gosu::KbRight, Gosu::KbD, Gosu::KB_NUMPAD_6 then
+      move!(1, 0) unless @x >= MAPX
+    when Gosu::KbUp, Gosu::KbW, Gosu::KB_NUMPAD_8 then
+      move!(0, -1) unless @y <= 0
+    when Gosu::KbDown, Gosu::KbX, Gosu::KB_NUMPAD_2 then
+      move!(0, 1) unless @y >= MAPY
+
+    # Intercardinal directions
+    when Gosu::KbQ, Gosu::KB_NUMPAD_7 then
+      move!(-1, -1) unless @x <= 0 || @y <= 0
+    when Gosu::KbE, Gosu::KB_NUMPAD_9 then
+      move!(1, -1) unless @x >= MAPX || @y <= 0
+    when Gosu::KbZ, Gosu::KB_NUMPAD_1 then
+      move!(-1, 1) unless @x <= 0 || @y >= MAPY
+    when Gosu::KbC, Gosu::KB_NUMPAD_3 then
+      move!(1, 1) unless @x >= MAPX || @y >= MAPY
+
+    # Functions
+    when Gosu::KbS then
+      set_function_to_unit(FUNCSENTRY)
+    when Gosu::KbB then
+      set_function_to_unit(FUNCBUILD)
+    when Gosu::KbN then
+      set_function_to_unit(FUNCNONE)
+
+    # The rest
+    when Gosu::KbJ, Gosu::KB_NUMPAD_0 then
+      switch_freeroam!
+    when Gosu::KbK, Gosu::KB_NUMPAD_MINUS then
+      select_other_unit!(false)
+    when Gosu::KbL, Gosu::KB_NUMPAD_PLUS then
+      select_other_unit!(true)
+    when Gosu::KbReturn, Gosu::KB_NUMPAD_5 then
+      info
+    end
+
+    # If in locked mode, stay at current/jump to next movable unit
+    to_next_unit! unless @freeroam
+  end
+
+  def draw
+    @image.draw(@x * TILESIZE, (@y + 1) * TILESIZE, ZCURSOR)
+  end
+
+  # Move to coordinates of map unit the cursor is locked to
+  def warp_to_locked!()
+    @x = @locked_unit.x
+    @y = @locked_unit.y
+    @selected_unit = @locked_unit
+  end
+
+  # Move by given change of coordinates
+  def move!(xx, yy)
+    if freeroam
+      @x += xx
+      @y += yy
+      @selected_unit = @map.get_unit(@x, @y)
+      # TODO show some basic tile info in infopane
+    else
+      check_unit
+
+      # Move the unit first
+      @locked_unit.x += xx
+      @locked_unit.y += yy
+      @locked_unit.check_movement(@x, @y) # cursor coordinates work like old_x, old_y
+
+      # Is the unit still alive?
+      if @locked_unit.armour_left > 0
+        warp_to_locked! # whether it moved or not
+      else
+        # It got destroyed so clear last links then so that (object of)
+        # given unit can be truly destroyed
+        @selected_unit = nil
+        @locked_unit = nil
+      end
+    end
+  end
+
+  # Tries to set function <func> to selected unit
+  def set_function_to_unit(func)
+    check_unit
+
+    if @selected_unit
+      @selected_unit.set_function!(func, @infopane.faction)
+
+      # Update infopane with the new (possibly changed) state
+      # (visible only in freeroam mode as in locked one the infopane is
+      # overwritten as cursor either jumps away or switches to freeroam mode)
+      @infopane.text = @selected_unit.info
+    else
+      puts "no unit to set that function to (at #{@x}-#{@y})"
+    end
+  end
+
+  # Reset to locked mode
+  def reset!
+    @freeroam = true
+    switch_freeroam!
+    @selected_unit = nil
+    @locked_unit = nil
+    to_next_unit!
+  end
+
+  # Find next unit which is still waiting for commands and lock to it
+  # (selected -> last locked to -> next waiting) or switch (back) to freeroaming
+  def to_next_unit!
+    if @selected_unit and @selected_unit.is_waiting_for_commands?
+      # Lock to such unit (though it may have already been locked)
+      @locked_unit = @selected_unit
+    else
+      unless @locked_unit and @locked_unit.is_waiting_for_commands?
+        waiting = @map.all_units.select { |uu| uu.is_waiting_for_commands? }
+
+        # Are there still some units of active faction waiting for commands?
+        if waiting.size <= 0 # == would be enough
+          puts 'all movable units without functions moved'
+          switch_freeroam!
+          return
+        end
+
+        # Pick the first waiting unit (leftmost of topmosts)
+        @locked_unit = waiting[0]
+      end
+    end
+
+    warp_to_locked! # stay at old or go to new
+    info unless @info_stopped # due to switching out of the play game state
+  end
+
+  # Skip or cycle units, depending on cursor mode
+  def select_other_unit!(search_forward)
+    unless @freeroam
+      skip_to_other_unit!(search_forward)
+    else
+      cycle_to_other_unit!(search_forward)
+    end
+  end
+
+  # Skip from selected unit waiting for commands to the next/previous waiting one
+  def skip_to_other_unit!(search_forward = true)
+    if @freeroam
+      abort("Cursor.skip_to_other_unit!(): " \
+            "skipping to #{ search_forward ? 'next' : 'previous'} " \
+            "unit works only in locked mode, not in freeroam one")
+    end
+
+    waiting = @map.all_units.select { |uu| uu.is_waiting_for_commands? }
+
+    # Pick the previous/next waiting unit, relative to the current one
+    # (picking the previous of the first results in index -1 which is the last
+    # so there it is fine but taking the next of the last would go out of range)
+    current_index = waiting.index(@selected_unit)
+    other_index = search_forward ? current_index + 1 : current_index - 1
+    other_index = 0 if other_index >= waiting.size # == would be enough
+
+    @locked_unit = waiting[other_index]
+    warp_to_locked! # so that to_next_unit!() doesn't stay at @selected_unit
+  end
+
+  # Cycle from selected unit to the next/previous local one
+  def cycle_to_other_unit!(search_forward = true)
+    unless @freeroam
+      abort("Cursor.cycle_to_other_unit!():" \
+            "cycling to #{ search_forward ? 'next' : 'previous'} " \
+            "unit works only in freeroam mode, not in locked one")
+    end
+
+    unless @selected_unit
+      @infopane.text = ''
+      puts "no units to cycle through (at #{@x}-#{@y})"
+      return
+    end
+
+    local_pile = @map.all_units_from_tile(@x, @y)
+
+    # Pick the previous/next local unit, relative to the current one
+    # (picking the previous of the first results in index -1 which is the last
+    # so there it is fine but taking the next of the last would go out of range)
+    current_index = local_pile.index(@selected_unit)
+    other_index = search_forward ? current_index + 1 : current_index - 1
+    other_index = 0 if other_index >= local_pile.size # == would be enough
+
+    @selected_unit = local_pile[other_index]
+    info
+  end
+
+  # When cursor is in locked mode there needs to be unit it is locked to
+  # When cursor is in freeroam mode the locked unit should be kept
+  def check_unit
+    if !@freeroam and !@locked_unit
+      abort("Cursor.check_unit(): Cursor is in locked mode " \
+            "but there is no unit it is locked to (at #{@x}-#{@y})")
+    end
+  end
+
+  # Switch between being attached to unit and being able to freeroam
+  def switch_freeroam!
+    if freeroam
+      @infopane.text = 'freeroam disabled'
+      puts 'freeroam disabled'
+      @freeroam = false
+    else
+      @infopane.text = 'freeroam enabled'
+      puts 'freeroam enabled'
+      @freeroam = true
+    end
+  end
+
+  # Find some info about units on the current tile
+  def info
+    check_unit
+
+    if @selected_unit
+      @infopane.text = @selected_unit.info
+      puts @selected_unit.info
+
+      if @selected_unit.is_transporting?
+        @selected_unit.cargo.each { |uu| puts '- cargo: ' + uu.info }
+      end
+    else
+      @infopane.text = ''
+      puts "no unit to show info of (at #{@x}-#{@y})"
+    end
+  end
+end

data/lib/lib/user_interface/infopane.rb

@@ -0,0 +1,49 @@
+LINE_HEIGHT = 20
+
+# Score, turn and event texts
+class Infopane
+  attr_reader :faction, :turn, :score
+  attr_writer :cursor, :text
+
+  def initialize
+    @turn = 0
+    @faction = FACTIONS # so that FAC1 will be then the first active faction
+    @score = [0, 0]
+    @text = 'ready'
+  end
+
+  def update
+  end
+
+  def draw
+    freeroam_text = ""
+    freeroam_text = " (freeroam)" if (@cursor and @cursor.freeroam)
+
+    state = Gosu::Image.from_text(turnscore + freeroam_text, LINE_HEIGHT)
+    state.draw(XTEXT, YTEXT, ZTEXT)
+
+    text = Gosu::Image.from_text("#{@text}", LINE_HEIGHT)
+    text.draw(XTEXT, (TILESIZE / 2) + YTEXT, ZTEXT)
+  end
+
+  def turnscore
+    "Turn: #{@turn}, " \
+    "Faction: FAC#{@faction}, " \
+    "Score: #{@score[0]} - #{@score[1]}"
+  end
+
+  # Increment faction counter (modulo count of factions)
+  def next_faction!
+    @faction += 1
+    @faction = 1 if @faction > FACTIONS # marks the end of turn
+  end
+
+  # Increment turn counter
+  def next_turn!
+    @turn += 1
+  end
+
+  def add_score(to_whom, how_much)
+    @score[to_whom] += how_much
+  end
+end

data/lib/lib/user_interface/map.rb

@@ -0,0 +1,189 @@
+require_relative './tile'
+
+require_relative './../units/army'
+require_relative './../units/ship'
+require_relative './../units/town'
+
+MAX_CARGO_LEVEL = 10
+
+class Map
+  attr_accessor :name, :mapx, :mapy, :infopane
+
+  def initialize(file, infopane)
+    dir_path = File.dirname(__FILE__)
+
+    @infopane = infopane
+    @known_unit_types = Hash[
+      [Army, Ship, Town].collect { |ii| [ii.map_symbol, ii] }
+    ]
+
+    load_map!(dir_path + "/../../save/#{file}.esf")
+  end
+
+  # Load map from file
+  def load_map!(file_path)
+    unless File.file?(file_path)
+      abort("Map.load_map!(): File not found (#{file_path})")
+    end
+
+    input = File.open(file_path, 'r')
+    unit_count = load_head!(input.gets)
+
+    # Load tiles
+    @tiles = []
+    0.upto(@mapy - 1) { |rr|
+      @tiles[rr] = []
+      map_row = input.gets
+      0.upto(@mapx - 1) { |cc|
+        @tiles[rr][cc] = Tile.new(cc, rr, map_row[cc], @infopane)
+      }
+    }
+
+    # Load units
+    unit_count.times { load_unit!(input.gets) }
+
+    puts("Save loaded: #{@name} with #{unit_count} units")
+    input.close
+  end
+
+  # Load core info from given head row of file
+  # Return number of units to be loaded
+  def load_head!(row)
+    head = []
+    size = []
+
+    head = row.split(' ')
+    size = head[1].split('x')
+
+    @name = head[0]
+    @mapx = size[0].to_i
+    @mapy = size[1].to_i
+
+    head[2].to_i # unit_count
+  end
+
+  # Load one unit from given row
+  def load_unit!(row)
+    unit = []
+    coords = []
+
+    unit = row.split(' ')
+
+    # Check coordinates
+    coords = unit[2].split('-')
+    coords_x = coords[0].to_i
+    coords_y = coords[1].to_i
+    if (coords_x < 0 || coords_x >= @mapx ||
+        coords_y < 0 || coords_y >= @mapy)
+      abort("Map.load_unit!(): Unit out of map borders (#{coords_x}-#{coords_y})")
+    end
+
+    # Check faction
+    fac = unit[1].to_i
+    if(fac < 0 || fac > FACTIONS)
+      abort("Map.load_unit!(): Bad faction id (#{fac})")
+    end
+
+    # Create unit
+    unit_type = unit[0]
+    if @known_unit_types.include?(unit_type)
+      @known_unit_types[unit_type].new(coords_x, coords_y, fac, self, @infopane)
+    else
+      abort("Map.load_unit!(): Unknown unit type symbol (#{unit_type})")
+    end
+  end
+
+  # Draw all tiles
+  def draw_tiles
+    all_tiles.each { |tt| tt.draw}
+  end
+
+  # Getter for tile at given coordinates
+  def tile(cc, rr)
+    @tiles[rr][cc]
+  end
+
+  # Return all tiles
+  def all_tiles
+    ret = []
+    ii = 0
+    0.upto(MAPY) { |rr|
+      0.upto(MAPX) { |cc|
+        ret[ii] = @tiles[rr][cc]
+        ii += 1
+      }
+    }
+    ret
+  end
+
+  # Getter for unit at given coordinates
+  def get_unit(cc, rr)
+    @tiles[rr][cc].unit
+  end
+
+  # Setter for unit at given coordinates
+  def set_unit(cc, rr, uu)
+    @tiles[rr][cc].unit = uu
+  end
+
+  # Return all units with cargo level in given range
+  # CL0 = map units, CL1 = units in map units, CL2 = units in CL1 units...
+  # all_units() -> all units, all_units(0, 0) -> only map units
+  def all_units(min_cargo_level = 0, max_cargo_level = MAX_CARGO_LEVEL)
+    ret = []
+
+    unless min_cargo_level.between?(0, MAX_CARGO_LEVEL) and
+           max_cargo_level.between?(0, MAX_CARGO_LEVEL)
+      abort("Map.all_units(): Desired cargo levels need to be " \
+            "from 0 to #{MAX_CARGO_LEVEL}")
+    end
+    unless min_cargo_level <= max_cargo_level
+      abort("Map.all_units(): Min cargo level (#{min_cargo_level}) is higher " \
+            "than max cargo level (#{max_cargo_level})")
+    end
+
+    0.upto(MAPY) { |rr|
+      0.upto(MAPX) { |cc|
+        ret += all_units_from_tile(cc, rr)
+      }
+    }
+
+    ret
+  end
+
+  # Return all units from given tile with cargo level in given range
+  def all_units_from_tile(cc, rr,
+                          min_cargo_level = 0,
+                          max_cargo_level = MAX_CARGO_LEVEL)
+    ret = []
+
+    uu = get_unit(cc, rr)
+    if uu
+      ret += add_unit_to_list(uu, 0, min_cargo_level, max_cargo_level)
+    end
+
+    ret
+  end
+
+  # Recursively add units to the list
+  def add_unit_to_list(unit, cargo_level = 0,
+                       min_cargo_level = 0,
+                       max_cargo_level = MAX_CARGO_LEVEL)
+    ret = []
+
+    # This unit
+    if cargo_level >= min_cargo_level
+      ret.append(unit)
+    end
+
+    # Transported units
+    cargo_level += 1
+    if cargo_level <= max_cargo_level
+      unit.cargo.each { |uu|
+        ret += add_unit_to_list(uu, cargo_level, min_cargo_level, max_cargo_level)
+      }
+    end
+
+    ret
+  end
+end