Submission: Four Person battle report Options

[vvalkingman]

This is a remake of Prexus' old three man battle report with an additional man added to it. Also, this is for RPG Maker XP. Just plug and play. Not too sure if it will mess with other scripts, though. Just sharing the love ^^

[Show/Hide] The code

CODE

class Window_EXPTitle < Window_Base
def initialize
   super(0, 0, 640, 64)
   self.contents = Bitmap.new(width - 32, height - 32)
   self.contents.font.name = "Tahoma"
   self.contents.font.size = 16
   self.visible = false
   refresh
end
def refresh
   self.contents.clear
   self.contents.draw_text(4,0,640,32,"Battle Results")
end
end

class Window_EXPPlayer1 < Window_Base
def initialize(exp)
   @exp = exp
   super(32, 64, 288, 90)
   self.contents = Bitmap.new(width - 32, height - 32)
   self.contents.font.name = "Tahoma"
   self.contents.font.size = 16
   self.z += 10
   self.visible = false
   refresh
end
def refresh
   self.contents.clear
   actor = $game_party.actors[0]
   draw_actor_name(actor, 2, 0)
   draw_actor_level(actor, 2, 32)
   draw_actor_rcvexp(actor, 100, 0, @exp)
   draw_actor_curexp(actor, 100, 16)
   draw_actor_nxtexp(actor, 100, 32)
end
end

class Window_EXPPlayer2 < Window_Base
def initialize(exp)
   @exp = exp
   super(32, 154, 288, 90)
   self.contents = Bitmap.new(width - 32, height - 32)
   self.contents.font.name = "Tahoma"
   self.contents.font.size = 16
   self.z += 10
   self.visible = false
   refresh
end
def refresh
   self.contents.clear
   actor = $game_party.actors[1]
   draw_actor_name(actor, 2, 0)
   draw_actor_level(actor, 2, 32)
   draw_actor_rcvexp(actor, 100, 0, @exp)
   draw_actor_curexp(actor, 100, 16)
   draw_actor_nxtexp(actor, 100, 32)
end
end

class Window_EXPPlayer3 < Window_Base
def initialize(exp)
   @exp = exp
   super(32, 244, 288, 90)
   self.contents = Bitmap.new(width - 32, height - 32)
   self.contents.font.name = "Tahoma"
   self.contents.font.size = 16
   self.z += 10
   self.visible = false
   refresh
end
def refresh
   self.contents.clear
   actor = $game_party.actors[2]
   draw_actor_name(actor, 2, 0)
   draw_actor_level(actor, 2, 32)
   draw_actor_rcvexp(actor, 100, 0, @exp)
   draw_actor_curexp(actor, 100, 16)
   draw_actor_nxtexp(actor, 100, 32)
end
end

class Window_EXPPlayer4 < Window_Base
def initialize(exp)
   @exp = exp
   super(32, 334, 288, 90)
   self.contents = Bitmap.new(width - 32, height - 32)
   self.contents.font.name = "Tahoma"
   self.contents.font.size = 16
   self.z += 10
   self.visible = false
   refresh
end
def refresh
   self.contents.clear
   actor = $game_party.actors[3]
   draw_actor_name(actor, 2, 0)
   draw_actor_level(actor, 2, 32)
   draw_actor_rcvexp(actor, 100, 0, @exp)
   draw_actor_curexp(actor, 100, 16)
   draw_actor_nxtexp(actor, 100, 32)
end
end

class Window_EXPBlank2 < Window_Base
def initialize
   super(32, 154, 288, 90)
   self.contents = Bitmap.new(width - 32, height - 32)
   self.contents.font.name = "Tahoma"
   self.contents.font.size = 16
   self.z += 10
   self.visible = false
end
end

class Window_EXPBlank3 < Window_Base
def initialize
   super(32, 244, 288, 90)
   self.contents = Bitmap.new(width - 32, height - 32)
   self.contents.font.name = "Tahoma"
   self.contents.font.size = 16
   self.z += 10
   self.visible = false
end
end

class Window_EXPBlank4 < Window_Base
def initialize
   super(32, 334, 288, 90)
   self.contents = Bitmap.new(width - 32, height - 32)
   self.contents.font.name = "Tahoma"
   self.contents.font.size = 16
   self.z += 10
   self.visible = false
end
end


class Window_Background < Window_Base
  def initialize
    super(-16,-16,672,512)
    self.opacity = 0
    self.z = 9
    self.visible = false
    self.contents = Bitmap.new(width - 32, height - 32)
    icon_bitmap = RPG::Cache.picture("Blackout.png") # Replace this with a 640x480 image of BLACK
    self.contents.blt(0, 0, icon_bitmap, icon_bitmap.rect)
    icon_bitmap.dispose
  end
