Ruby Quellcode

class CommandError < Exception
end
 
module InterpreterConsts
  #----------------------------------
  # Conditional Branch constants    |
  #----------------------------------
  CB_SWITCH      = 0
  CB_VARIABLE    = 1
  CB_SELF_SWITCH = 2
  CB_TIMER       = 3
  CB_ACOTR       = 4
  CB_ENEMY       = 5
  CB_CHARACTER   = 6
  CB_GOLD        = 7
  CB_ITEM        = 8
  CB_WEAPON      = 9
  CB_ARMOR       = 10
  CB_BUTTON      = 11
  CB_SCRIPT      = 12
 
  CB_VAR_MODE_EQUAL         = 0
  CB_VAR_MODE_GREATER_EQUAL = 1
  CB_VAR_MODE_LESS_EQUAL    = 2
  CB_VAR_MODE_GRATER        = 3
  CB_VAR_MODE_LESS          = 4
  CB_VAR_MODE_IS_NOT        = 5
 
  CB_SWITCH_TRUE  = 0
  CB_SWITCH_FALSE = 1
 
  CB_TIMER_MORE = 0
  CB_TIMER_LESS = 1
 
  CB_ACTOR_IN_PARTY = 0
  CB_ACTOR_NAME     = 1
  CB_ACTOR_SKILL    = 2
  CB_ACTOR_WEAPON   = 3
  CB_ACTOR_ARMOR    = 4
  CB_ACTOR_STATE    = 5
 
  CB_ENEMY_APPEAR = 0
  CB_ENEMY_STATE  = 1
  #----------------------------------
  # Control Variables constants     |
  #----------------------------------
  CV_INVARIABLE    = 0
  CV_VARIABLE      = 1
  CV_RANDOM_NUMBER = 2
  CV_ITEM          = 3
  CV_ACTOR         = 4
  CV_ENEMY         = 5
  CV_CHARACTER     = 6
  CV_OTHER         = 7
 
  CV_ACTOR_LEVEL            = 0
  CV_ACTOR_EXP              = 1
  CV_ACTOR_HP               = 2
  CV_ACTOR_SP               = 3
  CV_ACTOR_MAXHP            = 4
  CV_ACTOR_MAXSP            = 5
  CV_ACTOR_STRENGTH         = 6
  CV_ACTOR_DEXTERITY        = 7
  CV_ACTOR_AGILITY          = 8
  CV_ACTOR_INTELLIGENCE     = 9
  CV_ACTOR_ATTACK_POWER     = 10
  CV_ACTOR_PHYSICAL_DEFENSE = 11
  CV_ACOTR_MAGIC_DEFENSE    = 12
  CV_ACOTR_EVASION          = 13
 
  CV_ENEMY_HP                 = 0
  CV_ENEMY_SP                 = 1
  CV_ENEMY_MAXHP              = 2
  CV_ENEMY_MAXSP              = 3
  CV_ENEMY_STRENGTH           = 4
  CV_ENEMY_DEXTERITY          = 5
  CV_ENEMY_AGILITY            = 6
  CV_ENEMY_INTELLIGENCE       = 7
  CV_ENEMY_ATTACK_POWER       = 8
  CV_ENEMY_PHYSICAL_DEFENSE   = 9
  CV_ENEMY_MAGIC_DEFENSE      = 10
  CV_ENEMY_EVASION_CORRECTION = 11
 
  CV_CHARACTER_X_COORDINATE        = 0
  CV_CHARACTER_Y_COORDINATE        = 1
  CV_CHARACTER_DIRECTION           = 2
  CV_CHARACTER_SCREEN_X_COORDINATE = 3
  CV_CHARACTER_SCREEN_Y_COORDINATE = 4
  CV_CHARACTER_TERRAIN_TAG         = 5
 
  CV_OTHER_MAP_ID = 0
  CV_OTHER_NUMBER_OF_PARTY_MEMBERS = 1
  CV_OTHER_GOLD = 2
  CV_OTHER_STEPS = 3
  CV_OTHER_PlAY_TIME = 4
  CV_OTHER_TIMER = 5
  CV_OTHER_SAVE_COUNT = 6
 
  CV_SUBSTITUTE = 0
  CV_ADD        = 1
  CV_UBTRACT   = 2
  CV_MULTIPLY   = 3
  CV_DIVIDE     = 4
  CV_REMAINDER  = 5
  #----------------------------------
  # Move Picture constants          |
  #----------------------------------
  P_DISPLAY_POS_UPPERLEFT = 0
  P_DISPLAY_POS_CENTER    = 1
  P_MODE_CONSTANT = 0
  P_MODE_VARIABLE = 1
  #----------------------------------
  # Change Equipment constants      |
  #----------------------------------
  CE_MODE_WEAPON     = 0
  CE_MODE_SHIELD     = 1
  CE_MODE_HELMET     = 2
  CE_MODE_BODY_ARMOR = 3
  CE_MODE_ACCESSORY  = 4
  #----------------------------------
  # Show Battle Animations constants|
  #----------------------------------
  SBA_ENEMY = 0
  SBA_ACTOR = 1
  #----------------------------------
  # Force Action constants          |
  #----------------------------------
  FA_BATTLER_ENEMY = 0
  FA_BATTLER_ACTOR = 1
  FA_BATTLER_BASIC = 0
  FA_BATTLER_SKILL = 1
  FA_TIMING_NORMAL = 0
  FA_TIMING_NOW    = 1
  #----------------------------------
  # Move constants                  |
  #----------------------------------
  REPEAT = 1
  SKIPPABLE = 2
 
  MOVE_DOWN             = 1
  MOVE_LEFT             = 2
  MOVE_RIGHT            = 3
  MOVE_UP               = 4
  MOVE_LOWER_LEFT       = 5
  MOVE_LOWER_RIGHT      = 6
  MOVE_UPPER_LEFT       = 7
  MOVE_UPPER_RIGHT      = 8
  MOVE_RANDOM           = 9
  MOVE_TOWORD_PLAYER    = 10
  MOVE_AWAY_FROM_PLAYER = 11
  MOVE_FORWARD          = 12
  MOVE_BACKWARD         = 13
  JUMP                  = 14 # (int x, int y)
  WAITING               = 15 # (int frames)
  TURN_DOWN             = 16
  TURN_LEFT             = 17
  TURN_RIGHT            = 18
  TURN_UP               = 19
  TURN_RIGHT_90         = 20
  TURN_LEFT_90          = 21
  TURN_180              = 22
  TURN_RIGHT_OR_LEFT_90 = 23
  TURN_RANDOM           = 24
  TURN_TOWARD_PLAYER    = 25
  TURN_AWAY_FROM_PLAYER = 26
  SWITCH_ON             = 27 # (int id)
  SWITCH_OFF            = 28 # (int id)
  CHANGE_SPEED          = 29 # (int speed)
  CHANGED_FREQ          = 30 # (int freq)
  MOVE_ANIMATION_ON     = 31
  MOVE_ANIMATION_OFF    = 32
  STOP_ANIMATION_ON     = 33
  STOP_ANIMATION_OFF    = 34
  DIRECTION_FIX_ON      = 35
  DIRECTION_FIX_OFF     = 36
  TROUGH_ON             = 37
  TROUGH_OFF            = 38
  ALWAYS_ON_TOP_ON      = 39
  ALWAYS_ON_TOP_OFF     = 0
  CHANGE_GRAPHIC        = 4 # (string character_name, int character_hue
                            #  int direction, int pattern)
  CHANGE_OPACITY        = 42 # (int opacity)
  CHANGE_BLENDING       = 43 # (int blending)
  PLAY_SE               = 44 # (string se)
  SCRIPT                = 45 # (string script)
 
  MPS = Struct.new(:code, :parameters)
  class << MPS
    alias_method(:old_new, :new)
    def new(code, *parameters)
      old_new(code, parameters)
    end
    alias_method(:n, :new)
  end
