petermorphose 2.0.0

data/src/en.yml

@@ -0,0 +1,62 @@
+'Am Tempel des Harlow-Karlow': At Harlow-Karlow’s Shrine
+'Mittel': 'intermediate'
+'Stürme den Tempel der Harlow-Karlow-Sekte!': 'Ambush the secret cult of Harlow-Karlow!'
+'Sterne einsammeln': 'stars to collect'
+'Auf der Flucht': 'On the Run'
+'Schwer und lang': 'tough and long'
+'Auch wenn das Level lang ist: Immer fleißig Sterne sammeln...': 'Even if the level is long - keep collecting those stars...'
+'Die zwei Bäume': 'The Two Trees'
+'Folge den beiden Bäumen durch den Verlauf der Karte.': 'Follow the trees towards the sky.'
+'Feuertauchen': 'Fire Diving'
+'Leicht bis mittel': 'easy/intermediate'
+'Rette die Geisel ganz unten vor der Lava, danach dich selbst.': 'Rescue the hostage deep down, then yourself.'
+'Gemütlicher Aufstieg': 'The Easy Stroll Skywards'
+'Sehr einfach': 'very easy'
+'Leichte Runde ohne große Rätsel. Empfohlende Einstiegsrunde!': 'Easy map without any puzzles. Recommended first level.'
+'und': '& need to rescue'
+'Gefangene retten': 'hostages'
+'retten': ''
+'Durchkommen': 'Survive'
+
+'Wähle mit den Pfeiltasten ein Level aus und starte es mit Enter.': 'Select a level with the arrow keys, then press enter.'
+
+'Punkte': 'Score'
+'Noch %d': '%d to go'
+'Flitzebogenpeter': 'Archer Peter'
+'Schlüssel': 'Key'
+'Genug gesammelt!': 'Enough to pass!'
+'Ritterpeter': 'Knight Peter'
+'Lava angehalten!': 'Lava frozen!'
+'Bombenlegerpeter': 'Bomber Peter'
+'Adlerstiefel': 'Eagly Boots'
+'Heimweg zu Henk': 'Home is where Henk is'
+'Leicht': 'easy'
+'Leichtes, kurzes Level ohne viele Gegner.': 'Easy and short level without too many baddies.'
+'Gravialistan': 'Gravialistan'
+'Weg durchs Feuer': 'Through Fire'
+'Vom Ozean in die Traufe': 'From Ocean to Worse'
+'Hektische Runde mit einigen kniffligen Stellen.': 'A hectic journey that requires some head-scratching.'
+'Schwere, aber schaffbare Karte mit viel Wasser.': 'Hard map with plenty water.'
+'Hoch hinaus': 'Higher and Higher'
+'Mittel und kurz': 'intermediate, short'
+'Leichte und kurze Runde mit vielen Flugeinlagen.': 'Short and easy map with a lot of airborne acrobatics.'
+'Gruselgrotte': 'Creepy Cavern'
+'Sehr schwer': 'very tough'
+'Keine Lava, viele Gegner. Achte auf die Sterne!': 'No lava, many enemies, few stars.'
+'Grünhügelshausen': 'Greenhillyvillyvalley'
+'Gemütliche Runde für fortgeschrittene Spieler.': 'Relaxed map for intermediate players.'
+'Der Alkohol und seine Folgen': 'The Day After'
+'Schwer': 'tough'
+'Das passiert, wenn kleine Peter auf Partys gehen...': 'What happens when little Peter goes to party...'
+'Sekunde': 'sec'
+'Sekunden': 'sec'
+
+'Du hast verloren, weil eine Gefangene verbrannt ist.': 'You lost because a hostage was burned.'
+'Du hast verloren, weil du nicht genug Sterne gesammelt hast.': 'You lost because you haven’t collected enough stars.'
+'Du hast verloren, weil du nicht alle Gefangenen befreit hast.': 'You lost because you haven’t rescue all hostages.'
+'Du bist gestorben.': 'You died.'
+'Abbrechen per Leertaste.': 'Cancel by pressing space.'
+'Den Baum des Lebens findet man oft vergebens': 'The fullest fruit will fall to the deepest death.'
+'Engelsflügel': 'Angel Wings'
+'Henks Haustür!': 'Henk’s front door!'
+'Siebenmeilenstiefel': 'Booster Boots'

