设为首页收藏本站|繁體中文

Project1

 找回密码
 注册会员
搜索
查看: 2353|回复: 5
打印 上一主题 下一主题

[已经过期] 《少年一炷香》鼠标系统怎么不能在“名称输入处理”中...

[复制链接]

Lv1.梦旅人

梦石
0
星屑
130
在线时间
137 小时
注册时间
2008-10-7
帖子
236
跳转到指定楼层
1
 楼主| 发表于 2013-2-16 11:22:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

加入我们,或者,欢迎回来。

您需要 登录 才可以下载或查看,没有帐号?注册会员

x
本帖最后由 惊天动地 于 2013-2-16 12:35 编辑

大家好!柳大好!
   我下了柳大的开源 《少年一炷香》,柳大说供学习之用,我就学习了,少年一炷香》里面的鼠标操作 在商店里 用不了,名称输入处理 也用不了鼠标,很可惜觉得,怎样才能改成在商店、在名称输入处理也能点击的那种啊? 谢谢柳柳的高风亮节,谢谢大家,敬请指导啊

Lv1.梦旅人

梦石
0
星屑
75
在线时间
435 小时
注册时间
2012-7-31
帖子
796
2
发表于 2013-2-16 14:26:00 | 只看该作者
少侠一炷香那个是独立游戏,脚本全都改过了= =
还是用站里的鼠标脚本吧。

评分

参与人数 1星屑 +20 收起 理由
怪蜀黍 + 20 我很赞同

查看全部评分

回复 支持 反对

使用道具 举报

Lv1.梦旅人

梦石
0
星屑
38
在线时间
1165 小时
注册时间
2012-3-16
帖子
5336
3
发表于 2013-2-16 14:55:31 | 只看该作者
如果你要用少年一炷香来改的话最好不要用事件进行操作,因为脚本全改了,默认的用不了~

评分

参与人数 1星屑 +20 收起 理由
怪蜀黍 + 20 我很赞同

查看全部评分

我想要到的是保护同伴的力量,能与同伴一起欢笑的未来的力量,如果无法做到的话,那就无需继承,如果是这样的彭格列的话,那我亲手毁掉它!
  
                       欢迎加入我们的家族~
回复 支持 反对

使用道具 举报

Lv1.梦旅人

梦石
0
星屑
130
在线时间
137 小时
注册时间
2008-10-7
帖子
236
4
 楼主| 发表于 2013-2-16 15:05:57 | 只看该作者
这是柳柳的鼠标脚本,能行走,就是不能商店 和名称处理,大家看看帮着改成能在名称处理里用的,谢谢

#==============================================================================
# ■ [VX] 鼠标系统核心(依赖于dll)
#    [VX] Mouse_System(depend on dll)
#----------------------------------------------------------------------------
# 使用说明:
#
#    利用紫苏提供的winproc,而写的新鼠标系统,跟外站那个完全不相干了
#
#    在使用RM精灵伪造鼠标光标时,利用WM_SETFOCUS和WM_KILLFOCUS消息解决了F1窗口
#    不显示鼠标问题.
#
#    也提供另一种选择:
#    允许使用系统光标(即cur或ani后缀的光标文件),由配置模块TrueMouse参数设定
#    由于光标文件不是rgss支持的格式,在指定文件时,最好包含后缀.
#
#     ** 注意: 开启TrueMouse时会关闭全屏模式,因为全屏下光标不可见
#    ------------------------------------------------------------------------
#    提供的主要方法如下:
#     Mouse.pos
#       提供鼠标坐标,返回值是个数组,格式为[x,y]
#     Mouse.area?(rect)
#       判断鼠标是否在参数rect范围内
#     Mouse.up?(key)
#       鼠标按键是否处在"松开"的瞬间
#       参数key取值(1:左键 2:右键 4:中键),允许不输入参数,表示任意鼠标键,下同
#     Mouse.down?(key)
#       鼠标按键是否处在"按下"的瞬间
#     Mouse.click?(key)
#       鼠标按键单击,脚本简化,仅判断down?
#     Mouse.dbl_clk?(key)
#       鼠标按键双击
#     Mouse.press?(key)
#       鼠标按键是否处在"按下"的状态
#     Mouse.toggle?(key)
#       鼠标按键的触发状态(在开和关之间切换)
#     Mouse.scroll
#       返回鼠标滚轮的滚动值.正值表示向前,负值表示向后,零表示未发生滚动
#     Mouse.move?
#       判断力鼠标是否移动
#     Mouse.set_pos(x,y)
#       指定鼠标坐标,鼠标移动到该坐标
#     Mouse.set_cursor(file)
#       改变当前鼠标的光标样式.参数file为光标文件名(路径由配置模块指定)
#       如果参数为nil或者指定光标文件不存在等,不返回错误,但光标不可见
#     Mouse.sys_cursor
#       还原到系统默认光标
#     Mouse.clip(x,y,width,height)
#       把鼠标锁死在指定区域范围内
#       省略参数时,解除鼠标锁定
#==============================================================================
module FSL
  module Mouse_System
    TrueMouse = false               # 使用系统真实鼠标(否则用RM精灵代替)
    CursorFile = "cursor"       # 光标文件名(最好包含后缀)
    CursorPath = "Graphics/" # 光标存放路径
    LKEY = 1
    RKEY = 2
    MKEY = 4
  end
