想要一个鼠标操作的脚本

然然 · 发表于 2009-1-31 06:09:39

提示: 作者被禁止或删除内容自动屏蔽

dbshy · 发表于 2009-2-1 06:37:24

class Game_Map
def check_event_custom_start(mouse_x, mouse_y)
for event in $game_map.events.values #循环所有事件检查
#事件角色图片宽度、高度
event_width = RPG::Cache.character(event.character_name,event.character_hue).width/4
event_height = RPG::Cache.character(event.character_name,event.character_hue).height/4
#判断是否鼠标在事件上
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
event.start #开启事件
end
end
end
end
class Mouse
LEFT = 0x01
RIGHT = 0x02
def init(sprite = nil)
$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')
$ShowCursor.call(0)
@show_cursor = false
@mouse_sprite = Sprite.new
@mouse_sprite.z = 99999
@mouse_sprite.bitmap = Bitmap.new('Graphics/Icons/001-Weapon01.png')
@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
@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
#这是INPUT模块
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
Mouse.init
class Game_Player < Game_Character
alias old_update update
def update
old_update
if Mouse.trigger?(Mouse::LEFT) then
mouse_x, mouse_y = Mouse.get_mouse_pos
$game_map.check_event_custom_start(mouse_x, mouse_y)
end
end
end

复制代码

当某开关打开时，鼠标操作脚本起作用，开关关闭时就没用了
这个没实现，等高手前辈{/ll}{/ll}
水平越来越废柴 - -bb

kaien · 发表于 2009-2-1 07:43:58

提示: 作者被禁止或删除内容自动屏蔽

goahead · 发表于 2009-2-1 17:03:01

提示: 作者被禁止或删除内容自动屏蔽

804018514 · 发表于 2009-2-1 17:05:41

提示: 作者被禁止或删除内容自动屏蔽

goahead · 发表于 2009-2-1 17:20:34

提示: 作者被禁止或删除内容自动屏蔽

804018514 · 发表于 2009-2-1 17:27:35

提示: 作者被禁止或删除内容自动屏蔽

IamI · 发表于 2009-2-1 17:34:37

dbshy下面全都是self定义方法还用class= =既然决心class到底Init又不加self= =
另外狠狠的掐把visible拼成visivle的那位
修改如下
22行改成
def self.init(sprite = nil)
58行改成
@mouse_sprite.visible = $need_mouse

goahead · 发表于 2009-2-1 17:35:42

提示: 作者被禁止或删除内容自动屏蔽

IamI · 发表于 2009-2-1 17:37:41

以下引用goahead于2009-2-1 9:35:42的发言：

class mouse改成moudle mouse
def ini 改成def self.ini

class可以不改，反正class也可以定义公有方法，并非一定要module

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

想要一个鼠标操作的脚本

开拓者

贵宾