data/src/gosu-preview.rb

@@ -0,0 +1,116 @@
+require 'gosu'
+
+# Wrapper around Gosu 0.7 that provides the work-in-progress 0.8 interface
+
+module Gosu
+  class Font
+    alias :initialize07 :initialize
+    
+    def initialize *args
+      if args.first.is_a? Gosu::Window then
+        initialize07 *args
+      else
+        height  = args[0]
+        options = args[1] || {}
+        name = options[:name] || Gosu::default_font_name
+        initialize07 $window, name, height
+      end
+    end
+  end
+  
+  class Window
+    alias :initialize07 :initialize
+    
+    def initialize width, height, *args
+      if args.empty? or args.first.is_a? Hash then
+       options = args.first || {}
+       fullscreen = !!options[:fullscreen]
+       update_interval = options[:update_interval] || 16.66
+      else
+       fullscreen, update_interval = *args
+      end
+      $window = initialize07 width, height, fullscreen, update_interval
+    end
+  end
+  
+  class Image
+    alias :initialize07 :initialize
+    
+    def initialize *args
+      if args.first.is_a? Gosu::Window then
+        initialize07 *args
+      else
+        source = args[0]
+        tileable = !args[1] || args[1][:tileable]
+        initialize07 $window, source, !!tileable
+      end
+    end
+    
+    class <<self
+      alias load_tiles07 load_tiles
+    end
+    
+    def self.load_tiles *args
+      if args.first.is_a? Gosu::Window then
+        load_tiles07 *args
+      else
+        source = args[0]
+        x, y = args[1..2]
+        tileable = !args[3] || args[3][:tileable]
+        load_tiles07 $window, source, x, y, !!tileable
+      end
+    end
+    
+    def self.from_text *args
+      if args.first.is_a? Gosu::Window then
+        args.size == 4 ? from_text4(*args) : from_text7(*args)
+      else
+        text      = args[0]
+        height    = args[1]
+        options   = args[2] || {}
+        font      = options[:font]    || Gosu::default_font_name
+        if width  = options[:width] then
+          spacing = options[:spacing] || 0
+          align   = options[:align]   || :left
+          Gosu::Image.from_text7 $window, text, font, height, spacing, width, align
+        else
+          Gosu::Image.from_text4 $window, text, font, height
+        end
+      end
+    end
+  end
+  
+  def self.draw_quad *args
+    $window.draw_quad *args
+  end
+  
+  def self.clip_to *args
+    $window.clip_to *args do
+      yield
+    end
+  end
+  
+  def self.translate *args
+    $window.translate *args do
+      yield
+    end
+  end
+  
+  def self.scale *args
+    $window.scale *args do
+      yield
+    end
+  end
+  
+  def self.rotate *args
+    $window.rotate *args do
+      yield
+    end
+  end
+  
+  def self.transform *args
+    $window.transform *args do
+      yield
+    end
+  end
+end

data/src/helpers/audio.rb

@@ -0,0 +1,9 @@
+SONGS, SAMPLES = {}, {}
+
+def song(name)
+  SONGS[name.to_sym] ||= Gosu::Song.new("media/#{name}.ogg")
+end
+
+def sound(name)
+  SAMPLES[name.to_sym] ||= Gosu::Sample.new("media/#{name}.wav")
+end

data/src/helpers/graphics.rb

@@ -0,0 +1,24 @@
+def font
+  @font ||= Gosu::Font.new(16)
+end
+
+def draw_string string, x, y, a = 255
+  font.draw string, x, y, Z_TEXT, 1, 1, alpha(a)
+end
+
+def draw_centered_string string, x, y, a = 255
+  font.draw_rel string, x, y, Z_TEXT, 0.5, 0.0, 1, 1, alpha(a)
+end
+
+def draw_right_aligned_string string, x, y, a = 255
+  font.draw_rel string, x, y, Z_TEXT, 1, 0.0, 1, 1, alpha(a)
+end
+
+def draw_rect x, y, w, h, color, z = 0
+  Gosu::draw_quad x, y, color, x + w, y, color,
+    x, y + h, color, x + w, y + h, color, z
+end
+
+def alpha n
+  n << 24 | 0xffffff
+end

