#===============================================================================
# * Falcao Pearl ABS script shelf # 3
#
# This script handles some battler settings and the keys definitions
#===============================================================================
module Key
# Pearl ABS Input system, there is a full keayboard build in with this system,
# you can use keys from A throught Z, and number between 1 throught 9
# Type Key Display name
Weapon = [PearlKey::J, 'J'] # Weapon usage
Armor = [PearlKey::H, 'H'] # Armor usage
Item = [PearlKey::K, 'K'] # Item usage
Item2 = [PearlKey::L, 'L'] # Item2 usage
Skill = [PearlKey::U, 'U'] # Skill usage
Skill2 = [PearlKey::I, 'I'] # Skill2 usage
Skill3 = [PearlKey::O, 'O'] # Skill3 usage
Skill4 = [PearlKey::P, 'P'] # Skill4 usage
# Follower attack toggle
Follower = [PearlKey::C, 'C']
# Quick tool selection key
QuickTool = PearlKey::Z
# Player select call key
PlayerSelect = PearlKey::V
# Sound played when success guarding
GuardSe = "Hammer"
end
module Vocab
# Buff/Debuff
BuffAdd = "%s's %s up!"
DebuffAdd = "%s's %s down!"
BuffRemove = "%s's %s to normal."
end
#-------------------------------------------------------------------------------
# Game player adds
class Game_Player < Game_Character
attr_accessor :projectiles, :damage_pop, :anime_action, :enemy_drops
attr_accessor :refresh_status_icons, :refresh_buff_icons, :mouse_over
attr_accessor :refresh_skillbar, :pearl_menu_call, :reserved_swap
attr_accessor :new_map_id
alias falcaopearl_initialize initialize
def initialize
@projectiles = []
@damage_pop = []
@anime_action = []
@enemy_drops = []
@press_timer = 0
@mouse_over = 0
@mouse_exist = defined?(Map_Buttons).is_a?(String)
@refresh_skillbar = 0
@pearl_menu_call = [sym = nil, 0]
@reserved_swap = []
falcaopearl_initialize
end
alias falcaopearl_poses_refresh refresh
def refresh
return if @knockdown_data[0] > 0
falcaopearl_poses_refresh
end
def any_collapsing?
return true if @colapse_time > 0
@followers.each {|f| return true if f.visible? and f.colapse_time > 0}
return false
end
# check if any follower is fighting
def follower_fighting?
@followers.each do |f|
next unless f.visible?
return true if f.targeted_character != nil
end
return false
end
# check if game party in combat mode
def in_combat_mode?
return true if follower_fighting? || battler_acting?
return false
end
# get battler
def battler
return actor
end
def update_state_effects
battler.dead? ? return : super
end
def trigger_tool?(key, type)
return true if type == :keys && PearlKey.trigger?(key)
return true if @mouse_exist && Mouse.trigger?(0) && type == :mouse &&
@mouse_over == key
return false
end
def all_jump(x, y)
jumpto_tile(x, y)
@followers.each {|f| f.jumpto_tile(x, y)}
end
alias falcaopearl_it_update update
def update
update_pearl_battle_set
falcaopearl_it_update
end
# pearl battle update
def update_pearl_battle_set
@projectiles.each {|projectile| projectile.update}
@pearl_menu_call[1] -= 1 if @pearl_menu_call[1] > 0
update_tool_usage
update_menu_buttons
end
if $imported["Falcao Interactive System Lite"]
alias falcaopearl_int player_start_falling
def player_start_falling
return if @hookshoting[1]
falcaopearl_int
end
end
# get on vehicle
alias falcaopearl_get_on_vehicle get_on_vehicle
def get_on_vehicle
return if follower_fighting?
falcaopearl_get_on_vehicle
end
def update_tool_usage
return if PearlSkillBar.hidden?
return unless normal_walk?
unless actor.equips[0].nil?
use_weapon(actor.equips[0].id) if trigger_tool?(Key::Weapon[0], :keys)
use_weapon(actor.equips[0].id) if trigger_tool?(1, :mouse)
end
unless actor.equips[1].nil?
use_armor(actor.equips[1].id) if trigger_tool?(Key::Armor[0], :keys)
use_armor(actor.equips[1].id) if trigger_tool?(2, :mouse)
end
unless actor.assigned_item.nil?
use_item(actor.assigned_item.id) if trigger_tool?(Key::Item[0], :keys)
use_item(actor.assigned_item.id) if trigger_tool?(3, :mouse)
end
unless actor.assigned_item2.nil?
use_item(actor.assigned_item2.id) if trigger_tool?(Key::Item2[0], :keys)
use_item(actor.assigned_item2.id) if trigger_tool?(4, :mouse)
end
unless actor.assigned_skill.nil?
use_skill(actor.assigned_skill.id) if trigger_tool?(Key::Skill[0], :keys)
use_skill(actor.assigned_skill.id) if trigger_tool?(5, :mouse)
end
unless actor.assigned_skill2.nil?
use_skill(actor.assigned_skill2.id) if trigger_tool?(Key::Skill2[0],:keys)
use_skill(actor.assigned_skill2.id) if trigger_tool?(6, :mouse)
end
unless actor.assigned_skill3.nil?
use_skill(actor.assigned_skill3.id) if trigger_tool?(Key::Skill3[0],:keys)
use_skill(actor.assigned_skill3.id) if trigger_tool?(7, :mouse)
end
unless actor.assigned_skill4.nil?
use_skill(actor.assigned_skill4.id) if trigger_tool?(Key::Skill4[0],:keys)
use_skill(actor.assigned_skill4.id) if trigger_tool?(8, :mouse)
end
update_followers_trigger unless $game_map.interpreter.running?
end
def update_followers_trigger
if PearlKernel::SinglePlayer and trigger_tool?(Key::Follower[0], :keys)
return if @knockdown_data[0] > 0
force_cancel_actions
@pearl_menu_call = [:tools, 2]
return
end
make_battle_followers if trigger_tool?(Key::Follower[0], :keys)
make_battle_followers if trigger_tool?(9, :mouse)
if PearlKey.press?(Key::Follower[0]) || @mouse_exist && Mouse.press?(0) &&
@mouse_over == 9
@press_timer += 1
if @press_timer == 3 * 60
@followers.each do |f|
next unless f.visible?
next if f.targeted_character.nil?
f.turn_toward_player
f.targeted_character = nil
f.pop_damage('Scape')
end
end
else
@press_timer = 0 if @press_timer != 0
end
end
def make_battle_followers
@followers.each do |f|
next unless f.visible?
next if f.fo_tool.nil? || f.battler.dead?
if f.targeted_character.nil?
if f.fo_tool.tool_data("User Graphic = ", false).nil?
if f.fo_tool.is_a?(RPG::Skill) || fo_tool.is_a?(RPG::Item)
# has no data but is a benefical skill
if f.fo_tool.scope == 0 || f.fo_tool.scope.between?(7, 11)
f.setup_followertool_usage
else
f.balloon_id = PearlKernel::FailBalloon
end
else
f.balloon_id = PearlKernel::FailBalloon
next
end
else
#has data
f.setup_followertool_usage
end
end
end
end
# menu buttons update
def update_menu_buttons
return if $game_map.interpreter.running?
return if @pearl_menu_call[1] > 0
if PearlKey.trigger?(Key::QuickTool)
return if @knockdown_data[0] > 0
force_cancel_actions
@pearl_menu_call = [:tools, 2]
end
if !PearlKernel::SinglePlayer and PearlKey.trigger?(Key::PlayerSelect)
@pearl_menu_call = [:character, 2]
end
end
def set_skill(id)
actor.assigned_skill = $data_skills[id]
end
alias falcao_pearl_movable movable?
def movable?
return if force_stopped? || @blowpower[0] > 0
falcao_pearl_movable
end
alias falcaopearl_perform_transfer perform_transfer
def perform_transfer
if $game_map.map_id != @new_map_id
pearl_abs_global_reset
end
falcaopearl_perform_transfer
@followers.each {|f|
next unless f.visible?
if f.battler.deadposing != nil
f.battler.deadposing != $game_map.map_id ? f.transparent = true :
f.transparent = false
f.knockdown_data[0] = 10 #if follower.battler.deadposing != nil
f.knowdown_effect(1)
end}
end
alias falcaopearl_start_map start_map_event
def start_map_event(x, y, triggers, normal)
$game_map.events_xy(x, y).each do |event|
return if event.has_token?
end
falcaopearl_start_map(x, y, triggers, normal)
end
end
# game party
class Game_Party < Game_Unit
attr_accessor :actors
def set_skill(actor_id, sid, slot)
actor = $game_actors[actor_id] ; skill = $data_skills[sid]
return unless actor.skill_learn?(skill)
case slot
when Key::Skill[1].to_sym then actor.assigned_skill = skill
when Key::Skill2[1].to_sym then actor.assigned_skill2 = skill
when Key::Skill3[1].to_sym then actor.assigned_skill3 = skill
when Key::Skill4[1].to_sym then actor.assigned_skill4 = skill
end
end
def set_item(actor_id, item_id, slot)
actor = $game_actors[actor_id] ; item = $data_items[item_id]
return unless has_item?(item)
case slot
when Key::Item[1].to_sym then actor.assigned_item = item
when Key::Item2[1].to_sym then actor.assigned_item2 = item
end
end
end
#--------------------------------------------------------
class Game_Battler < Game_BattlerBase
attr_reader :state_steps
attr_accessor :buff_turns, :buffs, :used_item, :deadposing
attr_accessor :skill_cooldown,:item_cooldown,:weapon_cooldown, :armor_cooldown
alias falcaopearl_battler_ini initialize
def initialize
@skill_cooldown = {}
@item_cooldown = {}
@weapon_cooldown = {}
@armor_cooldown = {}
falcaopearl_battler_ini
end
alias falcaopearl_revive revive
def revive
if SceneManager.scene_is?(Scene_Item) || SceneManager.scene_is?(Scene_Skill)
$game_temp.pop_w(180, 'Pearl ABS',
'You cannot revive from menu!')
return
end
falcaopearl_revive
@deadposing = nil
end
alias falcaopearl_addnew add_new_state
def add_new_state(state_id)
falcaopearl_addnew(state_id)
if self.is_a?(Game_Actor)
$game_player.refresh_skillbar = 4
end
end
def tool_ready?(item)
return false if item.is_a?(RPG::Skill) and @skill_cooldown[item.id]
return false if item.is_a?(RPG::Item) and @item_cooldown[item.id]
return false if item.is_a?(RPG::Weapon) and @weapon_cooldown[item.id]
return false if item.is_a?(RPG::Armor) and @armor_cooldown[item.id]
return true
end
def apply_cooldown(item, value)
@skill_cooldown[item.id] = value if item.is_a?(RPG::Skill)
@item_cooldown[item.id] = value if item.is_a?(RPG::Item)
@weapon_cooldown[item.id] = value if item.is_a?(RPG::Weapon)
@armor_cooldown[item.id] = value if item.is_a?(RPG::Armor)
end
# Make the steps settings to seconds for states if used in the scene map
alias falcaopearl_stepsset reset_state_counts
def reset_state_counts(state_id)
falcaopearl_stepsset(state_id)
state = $data_states[state_id]
@state_steps[state_id] = state.steps_to_remove * 60 if
SceneManager.scene_is?(Scene_Map)
end
# make the buff turns per seconds if used in the scene map
alias falcaopearl_buffs overwrite_buff_turns
def overwrite_buff_turns(param_id, turns)
if SceneManager.scene_is?(Scene_Map)
time = turns * 60
@buff_turns[param_id] = time if @buff_turns[param_id].to_i < time
return
end
falcaopearl_buffs(param_id, turns)
end
# make the item occasion to always in the map
alias falcaopearl_occasion_ok occasion_ok?
def occasion_ok?(item)
return true if SceneManager.scene_is?(Scene_Map) ||
SceneManager.scene_is?(Scene_QuickTool) ||
SceneManager.scene_is?(Scene_CharacterSet)
falcaopearl_occasion_ok(item)
end
# apply the usability settings (used to refresh the skill bar icons)
alias falcaopearl_usablecheck use_item
def use_item(item)
falcaopearl_usablecheck(item)
self.apply_usability if self.is_a?(Game_Actor)
end
# melee attack apply used with invoked tools
def melee_attack_apply(user, item_id)
item_apply(user, $data_skills[item_id])
end
alias falcaopearl_itemapply item_apply
def item_apply(user, item)
@used_item = item
falcaopearl_itemapply(user, item)
end
end
#-------------------------------------------------------------------------------
# Game followers adds
class Game_Follower < Game_Character
def battler
return actor
end
alias falcaopearl_f_poses_refresh refresh
def refresh
return if @knockdown_data[0] > 0
falcaopearl_f_poses_refresh
end
def update_state_effects
battler.dead? ? return : super
end
# Make the followers inpassable if they are in battle state
alias falcaopearl_follower_update update
def update
if $game_player.followers.gathering? || $game_player.hookshoting[1] ||
@hookshoting[1]
@through = true
else
@through = false if @through
end
falcaopearl_follower_update
@transparent = lying_down? if visible? and $game_player.normal_walk?
@transparent = false if $game_player.using_custom_g
end
def lying_down?
return true if !battler.deadposing.nil? &&
battler.deadposing != $game_map.map_id
return false
end
# avoid the followers to chase the preceding character in battle
alias falcaopearl_chase_preceding_character chase_preceding_character
def chase_preceding_character
return if @blowpower[0] > 0
return if @targeted_character != nil
if visible? and $game_player.follower_fighting?
return if fo_tool.nil?
return if battler.dead?
end
$game_player.reserved_swap.each {|i|
if i == battler.id
swap_dead_follower
$game_player.reserved_swap.delete(i)
end}
jumpto(0) if @targeted_character.nil? && !obj_size?($game_player, 6) &&
!stopped_any?
falcaopearl_chase_preceding_character
end
def stopped_any?
$game_player.followers.each do |follower|
return true if follower.force_stopped?
end
return false
end
# set up a target for followers
def setup_target
for event in $game_map.event_enemies
if event.on_battle_screen? && event.enemy_ready?
if $game_player.obj_size?(event, PearlKernel::PlayerRange) and
!event.being_targeted
@targeted_character = event
event.being_targeted = true
break
end
end
end
end
def move_straight(d, turn_ok = true)
return if force_stopped?
super
end
def move_diagonal(horz, vert)
return if force_stopped?
super
end
alias falcaoabs_gather gather?
def gather?
return true if !battler.deadposing.nil?
falcaoabs_gather
end
end
#-------------------------------------------------------------------------------
# Game Actor adds
class Game_Actor < Game_Battler
attr_accessor :assigned_skill, :assigned_item, :primary_use
attr_accessor :assigned_skill2, :assigned_item2, :usability
attr_accessor :assigned_skill3, :assigned_skill4
alias falcaopearl_cooldown_setup setup
def setup(actor_id)
@usability = [nil, nil, nil, nil, nil, nil, nil, nil]
@primary_use = 1
falcaopearl_cooldown_setup(actor_id)
end
# player walk
alias falcaopearl_on_player_walk on_player_walk
def on_player_walk
@result.clear
check_floor_effect
return
falcaopearl_on_player_walk
end
#usability refresher
def apply_usability
apply_usabilityto_melee(0) # weapon
apply_usabilityto_melee(1) # armor
@usability[2] = usable?(@assigned_item) if !@assigned_item.nil?
@usability[3] = usable?(@assigned_item2) if !@assigned_item2.nil?
@usability[4] = usable?(@assigned_skill) if !@assigned_skill.nil?
@usability[5] = usable?(@assigned_skill2) if !@assigned_skill2.nil?
@usability[6] = usable?(@assigned_skill3) if !@assigned_skill3.nil?
@usability[7] = usable?(@assigned_skill4) if !@assigned_skill4.nil?
end
def apply_usabilityto_melee(index)
if !equips[index].nil?
invoke = equips[index].tool_data("Tool Invoke Skill = ")
if invoke != nil and invoke != 0 and index == 0
@usability[index] = usable?($data_skills[invoke])
elsif index == 0
@usability[index] = usable?($data_skills[1])
end
if invoke != nil and invoke != 0 and index == 1
@usability[index] = usable?($data_skills[invoke])
elsif index == 1
@usability[index] = usable?($data_skills[2])
end
end
end
end
#-------------------------------------------------------------------------------
# Game character adds, the agro system
class Game_Character < Game_CharacterBase
# agro to follower turn towars player
alias pearlagro_turn_toward_player turn_toward_player
def turn_toward_player
if self.is_a?(Game_Event) and self.agroto_f != nil
turn_toward_character(self.agroto_f)
return
end
pearlagro_turn_toward_player
end
# agro to follower turn away from player
alias pearlagro_turn_away_from_player turn_away_from_player
def turn_away_from_player
if self.is_a?(Game_Event) and self.agroto_f != nil
turn_away_from_character(self.agroto_f)
return
end
pearlagro_turn_away_from_player
end
# agro to game follower move toward player
alias pearlagro_move_toward_player move_toward_player
def move_toward_player
if self.is_a?(Game_Event) and self.agroto_f != nil
move_toward_character(self.agroto_f)
return
end
pearlagro_move_toward_player
end
# agro away from follower
alias pearlagro_move_away_from_player move_away_from_player
def move_away_from_player
if self.is_a?(Game_Event) and self.agroto_f != nil
move_away_from_character(self.agroto_f)
return
end
pearlagro_move_away_from_player
end
end
# enemy
class Game_Enemy < Game_Battler
attr_accessor :battler_graphic, :breath_enable, :object, :collapse_type
attr_accessor :die_animation, :kill_weapon, :kill_armor, :kill_item
attr_accessor :kill_skill, :body_sized, :esensor, :boss_hud, :k_back_dis
attr_reader :lowhp_10, :lowhp_25, :lowhp_50, :lowhp_75, :lowhp_99
alias falcaopearl_enemy_ini initialize
def initialize(index, enemy_id)
falcaopearl_enemy_ini(index, enemy_id)
@kill_weapon = []
@kill_armor = []
@kill_item = []
@kill_skill = []
@battler_graphic = enemy.tool_data("Enemy Battler = ",false) == "true"
@breath_enable = enemy.tool_data("Enemy Breath = ",false) == "true"
[url=home.php?mod=space&uid=578904]@OBJECT[/url] = enemy.tool_data("Enemy Object = ", false) == "true"
@collapse_type = enemy.tool_data("Enemy Collapse Type = ", false)
@die_animation = enemy.tool_data("Enemy Die Animation = ")
@body_sized = enemy.tool_data("Enemy Body Increase = ")
@boss_hud = enemy.tool_data("Enemy Boss Bar = ", false) == "true"
@esensor = enemy.tool_data("Enemy Sensor = ")
@esensor = PearlKernel::Sensor if @esensor.nil?
@body_sized = 0 if @body_sized.nil?
@k_back_dis = enemy.tool_data("Enemy Knockback Disable = ",false) == "true"
@lowhp_99 = enemy.tool_data("Enemy Lowhp 99% Switch = ")
@lowhp_75 = enemy.tool_data("Enemy Lowhp 75% Switch = ")
@lowhp_50 = enemy.tool_data("Enemy Lowhp 50% Switch = ")
@lowhp_25 = enemy.tool_data("Enemy Lowhp 25% Switch = ")
@lowhp_10 = enemy.tool_data("Enemy Lowhp 10% Switch = ")
apply_kill_with_settings
end
def apply_kill_with_settings
wtag = enemy.tool_data("Enemy Kill With Weapon = ", false)
@kill_weapon = wtag.split(",").map { |s| s.to_i } if wtag != nil
atag = enemy.tool_data("Enemy Kill With Armor = ", false)
@kill_armor = atag.split(",").map { |s| s.to_i } if atag != nil
itag = enemy.tool_data("Enemy Kill With Item = ", false)
@kill_item = itag.split(",").map { |s| s.to_i } if itag != nil
stag = enemy.tool_data("Enemy Kill With Skill = ", false)
@kill_skill = stag.split(",").map { |s| s.to_i } if stag != nil
end
def has_kill_with?
!@kill_weapon.empty? || !@kill_armor.empty? || !@kill_item.empty? ||
!@kill_skill.empty?
end
end
# make refresh
class Game_BattlerBase
alias falcaopearl_erasestate erase_state
def erase_state(state_id)
falcaopearl_erasestate(state_id)
if self.is_a?(Game_Actor)
$game_player.refresh_skillbar = 4
end
end
end
class Game_Followers
def synchronize(x, y, d)
each do |follower|
next if follower.visible? and follower.battler.deadposing != nil
follower.moveto(x, y)
follower.set_direction(d)
end
end
end
class Game_Interpreter
alias falcaopearl_intsystem_command_201 command_201
def command_201
return if $game_player.any_collapsing?
falcaopearl_intsystem_command_201
end
end
#-------------------------------------------------------------------------------
写轮眼
发表于 2016-12-13 15:49:56
收藏
分享
提升卡
沉默号角
喧嚣号角
变色卡
升龙剑