end

class Scene_Battle
def main
   $game_temp.in_battle = true
   $game_temp.battle_turn = 0
   $game_temp.battle_event_flags.clear
   $game_temp.battle_abort = false
   $game_temp.battle_main_phase = false
   $game_temp.battleback_name = $game_map.battleback_name
   $game_temp.forcing_battler = nil
   $game_system.battle_interpreter.setup(nil, 0)
   @troop_id = $game_temp.battle_troop_id
   $game_troop.setup(@troop_id)
   s1 = $data_system.words.attack
   s2 = $data_system.words.skill
   s3 = $data_system.words.guard
   s4 = $data_system.words.item
   @actor_command_window = Window_Command.new(160, [s1, s2, s3, s4])
   @actor_command_window.y = 160
   @actor_command_window.back_opacity = 160
   @actor_command_window.active = false
   @actor_command_window.visible = false
   @party_command_window = Window_PartyCommand.new
   @help_window = Window_Help.new
   @help_window.back_opacity = 160
   @help_window.visible = false
   @status_window = Window_BattleStatus.new
   @message_window = Window_Message.new
   @spriteset = Spriteset_Battle.new
   @wait_count = 0
   if $data_system.battle_transition == ""
     Graphics.transition(20)
   else
     Graphics.transition(40, "Graphics/Transitions/" +
       $data_system.battle_transition)
   end
   start_phase1
   loop do
     Graphics.update
     Input.update
     update
     if $scene != self
       break
     end
   end
   $game_map.refresh
   Graphics.freeze
   @actor_command_window.dispose
   @party_command_window.dispose
   @help_window.dispose
   @status_window.dispose
   @message_window.dispose
   if @skill_window != nil
     @skill_window.dispose
   end
   if @item_window != nil
     @item_window.dispose
   end
   if @result_window != nil
     @result_window.dispose
   end
   if @titleresult_window != nil
     @titleresult_window.dispose
     @p1result_window.dispose
     @p2result_window.dispose
     @p3result_window.dispose
     @p4result_window.dispose
     @background_window.dispose
   end
   @spriteset.dispose
   if $scene.is_a?(Scene_Title)
     Graphics.transition
     Graphics.freeze
   end
   if $BTEST and not $scene.is_a?(Scene_Gameover)
     $scene = nil
   end
end

def start_phase5
   @phase = 5
   $game_system.me_play($game_system.battle_end_me)
   $game_system.bgm_play($game_temp.map_bgm)
   exp = 0
   gold = 0
   treasures = []
   for enemy in $game_troop.enemies
     unless enemy.hidden
       exp += enemy.exp
       gold += enemy.gold
       if rand(100) < enemy.treasure_prob
         if enemy.item_id > 0
           treasures.push($data_items[enemy.item_id])
         end
         if enemy.weapon_id > 0
           treasures.push($data_weapons[enemy.weapon_id])
         end
         if enemy.armor_id > 0
           treasures.push($data_armors[enemy.armor_id])
         end
       end
     end
   end
   treasures = treasures[0..5]
   for i in 0...$game_party.actors.size
     actor = $game_party.actors[i]
     if actor.cant_get_exp? == false
       last_level = actor.level
       actor.exp += exp
       if actor.level > last_level
         @status_window.level_up(i)
       end
     end
   end
   $game_party.gain_gold(gold)
   for item in treasures
     case item
     when RPG::Item
       $game_party.gain_item(item.id, 1)
     when RPG::Weapon
       $game_party.gain_weapon(item.id, 1)
     when RPG::Armor
       $game_party.gain_armor(item.id, 1)
     end
   end
   @result_window = Window_BattleResult.new(gold, treasures)
   @titleresult_window = Window_EXPTitle.new
   case $game_party.actors.size
   when 1
     @p1result_window = Window_EXPPlayer1.new(exp)
     @p2result_window = Window_EXPBlank2.new
     @p3result_window = Window_EXPBlank3.new
     @p4result_window = Window_EXPBlank4.new
   when 2
     @p1result_window = Window_EXPPlayer1.new(exp)
     @p2result_window = Window_EXPPlayer2.new(exp)
     @p3result_window = Window_EXPBlank3.new
     @p4result_window = Window_EXPBlank4.new
   when 3
     @p1result_window = Window_EXPPlayer1.new(exp)
     @p2result_window = Window_EXPPlayer2.new(exp)
     @p3result_window = Window_EXPPlayer3.new(exp)
     @p4result_window = Window_EXPBlank4.new
   when 4
     @p1result_window = Window_EXPPlayer1.new(exp)
     @p2result_window = Window_EXPPlayer2.new(exp)
     @p3result_window = Window_EXPPlayer3.new(exp)  
     @p4result_window = Window_EXPPlayer4.new(exp)
