鼠标系统

浮云半仙 · 发表于 2016-11-2 13:47:57

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

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

x

简易的鼠标系统，就写了一会，滋瓷的功能有限，敬请期待更新(

请在Graphics/mouse下放入normal.png 作为光标的图案
  已经滋瓷:
·鼠标启动事件
      在允许鼠标启动的事件，事件页第一页，执行方式自动执行，内容
      脚本: $game_map.events[@event_id].mouse_start = true
      独立开关A = on
      第二页开始真正的事件内容
·鼠标点击寻路
      可配合我的spfa四方向寻路系统使用，如果没有这个脚本请把
      USE_SPFA_FINDPATH设置为false。寻路系统地址
      https://rpg.blue/forum.php?mod=viewthread&tid=389467

  未滋瓷:
·选项窗口还不滋瓷鼠标操作
·多种光标图案

需要 http://rpg.blue/thread-133018-1-1.html 这个脚本才能正常使用

寻路系统脚本 https://rpg.blue/forum.php?mod=viewthread&tid=389467

事件点击执行栗子:

脚本如下

RUBY 代码复制下载

=begin
  鼠标系统V1.0 by 浮云半仙
  
  需要 [url]http://rpg.blue/thread-133018-1-1.html[/url] 这个脚本
  
  请在Graphics/mouse下放入normal.png 作为光标的图案
 
  已经滋瓷:
    ·鼠标启动事件
        在允许鼠标启动的事件，事件页第一页，执行方式自动执行，内容
          脚本: $game_map.events[@event_id].mouse_start = true
          独立开关A = on
        第二页开始真正的事件内容
    ·鼠标点击寻路
        可配合我的spfa四方向寻路系统使用，如果没有这个脚本请把
          USE_SPFA_FINDPATH设置为false。寻路系统地址
          [url]https://rpg.blue/forum.php?mod=viewthread&tid=389467[/url]
    
  未滋瓷:
    ·选项窗口还不滋瓷鼠标操作
    ·多种光标图案
    
    敬请期待更新
=end
 
#命名空间
module FYBX
#
 
USE_SPFA_FINDPATH = true   #是否使用鼠标自动寻路(配合我的spfa四方向寻路系统)
 
class Mouse
  attr_accessor :cur_img
  attr_accessor :x, :y
  attr_accessor :map_x, :map_y
  attr_reader :left_lock, :right_lock
 
  GetCursorPos = Win32API.new("user32", "GetCursorPos", "p", "i")
  ScreenToClient = Win32API.new("user32", "ScreenToClient", "lp", "i")
  GetCursor = Win32API.new("user32", "GetCursor", "", "l")
  DestroyCursor = Win32API.new("user32", "DestroyCursor", "l", "i")
  ShowCursor = Win32API.new("user32", "ShowCursor", "i", "i")
  GetKeyState = Win32API.new("user32", "GetKeyState", "i", "i")
 
  HWND = get_hWnd
  BUF = "\0"*8
  PRESS_STATE = [-127, -128]
  def initialize
      ShowCursor.call 0
      @x = @y = @map_x = @map_y = 0
      @left_lock = @right_lock = false
  end
  def update_pos
    GetCursorPos.call BUF
    ScreenToClient.call HWND, BUF
    @x, @y = BUF.unpack("ll")
    @map_x = $game_map.display_x + @x/32
    @map_y = $game_map.display_y + @y/32
  end
  def update_image
    @cur_img.dispose if @cur_img
    @cur_img = Sprite.new
    @cur_img.bitmap = Bitmap.new("Graphics/mouse/normal.png")
    @cur_img.x = @x
    @cur_img.y = @y
    @cur_img.z = 9999
  end
  def update_state
    @left_lock = @right_lock = false
    @left_lock = true if PRESS_STATE.include?(GetKeyState.call 0x01)
    @right_lock = true if PRESS_STATE.include?(GetKeyState.call 0x02)
  end
  def update_events
    if @left_lock
      $game_map.events_xy(@map_x, @map_y).each {|e| e.start if e.mouse_start}
      $game_map.update(true)
    end
  end
  def update_findpath
    if @left_lock
      SceneManager.scene.fybx_force_player_stop_findpath if SceneManager.scene.is_a?(Scene_Map) rescue nil
      FYBX::FindPath.find_path :target_x => @map_x, :target_y => @map_y
    end
  end
  def update
    update_state
    update_pos
    update_image
 
    update_events
    update_findpath if USE_SPFA_FINDPATH
  end
end
 
#名字空间结束
end
#-----------
 
class Game_Event
  attr_accessor :mouse_start
end
 
$mouse = FYBX::Mouse.new
module Graphics
  Graphics.instance_eval do
      alias :old_update :update
  end
  def self.update
    self.old_update
    $mouse.update
  end
end

=begin


  鼠标系统V1.0 by 浮云半仙


  


  需要 [url]http://rpg.blue/thread-133018-1-1.html[/url] 这个脚本


  


  请在Graphics/mouse下放入normal.png 作为光标的图案


 


  已经滋瓷:


    ·鼠标启动事件


        在允许鼠标启动的事件，事件页第一页，执行方式自动执行，内容


          脚本: $game_map.events[@event_id].mouse_start = true


          独立开关A = on


        第二页开始真正的事件内容


    ·鼠标点击寻路


        可配合我的spfa四方向寻路系统使用，如果没有这个脚本请把


          USE_SPFA_FINDPATH设置为false。寻路系统地址


          [url]https://rpg.blue/forum.php?mod=viewthread&tid=389467[/url]


    


  未滋瓷:


    ·选项窗口还不滋瓷鼠标操作


    ·多种光标图案


    


    敬请期待更新


=end


 


#命名空间


module FYBX


#


 


USE_SPFA_FINDPATH = true   #是否使用鼠标自动寻路(配合我的spfa四方向寻路系统)


 


class Mouse


  attr_accessor :cur_img


  attr_accessor :x, :y


  attr_accessor :map_x, :map_y


  attr_reader :left_lock, :right_lock


 


  GetCursorPos = Win32API.new("user32", "GetCursorPos", "p", "i")


  ScreenToClient = Win32API.new("user32", "ScreenToClient", "lp", "i")


  GetCursor = Win32API.new("user32", "GetCursor", "", "l")


  DestroyCursor = Win32API.new("user32", "DestroyCursor", "l", "i")


  ShowCursor = Win32API.new("user32", "ShowCursor", "i", "i")


  GetKeyState = Win32API.new("user32", "GetKeyState", "i", "i")


 


  HWND = get_hWnd


  BUF = "\0"*8


  PRESS_STATE = [-127, -128]


  def initialize


      ShowCursor.call 0


      @x = @y = @map_x = @map_y = 0


      @left_lock = @right_lock = false


  end


  def update_pos


    GetCursorPos.call BUF


    ScreenToClient.call HWND, BUF


    @x, @y = BUF.unpack("ll")


    @map_x = $game_map.display_x + @x/32


    @map_y = $game_map.display_y + @y/32


  end


  def update_image


    @cur_img.dispose if @cur_img


    @cur_img = Sprite.new


    @cur_img.bitmap = Bitmap.new("Graphics/mouse/normal.png")


    @cur_img.x = @x


    @cur_img.y = @y


    @cur_img.z = 9999


  end


  def update_state


    @left_lock = @right_lock = false


    @left_lock = true if PRESS_STATE.include?(GetKeyState.call 0x01)


    @right_lock = true if PRESS_STATE.include?(GetKeyState.call 0x02)


  end


  def update_events


    if @left_lock


      $game_map.events_xy(@map_x, @map_y).each {|e| e.start if e.mouse_start}


      $game_map.update(true)


    end


  end


  def update_findpath


    if @left_lock


      SceneManager.scene.fybx_force_player_stop_findpath if SceneManager.scene.is_a?(Scene_Map) rescue nil


      FYBX::FindPath.find_path :target_x => @map_x, :target_y => @map_y


    end


  end


  def update


    update_state


    update_pos


    update_image


 


    update_events


    update_findpath if USE_SPFA_FINDPATH


  end


end


 


#名字空间结束


end


#-----------


 


class Game_Event


  attr_accessor :mouse_start


end


 


$mouse = FYBX::Mouse.new


module Graphics


  Graphics.instance_eval do


      alias :old_update :update


  end


  def self.update


    self.old_update


    $mouse.update


  end


end

御曹司 · 发表于 2016-11-2 15:54:24

{:2_249:}半仙还是那么触啊

唯道集虚 · 发表于 2016-11-7 22:24:31

膜～简短精炼
半仙果然是触呢～

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

[RMVA发布] 鼠标系统

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

评分

剧作品鉴家

开拓者