1VIP 让这个图标战斗脚本响应鼠标

李梦遥 · 发表于 2011-8-24 20:17:11

本帖最后由李梦遥于 2011-8-25 19:33 编辑

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
module Momo_IconCommand
# 图标名称设定
ATTACK_ICON_NAME = "攻击" # 攻撃
SKILL_ICON_NAME = "法术" # 特技
GUARD_ICON_NAME = "防御" # 防御
ITEM_ICON_NAME = "道具" # 物品
BAOHU_ICON_NAME = "保护"
ZHAO_ICON_NAME = "召唤"
# X坐标修正
X_PLUS = 0 - 10
# Y坐标修正
Y_PLUS = 0 - 370
# 选择时图标的动作
# 0:静止 1:放大
SELECT_TYPE = 0
# 闪烁时光芒的颜色
FLASH_COLOR = Color.new(255, 255, 255, 128)
# 闪烁时间
FLASH_DURATION = 10
# 闪烁间隔
FLASH_INTERVAL = 40
# 是否写出文字的名称
COM_NAME_DROW = false
# 文字名称是否移动
COM_NAME_MOVE = false
# 文字内容
ATTACK_NAME = "攻击" # 攻击
SKILL_NAME = "特技" # 特技
GUARD_NAME = "防御" # 防御
ITEM_NAME = "物品" # 物品
BAOHU_NAME = "保护"
ZHAO_NAME = "召唤"
# 文字颜色
COM_NAME_COLOR = Color.new(255, 255, 255, 255)
# 文字坐标修正
COM_NAME_X_PLUS = 0
COM_NAME_Y_PLUS = 0
end
class Window_CommandIcon < Window_Selectable
attr_accessor :last_index
#--------------------------------------------------------------------------
# ● オブジェクト初期化
#--------------------------------------------------------------------------
def initialize(x, y, commands)
super(x, y, 32, 32)
# ウィンドウスキンに空文字列を指定してウィンドウを描画しないようにする
self.windowskin = RPG::Cache.windowskin("")
self.z = 9999
@item_max = commands.size #项目数
@commands = commands #指令数
@column_max = 1
@index = 0
@last_index = nil
@name_sprite = nil
@sprite = []
refresh
end
def dispose
super
for sprite in @sprite
sprite.dispose unless sprite.nil?
end
@name_sprite.dispose unless @name_sprite.nil?
end
#--------------------------------------------------------------------------
# ● リフレッシュ
#--------------------------------------------------------------------------
def refresh
@name_sprite.dispose unless @name_sprite.nil?
for sprite in @sprite
sprite.dispose unless sprite.nil?
end
@name_sprite = nil
draw_com_name if Momo_IconCommand::COM_NAME_DROW
@sprite = []
for i in 0...@item_max
draw_item(i)
end
end
#--------------------------------------------------------------------------
# ● 項目の描画
#--------------------------------------------------------------------------
def draw_item(index)
@sprite[index] = Sprite_Icon.new(nil, @commands[index])
@sprite[index].z = self.z + 1
end
def draw_com_name
@name_sprite = Sprite_Comm_Name.new(nil, get_com_name)
end
# 更新
def update
super
icon_update
com_name_update if Momo_IconCommand::COM_NAME_DROW
if move_index?
@last_index = self.index
end
end
# アイコンの更新
def icon_update
for i in [email protected]
@sprite[i].active = (self.index == i)
@sprite[i].x = self.x
@sprite[i].y = self.y + i*26
@sprite[i].z = (self.index == i) ? self.z + 2 : self.z + 1
@sprite[i].visible = self.visible
@sprite[i].update
end
end
# コマンドネームの更新
def com_name_update
if move_index?
@name_sprite.name = get_com_name
end
@name_sprite.x = self.x - 12 + Momo_IconCommand::COM_NAME_X_PLUS
@name_sprite.y = self.y - 40 + Momo_IconCommand::COM_NAME_Y_PLUS
@name_sprite.z = self.z + 1
@name_sprite.active = self.active
@name_sprite.visible = self.visible
@name_sprite.update
end
def get_com_name
make_name_set if @name_set.nil?
name = @name_set[self.index]
name = "" if name.nil?
return name
end
def make_name_set
@name_set = []
@name_set[0] = Momo_IconCommand::ATTACK_NAME
@name_set[1] = Momo_IconCommand::SKILL_NAME
@name_set[2] = Momo_IconCommand::GUARD_NAME
@name_set[3] = Momo_IconCommand::ITEM_NAME
@name_set[4] = Momo_IconCommand::BAOHU_NAME
@name_set[5] = Momo_IconCommand::ZHAO_NAME
end
def move_index?
return self.index != @last_index
end
def need_reset
@name_sprite.need_reset = true if Momo_IconCommand::COM_NAME_DROW
end
end
# アイコン用スプライト
class Sprite_Icon < Sprite
attr_accessor :active
attr_accessor :icon_name
#--------------------------------------------------------------------------
# ● オブジェクト初期化
#--------------------------------------------------------------------------
def initialize(viewport, icon_name)
super(viewport)
@icon_name = icon_name
@last_icon = @icon_name
@count = 0
self.bitmap = RPG::Cache.icon(@icon_name)
self.ox = self.bitmap.width / 2
self.oy = self.bitmap.height / 2
@active = false
end
#--------------------------------------------------------------------------
# ● 解放
#--------------------------------------------------------------------------
def dispose
if self.bitmap != nil
self.bitmap.dispose
end
super
end
#--------------------------------------------------------------------------
# ● フレーム更新
#--------------------------------------------------------------------------
def update
super
if @icon_name != @last_icon
@last_icon = @icon_name
self.bitmap = RPG::Cache.icon(@icon_name)
end
if @active
@count += 1
case Momo_IconCommand::SELECT_TYPE
when 0
icon_flash
when 1
icon_zoom
end
@count = 0 if @count == 20
else
icon_reset
end
end
def icon_flash
if @count % Momo_IconCommand::FLASH_INTERVAL == 0 or @count == 1
self.flash(Momo_IconCommand::FLASH_COLOR, Momo_IconCommand::FLASH_DURATION)
end
end
def icon_zoom
case @count
when 1..10
zoom = 1.0 + @count / 10.0
when 11..20
zoom = 2.0 - (@count - 10) / 10.0
end
self.zoom_x = zoom
self.zoom_y = zoom
end
def icon_reset
@count = 0
self.zoom_x = 1.0
self.zoom_y = 1.0
end
end
# コマンドネーム用スプライト
class Sprite_Comm_Name < Sprite
attr_accessor :active
attr_accessor :name
attr_accessor :need_reset
#--------------------------------------------------------------------------
# ● オブジェクト初期化
#--------------------------------------------------------------------------
def initialize(viewport, name)
super(viewport)
@name = name
@last_name = nil
@count = 0
@x_plus = 0
@opa_plus = 0
@need_reset = false
@active = false
self.bitmap = Bitmap.new(160, 32)
end
#--------------------------------------------------------------------------
# ● 解放
#--------------------------------------------------------------------------
def dispose
if self.bitmap != nil
self.bitmap.dispose
end
super
end
#--------------------------------------------------------------------------
# ● フレーム更新
#--------------------------------------------------------------------------
def update
super
if @active
if need_reset?
@need_reset = false
@last_name = @name
text_reset
end
move_text if Momo_IconCommand::COM_NAME_MOVE
end
end
def move_text
@count += 1
@x_plus = [@count * 8, 80].min
self.x = self.x - 80 + @x_plus
self.opacity = @count * 25
end
def text_reset
@count = 0
@x_plus = 0
self.bitmap.clear
self.bitmap.font.color = Momo_IconCommand::COM_NAME_COLOR
self.bitmap.draw_text(0, 0, 160, 32, @name)
end
def need_reset?
return (@name != @last_name or @need_reset)
end
end
class Scene_Battle
#--------------------------------------------------------------------------
# ● プレバトルフェーズ開始
#--------------------------------------------------------------------------
alias scene_battle_icon_command_start_phase1 start_phase1
def start_phase1
com1 = Momo_IconCommand::ATTACK_ICON_NAME
com2 = Momo_IconCommand::SKILL_ICON_NAME
com3 = Momo_IconCommand::GUARD_ICON_NAME
com4 = Momo_IconCommand::ITEM_ICON_NAME
com5 = Momo_IconCommand::BAOHU_ICON_NAME
com6 = Momo_IconCommand::ZHAO_ICON_NAME
@actor_command_window = Window_CommandIcon.new(0, 0, [com1, com2, com3, com4,com5,com6])
@actor_command_window.y = 160
@actor_command_window.back_opacity = 160
@actor_command_window.active = false
@actor_command_window.visible = false
@actor_command_window.update
@actor2_command_window = Window_CommandIcon.new(0, 0, [com1, com2, com3, com4,com5])
@actor2_command_window.y = 160
@actor2_command_window.back_opacity = 160
@actor2_command_window.active = false
@actor2_command_window.visible = false
@actor2_command_window.update
scene_battle_icon_command_start_phase1
end
#--------------------------------------------------------------------------
# ● アクターコマンドウィンドウのセットアップ
#--------------------------------------------------------------------------
alias scene_battle_icon_command_phase3_setup_command_window phase3_setup_command_window
def phase3_setup_command_window
scene_battle_icon_command_phase3_setup_command_window
# アクターコマンドウィンドウの位置を設定
@actor_command_window.x = command_window_actor_x(@actor_index) - 360
@actor_command_window.y = command_window_actor_y(@actor_index)
@actor_command_window.need_reset
@actor2_command_window.x = command_window_actor_x(@actor_index) - 360
@actor2_command_window.y = command_window_actor_y(@actor_index)
@actor2_command_window.need_reset
end
def command_window_actor_x(index)
$game_party.actors[index].screen_x + Momo_IconCommand::X_PLUS
end
def command_window_actor_y(index)
$game_party.actors[index].screen_y + Momo_IconCommand::Y_PLUS
end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

