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

hitlerson · 发表于 2008-5-28 05:08:18

便乘 : 你的牌给对方怪物攻击打死的情况下，可以发动，找对方的任意怪兽破坏

2288809 · 发表于 2008-5-28 05:12:54

没传上来!可惜啊~~~~
我也很喜欢这东西,希望你快点完善了发上来,很期待啊 !

hitlerson · 发表于 2008-5-28 05:14:13

昏。。。。下载的连接没了。。。。

决定不再修改此贴了。。。。

禾西 · 发表于 2008-5-28 21:12:39

偷偷地提供一個站外上傳地址：
http://www.megaupload.com/cn/

爲甚麼不修改呢？鼠標系統的複雜程度很大的，多一個人的思路就多一份力量。用兩個月時間可以寫出一個初具規模的鼠標系統眞的不簡單耶！禾西手上的工程寫了一個月才差不多完成（本來已經完成得差不多，誰知道睡了一覺又有新的想法。所有Scene重新寫過 Orz）

不知道這個工程裏面實現了用鼠標控制說明沒有？禾西寫了一個判斷用的方法，可以老是覺得很繁複 |||
鼠標與鍵盤的糅合也還沒有很好地實現。不知道從這裏能不能找到啓發

hitlerson · 发表于 2008-5-28 21:33:25

我也觉得我写的很复杂,尤其是窗口的判断,窗口深度的控制.
还是拜求高人给出更好的算法~~

禾西 · 发表于 2008-5-28 21:46:35

這個是禾西的算法，不知道有沒有跟你的有多大差異＝＝a
以分類物品界面爲例：

