如何制作动态鼠标的效果？ - Project1

module Sword_M
=begin
● 设置方法
设置滑鼠游标：Sword_M.cache('图片档案名称')
　　　　　　　Sword_M.cache('图片档案名称', 不透明度)
清除滑鼠游标：Sword_M.cache
判断滑鼠游标：Sword_M.cache?
更新游标位置：Sword_M.update
判断滑鼠矩形：Sword_M.rect?(X座标, Y座标, 宽度, 高度)
获取滑鼠座标：Sword_M.coord
========================================
详细设置说明请参考：http://blog.yam.com/a870053jjkj/article/29270759
=end
#=======================================
module_function
$Sword ? $Sword[59] = true : $Sword = {59=>true} # 脚本使用标志
$Sword_F12_Error = {} unless $Sword_F12_Error # F12除错标志
($Sword_VX = false ; RPG::Weather rescue $Sword_VX = true) if $Sword_VX == nil
#-------------------------------------------------------------
#● 常量定义(Win32API)
Window = Win32API.new('user32','GetForegroundWindow', %(v), 'l')
ScreenToClient = Win32API.new('user32', 'ScreenToClient', %(i p), 'i')
GetCursorPos = Win32API.new('user32', 'GetCursorPos', %(p), 'i')
ShowCursor = Win32API.new('user32','ShowCursor', %(l), 'l')
ShowCursor.call(0) # 隐藏原本的滑鼠游标
#-------------------------------------------------------------
#● 设定滑鼠游标图片(图片档案名称, 滑鼠不透明度)
def cache(name = nil, opacity = 255)
(@mouse.dispose ; @mouse = nil) if @mouse
return if name == nil # 没指定图片档案名称就中断
@mouse = Sprite.new ; @mouse.bitmap = $Sword_VX ?
Cache.picture(name) : RPG::Cache.picture(name) # 产生滑鼠游标图片
@mouse.opacity, @mouse.z = opacity, 9999
update # 更新游标的显示位置
end
#-------------------------------------------------------------
#● 判断滑鼠游标是否已经产生
def cache? ; @mouse ? true : false ; end
#-------------------------------------------------------------
#● 更新滑鼠游标的显示位置
def update
return unless cache? # 滑鼠尚未生成就中断
inate = coord ; @mouse.x, @mouse.y = inate[0], inate[1]
end
#-------------------------------------------------------------
#● 获取滑鼠座标
def coord
pointapi1, pointapi2 = "\000" * 64, "\000" * 64 # 设置储存区
GetCursorPos.call(pointapi1) ; xy1 = pointapi1.unpack('ll')
ScreenToClient.call(Window.call, pointapi2)
xy2 = pointapi2.unpack('ll')
[xy1[0] + xy2[0], xy1[1] + xy2[1]] # 返回滑鼠座标
end
#-------------------------------------------------------------
#● 产生滑鼠判定矩形(X座标, Y座标, 宽度, 高度)
def rect?(x, y, width, height)
xy = coord # 获取滑鼠座标
((x..width + x) === xy[0] and (y..height + y) === xy[1]) ? true : false
end
end
#=======================================
#□ 进行有关全体图像处理的模块(类对象)
class << Graphics
#-------------------------------------------------------------
#● 更新游戏画面
alias sword59_update update unless $Sword_F12_Error[59]
def update
xy = Sword_M.coord ; Sword_M.update # 更新滑鼠游标位置
sword59_update
end
end
$Sword_F12_Error[59] = true # F12除错标志开启

复制代码