后知后觉 · 发表于 2011-8-25 23:12:35

本帖最后由后知后觉于 2011-8-26 10:07 编辑

在第 107 行

def icon_update

的下面加上这样的几行

if self.active
Mouse.click_unlock
mx,my = Mouse.get_mouse_pos
for i in [email protected]
if self.index != i
splx = self.x - @sprite[i].ox
sprx = self.x + @sprite[i].ox
spuy = self.y + i * 26 - @sprite[i].oy
spdy = self.y + i * 26 + @sprite[i].oy
if mx.between?(splx, sprx) and my.between?(spuy, spdy)
if @sprite[i].bitmap.get_pixel(mx - splx, my - spuy).alpha > 0
$game_system.se_play($data_system.cursor_se)
self.index = i
break
end
end
end
end
end

复制代码

李梦遥 · 发表于 2011-8-25 19:16:33

楼上你的方法解决不了，还有高手来解决不

liuziyuan201019 · 发表于 2011-8-25 07:46:44

这不是梦幻群侠传里的么？
本人复刻过！
但是想让其响应鼠标，需要一个很麻烦的坐标计算……
本人的图标战斗也有这样的问题，后来就是在图标后面加上一个窗口，
鼠标停在上面或点击，看起来是在图标那里，其实是在窗口那里
（我说那么多废话干什么？反正帮不了忙……）

liuziyuan201019于2011-8-25 10:41补充以下内容：
发现这个脚本并没有涉及到召唤、保护！
好办了，首先删掉关于图标选项的脚本（只是“破坏”一下），之后我发个脚本给你，
看看把这个用上能不能成功。
本人才疏学浅，不知道……

liuziyuan201019于2011-8-25 10:44补充以下内容：
对了，你把链接保护和召唤的语句发给我，
上面的东西密密麻麻的，很乱的说，
最好还是LZ亲自……

liuziyuan201019于2011-8-25 10:48补充以下内容：
#==============================================================================
# ■ Scene_Battle (分割定义 1)
#------------------------------------------------------------------------------
# 　处理战斗画面的类。
#==============================================================================

class Scene_Battle
  #--------------------------------------------------------------------------
  # ● 主处理
  #--------------------------------------------------------------------------
  def main
# 初始化战斗用的各种暂时数据
$game_temp.in_battle = true
$game_temp.battle_turn = 0
$game_temp.battle_event_flags.clear
$game_temp.battle_abort = false
$game_temp.battle_main_phase = false
$game_temp.battleback_name = $game_map.battleback_name
$game_temp.forcing_battler = nil
# 初始化战斗用事件解释器
$game_system.battle_interpreter.setup(nil, 0)
# 准备队伍
@troop_id = $game_temp.battle_troop_id
$game_troop.setup(@troop_id)
# 生成角色命令窗口
s1 = $data_system.words.attack
s2 = $data_system.words.skill
s3 = $data_system.words.guard
s4 = $data_system.words.item
s5 = "保护"
s6 = "召唤"
@actor_command_window = Window_Command.new(160, [s1, s2, s3, s4, s5, s6])
@actor_command_window.y = 120
@actor_command_window.back_opacity = 160
@actor_command_window.active = false
@actor_command_window.visible = false
# 生成其它窗口
@party_command_window = Window_PartyCommand.new
@help_window = Window_Help.new
@help_window.back_opacity = 160
@help_window.visible = false
@status_window = Window_BattleStatus.new
@message_window = Window_Message.new
# 生成活动块
@spriteset = Spriteset_Battle.new
# 初始化等待计数
@wait_count = 0
# 执行过渡
if $data_system.battle_transition == ""
   Graphics.transition(20)
else
   Graphics.transition(40, "Graphics/Transitions/" +
      $data_system.battle_transition)
end
# 开始自由战斗回合
start_phase1
# 主循环
loop do
   # 刷新游戏画面
   Graphics.update
   # 刷新输入信息
   Input.update
   # 刷新画面
   update
   # 如果画面切换的话就中断循环
   if $scene != self
      break
   end
end
# 刷新地图
$game_map.refresh
# 准备过渡
Graphics.freeze
# 释放窗口
@actor_command_window.dispose
@party_command_window.dispose
@help_window.dispose
@status_window.dispose
@message_window.dispose
if @skill_window != nil
   @skill_window.dispose
end
if @item_window != nil
   @item_window.dispose
end
if @result_window != nil
   @result_window.dispose
end
# 释放活动块
@spriteset.dispose
# 标题画面切换中的情况
if $scene.is_a?(Scene_Title)
   # 淡入淡出画面
   Graphics.transition
   Graphics.freeze