end
 
class Interpreter
  include InterpreterConsts
 
  alias_method(:old_initiailze_280511, :initialize)
  def initialize(*args)
    old_initiailze_280511(*args)
    @command_active = false
    @conditional_branch_count = 0
  end
 
  alias_method(:old_setup_280511, :setup)
  def setup(*args)
    old_setup_280511(*args)
    @list.size.times {|i|
      @parse_index = i
      v = @list[i]
      next if v.nil?
      if v.code != 355 && v.code != 655
        @list[i].indent += @conditional_branch_count
        next
      end
      if v.parameters[0] == "\"command\""
        @command_active = true
        @list.delete_at(i)
        arr   = bind_scripts(i, "\"command_end\"")
        str   = arr[0]
        count = arr[1]
        count.times {@list.delete_at(i)}
        @list.delete_if() {|i| i.parameters[0] == "\"command_end\""}
        eval(str)
      end
      @command_active = false
    }
    @list.push(RPG::EventCommand.new())
  end
 
  def bind_scripts(index, end_symbol=nil)
    str = ""
    count = 0
    index.upto(@list.size()) {|i|
      v = @list[i]
      next if v.nil?
      next if v.code != 355 && v.code != 655
      if end_symbol != nil
        break if v.parameters[0] == end_symbol
      end
      str += v.parameters[0] + "\n"
      count += 1
    }
    return str, count
  end
 
  def generate_move_route(flags, *args)
    raise ArgumentError if args.size.zero?
    mr = RPG::MoveRoute.new()
    mr.repeat = (flags & REPEAT) == REPEAT
    mr.skippable = (flags & SKIPPABLE) == SKIPPABLE
    mr.list.clear()
    args.each {|i| mr.list.push(RPG::MoveCommand.new(*(i.kind_of?(MPS) ? [i.code, i.parameters] : [i])))}
    mr.list.push(RPG::MoveCommand.new())
    return mr
  end
 
  def insert_in_list(id, indent, para=[])
    raise CommandError if !@command_active
    ec = RPG::EventCommand.new(id, indent, para)
    @list.insert(@parse_index, ec)
    @parse_index += 1
  end
 
  def show_message(str, indent=0)
    insert_in_list(101, indent, [str])
  end
 
  def show_message2(str, indent=0)
    insert_in_list(401, indent, [str])
  end
 
  def show_choices(mode, text, indent=0)
    insert_in_list(102, indent, [text, mode])
  end
 
  def show_choices_deep(num, para, indent=0)
    insert_in_list(402, indent, [num, para])
  end
 
  def show_choices_cancle(indent=0)
    insert_in_list(403, indent)
  end
 
  def input_number(var_id, lenght, indent=0)
    insert_in_list(103, indent, [var_id, lenght])
  end
 
  def change_text_options(pos, win, indent=0)
    insert_in_list(104, indent, [pos, win])
  end
 
  def button_input_processing(var_id, indent=0)
    insert_in_list(105, indent, [var_id])
  end
 
  def wait(frames, indent=0)
    insert_in_list(106, indent, [frames])
  end  
 
  def conditional_branch(mode, switch_var_id, para2=0, para3=0, para4=0, var_mode=0, indent=0)
    @conditional_branch_count += 1
    insert_in_list(111, indent, [mode, switch_var_id, para2, para3, var_mode])
  end
 
  def conditional_branch_else(indent=0)
    insert_in_list(411, indent)
  end
 
  def conditional_branch_else(indent=0)
    insert_in_list(412, indent)
  end
 
  def conditional_branch_end(indent=0)
    insert_in_list(99999, indent)
  end
 
  def exit_event_processing(indent=0)
    insert_in_list(115, indent)
  end
 
  def rease_event(indent=0)
    insert_in_list(116, indent)
  end
 
  def call_common_event(common_id, indent=0)
    insert_in_list(117, indent, [common_id])
  end
 
  def label(label_name, indent=0)
    insert_in_list(118, indent, [label_name])
  end
 
  def jump_to_label(label_name, indent=0)
    insert_in_list(119, indent, [label_name])
  end
 
  def control_switches(start_switch_id, end_switch_id, switch_id2, indent=0)
    insert_in_list(121, indent, [start_switch_id, end_switch_id, switch_id2])
  end
 
  def control_variables(start_var_id, end_var_id, para, indent=0)
    insert_in_list(122, indent, [start_var_id, end_var_id, *para])
  end
 
  def contorl_self_switch(self_switch, bool, indent=0)
    insert_in_list(123, indent, [self_switch, bool])
  end
 
  def control_timer(time, start_stop, indent=0)
    insert_in_list(124, indent, [time, start_stop])
  end
 
  def change_gold(in_dec, para1, para2=0, indent=0)
    insert_in_list(125, indent, [in_dec, para2, para1])
  end
 
  def change_items(in_dec, para1, para2=0, indent=0)
    insert_in_list(126, indent, [para2, para1])
  end
 
  def change_weapongs(in_dec, para1, para2=0, indent=0)
    insert_in_list(127, indent, [para2, para1])
  end
 
  def change_armor(in_dec, para1, para2=0, indent=0)
    insert_in_list(128, indent, [para2, para1])
  end
 
  def change_party_member(actor_id, in_dec, int=true, indent=0)
    insert_in_list(129, indent, [actor_id, in_dec, int]) 
  end
 
  def change_windowskin(winskin_name, indent=0)
    insert_in_list(131, indent, [winskin_name])
  end
 
  def change_battle_bgm(bgm_name, indent=0)
    insert_in_list(132, indent, [bgm_name])
  end
 
  def change_battle_end_me(me_name, indent=0)
    insert_in_list(133, indent, [me_name])
  end
 
  def change_save_access(bool, indent=0)
    insert_in_list(134, indent, [bool])
  end
 
  def change_menu_access(bool, indent=0)
    insert_in_list(135, indent, [bool])
  end
 
  def change_encounter(bool, indent=0)
    insert_in_list(136, indent, [bool])
  end
 
  def transfer_player(mode, paras, dir=0, fade=0, indent=0)
    insert_in_list(201, indent, [mode, dir, fade].insert(1, *paras))
  end
 
  def set_event_location(character_id, mode, paras, dir=0, indent=0)
    insert_in_list(202, indent, [character_id, mode, dir].insert(2, *paras))
  end
 
  def scroll_map(dir, dis, speed, indent=0)
    insert_in_list(203, indent, [dir, dis, speed])
  end
 
  def change_map_settings(mode, paras, indent=0)
    insert_in_list(204, indent, [mode].insert(1, *paras))
  end
 
  def change_fog_color_tone(red, green, blue, gray, frames, indent=0)
    insert_in_list(205, indent, [[red, green, blue, gray], frames])
  end
 
  def change_fog_opacity(opacity, frames, indent=0)
    insert_in_list(206, indent, [opacity, frames])
  end
 
  def show_animation(character_id, animation_id, indent=0)
    insert_in_list(207, indent, [character_id, animation_id])
  end
 
  def change_transparent_flag(bool, indent=0)
    insert_in_list(208, indent, [bool])
  end
 
  def set_move_route(character_id, flags, args, indent=0)
    mr = generate_move_route(flags, *args)
    insert_in_list(209, indent, [character_id, mr])
  end
 
  def wait_for_moves_completion(indent=0)
    insert_in_list(210, indent)
  end
 
  def prepare_for_transition(indent=0)
    insert_in_list(221, indent)
  end
 
  def execute_transition(trans_graphic_name, indent=0)
    insert_in_list(222, indent, [trans_graphic_name])
  end
 
  def change_screen_color_tone(red, green, blue, gray, frames, indent=0)
    insert_in_list(223, indent, [[red, green, blue, gray], frames])
  end
 
  def screen_flash(red, green, blue, gray, frames, indent=0)
    insert_in_list(224, indent, [[red, green, blue, gray], frames])  
  end
 
  def screen_shake(power, speed, frames, indent=0)
    insert_in_list(225, indent, [power, speed, frames])
  end
 
  def show_picture(number, graphic_name, display_pos, mode, para1, para2, 
                      zoom_x, zoom_y, opacity, blending=1, indent=0)
    insert_in_list(231, indent, [number, graphic_name, display_pos, mode,
                                 para1, para2, zoom_x, zoom_y, opacity, blending])
  end
 
  def move_picture(number, frames, display_pos, mode, para1, para2,
                      zoom_x, zoom_y, opacity, blending=1, indent=0)
    insert_in_list(232, indent, [number, frames, display_pos, mode, para1, para2,
                                 zoom_x, zoom_y, opacity, blending])
  end
 
  def rotate_picture(number, speed, indent=0)
    insert_in_list(233, indent, [number, speed])
  end
 
  def change_picture_color_tone(number, red, green, blue, gray, frames, indent=0)
    insert_in_list(234, indent, [number, [red, green, blue, gray], frames])
  end
 
  def erase_picture(number, indent=0)
    insert_in_list(235, indent, [number])
  end
 
  def set_weather_effects(weather, power, frames, indent=0)
    insert_in_list(236, indent, [weather, power, frames])
  end
 
  def play_bgm(bgm_name, indent=0)
    insert_in_list(241, indent, [bgm_name])
  end
 
  def fade_out_bgm(frames, indent=0)
    insert_in_list(242, indent, [frames])
  end
 
  def play_bgs(bgs_name, indent=0)
    insert_in_list(245, indent, [bgs_name])
  end
 
  def fade_out_bgs(frames, indent=0)
    insert_in_list(246, indent, [frames])
  end
 
  def memorize_bgm_bgs(indent=0)
    insert_in_list(247, indent)
  end
 
  def restore_bgm_bgs(indent=0)
    insert_in_list(248, indent)
  end
 
  def play_me(me_name, indent=0)
    insert_in_list(249, indent, [me_name])
  end
 
  def play_se(se_name, indent=0)
    insert_in_list(250, indent, [se_name])
  end
 
  def stop_se(indent=0)
    insert_in_list(251, indent)
  end
 
  def battle_processing(troop_id, can_escape, can_lose, indent=0)
    insert_in_list(301, indent, [troop_id, can_escape, can_lose])
  end
 
  def battle_win(indent=0)
    insert_in_list(601, indent)
  end
 
  def battle_escape(indent=0)
    insert_in_list(602, indent)
  end
 
 
  def battle_lose(indent=0)
    insert_in_list(603, indent)
  end
 
  def shop_processing(mode, id, indent=0)
    insert_in_list(302, indent, [mode, id])
  end
 
  def shop_add_item(mode, id, indent=0)
    insert_in_list(605, indent, [mode, id])
  end
 
  def name_input_processing(actor_id, max_chars, indent=0)
    insert_in_list(303, indent, [actor_id, max_chars])
  end
 
  def change_hp(actor_id, in_dec, mode, para, allow_knockout_in_battle=true, indent=0)
    insert_in_list(311, indent, [actor_id, in_dec, mode, para,
                                 allow_knockout_in_battle])
  end
 
  def change_sp(actor_id, in_dec, mode, para, indent=0)
    inset_in_list(312, indent, [actor_id, in_dec, mode, para])
  end
 
  def change_state(actor_id, in_dec, state_id, indent=0)
    insert_in_list(313, indent, [actor_id, in_dec, state_id])
  end
 
  def recover_all(actor_id, indent=0)
    insert_in_list(314, indent, [actor_id])
  end
 
  def change_exp(actor_id, in_dec, mode, para, indent=0)
    insert_in_list(315, indent, [actor_id, in_dec, mode, para])
  end
 
  def change_level(actor_id, in_dec, mode, para, indent=0)
    insert_in_list(316, indent, [actor_id, in_dec, mode, para])
  end
 
  def change_parameters(actor_id, parameter, in_dec, mode, para, indent=0)
    insert_in_list(317, indent, [actor_id, parameter, in_dec, mode, para])
  end
 
  def change_skills(actor_id, learn_forgot, skill_id, indent=0)
    insert_in_list(318, indent, [actor_id, leanr_forgot, skill_id])
  end
 
  def change_equipment(actor_id, mode, para, indent=0)
    insert_in_list(319, indent, [actor_id, mode, para])
  end
 
 
  def change_actor_name(actor_id, actor_name, indent=0)
    insert_in_list(320, indent, [actor_id, actor_name])    
  end
 
  def change_actor_class(actor_id, class_id, indent=0)
    insert_in_list(321, indent, [actor_id, class_id])
  end
 
  def change_actor_graphic(actor_id, character_graphic, battler_graphic, 
                           character_hue=0, battler_hue=0, indent=0)
    insert_in_list(322, indent, [actor_id, character_graphic, character_hue,
                                 battler_graphic, battler_hue])
  end
 
  def change_enemy_hp(enemy_id, in_dec, mode, para, allow_knockout_in_battle=true, 
                      indent=0)
    insert_in_list(331, indent, [enemy_id, in_dec, mode, para, 
                                 allow_knockout_in_battle])
  end
 
  def change_enemy_sp(enemy_id, in_dec, mode, para, indent=0)
    insert_in_list(332, indent, [enemy_id, in_dec, mode, para])
  end
 
  def change_enemy_state(enemy_id, in_dec, state_id, indent=0)
    insert_in_list(333, indent, [enemy_id, in_dec, state_id])
  end
 
  def enemy_recover_all(enemy_id, indent=0)
    insert_in_list(334, indent, [enemy_id])
  end
 
  def enemy_appearance(enemy_id, indent=0)
    insert_in_list(335, indent, [enemy_id])
  end
 
  def enemy_transform(enemy_id, new_enemy_id, indent=0)
    insert_in_list(336, indent, [enemy_id, new_enemy_id])
  end
 
  def show_battle_animation(traget, para, animation_id, indent=0)
    insert_in_list(337, indent, [traget, para, animation_id])    
  end
 
  def deal_damage(traget, para, operand, para2, indent=0)
    insert_in_list(338, indent, [traget, para, operand, para2])
  end
 
  def force_action(battler, para, action, para2, action_id, timing, indent=0)
    insert_in_list(339, indent, [battler, para, action, para2, action_id, timing])
  end
 
  def abort_battle(indent=0)
    insert_in_list(340, indent)
  end
 
  def call_menu_screen(indent=0)
    insert_in_list(351, indent)
  end
 
  def call_save_screen(indent=0)
    insert_in_list(352, indent)
  end
 
  def game_over(indent=0)
    insert_in_list(353, indent)
  end
 
  def return_to_title_screen(indent=0)
    insert_in_list(354, indent)
  end
 
  def empty_event(indent=0)
    insert_in_list(0, indent)
  end
 
  def command_355()
    script = @list[@index].parameters[0] + "\n"
    loop do
      if @list[@index+1].code == 355 || @list[@index+1].code == 655
        script += @list[@index+1].parameters[0] + "\n"
      else
        break
      end
      @index += 1
    end
    eval(script)
    return true
  end
 
  def command_99999()
    @conditional_branch_count -= 1
    return true
  end
 
  alias_method(:old_execute_command_290511, :execute_command)
  def execute_command()
    if @index >= @list.size - 1
      command_end
      return true
    end
    @parameters = @list[@index].parameters
    case @list[@index].code
    when 99999 then return command_99999()
    end
    old_execute_command_290511()
  end
end