onms/sacred-ritual-academy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
sacred-ritual-academy/Scripts/RGSS3_Script_UniversalMouse_.rb
DazedAnon cbdd5f881f Initial Commit
2025-03-18 19:45:34 -05:00

2174 lines
No EOL
99 KiB
Ruby
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ■ RGSS3 Script UniversalMouse - 汎用マウス操作 -
#_/----------------------------------------------------------------------------
#_/ 制 作 者 : CanariAlternate
#_/ 配 布 元 : カルトの鳥篭 (http://canarialt.blog.fc2.com)
#_/----------------------------------------------------------------------------
#_/ □ 概要 : マウスでゲームが出来るようにするスクリプトです。設定を弄る程度で
#_/ プリセット以外でもある程度は対応できるようにしたつもりです。
#_/ ※ マウス操作の設定には多少、スクリプトに関する知識を要します。
#_/
#_/ □ 必須 : CAMouse.dllをSystemフォルダに配置
#_/
#_/ □ 位置 : 「▼ 素材」より下
#_/----------------------------------------------------------------------------
#_/ 現在、確認している問題
#_/ 2014/04/03 特定の条件を満たした状態でコンフィグ(F1)を表示すると
#_/ マウスカーソルが非表示のままになり操作が困難になる。
#_/
#_/----------------------------------------------------------------------------
#_/ 更新履歴 : 2013/09/23 Ver1.00 スクリプトを作成した。
#_/ 2013/09/24 Ver1.01 バグの修正と各種設定を調整した。
#_/ 2013/09/25 Ver1.02 無駄な処理を省き若干軽量化した。
#_/ 2013/09/28 Ver1.03 マウス入力の処理方法を変更した。
#_/ 2013/10/01 Ver1.04 マウスによるプレイヤー移動処理を変更した。
#_/ 2013/10/09 Ver1.05 F12リセットのバグ対策の記述を追加した。
#_/ 2013/10/20 Ver1.06 初期設定に問題を確認したので修正した。
#_/ 2013/10/22 Ver1.07 マウス操作の設定に条件式を使用可能にした。
#_/ 2013/11/01 Ver1.08 マウスカーソルのアニメーション機能を追加した。
#_/ 2013/11/02 Ver1.09 一部の計算式や判定式を設定で弄れるようにした。
#_/ 2013/11/03 Ver1.10 マウスホイールの回転操作の仕様を修正した。
#_/ 2013/11/04 Ver1.11 コンフィグ表示時にマウスが非表示のままの問題を修正した。
#_/ 2013/11/06 Ver1.12 マウス操作の設定の更新タイミングを変更した。
#_/ 2013/11/09 Ver1.13 カーソル及びマウスカーソルの移動に関する仕様を変更した。
#_/ 2013/11/09 Ver1.14 ゲームオーバー画面での設定が抜けていたので追加した。
#_/ 2013/11/10 Ver1.15 クライアント領域とゲーム画面領域の座標変換を追加した。
#_/ 2013/12/06 Ver1.16 セーブ・ロード画面におけるマウスカーソルの挙動を修正した。
#_/ 2013/12/11 Ver1.17 DLLファイルをCRTライブラリに依存しないように修正した。
#_/ 2014/04/03 Ver1.18 コンフィグ表示時にマウスが非表示の問題を若干修正した。
#_/ 2014/04/09 Ver1.19 マウスによるプレイヤー移動処理(:MOVE)を変更した。
#_/ 2014/05/26 Ver1.20 キーを押した状態で:MOVEに切り替わった時に移動する問題を修正した。
#_/ 2014/05/26 Ver1.21 画面内から押し続けているキーは画面外でも有効に仕様を変更した。
#_/ 2014/06/09 Ver1.22 DLLファイルをSystemフォルダに配置するように変更した。
#_/ 2014/07/06 Ver1.23 存在しないクラスを設定した場合、警告を表示するようにした。
#_/ 2014/07/10 Ver1.24 マウスによるプレイヤー移動処理(:MOVE)を変更した。
#_/ 2014/07/25 Ver1.26 モジュールの初期化処理を修正した。
#_/ 2014/07/29 Ver1.27 画面外の場合、マウスカーソルの画像が非表示になるよう修正した。
#_/ 2015/05/17 Ver1.28 イベントコマンドの条件分岐のボタンが機能していない問題を修正した。
#_/ 2015/08/29 Ver1.29 ウィンドウ最小化を解除した際にエラーが発生する問題を修正した。
#_/ 2015/08/30 Ver1.30 特殊なシンボルCPLUSがInput.repeat?において真を出力する間隔が短い問題を修正した。
#_/ 2015/09/02 Ver1.31 毎フレーム実行する必要のない処理を大きく間隔をあけて実行するように変更した。
#_/ 2015/09/05 Ver1.32 マウスの拡張ボタンに対応させた。それに合わせて初期設定とその説明を修正した。
#_/ 2015/09/10 Ver1.33 特殊なシンボル:CURSORの動作を修正した。
#_/ 2015/12/06 Ver1.34 フルスクリーン時のコンフィグにおいてマウスカーソルが非表示になる問題を修正した。
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
$imported ||= {}
$imported[:CanariAlternate_Mouse] = true
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▼ 以下、スクリプトの設定
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#==============================================================================
# ■ Calt
#------------------------------------------------------------------------------
# 　CanariAlternateが制作したスクリプト用のモジュールです。
#==============================================================================
module Calt
#----------------------------------------------------------------------------
# ▼ マウスカーソルの設定
#
# ◇ マウスカーソルのタイプ
# 0 = マウスカーソル用の画像を使用 ※ 推奨
# 1 = PCのデフォルトのマウスカーソルを使用
MOUSE_CURSOR_TYPE = 0
#
#----------------------------------------------------------------------------
# ▼ マウスカーソル用の画像の設定
#
# マウスカーソルの画像はここで設定した横幅×縦幅の画像を連ねたものを用意します。
# キャラクター画像等のように並べてもいいですし、ひたすら横に並べても大丈夫です。
#
# ◇ マウスカーソルの画像名（拡張子は含まない）
MOUSE_CURSOR_GRAPHIC_NAME = "Graphics/Characters/Behavior4"
# 初期設定ではマウスカーソルとしてRTPのキャラクター画像を使用している。
# 例えば、Graphics/Systemフォルダに配置したMouseCursor.pngを使用する場合の
# 設定は下記のようになる。
# MOUSE_CURSOR_GRAPHIC_NAME = "Graphics/System/MouseCursor"
#
# ◇ マウスカーソルの横幅
MOUSE_CURSOR_WIDTH = 32
#
# ◇ マウスカーソルの縦幅
MOUSE_CURSOR_HEIGHT = 32
#
# ◇ マウスカーソルの転送元原点の X 座標（この値だけ左に移動した位置に表示）
MOUSE_CURSOR_OX = 0
# マウスカーソル画像の先っぽの位置を設定する項目。
# 例えば、横幅32の画像の場合、0で左端、31で右端が先っぽになる。
#
# ◇ マウスカーソルの転送元原点の Y 座標（この値だけ上に移動した位置に表示）
MOUSE_CURSOR_OY = 18
# マウスカーソル画像の先っぽの位置を設定する項目。
# 例えば、縦幅32の画像の場合、0で上端、31で下端が先っぽになる。
#
# ◇ マウスカーソルのアニメーションパターンの配列（配列のサイズは 1 以上）
MOUSE_ANIME_PATTERN = [34, 35, 34, 33]
# 左から順番に番号に対応する画像が表示されます。
# 右端まで表示し終わったら左端に戻って再び左から順番に表示していきます。
# 番号は画像の左上が 0 で右に向かって 0, 1, 2, 3, ……っと割り振られます。
#
# ◇ アニメーションの更新フレーム間隔（60フレームで1秒）
MOUSE_ANIME_COUNT = 18
#
# ◇ 一定時間操作が無い時は非表示
# 0 ～ = 指定フレーム数経過後に非表示（60フレームで1秒）
# nil = 常に表示
MOUSE_CURSOR_COUNT = 300
#
#----------------------------------------------------------------------------
# ▼ 仕様に関する設定
#
# ◇ マウスホイール回転の擬似リピート入力化 （※ 普通は初期値のままで可 ※）
# 最後のホイール回転から MOUSE_WHEEL_REPEAT にて指定したフレーム数が経過する
# まで、ホイール回転をリピート入力として扱います。
# MOUSE_WHEEL_REPEAT_SYMBOL は、この機能の対象となるキーに対応するシンボルの
# 配列です。初期設定ではカーソルキーが対象です。
# この機能は、ホイール回転にてメニュー項目の最後（最初）に達した際に
# 最初（最後）にワープさせないことを意図しています。
MOUSE_WHEEL_REPEAT = 30 # 値は 1 以上、推奨値 10 ～ 40
MOUSE_WHEEL_REPEAT_SYMBOL = [:UP, :DOWN, :LEFT, :RIGHT]
#
# ◇ メニュー項目にマウスカーソルを移動させる場合の座標の計算式
# base_x = メニュー項目の X 座標
# base_y = メニュー項目の Y 座標
# width = メニュー項目の幅
# height = メニュー項目の高さ
MOUSE_POS_X = "base_x + [width - width / 20, width - MouseCursor.width ].max"
MOUSE_POS_Y = "base_y + [ height / 3, MouseCursor.height].min"
# ※ 初期設定はメニュー項目の右上付近になるように設定されています。
#
# ◇ アクティブなウィンドウの判定式
# window = 判定対象のウィンドウのオブジェクト
ACTIVE_WINDOW_CRITERION = "window.active && window.open? && window.visible"
#
#----------------------------------------------------------------------------
# ▼ デバッグ関連
#
# ◇ アクティブなウィンドウの配列を表示
# p $debug_active_windows
#
# ◇ 各マウス入力に対応するシンボルの配列を表示
# p $debug_input_mouse
#
# ◇ 各マウス入力に対応するウィンドウ・シーンクラスの配列を表示
# p $debug_obs_subject
#----------------------------------------------------------------------------
end
#==============================================================================
# ■ MouseCursor
#------------------------------------------------------------------------------
# 　マウスカーソルを管理するモジュールです。マウスカーソルの状態や座標の取得
# 座標の設定などは、このモジュールから実行します。
#==============================================================================
module MouseCursor
#----------------------------------------------------------------------------
# ▼ マウス操作の設定
#
# ◇ ウィンドウクラス(シーンクラス)毎にマウス操作を設定
# クラス名にて設定したクラス（サブクラス含む）のウィンドウ（シーン）が
# アクティブな場合、その右側で設定したキーがマウスの入力として扱われます。
# キーはシンボルで設定します。アクティブなウィンドウ（シーン）が複数ある場合は
# 下の方（配列の末尾側）の設定が優先されます。
#
#
# クラス名 = クラス名をシンボルで設定します。対象はサブクラスも含みます。
# ※ 文字列を設定した場合はeval()で処理し、結果が真の場合に有効。
#
# 左ﾎﾞﾀﾝ = 左マウスボタン。
#
# 右ﾎﾞﾀﾝ = 右マウスボタン。
#
# ﾎｲｰﾙ押 = マウスホイールボタン。
#
# ﾎｲｰﾙ↑ = マウスホイールの奥に回転させた場合。
#
# ﾎｲｰﾙ↓ = マウスホイールの手前に回転させた場合。
#
# 常時 = ここに設定したキーはマウスカーソルが表示中の間、キーが押され続けている判定になる。
# :MOVEでの使用を想定して実装したが使い勝手が悪かったので初期設定では使用していない。
#
# 表示 = マウスカーソルの表示・非表示・未定(true / false / nil)を設定します。
# 特定のウィンドウでマウスカーソルを非表示にしたい場合等に非表示を設定する。
#
# X1ﾎﾞﾀﾝ = マウスの拡張ボタン。
# ブラウザ等における「戻る」が割り当てられている場合が多い。
#
# X2ﾎﾞﾀﾝ = マウスの拡張ボタン。
# ブラウザ等における「次へ」が割り当てられている場合が多い。
#
OBSERVED_SUBJECT_WINDOW = [
# 優先度:低
# [ クラス名(シンボル) , 左ﾎﾞﾀﾝ, 右ﾎﾞﾀﾝ, ﾎｲｰﾙ押, ﾎｲｰﾙ↑, ﾎｲｰﾙ↓, 常時 , 表示 , X1ﾎﾞﾀﾝ, X2ﾎﾞﾀﾝ]
[:Scene_Base , false , false , false , false , false , false , false , false , false ], # 全てのシーンのベース
[:Scene_Map , :MOVE , :C , :B , :ALT , :ALT , false , true , :Y , :X ], # マップ画面
[:Scene_Battle , :C , :C , :C , :ALT , :ALT , false , true , :L , :R ], # バトル画面
# ["$game_switches[99]", :C , :B , :A , :LEFT , :RIGHT, false , true , :L , :R ], # スイッチ99番がONの時
[:Scene_Gameover , :C , :B , :A , false , false , false , true , :L , :R ], # ゲームオーバー画面
[:Window_Message , :C , :CTRL , :CTRL , :ALT , :SHIFT , false , true , :L , :R ], # 文章の表示
[:Window_ScrollText , :C , :B , :A , false , false , false , true , :L , :R ], # 文章のスクロール表示
[:Window_Selectable , :CPLUS, :B , :A , :SE_UP, :SE_DO, false , true , :L , :R ], # メニュー系ウィンドウのベース
[:Window_ItemList , :CPLUS, :B , :A , :SE_UP, :SE_DO, false , true , [:L] , [:R] ], # アイテムリスト
[:Window_SkillList , :CPLUS, :B , :A , :SE_UP, :SE_DO, false , true , [:L] , [:R] ], # スキルリスト
[:Window_Status , :C , :B , :A , :RIGHT ,:LEFT , false , true , :L , :R ], # ステータスウィンドウ
[:Window_ShopNumber , :CPLUS, :B , :A , :RIGHT, :LEFT , false , true , :DOWN , :UP ], # ショップの数値入力のウィンドウ
[:Window_NameInput , :CPLUS, :B , :A , :L , :R , false , true , :L , :R ], # 名前入力のウィンドウ
[:Window_NumberInput , :CPLUS, :B , :A , :UP , :DOWN , false , true , :RIGHT, :LEFT ], # 数値入力のウィンドウ
[:Window_DebugRight , :CPLUS, :B , :A , :RIGHT, :LEFT , false , true , :L , :R ], # デバッグのウィンドウ
[:Scene_File , :C , :B , :A , :UP , :DOWN , false , true , :L , :R ]] # セーブ・ロード画面
# 優先度:高
#
# ◇ 特殊なシンボル
# :CPLUS = マウスカーソルがカーソル上にある時のみ :C を出力します。
# マウスカーソルがカーソル上にない場合は、カーソル上に移動します。
# ※ Window 及びそのサブクラス以外で使用するとエラーになります。
#
# :CURSOR = マウスカーソルをカーソル上に移動させます。
# ※ Window 及びそのサブクラス以外で使用するとエラーになります。
#
# :MOVE = プレイヤーの移動に使用します。それ以外の用途は想定していません。
# キーを押してる間、マウスカーソルの方向へ向かって移動します。
#
# :DASH = ダッシュ状態を維持する為に :A を押した状態で固定します。
# :WALK または :A が押されると解除されます。
# ※ :A の固定状態は :DASH が入力に存在してる時のみです。
# 例えば、より優先度の高いメニューウィンドウなどがアクティブになり
# :DASH が入力に存在しない状態では一時的に :A の固定は解除されます。
# ※ この固定状態は シーンクラス毎 に記憶されます。
#
# :WALK = :DASH による :A の固定状態を解除します。
#
# :SE_UP = ウィンドウのパラメータを参照し、:UP か :LEFT を出力します。
# ※ Window_Selectable 及びそのサブクラス以外で使用するとエラーになります。
#
# :SE_DO = ウィンドウのパラメータを参照し、:DOWN か :RIGHT を出力します。
# ※ Window_Selectable 及びそのサブクラス以外で使用するとエラーになります。
#
# nil = 対応するキー未定（対応するキーの決定権をより優先度の低いクラスに委譲）
#
# false = 対応するキーなし
#
# ◇ プリセットのシンボル
# :UP = 上
# :DOWN = 下
# :LEFT = 左
# :RIGHT = 右
# :C = 決定
# :B = キャンセル
# :A = ダッシュなど
# :X = 未使用（プリセット）
# :Y = 未使用（プリセット）
# :Z = 未使用（プリセット）
# :L = ページ切替(戻る)など
# :R = ページ切替(進む)など
# :SHIFT = Shift
# :CTRL = Ctrl
# :ALT = Alt
# :F5～F9 = ファンクションキー（ F5 ～ F9 ）
#
# ◇ マウスカーソルの移動を無効化
# シンボルを [:C] や [:B] のようにサイズ 1 の配列にするとキーを押した際に
# そのフレームでのマウスカーソルの移動を無効化できる。
#
# ◇ ウィンドウクラス構造図（プリセット）
# + Window_Base
# |---- + Window_Selectable
# | |---- + Window_Command
# | | |---- + Window_HorzCommand
# | | | |---- - Window_ItemCategory
# | | | |---- - Window_EquipCommand
# | | | |---- - Window_ShopCommand
# | | |
# | | |---- - Window_MenuCommand
# | | |---- - Window_SkillCommand
# | | |---- - Window_ChoiceList
# | | |---- - Window_PartyCommand
# | | |---- - Window_ActorCommand
# | | |---- - Window_TitleCommand
# | | |---- - Window_GameEnd
# | |
# | |---- + Window_MenuStatus
# | | |---- - Window_MenuActor
# | |
# | |---- + Window_ItemList
# | | |---- - Window_EquipItem
# | | |---- - Window_ShopSell
# | | |---- - Window_KeyItem
# | | |---- - Window_BattleItem
# | |
# | |---- + Window_SkillList
# | | |---- - Window_BattleSkill
# | |
# | |---- - Window_EquipSlot
# | |---- - Window_Status
# | |---- - Window_ShopBuy
# | |---- - Window_ShopNumber
# | |---- - Window_NameInput
# | |---- - Window_BattleLog
# | |---- + Window_BattleStatus
# | | |---- - Window_BattleActor
# | |
# | |---- - Window_BattleEnemy
# | |---- - Window_DebugLeft
# | |---- - Window_DebugRight
# |
# |---- - Window_Help
# |---- - Window_Gold
# |---- - Window_SkillStatus
# |---- - Window_EquipStatus
# |---- - Window_SaveFile
# |---- - Window_ShopStatus
# |---- - Window_NameEdit
# |---- - Window_NumberInput
# |---- - Window_Message
# |---- - Window_ScrollText
# |---- - Window_MapName
#
#----------------------------------------------------------------------------
end
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▲ 以上、スクリプトの設定
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ■ これ以下で使用する記号表記の意味
#_/
#_/ ★ : 再定義 (競合の原因となる可能性 高)
#_/
#_/ ● : 追加 (競合の原因となる可能性 中)
#_/
#_/ ○ : 新規 (競合の原因となる可能性 低)
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▼ 以下、マウス入力情報の管理に関する定義
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#==============================================================================
# ■ InputMouse
#------------------------------------------------------------------------------
# 　マウスからの入力情報を扱うモジュール。
#==============================================================================
module InputMouse
#--------------------------------------------------------------------------
# ○ 定数
#--------------------------------------------------------------------------
TRUE = 1 # 真(※ TRUEは 0 以外なので関数の判定には FALSE を使用)
FALSE = 0 # 偽
GWL_EXSTYLE = -20 # 拡張ウィンドウスタイル(GetWindowLong)
WS_EX_TOPMOST = 0x08 # 最前面ウィンドウ(拡張ウィンドウスタイル)
SM_SWAPBUTTON = 0x17 # マウスボタンの左右の交換の有無(GetSystemMetrics)
VK_LBUTTON = 0x01 # 左マウスボタン
VK_RBUTTON = 0x02 # 右マウスボタン
VK_MBUTTON = 0x04 # ホイールボタン
VK_XBUTTON1 = 0x05 # X1 mouse button
VK_XBUTTON2 = 0x06 # X2 mouse button
#--------------------------------------------------------------------------
# ○ DLL読み込み失敗時はこのモジュールは動作しない
#--------------------------------------------------------------------------
DllLordError = false
#--------------------------------------------------------------------------
# ○ DLL読み込み
#--------------------------------------------------------------------------
begin
# ゲームウィンドウのウィンドウハンドルを取得
WindowHandle = Win32API.new('System/CAMouse', 'GetWindowHandle', 'v', 'l').call
# マウスホイールの回転量を取得する関数
GetWheelDelta = Win32API.new('System/CAMouse', 'GetWheelDelta' , 'v' , 'l')
# フックの解放（ゲーム終了前に実行させる必要あり）
DisposeHook = Win32API.new('System/CAMouse', 'DisposeHook' , 'v' , 'l')
# フックの再生成（特定の条件を満たすとフックが解除されるので）
RegenerationHook = Win32API.new('System/CAMouse', 'RegenerationHook', 'v' , 'l')
# マウスカーソルの表示・非表示を設定する関数
ShowCursor = Win32API.new('user32', 'ShowCursor' , 'l' , 'l')
# マウスカーソルのスクリーン座標を取得する関数
GetCursorPos = Win32API.new('user32', 'GetCursorPos' , 'p' , 'i')
# マウスカーソルのスクリーン座標を設定する関数
SetCursorPos = Win32API.new('user32', 'SetCursorPos' , %w(i i), 'i')
# ウィンドウのクライアント領域を取得する関数
GetClientRect = Win32API.new('user32', 'GetClientRect' , %w(l p), 'i')
# スクリーン座標をクライアント座標に変換する関数
ScreenToClient = Win32API.new('user32', 'ScreenToClient' , %w(l p), 'i')
# クライアント座標をスクリーン座標に変換する関数
ClientToScreen = Win32API.new('user32', 'ClientToScreen' , %w(l p), 'i')
# キー・ボタンの状態を取得する関数
GetAsyncKeyState = Win32API.new('user32', 'GetAsyncKeyState' , 'i' , 'i')
# システムの状態を取得する関数
GetSystemMetrics = Win32API.new('user32', 'GetSystemMetrics' , 'i' , 'i')
# ウィンドウの状態を取得する関数（フルスクリーン状態の検出に使用）
GetWindowLong = Win32API.new('user32', 'GetWindowLong' , %w(l i), 'l')
# ウィンドウハンドルの取得に失敗した場合
DllLordError = true if WindowHandle == 0
rescue
msgbox("DLLの読み込みに失敗しました！！") if $TEST
DllLordError = true
end
#--------------------------------------------------------------------------
# ○ クラス変数
#--------------------------------------------------------------------------
@@client_rect = "\x00" * 16 # クライアント領域の矩形の取得に使用
@@pos = "\x00" * 8 # マウスカーソルの座標の取得に使用
@@last_frame_count = -1 # 最後のフレーム更新時のカウント
@@regeneration_count = -1 # フック再生成時のカウント
@@input = Array.new(7, 0) # マウス入力の状態
@@input_disabled = [] # マウス入力の禁止リスト
@@delta = 0 # マウスホイールの回転数
@@x = nil # マウスカーソルの X 座標
@@y = nil # マウスカーソルの Y 座標
@@in_client = false # クライアント領域内フラグ
@@inputted = false # マウス入力の有無
@@showing = true # マウスカーソルの表示状態
@@hide_wait = 0 # マウスカーソル非表示までのカウント
#--------------------------------------------------------------------------
# ○ 初期化
#--------------------------------------------------------------------------
def self.init
return if DllLordError
RegenerationHook.call
update
end
#--------------------------------------------------------------------------
# ○ 解放
#--------------------------------------------------------------------------
def self.dispose
return if DllLordError
DisposeHook.call
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの X 座標
#--------------------------------------------------------------------------
def self.x
return @@x
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの Y 座標
#--------------------------------------------------------------------------
def self.y
return @@y
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの座標を設定
#--------------------------------------------------------------------------
def self.set_pos(x, y)
return false if DllLordError
return false if FALSE == GetClientRect.call(WindowHandle, @@client_rect)
width, height = @@client_rect.unpack('l4')[2..3]
x = x * width / Graphics.width
y = y * height / Graphics.height
set_pos = [x, y].pack('ll')
return false if FALSE == ClientToScreen.call(WindowHandle, set_pos)
screen_x , screen_y = set_pos.unpack('ll')
return false if FALSE == SetCursorPos.call(screen_x , screen_y)
if @@showing && @@in_client
@@x, @@y = get_pos
else
@@x, @@y = get_pos
!@@in_client ? show : hide
end
return true
end
#--------------------------------------------------------------------------
# ○ ボタンが現在押されているかどうかを判定
#--------------------------------------------------------------------------
def self.press?(index)
return false if @@input_disabled[index]
return @@input[index] >= 0
end
#--------------------------------------------------------------------------
# ○ ボタンが新たに押されたかどうかを判定
#--------------------------------------------------------------------------
def self.trigger?(index)
return false if @@input_disabled[index]
return @@input[index] == 0
end
#--------------------------------------------------------------------------
# ○ ボタンが新たに押されたかどうかを判定（リピートを考慮）
#--------------------------------------------------------------------------
def self.repeat?(index)
return false if @@input_disabled[index]
value = @@input[index]
return value > 23 ? value % 6 == 5 : value % 23 == 0
end
#--------------------------------------------------------------------------
# ○ ボタンが押され続けている時間を取得
#--------------------------------------------------------------------------
def self.input_time(index)
return -1 if @@input_disabled[index]
return @@input[index]
end
#--------------------------------------------------------------------------
# ○ マウス入力の有無を判定
#--------------------------------------------------------------------------
def self.input?
return true if @@inputted
return true if @@delta != 0
return true if press?(VK_LBUTTON)
return true if press?(VK_RBUTTON)
return true if press?(VK_MBUTTON)
return true if press?(VK_XBUTTON1)
return true if press?(VK_XBUTTON2)
return false
end
#--------------------------------------------------------------------------
# ○ ホイール回転量を取得
#--------------------------------------------------------------------------
def self.wheel_delta
return @@delta
end
#--------------------------------------------------------------------------
# ○ 更新
#--------------------------------------------------------------------------
def self.update
return if DllLordError
@@inputted = input? || @@inputted
update_input
return if @@last_frame_count == Graphics.all_frame_count
if Graphics.all_frame_count - @@regeneration_count > 150
RegenerationHook.call
@@regeneration_count = Graphics.all_frame_count
end
@@inputted = false
@@x, @@y = get_pos # マウスカーソルの座標を更新
if !@@in_client
show
# 画面外での新たな入力は禁止
@@input_disabled[VK_LBUTTON] = true if @@input[VK_LBUTTON] <= 0
@@input_disabled[VK_RBUTTON] = true if @@input[VK_RBUTTON] <= 0
@@input_disabled[VK_MBUTTON] = true if @@input[VK_MBUTTON] <= 0
@@input_disabled[VK_XBUTTON1] = true if @@input[VK_XBUTTON1] <= 0
@@input_disabled[VK_XBUTTON2] = true if @@input[VK_XBUTTON2] <= 0
@@delta = 0
@@hide_wait = 10
else
hide
@@input_disabled.clear
@@hide_wait -= 1 if @@hide_wait > 0
end
show if fullscreen? # フルスクリーン時（F1設定画面におけるマウス非表示の対策）
@@last_frame_count = Graphics.all_frame_count
end
#--------------------------------------------------------------------------
# ○ フルスクリーンかどうか判定
#--------------------------------------------------------------------------
def self.fullscreen?
return GetWindowLong.call(WindowHandle, GWL_EXSTYLE) & WS_EX_TOPMOST == WS_EX_TOPMOST
end
#--------------------------------------------------------------------------
# ○ マウスカーソルを表示（毎フレーム呼び出しで表示状態を維持できる）
#--------------------------------------------------------------------------
def self.show
return if DllLordError
# 表示 : count == 0
# 非表示 : count == -1
# メモ : 32bit版以降のWindowsではプロセスごとに表示カウントが使われている。
# よって、ゲーム終了時にカウントを 0 に戻すなどの処理は不要である。
return if @@showing
begin
count = ShowCursor.call(TRUE)
end while count < 0
ShowCursor.call(FALSE) if count > 0
@@showing = true
end
# 以下は、内部処理
private
#--------------------------------------------------------------------------
# ○ マウスカーソルを非表示
#--------------------------------------------------------------------------
def self.hide
# return unless @@showing # DLLの仕様でコンフィグ画面表示時に表示に切り替わるのでコメントアウト
return if @@hide_wait > 0
if !@@showing
begin
count = ShowCursor.call(FALSE)
end while count >= 0
ShowCursor.call(TRUE) if count < -1
end
@@showing = false
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの座標を取得
#--------------------------------------------------------------------------
def self.get_pos
@@in_client = false
return nil, nil if FALSE == GetCursorPos.call(@@pos)
return nil, nil if FALSE == ScreenToClient.call(WindowHandle, @@pos)
x, y = @@pos.unpack('ll')
return nil, nil if FALSE == GetClientRect.call(WindowHandle, @@client_rect)
width, height = @@client_rect.unpack('l4')[2..3]
return nil, nil if width <= 0 || height <= 0
# クライアント領域内か判定
@@in_client = x >= 0 && y >= 0 && x < width && y < height
# スクリーン座標をゲーム画面座標に変換
x = x * Graphics.width / width
y = y * Graphics.height / height
return x, y
end
#--------------------------------------------------------------------------
# ○ マウス入力を更新
#--------------------------------------------------------------------------
def self.update_input
state_l = GetAsyncKeyState.call(VK_LBUTTON) # 左マウスボタン
state_r = GetAsyncKeyState.call(VK_RBUTTON) # 右マウスボタン
state_m = GetAsyncKeyState.call(VK_MBUTTON) # ホイールボタン
state_1 = GetAsyncKeyState.call(VK_XBUTTON1)
state_2 = GetAsyncKeyState.call(VK_XBUTTON2)
unless FALSE == GetSystemMetrics.call(SM_SWAPBUTTON) # 左右の交換を判定
temp = state_l
state_l = state_r
state_r = temp
end
# 前回の関数呼び出しまでの間に押されていたら真
state_l != 0 ? (@@input[VK_LBUTTON] += 1) : (@@input[VK_LBUTTON] = -1)
state_r != 0 ? (@@input[VK_RBUTTON] += 1) : (@@input[VK_RBUTTON] = -1)
state_m != 0 ? (@@input[VK_MBUTTON] += 1) : (@@input[VK_MBUTTON] = -1)
state_1 != 0 ? (@@input[VK_XBUTTON1] += 1) : (@@input[VK_XBUTTON1] = -1)
state_2 != 0 ? (@@input[VK_XBUTTON2] += 1) : (@@input[VK_XBUTTON2] = -1)
@@delta = GetWheelDelta.call # マウスホイールの回転量
end
end
#==============================================================================
# ■ SceneManager
#------------------------------------------------------------------------------
# 　シーン遷移を管理するモジュールです。たとえばメインメニューからアイテム画面
# を呼び出し、また戻るというような階層構造を扱うことができます。
#==============================================================================
module SceneManager
#--------------------------------------------------------------------------
# ● 実行
#--------------------------------------------------------------------------
class << self
alias :__Mouse__run :run
end
def self.run
begin
InputMouse.init
__Mouse__run
ensure
InputMouse.dispose
end
end
end
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▲ 以上、マウス入力情報の管理に関する定義
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▼ 以下、マウスカーソルの管理に関する定義
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#==============================================================================
# ■ MouseCursor
#------------------------------------------------------------------------------
# 　マウスカーソルを管理するモジュールです。マウスカーソルの状態や座標の取得
# 座標の設定などは、このモジュールから実行します。
#==============================================================================
module MouseCursor
#--------------------------------------------------------------------------
# ○ 定数
#--------------------------------------------------------------------------
LENGTH = 9 # マウス操作の設定の項目数 - 1
#--------------------------------------------------------------------------
# ○ クラス変数
#--------------------------------------------------------------------------
@@last_x = nil # 最後の X 座標
@@last_y = nil # 最後の Y 座標
@@sprite = nil # マウスカーソルのスプライト
@@moved_by_input = false # マウス入力によるカーソル移動の有無
@@active = false # アクティブ（カーソルの表示・非表示）
@@visible = false # 可視状態
@@visible_count = 9999 # 表示時間
@@input_mouse = Array.new(LENGTH, nil) # 現在、有効なマウス入力の設定の配列
@@obs_subject = Array.new(LENGTH, nil) # 設定の対象の配列(一部の特殊なシンボルで使用)
@@invalid_smp = Array.new(LENGTH, nil) # マウスカーソルの移動無効フラグの配列
#--------------------------------------------------------------------------
# ○ アクティブ
#--------------------------------------------------------------------------
def self.active
return @@active
end
#--------------------------------------------------------------------------
# ○ 可視状態
#--------------------------------------------------------------------------
def self.visible
return @@visible
end
#--------------------------------------------------------------------------
# ○ 可視状態の設定
#--------------------------------------------------------------------------
def self.visible=(visible)
@@visible = visible
@@visible_count = visible ? 0 : Calt::MOUSE_CURSOR_COUNT
end
#--------------------------------------------------------------------------
# ○ マウス入力の設定の配列
#--------------------------------------------------------------------------
def self.input_mouse
return @@input_mouse
end
#--------------------------------------------------------------------------
# ○ 設定の対象の配列
#--------------------------------------------------------------------------
def self.obs_subject
return @@obs_subject
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの移動無効フラグの配列
#--------------------------------------------------------------------------
def self.invalid_smp
return @@invalid_smp
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの X 座標
#--------------------------------------------------------------------------
def self.x
return InputMouse.x
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの Y 座標
#--------------------------------------------------------------------------
def self.y
return InputMouse.y
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの画像名
#--------------------------------------------------------------------------
def self.bitmap_name
return Calt::MOUSE_CURSOR_GRAPHIC_NAME
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの横幅
#--------------------------------------------------------------------------
def self.width
return Calt::MOUSE_CURSOR_WIDTH
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの縦幅
#--------------------------------------------------------------------------
def self.height
return Calt::MOUSE_CURSOR_HEIGHT
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの転送元原点の X 座標
#--------------------------------------------------------------------------
def self.ox
return Calt::MOUSE_CURSOR_OX
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの転送元原点の Y 座標
#--------------------------------------------------------------------------
def self.oy
return Calt::MOUSE_CURSOR_OY
end
#--------------------------------------------------------------------------
# ○ マウスカーソルのアニメーションパターン
#--------------------------------------------------------------------------
def self.anime_pattern
return Calt::MOUSE_ANIME_PATTERN
end
#--------------------------------------------------------------------------
# ○ マウスカーソルのアニメーションの更新間隔
#--------------------------------------------------------------------------
def self.anime_count
return Calt::MOUSE_ANIME_COUNT
end
#--------------------------------------------------------------------------
# ○ 特定の画面更新時はマウスカーソルを消去
#--------------------------------------------------------------------------
def self.cursor_hide
return unless @@sprite && !@@sprite.disposed?
@@sprite.visible = false
end
#--------------------------------------------------------------------------
# ○ 現在の画面のビットマップを取得時にマウスカーソルを一時消去
#--------------------------------------------------------------------------
def self.snap_to_bitmap
return yield unless @@sprite && !@@sprite.disposed?
temp = @@sprite.visible
@@sprite.visible = false
begin
return yield
ensure
@@sprite.visible = temp
end
end
#--------------------------------------------------------------------------
# ○ マウスカーソルが有効か判定
#--------------------------------------------------------------------------
def self.valid?
return !(x.nil? || y.nil?)
end
#--------------------------------------------------------------------------
# ○ マウスカーソルがゲーム画面内か判定
#--------------------------------------------------------------------------
def self.in_game_screen?
return false unless valid?
return x >= 0 && y >= 0 && x < Graphics.width && y < Graphics.height
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの移動
#--------------------------------------------------------------------------
def self.set_pos(new_x, new_y)
return false unless in_game_screen?
return false unless 0 <= new_x && new_x < Graphics.width
return false unless 0 <= new_y && new_y < Graphics.height
@@moved_by_input = true if @@last_x != x || @@last_y != y
InputMouse.set_pos(new_x, new_y)
@@last_x = x
@@last_y = y
return true
end
#--------------------------------------------------------------------------
# ○ フレーム更新
#--------------------------------------------------------------------------
def self.update
update_parameter
update_visible
update_mouse_cursor
end
# 以下は、内部処理
private
#--------------------------------------------------------------------------
# ○ 入力設定の更新
#--------------------------------------------------------------------------
def self.update_parameter
input_index = Array.new(LENGTH) {|i| i } # 条件(input_mouse[i] == nil)を満たす i の配列
@@input_mouse = Array.new(LENGTH, nil)
@@obs_subject = Array.new(LENGTH, nil)
@@invalid_smp = Array.new(LENGTH, nil)
observed_subject_each do |value, subject|
input_index.reject! do |i|
symbol = value[i]
symbol = convert_symbol(symbol, subject) if symbol
symbol = symbol[0] if @@invalid_smp[i] = symbol.kind_of?(Array)
if symbol != nil
@@input_mouse[i] = symbol
@@obs_subject[i] = subject
next true
else
next false
end
end
break if input_index.empty?
end
# デバッグ用のグローバル変数
if $TEST
$debug_input_mouse = @@input_mouse
$debug_obs_subject = @@obs_subject.collect do |subject|
next subject.kind_of?(Scene_Base) ? subject.class : subject
end
$debug_invalid_smp = @@invalid_smp
end
end
#--------------------------------------------------------------------------
# ○ マウス入力の設定とその対象を優先度順に出力するイテレータ
#--------------------------------------------------------------------------
def self.observed_subject_each
# アクティブなウィンドウを取得
active_windows = get_active_windows
# デバッグ用のグローバル変数
if $TEST
$debug_active_windows = active_windows
end
begin
OBSERVED_SUBJECT_WINDOW.reverse.each do |value|
next unless value
if value[0].kind_of?(String) # クラス名の部分が文字列の場合
next unless eval(value[0]) rescue next
windows = active_windows
subject = windows.find {|window| window.reader_ok_enabled? }
subject = windows[0] unless subject
yield value[1, LENGTH], subject
next
end
klass = const_get(value[0]) # ウィンドウのクラス（サブクラス）の場合
if klass <= Window
windows = active_windows.select {|window| window.kind_of?(klass) }
next if windows.empty?
subject = windows.find {|window| window.reader_ok_enabled? }
subject = windows[0] unless subject
yield value[1, LENGTH], subject
next
elsif klass <= Scene_Base # シーンベースのクラス（サブクラス）の場合
subject = SceneManager.scene
next unless subject.kind_of?(klass)
yield value[1, LENGTH], subject
next
end
end
rescue
puts "# 警告 : ユニバーサル・マウス"
puts "# マウス操作の設定に問題がある可能性があります。"
puts "# 存在しないクラスを指定している可能性が高いです。"
ensure
return self
end
end
#--------------------------------------------------------------------------
# ○ アクティブなウィンドウの配列を取得
#--------------------------------------------------------------------------
def self.get_active_windows
return Window.get_all_windows.select do |window|
next eval(Calt::ACTIVE_WINDOW_CRITERION)
end
end
#--------------------------------------------------------------------------
# ○ 特殊なシンボルの変換
#--------------------------------------------------------------------------
def self.convert_symbol(symbol, subject)
# ▼ 裏機能（説明には載せてない）
# ◇ 配列を使って特殊なキーを設定
# 偶数の要素にシンボル、その次の要素に判定式を文字列で記述する。判別式が無い
# 場合は判別式が真として扱う。判別式が真の場合、そのシンボルが出力される。
# C_PLUS = [:C, "subject.mouse_in_cursor?", :CURSOR] ※ :CPLUS と同じ動作をするキー
# C_PLUS_EX = [:C , "subject.mouse_in_cursor?" ,
# :UP , "subject.mouse_in_upper_padding?",
# :DOWN , "subject.mouse_in_under_padding?",
# :CURSOR]
# ◇判別式の例
# マウスカーソルがウィンドウのカーソルの範囲内
# "subject.mouse_in_cursor?"
# マウスカーソルがウィンドウの上の余白の範囲内
# "subject.mouse_in_upper_padding?"
# マウスカーソルがウィンドウの下の余白の範囲内
# "subject.mouse_in_under_padding?"
# マウスカーソルがウィンドウの左の余白の範囲内
# "subject.mouse_in_left_padding?"
# マウスカーソルがウィンドウの右の余白の範囲内
# "subject.mouse_in_right_padding?"
# マウスカーソルがウィンドウの範囲内
# "subject.mouse_in_window?"
if symbol.kind_of?(Array) && symbol.size >= 2
(symbol.size / 2).times do |i|
index = i * 2
criterion = symbol[index + 1] # 判別式(文字列)
if !criterion || eval(criterion) # 判別式なし or 判別式が真
symbol = symbol[index]
break
end
end
end
# カーソル移動用
equal_sym = :SE_UP
if symbol == equal_sym || symbol.kind_of?(Array) && symbol[0] == equal_sym
# if subject.handle?(:pagedown) && subject.handle?(:pageup)
# return_sym = :L
# return symbol.kind_of?(Array) ? [return_sym] : return_sym
# elsif subject.item_max > subject.page_item_max
# return_sym = :L
# return symbol.kind_of?(Array) ? [return_sym] : return_sym
# elsif subject.col_max >= 2
if subject.col_max >= 2
return_sym = :LEFT
return symbol.kind_of?(Array) ? [return_sym] : return_sym
else
return_sym = :UP
return symbol.kind_of?(Array) ? [return_sym] : return_sym
end
end
equal_sym = :SE_DO
if symbol == equal_sym || symbol.kind_of?(Array) && symbol[0] == equal_sym
# if subject.handle?(:pagedown) && subject.handle?(:pageup)
# return_sym = :R
# return symbol.kind_of?(Array) ? [return_sym] : return_sym
# elsif subject.item_max > subject.page_item_max
# return_sym = :R
# return symbol.kind_of?(Array) ? [return_sym] : return_sym
# elsif subject.col_max >= 2
if subject.col_max >= 2
return_sym = :RIGHT
return symbol.kind_of?(Array) ? [return_sym] : return_sym
else
return_sym = :DOWN
return symbol.kind_of?(Array) ? [return_sym] : return_sym
end
end
# 決定キーの拡張版
equal_sym = :CPLUS
if symbol == equal_sym || symbol.kind_of?(Array) && symbol[0] == equal_sym
if subject.mouse_in_cursor?
return_sym = :C
return symbol.kind_of?(Array) ? [return_sym] : return_sym
else
return_sym = :CURSOR
return symbol.kind_of?(Array) ? [return_sym] : return_sym
end
end
return symbol
end
#--------------------------------------------------------------------------
# ○ 表示状態の更新
#--------------------------------------------------------------------------
def self.update_visible
@@active = @@input_mouse[6] # アクティブを更新
if !@@active
@@visible = false # マウスカーソルを非表示の場合
elsif @@moved_by_input || InputMouse.input? || (@@last_x != x || @@last_y != y) && @@last_x && @@last_y
@@visible = true # マウスカーソルが移動してる場合
@@visible_count = 0
elsif !Calt::MOUSE_CURSOR_COUNT
@@visible = true # マウスカーソルを常に表示の場合
elsif Calt::MOUSE_CURSOR_COUNT >= 0
if @@visible_count >= Calt::MOUSE_CURSOR_COUNT
@@visible = false # 入力を確認するまで非表示にする
else
@@visible = true
@@visible_count += 1 # 非表示までのカウントを進める
end
end
@@last_x = x
@@last_y = y
@@moved_by_input = false
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの表示の更新
#--------------------------------------------------------------------------
def self.update_mouse_cursor
if Calt::MOUSE_CURSOR_TYPE == 0 # ピクチャーのカーソル
@@sprite = Sprite_Mouse.new if !@@sprite || @@sprite.disposed?
if in_game_screen?
if @@visible
if @@sprite.visible
@@sprite.opacity = [255, @@sprite.opacity + 15].min
else
@@sprite.opacity = 0
end
else
if @@sprite.visible
@@sprite.opacity = [ 0, @@sprite.opacity - 15].max
else
@@sprite.opacity = 0
end
end
@@sprite.visible = @@visible || @@sprite.opacity > 0
else
@@sprite.visible = false
end
@@sprite.update
elsif Calt::MOUSE_CURSOR_TYPE == 1 # デフォルトのカーソル
InputMouse.show if @@visible
end
end
end
#==============================================================================
# ■ Graphics
#------------------------------------------------------------------------------
# 　グラフィック全体にかかわる処理を行うモジュール。
#==============================================================================
module Graphics
#--------------------------------------------------------------------------
# ○ クラス変数
#--------------------------------------------------------------------------
@@all_frame_count = 0 unless $!
#--------------------------------------------------------------------------
# ● alias
#--------------------------------------------------------------------------
class << self
unless $!
alias :__Mouse__fadeout :fadeout
alias :__Mouse__fadein :fadein
alias :__Mouse__freeze :freeze
alias :__Mouse__transition :transition
alias :__Mouse__snap_to_bitmap :snap_to_bitmap
alias :__Mouse__frame_count :frame_count=
end
end
#--------------------------------------------------------------------------
# ● 画面のフェードアウト
#--------------------------------------------------------------------------
def self.fadeout(duration)
MouseCursor.cursor_hide
__Mouse__fadeout(duration)
end
#--------------------------------------------------------------------------
# ● 画面のフェードイン
#--------------------------------------------------------------------------
def self.fadein(duration)
MouseCursor.cursor_hide
__Mouse__fadein(duration)
end
#--------------------------------------------------------------------------
# ● 画面のフリーズ
#--------------------------------------------------------------------------
def self.freeze
MouseCursor.cursor_hide
__Mouse__freeze
end
#--------------------------------------------------------------------------
# ● 画面のトランジション
#--------------------------------------------------------------------------
def self.transition(*args)
MouseCursor.cursor_hide
__Mouse__transition(*args)
end
#--------------------------------------------------------------------------
# ● 現在の画面のビットマップを取得
#--------------------------------------------------------------------------
def self.snap_to_bitmap
return MouseCursor.snap_to_bitmap { __Mouse__snap_to_bitmap }
end
#--------------------------------------------------------------------------
# ● 画面の更新回数のカウントの設定
#--------------------------------------------------------------------------
def self.frame_count=(count)
@@all_frame_count = all_frame_count - count
__Mouse__frame_count(count)
end
#--------------------------------------------------------------------------
# ○ ゲーム起動時からの画面の更新回数のカウント
#--------------------------------------------------------------------------
def self.all_frame_count
return @@all_frame_count + frame_count
end
end
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▲ 以上、マウスカーソルの管理に関する定義
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▼ 以下、マウスカーソルのスプライトの定義
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#==============================================================================
# ■ Sprite_Mouse
#------------------------------------------------------------------------------
# 　マウスカーソルのスプライトです。設定を監視し、自動的に変化します。
#==============================================================================
class Sprite_Mouse < Sprite
#--------------------------------------------------------------------------
# ○ オブジェクト初期化
#--------------------------------------------------------------------------
def initialize
super
@bitmap_name = nil
@anime_pattern = MouseCursor.anime_pattern
@anime_index = 0
@anime_count = 0
self.z = 9999
self.visible = false
self.opacity = 0
create_bitmap
create_src_rect
end
#--------------------------------------------------------------------------
# ○ ビットマップの生成
#--------------------------------------------------------------------------
def create_bitmap
@bitmap_name = MouseCursor.bitmap_name
self.bitmap = Bitmap.new(@bitmap_name)
end
#--------------------------------------------------------------------------
# ○ 矩形の生成
#--------------------------------------------------------------------------
def create_src_rect
rect_i = @anime_pattern[@anime_index]
rect_w = MouseCursor.width
rect_h = MouseCursor.height
x_size = bitmap.width / rect_w
rect_x = rect_w * (rect_i % x_size)
rect_y = rect_h * (rect_i / x_size)
self.src_rect = Rect.new(rect_x, rect_y, rect_w, rect_h)
end
#--------------------------------------------------------------------------
# ○ 解放
#--------------------------------------------------------------------------
def dispose
unless self.bitmap && !self.bitmap.disposed?
self.bitmap.dispose
self.bitmap = nil
end
super
end
#--------------------------------------------------------------------------
# ○ フレーム更新
#--------------------------------------------------------------------------
def update
super
self.x = MouseCursor.x || -1
self.y = MouseCursor.y || -1
self.ox = MouseCursor.ox
self.oy = MouseCursor.oy
update_bitmap
update_anime
end
#--------------------------------------------------------------------------
# ○ ビットマップの更新
#--------------------------------------------------------------------------
def update_bitmap
unless @bitmap_name == MouseCursor.bitmap_name
self.bitmap.dispose if self.bitmap && !self.bitmap.disposed?
create_bitmap
@anime_index = 0
@anime_count = 0
end
end
#--------------------------------------------------------------------------
# ○ アニメーションの更新
#--------------------------------------------------------------------------
def update_anime
if !@anime_pattern.equal?(MouseCursor.anime_pattern)
# アニメーションパターンのオブジェクトが違う場合
@anime_pattern = MouseCursor.anime_pattern
@anime_index = 0
@anime_count = 0
create_src_rect
elsif @anime_count > MouseCursor.anime_count
@anime_index += 1
@anime_index = 0 unless @anime_index < @anime_pattern.size
@anime_count = 0
create_src_rect
end
@anime_count += 1
end
end
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▲ 以上、マウスカーソルのスプライトの定義
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▼ 以下、マウス入力情報の処理に関する定義
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#==============================================================================
# ■ Input
#------------------------------------------------------------------------------
# 　ゲームパッドやキーボードからの入力情報を扱うモジュール。
#==============================================================================
module Input
#--------------------------------------------------------------------------
# ○ 定数
#--------------------------------------------------------------------------
PRESET_SYMBOL = [:SHIFT, :CTRL, :ALT, # プリセットのシンボル
:DOWN, :LEFT, :RIGHT, :UP,
:A, :B, :C, :X, :Y, :Z, :L, :R,
:F5, :F6, :F7, :F8, :F9]
VK_MOUSE_L = InputMouse::VK_LBUTTON # 左マウスボタン
VK_MOUSE_R = InputMouse::VK_RBUTTON # 右マウスボタン
VK_MOUSE_M = InputMouse::VK_MBUTTON # ホイールボタン
VK_MOUSE_X1 = InputMouse::VK_XBUTTON1 # X1 mouse button
VK_MOUSE_X2 = InputMouse::VK_XBUTTON2 # X2 mouse button
#--------------------------------------------------------------------------
# ○ クラス変数
#--------------------------------------------------------------------------
@@input_result_dir4 = nil # dir4 の出力を記憶
@@input_result_dir8 = nil # dir8 の出力を記憶
@@input_table = {} # 入力情報のテーブル
@@input_a_fix = {} # :A の固定フラグをシーン毎に記憶
@@start_move = false # :MOVE で使用。移動入力開始フラグ
@@wheel_count = 0 # マウスホイールのリピート判定時間
@@wheel_rotate = 0 # マウスホイールの回転数
@@last_frame_count = -1 # 最後のフレーム更新時のカウント
#--------------------------------------------------------------------------
# ● alias
#--------------------------------------------------------------------------
class << self
unless $!
alias :__Mouse__update :update
alias :__Mouse__press? :press?
alias :__Mouse__trigger? :trigger?
alias :__Mouse__repeat? :repeat?
alias :__Mouse__dir4 :dir4
alias :__Mouse__dir8 :dir8
end
end
#--------------------------------------------------------------------------
# ● フレーム更新
#--------------------------------------------------------------------------
def self.update
__Mouse__update
InputMouse.update
clear_input_result
update_input_table
end
#--------------------------------------------------------------------------
# ★ press?
#--------------------------------------------------------------------------
def self.press?(sym)
return @@input_table[sym] ? true : false
end
#--------------------------------------------------------------------------
# ★ trigger?
#--------------------------------------------------------------------------
def self.trigger?(sym)
return @@input_table[sym] == 0 ? true : false
end
#--------------------------------------------------------------------------
# ★ repeat?
#--------------------------------------------------------------------------
def self.repeat?(sym)
return false unless value = @@input_table[sym]
return value > 23 ? value % 6 == 5 : value % 23 == 0
end
#--------------------------------------------------------------------------
# ★ dir4
#--------------------------------------------------------------------------
def self.dir4
if @@input_result_dir4 == nil
vert = 0
horz = 0
vert += 8 if press?(:UP)
vert += 2 if press?(:DOWN)
horz += 4 if press?(:LEFT)
horz += 6 if press?(:RIGHT)
vert %= 10
horz %= 10
if vert == 0
@@input_result_dir4 = horz
elsif horz == 0
@@input_result_dir4 = vert
else
vert_value = vert == 8 ? @@input_table[:UP] : @@input_table[:DOWN]
horz_value = horz == 4 ? @@input_table[:LEFT] : @@input_table[:RIGHT]
@@input_result_dir4 = horz_value < vert_value ? horz : vert
end
end
return @@input_result_dir4
end
#--------------------------------------------------------------------------
# ★ dir8
#--------------------------------------------------------------------------
def self.dir8
if @@input_result_dir8 == nil
vert = 0
horz = 0
vert += 8 if press?(:UP)
vert += 2 if press?(:DOWN)
horz += 4 if press?(:LEFT)
horz += 6 if press?(:RIGHT)
vert %= 10
horz %= 10
if vert == 0
@@input_result_dir8 = horz
elsif horz == 0
@@input_result_dir8 = vert
else
@@input_result_dir8 = horz + vert - 5
end
end
return @@input_result_dir8
end
# 以下は、内部処理
private
#--------------------------------------------------------------------------
# ○ プレイヤーから見たマウスカーソルの方向（４方向）を取得 ※現在は未使用
#--------------------------------------------------------------------------
def self.dir4_mouse
return 0 unless MouseCursor.valid?
mx = (MouseCursor.x - 16 + $game_map.display_x * 32) / 32.0
my = (MouseCursor.y - 16 + $game_map.display_y * 32) / 32.0
dx = $game_player.distance_x_from(mx)
dy = $game_player.distance_y_from(my)
dx_abs = dx.abs
dy_abs = dy.abs
return 0 if dx_abs <= 0.5 && dy_abs <= 0.5
if dx_abs > dy_abs
return dx < 0 ? 6 : 4
else
return dy < 0 ? 2 : 8
end
end
#--------------------------------------------------------------------------
# ○ プレイヤーから見たマウスカーソルの方向（８方向）を取得
#--------------------------------------------------------------------------
def self.dir8_mouse
return 0 unless MouseCursor.valid?
mx = (MouseCursor.x - 16 + $game_map.display_x * 32) / 32.0
my = (MouseCursor.y - 16 + $game_map.display_y * 32) / 32.0
dx = $game_player.distance_x_from(mx)
dy = $game_player.distance_y_from(my)
dx_abs = dx.abs
dy_abs = dy.abs
return 0 if dx_abs <= 0.5 && dy_abs <= 0.5
if dy_abs <= 0.5 || dx_abs > dy_abs * 2
return dx < 0 ? 6 : 4
elsif dx_abs <= 0.5 || dx_abs * 2 < dy_abs
return dy < 0 ? 2 : 8
else
return dx < 0 ? (dy < 0 ? 3 : 9) : (dy < 0 ? 1 : 7)
end
end
#--------------------------------------------------------------------------
# ○ 出力の記憶を消去
#--------------------------------------------------------------------------
def self.clear_input_result
@@input_result_dir4 = nil
@@input_result_dir8 = nil
end
#--------------------------------------------------------------------------
# ○ 入力情報を更新
#--------------------------------------------------------------------------
def self.update_input_table
# 有効な設定を取得
input_mouse = MouseCursor.input_mouse # 現在、有効なマウス入力の設定の配列
obs_subject = MouseCursor.obs_subject # 設定の対象の配列(一部の特殊なシンボルで使用)
invalid_smp = MouseCursor.invalid_smp # マウスカーソルの移動無効フラグの配列
# @@input_table の要素は -1 以上の値を想定
# nil = press? == F, trigger? == F, repeat? == F
# -1 = press? == T, trigger? == F, repeat? == F ※扱いは nil と同様
# 0 = press? == T, trigger? == T, repeat? == T
# 1 ～ 22 = press? == T, trigger? == F, repeat? == F
# 23 = press? == T, trigger? == F, repeat? == T
old_input_table = @@input_table.clone # 前フレームの入力情報
@@input_table.clear
# フレーム更新の確認(0 と 1 は通常の更新、2 以上は前フレームの情報をクリア)
rem_frame_count = Graphics.all_frame_count - @@last_frame_count
if rem_frame_count >= 2
old_input_table.clear
@@wheel_rotate = 0
@@wheel_count = 0
end
@@last_frame_count += rem_frame_count
# マウスの入力情報（ボタン）
if symbol = input_mouse[0] and InputMouse.press?(VK_MOUSE_L)
Window.invalid_set_mouse_pos = true if invalid_smp[0]
if symbol == :CURSOR
obs_subject[0].reserve_set_mouse_pos = true if InputMouse.trigger?(VK_MOUSE_L)
elsif count = old_input_table[symbol] and count >= 0
@@input_table[symbol] = count + 1
else
@@input_table[symbol] = InputMouse.input_time(VK_MOUSE_L)
end
end
if symbol = input_mouse[1] and InputMouse.press?(VK_MOUSE_R)
Window.invalid_set_mouse_pos = true if invalid_smp[1]
if symbol == :CURSOR
obs_subject[1].reserve_set_mouse_pos = true if InputMouse.trigger?(VK_MOUSE_R)
elsif count = old_input_table[symbol] and count >= 0
@@input_table[symbol] = count + 1
else
@@input_table[symbol] = InputMouse.input_time(VK_MOUSE_R)
end
end
if symbol = input_mouse[2] and InputMouse.press?(VK_MOUSE_M)
Window.invalid_set_mouse_pos = true if invalid_smp[2]
if symbol == :CURSOR
obs_subject[2].reserve_set_mouse_pos = true if InputMouse.trigger?(VK_MOUSE_M)
elsif count = old_input_table[symbol] and count >= 0
@@input_table[symbol] = count + 1
else
@@input_table[symbol] = InputMouse.input_time(VK_MOUSE_M)
end
end
if symbol = input_mouse[7] and InputMouse.press?(VK_MOUSE_X1)
Window.invalid_set_mouse_pos = true if invalid_smp[7]
if symbol == :CURSOR
obs_subject[7].reserve_set_mouse_pos = true if InputMouse.trigger?(VK_MOUSE_X1)
elsif count = old_input_table[symbol] and count >= 0
@@input_table[symbol] = count + 1
else
@@input_table[symbol] = InputMouse.input_time(VK_MOUSE_X1)
end
end
if symbol = input_mouse[8] and InputMouse.press?(VK_MOUSE_X2)
Window.invalid_set_mouse_pos = true if invalid_smp[8]
if symbol == :CURSOR
obs_subject[8].reserve_set_mouse_pos = true if InputMouse.trigger?(VK_MOUSE_X2)
elsif count = old_input_table[symbol] and count >= 0
@@input_table[symbol] = count + 1
else
@@input_table[symbol] = InputMouse.input_time(VK_MOUSE_X2)
end
end
# マウスの入力情報（ホイール）
if @@wheel_rotate == 0
@@wheel_rotate = (InputMouse.wheel_delta / 120).to_i
elsif @@wheel_rotate > 0
new_rotate = (InputMouse.wheel_delta / 120).to_i
@@wheel_rotate = new_rotate >= 0 ? @@wheel_rotate + new_rotate : new_rotate
else
new_rotate = (InputMouse.wheel_delta / 120).to_i
@@wheel_rotate = new_rotate <= 0 ? @@wheel_rotate + new_rotate : new_rotate
end
if symbol = input_mouse[3] and @@wheel_rotate > 0
Window.invalid_set_mouse_pos = true if invalid_smp[3]
if symbol == :CURSOR
obs_subject[3].reserve_set_mouse_pos = true
elsif rem_frame_count == 0
if count = old_input_table[symbol] and count >= 0
@@input_table[symbol] = count + 1
else
@@input_table[symbol] = @@wheel_count > 0 ? 23 : 0
end
else
if Calt::MOUSE_WHEEL_REPEAT_SYMBOL.include?(symbol)
count = old_input_table[symbol]
@@input_table[symbol] = (@@wheel_count > 0 || count && count >= 0) ? 23 : 0
else
@@input_table[symbol] = 0
end
end
end
if symbol = input_mouse[4] and @@wheel_rotate < 0
Window.invalid_set_mouse_pos = true if invalid_smp[4]
if symbol == :CURSOR
obs_subject[4].reserve_set_mouse_pos = true
elsif rem_frame_count == 0
if count = old_input_table[symbol] and count >= 0
@@input_table[symbol] = count + 1
else
@@input_table[symbol] = @@wheel_count > 0 ? 23 : 0
end
else
if Calt::MOUSE_WHEEL_REPEAT_SYMBOL.include?(symbol)
count = old_input_table[symbol]
@@input_table[symbol] = (@@wheel_count > 0 || count && count >= 0) ? 23 : 0
else
@@input_table[symbol] = 0
end
end
end
if @@wheel_rotate != 0
@@wheel_count = Calt::MOUSE_WHEEL_REPEAT
@@wheel_rotate = [[@@wheel_rotate, 30].min, -30].max if @@wheel_rotate.abs > 30
@@wheel_rotate += @@wheel_rotate < 0 ? 1 : -1 if rem_frame_count != 0
elsif @@wheel_count > 0
@@wheel_count -= 1
end
# マウスの入力情報（常時）
if symbol = input_mouse[5] and MouseCursor.visible && MouseCursor.in_game_screen?
Window.invalid_set_mouse_pos = true if invalid_smp[5]
count = old_input_table[symbol]
@@input_table[symbol] = count ? count + 1 : 0
obs_subject[5].reserve_set_mouse_pos = true if symbol == :CURSOR && !count
end
# プリセットの入力情報
PRESET_SYMBOL.each do |symbol|
next unless __Mouse__press?(symbol)
count = old_input_table[symbol]
@@input_table[symbol] = count ? count + 1 : 0
end
# :MOVE の処理
if @@input_table[:MOVE] and @@start_move ||
input_mouse[0] == :MOVE && InputMouse.trigger?(VK_MOUSE_L) ||
input_mouse[1] == :MOVE && InputMouse.trigger?(VK_MOUSE_R) ||
input_mouse[2] == :MOVE && InputMouse.trigger?(VK_MOUSE_M) ||
input_mouse[5] == :MOVE && MouseCursor.visible
direction = dir8_mouse
if [1, 2, 3].include?(direction)
symbol = :DOWN
count = old_input_table[symbol]
@@input_table[symbol] = count ? count + 1 : 0
end
if [7, 8, 9].include?(direction)
symbol = :UP
count = old_input_table[symbol]
@@input_table[symbol] = count ? count + 1 : 0
end
if [1, 4, 7].include?(direction)
symbol = :LEFT
count = old_input_table[symbol]
@@input_table[symbol] = count ? count + 1 : 0
end
if [3, 6, 9].include?(direction)
symbol = :RIGHT
count = old_input_table[symbol]
@@input_table[symbol] = count ? count + 1 : 0
end
@@start_move = true
else
@@start_move = false
end
# :DASH :WALK の処理
scene_class = SceneManager.scene.class
if @@input_a_fix[scene_class]
if @@input_table[:WALK] == 0 || @@input_table[:A]
@@input_a_fix[scene_class] = false
elsif input_mouse.include?(:DASH) && MouseCursor.visible
@@input_table[:A] = -1
end
else
if @@input_table[:DASH] == 0 && !@@input_table[:A]
@@input_a_fix[scene_class] = true
@@input_table[:A] = -1
end
end
# イベントコマンド『条件分岐 ボタン』からの入力に対応する為の処理
@@input_table[2] = @@input_table[:DOWN]
@@input_table[4] = @@input_table[:LEFT]
@@input_table[6] = @@input_table[:RIGHT]
@@input_table[8] = @@input_table[:UP]
@@input_table[11] = @@input_table[:A]
@@input_table[12] = @@input_table[:B]
@@input_table[13] = @@input_table[:C]
@@input_table[14] = @@input_table[:X]
@@input_table[15] = @@input_table[:Y]
@@input_table[16] = @@input_table[:Z]
@@input_table[17] = @@input_table[:L]
@@input_table[18] = @@input_table[:R]
end
end
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▲ 以上、マウス入力情報の処理に関する定義
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▼ 以下、マウスカーソルの処理に関する定義
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#==============================================================================
# ■ Window
#------------------------------------------------------------------------------
# 　ゲーム内のウィンドウのクラス。内部的には複数のスプライトで構成されています。
#==============================================================================
class Window
#--------------------------------------------------------------------------
# ○ クラス変数
#--------------------------------------------------------------------------
@@all_windows = [] # 全てのウィンドウ
@@invalid_set_mouse_pos = false # カーソルによるマウスカーソルの移動無効
@@invalid_set_cursor_index = false # マウスカーソルによるカーソルの移動無効
#--------------------------------------------------------------------------
# ○ 全てのウィンドウを取得
#--------------------------------------------------------------------------
def self.get_all_windows
@@all_windows.reject! {|window| window.disposed? }
return @@all_windows.clone
end
#--------------------------------------------------------------------------
# ○ カーソルによるマウスカーソルの移動無効の設定
#--------------------------------------------------------------------------
def self.invalid_set_mouse_pos=(invalid)
return @@invalid_set_mouse_pos = invalid
end
#--------------------------------------------------------------------------
# ○ マウスカーソルによるカーソルの移動無効の設定
#--------------------------------------------------------------------------
def self.invalid_set_cursor_index=(invalid)
return @@invalid_set_cursor_index = invalid
end
#--------------------------------------------------------------------------
# ○ 公開インスタンス変数
#--------------------------------------------------------------------------
attr_accessor :reserve_set_mouse_pos # マウスカーソルの移動の予約
#--------------------------------------------------------------------------
# ● オブジェクト初期化
#--------------------------------------------------------------------------
alias :__Mouse__initialize :initialize unless $!
def initialize(x, y, width, height)
__Mouse__initialize(x, y, width, height)
@@all_windows.push self
@reserve_set_mouse_pos = false
@mouse_x = -1 # マウスカーソルの X 相対座標
@mouse_y = -1 # マウスカーソルの Y 相対座標
@absolute_x = -1 # ウィンドウの X 絶対座標
@absolute_y = -1 # ウィンドウの Y 絶対座標
@observed_absolute_x = -1 # ウィンドウの X 絶対座標を監視
@observed_absolute_y = -1 # ウィンドウの Y 絶対座標を監視
@observed_index = -1 # インデックスを監視
@change_active = true # アクティブになったフラグ
@window_moving = -1 # ウィンドウが移動中カウント
end
#--------------------------------------------------------------------------
# ● アクティブ状態の変更
#--------------------------------------------------------------------------
alias :__Mouse__active :active= unless $!
def active=(active)
__Mouse__active(active)
@change_active = active
end
#--------------------------------------------------------------------------
# ○ カーソルが存在するか判定
#--------------------------------------------------------------------------
def cursor_exist?
return cursor_rect.width > 0 && cursor_rect.height > 0
end
#--------------------------------------------------------------------------
# ○ 決定処理の有効状態を取得
#--------------------------------------------------------------------------
def reader_ok_enabled?
return false
end
#--------------------------------------------------------------------------
# ○ マウスカーソルがウィンドウの範囲内か判定
#--------------------------------------------------------------------------
def mouse_in_window?
get_mouse_pos
return false unless 0 <= @mouse_x && @mouse_x < width
return false unless 0 <= @mouse_y && @mouse_y < height
return true
end
#--------------------------------------------------------------------------
# ○ マウスカーソルが上の余白の範囲内か判定
#--------------------------------------------------------------------------
def mouse_in_upper_padding?
get_mouse_pos
return false unless 0 <= @mouse_x && @mouse_x < width
return false unless 0 <= @mouse_y && @mouse_y < padding
return true
end
#--------------------------------------------------------------------------
# ○ マウスカーソルが下の余白の範囲内か判定
#--------------------------------------------------------------------------
def mouse_in_under_padding?
get_mouse_pos
return false unless 0 <= @mouse_x && @mouse_x < width
return false unless height - padding_bottom <= @mouse_y && @mouse_y < height
return true
end
#--------------------------------------------------------------------------
# ○ マウスカーソルが左の余白の範囲内か判定
#--------------------------------------------------------------------------
def mouse_in_left_padding?
get_mouse_pos
return false unless 0 <= @mouse_x && @mouse_x < padding
return false unless 0 <= @mouse_y && @mouse_y < height
return true
end
#--------------------------------------------------------------------------
# ○ マウスカーソルが右の余白の範囲内か判定
#--------------------------------------------------------------------------
def mouse_in_right_padding?
get_mouse_pos
return false unless width - padding <= @mouse_x && @mouse_x < width
return false unless 0 <= @mouse_y && @mouse_y < height
return true
end
#--------------------------------------------------------------------------
# ○ マウスカーソルがウィンドウの範囲内か判定（余白は含まない）
#--------------------------------------------------------------------------
def mouse_in_contents?
get_mouse_pos
return false unless padding <= @mouse_x && @mouse_x < width - padding
return false unless padding <= @mouse_y && @mouse_y < height - padding_bottom
return true
end
#--------------------------------------------------------------------------
# ○ マウスカーソルが現在のカーソルの範囲内か判定
#--------------------------------------------------------------------------
def mouse_in_cursor?
return false unless MouseCursor.valid?
get_mouse_pos
cursor_x = cursor_rect.x + padding - ox
cursor_y = cursor_rect.y + padding - oy
return false unless cursor_x <= @mouse_x && @mouse_x < cursor_x + cursor_rect.width
return false unless cursor_y <= @mouse_y && @mouse_y < cursor_y + cursor_rect.height
return true
end
#--------------------------------------------------------------------------
# ○ マウスカーソルを現在のカーソルの位置に設定
#--------------------------------------------------------------------------
def set_mouse_pos_from_cursor(force=false)
return false if @@invalid_set_mouse_pos || @window_moving >= 0 unless force
return false unless MouseCursor.in_game_screen?
get_absolute_pos
base_x = @absolute_x + padding + cursor_rect.x - ox
base_y = @absolute_y + padding + cursor_rect.y - oy
width = cursor_rect.width
height = cursor_rect.height
dest_x = eval(Calt::MOUSE_POS_X)
dest_y = eval(Calt::MOUSE_POS_Y)
MouseCursor.set_pos(dest_x, dest_y)
return true
end
#--------------------------------------------------------------------------
# ○ カーソルを現在のマウスカーソルの位置に設定
#--------------------------------------------------------------------------
def set_cursor_index_from_mouse(force=false)
return false if @@invalid_set_cursor_index || @window_moving == 0 || @change_active unless force
return false unless MouseCursor.in_game_screen?
return false unless MouseCursor.active
return false unless mouse_in_contents?
# get_mouse_pos # mouse_in_contents? に含まれるのでコメントアウト
relative_x = @mouse_x - padding + ox
relative_y = @mouse_y - padding + oy
rect = reader_item_rect(reader_index)
if rect.x <= relative_x && relative_x < rect.x + rect.width &&
rect.y <= relative_y && relative_y < rect.y + rect.height
return true
end
reader_item_max.times do |i|
rect = reader_item_rect(i)
next unless rect.x <= relative_x && relative_x < rect.x + rect.width
next unless rect.y <= relative_y && relative_y < rect.y + rect.height
self.writer_index = i
@observed_index = reader_index
unless @@invalid_set_mouse_pos
Sound.play_cursor
@@invalid_set_mouse_pos = true
end
return true
end
return false
end
#--------------------------------------------------------------------------
# ○ 更新内容の監視処理
#--------------------------------------------------------------------------
def observe_update
if @@invalid_set_mouse_pos
@reserve_set_mouse_pos = false
elsif reader_index != @observed_index || @change_active
@reserve_set_mouse_pos = true if active && cursor_exist?
end
get_absolute_pos
if @change_active ||
@absolute_x != @observed_absolute_x || @absolute_y != @observed_absolute_y
@window_moving += 1
else
@window_moving = -1
end
@observed_absolute_x = @absolute_x
@observed_absolute_y = @absolute_y
@observed_index = reader_index
@change_active = false
end
#--------------------------------------------------------------------------
# ○ 更新内容の監視後処理
#--------------------------------------------------------------------------
def post_observe_update
@reserve_set_mouse_pos = false if set_mouse_pos?
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの移動を実行するか判定
#--------------------------------------------------------------------------
def set_mouse_pos?
return @window_moving < 0 && @reserve_set_mouse_pos
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの相対座標を取得
#--------------------------------------------------------------------------
def get_mouse_pos
if MouseCursor.valid?
@mouse_x = MouseCursor.x - x
@mouse_y = MouseCursor.y - y
if viewport
@mouse_x -= viewport.rect.x - viewport.ox
@mouse_y -= viewport.rect.y - viewport.oy
end
else
@mouse_x = -1
@mouse_y = -1
end
end
#--------------------------------------------------------------------------
# ○ ウィンドウの絶対座標を取得
#--------------------------------------------------------------------------
def get_absolute_pos
@absolute_x = x
@absolute_y = y
if viewport
@absolute_x += viewport.rect.x - viewport.ox
@absolute_y += viewport.rect.y - viewport.oy
end
end
#--------------------------------------------------------------------------
# ○ 項目数の取得
#--------------------------------------------------------------------------
def reader_item_max
return 0
end
#--------------------------------------------------------------------------
# ○ 項目を描画する矩形の取得
#--------------------------------------------------------------------------
def reader_item_rect(index)
return cursor_rect
end
#--------------------------------------------------------------------------
# ○ カーソル位置の設定
#--------------------------------------------------------------------------
def writer_index=(index)
# nothing
end
#--------------------------------------------------------------------------
# ○ カーソル位置の取得
#--------------------------------------------------------------------------
def reader_index
return -1
end
end
#==============================================================================
# ■ Window_Selectable
#------------------------------------------------------------------------------
# 　カーソルの移動やスクロールの機能を持つウィンドウクラスです。
#==============================================================================
class Window_Selectable < Window_Base
#--------------------------------------------------------------------------
# ● カーソル位置の設定
#--------------------------------------------------------------------------
alias :__Mouse__index :index=
def index=(index)
__Mouse__index(index)
@@invalid_set_cursor_index = true
end
#--------------------------------------------------------------------------
# ● カーソルの移動処理
#--------------------------------------------------------------------------
alias :__Mouse__process_cursor_move :process_cursor_move
def process_cursor_move
last_index = @index
__Mouse__process_cursor_move
return unless @index == last_index && cursor_movable?
set_cursor_index_from_mouse
end
#--------------------------------------------------------------------------
# ○ 決定処理の有効状態を取得
#--------------------------------------------------------------------------
def reader_ok_enabled?
return ok_enabled?
end
#--------------------------------------------------------------------------
# ○ 項目数の取得
#--------------------------------------------------------------------------
def reader_item_max
return item_max
end
#--------------------------------------------------------------------------
# ○ 項目を描画する矩形の取得
#--------------------------------------------------------------------------
def reader_item_rect(index)
return item_rect(index)
end
#--------------------------------------------------------------------------
# ○ カーソル位置の設定
#--------------------------------------------------------------------------
def writer_index=(index)
self.index = index
end
#--------------------------------------------------------------------------
# ○ カーソル位置の取得
#--------------------------------------------------------------------------
def reader_index
return @index
end
end
#==============================================================================
# ■ Window_NumberInput
#------------------------------------------------------------------------------
# 　イベントコマンド［数値入力の処理］に使用するウィンドウです。
#==============================================================================
class Window_NumberInput < Window_Base
#--------------------------------------------------------------------------
# ● カーソルの移動処理
#--------------------------------------------------------------------------
alias :__Mouse__process_cursor_move :process_cursor_move
def process_cursor_move
last_index = @index
__Mouse__process_cursor_move
return unless @index == last_index && active && open?
set_cursor_index_from_mouse
end
#--------------------------------------------------------------------------
# ○ 決定処理の有効状態を取得
#--------------------------------------------------------------------------
def reader_ok_enabled?
return true
end
#--------------------------------------------------------------------------
# ○ 項目数の取得
#--------------------------------------------------------------------------
def reader_item_max
return @digits_max
end
#--------------------------------------------------------------------------
# ○ 項目を描画する矩形の取得
#--------------------------------------------------------------------------
def reader_item_rect(index)
return item_rect(index)
end
#--------------------------------------------------------------------------
# ○ カーソル位置の設定
#--------------------------------------------------------------------------
def writer_index=(index)
@index = index
end
#--------------------------------------------------------------------------
# ○ カーソル位置の取得
#--------------------------------------------------------------------------
def reader_index
return @index
end
end
#==============================================================================
# ■ Window_NameInput
#------------------------------------------------------------------------------
# 　名前入力画面で、文字を選択するウィンドウです。
#==============================================================================
class Window_NameInput < Window_Selectable
#--------------------------------------------------------------------------
# ● 決定にジャンプ
#--------------------------------------------------------------------------
alias :__Mouse__process_jump :process_jump
def process_jump
__Mouse__process_jump
update_cursor
end
#--------------------------------------------------------------------------
# ○ 項目数の取得
#--------------------------------------------------------------------------
def reader_item_max
return 90
end
end
#==============================================================================
# ■ Window_SaveFile
#------------------------------------------------------------------------------
# 　セーブ画面およびロード画面で表示する、セーブファイルのウィンドウです。
#==============================================================================
class Window_SaveFile < Window_Base
#--------------------------------------------------------------------------
# ○ マウスカーソルが現在のカーソルの範囲内か判定
#--------------------------------------------------------------------------
def mouse_in_cursor?
return mouse_in_window?
end
end
#==============================================================================
# ■ Scene_File
#------------------------------------------------------------------------------
# 　セーブ画面とロード画面の共通処理を行うクラスです。
#==============================================================================
class Scene_File < Scene_MenuBase
#--------------------------------------------------------------------------
# ● 開始処理
#--------------------------------------------------------------------------
alias :__Mouse__start :start
def start
__Mouse__start
@observed_index = -1 # インデックスを監視
end
#--------------------------------------------------------------------------
# ● カーソルの更新
#--------------------------------------------------------------------------
alias :__Mouse__update_cursor :update_cursor
def update_cursor
last_index = @index
__Mouse__update_cursor
set_cursor_index_from_mouse if @index == last_index
end
#--------------------------------------------------------------------------
# ○ マウスカーソルを現在のカーソルの位置に設定
#--------------------------------------------------------------------------
def set_mouse_pos_from_cursor
@savefile_windows[@index].set_mouse_pos_from_cursor
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの位置からカーソル位置を設定
#--------------------------------------------------------------------------
def set_cursor_index_from_mouse
return false unless MouseCursor.in_game_screen?
return false unless MouseCursor.active
item_max.times do |i|
next unless @savefile_windows[i].mouse_in_window?
if @index != i
@savefile_windows[@index].selected = false
@index = i
@savefile_windows[@index].selected = true
Sound.play_cursor
Window.invalid_set_mouse_pos = true
end
return true
end
return false
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの更新
#--------------------------------------------------------------------------
def update_mouse_cursor
set_mouse_pos_from_cursor if @index != @observed_index
@observed_index = @index
super
end
end
#==============================================================================
# ■ Scene_Base
#------------------------------------------------------------------------------
# 　ゲーム中の全てのシーンのスーパークラスです。
#==============================================================================
class Scene_Base
#--------------------------------------------------------------------------
# ● フレーム更新（基本）
#--------------------------------------------------------------------------
alias :__Mouse__update_basic :update_basic
def update_basic
update_mouse_cursor # Graphics.update の直前で実行
MouseCursor.update
__Mouse__update_basic
end
#--------------------------------------------------------------------------
# ○ マウスカーソルの更新
#--------------------------------------------------------------------------
def update_mouse_cursor
all_windows = Window.get_all_windows
set_windows = all_windows.select do |window|
window.observe_update
next window.set_mouse_pos?
end
unless set_windows.empty?
window = set_windows.find do |window|
next window.reader_ok_enabled? && window.active && window.open?
end
unless window
window = all_windows.find do |window|
next window.reader_ok_enabled? && window.active && window.open?
end
if window
window.reserve_set_mouse_pos = true
else
window = set_windows[0]
end
end
window.set_mouse_pos_from_cursor
end
all_windows.each {|window| window.post_observe_update }
Window.invalid_set_mouse_pos = false
Window.invalid_set_cursor_index = false
end
end
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/
#_/ ▲ 以上、マウスカーソルの処理に関する定義
#_/
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Reference in a new issue View git blame Copy permalink