petermorphose 2.0.0

data/src/objects/object_def.rb

@@ -0,0 +1,45 @@
+class ObjectDef < Struct.new(:name, :life, :rect, :speed, :jump_x, :jump_y)
+  # TODO This has become a general purpose class, should be moved out of this file
+  class Rect < Struct.new(:left, :top, :width, :height)
+    def right
+      left + width
+    end
+    
+    def bottom
+      top + height
+    end
+    
+    def collide_with? other
+      left < other.right and right > other.left and
+        top < other.bottom and bottom > other.top
+    end
+    
+    def include? point
+      point.x >= left and point.y >= top and
+        point.x < right and point.y < bottom
+    end
+  end
+  
+  def self.[](pmid)
+    @all ||= begin
+      ini = INIFile.new('objects.ini')
+      (0..ID_MAX).map do |id|
+        ObjectDef.new.tap do |obj_def|
+          hex_id = "%02X" % id
+          obj_def.name = ini['ObjName',  hex_id] || '<no name>'
+          obj_def.life = (ini['ObjLife',  hex_id] || 3).to_i
+          rect_string = ini['ObjRect',  hex_id] || '10102020'
+          obj_def.rect = Rect.new
+          obj_def.rect.left   = -rect_string[0, 2].to_i(16)
+          obj_def.rect.top    = -rect_string[2, 2].to_i(16)
+          obj_def.rect.width  = +rect_string[4, 2].to_i(16)
+          obj_def.rect.height = +rect_string[6, 2].to_i(16)
+          obj_def.speed = (ini['ObjSpeed', hex_id] || 3).to_i
+          obj_def.jump_x = (ini['ObjJump', "#{hex_id}X"] || 0).to_i
+          obj_def.jump_y = (ini['ObjJump', "#{hex_id}Y"] || 0).to_i
+        end
+      end
+    end
+    @all[pmid]
+  end
+end

data/src/script.rb

