夜想曲的事件問題 - Project1

#==============================================================================
# ■ ARPG_BATTLE
#------------------------------------------------------------------------------
# 　處理ARPG 戰鬥的類。
# 如果事件的第一個內容是註釋的話就會被認為是敵人....所以如果只是NPC的話~
# 事件的內容的第一行一定不能是註釋``不然會有一大堆問題-________-~||||
#==============================================================================
class ARPG_BATTLE
HP_BAR_DISP_TIME = 50 # 敵人血條消失時間
ENEMY_HP = 1 # 敵人回血的技能ID #-___-無視這個`要敵人會加血的話直接在敵人的技能數組裡加上恢復HP的技能就好了``
YC = false # 敵人被攻擊是否增加延遲
KEYS = {
"A"=>$R_Key_A,
"S"=>$R_Key_S,
"D"=>$R_Key_D,
"F"=>$R_Key_F,
"G"=>$R_Key_G}#Kboard.trigger?
LVUP_ME = "Audio/ME/OS_13.wav" # 升級音效
$refresh = {} # 全局化一個刷新列表
#--------------------------------------------------------------------------
# ● 初始化對像
#--------------------------------------------------------------------------
def initialize
@actor = $game_party.actors[0]
@x = $game_player.x
@y = $game_player.y
@d = $game_player.direction
# 血條消失的時間
@hp_disp_time = 0
# 攻擊延遲
@actor_atktime = 0
#
@bullets = []
# 敵人攻擊延遲
# 事件ID->延遲時間
@event_atk = {}
for event in $game_map.events.values
next if !event.is_enemy?
@event_atk[event.id] = 0
end
end
#--------------------------------------------------------------------------
# ● 釋放
#--------------------------------------------------------------------------
def dispose
@sprite.dispose if [email protected]?
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def update
if @hp_disp_time >= 0
@hp_disp_time -= 1
if @hp_disp_time <= 0
@attev = nil
end
end
if @actor_atktime > 0
@actor_atktime -= 1
end
update_actor
update_event
end
#--------------------------------------------------------------------------
# ● 刷新事件
#--------------------------------------------------------------------------
def update_event
for event in $game_map.events.values
next if !event.is_enemy?
if @event_atk[event.id] > 0
@event_atk[event.id] -= 1
end
new_x = event.x + (event.direction == 6 ? 1 : event.direction == 4 ? -1 : 0)
new_y = event.y + (event.direction == 2 ? 1 : event.direction == 8 ? -1 : 0)
if event.hp <= event.maxhp*0.4 and rand(101)>100-event.escape_rand and event.escape? and event.sp >= $game_skills[ENEMY_HP].sp_cost
if (event.x - $game_player.x).abs < 64 and
(event.y - $game_player.y).abs < 64
for i in 0..randg(2,3)
break if rand(100) < 10
event.move_away_from_player
end
end
damage_skill_enemy(event, $game_skills[ENEMY_HP])
break
end
if new_x == @x and new_y == @y and @event_atk[event.id] <= 0
if event.skill.size > 0 and rand(101)>100-event.skill_rand
skill = event.skill[rand(event.skill.size)]
damage_skill_enemy(event, $game_skills[skill])
break
end
dagame_acon_actor(@actor,event_damage(event,@actor),event.animation2_id,event)
break
end
end
end
#--------------------------------------------------------------------------
# ● 判斷可否移動
#--------------------------------------------------------------------------
def move?
if @actor.states.size == 0
return true
end
for i in @actor.states
if $data_states[i].restriction == 4
return false
end
end
return true
end
#--------------------------------------------------------------------------
# ● 是否可以用技能
#--------------------------------------------------------------------------
def skill?
if @actor.states.size == 0
return true
end
for i in @actor.states
if $data_states[i].restriction == 1
return false
end
end
return true
end
#--------------------------------------------------------------------------
# ● 刷新角色
#--------------------------------------------------------------------------
def update_actor
refresh(0) if @x != $game_player.x
refresh(1) if @y != $game_player.y
refresh(2) if @d != $game_player.direction
update_actor_attk if move?
update_actor_skill if move? and skill?
update_actor_item
update_bullet if @bullets.size > 0
end
#--------------------------------------------------------------------------
# ● 刷按下物品鍵時
#--------------------------------------------------------------------------
def update_actor_item
if Kboard.trigger?($R_Key_Z)
item = $data_items[@actor.item_key["Z"]]
return if item.nil?
item_effect(item)
if item.common_event_id > 0
$game_temp.common_event_id = item.common_event_id
end
end
if Kboard.trigger?($R_Key_X)
item = $data_items[@actor.item_key["X"]]
return if item.nil?
item_effect(item)
if item.common_event_id > 0
$game_temp.common_event_id = item.common_event_id
end
end
if Kboard.trigger?($R_Key_C)
item = $data_items[@actor.item_key["C"]]
return if item.nil?
item_effect(item)
if item.common_event_id > 0
$game_temp.common_event_id = item.common_event_id
end
end
if Kboard.trigger?($R_Key_V)
item = $data_items[@actor.item_key["V"]]
return if item.nil?
item_effect(item)
if item.common_event_id > 0
$game_temp.common_event_id = item.common_event_id
end
end
def item_effect(item)
damage = @actor.item_effect(item)
$game_player.animation_id = item.animation2_id
$game_system.se_play(item.menu_se)
if item.consumable
$game_party.lose_item(item.id,1)
end
$refresh["item"] = true
end
end
#--------------------------------------------------------------------------
# ● 刷新按下技能鍵時
#--------------------------------------------------------------------------
def update_actor_skill
if @actor_atktime <= 0
if Kboard.trigger?(KEYS["A"])
skill = $game_skills[@actor.key["A"]]
return if skill.nil?
if skill.scope == 2
rangs = ARPG_Rangs.new($game_player, skill.rang).rangs
damage_skill(@actor, skill, rangs, skill.dop?)
elsif skill.scope == 1 or skill.scope == 3
damage_skill(@actor, skill)
$game_temp.common_event_id = skill.common_event_id
end
end
if Kboard.trigger?(KEYS["S"])
skill = $game_skills[@actor.key["S"]]
return if skill.nil?
if skill.scope == 2
rangs = ARPG_Rangs.new($game_player, skill.rang).rangs
damage_skill(@actor, skill, rangs,skill.dop?)
elsif skill.scope == 1 or skill.scope == 3
damage_skill(@actor, skill)
$game_temp.common_event_id = skill.common_event_id
end
end
if Kboard.trigger?(KEYS["D"])
skill = $game_skills[@actor.key["D"]]
return if skill.nil?
if skill.scope == 2
rangs = ARPG_Rangs.new($game_player, skill.rang).rangs
damage_skill(@actor, skill, rangs,skill.dop?)
elsif skill.scope == 1 or skill.scope == 3
damage_skill(@actor, skill)
$game_temp.common_event_id = skill.common_event_id
end
end
if Kboard.trigger?(KEYS["F"])
skill = $game_skills[@actor.key["F"]]
return if skill.nil?
if skill.scope == 2
rangs = ARPG_Rangs.new($game_player, skill.rang).rangs
damage_skill(@actor, skill, rangs,skill.dop?)
elsif skill.scope == 1 or skill.scope == 3
damage_skill(@actor, skill)
$game_temp.common_event_id = skill.common_event_id
end
end
if Kboard.trigger?(KEYS["G"])
skill = $game_skills[@actor.key["G"]]
return if skill.nil?
if skill.scope == 2
rangs = ARPG_Rangs.new($game_player, skill.rang).rangs
damage_skill(@actor, skill, rangs,skill.dop?)
elsif skill.scope == 1 or skill.scope == 3
damage_skill(@actor, skill)
$game_temp.common_event_id = skill.common_event_id
end
end
end
end
#--------------------------------------------------------------------------
# ● 刷新角色普通攻擊行為
#--------------------------------------------------------------------------
def update_actor_attk
# C按下時
if ((Kboard.trigger?($R_Key_B) or Kboard.trigger?($R_Key_RETURN)) or S[1])and @actor_atktime <= 0
if @actor.weapon_id.between?(50, 65) # and $data_weapons[@actor.weapon_id].rang >= 1
new_x = @x + (@d == 6 ? 1 : @d == 4 ? -1 : 0)
new_y = @y + (@d == 2 ? 1 : @d == 8 ? -1 : 0)
event = $game_map.events[$game_map.check_event(new_x,new_y)]
return if !event.nil? and !event.is_enemy?
rang_atk#(@actor.animation1_id)
return
end
new_x = @x + (@d == 6 ? 1 : @d == 4 ? -1 : 0)
new_y = @y + (@d == 2 ? 1 : @d == 8 ? -1 : 0)
event = $game_map.events[$game_map.check_event(new_x,new_y)]
show_ain(@actor.animation1_id,true)
if $data_weapons[@actor.weapon_id].element_set.include?(17)
tag = []
rang = ARPG_Rangs.new($game_player, 2).rangs
for xy in rang
event = $game_map.events[$game_map.check_event(xy[0],xy[1])]
if !event.nil? and event.maxhp > 0
tag.push(event)
end
end
tag.each{|t|dagame_acon(t,event_damage(@actor, t),@actor.animation2_id)}
end
if $data_weapons[@actor.weapon_id].element_set.include?(18)
tag = []
rang = ARPG_Rangs.new($game_player, 4).rangs
for xy in rang
event = $game_map.events[$game_map.check_event(xy[0],xy[1])]
if !event.nil? and event.maxhp > 0
tag.push(event)
end
end
tag.each{|t|dagame_acon(t,event_damage(@actor, t),@actor.animation2_id)}
end
if !event.nil? and event.maxhp > 0 and @actor_atktime <= 0
@attev = event
dagame_acon(event,event_damage(@actor, event),@actor.animation2_id)
end
end
end
#--------------------------------------------------------------------------
# ● 刷新精靈的移動以及接觸判斷
#--------------------------------------------------------------------------
def update_bullet
for bullet in @bullets
bullet.update
case bullet.hit_event
when String
if bullet.opacity <= 10
$scene.spriteset.delete_bullet(bullet)
@bullets.delete(bullet)
end
when Game_Event
event = bullet.hit_event
next if !event.is_enemy?
@attev = event
dagame_acon(event,event_damage(@actor, event),@actor.animation2_id)
$scene.spriteset.delete_bullet(bullet)
@bullets.delete(bullet)
end
end
end
#--------------------------------------------------------------------------
# ● 生成遠程攻擊的精靈
#--------------------------------------------------------------------------
def rang_atk
bullet = ARPG_Bullet.new("Arrow", @x, @y, @d)
$scene.spriteset.add_bullet(bullet)
@bullets.push(bullet)
@actor_atktime = $data_weapons[@actor.weapon_id].time
end
#--------------------------------------------------------------------------
# ● 獲取被攻擊中的事件
#--------------------------------------------------------------------------
def target
return @attev
end
#--------------------------------------------------------------------------
# ● 敵人死亡處理
#--------------------------------------------------------------------------
def chae_deal(event)
if event.hp <= 0
$game_system.enemy_cun += 1
list_level = @actor.level
list_maxhp = @actor.maxhp
list_maxsp = @actor.maxsp
list_skill = @actor.skills.dup
list_hp = @actor.hp
list_sp = @actor.sp
list_str = @actor.str
list_dex = @actor.dex
list_agi = @actor.agi
list_int = @actor.int
@actor.exp += event.exp
Mess_Text.write("#{@actor.name}擊敗了#{event.name}")
Mess_Text.write("#{@actor.name}獲得#{event.exp}經驗值")
if event.item.size > 0
for item in event.item
if rand(101) > 100-item[1]
Mess_Text.write("#{event.name}掉落了#{$data_items[item[0]].name}")
$game_party.gain_item(item[0], 1)
end
end
end
if event.weapon.size > 0
for weapon in event.weapon
if rand(101) > 100-weapon[1]
Mess_Text.write("#{event.name}掉落了#{$data_weapons[weapon[0]].name}")
$game_party.gain_weapon(weapon[0], 1)
end
end
end
if event.armor.size > 0
for armor in event.armor
if rand(101) > 100-armor[1]
Mess_Text.write("#{event.name}掉落了#{$data_armors[armor[0]].name}")
$game_party.gain_armor(armor[0], 1)
end
end
end
if @actor.level > list_level
@actor.hp = list_hp
@actor.sp = list_sp
Audio.me_play(LVUP_ME)
Mess_Text.write("#{@actor.name}等級提升:")
Mess_Text.write("#{@actor.name}HP最大值上升 #{@actor.maxhp - list_maxhp}")
Mess_Text.write("#{@actor.name}SP最大值上升 #{@actor.maxsp - list_maxsp}")
end
ls = []
if list_skill != @actor.skills
for s in @actor.skills
if !list_skill.include?(s)
ls.push s
end
end
end
ls.each{|skill|
Mess_Text.write("#{@actor.name}領悟:#{$game_skills[skill].name}")
}
$refresh["item"] = true
delete_event(event)
@attev = nil
end
end
#--------------------------------------------------------------------------
# ● 刪除事件
#--------------------------------------------------------------------------
def delete_event(event)
# 生成獨立開關鍵
key = [$game_map.map_id, event.id, 'A']
# 更改獨立開關
$game_self_switches[key] = true
$game_map.need_refresh = true
#$game_map.events.delete(event.id)
#$scene.spriteset.dispose
#$scene.spriteset = Spriteset_Map.new
end
#--------------------------------------------------------------------------
# ● 敵人被攻擊傷害處理(也就是角色的攻擊)
#--------------------------------------------------------------------------
def dagame_acon(event,damage,ani_id)
event.hp -= damage.to_i
event.animation_id = ani_id
@hp_disp_time = HP_BAR_DISP_TIME
@actor_atktime = $data_weapons[@actor.weapon_id].time
if YC
@event_atk[event.id] = [[@event_atk[event.id]+randg(5,8), event.atk_time*3].min, 0].max
end
event.damage = damage
event.damage_pop = true
if rand(2)==1
#event.turn_toward_player
if randg(1,4) == 2
@event_atk[event.id] += randg(5,8)
end
end
if event.move_type == 1
event.move_type = 2
event.move_speed = 3
event.move_frequency = 6
end
if event.damage == "Miss"
Mess_Text.write("#{event.name}沒有受到傷害")
else
Mess_Text.write("#{event.name}受到了#{event.damage}點傷害")
end
chae_deal(event)
if $game_party.all_dead?
$scene = Scene_Gameover.new
end
end
#--------------------------------------------------------------------------
# ● 角色被攻擊傷害處理(也就是敵人的攻擊)
#--------------------------------------------------------------------------
def dagame_acon_actor(actor,damage,ani_id,event)
event.white_flash = true
actor.hp -= damage.to_i
if YC
@actor_atktime = [[@actor_atktime+randg(5,8), $data_weapons[@actor.weapon_id].time*3].min, 0].max
end
if event.attk_states[0] > 0 and rand(100) > 100-event.attk_states[1]
unless @actor.state_guard?(event.attk_states[0])
@actor.add_state(event.attk_states[0])
end
end
$game_player.animation_id = ani_id
@event_atk[event.id] = event.atk_time
$game_player.damage = damage
$game_player.damage_pop = true
if damage != "Miss"
Mess_Text.write("#{@actor.name}受到了#{$game_player.damage}點傷害")
else
Mess_Text.write("#{actor.name}沒有受到傷害")
end
if $game_party.all_dead?
$scene = Scene_Gameover.new
end
end
#--------------------------------------------------------------------------
# ● 敵人使用技能處理
#--------------------------------------------------------------------------
def damage_skill_enemy(user, skill, skill_rang=[])
return if user.sp < skill.sp_cost
if skill.scope == 1 or skill.scope == 2
user.animation_id = skill.animation1_id
Mess_Text.write("#{user.name}使用了#{skill.name}")
damage = event_damage_skill(user,@actor,skill)
dagame_acon_actor(@actor,damage,skill.animation2_id,user)
user.sp -= skill.sp_cost
elsif skill.scope == 3
user.animation_id = skill.animation1_id
user.animation_id = skill.animation2_id
#damage = event_damage(user,user)
damage = event_damage_skill(user,user,skill)
user.hp -= damage.to_i
user.sp -= skill.sp_cost
@event_atk[user.id] = user.atk_time
Mess_Text.write("#{user.name}使用了#{skill.name}恢復了#{damage.abs}HP")
end
end
#--------------------------------------------------------------------------
# ● 角色使用技能處理
#--------------------------------------------------------------------------
def damage_skill(user, skill, skill_rang=[],d = false)
if user.sp < skill.sp_cost
Mess_Text.write("SP不足")
return
end
if skill.scope == 1
new_x = @x + (@d == 6 ? 1 : @d == 4 ? -1 : 0)
new_y = @y + (@d == 2 ? 1 : @d == 8 ? -1 : 0)
event = $game_map.events[$game_map.check_event(new_x,new_y)]
if !event.nil? and event.maxhp > 0 and @actor_atktime <= 0
Mess_Text.write("#{user.name}使用了#{skill.name}")
@attev = event
$game_player.animation_id = skill.animation1_id
damage = event_damage_skill(user, event, skill)
dagame_acon(event,damage,skill.animation2_id)
user.sp -= skill.sp_cost
@actor_atktime = skill.time
$game_skills[skill.id].exp += (damage/5).abs+(randg(damage*0.8,damage*1.2)/10)
end
elsif skill.scope == 2
tag = []
for xy in skill_rang
event = $game_map.events[$game_map.check_event(xy[0],xy[1])]
if !event.nil? and event.maxhp > 0
tag.push(event)
end
end
if tag.size == 0
show_ain(skill.animation1_id ,d)
user.sp -= skill.sp_cost
@actor_atktime = skill.time#$data_weapons[@actor.weapon_id].time
return
end
Mess_Text.write("#{user.name}使用了#{skill.name}")
for e in tag
@attev = e
damage = event_damage_skill(user, e, skill)
dagame_acon(e,damage,skill.animation2_id)
@hp_disp_time = 0 if tag.size > 1
end
show_ain(skill.animation1_id,d)
@actor_atktime = skill.time
if tag != []
user.sp -= skill.sp_cost
$game_skills[skill.id].exp += (damage/5).abs+(randg(damage*0.8,damage*1.2)/10)
end
elsif skill.scope == 3
$game_player.animation_id = skill.animation1_id
$game_player.animation_id = skill.animation2_id
damage = @actor.skill_effect(@actor,skill)#event_damage_skill(user, @actor, skill)
#user.hp -= damage
#user.sp -= skill.sp_cost
$game_player.damage = damage.to_i
$game_player.damage_pop = true
#Mess_Text.write("#{user.name}使用了#{skill.name}恢復了#{damage.abs}HP")
@actor_atktime = skill.time#$data_weapons[@actor.weapon_id].time
end
end
#--------------------------------------------------------------------------
# ● 獲取普通攻擊傷害
#--------------------------------------------------------------------------
def event_damage(attk,event)
hit_result = (rand(100) < attk.hit)
if hit_result
atk = [attk.atk - event.pdef / 2, 0].max
damage = atk * (20 + attk.str) / 20
amp = [damage.abs * 15 / 100, 1].max
damage += rand(amp+1) + rand(amp+1) - amp
damage = damage.abs
if attk.plus_state_set.size > 0
if rand(100) > randg(85,100)
event.add_state(attk.plus_state_set[0])
end
end
else
damage = "Miss"
end
return damage
end
#--------------------------------------------------------------------------
# ● 獲取技能攻擊傷害
#--------------------------------------------------------------------------
def event_damage_skill(user,event,skill)
# 計算威力
power = skill.power + user.atk * skill.atk_f / 100
if power > 0
power -= event.pdef * skill.pdef_f / 200
power -= event.mdef * skill.mdef_f / 200
power = [power, 0].max
end
# 計算倍率
rate = 20
rate += (user.str * skill.str_f / 100)
rate += (user.dex * skill.dex_f / 100)
rate += (user.agi * skill.agi_f / 100)
rate += (user.int * skill.int_f / 100)
# 計算基本傷害
damage = power * rate / 20
# 分散
if skill.variance > 0 and damage.abs > 0
amp = [damage.abs * skill.variance / 100, 1].max
damage += rand(amp+1) + rand(amp+1) - amp
end
if skill.plus_state_set.size > 0
if rand(100) > 100-rand(skill.hit)
event.add_state(skill.plus_state_set[0])
end
end
return damage
end
#--------------------------------------------------------------------------
# ● 更新一下坐標
#--------------------------------------------------------------------------
def refresh(type)
case type
when 0 then @x = $game_player.x
when 1 then @y = $game_player.y
when 2 then @d = $game_player.direction
end
end
#--------------------------------------------------------------------------
# ● 角色顯示動畫#skill.animation1_id
#--------------------------------------------------------------------------
def show_ain(ain_id,d)
if d
case @d
when 2 then $game_player.animation_id = ain_id
when 4 then $game_player.animation_id = ain_id + 1
when 6 then $game_player.animation_id = ain_id + 2
when 8 then $game_player.animation_id = ain_id + 3
end
else
$game_player.animation_id = ain_id
end
end
end