#------------------------------------------------------------------------------
# 確認鼠標是否在點擊範圍之內
#------------------------------------------------------------------------------
def compare(pos, area)
area.size.times do |i|
ox = area[i][0]
oy = area[i][1]
lx = ox + area[i][2]
ly = oy + area[i][3]
if (ox..lx) === pos[0] and (oy..ly) === pos[1]
index = i
return index
end
end
return false
end
#------------------------------------------------------------------------------
# 取得當前點擊窗口範圍
#------------------------------------------------------------------------------
def get_warea(window)
x = window.x
y = window.y
w = window.width
h = window.height
return [x,y,w,h]
end#==============================================================================
# ■ Scene_Base
#------------------------------------------------------------------------------
# 　模仿 VX 寫的游戲界面超級類
#==============================================================================
class Scene_Base
#--------------------------------------------------------------------------
# ● 主處理
#--------------------------------------------------------------------------
def main
Input.update #刷新「輸入信息」
@wins = Hash.new #生成窗口儲存
@active_window = nil#初始化窗口激活指令
start #生成窗口
Graphics.transition #執行過渡
loop do
loop_do #主循環
#如果切換畫面就中斷循環
break if $scene != self
end
Graphics.freeze #準備過渡
# 釋放所有窗口
@wins.each_value{|i|i.dispose if i != nil}
terminate #結束行爲
end
#--------------------------------------------------------------------------
# ● 主循環
#--------------------------------------------------------------------------
def loop_do
Input.update #刷新「輸入信息」
Graphics.update #刷新「游戏畫面」
mouse #鼠標刷新
update #刷新畫面
end
#--------------------------------------------------------------------------
# ● 鼠標刷新
#--------------------------------------------------------------------------
def mouse
#==============================================================================
if @active_window != nil #截獲激活指令
@wins.each_value{|i|i.active = false if i.active} #凍結所有窗口
@wins[@active_window].active = true #激活指定窗口
if defined? @wins[@active_window].mouse_area #如果指定窗口存在鼠標感應範圍
@index_window = @wins[@active_window] #監視鼠標活動
else #否則
@index_window = nil #取消鼠標監視
end
@active_window = nil #銷毀激活指令
end
#==============================================================================
@clicked = false if @clicked #初始化鼠標點擊
if Input.click?(Input::Mouse_Left) #如果鼠標進行點擊行動
@clicked = true #點擊爲眞
return if @index_window == nil #如果不存在感應範圍，結束
index = compare(Mouse.mouse_pos, @index_window.mouse_area) #確定鼠標是否在感應範圍
return if index == false #如果否，結束
@index_window.index = index #否則，修正index
Input.push(Input::C) #鼠標擊中爲眞
return #過程結束
end
#==============================================================================
end
#--------------------------------------------------------------------------
# ● 生成主要窗口
#--------------------------------------------------------------------------
def start
end
#--------------------------------------------------------------------------
# ● 刷新畫面
#--------------------------------------------------------------------------
def update
end
#--------------------------------------------------------------------------
# ● 釋放
#--------------------------------------------------------------------------
def terminate
end
end
#==============================================================================
# ■ Window_Item
#------------------------------------------------------------------------------
# 　顯示瀏覽物品的窗口(分類)
#==============================================================================
class Window_Item < Window_Selectable
#--------------------------------------------------------------------------
# ● 幫助文本
#--------------------------------------------------------------------------
def update_help
if defined? new_help
new_help
else
@help_window.set_text(self.item == nil ? "" : self.item.description)
end
end
attr_reader :data
attr_accessor :hindex
def new_help
if @hindex == nil
@help_window.set_text(nil)
else
@help_window.set_text(@data[@hindex])
#校正帮助窗口位置
@help_window.set_pos(self.x,self.y,self.width,self.oy,@hindex,@column_max)
end
end
end
#==============================================================================
# ■ Scene_Item
#------------------------------------------------------------------------------
# 　物品界面的类。
#==============================================================================
class Scene_Item < Scene_Base
#-----------------------
# 返回菜單的 index 位置:
#-----------------------
ReturnIndex = 1
#--------------------------------------------------------------------------
# ● 生成主要窗口
#--------------------------------------------------------------------------
def start
#----------------------------
# 背景圖（地圖畫面）
#----------------------------
@spriteset = Spriteset_Map.new
#----------------------------
# 生成指令窗口
#----------------------------
@wins[:command] = Window_Item_Commands.new
#----------------------------
# 生成幫助窗口
#----------------------------
@wins[:help] = Window_Help.new
@wins[:help].visible = false
#----------------------------
# 生成物品窗口
#----------------------------
@wins[:items] = Window_Item.new
@wins[:items].visible = false
@wins[:items].index = 0
@wins[:items].help_window = @wins[:help]
@help_area = []
@help_area << get_warea(@wins[:items])
#----------------------------
# 生成使用目標窗口 (设置为不可见・不活动)
#----------------------------
@wins[:target] = Window_Target.new
@wins[:target].visible = false
#----------------------------
# 激活指定窗口
#----------------------------
@active_window = :command
#----------------------------
# 鼠標停留計數
#----------------------------
@pos =[Mouse.mouse_pos,Mouse.mouse_pos,Mouse.mouse_pos,Mouse.mouse_pos]
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
# 刷新窗口
@wins[:help].update
mouse_help
if @wins[:command].active
@wins[:command].update
(command_Input(:C);return) if Input.trigger?(Input::C)
(command_Input(:B);return) if Input.trigger?(Input::B)
return
end
if @wins[:items].active
@wins[:items].update
(items_Input(:C);return) if Input.trigger?(Input::C)
(items_Input(:B);return) if Input.trigger?(Input::B)
return
end
if @wins[:target].active
@wins[:target].update
(target_Input(:C);return) if Input.trigger?(Input::C)
(target_Input(:B);return) if Input.trigger?(Input::B)
return
end
end
#--------------------------------------------------------------------------
# ● 隨著鼠標移動的幫助
#--------------------------------------------------------------------------
def mouse_help
if compare(Mouse.mouse_pos, @help_area)
index = compare(Mouse.mouse_pos, @wins[:items].mouse_area)
if index
if @pos[0] != Mouse.mouse_pos or
@pos[1] != Mouse.mouse_pos or
@pos[2] != Mouse.mouse_pos or
@pos[3] != Mouse.mouse_pos
@pos.shift
@pos << Mouse.mouse_pos
elsif @wins[:items].hindex != index
@wins[:items].hindex = index
end
else
@wins[:items].hindex = nil if @wins[:items].hindex != nil
end
else
@wins[:items].hindex = nil if @wins[:items].hindex != nil
end
end
#--------------------------------------------------------------------------
# ● [指令窗口]下的輸入反應(鍵位)
#--------------------------------------------------------------------------
def command_Input(key)
case key
when :C
# 命令窗口光标位置分支
@wins[:items].refresh(@wins[:command].index) # 刷新物品窗口
@wins[:items].visible = true # 打開物品窗口
@wins[:items].index = 0 # 初始化光標
@wins[:items].update # 更新物品窗口一次
@active_window = :items # 激活指定窗口
when :B
$game_system.se_play($data_system.cancel_se) # 演奏取消 SE
$scene = Scene_Menu.new(ReturnIndex) # 切換到菜單畫面
return
end
end
#--------------------------------------------------------------------------
# ● [物品窗口]下的輸入反應(鍵位)
#--------------------------------------------------------------------------
def items_Input(key)
case key
when :C
#----------------------------
# 获取物品窗口当前选中的物品数据
#----------------------------
@item = @wins[:items].item
#----------------------------
# 不使用物品的情况下
#----------------------------
unless @item.is_a?(RPG::Item)
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
#----------------------------
# 不能使用的情况下
#----------------------------
unless $game_party.item_can_use?(@item.id)
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 演奏确定 SE
$game_system.se_play($data_system.decision_se)
#----------------------------
# 效果范围是我方的情况下
#----------------------------
if @item.scope >= 3
# 激活目標窗口
@wins[:target].x = 0#(@wins[:items].index + 1) * 304
@wins[:target].visible = true
@active_window = :target # 激活指定窗口
# 设置效果范围 (单体/全体) 的对应光标位置
if @item.scope == 4 || @item.scope == 6
@wins[:target].index = -1
else
@wins[:target].index = 0
end
#----------------------------
# 效果在我方以外的情况下
#----------------------------
else
# 公共事件 ID 有效的情况下
if @item.common_event_id > 0
# 预约调用公共事件
# 演奏物品使用时的 SE
$game_temp.common_event_id = @item.common_event_id
$game_system.se_play(@item.menu_se)
# 消耗品的情况下
if @item.consumable
# 使用的物品数减 1
# 再描绘物品窗口的项目
$game_party.lose_item(@item.id, 1)
@wins[:items].draw_item(@wins[:items].index)
end
$scene = Scene_Map.new
#--->切換回地圖畫面
return
end
end
when :B
$game_system.se_play($data_system.cancel_se) # 演奏取消 SE
@wins[:items].visible = false # 關閉物品窗口
@wins[:items].refresh(6) # 重新刷新物品窗口
@wins[:items].index = 0 # 初始化物品窗口的光標
@wins[:help].visible = false # 關閉幫助窗口
@active_window = :command # 激活指定窗口
end
end
#--------------------------------------------------------------------------
# ● [使用目標窗口]下的輸入反應(鍵位)
#--------------------------------------------------------------------------
def target_Input(key)
case key
when :C
#----------------------------
# 如果物品用完的情况下
#----------------------------
if $game_party.item_number(@item.id) == 0
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
return
end
#----------------------------
# 目标是全体的情况下
#----------------------------
if @wins[:target].index == -1
# 对同伴全体应用物品使用效果
used = false
$game_party.actors.each do |i| used |= i.item_effect(@item) end
end
#----------------------------
# 目标是单体的情况下
#----------------------------
if @wins[:target].index >= 0
# 对目标角色应用物品的使用效果
target = $game_party.actors[@wins[:target].index]
used = target.item_effect(@item)
end
#----------------------------
# 使用物品的情况下
#----------------------------
if used
# 演奏物品使用时的 SE
$game_system.se_play(@item.menu_se)
# 消耗品的情况下
if @item.consumable
# 使用的物品数减 1
$game_party.lose_item(@item.id, 1)
# 再描绘物品窗口的项目
@wins[:items].draw_item(@wins[:items].index)
end
# 再生成目标窗口的内容
@wins[:target].refresh
# 全灭的情况下
if $game_party.all_dead?
$scene = Scene_Gameover.new
#--->切換回遊戲結束畫面
return
end
# 公共事件 ID 有效的情况下
if @item.common_event_id > 0
# 预约调用公共事件
$game_temp.common_event_id = @item.common_event_id
$scene = Scene_Map.new
#--->切換回地圖畫面
return
end
#----------------------------
# 重刷新物品欄
#----------------------------
@wins[:items].refresh(@wins[:command].index)
end
#----------------------------
# 无法使用物品的情况下
#----------------------------
unless used
# 演奏冻结 SE
$game_system.se_play($data_system.buzzer_se)
end
when :B
$game_system.se_play($data_system.cancel_se) # 演奏取消 SE
#----------------------------
# 由于物品用完而不能使用的场合
#----------------------------
unless $game_party.item_can_use?(@item.id)
# 再次生成物品窗口的内容
if Input.trigger?(Input::C)
@wins[:items].refresh(@wins[:command].index)
end
end
@wins[:target].visible = false # 關閉目標窗口
@active_window = :items # 激活指定窗口
end
end
#--------------------------------------------------------------------------
# ● 釋放
#--------------------------------------------------------------------------
def terminate
@spriteset.dispose
end
end