@@ -0,0 +1,207 @@
+module PMScript
+  def letter_to_object letter
+    letter == 'P' ? player : obj_vars[letter.to_i(16)]
+  end
+  
+  def convert_sound_name name
+    case name.downcase
+    when /^(.*)Collect/ then
+      "collect_#{$1}"
+    when "jeepee" then
+      "yippie"
+    when "stairsrnd" then
+      "stairs_steps"
+    when "swordwoosh" then
+      "sword_whoosh"
+    when "blockerbreak" then
+      "blocker_break"
+    when "arrowhit" then
+      "arrow_hit"
+    else
+      if (sound("#{name.downcase}2") rescue nil) then
+        "#{name.downcase}1"
+      else
+        name.downcase
+      end
+    end
+  end
+  
+  def shortcut_to_message shortcut
+    case shortcut
+    when 'ex' then :existence_as_int
+    when 'px' then :x
+    when 'py' then :y
+    when 'vx' then :vx
+    when 'vy' then :vy
+    when 'id' then :pmid
+    when 'lf' then :life
+    when 'ac' then :action
+    when 'dr' then :direction
+    end
+  end
+  
+  def get_var var
+    case var
+    when /^var(.)$/ then
+      map.vars[$1.to_i(16)]
+    when /\?(...)/ then
+      rand($1.to_i(16) + 1)
+    when /^\$(.)(..)/ then
+      receiver = letter_to_object($1)
+      message = shortcut_to_message($2)
+      receiver.send(message)
+    when 'keys' then keys
+    when 'ammo' then ammo
+    when 'bomb' then bombs
+    when 'star' then stars
+    when 'scor' then score
+    
+    when 'time' then time_left
+    when 'tspd' then speed_time_left
+    when 'tjmp' then jump_time_left
+    when 'tfly' then fly_time_left
+    
+    when 'lpos' then map.lava_pos
+    when 'lspd' then map.lava_speed
+    when 'lmod' then map.lava_mode
+    else
+      throw "Getting unknown variable #{var}"
+    end
+  end
+  
+  def set_var var, value
+    case var
+    when /^var(.)$/ then
+      map.vars[$1.to_i(16)] = value
+    when /^\$(.)(..)/ then
+      receiver = letter_to_object($1)
+      message = shortcut_to_message($2)
+      receiver.send "#{message}=", value
+    when 'keys' then self.keys = value
+    when 'ammo' then self.ammo = value
+    when 'bomb' then self.bombs = value
+    when 'star' then self.stars = value
+    when 'scor' then self.score = value
+    
+    when 'time' then self.time_left = value
+    when 'tspd' then self.speed_time_left = value
+    when 'tjmp' then self.jump_time_left = value
+    when 'tfly' then self.fly_time_left = value
+    
+    when 'lpos' then map.lava_pos = value
+    when 'lspd' then map.lava_speed = value
+    when 'lmod' then map.lava_mode = value
+    else
+      throw "Setting unknown variable #{var}"
+    end
+  end
+  
+  def evaluate_param param
+    if param.length == 5 then
+      evaluate_param(param[1..-1]) * (param[0, 1] == '-' ? -1 : +1)
+    else
+      if param =~ /[0-9A-Fa-f]{4}/ then
+        param.to_i(16)
+      else
+        get_var param
+      end
+    end
+  end
+  
+  def evaluate_condition condition
+    return true if condition == 'always'
+    left_var  = evaluate_param(condition[0, 4])
+    right_var = evaluate_param(condition[5, 4])
+    
+    case condition[4, 1]
+    when '=' then return left_var == right_var
+    when '!' then return left_var != right_var
+    when '<' then return left_var < right_var
+    when '>' then return left_var > right_var
+    when '"' then return (left_var - right_var).abs <= 16
+    when "'" then return (left_var - right_var).abs >  16
+    when '{' then return left_var <= right_var
+    when '}' then return left_var >= right_var
+    else
+      "Unknown comparison: #{condition[4, 1]}"
+    end
+  end
+  
+  def execute_command command, caller
+    return if command.empty?
+    
+    if command[0, 1] == '_' then
+      # Magic condition repeat - return if last condition was false
+      return if not @last_cond
+      action = command[1..-1]
+    elsif not command =~ /^#{caller}\(/ then
+      # Wrong caller - counts as false condition
+      @last_cond = false
+      return
+    else
+      # Evaluate conditions
+      @last_cond = true
+      
+      conditions = command[/\([^)]*\)/]
+      conditions = conditions[1..-2].split('&')
+      @last_cond = conditions.all? &method(:evaluate_condition)
+      return if not @last_cond
+      action = command[(command.index('):') + 2)..-1]
+    end
+    
+    case action
+    when /^set (....) (.....)$/ then
+      set_var $1, evaluate_param($2)
+    when /^add (....) (.....)$/ then
+      set_var $1, get_var($1) + evaluate_param($2)
+    when /^mul (....) (.....)$/ then
+      set_var $1, get_var($1) * evaluate_param($2)
+    when /^dev (....) (.....)$/ then
+      set_var $1, get_var($1) / evaluate_param($2)
+    when /^kill \$(.)$/ then
+      letter_to_object($1).kill rescue nil
+    when /^mapsolid (....) (....) (....)$/ then
+      set_var $1, (map.solid?(evaluate_param($2), evaluate_param($3)) ? 1 : 0)
+    when /^hit \$(.)$/ then
+      letter_to_object($1).hit rescue nil
+    when /^hurt \$(.)$/ then
+      letter_to_object($1).hurt rescue nil
+    when /^createobject (....) (....) (....) (..)$/ then
+      obj = create_object(evaluate_param($1), evaluate_param($2), evaluate_param($3), '')
+      obj_vars[$4[1, 1].to_i(16)] = obj unless $4 == 'no'
+    when /^setxd \$(.) (.*)$/ then
+      letter_to_object($1).xdata = $2
+    when /^message (.*)$/ then
+      @message_text = t($1)
+      @message_opacity = 255
+    when /^message2 (.*)$/ then
+      @message_text = t($1).gsub(/\^..../) { |term| evaluate_param(term[1..-1]) }
+      @message_opacity = 255
+    when /^sound (.*)$/ then
+      sound(convert_sound_name($1)).play
+    when /^casteffects (....) (....) (....) (....) (....)$/ then
+      cast_fx evaluate_param($1), evaluate_param($2), evaluate_param($3),
+        evaluate_param($4), evaluate_param($5), TILE_SIZE, TILE_SIZE, 0, 0, 5
+    when /^casteffects2 (....) (....) (....) (....) (....) (....) (.....) (.....) (....)$/ then
+      cast_fx evaluate_param($1), evaluate_param($2), evaluate_param($3),
+        evaluate_param($4), evaluate_param($5), evaluate_param($6), evaluate_param($7),
+        evaluate_param($8), evaluate_param($9), evaluate_param($10)
+    when /^changetile (....) (....) (....)$/ then
+      map[evaluate_param($1), evaluate_param($2)] = evaluate_param($3)
+    when /^explosion (....) (....) (....)$/ then
+      explosion evaluate_param($1), evaluate_param($2), evaluate_param($3)
+    when /^find \$(.) (....) (....) (....) (....) (....) (....)$/
+      obj_vars[$1.to_i(16)] = find_object evaluate_param($2), evaluate_param($3),
+        ObjectDef::Rect.new(evaluate_param($4), evaluate_param($5), evaluate_param($6), evaluate_param($7))
+    else
+      throw "Don't know how to #{action}"
+    end
+  end
+  
+  def execute_script script, caller
+    return if script.nil? or script.empty?
+    
+    @cond = true
+    script.split('\\').each { |command| execute_command command, caller }
+  end
+end