end
# 战斗测试或者游戏结束以外的画面切换中的情况
if $BTEST and not $scene.is_a?(Scene_Gameover)
   $scene = nil
end
  end
  #--------------------------------------------------------------------------
  # ● 胜负判定
  #--------------------------------------------------------------------------
  def judge
# 全灭判定是真、并且同伴人数为 0 的情况下
if $game_party.all_dead? or $game_party.actors.size == 0
   # 允许失败的情况下
   if $game_temp.battle_can_lose
      # 还原为战斗开始前的 BGM
      $game_system.bgm_play($game_temp.map_bgm)
      # 战斗结束
      battle_end(2)
      # 返回 true
      return true
   end
   # 设置游戏结束标志
   $game_temp.gameover = true
   # 返回 true
   return true
end
# 如果存在任意 1 个敌人就返回 false
for enemy in $game_troop.enemies
   if enemy.exist?
      return false
   end
end
# 开始结束战斗回合 (胜利)
start_phase5
# 返回 true
return true
  end
  #--------------------------------------------------------------------------
  # ● 战斗结束
  #    result : 結果 (0:胜利 1:失败 2:逃跑)
  #--------------------------------------------------------------------------
  def battle_end(result)
# 清除战斗中标志
$game_temp.in_battle = false
# 清除全体同伴的行动
$game_party.clear_actions
# 解除战斗用状态
for actor in $game_party.actors
   actor.remove_states_battle
end
# 清除敌人
$game_troop.enemies.clear
# 调用战斗返回
if $game_temp.battle_proc != nil
   $game_temp.battle_proc.call(result)
   $game_temp.battle_proc = nil
end
# 切换到地图画面
$scene = Scene_Map.new
  end
  #--------------------------------------------------------------------------
  # ● 设置战斗事件
  #--------------------------------------------------------------------------
  def setup_battle_event
# 正在执行战斗事件的情况下
if $game_system.battle_interpreter.running?
   return
end
# 搜索全部页的战斗事件
for index in 0...$data_troops[@troop_id].pages.size
   # 获取事件页
   page = $data_troops[@troop_id].pages[index]
   # 事件条件可以参考 c
   c = page.condition
   # 没有指定任何条件的情况下转到下一页
   unless c.turn_valid or c.enemy_valid or
         c.actor_valid or c.switch_valid
      next
   end
   # 执行完毕的情况下转到下一页
   if $game_temp.battle_event_flags[index]
      next
   end
   # 确认回合条件
   if c.turn_valid
      n = $game_temp.battle_turn
      a = c.turn_a
      b = c.turn_b
      if (b == 0 and n != a) or
         (b > 0 and (n < 1 or n < a or n % b != a % b))
      next
      end
   end
   # 确认敌人条件
   if c.enemy_valid
      enemy = $game_troop.enemies[c.enemy_index]
      if enemy == nil or enemy.hp * 100.0 / enemy.maxhp > c.enemy_hp
      next
      end
   end
   # 确认角色条件
   if c.actor_valid
      actor = $game_actors[c.actor_id]
      if actor == nil or actor.hp * 100.0 / actor.maxhp > c.actor_hp
      next
      end
   end
   # 确认开关条件
   if c.switch_valid
      if $game_switches[c.switch_id] == false
      next
      end
   end
   # 设置事件
   $game_system.battle_interpreter.setup(page.list, 0)
   # 本页的范围是 [战斗] 或 [回合] 的情况下
   if page.span <= 1
      # 设置执行结束标志
      $game_temp.battle_event_flags[index] = true
   end
   return
end
  end
  #--------------------------------------------------------------------------
  # ● 刷新画面
  #--------------------------------------------------------------------------
  def update
# 执行战斗事件中的情况下
if $game_system.battle_interpreter.running?
   # 刷新解释器
   $game_system.battle_interpreter.update
   # 强制行动的战斗者不存在的情况下
   if $game_temp.forcing_battler == nil
      # 执行战斗事件结束的情况下
      unless $game_system.battle_interpreter.running?
      # 继续战斗的情况下、再执行战斗事件的设置
      unless judge
         setup_battle_event
      end
      end
      # 如果不是结束战斗回合的情况下
      if @phase != 5
      # 刷新状态窗口
      @status_window.refresh
      end
   end
end
# 系统 (计时器)、刷新画面
$game_system.update
$game_screen.update
# 计时器为 0 的情况下
if $game_system.timer_working and $game_system.timer == 0
   # 中断战斗
   $game_temp.battle_abort = true
end
# 刷新窗口
@help_window.update
@party_command_window.update
@actor_command_window.update
@status_window.update
@message_window.update
# 刷新活动块
@spriteset.update
# 处理过渡中的情况下
if $game_temp.transition_processing
   # 清除处理过渡中标志
   $game_temp.transition_processing = false
   # 执行过渡
   if $game_temp.transition_name == ""
      Graphics.transition(20)
   else
      Graphics.transition(40, "Graphics/Transitions/" +
      $game_temp.transition_name)
   end
end
# 显示信息窗口中的情况下
if $game_temp.message_window_showing
   return
end
# 显示效果中的情况下
if @spriteset.effect?
   return
end
# 游戏结束的情况下
if $game_temp.gameover
   # 切换到游戏结束画面
   $scene = Scene_Gameover.new
   return
end
# 返回标题画面的情况下
if $game_temp.to_title
   # 切换到标题画面
   $scene = Scene_Title.new
   return
end
# 中断战斗的情况下
if $game_temp.battle_abort
   # 还原为战斗前的 BGM
   $game_system.bgm_play($game_temp.map_bgm)
   # 战斗结束
   battle_end(1)
   return
end
# 等待中的情况下
if @wait_count > 0
   # 减少等待计数
   @wait_count -= 1
   return
end
# 强制行动的角色存在、
# 并且战斗事件正在执行的情况下
if $game_temp.forcing_battler == nil and
   $game_system.battle_interpreter.running?
   return
end
# 回合分支
case @phase
when 1  # 自由战斗回合
   update_phase1
when 2  # 同伴命令回合
   update_phase2
when 3  # 角色命令回合
   update_phase3
when 4  # 主回合
   update_phase4
when 5  # 战斗结束回合
   update_phase5
end
  end
end

liuziyuan201019于2011-8-25 10:48补充以下内容：
#==============================================================================
# ■ Scene_Battle (分割定义 3)
#------------------------------------------------------------------------------
# 　处理战斗画面的类。
#==============================================================================

class Scene_Battle
  #--------------------------------------------------------------------------
  # ● 开始角色命令回合
  #--------------------------------------------------------------------------
  def start_phase3
# 转移到回合 3
@phase = 3
# 设置角色为非选择状态
@actor_index = -1
@active_battler = nil
# 输入下一个角色的命令
phase3_next_actor
  end
  #--------------------------------------------------------------------------
  # ● 转到输入下一个角色的命令
  #--------------------------------------------------------------------------
  def phase3_next_actor
# 循环
begin
   # 角色的明灭效果 OFF
   if @active_battler != nil
      @active_battler.blink = false
   end
   # 最后的角色的情况
   if @actor_index == $game_party.actors.size-1
      # 开始主回合
      start_phase4
      return
   end
   # 推进角色索引
   @actor_index += 1
   @active_battler = $game_party.actors[@actor_index]
   @active_battler.blink = true
