petermorphose 2.0.0

data/src/objects/collectible_object.rb

@@ -0,0 +1,174 @@
+class CollectibleObject < GameObject
+  def update
+    if not [ID_EDIBLE_FISH, ID_EDIBLE_FISH_2].include? pmid and not xdata.nil? and xdata[1, 1] == '1' then
+      fall
+      check_tile
+    end
+    
+    # Burn in lava
+    if y + ObjectDef[pmid].rect.bottom > game.map.lava_pos then
+      game.cast_fx 2, 2, 0, x, y, 16, 16, 0, -3, 1
+      kill
+      emit_sound :shshsh
+      game.lose("Du hast verloren, weil eine Gefangene verbrannt ist.") if pmid == ID_CAROLIN
+    end
+    
+    if pmid == ID_CAROLIN and game.frame % 20 == 0 and rand(4) == 0 then
+      emit_sound "help#{rand(2) + 1}"
+    end
+    
+    if [ID_EDIBLE_FISH, ID_EDIBLE_FISH_2].include? pmid then
+      if not in_water? then
+        if xdata.is_a? String and xdata[0, 1] == '1' then
+          fall
+          check_tile
+        end
+      else
+        if pmid == ID_EDIBLE_FISH then
+          self.x -= 2
+          self.pmid = ID_EDIBLE_FISH_2 if blocked? DIR_LEFT
+        else
+          self.x += 2
+          self.pmid = ID_EDIBLE_FISH if blocked? DIR_RIGHT
+        end
+        game.create_object ID_FX_WATER_BUBBLE, x, y - 3, nil if rand(30) == 0
+      end
+    end
+    
+    # Cannot be collected...
+    return if game.player.action >= ACT_DEAD
+    
+    if collide_with? game.player.rect(2, 2) then
+      case pmid
+      when ID_CAROLIN then
+        game.cast_objects ID_FX_FLYING_CHAIN, 8, 0, -1, 3, rect(1, -1)
+        fc = game.create_object ID_FX_FLYING_CAROLIN, x, y, nil
+        fc.vx, fc.vy = -7 + rand(15), -15, 
+        sound(:yippie).play
+        game.score += 100
+        kill
+      when ID_KEY then
+        sound(:collect_key).play
+        game.player.emit_text "#{t ObjectDef[pmid].name}!"
+        game.cast_objects ID_FX_SPARKLE, 2, 0, 0, 0, rect
+        game.score += 2
+        game.keys += 1
+        kill
+      when ID_EDIBLE_FISH, ID_EDIBLE_FISH_2 then
+        sound(:collect_health).play
+        sound(:eat).play
+        game.player.emit_text '+1'
+        game.score += 2
+        game.player.life += 1
+        kill
+      when ID_MORE_TIME, ID_MORE_TIME_2 then
+        return if game.player.pmid == ID_PLAYER
+        sound(:morph).play
+        game.cast_objects ID_FX_SPARKLE, 2, 0, 0, 0, rect
+        if pmid == ID_MORE_TIME then
+          game.player.emit_text "+1 #{t 'Sekunde'}"
+          game.score += 5
+          game.time_left += 30
+        else
+          game.player.emit_text "+3,5 #{t 'Sekunden'}"
+          game.score += 10
+          game.time_left += 110
+        end
+        kill
+      when ID_HEALTH, ID_HEALTH_2 then
+        if pmid == ID_HEALTH then amount = 1 else amount = 4 end
+        sound(:collect_health).play
+        game.player.emit_text '+1'
+        game.cast_objects ID_FX_SPARKLE, 2, 0, 0, 0, rect
+        game.score += amount
+        game.player.life += amount
+        kill
+      when ID_STAR..ID_STAR_3 then
+        sound(:collect_star).play Gosu::random(0.5, 0.7), Gosu::random(0.9, 1.1)
+        game.score += 2
+        game.stars += 1
+        if game.stars < game.stars_goal then
+          game.player.emit_text t("Noch %d") % (game.stars_goal - game.stars)
+        elsif game.stars == game.stars_goal then
+          game.player.emit_text t("Genug gesammelt!")
+        end
+        game.cast_objects ID_FX_SPARKLE, 2, 0, 0, 0, rect
+        kill
+      when ID_POINTS..ID_POINTS_MAX then
+        sound(:collect_points).play
+        game.player.emit_text "*#{ObjectDef[pmid].life}*"
+        game.cast_objects ID_FX_SPARKLE, 3, 0, 0, 0, rect
+        game.score += ObjectDef[pmid].life
+        kill
+      when ID_MUNITION_GUN, ID_MUNITION_GUN_2 then
+        sound(:collect_ammo).play
+        amount = 1 + (pmid - ID_MUNITION_GUN) * 2
+        game.player.emit_text "+#{amount}"
+        game.cast_objects ID_FX_SPARKLE, 2, 0, 0, 0, rect
+        game.score += amount
+        game.ammo  += amount
+        kill
+      when ID_MUNITION_BOMBER, ID_MUNITION_BOMBER_2 then
+        sound(:collect_ammo).play
+        amount = 1 + (pmid - ID_MUNITION_BOMBER) * 2
+        game.player.emit_text "+#{amount}"
+        game.cast_objects ID_FX_SPARKLE, 2, 0, 0, 0, rect
+        game.score += amount
+        game.bombs += amount
+        kill
+      when ID_COOKIE then
+        sound(:eat).play
+        game.cast_objects ID_FX_SPARKLE, 1, 0, 0, 0, rect
+        emit_text t(xdata.split('|')[1] || 'Der Keks war leer...'), :slow
+        game.score += 10
+        kill
+      when ID_SLOW_DOWN then
+        if game.map.lava_mode == 0 and game.map.lava_speed == 48 then
+        elsif game.map.lava_mode == 1 and game.map.lava_speed == 1 then
+          game.map.lava_mode = 0
+          game.map.lava_speed = 2
+        elsif game.map.lava_mode == 0 then
+          game.map.lava_speed += 1
+        else
+          game.map.lava_speed -= 1
+        end
+        sound(:collect_freeze).play
+        game.player.emit_text t('Lava verlangsamt!')
+        game.cast_objects ID_FX_SPARKLE, 3, 0, 0, 0, rect
+        kill
+      when ID_CRYSTAL then
+        sound(:collect_freeze).play
+        game.player.emit_text t('Lava angehalten!'), :slow
+        game.map.lava_time_left += 80
+        game.cast_objects ID_FX_SPARKLE, 4, 0, 0, 0, rect
+        kill
+      when ID_MORPH_FIGHTER..ID_MORPH_MAX then
+        target_id = ID_PLAYER_FIGHTER + pmid - ID_MORPH_FIGHTER
+        if game.player.pmid != target_id then
+          sound(:morph).play
+          game.player.pmid = target_id
+          game.player.emit_text "#{t ObjectDef[game.player.pmid].name}!", :slow
+          game.player.action = ACT_JUMP
+          game.cast_fx 8, 0, 0, x, y, 24, 24, 0, -1, 4
+          game.time_left = ObjectDef[game.player.pmid].life
+          game.cast_objects ID_FX_SPARKLE, 5, 0, 0, 0, rect
+          kill
+        end
+      when ID_SPEED, ID_JUMP, ID_FLY then
+        sound(:morph).play
+        game.player.emit_text "#{t ObjectDef[pmid].name}!", :slow
+        case pmid
+        when ID_SPEED then game.speed_time_left = 330
+        when ID_JUMP  then game.jump_time_left  = 330
+        when ID_FLY   then game.fly_time_left   =  88
+        end
+        game.cast_fx 8, 0, 0, game.player.x, game.player.y - 10, 24, 24, 0, -1, 4
+        game.cast_objects ID_FX_SPARKLE, 2, 0, 0, 0, rect
+        kill
+      when ID_SEAMINE then
+        game.explosion x, y, 50, false
+        kill
+      end
+    end
+  end
+end