复制代码

柳之一 · 发表于 2008-5-28 22:35:04

以下引用hitlerson于2008-5-27 19:56:22的发言：

已知BUG ： 1 窗口拖拉到X、Y为负值时，可能引起窗口的不能控制
2 Secen_map在菜单中操作的时候,人物还会在地图上走路

[本贴由作者于 2008-5-28 10:37:07 最后编辑]

bug 2原因找到，解决方案如下：
以状态栏为例子，当你点到状态的时候，应该跳转到新的场景sence—status，
然后在新的场景里面建立你的物品窗口，然后在写上@spriteset = Spriteset_Map.new，这样，map的背景就有了，人物也不会动了。
原来的人物移动是通过鼠标的xy来判断的，你的窗口也是，所以有的时候同时满足人物移动和你窗口选东西的条件，人物自然就会动了。其他同理。

bug1试了试，当上，左，右，出边界的时候好用。就是在下面的时候，会失控，尤其是鼠标的位置在右下角的那个物品状态栏的时候，100%失控。原因估计是你判断的时候，当鼠标在那个位置的时候刷新了物品栏装备栏，而没有让弹出来的窗口active。

由此可见，鼠标系统好像只是从鼠标的xy的区域判断的。而不是判断窗体的。不过前面的bug解决了的话，这个bug就不会出现了。本来想给你改来着，不过东西太多，主要不是按照我的思路，改起来反而可能有bug。还是自己改吧。
问题就是这样了。

