マウスカーソル強制消去

Ruby on RGSS
　マウスカーソル強制消去

必要に迫られて作ったスクリプト。Win32 API 使用。
RGSS Player では、マウスを一定時間動かさないとマウスカーソルが消え、
動かすとまた表示されます。キーボードだけ使う場合はこれでもよいですが、
スクリプトを改造してマウスを使うゲームにする場合に、現れたり消えたりして厄介です。
そこで、いっそ消してしまうことにします。カーソルが出ないので自分で表示してください。
このスクリプト単独ではマウス座標の取得などはできませんが、他サイトさんでいくつか
公開されているものがあるのでそちらを使ってください。

使用するには、 main セクションの bigin の直後に delete_cur と入れてください。

なお、スクリプトの一部に、RGSS Wikiの「Script/マウス入力」を使用しました。

12/28 RPGツクールVXでの動作も確認しました。同様に begin のあとにdelete_curで作動します。

# マウスカーソル消去 Ver 1.0  by  半導体
# http://h2so5.web.fc2.com/
# 概要：ウィンドウ上のマウスカーソルを非表示にします。
# RGSS Player のデフォルトでは、一定時間カーソルを動かさないと
# カーソルが消え、動かすと再び出現しますが、このスクリプトにより、
# 常に表示が消えます。マウスを使うゲームで、オリジナルのカーソルを
# 使っているときにカーソルが邪魔になるとき使ってください。
# Main の7行目 'begin'の直後の行にdelete_curを挿入すると使えます。
# 注意：このスクリプト単独では、マウスカーソルの座標取得などはできません。
# このスクリプトは、RGSS Wiki (http://tkool.web-ghost.net/wiki/wiki.cgi?)
# の「Script/マウス入力」の一部を使用しました（ウィンドウハンドル取得）。

#関数の宣言
$readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA',     # iniファイル読み込み
                        %w(p p p p l p), 'l' 
$findwindow = Win32API.new 'user32', 'FindWindowA', %w(p p), 'l'    # ウィンドウハンドル取得
$set_class = Win32API.new 'user32', 'SetClassLongA',%w(l i l) ,'l'  # 設定の書き換え


#ウィンドウハンドル取得
def hwnd
  # ゲーム名を取得する
  game_name = "\0" * 256
  $readini.call('Game','Title','',game_name,255,".\\Game.ini")
  game_name.delete!("\0")
  # ウィンドウハンドルを取得
  return $findwindow.call('RGSS Player',game_name)
end


#マウスカーソル消去
def delete_cur
    $set_class.call(hwnd,-12,0)
end

Back