[RPG-MAKER.FR] Oniromancie: tout l'univers de RPG Maker en français

#============================================================================== # ** Scene_File #============================================================================== class Scene_File #-------------------------------------------------------------------------- # * Alias List #-------------------------------------------------------------------------- alias gbp_dsls_sf_wsd write_save_data alias gbp_dsls_sf_rsd read_save_data #-------------------------------------------------------------------------- # * Write Save Data # file : write file object (opened) #-------------------------------------------------------------------------- def write_save_data(file) gbp_dsls_sf_wsd(file) skill_data = {} for i in 0...$data_skills.size next if $data_skills[i].nil? skill_data[i] = [$data_skills[i].exp, $data_skills[i].level] end Marshal.dump(skill_data, file) end #-------------------------------------------------------------------------- # * Read Save Data # file : file object for reading (opened) #-------------------------------------------------------------------------- def read_save_data(file) gbp_dsls_sf_rsd(file) skill_data = Marshal.load(file) for i in 0...$data_skills.size next if $data_skills[i].nil? if skill_data[i] $data_skills[i].exp = skill_data[i][0] $data_skills[i].level = skill_data[i][1] end end end end #class

def draw_actor_tp(actor, x, y, width = 124) gwidth = width * actor.tp / 100 cg = neo_gauge_back_color c1, c2, c3 = cg[0], cg[1], cg[2] draw_neo_gauge(x + HPMP_GAUGE_X_PLUS, y + line_height - 8 + HPMP_GAUGE_Y_PLUS, width, HPMP_GAUGE_HEIGHT, c1, c2, c3) if actor.tp == actor.max_tp c1, c2, c3 = Color.new(255, 255, 0), Color.new(255, 192, 0), Color.new(255, 128, 0) else (1..3).each {|i| eval("c#{i} = TP_GCOLOR_#{i}")} end draw_neo_gauge(x + HPMP_GAUGE_X_PLUS, y + line_height - 8 + HPMP_GAUGE_Y_PLUS, gwidth, HPMP_GAUGE_HEIGHT, c1, c2, c3, false, false, width, 40) change_color(system_color) draw_text(x, y, 30, line_height, Vocab::tp_a) change_color(tp_color(actor)) end

class Window_Base < Window def draw_actor_tp(actor, x, y, width = 124) c1 = actor.tp==actor.max_tp ? Color.new(255, 128, 0) : tp_gauge_color1 c2 = actor.tp==actor.max_tp ? Color.new(255, 0, 0) : tp_gauge_color2 draw_gauge(x, y, width, actor.tp_rate, c1, c2) change_color(system_color) draw_text(x, y, 30, line_height, Vocab::tp_a) change_color(tp_color(actor)) draw_text(x + width - 42, y, 42, line_height, actor.tp.to_i, 2) end end

class Game_Actor < Game_Battler def max_level 999 end def param_base(param_id) @level < 100 ? self.class.params[param_id, @level] : self.class.params[param_id, 99]+ (self.class.params[param_id, 99]-self.class.params[param_id, 98])*(@level-99) end end