复制代码

#==============================================================================
# ■ Game_Event
#------------------------------------------------------------------------------
# 　处理事件的类。条件判断、事件页的切换、并行处理、执行事件功能
# 在 Game_Map 类的内部使用。
#==============================================================================
class Game_Event < Game_Character
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr_reader :name # 事件的名字
attr_reader :trigger # 目标
attr_reader :list # 执行内容
attr_reader :starting # 启动中标志
attr_reader :hp # HP
attr_reader :sp # SP
attr_reader :atk # 攻击力
attr_reader :pdef # 防御力
attr_reader :mdef # 魔御力
attr_reader :exp # 经验
attr_reader :animation2_id # 攻击动画
attr_reader :skill_rand # 使用技能几率
attr_reader :escape_rand # 逃跑几率
attr_reader :atk_time # 攻击延迟时间
attr_reader :skill # 技能
attr_reader :item # 会掉落的物品
attr_reader :weapon # 会掉落的武器
attr_reader :armor # 会掉落的防具
attr_reader :attk_states # 攻击所附加的状态
attr_reader :states # 状态
attr_accessor :move_type # 移动类型
attr_accessor :move_speed # 移动速度
attr_accessor :move_frequency # 移动频率
attr_accessor :states_time # 状态时间
#--------------------------------------------------------------------------
# ● 初始化对像
# map_id : 地图 ID
# event : 事件 (RPG::Event)
#--------------------------------------------------------------------------
def initialize(map_id, event)
super()
@map_id = map_id
@event = event
@id = @event.id
@name = @event.name
@erased = false
@starting = false
@through = true
@hp = 0
@sp = 0
@atk = 0
@pdef = 0
@mdef = 0
@exp = 0
@escape = false
@animation2_id = 0
@skill = []
@item = []
@weapon = []
@armor = []
@states = []
@escape_rand = 0
@atk_time = 35
@attk_states = [0,0]
@states_time = {}
@plus_state_set = []
# 初期位置的移动
moveto(@event.x, @event.y)
refresh
end
def plus_state_set
return []
end
# 是否逃跑
def escape?;return @escape;end
#--------------------------------------------------------------------------
# ● 设置HP
#--------------------------------------------------------------------------
def hp=(hp)
@hp = [[hp, maxhp].min, 0].max
end
#--------------------------------------------------------------------------
# ● 设置SP
#--------------------------------------------------------------------------
def sp=(sp)
@sp = [[sp, maxsp].min, 0].max
end
#--------------------------------------------------------------------------
# ● 获取力量
#--------------------------------------------------------------------------
def str
n = [[@str, 1].max, 999].min
for i in @states
n *= $data_states[i].str_rate / 100.0
end
n = [[Integer(n), 1].max, 999].min
return n
end
#--------------------------------------------------------------------------
# ● 获取灵巧
#--------------------------------------------------------------------------
def dex
n = [[@dex, 1].max, 999].min
for i in @states
n *= $data_states[i].dex_rate / 100.0
end
n = [[Integer(n), 1].max, 999].min
return n
end
#--------------------------------------------------------------------------
# ● 获取速度
#--------------------------------------------------------------------------
def agi
n = [[@agi, 1].max, 999].min
for i in @states
n *= $data_states[i].agi_rate / 100.0
end
n = [[Integer(n), 1].max, 999].min
return n
end
#--------------------------------------------------------------------------
# ● 获取魔力
#--------------------------------------------------------------------------
def int
n = [[@int, 1].max, 999].min
for i in @states
n *= $data_states[i].int_rate / 100.0
end
n = [[Integer(n), 1].max, 999].min
return n
end
#--------------------------------------------------------------------------
# ● 获取攻击力
#--------------------------------------------------------------------------
def atk
n = @atk
for i in @states
n *= $data_states[i].atk_rate / 100.0
end
return Integer(n)
end
#--------------------------------------------------------------------------
# ● 获取物理防御
#--------------------------------------------------------------------------
def pdef
n = @pdef
for i in @states
n *= $data_states[i].pdef_rate / 100.0
end
return Integer(n)
end
#--------------------------------------------------------------------------
# ● 获取魔法防御
#--------------------------------------------------------------------------
def mdef
n = @mdef
for i in @states
n *= $data_states[i].mdef_rate / 100.0
end
return Integer(n)
end
#--------------------------------------------------------------------------
# ● 获取回避修正
#--------------------------------------------------------------------------
def eva
n = @eva
for i in @states
n += $data_states[i].eva
end
return n
end
=begin
#--------------------------------------------------------------------------
# ● 获取最大HP
#--------------------------------------------------------------------------
def maxhp
if !@erased and @list[0].code == 108
return @maxhp
else
return 0
end
end
#--------------------------------------------------------------------------
# ● 获取最大SP
#--------------------------------------------------------------------------
def maxsp
if !@erased and @list[0].code == 108
return @maxsp
else
return 0
end
end
=end
#--------------------------------------------------------------------------
# ● 获取 MaxHP
#--------------------------------------------------------------------------
def maxhp
if !is_enemy?
return 0
end
n = @maxhp
for i in @states
n *= $data_states[i].maxhp_rate / 100.0
end
n = [[Integer(n), 1].max, 999999].min
return n
end
#--------------------------------------------------------------------------
# ● 获取 MaxHP
#--------------------------------------------------------------------------
def maxsp
if !is_enemy?
return 0
end
n = @maxsp
for i in @states
n *= $data_states[i].maxsp_rate / 100.0
end
n = [[Integer(n), 1].max, 999999].min
return n
end
#--------------------------------------------------------------------------
# ● 获取命中率
#--------------------------------------------------------------------------
def hit
n = 100
for i in @states
n *= $data_states[i].hit_rate / 100.0
end
return Integer(n)
end
#--------------------------------------------------------------------------
# ● 是否敌人
#--------------------------------------------------------------------------
def is_enemy?
if !@erased and [email protected]? and @list[0].code == 108
return true
else
return false
end
end
#--------------------------------------------------------------------------
# ● 全恢复
#--------------------------------------------------------------------------
def recover_all
@hp = maxhp
@sp = maxsp
@states = []
@states_time = {}
end
#--------------------------------------------------------------------------
# ● 获取状态动画ID
#--------------------------------------------------------------------------
def state_animation_id
if @states.size == 0 or @erased or maxhp == 0
return 0
end
return $data_states[@states[0]].animation_id
end
#--------------------------------------------------------------------------
# ● 判断状态 [连续伤害]
#--------------------------------------------------------------------------
def slip_damage?
for i in @states
if $data_states[i].slip_damage
return true
end
end
return false
end
#--------------------------------------------------------------------------
# ● 附加状态
#
#--------------------------------------------------------------------------
def add_state(state_id, force = false)
# 无效状态的情况下
if $data_states[state_id] == nil
# 过程结束
return
end
# 无法附加本状态的情况下
unless @states.include?(state_id)
# 状态 ID 追加到 @states 序列中
@states.push(state_id)
@states_time[state_id] = $data_states[state_id].hold_turn
end
# 检查 HP 及 SP 的最大值
@hp = [@hp, maxhp].min
@sp = [@sp, maxsp].min
$refresh["enemy_states"] = true
end
#--------------------------------------------------------------------------
# ● 清除移动中标志
#--------------------------------------------------------------------------
def clear_starting
@starting = false
end
#--------------------------------------------------------------------------
# ● 越过目标判定 (不能将相同位置作为启动条件)
#--------------------------------------------------------------------------
def over_trigger?
# 图形是角色、没有开启穿透的情况下
if @character_name != "" and not @through
# 启动判定是正面
return false
end
# 地图上的这个位置不能通行的情况下
unless $game_map.passable?(@x, @y, 0)
# 启动判定是正面
return false
end
# 启动判定在同位置
return true
end
#--------------------------------------------------------------------------
# ● 启动事件
#--------------------------------------------------------------------------
def start
# 执行内容不为空的情况下
if @list.size > 1 and !self.is_enemy?
@starting = true
end
end
#--------------------------------------------------------------------------
# ● 暂时消失
#--------------------------------------------------------------------------
def erase
@erased = true
refresh
end
#--------------------------------------------------------------------------
# ● 暂时消失?
#--------------------------------------------------------------------------
def erase?
return @erased
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
# 初始化本地变量 new_page
new_page = nil
# 无法暂时小时的情况下
unless @erased
# 从编号大的事件页按顺序调查
for page in @event.pages.reverse
# 可以参考事件条件 c
c = page.condition
# 确认开关条件 1
if c.switch1_valid
if $game_switches[c.switch1_id] == false
next
end
end
# 确认开关条件 2
if c.switch2_valid
if $game_switches[c.switch2_id] == false
next
end
end
# 确认变量条件
if c.variable_valid
if $game_variables[c.variable_id] < c.variable_value
next
end
end
# 确认独立开关条件
if c.self_switch_valid
key = [@map_id, @event.id, c.self_switch_ch]
if $game_self_switches[key] != true
next
end
end
# 设置本地变量 new_page
new_page = page
# 放弃循环
break
end
end
# 与上次同一事件页的情况下
if new_page == @page
# 过程结束
return
end
# @page 设置为现在的事件页
@page = new_page
# 清除启动中标志
clear_starting
# 没有满足条件的页面的时候
if @page == nil
# 设置各实例变量
@tile_id = 0
@character_name = ""
@character_hue = 0
@move_type = 0
@through = true
@trigger = nil
@list = nil
@interpreter = nil
# 过程结束
return
end
# 设置各实例变量
@tile_id = @page.graphic.tile_id
@character_name = @page.graphic.character_name
@character_hue = @page.graphic.character_hue
if @original_direction != @page.graphic.direction
@direction = @page.graphic.direction
@original_direction = @direction
@prelock_direction = 0
end
if @original_pattern != @page.graphic.pattern
@pattern = @page.graphic.pattern
@original_pattern = @pattern
end
@opacity = @page.graphic.opacity
@blend_type = @page.graphic.blend_type
@move_type = @page.move_type
@move_speed = @page.move_speed
@move_frequency = @page.move_frequency
@move_route = @page.move_route
@move_route_index = 0
@move_route_forcing = false
@walk_anime = @page.walk_anime
@step_anime = @page.step_anime
@direction_fix = @page.direction_fix
@through = @page.through
@always_on_top = @page.always_on_top
@trigger = @page.trigger
@list = @page.list
@interpreter = nil
if @list[0].code == 108
@maxhp = eval @list[0].parameters[0]
@maxsp = eval @list[1].parameters[0]
for i in [email protected]
next if @list[i].parameters[0].nil?
eval @list[i].parameters[0]
end
end
# 目标是 [并行处理] 的情况下
if @trigger == 4
# 生成并行处理用解释器
@interpreter = Interpreter.new
end
# 自动事件启动判定
check_event_trigger_auto
end
#--------------------------------------------------------------------------
# ● 接触事件启动判定
#--------------------------------------------------------------------------
def check_event_trigger_touch(x, y)
# 事件执行中的情况下
if $game_system.map_interpreter.running?
return
end
# 目标为 [与事件接触] 以及和主角坐标一致的情况下
if @trigger == 2 and x == $game_player.x and y == $game_player.y
# 除跳跃中以外的情况、启动判定就是正面的事件
if not jumping? and not over_trigger?
start
end
end
end
#--------------------------------------------------------------------------
# ● 自动事件启动判定
#--------------------------------------------------------------------------
def check_event_trigger_auto
# 目标为 [与事件接触] 以及和主角坐标一致的情况下
if @trigger == 2 and @x == $game_player.x and @y == $game_player.y
# 除跳跃中以外的情况、启动判定就是同位置的事件
if not jumping? and over_trigger?
start
end
end
# 目标是 [自动执行] 的情况下
if @trigger == 3
start
end
end
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
super
# 自动启动事件判定
check_event_trigger_auto
# 并行处理有效的情况下
if @interpreter != nil
# 不在执行中的场合的情况下
unless @interpreter.running?
# 设置事件
@interpreter.setup(@list, @event.id)
end
# 更新解释器
@interpreter.update
end
end
end

复制代码