end
#==============================================================================
# ■ Mouse
#==============================================================================
module Mouse
  include FSL::Mouse_System
  module_function
  
  #--------------------------------------------------------------------------
  # ## 刷新
  #--------------------------------------------------------------------------  
  def update   
    if $webrm
    else
      ## 处理按键
      @up,@down,@dblc,@press,@toggled = 0,0,0,0,0
      @move = MouseMove.call
      @wheel = 0
      @wheel = MouseWheel.call if $mouse_update_wheel
      @up      += 1 if MouseUp.call(1) > 0
      @up      += 2 if MouseUp.call(2) > 0
      @up      += 4 if MouseUp.call(4) > 0
      @down    += 1 if MouseDown.call(1) > 0
      @down    += 2 if MouseDown.call(2) > 0
      @down    += 4 if MouseDown.call(4) > 0
      @dblc    += 1 if MouseDblClk.call(1) > 0
      @dblc    += 2 if MouseDblClk.call(2) > 0
      @dblc    += 4 if MouseDblClk.call(4) > 0
      @press   += 1 if MousePress.call(1) > 0
      @press   += 2 if MousePress.call(2) > 0
      @press   += 4 if MousePress.call(4) > 0
      @toggled += 1 if MouseToggled.call(1) > 0
      @toggled += 2 if MouseToggled.call(2) > 0
      @toggled += 4 if MouseToggled.call(4) > 0
    end
    ## 更新光标
    update_cursor
  end   

  #--------------------------------------------------------------------------
  # ## 更新光标
  #--------------------------------------------------------------------------
  def update_cursor
    @pos = get_pos
    return if TrueMouse
    if @pos.nil?
      $mousec.visible = false
      $mouse_x = 0
      $mouse_y = 0
    else
      $mousec.visible = true
      $mousec.x, $mousec.y = @pos
      $mouse_x,$mouse_y = @pos
    end      
  end
  private_class_method :update_cursor

  #--------------------------------------------------------------------------
  # ## 获取坐标 * Replay Record
  #--------------------------------------------------------------------------
  def get_pos
    if $webrm
      if SampleInput::Mouse.is_over?
        return SampleInput::Mouse.get_pos
      else
        return nil
      end
    else
      begin
        #p "get_pos_begin"
        if MouseInClient.call.zero?
          #p "MouseInClient.call.zero?"
          return nil
        else
          pt = [0,0].pack("ll")
          MousePos.call(pt)
          return pt.unpack("ll")
        end
      rescue
        return nil
      end
    end
  end
  private_class_method :get_pos
  #--------------------------------------------------------------------------
  # ## 坐标
  #--------------------------------------------------------------------------
  def pos
    return @pos
  end
  #--------------------------------------------------------------------------
  # ## 在区域内?
  #--------------------------------------------------------------------------
  def area?(x, y, width, height)
    return false if @pos.nil?
    return false unless @pos[0].between?(x, x+width)
    return false unless @pos[1].between?(y, y+height)
    return true
  end
  #--------------------------------------------------------------------------
  # ## 在区域内?
  #--------------------------------------------------------------------------
  def rect?(rect)
    return false if @pos.nil?
    return false unless @pos[0].between?(rect.x, rect.x+rect.width)
    return false unless @pos[1].between?(rect.y, rect.y+rect.height)
    return true
  end
  #--------------------------------------------------------------------------
  # ## 释放?   * Replay Record
  #--------------------------------------------------------------------------
  def up?(key = 7)
    if $webrm
      return SampleInput.key_up?(key)
    else
      return @up & key != 0
    end
  end
  #--------------------------------------------------------------------------
  # ## 按下?   * Replay Record
  #--------------------------------------------------------------------------
  def down?(key = 7)
    if $webrm
      return SampleInput.key_down?(key)
    else
      return @down & key != 0
    end
  end
  #--------------------------------------------------------------------------
  # ## 单击?
  #--------------------------------------------------------------------------
  def click?(key = 7)
    if $webrm
      return SampleInput.click?(key)
    else
      return true if down?(key) or dbl_clk?(key)
      return false
    end
  end
  
  def normal_click?(key = 7)
    if $webrm
      return (click?(key) and !RgssxWebPlayer::ConfigUI.is_mouse_over?)
    else
      return click?(key)
    end
  end
  
  #--------------------------------------------------------------------------
  # ## 双击? * Replay Record
  #--------------------------------------------------------------------------
  def dbl_clk?(key = 7)
    if $webrm
      return SampleInput::Mouse.dblclk?(key)
    else
      return @dblc & key != 0
    end
  end
  #--------------------------------------------------------------------------
  # ## 按住? * Replay Record
  #--------------------------------------------------------------------------
  def press?(key = 7)
    if $webrm
      return SampleInput.press?(key)
    else
      return @press & key != 0
    end
  end
  #--------------------------------------------------------------------------
  # ## 触发?
  #--------------------------------------------------------------------------
  def toggled?(key = 7)
    if $webrm
      return false
    else
      return @doggled & key != 0
    end
  end
  #--------------------------------------------------------------------------
  # ## 滚轮 * Replay Record
  #--------------------------------------------------------------------------
  def scroll
    if $webrm
      return SampleInput::Mouse.wheel_delta
    else
      return @wheel
    end
  end
  #--------------------------------------------------------------------------
  # ## 移动?  * Replay Record
  #--------------------------------------------------------------------------
  def move?
    if $webrm
      return false
    else
      return @move
    end
  end
  #--------------------------------------------------------------------------
  # ## 设定鼠标位置
  #--------------------------------------------------------------------------
  def set_pos(x, y)
    if $webrm
      SampleInput::Mouse.set_pos(x, y)
    else
      return MouseSetPos.call(x, y)
    end
  end
  #--------------------------------------------------------------------------
  # ## 设定鼠标光标
  #--------------------------------------------------------------------------
  def set_cursor(file)
    if $webrm
    else
      MouseSetCursor.call(check_path(file))
    end
    return
    #if TrueMouse
    #  if check_file(file).is_a? Array
    #    for f in file
    #      result = MouseSetCursor.call(check_path(f))
    #      break unless result.zreo?
    #    end
    #  end
    #else
    #  $mousec.bitmap.dispose
    #  $mousec.bitmap = Cache.load(check_path(file))
    #end
  end
  #--------------------------------------------------------------------------
  # ## 还原光标为系统默认
  #--------------------------------------------------------------------------
  def sys_cursor
    if $webrm
    else
      MouseSysCursor.call if TrueMouse
    end
  end
  #--------------------------------------------------------------------------
  # ## 限制鼠标区域
  #--------------------------------------------------------------------------
  def clip(x = nil, y = nil, width = nil, height = nil)
    if $webrm
    else
      if x.nil? || y.nil? || width.nil? || height.nil?
        MouseRelease.call
      else
        MouseClip.call(x, y, width, height)
      end
    end
  end
  #--------------------------------------------------------------------------
  # ## 检查光标名
  #--------------------------------------------------------------------------
  def check_file(file)
    if TrueMouse
      unless file =~ /\.cur$|\.ani$/
        return file+".cur",file+".ani"
      end
    end
    return file
  end
  #--------------------------------------------------------------------------
  # ## 检查路径
  #--------------------------------------------------------------------------
  def check_path(file)
    return CursorPath[/\/$/] ? (CursorPath+file) : (CursorPath+"/"+file)
  end
  #--------------------------------------------------------------------------
  # ## 重新运行
  #--------------------------------------------------------------------------
  def restart
    if $webrm
    else
      CallBackStop.call()
      CallBackStart.call(0)
    end
  end
  #--------------------------------------------------------------------------
  # ## 关闭
  #--------------------------------------------------------------------------
  def stop
    if $webrm
    else
      CallBackStop.call()
    end
  end
  #--------------------------------------------------------------------------
  # ## 打开
  #--------------------------------------------------------------------------
  def start
    if $webrm
    else
      CallBackStart.call(0)
    end
  end
  #--------------------------------------------------------------------------
  # ## 设置光标
  #--------------------------------------------------------------------------
  def set_cursor(cur = nil)
          file_name = cur.nil? ? CursorFile : cur
          return if !@cursor_name.nil? && @cursor_name == file_name
         
          @cursor_name = file_name
          $mousec.bitmap.dispose
          $mousec.bitmap = Cache.load(check_path(file_name))
  end
  #--------------------------------------------------------------------------
  # ## 常量
  #--------------------------------------------------------------------------
  if $webrm
  else
    HWND           = Win32API.new("RG3rd","hWnd","v","l")
    MousePos       = Win32API.new("RG3rd","MousePos","p","i")
    MouseInClient  = Win32API.new("RG3rd","MouseInClient","v","i")
    MouseUp        = Win32API.new("RG3rd","MouseUp","i","i")
    MouseDown      = Win32API.new("RG3rd","MouseDown","i","i")
    MouseDblClk    = Win32API.new("RG3rd","MouseDblClk","i","i")
    MousePress     = Win32API.new("RG3rd","MousePress","i","i")
    MouseToggled   = Win32API.new("RG3rd","MouseToggled","i","i")
    MouseWheel     = Win32API.new("RG3rd","MouseWheel","v","i")
    MouseMove      = Win32API.new("RG3rd","MouseMove","v","i")
    MouseSetPos    = Win32API.new("RG3rd","MouseSetPos","ii","i")
    MouseSetCursor = Win32API.new("RG3rd","MouseSetCursor","p","i")
    MouseSysCursor = Win32API.new("RG3rd","MouseSysCursor","v","i")
    MouseClip      = Win32API.new("RG3rd","MouseClip","iiii","i")
    MouseRelease   = Win32API.new("RG3rd","MouseRelease","v","i")
    CallBackStart  = Win32API.new("RG3rd","Start","i","i")
    CallBackStop   = Win32API.new("RG3rd","Stop","v","i")
  end
  #--------------------------------------------------------------------------
  # ## 运行
  #--------------------------------------------------------------------------
  $mousec = Sprite.new
  $mousec.z = 10000000
  $mousec.bitmap = Cache.load(check_path(CursorFile))
  unless const_defined? :MouseStart
    begin
      if TrueMouse
        if $webrm
        else
          MouseStart = CallBackStart.call(1)
          MouseSetCursor.call(check_path(CursorFile))
        end
      else
        if $webrm
        else
          MouseStart = CallBackStart.call(0)
        end
        update_cursor
      end
    rescue Errno::ENOENT
      print("鼠标系统初始化失败..")
      exit
    end
  end