class Scene_Title 
 
  def main 
    if $BTEST 
      battle_test 
      return 
    end 
    $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_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($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
  end
 
  def battle_test 
    $data_actors        = load_data("Data/BT_Actors.rxdata") 
    $data_classes       = load_data("Data/BT_Classes.rxdata") 
    $data_skills        = load_data("Data/BT_Skills.rxdata") 
    $data_items         = load_data("Data/BT_Items.rxdata") 
    $data_weapons       = load_data("Data/BT_Weapons.rxdata") 
    $data_armors        = load_data("Data/BT_Armors.rxdata") 
    $data_enemies       = load_data("Data/BT_Enemies.rxdata") 
    $data_troops        = load_data("Data/BT_Troops.rxdata") 
    $data_states        = load_data("Data/BT_States.rxdata") 
    $data_animations    = load_data("Data/BT_Animations.rxdata") 
    $data_tilesets      = load_data("Data/BT_Tilesets.rxdata") 
    $data_common_events = load_data("Data/BT_CommonEvents.rxdata") 
    $data_system        = load_data("Data/BT_System.rxdata") 
    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_battle_test_members 
    $game_temp.battle_troop_id = $data_system.test_troop_id 
    $game_temp.battle_can_escape = true 
    $game_map.battleback_name = $data_system.battleback_name 
    $game_system.se_play($data_system.battle_start_se) 
    $game_system.bgm_play($game_system.battle_bgm) 
    $scene = Scene_Battle.new 
  end
end

for i in 1..25 @picture_sprites.push(Sprite_Picture.new(@viewport1, $game_screen.pictures[i])) end for i in 26..50 @picture_sprites.push(Sprite_Picture.new(@viewport2, $game_screen.pictures[i])) end

def process_ok if current_item_enabled? if index == 0 Audio.se_play("Audio/SE/NomDuSon", 100, 100) else Sound.play_ok end Input.update deactivate call_ok_handler else Sound.play_buzzer end end

class Scene_Battle < Scene_Base alias scene_battle_update_basic_abe update_basic def update_basic scene_battle_update_basic_abe update_debug end def update_debug return unless $TEST || $BTEST debug_heal_party if Input.trigger?(:F5) debug_damage_party if Input.trigger?(:F6) debug_fill_tp if Input.trigger?(:F7) debug_kill_all if Input.trigger?(:F8) end def debug_heal_party Sound.play_recovery for member in $game_party.battle_members member.recover_all end @status_window.refresh end def debug_damage_party Sound.play_actor_damage for member in $game_party.alive_members member.hp = 1 member.mp = 0 member.tp = 0 end @status_window.refresh end def debug_fill_tp Sound.play_recovery for member in $game_party.alive_members member.tp = member.max_tp end @status_window.refresh end def debug_kill_all for enemy in $game_troop.alive_members enemy.hp = 0 enemy.perform_collapse_effect end BattleManager.judge_win_loss @log_window.wait @log_window.wait_for_effect end end

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81

module YEA module REGEXP module USABLEITEM ONE_ANIMATION = /<(?:ONE_ANIMATION|one animation)>/i end end end module DataManager class <<self; alias load_database_abe load_database; end def self.load_database load_database_abe load_notetags_abe end def self.load_notetags_abe groups = [$data_skills, $data_items] for group in groups for obj in group next if obj.nil? obj.load_notetags_abe end end end end class RPG::UsableItem < RPG::BaseItem attr_accessor :one_animation def load_notetags_abe @one_animation = false self.note.split(/[\r\n]+/).each { |line| case line when YEA::REGEXP::USABLEITEM::ONE_ANIMATION @one_animation = true end } end end class Scene_Battle < Scene_Base def use_item item = @subject.current_action.item @log_window.display_use_item(@subject, item) @subject.use_item(item) refresh_status targets = @subject.current_action.make_targets.compact show_animation(targets, item.animation_id) if show_all_animation?(item) targets.each {|target| item.repeats.times { invoke_item(target, item) } } end alias scene_battle_invoke_item_abe invoke_item def invoke_item(target, item) show_animation([target], item.animation_id) if separate_ani?(target, item) if target.dead? != item.for_dead_friend? @subject.last_target_index = target.index return end scene_battle_invoke_item_abe(target, item) end def show_all_animation?(item) return true if item.one_animation return false if $data_animations[item.animation_id].nil? return false unless $data_animations[item.animation_id].to_screen? return true end def separate_ani?(target, item) return false if item.one_animation return false if $data_animations[item.animation_id].nil? return false if $data_animations[item.animation_id].to_screen? return target.dead? == item.for_dead_friend? end end

COMMANDS =[ :item, # Opens up the various item categories. Default. :weapon, # Opens up the various weapon categories. Default. :armor, # Opens up the various armour categories. Default. :key_item, # Shows a list of the various key items. Default. :gogototori, # Requires Kread-EX's Go Go Totori Synthesis. :custom1, # Custom command 1. # :custom2, # Custom command 2. ] # Do not remove this.

CUSTOM_ITEM_COMMANDS ={ # :command => ["Display Name", EnableSwitch, ShowSwitch, Handler Method], :gogototori => ["Synthesis", 0, 0, :command_totori], :custom1 => [ "Bestiary", 0, 0, :command_name1], :custom2 => [ "Custom Text", 13, 0, :command_name2], } # Do not remove this.