# 如果角色是在无法接受指令的状态就再试
end until @active_battler.inputable?
# 设置角色的命令窗口
phase3_setup_command_window
  end
  #--------------------------------------------------------------------------
  # ● 转向前一个角色的命令输入
  #--------------------------------------------------------------------------
  def phase3_prior_actor
# 循环
begin
   # 角色的明灭效果 OFF
   if @active_battler != nil
      @active_battler.blink = false
   end
   # 最初的角色的情况下
   if @actor_index == 0
      # 开始同伴指令回合
      start_phase2
      return
   end
   # 返回角色索引
   @actor_index -= 1
   @active_battler = $game_party.actors[@actor_index]
   @active_battler.blink = true
# 如果角色是在无法接受指令的状态就再试
end until @active_battler.inputable?
# 设置角色的命令窗口
phase3_setup_command_window
  end
  #--------------------------------------------------------------------------
  # ● 设置角色指令窗口
  #--------------------------------------------------------------------------
  def phase3_setup_command_window
# 同伴指令窗口无效化
@party_command_window.active = false
@party_command_window.visible = false
# 角色指令窗口无效化
@actor_command_window.active = true
@actor_command_window.visible = true
# 设置角色指令窗口的位置
@actor_command_window.x = @actor_index * 160
# 设置索引为 0
@actor_command_window.index = 0
  end
  #--------------------------------------------------------------------------
  # ● 刷新画面 (角色命令回合)
  #--------------------------------------------------------------------------
  def update_phase3
# 敌人光标有效的情况下
if @enemy_arrow != nil
   update_phase3_enemy_select
# 角色光标有效的情况下
elsif @actor_arrow != nil
   update_phase3_actor_select
# 特技窗口有效的情况下
elsif @skill_window != nil
   update_phase3_skill_select
# 物品窗口有效的情况下
elsif @item_window != nil
   update_phase3_item_select
# 角色指令窗口有效的情况下
elsif @actor_command_window.active
   update_phase3_basic_command
end
  end
  #--------------------------------------------------------------------------
  # ● 刷新画面 (角色命令回合 : 基本命令)
  #--------------------------------------------------------------------------
  def update_phase3_basic_command
# 按下 B 键的情况下
if Input.trigger?(Input::B)
   # 演奏取消 SE
   $game_system.se_play($data_system.cancel_se)
   # 转向前一个角色的指令输入
   phase3_prior_actor
   return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
   # 角色指令窗口光标位置分之
   case @actor_command_window.index
         when 0  # 攻击
      # 演奏确定 SE
      $game_system.se_play($data_system.decision_se)
      # 设置行动
      @active_battler.current_action.kind = 0
      @active_battler.current_action.basic = 0
      # 开始选择敌人
      start_enemy_select
   when 1  # 特技
      # 演奏确定 SE
      $game_system.se_play($data_system.decision_se)
      # 设置行动
      @active_battler.current_action.kind = 1
      # 开始选择特技
      start_skill_select
   when 2  # 防御
      # 演奏确定 SE
      $game_system.se_play($data_system.decision_se)
      # 设置行动
      @active_battler.current_action.kind = 0
      @active_battler.current_action.basic = 1
      # 转向下一位角色的指令输入
      phase3_next_actor
   when 3  # 物品
      # 演奏确定 SE
      $game_system.se_play($data_system.decision_se)
      # 设置行动
      @active_battler.current_action.kind = 2
      # 开始选择物品
      start_item_select
   when 4 # 保护
      $game_system.se_play($data_system.decision_se)
      @active_battler.current_action.kind = 6
      start_actor_select
   when 5 # 召唤
      $game_system.se_play($data_system.decision_se)
      @active_battler.current_action.kind = 3
      start_bb_select

   end
   return
end
  end
  #--------------------------------------------------------------------------
  # ● 刷新画面 (角色命令回合 : 选择特技)
  #--------------------------------------------------------------------------
  def update_phase3_skill_select
# 设置特技窗口为可视状态
@skill_window.visible = true
# 刷新特技窗口
@skill_window.update
# 按下 B 键的情况下
if Input.trigger?(Input::B)
   # 演奏取消 SE
   $game_system.se_play($data_system.cancel_se)
   # 结束特技选择
   end_skill_select
   return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
   # 获取特技选择窗口现在选择的特技的数据
   @skill = @skill_window.skill
   # 无法使用的情况下
   if @skill == nil or not @active_battler.skill_can_use?(@skill.id)
      # 演奏冻结 SE
      $game_system.se_play($data_system.buzzer_se)
      return
   end
   # 演奏确定 SE
   $game_system.se_play($data_system.decision_se)
   # 设置行动
   @active_battler.current_action.skill_id = @skill.id
   # 设置特技窗口为不可见状态
   @skill_window.visible = false
   # 效果范围是敌单体的情况下
   if @skill.scope == 1
      # 开始选择敌人
      start_enemy_select
   # 效果范围是我方单体的情况下
   elsif @skill.scope == 3 or @skill.scope == 5
      # 开始选择角色
      start_actor_select
   # 效果范围不是单体的情况下
   else
      # 选择特技结束
      end_skill_select
      # 转到下一位角色的指令输入
      phase3_next_actor
   end
   return
end
  end
  #--------------------------------------------------------------------------
  # ● 刷新画面 (角色命令回合 : 选择物品)
  #--------------------------------------------------------------------------
  def update_phase3_item_select
# 设置物品窗口为可视状态
@item_window.visible = true
# 刷新物品窗口
@item_window.update
# 按下 B 键的情况下
if Input.trigger?(Input::B)
   # 演奏取消 SE
   $game_system.se_play($data_system.cancel_se)
   # 选择物品结束
   end_item_select
   return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
   # 获取物品窗口现在选择的物品资料
   @item = @item_window.item
   # 无法使用的情况下
   unless $game_party.item_can_use?(@item.id)
      # 演奏冻结 SE
      $game_system.se_play($data_system.buzzer_se)
      return
   end
   # 演奏确定 SE
   $game_system.se_play($data_system.decision_se)
   # 设置行动
   @active_battler.current_action.item_id = @item.id
   # 设置物品窗口为不可见状态
   @item_window.visible = false
   # 效果范围是敌单体的情况下
   if @item.scope == 1
      # 开始选择敌人
      start_enemy_select
   # 效果范围是我方单体的情况下
   elsif @item.scope == 3 or @item.scope == 5
      # 开始选择角色
      start_actor_select
   # 效果范围不是单体的情况下
   else
      # 物品选择结束
      end_item_select
      # 转到下一位角色的指令输入
      phase3_next_actor
   end
   return
end
  end
  #--------------------------------------------------------------------------
  # ● 刷新画面画面 (角色命令回合 : 选择敌人)
  #--------------------------------------------------------------------------
  def update_phase3_enemy_select
# 刷新敌人箭头
@enemy_arrow.update
# 按下 B 键的情况下
if Input.trigger?(Input::B)
   # 演奏取消 SE
   $game_system.se_play($data_system.cancel_se)
   # 选择敌人结束
   end_enemy_select
   return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
   # 演奏确定 SE
   $game_system.se_play($data_system.decision_se)
   # 设置行动
   @active_battler.current_action.target_index = @enemy_arrow.index
   # 选择敌人结束
   end_enemy_select
   # 显示特技窗口中的情况下
   if @skill_window != nil
      # 结束特技选择
      end_skill_select
   end
   # 显示物品窗口的情况下
   if @item_window != nil
      # 结束物品选择
      end_item_select
   end
   # 转到下一位角色的指令输入
   phase3_next_actor