hitlerson · 发表于 2008-5-29 02:46:11

谢谢楼上的回答！
不过我想提几个我的看法
BUG1：右下的菜单窗口是在我的控制之内的，我说的是，当窗口拖到如下状态的时候

在重新点击窗口的下半部分进行拖动的时候，就会拖不动，只能拖窗口上半福分才能动

BUG2：玩游戏的时候，总是想一边往目的地走，一边查看状态等属性，所以切换Secen就没有意思了，所以我没有用Secen。想在地图上实现鼠标在窗口中的时候，就不判断在地图上行走的点击！

柳之一 · 发表于 2008-5-29 03:28:48

以下引用hitlerson于2008-5-28 18:46:11的发言：

谢谢楼上的回答！
不过我想提几个我的看法
BUG1：右下的菜单窗口是在我的控制之内的，我说的是，当窗口拖到如下状态的时候

在重新点击窗口的下半部分进行拖动的时候，就会拖不动，只能拖窗口上半福分才能动

BUG2：玩游戏的时候，总是想一边往目的地走，一边查看状态等属性，所以切换Secen就没有意思了，所以我没有用Secen。想在地图上实现鼠标在窗口中的时候，就不判断在地图上行走的点击！

[本贴由作者于 2008-5-28 18:47:50 最后编辑]

那就加2个开关，当菜单打开的时候，鼠标寻路的为off。寻路的为on的时候，菜单为off.
bug1那个下面的确是拖不动，

说白了，这个bug的原因，就是鼠标脚本的缺点所导致的。只好全盘否定那个鼠标脚本，重新写个了。寻路的我这我有现成的，鼠标的就得重写了。而且每个场景都要重写一些东西。浩大的工程。由于我主要研究的arpg方向，对鼠标脚本不是很需要，没有动力重写啊……

hitlerson · 发表于 2008-5-29 03:36:46

禾西的脚本我看了，哈哈，谁叫是个才鸟嫩，看不明白
@wins.each_value{|i|i.dispose if i != nil}不理解
大致看了下，鼠标判断的思路应该差不多吧~都是捕捉窗口范围
这个脚本偶就回去研究下，不客气啦，呵呵！！！{/tp}

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

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

贵宾

第3届短篇游戏大赛主流游戏组冠军

第1届Title华丽大赛新人奖