data/src/objects/effect_object.rb

@@ -0,0 +1,120 @@
+class EffectObject < GameObject
+  def initialize *args
+    super
+    
+    @phase = 0
+  end
+  
+  def self.images
+    @images ||= Gosu::Image.load_tiles 'media/effects.bmp', -7, -7
+  end
+  
+  def draw
+    case pmid
+    when ID_FX_SMOKE then
+      EffectObject.images[[ 0, @phase -  1].max].draw x - 11, y - 11 - game.view_pos, Z_EFFECTS, 1, 1, alpha(128), :additive
+    when ID_FX_FLAME then
+      EffectObject.images[[ 7, @phase +  6].max].draw x - 11, y - 11 - game.view_pos, Z_EFFECTS, 1, 1, alpha(160), :additive
+    when ID_FX_SPARK then
+      EffectObject.images[[14, @phase + 13].max].draw x - 11, y - 11 - game.view_pos, Z_EFFECTS, 1, 1, alpha(128), :additive
+    when ID_FX_BUBBLE then
+      EffectObject.images[[21, @phase + 20].max].draw x - 11, y - 11 - game.view_pos, Z_EFFECTS, 1, 1, alpha(192), :additive
+    when ID_FX_RICOCHET then
+      EffectObject.images[19 + xdata.to_i].draw x - 11, y - 11 - game.view_pos, Z_EFFECTS, 1, 1, alpha([255 - @phase * 3, 0].max)
+    when ID_FX_LINE then
+      EffectObject.images[28].draw x, y - 11 - game.view_pos, Z_EFFECTS, xdata.to_f / EffectObject.images.first.width, 1, alpha(255 - @phase), :additive
+    when ID_FX_BLOCKER_PARTS then
+      EffectObject.images[29].draw_rot x, y - game.view_pos, Z_EFFECTS, x * 10, 0.5, 0.5, 1, 1, alpha(255 - @phase), :additive
+    when ID_FX_BREAK, ID_FX_BREAK_2 then
+      EffectObject.images[30 + (ID_FX_BREAK_2 - pmid)].draw x - 11, y - 11 - game.view_pos, Z_EFFECTS, 1, 1, alpha(@phase) # TODO :subtractive
+    when ID_FX_BREAKING_PARTS then
+      EffectObject.images[32].draw_rot x, y - game.view_pos, Z_EFFECTS, x * 10, 0.5, 0.5, 1, 1, alpha(255 - @phase)
+    when ID_FX_BLOOD then
+      EffectObject.images[33].draw x - 11, y - 11 - game.view_pos, Z_EFFECTS, 1, 1, alpha(250 - @phase)
+    when ID_FX_FIRE then
+      EffectObject.images[34].draw x, y - game.view_pos, Z_EFFECTS, 1, 1, alpha(@phase)
+    when ID_FX_FLYING_CAROLIN then
+      EffectObject.images[35].draw x - 11, y - 11 - game.view_pos, Z_EFFECTS
+    when ID_FX_FLYING_CHAIN then
+      EffectObject.images[36].draw_rot x, y - game.view_pos, Z_EFFECTS, x * 10 % 360, 0.5, 0.5, 1, 1, alpha(255 - @phase)
+    when ID_FX_FLYING_BLOB then
+      EffectObject.images[37].draw_rot x, y - game.view_pos, Z_EFFECTS, x * 10, 0.5, 0.5, 1, 1, alpha(255 - @phase)
+    when ID_FX_WATER_BUBBLE then
+      EffectObject.images[46].draw x - 11, y - 11 - game.view_pos, Z_EFFECTS, 1, 1, alpha(100 + rand(29))
+    when ID_FX_WATER then
+      EffectObject.images[47].draw_rot x, y - game.view_pos, Z_EFFECTS, x * 10, 0.5, 0.5, 1, 1, alpha(255 - @phase)
+    when ID_FX_SPARKLE then
+      EffectObject.images[48].draw x - 11, y - 11 - game.view_pos, Z_EFFECTS, 1, 1, alpha(255 - @phase), :additive
+    when ID_FX_TEXT, ID_FX_SLOW_TEXT then
+      # TODO: Force text inside portion @ x=0..576
+      draw_centered_string xdata, x, y - 7 - game.view_pos, 255 - @phase
+    end
+  end
+  
+  def update
+    case pmid
+    when ID_FX_SMOKE, ID_FX_FLAME then
+      self.x += vx
+      self.y += vy
+      @phase += 1
+      kill if @phase > 7
+    when ID_FX_SPARK then
+      self.x += vx
+      self.y += vy
+      @phase += 1 if game.frame % 3 == 0
+      kill if @phase > 5
+    when ID_FX_BUBBLE then
+      self.x += vx
+      self.y = game.map.lava_pos - 12
+      @phase += 1 if game.frame % 2 == 0
+      kill if @phase > 7
+    when ID_FX_BLOCKER_PARTS then
+      self.x += vx
+      self.y += vy
+      self.vy += 1
+      @phase += 15
+      kill if @phase == 255
+    when ID_FX_WATER then
+      self.x += vx
+      self.vy += 1
+      self.y += vy
+      @phase += 25
+      kill if @phase == 250
+    when ID_FX_BREAK, ID_FX_BREAK_2 then
+      @phase += 15
+      if @phase == 255 then
+        game.map[x / TILE_SIZE, y / TILE_SIZE] = TILE_HOLE + ((y / TILE_SIZE % 2 + x / TILE_SIZE) % 2) * 16
+        game.cast_objects ID_FX_BREAKING_PARTS, 20, 0, 5, 2,
+          ObjectDef::Rect.new(x / (TILE_SIZE/2) * (TILE_SIZE/2), y / (TILE_SIZE/2) * (TILE_SIZE/2), 24, 24)
+        emit_sound "break#{rand(2) + 1}"
+        kill
+        return
+      end
+    when ID_FX_FIRE then
+      @phase += 15
+      if @phase == 255 then
+        game.map[x / TILE_SIZE, y / TILE_SIZE] = TILE_BIG_BLOCKER_BROKEN
+        game.explosion x + 12, y + 12, 30, true
+        kill
+      end
+    when ID_FX_BREAKING_PARTS, ID_FX_TEXT, ID_FX_RICOCHET, ID_FX_LINE,
+        ID_FX_BLOOD, ID_FX_FLYING_CHAIN, ID_FX_FLYING_BLOB, ID_FX_SLOW_TEXT then
+      self.x += vx
+      self.y += vy
+      @phase += 15
+      @phase -= 10 if pmid == ID_FX_SLOW_TEXT
+      kill if @phase == 255
+    when ID_FX_FLYING_CAROLIN then
+      self.x += vx
+      self.y += vy
+      kill if y < game.view_pos - HEIGHT
+    when ID_FX_WATER_BUBBLE then
+      self.y -= 1
+      self.x += 1 - rand(3) if rand(4) == 0
+      kill if not in_water?
+    when ID_FX_SPARKLE then
+      @phase += 25
+      kill if @phase == 250
+    end
+  end
+end