data/src/helpers/input.rb

@@ -0,0 +1,28 @@
+CONTROLS = {
+  :menu_prev => [:KbUp, :GpUp, :KbLeft, :GpLeft],
+  :menu_next => [:KbDown, :GpDown, :KbRight, :GpRight],
+  :menu_confirm => [:KbEnter, :KbReturn, :KbSpace, :GpButton0],
+  :menu_cancel => [:KbEscape, :GpButton2],
+  
+  :up => [:KbUp, :GpUp],
+  :down => [:KbDown, :GpDown],
+  :left => [:KbLeft, :GpLeft],
+  :right => [:KbRight, :GpRight],
+  :jump => [:KbUp, :GpButton0],
+  :action => [:KbSpace, :GpButton1],
+  :use => [:KbDown, :GpDown]
+}
+
+class Object
+  CONTROLS.keys.each do |key|
+    ids = CONTROLS[key].map &Gosu.method(:const_get)
+    
+    define_method "#{key}?" do |id|
+      ids.include? id
+    end
+    
+    define_method "#{key}_pressed?" do
+      ids.any? { |id| $window.button_down? id }
+    end
+  end
+end

data/src/ini_file.rb

@@ -0,0 +1,25 @@
+# A wrapper for INI files, used for levels and other stuff.
+
+require 'iconv'
+
+class INIFile
+  def initialize filename
+    @sections = {}
+    current_section = nil
+
+    File.open(filename) do |file|
+      file.each_line do |line|
+        case Iconv.conv('utf-8', 'ISO-8859-1', line.chomp)
+        when /^\[(.+)\]$/ then
+          current_section = @sections[$1] = {}
+        when /^([^=]*)=(.*)$/ then
+          current_section[$1] = $2
+        end
+      end
+    end
+  end
+  
+  def [](section, name)
+    (@sections[section] || {})[name.to_s]
+  end
+end

data/src/level_info.rb

@@ -0,0 +1,63 @@
+class LevelInfo
+  attr_accessor :filename, :difficulty, :ini_file
+  
+  def initialize filename
+    @filename = filename
+    @ini_file = INIFile.new(filename)
+    @title       = t(@ini_file['Info', 'Title']  || 'Unbenannte Karte')
+    @difficulty  = t(@ini_file['Info', 'Skill']  || '')
+    @description = t(@ini_file['Info', 'Desc']   || '')
+    @author      =  (@ini_file['Info', 'Author'] || '')
+    
+    stars_goal = (@ini_file['Map', 'StarsGoal'] || 100).to_i
+    if stars_goal == 0 then
+      @goal = t "Durchkommen"
+    else
+      @goal = "#{stars_goal} #{t 'Sterne einsammeln'}"
+    end
+    
+    hostages = []
+    obj = 0
+    while obj_desc = @ini_file['Objects', obj] do
+      if obj_desc[0, 2] == ('%02X' % ID_CAROLIN) then
+        obj_desc_extended = @ini_file['Objects', "#{obj}Y"] || '|'
+        hostages << (obj_desc_extended.split('|').last || 'Carolin')
+      end
+      obj += 1
+    end
+    if hostages.size == 1 then
+      @goal += " #{t 'und'} #{hostages[0]} #{t 'retten'}"
+    elsif hostages.size > 1 then
+      @goal += " #{t 'und'} #{hostages.size} #{t 'Gefangene retten'}"
+    end
+    
+    # TODO highscore = ...
+  end
+  
+  def draw y, active
+    if active then
+      draw_rect 0, y + 1, 631, 98, 0xff603000
+    end
+    
+    draw_rect 0, y, 631, 1, 0x003000
+    # TODO (Highscore) / (not beaten yet)
+    draw_string @title, 5, y + 7, 255
+    draw_right_aligned_string @difficulty, 626, y + 7, 255
+    draw_string @description, 5, y + 30, 192
+    draw_string @goal, 5, y + 53, 128
+    draw_string @author, 5, y + 76, 80
+    draw_rect 0, y + 99, 631, 1, 0x006000
+  end
+  
+  FIRST_LEVEL = 'jr_Gemuetlicher_Aufstieg.pml'
+  
+  def <=> other
+    if File.basename(self.filename) == FIRST_LEVEL then
+      -1
+    elsif File.basename(other.filename) == FIRST_LEVEL then
+      +1
+    else
+      difficulty <=> other.difficulty
+    end
+  end
+end

