[tanya] cara mbuat Choice SCREEN

#==============================================================================
# play events before title
# http://makegame.vn
#==============================================================================

class Scene_Intro
def main
$data_actors = load_data("Data/Actors.rxdata")
$data_classes = load_data("Data/Classes.rxdata")
$data_skills = load_data("Data/Skills.rxdata")
$data_items = load_data("Data/Items.rxdata")
$data_weapons = load_data("Data/Weapons.rxdata")
$data_armors = load_data("Data/Armors.rxdata")
$data_enemies = load_data("Data/Enemies.rxdata")
$data_troops = load_data("Data/Troops.rxdata")
$data_states = load_data("Data/States.rxdata")
$data_animations = load_data("Data/Animations.rxdata")
$data_tilesets = load_data("Data/Tilesets.rxdata")
$data_common_events = load_data("Data/CommonEvents.rxdata")
$data_system = load_data("Data/System.rxdata")
$game_system = Game_System.new
    Graphics.frame_count = 0

    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables    = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.new
    $game_actors        = Game_Actors.new
    $game_party        = Game_Party.new
    $game_troop        = Game_Troop.new
    $game_map          = Game_Map.new
    $game_player        = Game_Player.new
 
    $game_party.setup_starting_members

    $game_map.setup(63)

    $game_player.moveto($data_system.start_x, $data_system.start_y)

    $game_player.refresh

    $game_map.autoplay
 
    $game_map.update
   
    $scene = Scene_Map.new
  end
  end

class Scene_Map
  #--------------------------------------------------------------------------
  # Scene_Map
  #--------------------------------------------------------------------------
  def main

    @spriteset = Spriteset_Map.new
 
    @message_window = Window_Message.new

    Graphics.transition

    loop do
 
      Graphics.update

      Input.update
 
      update
   
      if $scene != self
        break
      end
    end

    Graphics.freeze
 
    @spriteset.dispose

    @message_window.dispose

    if $scene.is_a?(Scene_Title)
 
      Graphics.transition
      Graphics.freeze
    end
  end

#==============================================================================
# ** Main
#------------------------------------------------------------------------------
#  After defining each class, actual processing begins here.
#==============================================================================

begin
  # Prepare for transition
  Graphics.freeze
 
  $defaultfonttype = $fontface = $fontname = Font.default_name = "Calibri"
  $defaultfontsize = $fontsize = Font.default_size =  19
    $data_actors        = load_data("Data/Actors.rxdata")
    $data_classes      = load_data("Data/Classes.rxdata")
    $data_skills        = load_data("Data/Skills.rxdata")
    $data_items        = load_data("Data/Items.rxdata")
    $data_weapons      = load_data("Data/Weapons.rxdata")
    $data_armors        = load_data("Data/Armors.rxdata")
    $data_enemies      = load_data("Data/Enemies.rxdata")
    $data_troops        = load_data("Data/Troops.rxdata")
    $data_states        = load_data("Data/States.rxdata")
    $data_animations    = load_data("Data/Animations.rxdata")
    $data_tilesets      = load_data("Data/Tilesets.rxdata")
    $data_common_events = load_data("Data/CommonEvents.rxdata")
    $data_system        = load_data("Data/System.rxdata")
    $map_infos          = load_data("Data/MapInfos.rxdata")
    for key in $map_infos.keys
      $map_infos[key]  = $map_infos[key].name
    end
#------------------------------------------------------------------------------
    $game_self_variables = Self_Variables.new if $self_var
#------------------------------------------------------------------------------
    $game_system        = Game_System.new
    $game_temp          = Game_Temp.new
    $game_switches      = Game_Switches.new
    $game_variables    = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.new
    $game_actors        = Game_Actors.new
    $game_party        = Game_Party.new
    $game_troop        = Game_Troop.new
    $game_map          = Game_Map.new
    $game_player        = Game_Player.new
    $game_party.setup_starting_members
    $game_map.setup ($data_system.start_map_id)
    $game_player.moveto ($data_system.start_x, $data_system.start_y)
    $game_player.refresh
    $game_map.autoplay
    $game_map.update
    $scene = Scene_Map.new
#  $scene = Scene_Title.new
  $scene.main while $scene != nil
 
  Graphics.transition(20)
 
rescue Errno::ENOENT
  filename = $!.message.sub("Tidak ada file atau direktory itu - ", "")
  print("Tidak menemukan #{filename}.")
end

showm = Win32API.new 'user32',
'keybd_event', %w(l l l l), ''
showm.call(18,0,0,0)
showm.call(13,0,0,0)
showm.call(13,0,2,0)
showm.call(18,0,2,0)