end
$mouse_x = 0
$mouse_y = 0
#==============================================================================
# ** Input
#==============================================================================
class << Input
  alias wor_input_upd_mouse update unless method_defined? :wor_input_upd_mouse
  def Input.update
    wor_input_upd_mouse
    Mouse.update
  end
end
回复 支持 反对

使用道具 举报

Lv3.寻梦者

梦石
0
星屑
1418
在线时间
206 小时
注册时间
2013-2-3
帖子
629
5
发表于 2013-2-16 16:02:31 | 只看该作者
要不你试试这个脚本



#==============================================================================
# 本脚本来自www.66RPG.com,使用和转载请保留此信息
#==============================================================================

#=================以下两个用来调整战斗时的手感问题,可以自己试试。
$敌人选框扩大 = 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')
#$FindWindow = Win32API.new("user32", "FindWindow", 'pp', 'i')
#$HookStart  = Win32API.new("mouse_hook.dll", "HookStart", 'i', nil)
#$HookEnd  = Win32API.new("mouse_hook.dll", "HookEnd", nil, nil)
#$GetMouseStatus  = Win32API.new("mouse_hook.dll", "GetMouseStatus", 'i', 'i')
#$Window_HWND = $FindWindow.call(nil, 'mousetry')

module Mouse  
  LEFT = 0x01
  RIGHT = 0x02

  def self.init(sprite = nil)