end
   @background_window = Window_Background.new
   @phase5_wait_count = 60
end
def update_phase5
   if @phase5_wait_count > 0
     @phase5_wait_count -= 1
     if @phase5_wait_count == 0
       @titleresult_window.visible = true
       @p1result_window.visible = true
       @p2result_window.visible = true
       @p3result_window.visible = true
       @p4result_window.visible = true
       @result_window.visible = true
       @background_window.visible = true
       $game_temp.battle_main_phase = false
       @status_window.refresh
     end
     return
   end
   if Input.trigger?(Input::C)
     $game_switches[0001] = true
     battle_end(0)
   end
end
end

class Window_BattleResult < Window_Base
def initialize(gold, treasures)
   @gold = gold
   @treasures = treasures
   super(320, 64, 288, 360)
   self.contents = Bitmap.new(width - 32, height - 32)
   self.contents.font.name = "Tahoma"
   self.contents.font.size = 16
   self.z += 10
   self.visible = false
   refresh
end
def refresh
   self.contents.clear
   x = 4
   self.contents.font.color = normal_color
   cx = contents.text_size(@gold.to_s).width
   self.contents.draw_text(x, 0, cx, 32, @gold.to_s)
   x += cx + 4
   self.contents.font.color = system_color
   self.contents.draw_text(x, 0, 128, 32, $data_system.words.gold)
   y = 32
   for item in @treasures
     draw_item_name(item, 4, y)
     y += 32
   end
end
end

class Window_Base
  #-
  def draw_actor_rcvexp(actor,x,y,exp)
    self.contents.font.color = Color.new(255,255,128,255)
    self.contents.draw_text(x,y,288,32,"EXP:")
    self.contents.font.color = normal_color
    self.contents.draw_text(x+60,y,80,32,exp.to_s,2)
  end
  #-
  def draw_actor_curexp(actor,x,y)
    self.contents.font.color = Color.new(255,255,128,255)
    self.contents.draw_text(x,y,288,32,"Current:")
    self.contents.font.color = normal_color
    self.contents.draw_text(x+60,y,80,32,actor.exp_s,2)
  end
  #-
  def draw_actor_nxtexp(actor,x,y)
    self.contents.font.color = Color.new(255,255,128,255)
    self.contents.draw_text(x,y,288,32,"Next:")
    self.contents.font.color = normal_color
    self.contents.draw_text(x+60,y,80,32,actor.next_exp_s,2)
  end
end
class Window_BattleStatus < Window_Base
  def initialize
    super(0, 320, 640, 160)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = "Tahoma"
    self.contents.font.size = 16
    self.z = 8
    @level_up_flags = [false, false, false, false]
    refresh
  end
end

class Spriteset_Battle
  def initialize
    @viewport1 = Viewport.new(0, 0, 640, 320)
    @viewport2 = Viewport.new(0, 0, 640, 480)
    @viewport3 = Viewport.new(0, 0, 640, 480)
    @viewport4 = Viewport.new(0, 0, 640, 480)
    @viewport2.z = 8
    @viewport3.z = 200
    @viewport4.z = 5000
    @battleback_sprite = Sprite.new(@viewport1)
    @enemy_sprites = []
    for enemy in $game_troop.enemies.reverse
      @enemy_sprites.push(Sprite_Battler.new(@viewport1, enemy))
    end
    @actor_sprites = []
    @actor_sprites.push(Sprite_Battler.new(@viewport2))
    @actor_sprites.push(Sprite_Battler.new(@viewport2))
    @actor_sprites.push(Sprite_Battler.new(@viewport2))
    @actor_sprites.push(Sprite_Battler.new(@viewport2))
    @weather = RPG::Weather.new(@viewport1)
    @picture_sprites = []
    for i in 51..100
      @picture_sprites.push(Sprite_Picture.new(@viewport3,
        $game_screen.pictures[i]))
    end
    @timer_sprite = Sprite_Timer.new
    update
   end
end

Be sure to include this:

[Show/Hide] The picture

in your project's Graphics/Pictures/

Herez a screenshot:

[Show/Hide] Screenshot

edit: sorry, forgot to add the blackout screen hehe

Edited by Night_Runner to put the code in code tags

This post has been edited by Night_Runner: Oct 10 2010, 02:10 AM