鼠标系统beta1#减肥更新版# by H

hitlerson · 发表于 2008-6-5 09:02:19

重写了Seleteable

#==============================================================================
# ■ Window_Selectable
#------------------------------------------------------------------------------
# 　拥有光标的移动以及滚动功能的窗口类。
#==============================================================================
class Window_Selectable_Cardhelp < Window_Base
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr_reader :index # 光标位置
attr_reader :help_window # 帮助窗口
#--------------------------------------------------------------------------
# ● 初始画对像
# x : 窗口的 X 坐标
# y : 窗口的 Y 坐标
# width : 窗口的宽
# height : 窗口的高
#--------------------------------------------------------------------------
def initialize(x, y, width, height)
super(x, y, width, height)
@item_max = 1
@column_max = 6
@index = -1
@a = 0
end
#--------------------------------------------------------------------------
# ● 设置光标的位置
# index : 新的光标位置
#--------------------------------------------------------------------------
def index=(index)
@index = index
# 刷新帮助文本 (update_help 定义了继承目标)
if self.active and @help_window != nil
update_help
end
# 刷新光标矩形
update_cursor_rect
end
#--------------------------------------------------------------------------
# ● 获取行数
#--------------------------------------------------------------------------
def row_max
# 由项目数和列数计算出行数
return 10
end
#--------------------------------------------------------------------------
# ● 获取开头行
#--------------------------------------------------------------------------
def top_row
# 将窗口内容的传送源 Y 坐标、1 行的高 32 等分
return self.oy / 32
end
#--------------------------------------------------------------------------
# ● 设置开头行
# row : 显示开头的行
#--------------------------------------------------------------------------
def top_row=(row)
# row 未满 0 的场合更正为 0
if row < 0
row = 0
end
# row 超过 row_max - 1 的情况下更正为 row_max - 1
if row > row_max - 1
row = row_max - 1
end
# row 1 行高的 32 倍、窗口内容的传送源 Y 坐标
self.oy = row * 32
end
#--------------------------------------------------------------------------
# ● 获取 1 页可以显示的行数
#--------------------------------------------------------------------------
def page_row_max
# 窗口的高度，设置画面的高度减去 32 ，除以 1 行的高度 32
return 20
end
#--------------------------------------------------------------------------
# ● 获取 1 页可以显示的项目数
#--------------------------------------------------------------------------
def page_item_max
# 将行数 page_row_max 乘上列数 @column_max
return page_row_max * @column_max
end
#--------------------------------------------------------------------------
# ● 帮助窗口的设置
# help_window : 新的帮助窗口
#--------------------------------------------------------------------------
def help_window=(help_window)
@help_window = help_window
# 刷新帮助文本 (update_help 定义了继承目标)
if self.active and @help_window != nil
update_help
end
end
#--------------------------------------------------------------------------
# ● 更新光标举行
#--------------------------------------------------------------------------
def update_cursor_rect
x0 = Z::PWx0 ; y0 = Z::PWy0 #坐标偏量
# 光标位置不满 0 的情况下
if @index < 0
self.cursor_rect.empty
return
end
# 获取当前的行
row = @index / @column_max
# 计算光标的宽
cursor_width = 9
if @index == 10000
x, y = self.width - 40, -3
self.cursor_rect.set(x-3, y, 10, 15)
else
x, y = 34, 29 + 254 + @index * 16 # 计算光标坐标
self.cursor_rect.set(x-3, y, cursor_width, 9) # 更新国标矩形
end
end
#---------------------------------------------------------------------------
def inside(x0,y0,x1,y1)
if (@mouse_x > x0) and (@mouse_y > y0) and (@mouse_x < x1) and (@mouse_y < y1)
return true
else
return false
end
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
super
x = 22 ; y = 30
if self.active
if @item_max > 0 #鼠标刷新
@mouse_x, @mouse_y = Mouse.get_mouse_pos
tp_index = @index
mouse_not_in_rect = true
top_x = self.x + 43
top_y = self.y + 298
bottom_x = top_x + 13
bottom_y = top_y + 13
#----
for i in 0..3
if inside(top_x, top_y+16*i, bottom_x, bottom_y+16*i)
@index = i
mouse_not_in_rect = false
if tp_index != @index
tp_index = @index
@a = 0
$game_system.se_play($data_system.cursor_se)
end
end
if mouse_not_in_rect
@index = -1
end
end
#----
if inside(self.x + self.width - 32, self.y + 7, self.x + self.width - 16, self.y + 24)
@index = 10000
mouse_not_in_rect = false
if tp_index != @index
tp_index = @index
@a = 1
$game_system.se_play($data_system.cursor_se)
end
if mouse_not_in_rect
@index = -1
end
end
#----
end
end
# 刷新帮助文本 (update_help 定义了继承目标)
if self.active and @help_window != nil
update_help
end
# 刷新光标矩形
update_cursor_rect
end
end

复制代码

window_里面加上读取滚动条Y坐标的语句

if @item_max > 10
bitmap_gdt = RPG::Cache.picture("gundongtiao")
self.contents.blt(self.width - 42, 50+@lan1_y, bitmap_gdt, Rect.new(0, 0, 20, 100), 255)
end

复制代码

没什么花头的

其实这整个就是个大范例，WIN窗口层叠拖动效果，滚动条效果，物品拖动效果，快捷栏的实现。
要拿出来真不容易，MAP、WINDOW、SCENE、SELETEABLE都改光了
功能不全是有些SCENE还没改，现在给战斗搞的很疲惫，没心情搞这个了

訫﹎森 · 发表于 2008-6-5 18:58:35

很强大{/hx}``其实我也想要这个拖动窗口的效果```但``谁叫偶是脚本盲{/gg}

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