#   $HookStart.call($Window_HWND)
    $ShowCursor.call(0)
   
    @show_cursor = false
   
    @mouse_sprite = Sprite.new
    @mouse_sprite.z = 99999
    @mouse_sprite.bitmap = Bitmap.new('Graphics/Mouse/鼠标.png')
    #@mouse_sprite.bitmap.fill_rect(Rect.new(0, 0, 32, 32), Color.new(0, 0, 0))

    @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
#    $HookEnd.call
    $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)
   
    @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.cursor_rect.empty
    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
        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
        
          top_x += self.x_mod
          top_y += self.y_mod
          bottom_x += self.x_mod
          bottom_y += self.y_mod
        
        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
            $data_system.sounds[0].play
          end
          break
        end
      end
    if Input.trigger?(Input::F9)
    p top_x,top_y,Mouse.get_mouse_pos
    end
      if mouse_not_in_rect
        @index = index_var
        update_cursor
        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.cursor_rect.empty
    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...HIRAGANA.size).to_a.push(180)
        @index = i
        update_cursor
        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
        Mouse.click_lock
      else
        Mouse.click_unlock
      end
    end
  end
end
=begin

class Window_InputNumber
  if @self_alias == nil
    alias self_update update
    @self_alias = true
  end
  def update
    #self.cursor_rect.empty
    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
        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
        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
