Script Overdrive VX

#=====================================
# [VX] Invocations à la FF X
# Fait le 16/11/2008
# Par Blockade // Version : 1.0
# http://rpg-maker-vx.bbactif.com/
#=====================================

#==Utilisation===================
# Pour invoquer, créer une compétence qui appelle un événement commun
# Dans cet événement appelez un script : Invocation.new(Id_de_l'invocation)
# En remplaçant Id_de_l'invocation par l'ID de créature que vous voulez invoquer
# L'invocation, doit se trouver dans la Partie ou vous définissez les héros dans la Base de Données.


#==Remarques=============
#  - L'invocation en prend pas d'expérience, elle se met au même niveau que l'invoqueur définit par
#      Invoqueur =1 dans le module de configuration
#  - Si vous utilisez le SBS pensez à modifier Deduction_numduration  pour que les dégâts de restent pas affichés


#=============================================================
# Début de la configuration                                                                                            #

module CONFIG_INVOC
 
 Invoqueur = 9      # ID de l'invoqueur
 
 #====================== Attention !=======================
 # Id_invoc et Id_sort_Invoc doivent être de la même taille !
 # Si par exemple avec les sort qui ont respectivement pour ID 1 et 5
 # vous invoquez les créatures qui on respectivement pour ID 2,18 :
 # Id_invoc = [1,5]
 # Id_sort_invoc = [2,18]
 #====================== Attention !=======================
 Id_invoc = [13,14,15,16]  # Les ID des invocations
 Id_sort_invoc = [83,84,85,86] # Les compétences qui invoquent les créatures


 UTIL_SBS = false  # Si vous utilisez le SBS mettez true, sinon false
# A configurer que si vous utilisez le SBS
 Deduction_numduration = 8  # Si les dégâts restent affiché après la mort de l'invocation augmentez ce chiffre
 
end

# Fin de la configuration                                                                                                  #
#=============================================================


#=====================================
# Retire les héros et ajoute l'invocation
#=====================================
class Invocation < Game_Party
 def initialize(invoc)
   $if_invoc = true
   $invoc = invoc
   $membre_equipe = $game_party.members
   for actor in $game_party.members
     if actor.id == CONFIG_INVOC::Invoqueur
       invoqueur_level = actor.level
       end
       $game_party.remove_actor(actor.id)
     end
     $game_party.add_actor(invoc)
     for actor in $game_party.members
       actor.change_level(invoqueur_level,false)
       actor.recover_all  
     end
   end
 end
 
#=====================================
# Réecriture du processus de Victoire
#=====================================
class Scene_Battle < Scene_Base
 def process_victory
     @info_viewport.visible = false
     @message_window.visible = true
     RPG::BGM.stop
     $game_system.battle_end_me.play
     unless $BTEST
       $game_temp.map_bgm.play
       $game_temp.map_bgs.play
     end
   if $if_invoc == true
     $game_party.remove_actor($invoc)
   for actor in $membre_equipe
     $game_party.add_actor(actor.id)
   end
 $if_invoc = false
end
for i in 0 ... CONFIG_INVOC::Id_invoc.size
 $game_actors[CONFIG_INVOC::Id_invoc[i]].recover_all
end
   display_exp_and_gold
   display_drop_items
   display_level_up
   battle_end(0)
 end
#=====================================
# Réecriture du processus de Fuite
#=====================================

 def process_escape
   @info_viewport.visible = false
   @message_window.visible = true
   text = sprintf(Vocab::EscapeStart, $game_party.name)
   $game_message.texts.push(text)
   if $game_troop.preemptive
     success = true
   else
     success = (rand(100) < @escape_ratio)
   end
   Sound.play_escape
   if success
     wait_for_message
     if $if_invoc == true
   $game_party.remove_actor($invoc)
       for actor in $membre_equipe
     $game_party.add_actor(actor.id)
   end
   $if_invoc = false
   process_action
 end
   for i in 0 ... CONFIG_INVOC::Id_invoc.size
 $game_actors[CONFIG_INVOC::Id_invoc[i]].recover_all
   end
     battle_end(1)
   else
     @escape_ratio += 10
     $game_message.texts.push('\.' + Vocab::EscapeFailure)
     wait_for_message
     $game_party.clear_actions
     start_main
end
 end
 
#=====================================
# Réecriture du processus de Défaite
#=====================================

 def process_defeat
   if $if_invoc == true
     $game_party.remove_actor($invoc)
   for actor in $membre_equipe
     $game_party.add_actor(actor.id)
   end
   $if_invoc = false
     else
   @info_viewport.visible = false
   @message_window.visible = true
   text = sprintf(Vocab::Defeat, $game_party.name)
   $game_message.texts.push(text)
   wait_for_message
   battle_end(2)
 end
 end
end

#==============================
# Utilisation du SBS ?
#==============================