data/src/localization.rb

@@ -0,0 +1,19 @@
+require 'locale'
+require 'yaml'
+
+if Locale.current.language == 'de' then
+  def t string
+    string
+  end
+else
+  LOCALIZATION_FILE = File.expand_path("#{__FILE__}/../en.yml")
+  TRANSLATIONS = YAML.load_file(LOCALIZATION_FILE)
+  
+  def t string
+    TRANSLATIONS[string] ||= begin
+      @localization_file ||= (File.open(LOCALIZATION_FILE, 'a') rescue $stdout)
+      @localization_file.puts "'#{string}': '#{string}' # TODO"
+      string
+    end
+  end
+end

data/src/main.rb

@@ -0,0 +1,86 @@
+if RUBY_VERSION < '1.9' then
+  require 'rubygems'
+  require 'require_relative'
+end
+
+require 'gosu'
+require_relative 'gosu-preview' # upcoming Gosu 0.8 interface wrapper
+
+# Gosu related polish
+# TODO Proper scaling
+# TODO Packaging as gem
+# TODO Deployment tasks
+# TODO Better resource handling
+
+# Polish
+# TODO "Gosu" splash screen
+# TODO Remaining Menu
+# TODO High Scores
+
+def debug binding
+  require 'pry'
+  Pry.start binding
+end
+
+# Save ARGV[1] if existing
+ARGV[0] = File.expand_path(ARGV[0]) if ARGV[0]
+
+# For resource loading.
+Dir.chdir File.expand_path("#{__FILE__}/../..")
+
+%w(localization script const helpers/graphics helpers/audio helpers/input
+   states/state states/title states/menu states/level_selection states/game
+   objects/object_def objects/game_object objects/living_object objects/collectible_object objects/effect_object
+   ini_file level_info map).each { |fn| require_relative fn }
+
+# Not yet part of gosu-preview
+Gosu::enable_undocumented_retrofication rescue nil
+
+WIDTH, HEIGHT = 640, 480
+TARGET_FPS = 30
+
+# Z Order
+Z_EFFECTS, Z_LAVA, Z_UI, Z_TEXT = *0..255
+
+# Simple implementation of the Gosu "State-Based" game pattern
+class Window < Gosu::Window
+  def initialize
+    super WIDTH*3/2, HEIGHT*3/2, :update_interval => 1000.0 / TARGET_FPS
+    
+    self.caption = 'Peter Morphose'
+    
+    if ARGV[0] then
+      State.current = Game.new LevelInfo.new(ARGV[0])
+    else
+      State.current = Title.new
+    end
+  end
+  
+  def update
+    if State.current then
+      State.current.update
+    else
+      close
+    end
+  end
+  
+  def draw
+    scale(1.5) do
+      State.current.draw if State.current
+    end
+  end
+  
+  def button_down id
+    State.current.button_down id if State.current
+  end
+  
+  def button_up id
+    State.current.button_up id if State.current
+  end
+  
+  def needs_cursor?
+    State.current.needs_cursor? if State.current
+  end
+end
+
+Window.new.show

data/src/map.rb