=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
          $data_system.sounds[0].play
        end            
        Mouse.click_unlock
      else
        i.selected = false
      end
      idx += 1
    end
    self_update
  end
end

class Game_Player
  if @self_alias == nil
    alias self_update update
    @self_alias = true
  end
  def update
    mouse_x, mouse_y = Mouse.get_mouse_pos
    if @last_move_x == nil
      @last_move_x = false
    end
    if $game_switches[123]
     if Mouse.press?(Mouse::LEFT)
       for event in $game_map.events.values
         if event.screen_x/32 == mouse_x/32 and event.screen_y/32-1 == mouse_y/32
           event.start
         end
       end
     end
     self_update
     return
   end
    if Mouse.press?(Mouse::LEFT)
   #for event in $game_map.events.values
   #if event.screen_x/32 == mouse_x/32 and event.screen_y/32-1 == mouse_y/32
   #event.start
   #end
   #end
      last_moving = moving?
      last_direction = @direction
    #  return unless movable?
    #  return if $game_map.interpreter.running?
      unless moving? or $game_map.interpreter.running?
      last_x = @x
        if @last_move_x
          @last_move_x = false
        elsif mouse_x > screen_x + 16
          move_right
        elsif mouse_x < screen_x - 16
          move_left
        end
        last_y = @y
        if last_x != @x
          @last_move_x = true
        elsif mouse_y > screen_y
          move_down
        elsif mouse_y < screen_y - 32
          move_up
        end
=begin        
        if last_y != @y
          @last_move_x = false
        elsif not @last_move_x
          case last_direction
          when 2
            turn_down
          when 4
            turn_left
          when 6
            turn_right
          when 8
            turn_up
          end        
        end
=end         
      end
    end
    self_update
  end
end
Mouse.init
END { Mouse.exit }


class Window_Base < Window
  attr_accessor :x_mod
  attr_accessor :y_mod
  alias ka_initialize initialize
  def initialize(x, y, width, height)
    ka_initialize(x, y, width, height)
    self.x_mod = 0
    self.y_mod = 0
  end
end
class Window_PartyCommand < Window_Command
  alias ka1_initialize initialize
  def initialize
    ka1_initialize
    self.y_mod = 288
  end
end
class Window_ActorCommand < Window_Command
  alias ka2_initialize initialize
  def initialize
    ka2_initialize
    self.x_mod = -128
    self.y_mod = 288
  end
end

#==============================================================================
# 本脚本来自www.66RPG.com,使用和转载请保留此信息
#==============================================================================

评分

参与人数 1星屑 +20 收起 理由
怪蜀黍 + 20 热心参与糖

查看全部评分

回复 支持 反对

使用道具 举报

Lv1.梦旅人

梦石
0
星屑
130
在线时间
137 小时
注册时间
2008-10-7
帖子
236
6
 楼主| 发表于 2013-2-16 16:27:16 | 只看该作者
ali 发表于 2013-2-16 16:02
要不你试试这个脚本

请问是都复制粘贴进去吗?我试了,脚本冲突,

点评

ali
哦,对不起  发表于 2013-2-16 16:28
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

拿上你的纸笔,建造一个属于你的梦想世界,加入吧。
 注册会员
找回密码

站长信箱:[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2024-12-23 06:42

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表