[DEAD] bradhawk's CMS

#==============================================================================
# Custom Menu System (1 Person)
# Dibuat oleh : bradhawk
# Dibuat pada : 17 May 2009
# Versi : 1.2
# Credits : Dubealex, RPG Maker ID, dnasman, fjakf, semua member RMID !
#==============================================================================

#==============================================================================
# Cara penginstallan :
# Taruh Script ini di atas Main, pastikan Party cuman 1 orang, sudah deh...
# Simpel kan ?
#==============================================================================

#==============================================================================
# History :
# ver. 0.1 Pembuatan Structure Script
# ver. 1.0 Structure Selesai
# ver. 1.1 Penambahan Command-command
# ver. 1.2 Fix Bug kalo ada lebih dari 1 Party Member
#==============================================================================

#Script untuk munculin map name... :P Credit goes to Constance

class Game_Map

  def name
    $map_infos[@map_id]
  end

end

class Scene_Title
  $map_infos = load_data("Data/MapInfos.rxdata")
  for key in $map_infos.keys
  $map_infos[key] = $map_infos[key].name
end
end

#akhir Script untuk munculin map name

#------------------------------------------------------------------------------
#---------------------------bradhawk's CMS Part 1------------------------------
#------------------------------------------------------------------------------

class CMS_part1 < Window_Base

  def initialize
    super(0, 0, 640,70)
    self.contents = Bitmap.new(width-32, height-32)
    self.contents.font.name = "Arial" 
    self.contents.font.size = 24
    refresh
  end
 
  def refresh
    self.contents.clear
    self.contents.font.color = text_color(6)
    self.contents.draw_text(0, 0, 200, 32, "Play Time:")
   
    #kode wat munculin playtime...
    @total_sec = Graphics.frame_count / Graphics.frame_rate
    hour = @total_sec / 60 / 60
    min = @total_sec / 60 % 60
    sec = @total_sec % 60
    text = sprintf("d:d:d", hour, min, sec)
    self.contents.font.color = normal_color
    self.contents.draw_text(100, 0, 120, 32, text)
    #akhir code wat munculin playtime...
   
    self.contents.font.color = text_color(6)
    self.contents.draw_text(250, 0, 50, 32, $data_system.words.gold  " : ")
    self.contents.font.color = text_color(0)
    self.contents.draw_text(305, 0, 100, 32, $game_party.gold.to_s )
   
    self.contents.font.color = text_color(6)
    self.contents.draw_text(400, 0, 100, 32, "Foot Steps : ")
    self.contents.font.color = text_color(0)
    self.contents.draw_text(500, 0, 100, 32, $game_party.steps.to_s)
  end
 
  def update
    if Graphics.frame_count / Graphics.frame_rate != @total_sec
      refresh
    end
  end
end
 
#------------------------------------------------------------------------------
#---------------------------bradhawk's CMS Part 2------------------------------
#------------------------------------------------------------------------------


class CMS_part2 < Window_Base
   
  #yg ada di bawah ini adalah fugsi wat munculin battler,
  #krn RMXP kaga ada fungsi ini, jadi bikin senridi deh fungsinyah...
  def draw_actor_battler(actor, x, y)
    bitmap = RPG::Cache.battler(actor.battler_name, actor.battler_hue)
    cw = bitmap.width
    ch = bitmap.height
    src_rect = Rect.new(0, 0, cw, ch)
    self.contents.blt(x - cw / 2, y - ch, bitmap, src_rect)
  end
 
    #yeah, ini lah script yg akan di jalankan oleh RMXP,
    #jadi ga bakal gw kasi comment soalnyah untuk menjelaskannyah jugak panjang...
   
  def initialize
    super(0, 0, 470 ,410)
    self.contents = Bitmap.new(width-32, height-32)
    self.contents.font.name = "Arial" 
    self.contents.font.size = 24
   
   
      actor = $game_party.actors[0]
      self.contents.font.color = text_color(0)
      self.contents.draw_text(0, 0, 200, 32, "Name : ")
      self.contents.font.color = text_color(6)
      self.contents.draw_text(80, 0, 70, 32, $game_party.actors[0].name)
      self.contents.font.color = text_color(0)
      self.contents.draw_text(160, 0, 200, 32, "Class : ")
      self.contents.font.color = text_color(4)
      self.contents.draw_text(230, 0, 70, 32, actor.class_name)
      self.contents.font.color = text_color(0)
      self.contents.draw_text(310, 0, 200, 32, "Lv : ")
      self.contents.font.color = text_color(4)
      self.contents.draw_text(370, 0, 200, 32, actor.level.to_s)
      draw_actor_graphic(actor,190,250)
      draw_actor_battler(actor,90,250)
      draw_actor_hp(actor,250,50)
      draw_actor_sp(actor,250,75)
      draw_actor_exp(actor, 250,100)
      self.contents.font.color = text_color(0)
      self.contents.draw_text(250, 125, 200, 32, "State :")
      draw_actor_state(actor, 250, 150)
     
      self.contents.font.color = text_color(0)
      self.contents.draw_text(0, 275, 50, 32 ,$data_system.words.atk)
      self.contents.draw_text(0, 300, 50, 32 ,$data_system.words.pdef)
      self.contents.draw_text(0, 325, 50, 32 ,$data_system.words.mdef)
      self.contents.draw_text(190, 270, 50, 32 ,$data_system.words.str)
      self.contents.draw_text(190, 295, 50, 32 ,$data_system.words.dex)
      self.contents.draw_text(190, 320, 50, 32 ,$data_system.words.agi)
      self.contents.draw_text(190, 345, 50, 32 ,$data_system.words.int)
     
      self.contents.font.color = text_color(4)
      self.contents.draw_text(75, 275, 200, 32 ,actor.atk.to_s)
      self.contents.draw_text(75, 300, 200, 32 ,actor.pdef.to_s)
      self.contents.draw_text(75, 325, 200, 32 ,actor.mdef.to_s)
      self.contents.draw_text(280, 270, 200, 32 ,actor.str.to_s)
      self.contents.draw_text(280, 295, 200, 32 ,actor.dex.to_s)
      self.contents.draw_text(280, 320, 200, 32 ,actor.agi.to_s)
      self.contents.draw_text(280, 345, 200, 32 ,actor.int.to_s)
    end
  end