end
  end
  #--------------------------------------------------------------------------
  # ● 画面更新 (角色指令回合 : 选择角色)
  #--------------------------------------------------------------------------
  def update_phase3_actor_select
# 刷新角色箭头
@actor_arrow.update
# 按下 B 键的情况下
if Input.trigger?(Input::B)
   # 演奏取消 SE
   $game_system.se_play($data_system.cancel_se)
   # 选择角色结束
   end_actor_select
   return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
   # 演奏确定 SE
   $game_system.se_play($data_system.decision_se)
   # 设置行动
   @active_battler.current_action.target_index = @actor_arrow.index
   # 选择角色结束
   end_actor_select
   # 显示特技窗口中的情况下
   if @skill_window != nil
      # 结束特技选择
      end_skill_select
   end
   # 显示物品窗口的情况下
   if @item_window != nil
      # 结束物品选择
      end_item_select
   end
   # 转到下一位角色的指令输入
   phase3_next_actor
end
  end
  #--------------------------------------------------------------------------
  # ● 开始选择敌人
  #--------------------------------------------------------------------------
  def start_enemy_select
# 生成敌人箭头
@enemy_arrow = Arrow_Enemy.new(@spriteset.viewport1)
# 关联帮助窗口
@enemy_arrow.help_window = @help_window
# 无效化角色指令窗口
@actor_command_window.active = false
@actor_command_window.visible = false
  end
  #--------------------------------------------------------------------------
  # ● 结束选择敌人
  #--------------------------------------------------------------------------
  def end_enemy_select
# 释放敌人箭头
@enemy_arrow.dispose
@enemy_arrow = nil
# 指令为 [战斗] 的情况下
if @actor_command_window.index == 0
   # 有效化角色指令窗口
   @actor_command_window.active = true
   @actor_command_window.visible = true
   # 隐藏帮助窗口
   @help_window.visible = false
end
  end
  #--------------------------------------------------------------------------
  # ● 开始选择角色
  #--------------------------------------------------------------------------
  def start_actor_select
# 生成角色箭头
@actor_arrow = Arrow_Actor.new(@spriteset.viewport2)
@actor_arrow.index = @actor_index
# 关联帮助窗口
@actor_arrow.help_window = @help_window
# 无效化角色指令窗口
@actor_command_window.active = false
@actor_command_window.visible = false
  end
  #--------------------------------------------------------------------------
  # ● 结束选择角色
  #--------------------------------------------------------------------------
  def end_actor_select
# 释放角色箭头
@actor_arrow.dispose
@actor_arrow = nil
  end
  #--------------------------------------------------------------------------
  # ● 开始选择特技
  #--------------------------------------------------------------------------
  def start_skill_select
# 生成特技窗口
@skill_window = Window_Skill.new(@active_battler)
# 关联帮助窗口
@skill_window.help_window = @help_window
# 无效化角色指令窗口
@actor_command_window.active = false
@actor_command_window.visible = false
  end
  #--------------------------------------------------------------------------
  # ● 选择特技结束
  #--------------------------------------------------------------------------
  def end_skill_select
# 释放特技窗口
@skill_window.dispose
@skill_window = nil
# 隐藏帮助窗口
@help_window.visible = false
# 有效化角色指令窗口
@actor_command_window.active = true
@actor_command_window.visible = true
  end
  #--------------------------------------------------------------------------
  # ● 开始选择物品
  #--------------------------------------------------------------------------
  def start_item_select
# 生成物品窗口
@item_window = Window_Item.new
# 关联帮助窗口
@item_window.help_window = @help_window
# 无效化角色指令窗口
@actor_command_window.active = false
@actor_command_window.visible = false
  end
  #--------------------------------------------------------------------------
  # ● 结束选择物品
  #--------------------------------------------------------------------------
  def end_item_select
# 释放物品窗口
@item_window.dispose
@item_window = nil
# 隐藏帮助窗口
@help_window.visible = false
# 有效化角色指令窗口
@actor_command_window.active = true
@actor_command_window.visible = true
  end
end

liuziyuan201019于2011-8-25 10:49补充以下内容：
如果脚本错误，则一定是链接语句出现问题……
LZ自己改哈！

李梦遥 · 发表于 2011-8-24 20:22:10

本帖最后由李梦遥于 2011-8-25 09:00 编辑

你能帮忙不，~~

鼠标脚本