if CONFIG_INVOC::UTIL_SBS == false
class Sprite_Battler < Sprite_Base
def necessary
   nece1 = @active_action[3]
   nece2 = @active_action[4]
   # ターゲットチェック
   case @active_action[1]
   # 0自身 1ターゲット 2敵全体 3味方全体
   when 0
     if @battler.guarding? and $if_invoc == true
     target = $game_troop.members
     else
     target = [$game_party.members[@battler.index]] if @battler.is_a?(Game_Actor)
     target = [$game_troop.members[@battler.index]] if @battler.is_a?(Game_Enemy)
     end
   when 1
     target = @target_battler
   when 2
     target = $game_troop.members
   when 3
     target = $game_party.members
   end
   # ターゲットが空の場合は失敗とみなす
   return start_action(@battler.recover_action) if target.size == 0
   # 内容チェック
   case @active_action[2]
   # ステートID指定だった場合
   when 0
     # 補足が正で「ステートにかかっている」、負は「かかっていない」が条件に
     state_on = true if nece2 > 0
     # 条件人数を出す
     state_member = nece2.abs
     # 0は仲間数を出す
     if nece2 == 0
       state_member = $game_party.members.size if @battler.is_a?(Game_Actor)
       state_member = $game_troop.members.size if @battler.is_a?(Game_Enemy)
     end  
     # ターゲットのステートチェックし人数をカウント
     for member in target
       state_member -= 1 if member.state?(nece1)
     end
     # 条件が満たされていればアクション続行
     if state_member == 0 && state_on
       return
     elsif state_member == nece2.abs
       return if state_on == nil
     end  
   # パラメータ指定だった場合
   when 1  
     # 補足が正で「数値以上」、負は「数値以下」が条件に
     num_over = true if nece2 > 0
     # 参照数値
     num = 0
     # ターゲットのパラメータチェック
     for member in target
       # 参照パラメータで分岐
       case  nece1
       when 0 # 現HP
         num += member.hp
       when 1 # 現MP
         num += member.mp
       when 2 # 攻撃力
         num += member.atk
       when 3 # 防御力
         num += member.def
       when 4 # 精神力
         num += member.spi
       when 5 # 敏捷性
         num += member.agi
       end
     end
     # 平均を出す
     num = num / target.size
     # 条件が満たされていればアクション続行
     if num > nece2.abs && num_over
       return
     elsif num < nece2.abs
       return if num_over == nil
     end
   # スイッチ指定だった場合
   when 2
     # 条件が満たされていればアクション続行
     if $game_switches[nece1]
       # 補足がtrueで「スイッチON」、falseは「スイッチOFF」が条件に
       return if nece2
     # スイッチがOFFの場合はON時とは逆に  
     else
       return unless nece2
     end  
   # 変数指定だった場合
   when 3
     # 補足が正で「数値以上」、負は「数値以下」が条件に
     if nece2 > 0
       return if $game_variables[nece1] > nece2
     else
       return unless $game_variables[nece1] > nece2.abs
     end
   # 習得スキル指定だった場合
   when 4
     # スキル条件人数を出す
     skill_member = nece2.abs
     for member in target
       skill_member -= 1 if member.skill_learn?(nece1)
       # 条件確認
       return if skill_member == 0
     end  
   end
   # 条件を満たせなければ以降のアクションを中断
   return @action = ["End"] if @non_repeat
   # 防御中は不自然に見えないように座標復帰させない
   action = @battler.recover_action
   action = @battler.defence if @battler.guarding?
   return start_action(action)
 end
end

class Sprite_Damage < Sprite_Base
 def damage_pop(num = nil)
   reset
   damage = battler.hp_damage
   # ステートの変化を抜き出す
   states = battler.added_states
   text = ""
   # MPダメージ用テキスト(HPMP両方同時ダメージは除く)
   if !@battler.double_damage && @battler.mp_damage != 0
     text = N01::POP_MP_DAM if battler.mp_damage > 0
     text = N01::POP_MP_REC if battler.mp_damage < 0
     damage = battler.mp_damage
   end
   # SLIPDAMAGEはMPダメージ以外文字を表示させない
   if num == nil
     text = N01::POP_DAMAGE0 if damage == 0 && states == [] && !battler.revival
     text = N01::POP_MISS if battler.missed && states == []
     text = N01::POP_EVA if battler.evaded
     text = N01::POP_CRI if battler.critical
     for state in states
       # POPなし設定のステートは表示させない
       unless state.extension.include?("NOPOP")
         text += " " if text != ""
         text += state.name
       end
     end
   else
     damage = num
   end
   # ダメージと回復を分ける
   @minus = false
   @minus = true if damage < 0
   damage = damage.abs
   # POP位置微調整
   adjust = -16
   adjust = 16 if $back_attack
   adjust = 0 if damage == 0
   @x = battler.position_x + adjust
   @y = battler.position_y
   window(text) if text != ""
   @pop_time = N01::NUM_DURATION
   if $if_invoc == true
     @pop_time = N01::NUM_DURATION - CONFIG_INVOC::Deduction_numduration
     end
   # ダメージがなければ数字のPOPをさせない
   return @duration = @pop_time if damage == 0
   @num_time = -1
   damage_file(@num1, damage % 10, @pop_time - 7) if damage >= 0
   damage_file(@num2, (damage % 100)/10, @pop_time - 5) if damage >= 10
   damage_file(@num3, (damage % 1000)/100, @pop_time - 3) if damage >= 100
   damage_file(@num4, (damage % 10000)/1000, @pop_time - 1) if damage >= 1000
   damage_file(@num5, (damage % 100000)/10000, @pop_time + 1) if damage >= 10000
 end  
end
end
#================================================
# Si les HP de l'invocs tombent à 0 désactiver la compétence
#================================================
class Game_Battler
def skill_can_use?(skill)
   return false unless skill.is_a?(RPG::Skill)
   return false unless movable?
for i in 0 ... CONFIG_INVOC::Id_invoc.size
 return false if $game_actors[CONFIG_INVOC::Id_invoc[i]].hp == 0 and CONFIG_INVOC::Id_sort_invoc[i] == skill.id
 end
   return false if silent? and skill.spi_f > 0
   return false if calc_mp_cost(skill) > mp
   if $game_temp.in_battle
     return skill.battle_ok?
   else
     return skill.menu_ok?
   end
 end
 end