@@ -0,0 +1,136 @@
+class Map
+  class OverriddenTile < Struct.new(:to_blob)
+    def columns; TILE_SIZE; end
+    def rows; TILE_SIZE; end
+  end
+  
+  attr_reader :level_top, :level_bottom
+  attr_reader :scripts, :timers, :vars
+  attr_accessor :lava_pos, :lava_time_left, :lava_mode, :lava_speed, :lava_frame
+  
+  def inspect
+    "#<Map>"
+  end
+
+  def initialize game, ini_file
+    @@tiles ||= Gosu::Image.load_tiles 'media/tiles.bmp', -16, -16
+    @@skies ||= Gosu::Image.load_tiles 'media/skies.png', -4, -2
+    
+    @game = game
+    @tiles = []
+    @scripts = []
+    @timers = []
+    @vars = [0] * 16
+    
+    (0...TILES_Y).each do |y|
+      row = ini_file['Map', y] || '00' * TILES_X
+      (0...TILES_X).each do |x|
+        self[x, y] = row[x * 2, 2].to_i(16)
+      end
+      @scripts[y] = ini_file['Scripts', y]
+    end
+    
+    SCRIPT_TIMERS.times do |i|
+      @timers << ini_file['Scripts', "Timer#{i}"]
+    end
+    
+    @sky = (ini_file['Map', 'Sky'] || 0).to_i
+    
+    @lava_speed = (ini_file['Map', 'LavaSpeed'] || 1).to_i
+    @lava_mode = (ini_file['Map', 'LavaMode'] || 0).to_i
+    @lava_pos = (ini_file['Map', 'LavaPos'] || TILES_Y).to_i * TILE_SIZE
+    @lava_score = (ini_file['Map', 'LavaScore'] || 1).to_i
+    @lava_frame = @lava_time_left = 0
+    
+    @level_top = (ini_file['Map', 'LevelTop'] || 0).to_i * TILE_SIZE
+    @level_bottom = [1024, @lava_pos / TILE_SIZE].min
+    
+    # Overloaded map tiles
+    @tile_images = []
+    @@tiles.each_with_index do |original_tile, index|
+      transparency = "\0\0\0\0"
+      if (override = ini_file['Tiles', '%02X' % index]) and override.length == 3456 then
+        data = "\xff" * (TILE_SIZE * TILE_SIZE * 4)
+        
+        (TILE_SIZE * TILE_SIZE).times do |i|
+          inv_x = i % TILE_SIZE
+          inv_y = i / TILE_SIZE
+          src_i = inv_x * TILE_SIZE + inv_y
+          rrggbb = override[src_i * 6, 6]
+          if rrggbb == 'FF00FF' then
+            data[i * 4, 4] = transparency
+          else
+            data[i * 4 + 0] = rrggbb[0, 2].to_i(16).chr
+            data[i * 4 + 1] = rrggbb[2, 2].to_i(16).chr
+            data[i * 4 + 2] = rrggbb[4, 2].to_i(16).chr
+          end
+        end
+        
+        @tile_images[index] = Gosu::Image.new(OverriddenTile.new(data))
+      else
+        @tile_images[index] = original_tile
+      end
+    end
+  end
+  
+  def [](x, y)
+    if x.between? 0, TILES_X - 1 and y.between? 0, TILES_Y - 1 then
+      @tiles[y * TILES_X + x]
+    else
+      0x70
+    end
+  end
+  
+  def []=(x, y, tile)
+    if (0...TILES_X).include? x and (0...TILES_Y).include? y then
+      @tiles[y * TILES_X + x] = tile
+    end
+  end
+  
+  def solid? x, y
+    y > @lava_pos or (0x70...0xe0).include? self[x / TILE_SIZE, y / TILE_SIZE]
+  end
+  
+  ALL_STAIRS_UP   = [TILE_STAIRS_UP,   TILE_STAIRS_UP_2]
+  ALL_STAIRS_DOWN = [TILE_STAIRS_DOWN, TILE_STAIRS_DOWN_2]
+  
+  def stairs_passable? x, y
+    if ALL_STAIRS_DOWN.include? self[x, y] then
+      loop do
+        y += 1
+        return false if y >= TILES_Y
+        return true if ALL_STAIRS_UP.include? self[x, y]
+      end
+    else
+      loop do
+        y -= 1
+        return false if y < 0
+        return true if ALL_STAIRS_DOWN.include? self[x, y]
+      end
+    end
+  end
+  
+  def draw
+    if @sky == 0 then
+      4.times do |y|
+        4.times do |x|
+          @@skies.first.draw x * 144, y * 120, 0
+        end
+      end
+    else
+      5.times do |y|
+        4.times do |x|
+          @@skies[@sky].draw x * 144, y * 120 - @game.view_pos % 120, 0
+        end
+      end
+    end
+    
+    offset = @game.view_pos % TILE_SIZE
+    row = @game.view_pos / TILE_SIZE
+    (HEIGHT / TILE_SIZE + 1).times do |y|
+      TILES_X.times do |x|
+        @tile_images[self[x, row + y] || 0].draw x * TILE_SIZE, y * TILE_SIZE - offset, 0
+      end
+    end
+  end
+end