#==============================================================================
# ■ 完整鼠标系统(八方向)
#------------------------------------------------------------------------------
# 　使用时务必配合专用寻路算法
# By whbm
#==============================================================================
#下面做一下介绍与使用说明：
# 在屏幕上单击鼠标的时候，会自动进行寻路，这里为了速度更快并且为了进行迷
#宫时的难度寻路被限定在当时的屏幕内部。（否则玩家直接点到终点，呵呵....知道
#后果了吧）
# 在角色移动过程中再次单击鼠标（即双击）并在单击第二次鼠标的时候不松手，
#角色将会跟随鼠标方向移动。（这个应该好理解，不用多说吧）当角色贴着欲被启动
#的事件的时候，单击NPC即可启动事件。若未贴着，将会产生自动寻路到NPC附近的某
#点，那时在单击NPC即可。
# 当鼠标停在某些事件上时候会发现有不同的图标，设置方法为：宝箱事件请在事
#件的执行内容中添加注释，注释内容为 Item 注意大小写。NPC事件请在事件的执行
#内容中添加注释注释内容为 NPC 注意大小写。若不箱改变某事件的图标，则不要写
#那两个注释。
# 当把脚本转到您工程的时候千万别忘了那个寻路用的脚本。
#==============================================================================
class Game_Event
attr_accessor :flag
end
#==============================================================================
# ■ Game_Map
#------------------------------------------------------------------------------
# 　处理地图的类。包含卷动以及可以通行的判断功能。
# 本类的实例请参考 $game_map 。
#==============================================================================
class Game_Map
def show_rate(event)
return 1
end
#--------------------------------------------------------------------------
# ● 检查鼠标处是否有自定义的事件并返回类型
#--------------------------------------------------------------------------
def check_event_custom(mouse_x, mouse_y)
for event in $game_map.events.values #循环所有事件检查
rate = show_rate(event)
event_width = (RPG::Cache.character(event.character_name,event.character_hue).width / $c3_每一步的帧数) * rate
event_height = (RPG::Cache.character(event.character_name,event.character_hue).height / 8) * rate
if mouse_x > event.screen_x - event_width / 2 and mouse_x < event.screen_x + event_width / 2 and mouse_y + 32 > event.screen_y + 32 - event_height and mouse_y + 32 < event.screen_y + 32
for i in 0...event.list.size
if event.list[i].parameters[0] == "Item" #类型判断
event.flag = 1
elsif event.list[i].parameters[0] == "Npc" #类型判断
event.flag = 2
else
event.flag = 0 if $game_player.get_mouse_sta != 2 #无标志
end
return event.flag #返回事件类型标志
end
end
end
return 0 if $game_player.get_mouse_sta != 2 #如果不是在跟随鼠标状态，则返回无标志
return $mouse_icon_id #使鼠标图不变化
end
#--------------------------------------------------------------------------
# ● 检查鼠标处是否有事件可以开启
#--------------------------------------------------------------------------
def check_event_custom_start(mouse_x, mouse_y)
for event in $game_map.events.values #循环所有事件检查
#事件角色图片宽度、高度
rate = show_rate(event)
event_width = (RPG::Cache.character(event.character_name,event.character_hue).width / $c3_每一步的帧数) * rate
event_height = (RPG::Cache.character(event.character_name,event.character_hue).height / 8) * rate
#判断是否鼠标在事件上
if mouse_x > event.screen_x - event_width / 2 and mouse_x < event.screen_x + event_width / 2 and mouse_y + 32 > event.screen_y + 32 - event_height and mouse_y + 32 < event.screen_y + 32
way_x = $game_player.x - event.x
way_y = $game_player.y - event.y
if [1,0,-1].include?($game_player.x-event.x) and [1,0,-1].include?($game_player.y-event.y)
for i in 0...event.list.size
if ["Item","Npc"].include?(event.list[i].parameters[0]) #当事件属于自定义事件
#判断主角朝向
if way_x == -1
p_direction = 3 if way_y == -1
p_direction = 6 if way_y == 0
p_direction = 9 if way_y == 1
elsif way_x == 0
p_direction = 2 if way_y == -1
p_direction = 8 if way_y == 1
else
p_direction = 1 if way_y == -1
p_direction = 4 if way_y == 0
p_direction = 7 if way_y == 1
end
event.start #开启事件
return 1, p_direction #返回即将开启事件以及角色朝向
end
end
end
end
end
return 0, 5 #返回不会开启事件以及角色朝向不变
end
#--------------------------------------------------------------------------
# ● 检查鼠标处是否存在自定义事件 for 寻路
#--------------------------------------------------------------------------
def check_event_custom_exist(mouse_x, mouse_y)
for event in $game_map.events.values #循环所有事件检查
#事件角色图片宽度、高度
rate = show_rate(event)
event_width = (RPG::Cache.character(event.character_name,event.character_hue).width / $c3_每一步的帧数) * rate
event_height = (RPG::Cache.character(event.character_name,event.character_hue).height / 8) * rate
if mouse_x > event.screen_x - event_width / 2 and mouse_x < event.screen_x + event_width / 2 and mouse_y + 32 > event.screen_y + 32 - event_height and mouse_y + 32 < event.screen_y + 32
for i in 0...event.list.size
return 1, event if ["Item", "Npc"].include?(event.list[i].parameters[0]) #返回存在自定义事件以及事件体
end
end
end
return 0, event #返回不存在自定义事件，以及事件体
end
end
#=================以下两个用来调整战斗时的手感问题，可以自己试试。
$敌人选框扩大 = 20
$角色选框扩大 = 30
#==============================================================================
# ● API调用
#==============================================================================
$ShowCursor = Win32API.new("user32", "ShowCursor", 'i', 'l')
$GetCursorPos = Win32API.new("user32", "GetCursorPos", 'p', 'i')
$ScreenToClient = Win32API.new("user32", "ScreenToClient", 'ip', 'i')
$GetActiveWindow = Win32API.new("user32", "GetActiveWindow", nil, 'l')
$Window_HWND = $GetActiveWindow.call
$GetKeyState = Win32API.new("user32", "GetKeyState", 'i', 'i')
module Mouse
LEFT = 0x01
RIGHT = 0x02
def self.init(sprite = nil)
$ShowCursor.call(0)
@show_cursor = false
@mouse_sprite = Sprite.new
@mouse_sprite.z = 99999
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/木剑')
@left_press = false
@right_press = false
@left_trigger = false
@right_trigger = false
@left_repeat = false
@right_repeat = false
@click_lock = false
update
end
def self.exit
@mouse_sprite.bitmap.dispose
@mouse_sprite.dispose
@show_cursor = true
$ShowCursor.call(1)
end
def self.mouse_debug
return @mouse_debug.bitmap
end
def self.update
left_down = $GetKeyState.call(0x01)
right_down = $GetKeyState.call(0x02)
if Graphics.frame_count * 3 / Graphics.frame_rate != @total_sec
@total_sec = Graphics.frame_count * 3 / Graphics.frame_rate
@a = !@a
end
if $scene.is_a?(Scene_Map) == false
$mouse_icon_id = 0
end
if $mouse_icon_id != $mouse_icon_id_last
case $mouse_icon_id
when 1
if @a
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/GetItem1')
else
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/GetItem2')
end
when 2
if @a
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/TalkTo1')
else
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/TalkTo2')
end
when 11
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_LOWER_LEFT')
when 12
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_DOWN')
when 13
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_LOWER_RIGHT')
when 14
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_LEFT')
when 16
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_RIGHT')
when 17
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_UPPER_LEFT')
when 18
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_UP')
when 19
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/Mouse_UPPER_RIGHT')
when 0
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/木剑')
end
$mouse_icon_id_last = $mouse_icon_id
end
@click_lock = false
mouse_x, mouse_y = self.get_mouse_pos
if @mouse_sprite != nil
@mouse_sprite.x = mouse_x
@mouse_sprite.y = mouse_y
end
if left_down[7] == 1
@left_repeat = (not @left_repeat)
@left_trigger = (not @left_press)
@left_press = true
else
@left_press = false
@left_trigger = false
@left_repeat = false
end
if right_down[7] == 1
@right_repeat = (not @right_repeat)
@right_trigger = (not @right_press)
@right_press = true
else
@right_press = false
@right_trigger = false
@right_repeat = false
end
end
def self.get_mouse_pos
point_var = [0, 0].pack('ll')
if $GetCursorPos.call(point_var) != 0
if $ScreenToClient.call($Window_HWND, point_var) != 0
x, y = point_var.unpack('ll')
if (x < 0) or (x > 10000) then x = 0 end
if (y < 0) or (y > 10000) then y = 0 end
if x > 640 then x = 640 end
if y > 480 then y = 480 end
return x, y
else
return 0, 0
end
else
return 0, 0
end
end
def self.press?(mouse_code)
if mouse_code == LEFT
if @click_lock
return false
else
return @left_press
end
elsif mouse_code == RIGHT
return @right_press
else
return false
end
end
def self.trigger?(mouse_code)
if mouse_code == LEFT
if @click_lock
return false
else
return @left_trigger
end
elsif mouse_code == RIGHT
return @right_trigger
else
return false
end
end
def self.repeat?(mouse_code)
if mouse_code == LEFT
if @click_lock
return false
else
return @left_repeat
end
elsif mouse_code == RIGHT
return @right_repeat
else
return false
end
end
def self.click_lock?
return @click_lock
end
def self.click_lock
@click_lock = true
end
def self.click_unlock
@click_lock = false
end
end
module Input
if @self_update == nil
@self_update = method('update')
@self_press = method('press?')
@self_trigger = method('trigger?')
@self_repeat = method('repeat?')
end
def self.update
@self_update.call
Mouse.update
end
def self.press?(key_code)
if @self_press.call(key_code)
return true
end
if key_code == C
return Mouse.press?(Mouse::LEFT)
elsif key_code == B
return Mouse.press?(Mouse::RIGHT)
else
return @self_press.call(key_code)
end
end
def self.trigger?(key_code)
if @self_trigger.call(key_code)
return true
end
if key_code == C
return Mouse.trigger?(Mouse::LEFT)
elsif key_code == B
return Mouse.trigger?(Mouse::RIGHT)
else
return @self_trigger.call(key_code)
end
end
def self.repeat?(key_code)
if @self_repeat.call(key_code)
return true
end
if key_code == C
return Mouse.repeat?(Mouse::LEFT)
elsif key_code == B
return Mouse.repeat?(Mouse::RIGHT)
else
return @self_repeat.call(key_code)
end
end
end
class Window_Selectable
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
self_update
if self.active and @item_max > 0
index_var = @index
tp_index = @index
mouse_x, mouse_y = Mouse.get_mouse_pos
mouse_not_in_rect = true
for i in 0...@item_max
@index = i
update_cursor_rect
top_x = self.cursor_rect.x + self.x + 16
top_y = self.cursor_rect.y + self.y + 16
bottom_x = top_x + self.cursor_rect.width
bottom_y = top_y + self.cursor_rect.height
if (mouse_x > top_x) and (mouse_y > top_y) and
(mouse_x < bottom_x) and (mouse_y < bottom_y)
mouse_not_in_rect = false
if tp_index != @index
tp_index = @index
$game_system.se_play($data_system.cursor_se)
end
break
end
end
if mouse_not_in_rect
@index = index_var
update_cursor_rect
Mouse.click_lock
else
Mouse.click_unlock
end
end
end
end
class Window_NameInput
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
self_update
if self.active
index_var = @index
mouse_x, mouse_y = Mouse.get_mouse_pos
mouse_not_in_rect = true
for i in (0...CHARACTER_TABLE.size).to_a.push(180)
@index = i
update_cursor_rect
top_x = self.cursor_rect.x + self.x + 16
top_y = self.cursor_rect.y + self.y + 16
bottom_x = top_x + self.cursor_rect.width
bottom_y = top_y + self.cursor_rect.height
if (mouse_x > top_x) and (mouse_y > top_y) and
(mouse_x < bottom_x) and (mouse_y < bottom_y)
mouse_not_in_rect = false
break
end
end
if mouse_not_in_rect
@index = index_var
update_cursor_rect
Mouse.click_lock
else
Mouse.click_unlock
end
end
end
end
class Window_InputNumber
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
self_update
mouse_x, mouse_y = Mouse.get_mouse_pos
if self.active and @digits_max > 0
index_var = @index
mouse_not_in_rect = true
for i in 0...@digits_max
@index = i
update_cursor_rect
top_x = self.cursor_rect.x + self.x + 16
bottom_x = top_x + self.cursor_rect.width
if (mouse_x > top_x) and (mouse_x < bottom_x)
mouse_not_in_rect = false
break
end
end
if mouse_not_in_rect
@index = index_var
update_cursor_rect
Mouse.click_lock
else
Mouse.click_unlock
end
end
if @last_mouse_y == nil
@last_mouse_y = mouse_y
end
check_pos = (@last_mouse_y - mouse_y).abs
if check_pos > 10
$game_system.se_play($data_system.cursor_se)
place = 10 ** (@digits_max - 1 - @index)
n = @number / place % 10
@number -= n * place
n = (n + 1) % 10 if mouse_y < @last_mouse_y
n = (n + 9) % 10 if mouse_y > @last_mouse_y
@number += n * place
refresh
@last_mouse_y = mouse_y
end
end
end
class Scene_File
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
mouse_x, mouse_y = Mouse.get_mouse_pos
Mouse.click_lock
idx = 0
for i in @savefile_windows
top_x = i.x + 16
top_y = i.y + 16
bottom_x = top_x + i.width
bottom_y = top_y + i.height
if (mouse_x > top_x) and (mouse_y > top_y) and
(mouse_x < bottom_x) and (mouse_y < bottom_y)
i.selected = true
if @file_index != idx
@file_index = idx
$game_system.se_play($data_system.cursor_se)
end
Mouse.click_unlock
else
i.selected = false
end
idx += 1
end
self_update
end
end
class Arrow_Enemy
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
mouse_x, mouse_y = Mouse.get_mouse_pos
idx = 0
for i in $game_troop.enemies do
if i.exist?
top_x = i.screen_x - self.ox
top_y = i.screen_y - self.oy
bottom_x = top_x + self.src_rect.width
bottom_y = top_y + self.src_rect.height
if (mouse_x > top_x - $敌人选框扩大) and (mouse_y > top_y - $敌人选框扩大) and
(mouse_x < bottom_x + $敌人选框扩大) and (mouse_y < bottom_y + $敌人选框扩大)
if @index != idx
$game_system.se_play($data_system.cursor_se)
@index = idx
end
end
end
idx += 1
end
self_update
end
end
class Arrow_Actor
if @self_alias == nil
alias self_update update
@self_alias = true
end
def update
mouse_x, mouse_y = Mouse.get_mouse_pos
idx = 0
for i in $game_party.actors do
if i.exist?
top_x = i.screen_x - self.ox
top_y = i.screen_y - self.oy
bottom_x = top_x + self.src_rect.width
bottom_y = top_y + self.src_rect.height
if (mouse_x > top_x - $角色选框扩大) and (mouse_y > top_y - $角色选框扩大) and
(mouse_x < bottom_x + $角色选框扩大) and (mouse_y < bottom_y + $角色选框扩大)
if @index != idx
$game_system.se_play($data_system.cursor_se)
@index = idx
end
end
end
idx += 1
end
self_update
end
end
#==============================================================================
# ■ Game_Player
#------------------------------------------------------------------------------
# 　处理主角的类。事件启动的判定、以及地图的滚动等功能。
# 本类的实例请参考 $game_player。
# 鼠标控制角色的主程序
#==============================================================================
class Game_Player
if @self_alias == nil
alias self_update update
@self_alias = true
end
#--------------------------------------------------------------------------
# ● 得到鼠标的状态
#--------------------------------------------------------------------------
def get_mouse_sta
return @mouse_sta
end
#--------------------------------------------------------------------------
# ● 完整鼠标系统
#--------------------------------------------------------------------------
def update
mouse_x, mouse_y = Mouse.get_mouse_pos
@mtp_x = mouse_x
@mtp_y = mouse_y
unless $game_system.map_interpreter.running? and @mouse_sta == 2 #鼠标状态不为跟随状态
#得到鼠标图标方向
$mouse_icon_id = $game_map.check_event_custom(mouse_x,mouse_y) if not [11, 12, 13, 14, 16, 17, 18, 19].include?($mouse_icon_id)
else
#令鼠标图标为正常
$mouse_icon_id = 0 if @mouse_sta != 2
end
#单击鼠标时进行判断寻路或跟随
if Mouse.trigger?(Mouse::LEFT) #当点击鼠标时
unless $game_system.map_interpreter.running? or
@move_route_forcing or $game_temp.message_window_showing #各种无效情况的排除
#初始化
@mouse_sta = 1
p_direction = 5
#检查鼠标处能否开启事件
event_start,p_direction = $game_map.check_event_custom_start(mouse_x, mouse_y)
#若在移动中再次点击鼠标左键（即双击左键)，则改鼠标状态为跟随状态
@mouse_sta = 2 if @paths_id != nil and @paths_id != @paths.size
if @mouse_sta != 2
#鼠标状态不为跟随状态则取数据并初始化路径
trg_x = (mouse_x + $game_map.display_x / 4) / 32
trg_y = (mouse_y + $game_map.display_y / 4) / 32
@paths = []
@paths_id = 0
if event_start == 0 #若不能开启事件
if trg_x != $game_player.x or trg_y != $game_player.y #若目标不为自身则开始寻路
# find_path = Find_Path.new
# @paths = find_path.find_player_short_path(trg_x, trg_y, @mtp_x, @mtp_y)
end
else #若能开启事件则改变角色朝向
@direction = p_direction
end
end
end
end
#开始移动
if @mouse_sta != nil and @mouse_sta == 1 #若鼠标状态为寻路状态
unless moving? or $game_system.map_interpreter.running? or
@move_route_forcing or $game_temp.message_window_showing #排除无效情况
if @paths_id != nil and @paths != nil and @paths_id <= @paths.size #若没有完成路径
case @paths[@paths_id] #判断路径
when 6
@last_move_x = true
move_right
@paths_id += 1
@direction = 6
when 4
@last_move_x = true
move_left
@paths_id += 1
@direction = 4
when 2
@last_move_x = false
move_down
@direction = 2
@paths_id += 1
when 8
@last_move_x = false
move_up
@direction = 8
@paths_id += 1
#斜四方向
when 1
@last_move_x = false
move_lower_left
@direction = 1
@paths_id += 1
when 3
@last_move_x = false
move_lower_right
@direction = 3
@paths_id += 1
when 7
@last_move_x = false
move_upper_left
@direction = 7
@paths_id += 1
when 9
@last_move_x = false
move_upper_right
@direction = 9
@paths_id += 1
end
end
end
elsif @paths != nil and @mouse_sta == 2 #当鼠标状态为跟随，且在移动中
if Mouse.press?(Mouse::LEFT) #持续按住鼠标
unless moving? or $game_system.map_interpreter.running? or
@move_route_forcing or $game_temp.message_window_showing #排除无效情况
#跟随方向判断并跟随
rate = $game_map.show_rate(self)
width = (RPG::Cache.character(self.character_name,self.character_hue).width / $c3_每一步的帧数) * rate
height = (RPG::Cache.character(self.character_name,self.character_hue).height / 8) * rate
self_ox = (self.screen_x - width / 2 + self.screen_x + width / 2) / 2
self_oy = (self.screen_y - height + self.screen_y) / 2
#self_ox = self.screen_x
#self_oy = self.screen_y
if (@mtp_x - self_ox)*(@mtp_x - self_ox) + (@mtp_y - self_oy)*(@mtp_y - self_oy) >= 961
if @mtp_x > self_ox
if self_oy - @mtp_y < 0.4 * (@mtp_x - self_ox) and
@mtp_y - self_oy < 0.4 * (@mtp_x - self_ox)
move_right
$mouse_icon_id = 16
@direction = 6
end
if @mtp_y - self_oy > - 0.4 * ( self_ox - @mtp_x ) and
@mtp_y - self_oy < - 2.4 * ( self_ox - @mtp_x )
move_lower_right
$mouse_icon_id = 13
@direction = 3
end
if @mtp_y - self_oy < 0.4 * ( self_ox - @mtp_x ) and
@mtp_y - self_oy > 2.4 * ( self_ox - @mtp_x )
move_upper_right
$mouse_icon_id = 19
@direction = 9
end
if @mtp_y - self_oy > 2.4 * ( @mtp_x - self_ox )
move_down
$mouse_icon_id = 12
@direction = 2
end
if @mtp_y - self_oy < - 2.4 * ( @mtp_x - self_ox )
move_up
$mouse_icon_id = 18
@direction = 8
end
end
if @mtp_x < self_ox
if @mtp_y - self_oy > - 0.4 * ( self_ox - @mtp_x ) and
@mtp_y - self_oy < 0.4 * ( self_ox - @mtp_x )
move_left
$mouse_icon_id = 14
@direction = 4
end
if @mtp_y - self_oy > 0.4 * ( self_ox - @mtp_x ) and
@mtp_y - self_oy < 2.4 * ( self_ox - @mtp_x )
move_lower_left
$mouse_icon_id = 11
@direction = 1
end
if @mtp_y - self_oy < - 0.4 * ( self_ox - @mtp_x ) and
@mtp_y - self_oy > - 2.4 * ( self_ox - @mtp_x )
move_upper_left
$mouse_icon_id = 17
@direction = 7
end
if @mtp_y - self_oy > 2.4 * ( self_ox - @mtp_x )
move_down
$mouse_icon_id = 12
@direction = 2
end
if @mtp_y - self_oy < - 2.4 * ( self_ox - @mtp_x )
move_up
$mouse_icon_id = 18
@direction = 8
end
end
end
#...................................................................
if @mtp_x > self_ox
if @mtp_y - self_oy > - 0.4 * ( @mtp_x - self_ox ) and
@mtp_y - self_oy < 0.4 * ( @mtp_x - self_ox )
$mouse_icon_id = 16
@direction = 6
end
if @mtp_y - self_oy > 0.4 * ( @mtp_x - self_ox ) and
@mtp_y - self_oy < 2.4 * ( @mtp_x - self_ox )
$mouse_icon_id = 13
@direction = 3
end
if @mtp_y - self_oy < - 0.4 * ( @mtp_x - self_ox ) and
@mtp_y - self_oy > - 2.4 * ( @mtp_x - self_ox )
$mouse_icon_id = 19
@direction = 9
end
if @mtp_y - self_oy > 2.4 * ( @mtp_x - self_ox )
$mouse_icon_id = 12
@direction = 2
end
if @mtp_y - self_oy < - 2.4 * ( @mtp_x - self_ox )
$mouse_icon_id = 18
@direction = 8
end
end
if @mtp_x < self_ox
if @mtp_y - self_oy > - 0.4 * ( self_ox - @mtp_x ) and
@mtp_y - self_oy < 0.4 * ( self_ox - @mtp_x )
$mouse_icon_id = 14
@direction = 4
end
if @mtp_y - self_oy > 0.4 * ( self_ox - @mtp_x ) and
@mtp_y - self_oy < 2.4 * ( self_ox - @mtp_x )
$mouse_icon_id = 11
@direction = 1
end
if @mtp_y - self_oy < - 0.4 * ( self_ox - @mtp_x ) and
@mtp_y - self_oy > - 2.4 * ( self_ox - @mtp_x )
$mouse_icon_id = 17
@direction = 7
end
if @mtp_y - self_oy > 2.4 * ( self_ox - @mtp_x )
$mouse_icon_id = 12
@direction = 2
end
if @mtp_y - self_oy < - 2.4 * ( self_ox - @mtp_x )
$mouse_icon_id = 18
@direction = 8
end
end
#...................................................................
end
else #没状态的情况
$mouse_icon_id = 0
@mouse_sta = 0
@paths_id = @paths.size #终止寻路移动
end
end
self_update
end
end
Mouse.init
END { Mouse.exit }

复制代码

各种压力的猫君 · 发表于 2011-8-24 20:20:27

首先说明我不懂改

① LZ请贴出你用的鼠标脚本
② LZ请改标题
③ LZ请提高悬赏

帐号		自动登录	找回密码
密码			注册会员

[已经解决] 1VIP 让这个图标战斗脚本响应鼠标

评分

点评

点评

贵宾