#------------------------------------------------------------------------------
#---------------------------bradhawk's CMS Part 3------------------------------
#------------------------------------------------------------------------------

class CMS_part3 < Window_Base
 
  def initialize
    super(0, 0, 170, 250)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = "Arial"
    self.contents.font.size = 24
    refresh
  end

  def refresh
    self.contents.clear
    self.contents.draw_text(25, 1, 124, 32, $data_system.words.item)
    self.contents.draw_text(25, 33, 124, 32, $data_system.words.skill)
    self.contents.draw_text(25, 64, 124, 32, $data_system.words.equip)
    self.contents.draw_text(25, 96, 124, 32, "Upgrade")
    self.contents.draw_text(25, 128, 124, 32, "Exit")

    bitmap = RPG::Cache.icon("034-Item03")
    self.contents.blt(90, 4, bitmap, Rect.new(0, 0, 24, 24))

    bitmap = RPG::Cache.icon("050-Skill07")
    self.contents.blt(90, 36, bitmap, Rect.new(0, 0, 24, 24))

    bitmap = RPG::Cache.icon("013-Body01")
    self.contents.blt(90, 69, bitmap, Rect.new(0, 0, 24, 24))

    bitmap = RPG::Cache.icon("037-Item06")
    self.contents.blt(90, 101, bitmap, Rect.new(0, 0, 24, 24))

    bitmap = RPG::Cache.icon("039-Item08")
    self.contents.blt(90, 132, bitmap, Rect.new(0, 0, 24, 24))
  end
end

#------------------------------------------------------------------------------
#---------------------------bradhawk's CMS Part 4------------------------------
#------------------------------------------------------------------------------


class CMS_part4 < Window_Base
 
  def initialize
    super(0, 0, 170, 160)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = "Arial"
    self.contents.font.size = 24
    update
  end
 
  def update
    self.contents.clear
    self.contents.draw_text(0, 0, 124, 32, "Location : ")
    self.contents.font.color = text_color(2)
    self.contents.draw_text(0, 50, 160, 32, $game_map.name.to_s)


  end
 
 
end

#------------------------------------------------------------------------------
#---------------------------------Scene_Menu-----------------------------------
#------------------------------------------------------------------------------


class Scene_Menu

#akhirnyaah...scriptnyah selse, untuk membuat menu tiba kalo di tekan Esc,
#classnyah menggunakan Scene_Menu, maka menu langsung muncul

def initialize(menu_index = 0)
  @menu_index = menu_index
end 

 
def main
   
    if $game_party.actors.size == 0
      #jika kaga ada member di party, maka...
      @command_window.disable_item(0)
      @command_window.disable_item(1)
      @command_window.disable_item(2)
      @command_window.disable_item(3)
    end
   
    if $game_system.save_disabled
      #jika save akses di disable, maka...
      @command_window.disable_item(4)
    end
 
    s1 = ""
    s2 = ""
    s3 = ""
    s4 = ""
    s5 = ""

  @window_1=CMS_part1.new

  @window_2=CMS_part2.new
  @window_2.x=170
  @window_2.y=70

  @window_3 = Window_Command.new(170, [s1,s2,s3,s4,s5])
  @window_3.y = 70
  @window_3.index = @menu_index
  @window_3.height = 250
 
  @window_4=CMS_part4.new
  @window_4.y=320
 
  @window_5=CMS_part3.new
  @window_5.y=70
     
  Graphics.transition
    loop do
    Graphics.update
    Input.update
    update
    if $scene != self
      break
    end
  end


  Graphics.freeze
  @window_5.dispose
  @window_1.dispose
  @window_2.dispose
  @window_3.dispose
  @window_4.dispose
 end
 
def update
  @window_1.update
  @window_3.update
  if Input.trigger?(Input::B)
    $game_system.se_play($data_system.cancel_se)
    $scene = Scene_Map.new
    $game_map.autoplay
  end
     
if Input.trigger?(Input::C) #jika enter di tekan
case @window_3.index
  when 0 #item
    item
  when 1 #skill
    skill
  when 2 #equipment
    equip
  when 3 #upgrade
    upgrade
  when 4 #exit
    exit
  end 
end

  end
#fungsi2 mulai di sini :

def item
  $game_system.se_play($data_system.decision_se)
  $scene = Scene_Item.new
end 

def skill
  $game_system.se_play($data_system.decision_se)
  $scene = Scene_Skill.new
end 

def equip
  $game_system.se_play($data_system.decision_se)
  $scene = Scene_Equip.new
end

def upgrade
  $game_system.se_play($data_system.decision_se)
  $scene = Scene_AC.new
end

def exit
  $game_system.se_play($data_system.decision_se)
  $scene = Scene_End.new
end

end

#scriptku ini banyak yg kacau, maklum baru blajar RGSS :P mohon di #maklumi :P

#==============================================================================
# END OF #SCRIPT================================================================
#==============================================================================