data/src/states/credits.rb

@@ -0,0 +1,24 @@
+# TODO translate to Ruby
+
+=begin
+State_Credits: begin
+  if not (DXDraw.CanDraw and Application.Active) then Exit;
+  DXImageList.Items[Image_TitleDark].Draw(DXDraw.Surface, 0, 0, 0);
+
+  DrawBMPText('Spielidee, Programmierung, Grafiken, Sounds', 100,  40, 192, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('Julian Raschke, julian@raschke.de',           200,  80, 255, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('http://www.petermorphose.de/',                200, 100, 255, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('Zus‰tzliche Sounds und Himmel',               100, 140, 192, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('Sandro Mascia, xxsgrrs-@gmx.de',              200, 160, 255, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('Sebastian Ludwig, usludwig@t-online.de',      200, 180, 255, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('Sˆren Bevier, soeren.bevier@dtp-isw.de',      200, 200, 255, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('Sebastian Burkhart, buggi@buggi.com',         200, 220, 255, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('Florian Grofl, flgr@gmx.de',                   200, 240, 255, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('Holger Biermann, kaiserbiddy@web.de',         200, 260, 255, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('Musik',                                       100, 300, 192, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+  DrawBMPText('Steffen Wenz, s.wenz@t-online.de',            200, 340, 255, DXImageList.Items[Image_Font], DXDraw.Surface, 1);
+
+  DrawBMPText('Willst du zur¸ck zum Hauptmen¸, dr¸cke Escape.', 113, 435, 0, DXImageList.Items[Image_Font], DXDraw.Surface, 0);
+  DXDraw.Flip;
+end;
+=end

data/src/states/game.rb

@@ -0,0 +1,463 @@
+class Game < State
+  include PMScript
+  
+  # @result can be: nil (running), :lost, :won
+  # @paused can be: true, false
+  
+  attr_reader :player, :map, :objects
+  attr_reader :view_pos, :frame
+  attr_accessor :time_left, :inv_time_left, :speed_time_left, :jump_time_left, :fly_time_left
+  attr_accessor :score, :keys, :stars, :ammo, :bombs
+  attr_reader :stars_goal
+  attr_reader :obj_vars
+  
+  def inspect
+    "#<Game>"
+  end
+  
+  def lose reason
+    @result = :lost
+    @reason = reason
+  end
+  
+  def explosion x, y, radius, do_score
+    emit_sound :explosion, y
+    
+    (10 + radius / 2).times do
+      angle = Gosu::random(0, 360)
+      slowdown = Gosu::random(5, 11)
+      fx = create_object(ID_FX_SMOKE + rand(2), x, y, nil)
+      fx.vx = Gosu::offset_x(angle, radius / slowdown).to_i
+      fx.vy = Gosu::offset_y(angle, radius / slowdown).to_i
+    end
+    
+    # Damage nearby livings
+    objects.each do |obj|
+      next if not obj.is_a? LivingObject or obj.action == ACT_DEAD
+      
+      dist = Gosu::distance(x, y, obj.x, obj.y)
+      next if dist >= radius
+      
+      if dist < radius / 3 then
+        obj.hurt(true)
+      else
+        obj.hit
+      end
+      
+      if obj.action == ACT_DEAD and do_score and obj.pmid.between? ID_ENEMY, ID_ENEMY_MAX then
+        @score += score = ObjectDef[obj.pmid].life * 3
+        obj.emit_text "*#{score}*"
+      end
+    end
+    
+    # Damage creates
+    ((x - radius) / TILE_SIZE).upto((x + radius) / TILE_SIZE) do |tile_x|
+      ((y - radius) / TILE_SIZE).upto((y + radius) / TILE_SIZE) do |tile_y|
+        next if Gosu::distance(x, y, tile_x * TILE_SIZE + 12, tile_y * TILE_SIZE + 12) > radius
+        
+        case map[tile_x, tile_y]
+        when TILE_BIG_BLOCKER, TILE_BIG_BLOCKER_2 then
+          if not find_object ID_FX_FIRE, ID_FX_FIRE, ObjectDef::Rect.new(tile_x * TILE_SIZE - 1, tile_y * TILE_SIZE - 1, 2, 2) then
+            create_object ID_FX_FIRE, tile_x * TILE_SIZE, tile_y * TILE_SIZE, nil
+          end
+        when TILE_BIG_BLOCKER_3 then
+          map[tile_x, tile_y] = 0
+          emit_sound "break#{rand(2) + 1}", y
+          cast_objects ID_FX_BREAKING_PARTS, 20, 0, 3, 3, ObjectDef::Rect.new(tile_x * TILE_SIZE, tile_y * TILE_SIZE, TILE_SIZE, TILE_SIZE)
+        end
+      end
+    end
+  end
+    
+  def initialize level_info
+    song(:game).play
+    
+    @view_pos = TILES_Y * TILE_SIZE - HEIGHT # TODO
+    
+    @player_top_pos = 1024
+    @lava_top_pos = 1024
+    @message_text = ''
+    @message_opacity = 0
+    @frame = -1
+    @frame_fading_box = 16
+    @time_left = @inv_time_left = @speed_time_left = @jump_time_left = @fly_time_left = 0
+    @score = @keys = @stars = @ammo = @bombs = 0
+    
+    @lava_frame = 0
+    @lava_time_left = 0
+    
+    @objects = []
+    @obj_vars = [nil] * 16
+    
+    @map = Map.new(self, level_info.ini_file)
+    @stars_goal = (level_info.ini_file['Map', 'StarsGoal'] || 100).to_i
+    
+    player_id = (level_info.ini_file['Objects', 'PlayerID'] || 0).to_i
+    player_x = (level_info.ini_file['Objects', 'PlayerX'] || 288).to_i
+    player_y = (level_info.ini_file['Objects', 'PlayerY'] || 24515).to_i
+    @player = LivingObject.new(self, player_id, player_x, player_y, nil)
+    player.vx = (level_info.ini_file['Objects', 'PlayerVX'] || 0).to_i
+    player.vy = (level_info.ini_file['Objects', 'PlayerVY'] || 0).to_i
+    player.life = (level_info.ini_file['Objects', 'PlayerLife'] || ObjectDef[ID_PLAYER].life).to_i
+    player.direction = (level_info.ini_file['Objects', 'PlayerDirection'] || rand(2)).to_i
+    player.action = ACT_STAND
+    @objects << player
+    
+    # If the player starts as a Special Peter, give him some time
+    @time_left = player.pmid == ID_PLAYER ? 0 : ObjectDef[player.pmid].life
+    
+    i = 0
+    while obj_string = level_info.ini_file['Objects', i] do
+      pmid, x, y = obj_string.split('|').map { |str| str.to_i(16) }
+      create_object pmid, x, y, level_info.ini_file['Objects', "#{i}Y"]
+      i += 1
+    end
+  end
+  
+  MAX_SOUND_DISTANCE = 500.0
+  
+  def emit_sound name, y
+    distance = (y - player.y).abs
+    return if distance > MAX_SOUND_DISTANCE
+    sound(name).play 1 - distance / MAX_SOUND_DISTANCE
+  end
+  
+  def update
+    debug binding if $window.button_down? Gosu::KbD
+    
+    if @result.nil? and (player.action == ACT_DEAD or player.marked?) then
+      lose t("Du bist gestorben.")
+    elsif @result.nil? and player.y < map.level_top then
+      if stars < stars_goal then
+        lose t("Du hast verloren, weil du nicht genug Sterne gesammelt hast.")
+      elsif find_object(ID_CAROLIN, ID_CAROLIN, ObjectDef::Rect.new(0, 0, 576, 24576)) then
+        lose t("Du hast verloren, weil du nicht alle Gefangenen befreit hast.")
+      else
+        @result = :won
+      end
+    end
+    
+    return if not @result.nil?
+    
+    @frame = (@frame + 1) % 2400
+    @message_opacity -= 3 if @message_opacity > 0
+    
+    if map.lava_pos / TILE_SIZE < @lava_top_pos then
+      @lava_top_pos = map.lava_pos / TILE_SIZE
+      execute_script map.scripts[@lava_top_pos], 'lava'
+    end
+    
+    if player.y / TILE_SIZE < @player_top_pos then
+      @player_top_pos = player.y / TILE_SIZE
+      execute_script map.scripts[@lava_top_pos], 'player'
+    end
+    
+    execute_script map.timers[frame % 10], 'do'
+    execute_script map.timers[10], 'do'
+    
+    # Rising lava
+    if map.lava_time_left == 0 then
+      if map.lava_speed != 0 then
+        map.lava_pos -= 1 if map.lava_mode == 0 and frame % map.lava_speed == 0
+        map.lava_pos -= map.lava_speed if map.lava_mode == 1
+        map.lava_frame = (map.lava_frame + 1) % 120
+        emit_sound :lava, map.lava_pos if frame % 10 == 0 and rand(10) == 0
+      end
+    else
+      map.lava_time_left -= 1
+    end
+    
+    if player.pmid != ID_PLAYER then
+      @time_left -= 1
+      if @time_left == 0 then
+        player.pmid = ID_PLAYER
+        cast_fx 8, 0, 0, player.x, player.y, 24, 24, 0, -1, 4
+      end
+    end
+    @inv_time_left -= 1 if @inv_time_left > 0
+    @view_pos = [[map.lava_pos - 432, player.y - 240, 24096].min, map.level_top].max
+      
+    if fly_time_left == 0 and not player.in_water? then
+      if left_pressed? then
+        player.instance_eval do
+          if not busy? and vx > -ObjectDef[pmid].speed * 1.75 then
+            self.vx -= ObjectDef[pmid].speed + (game.speed_time_left > 0 ? 6 : 0)
+          end
+          if [ACT_JUMP, ACT_LAND, ACT_PAIN_1, ACT_PAIN_2].include? action then
+            (ObjectDef[pmid].jump_x * 2).times { self.x -= 1 unless blocked? DIR_LEFT }
+          end
+        end
+      end
+      if right_pressed? then
+        player.instance_eval do
+          if not busy? and vx < +ObjectDef[pmid].speed * 1.75 then
+            self.vx += ObjectDef[pmid].speed + (game.speed_time_left > 0 ? 6 : 0)
+          end
+          if [ACT_JUMP, ACT_LAND, ACT_PAIN_1, ACT_PAIN_2].include? action then
+            (ObjectDef[pmid].jump_x * 2).times { self.x += 1 unless blocked? DIR_RIGHT }
+          end
+        end
+      end
+    else
+      player.instance_eval do
+        4.times { self.vy -= 1 if up_pressed?    and vy > -4 }
+        2.times { self.vy += 1 if down_pressed?  and vy < +4 }
+        4.times { self.vx -= 1 if left_pressed?  and vx > -6 }
+        4.times { self.vx += 1 if right_pressed? and vx < +6 }
+        if not in_water? then
+          self.vx -= 1 if vx > 0
+          self.vx += 1 if vx < 0
+          self.vy -= 1 if vy > 0
+          self.vy += 1 if vy < 0
+        elsif vx + vy > 1 and game.frame % 3 == 0 and rand(5) == 0 then
+          sound("water#{rand(2) + 1}").play
+        end
+        self.direction = DIR_LEFT  if vx < 0
+        self.direction = DIR_RIGHT if vx > 0
+      end
+    end
+    
+    if @speed_time_left > 0 then
+      @speed_time_left -= 1
+      cast_objects ID_FX_SPARK, rand(2), 0, 0, 1, player.rect(1, 1)
+    end
+    @jump_time_left -= 1 if @jump_time_left > 0
+    @fly_time_left -= 1 if @fly_time_left > 0
+    
+    if frame > 2 then
+      player.jump     if jump_pressed?
+      #player.use_tile if use_pressed?
+      player.act      if action_pressed?
+    end
+    
+    @objects.each &:update
+    @objects.reject! &:marked?
+    
+    if map.lava_time_left == 0 then
+      cast_fx rand(2) + 1, rand(2) + 1, 0, 288, map.lava_pos, 576, 8, 1, -3, 1
+      if rand(15) == 0 then
+        create_object(ID_FX_BUBBLE, rand(576), map.lava_pos - 12, nil).vx = 1 - rand(3)
+      end
+    end
+  end
+  
+  def draw
+    @map.draw
+    @objects.each &:draw
+    
+    # Lava
+    @@danger ||= Gosu::Image.load_tiles 'media/danger.png', -2, -2
+    offset = if map.lava_time_left == 0 then frame / 2 % 2 else 0 end
+    -1.upto(4) do |x|
+      @@danger[map.lava_time_left == 0 ? 0 : 1].draw x * 120 + map.lava_frame + offset, map.lava_pos - view_pos, Z_LAVA
+    end
+    if map.lava_pos < map.level_top + 432 then
+      -1.upto(4) do |x|
+        0.upto((map.level_top + 432 - map.lava_pos) / 48 + 1) do |y|
+          @@danger[map.lava_time_left == 0 ? 2 : 3].draw x * 120 + map.lava_frame + offset, map.lava_pos - view_pos + 48 + y * 48, Z_LAVA
+        end
+      end
+    end
+    
+    draw_status_bar
+    
+    # Optional progress indicator
+    # if Data.OptShowStatus = 1 then begin
+    #   DXDraw.Surface.FillRectAlpha(Bounds(2, 38, 8, 404), clGray, 64);
+    #   if Data.ObjPlayers.Next.ID > -1 then DXDraw.Surface.FillRectAlpha(Bounds(0, 38 + Round(((Data.ObjPlayers.Next.PosY / 24 - Data.Map.LevelTop / 24) / (LevelBottom - Data.Map.LevelTop / 24)) * 400), 12, 4), clNavy, 192);
+    #   if (Data.Map.LavaPos <= 24576) and (Data.Map.LavaTimeLeft = 0) then DXDraw.Surface.FillRectAlpha(Bounds(0, 38 + Round(((Data.Map.LavaPos / 24 - Data.Map.LevelTop / 24) / (LevelBottom - Data.Map.LevelTop / 24)) * 400), 12, 4), clYellow, 128);
+    #   if (Data.Map.LavaPos <= 24576) and (Data.Map.LavaTimeLeft > 0) then DXDraw.Surface.FillRectAlpha(Bounds(0, 38 + Round(((Data.Map.LavaPos / 24 - Data.Map.LevelTop / 24) / (LevelBottom - Data.Map.LevelTop / 24)) * 400), 12, 4), clAqua, 128);
+    # end;
+    
+    if @result.nil? and @message_opacity > 0 then
+      draw_centered_string @message_text, WIDTH / 2, 230, @message_opacity
+    end
+    
+    @@dialogs ||= Gosu::Image.load_tiles 'media/dialogs.bmp', -1, -3
+    if not @result.nil? then
+      @frame_fading_box += 1
+      @frame_fading_box = 1 if @frame_fading_box == 33
+      
+      if @result == :lost then
+        draw_centered_string @reason, WIDTH / 2, 220, (16 - @frame_fading_box).abs * 15
+      else
+        @@dialogs[1].draw 200, 160, Z_UI, 1, 1, alpha((16 - @frame_fading_box).abs * 15), :additive
+      end
+    elsif @paused then
+      @@dialogs[2].draw 200, 120, Z_UI, 1, 1, alpha(255), :additive
+    end
+    
+    draw_centered_string "#{t 'Punkte'}: #{score}", WIDTH / 2, 5
+  end
+  
+  def button_down id
+    case @result
+    when nil then
+      if menu_cancel? id then
+        State.current = LevelSelection.new 
+        sound(:whoosh).play
+      elsif @paused then
+        @paused = false if id == Gosu::KbP
+      else
+        @paused = true  if id == Gosu::KbP
+        player.jump     if jump?    id and fly_time_left == 0
+        player.use_tile if use?     id and fly_time_left == 0
+        player.act      if action?  id
+      end
+    when :lost then
+      if menu_cancel? id then
+        State.current = LevelSelection.new 
+        sound(:whoosh).play
+      end
+    when :won then
+      if menu_confirm? id or menu_cancel? id then
+        State.current = LevelSelection.new 
+        sound(:whoosh).play
+      end
+    end
+  end
+  
+  def launch_projectile x, y, direction, min_id, max_id
+    emit_sound :bow, y
+    orig_x = x
+    while x > 2 and x < 573 do
+      target = find_living(min_id, max_id, 0, ACT_DEAD - 1, ObjectDef::Rect.new(x - 4, y - 2, 8, 4))
+      
+      if target or map.solid?(x, y) then
+        create_object ID_FX_RICOCHET, x, y - 1 + rand(3), direction.to_s
+        emit_sound :arrow_hit, y
+        return target
+      end
+      
+      x += direction.dir_to_vx * 4
+    end
+  ensure
+    create_object ID_FX_LINE, [x, orig_x].min, y, (x - orig_x).abs.to_s
+  end
+  
+  include PMScript
+
+  def cast_objects pmid, num, vx, vy, randomness, rect
+    num.times do
+      obj = create_object pmid, rect.left + rand(rect.width), rect.top + rand(rect.height), nil
+      obj.vx = vx - randomness + rand(randomness * 2 + 1)
+      obj.vy = vy - randomness + rand(randomness * 2 + 1)
+    end
+  end
+  
+  def cast_fx smoke, flames, sparks, x, y, *args
+    return if (view_pos + HEIGHT / 2 - y).abs > HEIGHT
+    
+    cast_single_fx ID_FX_SMOKE, smoke,  x, y, *args
+    cast_single_fx ID_FX_FLAME, flames, x, y, *args
+    cast_single_fx ID_FX_SPARK, sparks, x, y, *args
+  end
+
+  def create_object pmid, x, y, xdata
+    cls = case pmid
+      when 0..ID_LIVING_MAX then LivingObject
+      when ID_OTHER_OBJECTS_MIN..ID_OTHER_OBJECTS_MAX then GameObject
+      when ID_COLLECTIBLE_MIN..ID_COLLECTIBLE_MAX then CollectibleObject
+      when ID_FX_MIN..ID_FX_MAX then EffectObject
+    end
+    
+    obj = cls.new(self, pmid, x, y, xdata)
+    @objects << obj
+    obj
+  end
+  
+  def find_object min_id, max_id, rect
+    @objects.find { |o| o.pmid >= min_id and o.pmid <= max_id and rect.include? o }
+  end
+  
+  def find_living min_id, max_id, min_act, max_act, rect
+    objects.find do |obj|
+      obj.pmid.between? min_id, max_id and obj.action.between? min_act, max_act and obj.collide_with? rect
+    end
+  end
+  
+  private
+  
+  def draw_status_bar
+    @@gui ||= Gosu::Image.load_tiles 'media/gui.bmp', -4, -11
+    Gosu::translate(576, 0) do
+      tile_w = @@gui.first.width
+      tile_h = @@gui.first.height
+      
+      draw_digits = lambda do |num, row|
+        left_digit  = [num, 99].min / 10 * 2 + 20
+        right_digit = [num, 99].min % 10 * 2 + 21
+        @@gui[left_digit].draw  tile_w * 2, tile_h * row, Z_UI
+        @@gui[right_digit].draw tile_w * 3, tile_h * row, Z_UI
+      end
+
+      # Game logo and spacing
+      0.upto(3) do |x|
+        @@gui[x + 0].draw tile_w * x, tile_h * 0, Z_UI
+        @@gui[x + 4].draw tile_w * x, tile_h * 1, Z_UI
+      end
+      # Health
+      if true then # TODO player.alive?
+        @@gui[8].draw tile_w * 0, tile_h * 2, Z_UI
+        @@gui[9].draw tile_w * 1, tile_h * 2, Z_UI
+        draw_digits.call player.life, 2
+      else
+        0.upto(3) { |x| @@gui[x + 4].draw tile_w * x, tile_h * 2, Z_UI }
+      end
+      # Keys
+      @@gui[10].draw tile_w * 0, tile_h * 3, Z_UI
+      @@gui[11].draw tile_w * 1, tile_h * 3, Z_UI
+      draw_digits.call keys, 3
+      # Stars
+      @@gui[12].draw tile_w * 0, tile_h * 4, Z_UI
+      @@gui[13].draw tile_w * 1, tile_h * 4, Z_UI
+      draw_digits.call stars, 4
+      if stars > stars_goal then
+        # Enough stars - draw checkmark
+        @@gui[42].draw tile_w * 2, tile_h * 4, Z_UI
+        @@gui[43].draw tile_w * 3, tile_h * 4, Z_UI
+      end
+      if stars_goal == 0 then
+        # Or blank the line out of no stars are needed
+        0.upto(3) { |x| @@gui[x + 4].draw tile_w * x, tile_h * 4, Z_UI }
+      end
+      # Remaining special peter time
+      if player.pmid == ID_PLAYER then
+        0.upto(3) { |x| @@gui[x + 4].draw tile_w * x, tile_h * 5, Z_UI }
+      else
+        @@gui[14].draw tile_w * 0, tile_h * 5, Z_UI
+        @@gui[15].draw tile_w * 1, tile_h * 5, Z_UI
+        draw_digits.call time_left / TARGET_FPS, 5
+      end
+      # Ammo
+      @@gui[16].draw tile_w * 0, tile_h * 6, Z_UI
+      @@gui[17].draw tile_w * 1, tile_h * 6, Z_UI
+      draw_digits.call ammo, 6
+      # Bombs
+      @@gui[18].draw tile_w * 0, tile_h * 7, Z_UI
+      @@gui[19].draw tile_w * 1, tile_h * 7, Z_UI
+      draw_digits.call bombs, 7
+      # Remaining time for frozen lava
+      if map.lava_time_left == 0 then
+        0.upto(3) { |x| @@gui[x + 4].draw tile_w * x, tile_h * 8, Z_UI }
+      else
+        @@gui[40].draw tile_w * 0, tile_h * 8, Z_UI
+        @@gui[41].draw tile_w * 1, tile_h * 8, Z_UI
+        draw_digits.call map.lava_time_left / TARGET_FPS, 8
+      end
+      # Spacing
+      0.upto(3) { |x| @@gui[x + 4].draw tile_w * x, tile_h * 9, Z_UI }
+    end
+  end
+  
+  # TODO Merge into cast_objects
+  def cast_single_fx pmid, num, x, y, w, h, vx, vy, randomness
+    num.times do
+      x = [[x - w / 2 + rand(w + 1), 0].max, 575].min
+      y =   y - h / 2 + rand(h + 1)
+      fx = create_object(pmid, x, y, nil)
+      fx.vx = vx - randomness + rand(randomness * 2 + 1)
+      fx.vy = vy - randomness + rand(randomness * 2 + 1)
+    end
+  end  
+end