BS/Battlers Addon Mog luck system

[Ally 205]

Titolo: Mog luck system

Versione: N/D

Autore/i: Moghunter, Loste

 

Informazioni:

Script che associa la 'fortuna' al vostro PG nel:

- Recuperare HP a fine battaglia

- Causare danni critici

- Vincere Oggetti

 

Istruzioni:

Inserire lo script sopra Main

 

Script:

#_________________________________________________
# MOG_Luck System V1.2           
#_________________________________________________
# By Moghunter     
# http://www.atelier-rgss.com
#
#Traduzione in italiano by Loste -http://rpgmkr.net
#_________________________________________________
#Aggiunge l'attributo "fortuna", che interagisce con la
#possibilità di vincere oggetti o causare danni critici.
#_________________________________________________
module MOG
# Limite massimo di fortuna.
# I Valori magiori di 100% saranno limitati a questo valore.
# MAX_LUCK = {A=>B}
#
# A = ID del personaggio
# B = valore massimo di fortuna per ogni personaggio.
#
# Se non definito il valore massimo sarà pari a 100%.
MAX_LUCK = {
     1=>60,
     2=>45,
     7=>23
           }
#_________________________________________________
#Definizione del valore iniziale di fortuna per ogni personaggio.
# INILUCK = {A =>B}
#
# A = ID del personaggio.
# B = valore iniziale della fortuna.
#
#Se non definito il valore sarà pari a 1.
INILUCK = {
           1 =>5,
           2 =>3,
           7 =>2
          }
#_________________________________________________         
#Definizione dell'aumento di fortuna per ogni livello.
#LKUP = {A =>B}
#
# A = ID del personaggio
# B = Valore dell'incremento.
#
#Se non definito il valore sarà pari a 1.
LKUP = {1 =>2,
        2 =>3
       }
#_________________________________________________         
#Calcolo della probabilità di vincere oggetti.
#
# false = Il calcolo della probabilità si basa sul valore più alto del gruppo.
# true  = Il calcolo della probabilità si basa sul valore medio del gruppo.
LKITEMEDIA = true
#_________________________________________________         
#Quantittà % di HP recuperati.
LKHPRECPER = 10
end
#_________________________________________________
$mogscript = {} if $mogscript == nil
$xrxs = {} if $xrxs == nil
$mogscript["luck_system"] = true
##############
# Game Actor #
##############
class Game_Actor < Game_Battler
alias mog23_setup setup
def setup(actor_id)
iniluck = MOG::INILUCK[actor_id]
maxluck = MOG::MAX_LUCK[actor_id]
if maxluck == nil
@max_luck = 100
else
@max_luck = maxluck
end
if MOG::INILUCK[actor_id] == nil
@luck = 1
else
@luck = iniluck
end
if MOG::LKUP[actor_id] == nil
@luckup = 1
else
@luckup = MOG::LKUP[actor_id]
end
mog23_setup(actor_id)
end
def max_luck
return @max_luck
end
def luck
if @max_luck != nil and @luck > @max_luck
@luck = @max_luck
else
if @luck > 100
@luck = 100
end
return @luck
end
end
def exp=(exp)
@exp = [[exp, 9999999].min, 0].max
while @exp >= @exp_list[@level+1] and @exp_list[@level+1] > 0
@level += 1
@luck += @luckup
for j in $data_classes[@class_id].learnings
if j.level == @level
learn_skill(j.skill_id)
end
end
end
while @exp < @exp_list[@level]
@level -= 1
@luck  -= @luckup
end
@hp = [@hp, self.maxhp].min
@sp = [@sp, self.maxsp].min
end
end
###############
# Game_Enemy  #
###############
class Game_Enemy < Game_Battler
def treasure_prob
for i in 0...$game_party.actors.size
actor = $game_party.actors[i]
if MOG::LKITEMEDIA == true
return actor.luck / $game_party.actors.size
else
return actor.luck   
end
end
end
end
################
# Game_Battler #
################
class Game_Battler
def attack_effect(attacker)
self.critical = false
hit_result = (rand(100) < attacker.hit)
if hit_result == true
atk = [attacker.atk - self.pdef / 2, 0].max
self.damage = atk * (20 + attacker.str) / 20
self.damage *= elements_correct(attacker.element_set)
self.damage /= 100
if self.damage > 0
if attacker.is_a?(Game_Actor)
if rand(100) < attacker.luck
self.damage *= 2
self.critical = true
end
else
if rand(100) < 4 * attacker.dex / self.agi
self.damage *= 2
self.critical = true
end
end
if self.guarding?
self.damage /= 2
end
end
if self.damage.abs > 0
amp = [self.damage.abs * 15 / 100, 1].max
self.damage += rand(amp+1) + rand(amp+1) - amp
end
eva = 8 * self.agi / attacker.dex + self.eva
hit = self.damage < 0 ? 100 : 100 - eva
hit = self.cant_evade? ? 100 : hit
hit_result = (rand(100) < hit)
end
if hit_result == true
remove_states_shock
self.hp -= self.damage
@state_changed = false
states_plus(attacker.plus_state_set)
states_minus(attacker.minus_state_set)
else
self.damage = "Miss"
self.critical = false
end
return true
end
end
###############
# Window Base #
###############
class Window_Base < Window
def draw_actor_luck(actor, x, y)
self.contents.font.color = normal_color
self.contents.draw_text(x, y, 120, 32, "Luck  " + actor.luck.to_s + "%")
if $mogscript["menu_eva"] == true
back = RPG::Cache.picture("STBAR_Back")   
cw = back.width
ch = back.height
src_rect = Rect.new(0, 0, cw, ch)   
self.contents.blt(x , y - ch + 40, back, src_rect)
meter = RPG::Cache.picture("STBAR.png")   
cw2 = meter.width * actor.luck / actor.max_luck
ch2 = meter.height
src_rect2 = Rect.new(0, 0, cw2, ch2)   
self.contents.blt(x , y - ch + 40, meter, src_rect2)
end
end
end
#################
# Window Status #
#################
class Window_Status < Window_Base
alias mog23_refresh refresh
def refresh
mog23_refresh
if $mogscript["menu_eva"] == true
draw_actor_luck(@actor, 520,210)
else
draw_actor_luck(@actor, 325,120)   
end
end
end
################
# Scene Battle #
################
class Scene_Battle
alias mog23_start_phase5 start_phase5
def start_phase5
mog23_start_phase5   
for actor in $game_party.actors
if rand(100) < actor.luck
lkhprec = actor.maxhp * MOG::LKHPRECPER / 100
actor.hp += lkhprec
actor.damage_pop = true
actor.damage = -lkhprec
end
end
@status_window.refresh
end
end