data/src/objects/game_object.rb

@@ -0,0 +1,363 @@
+class NilClass
+  def existence_as_int
+    0
+  end
+end
+
+class GameObject
+  attr_reader :game
+  attr_accessor :pmid, :x, :y, :xdata, :vx, :vy
+  
+  def marked?
+    @marked
+  end
+  
+  def existence_as_int
+    marked? ? 0 : 1
+  end
+  
+  def kill
+    0.upto(game.obj_vars.size) do |i|
+      game.obj_vars[i] = nil if game.obj_vars[i] == self
+    end
+    @marked = true
+  end
+  
+  def emit_text string, speed = :fast
+    if speed == :slow then id = ID_FX_SLOW_TEXT else id = ID_FX_TEXT end
+    game.create_object(id, x, y - 10, string).vy = -1
+  end
+  
+  def initialize game, pmid, x, y, xdata
+    @game, @pmid, @x, @y, @xdata = game, pmid, x, y, xdata
+    @vx = @vy = 0
+    @last_frame_in_water = in_water?
+  end
+  
+  def emit_sound name
+    game.emit_sound name, y
+  end
+  
+  ALL_WATER_TILES = (TILE_WATER..TILE_WATER_4).to_a + [TILE_WATER_5]
+  def in_water?
+    ALL_WATER_TILES.include? game.map[x / TILE_SIZE, y / TILE_SIZE]
+  end
+  
+  def update
+    if [ID_FIREWALL_1, ID_FIREWALL_2, ID_FIRE].include? pmid then
+      if y + ObjectDef[pmid].rect.bottom - 11 > game.map.lava_pos then
+        game.cast_fx 4, 4, 0, x, y, 16, 16, 0, -3, 1
+        kill
+        emit_sound(:shshsh)
+      else
+        self.xdata = ((game.frame * 7.5).to_i % 256 - 128).abs.to_s
+        rect = self.rect
+        game.objects.each do |obj|
+          if obj.pmid <= ID_LIVING_MAX and obj.pmid != ID_ENEMY_BERSERKER and rect.include? obj then
+            obj.hit
+            game.cast_fx rand(3), rand(2), 0, x, y, 12, 12, 0, 0, 2
+          end
+        end
+        return
+      end
+    end
+    
+    # Hint arrows
+    kill if pmid == ID_HELP_ARROW and rect(10, 20).include? game.player
+    
+    # Fish
+    if pmid == ID_FISH or pmid == ID_FISH_2 then
+      if not in_water? then
+        fall
+        check_tile
+      else
+        if pmid == ID_FISH then
+          self.x -= 2
+          self.pmid = ID_FISH_2 if blocked? DIR_LEFT
+        else
+          self.x += 2
+          self.pmid = ID_FISH if blocked? DIR_RIGHT
+        end
+        if rand(30) == 0 then
+          game.create_object ID_FX_WATER_BUBBLE, x, y - 3, nil
+        end
+      end
+    end
+    
+    # Fused bomb
+    if pmid == ID_FUSING_BOMB then
+      # Count up and possibly explode
+      time = (xdata || 1).to_i + 1
+      self.xdata = time.to_s
+      if time >= 25 then
+        kill
+        game.explosion x, y, 50, true
+        return
+      end
+      
+      # Also explode on touching an enemy
+      game.objects.each do |obj|
+        if obj.pmid >= ID_ENEMY and obj.pmid <= ID_ENEMY_MAX and obj.collide_with? rect(1, 1) and
+            not [ACT_DEAD, ACT_INV_UP, ACT_INV_UP].include? obj.action then
+          obj.hurt true
+          kill
+          game.explosion x, y, 50, true
+          return
+        end
+      end
+      
+      fall
+      check_tile
+    end
+    
+    # Rocks fall down
+    if (ID_TRASH..ID_TRASH_4).include? pmid then
+      fall
+      check_tile
+    end
+    
+    # Get roasted by lava
+    if y + ObjectDef[pmid].rect.bottom > game.map.lava_pos then
+      game.cast_fx 4, 4, 0, x, y, 16, 16, 0, -3, 1
+      kill
+      emit_sound :shshsh
+    end
+  end
+  
+  def draw
+    @@stuff_images ||= Gosu::Image.load_tiles 'media/stuff.bmp', -16, -3
+    color = 0xffffffff
+    mode = :default
+    
+    if [ID_FIREWALL_1, ID_FIREWALL_2, ID_FIRE].include? pmid then
+      color = alpha(127 + (xdata && xdata.to_i || 128))
+      mode = :additive
+    elsif pmid == ID_HELP_ARROW then
+      color = alpha(127 + (game.frame / 8 % 2) * 64)
+    end
+    @@stuff_images[pmid - ID_OTHER_OBJECTS_MIN].draw x - 11, y - 11 - game.view_pos, 0, 1, 1, color, mode
+    if pmid == ID_CAROLIN then
+      if xdata and xdata.length > 2 then
+        name = xdata[2..-1]
+      else
+        name = 'Carolin'
+      end
+      draw_centered_string name, x, y + 16 - game.view_pos, 128
+    end
+  end
+  
+  def fall
+    if in_water? and not @last_frame_in_water then
+      game.cast_objects ID_FX_WATER, 5, -vx / 2, -5, 3, rect(1, 1)
+      emit_sound "water#{rand(2) + 1}"
+    end
+    @last_frame_in_water = in_water?
+    
+    # Gravity
+    self.vy += 1 if (pmid > ID_PLAYER_MAX or game.fly_time_left == 0)# and not in_water?
+    
+    if in_water? then
+      self.vy -= 1 if vy > +1
+      self.vy += 1 if vy < -1
+      self.vx -= 1 if vx > +2
+      self.vx += 1 if vx < -2
+    end
+    
+    if pmid <= ID_PLAYER_MAX and not blocked? DIR_DOWN then
+      if vx.abs < 5 then
+        self.vx = (self.vx / 2.0).to_i
+      else
+        self.vx = (self.vx / 1.03).to_i if game.frame % 3 == 0
+      end
+    end
+    
+    # Velocity is limited to +- TILE_SIZE
+    self.vx = [[vx, -TILE_SIZE].max, TILE_SIZE].min
+    self.vy = [[vy, -TILE_SIZE].max, TILE_SIZE].min
+    
+    if vy > 0 then
+      vy.times do
+        break if blocked? DIR_DOWN
+        self.y += 1
+      end
+    elsif vy < 0 then
+      vy.abs.times do
+        break if blocked? DIR_UP
+        self.y -= 1
+      end
+    end
+    
+    if blocked? DIR_DOWN then
+      if is_a? LivingObject and vx > 10 and not [ACT_DEAD, ACT_ACTION_1, ACT_ACTION_2].include? action then
+        self.action = ACT_IMPACT_1 + [vy - 11, 4].min
+      end
+      self.vy = 0
+      # Conveyor belts are neither implemented nor used
+      # if (Data.Map.Tile(PosX + Data.Defs[ID].Rect.Left, PosY + Data.Defs[ID].Rect.Top + Data.Defs[ID].Rect.Bottom + 1) = Tile_PullLeft) and (not Blocked(Dir_Left)) then Dec(PosX);
+      # if (Data.Map.Tile(PosX + Data.Defs[ID].Rect.Left, PosY + Data.Defs[ID].Rect.Top + Data.Defs[ID].Rect.Bottom + 1) = Tile_PullRight) and (not Blocked(Dir_Right)) then Inc(PosX);
+      # if (Data.Map.Tile(PosX + Data.Defs[ID].Rect.Left + Data.Defs[ID].Rect.Right, PosY + Data.Defs[ID].Rect.Top + Data.Defs[ID].Rect.Bottom + 1) = Tile_PullLeft) and (not Blocked(Dir_Left)) then Dec(PosX);
+      # if (Data.Map.Tile(PosX + Data.Defs[ID].Rect.Left + Data.Defs[ID].Rect.Right, PosY + Data.Defs[ID].Rect.Top + Data.Defs[ID].Rect.Bottom + 1) = Tile_PullRight) and (not Blocked(Dir_Right)) then Inc(PosX);
+    end
+    
+    if blocked? DIR_UP and game.fly_time_left == 0 then
+      self.vy = 1
+      #self.vx /= +2
+    end
+    
+    if vx < 0 then
+      vx.abs.times do
+        if blocked? DIR_LEFT then
+          self.vx = 0
+          break
+        else
+          self.x -= 1
+        end
+      end
+    elsif vx > 0 then
+      vx.times do
+        if blocked? DIR_RIGHT then
+          self.vx = 0
+          break
+        else
+          self.x += 1
+        end
+      end
+    end
+    
+    if (pmid > ID_PLAYER_MAX or game.fly_time_left == 0) and blocked? DIR_DOWN then
+      self.vx -= 1 if vx >  0
+      self.vx -= 1 if vx > +1
+      self.vx -= 1 if pmid <= ID_ENEMY_MAX and vx > +ObjectDef[pmid].speed
+      self.vx += 1 if vx <  0
+      self.vx += 1 if vx < -1
+      self.vx += 1 if pmid <= ID_ENEMY_MAX and vx < -ObjectDef[pmid].speed
+      
+      if game.map[x / TILE_SIZE, (y + ObjectDef[pmid].rect.bottom + 1) / TILE_SIZE].between? TILE_SLIME, TILE_SLIME_3 then
+        (4 + game.frame % 2).times do
+          self.vx -= 1 if vx > 0
+          self.vx += 1 if vx < 0
+        end
+        (2 + game.frame % 2).times do
+          self.vx -= 1 if pmid <= ID_ENEMY_MAX and vx > +ObjectDef[pmid].speed
+          self.vx += 1 if pmid <= ID_ENEMY_MAX and vx < -ObjectDef[pmid].speed
+        end
+      end
+    end
+  end
+  
+  def fling vx, vy, randomness, fixed, malign
+    # TODO the "randomness" here smells because it's only towards the bottom right?!
+    
+    return if pmid <= ID_PLAYER_MAX and malign and (game.inv_time_left > 0 or pmid == ID_PLAYER_BERSERKER)
+    
+    randomness += 1 # what
+    
+    if fixed then
+      self.vx = vx + rand(randomness)
+      self.vy = vy + rand(randomness)
+    else
+      self.vx += vx + rand(randomness)
+      self.vy += vy + rand(randomness)
+    end
+  end
+  
+  def stuck?
+    rect = self.rect
+    map.solid?(rect.left, rect.top) or map.solid?(rect.right, rect.top) or
+      map.solid?(rect.left, rect.bottom) or map.solid?(rect.right, rect.bottom)
+  end
+  
+  def blocked? direction
+    rect = ObjectDef[pmid].rect
+    case direction
+    when DIR_LEFT then
+      game.map.solid? x + rect.left - 1, y + rect.top or
+      game.map.solid? x + rect.left - 1, y + rect.bottom
+    when DIR_RIGHT then
+      game.map.solid? x + rect.right + 1, y + rect.top or
+      game.map.solid? x + rect.right + 1, y + rect.bottom
+    when DIR_UP then
+      game.map.solid? x + rect.left,  y + rect.top - 1 or
+      game.map.solid? x + rect.right, y + rect.top - 1
+    when DIR_DOWN then
+      game.map.solid? x + rect.left,  y + rect.bottom + 1 or
+      game.map.solid? x + rect.right, y + rect.bottom + 1
+    end
+  end
+  
+  def check_tile
+    case game.map[x / TILE_SIZE, y / TILE_SIZE]
+    when TILE_AIR_ROCKET_UP, TILE_AIR_ROCKET_UP_2, TILE_AIR_ROCKET_UP_3 then
+      emit_sound :turbo
+      fling 0, -21, 0, true, false
+      self.y -= 1 unless blocked? DIR_UP
+      self.x = x / 24 * 24 + 11
+      self.vx = direction.dir_to_vx if pmid.between? ID_ENEMY, ID_ENEMY_MAX
+      game.cast_fx 0, 0, 10, x, y, 24, 24, 0, -10, 1
+    when TILE_AIR_ROCKET_UP_LEFT then
+      emit_sound :turbo
+      self.y -= 1 unless blocked? DIR_UP
+      fling -10, -16, 0, true, false
+      self.y = y / TILE_SIZE + TILE_SIZE + 11
+      TILE_SIZE.times { if stuck? then self.vy -= 1 else break end }
+      game.cast_fx 0, 0, 10, x, y, 24, 24, -8, -8, 1
+    when TILE_AIR_ROCKET_UP_RIGHT then
+      emit_sound :turbo
+      self.y -= 1 unless blocked? DIR_UP
+      fling +10, -16, 0, true, false
+      self.y = y / TILE_SIZE + TILE_SIZE + 11
+      TILE_SIZE.times { if stuck? then self.vy -= 1 else break end }
+      game.cast_fx 0, 0, 10, x, y, 24, 24, +8, -8, 1
+    when TILE_AIR_ROCKET_LEFT then
+      emit_sound :turbo
+      fling -20, -3, 0, true, false
+      self.y = y / TILE_SIZE + TILE_SIZE + 11
+      TILE_SIZE.times { if stuck? then self.vy -= 1 else break end }
+      game.cast_fx 0, 0, 10, x, y, 24, 24, -10, 0, 1
+    when TILE_AIR_ROCKET_RIGHT then
+      emit_sound :turbo
+      fling +20, -3, 0, true, false
+      self.y = y / TILE_SIZE + TILE_SIZE + 11
+      TILE_SIZE.times { if stuck? then self.vy -= 1 else break end }
+      game.cast_fx 0, 0, 10, x, y, 24, 24, +10, 0, 1
+    when TILE_AIR_ROCKET_DOWN then
+      emit_sound :turbo
+      fling 0, 15, 0, true, false
+      self.y = y / TILE_SIZE + TILE_SIZE + 11
+      self.vx = direction.dir_to_vx if pmid.between? ID_ENEMY, ID_ENEMY_MAX
+      game.cast_fx 0, 0, 10, x, y, 24, 24, -10, 0, 1
+    when TILE_SLOW_ROCKET_UP then
+      game.cast_fx 0, 0, 1, x, y, 24, 24, 0, -2, 1
+      self.vy -= 4
+      if pmid.between? ID_ENEMY, ID_ENEMY_MAX then
+        self.vx = direction.dir_to_vx
+      else
+        self.vx /= 2
+      end
+      self.action = ACT_JUMP if pmid <= ID_LIVING_MAX
+    when TILE_SPIKES then
+      if pmid <= ID_LIVING_MAX and (y + ObjectDef[pmid].rect.bottom) % 24 > 8 then
+        hit
+        self.vx = 0
+        self.vy = -10
+      end
+    when TILE_SPIKES_TOP then
+      if pmid <= ID_LIVING_MAX and (y + ObjectDef[pmid].rect.bottom) % 24 < 14 then
+        hit
+        self.vx = 0
+        self.vy = 5
+      end
+    end
+  end
+  
+  def collide_with? other
+    other = other.rect unless other.is_a? ObjectDef::Rect
+    rect.collide_with? other
+  end
+  
+  def rect(extra_width = 0, extra_height = 0)
+    rect = ObjectDef[pmid].rect
+    ObjectDef::Rect.new(x + rect.left - extra_width, y + rect.top - extra_height,
+      rect.width + extra_width * 2, rect.height + extra_height * 2)
+  end
+end