# 걶벑볺궻롨룈갌
# 갋궞궻긚긏깏긵긣귩긄긢귻?궔귞륷딮긜긏긘깈깛궸긓긯긻갃
# 갋RGSS100J.dll먩뛱뚺둎붎댥?걁긟긏?깑Web궸궇귟귏궥걂귩Game.exe궴
# ?벏궣긲긅깑?궸긓긯?갃
# 걶긖깛긵깑궸궰궋궲갌
# 륷딮긵깓긙긃긏긣궸긚긏깏긵긣귩벑볺뚣갂Data긲긅깑?궸Map001.rxdata귩
# 긓긯?궢궲렳뛱궢궲궘궬궠궋갃
# ?긞긵됪뽋궳됪뽋귩뜺긏깏긞긏궥귡궴?긃긚궻긓?궕댷벍궢귏궥갃
module Input
# 믦릶걁winuser.h귝귟걂
VK_LBUTTON = 1
VK_RBUTTON = 2
VK_MBUTTON = 4
SM_SWAPBUTTON = 23
gsm = Win32API.new 'user32', 'GetSystemMetrics', 'i', 'i' # 긘긚긡?륉뫴궻뙚뢯
# 긏깋긚빾릶
@@swapped = gsm.call(SM_SWAPBUTTON) != 0 # ?긂긚??깛궻뜺덭궻볺귢뫶궑궻됀붬
@@key_state = Win32API.new 'user32', 'GetAsyncKeyState', # 긌?걁??깛걂륉뫴롦벦
'i', 'i'
@@cursor_pos = Win32API.new 'user32', 'GetCursorPos', # ?긂긚긇??깑띆뷭궻롦벦
'p', 'i'
module_function
#--------------------------------------------------------------------------
# 걶 ?긂긚궻긚긏깏?깛띆뷭
#--------------------------------------------------------------------------
def mouse_global_pos
pos = [0, 0].pack('ll')
# 뚁귂뢯궢궸맟뚻궢궫뤾뜃
if @@cursor_pos.call(pos) != 0
return pos.unpack('ll')
# 렪봲궢궫뤾뜃
else
return nil
end
end
#--------------------------------------------------------------------------
# 걶 ?긂긚궻긏깋귽귺깛긣띆뷭
# catch_anywhere : 긂귻깛긤긂둖궸긇??깑궕궇궯궲귖?귦궦띆뷭귩뺅궥
#--------------------------------------------------------------------------
def mouse_pos(catch_anywhere = false)
# 긚긏깏?깛뤵궻?긂긚긇??깑궻띆뷭귩긏깋귽귺깛긣띆뷭궸
x, y = screen_to_client(*mouse_global_pos)
# 긏깋귽귺깛긣쀌덃궻묈궖궠귩롦벦
width, height = client_size
# 됪뽋둖궳귖?귦궶궋뤾뜃궔됪뽋볙궸긇??깑궕궇귡뤾뜃
if catch_anywhere or (x >= 0 and y >= 0 and x < width and y < height)
return x, y
else
return nil
end
end
#--------------------------------------------------------------------------
# 걶 ?긂긚궻뜺??깛궻돓돷뵽믦
# ignore_swap : ??깛궕뜺롨뾭봹뭫궳궇궯궲귖뼰럨궥귡
#--------------------------------------------------------------------------
def mouse_lbutton(ignore_swap = false)
# ?긂긚??깛궕뜺덭볺귢뫶궑귞귢궲궓귟갂볺귢뫶궑귩뼰럨궢궶궋뤾뜃
if @@swapped and !ignore_swap
button = @@key_state.call(VK_RBUTTON)
else
button = @@key_state.call(VK_LBUTTON)
end
# 0x8000귏궫궼0x8001궶귞궽돓궠귢궲궋귡
return(button == -32767 or button == 32768)
end
#--------------------------------------------------------------------------
# 걶 ?긂긚궻덭??깛궻돓돷뵽믦
# ignore_swap : ??깛궕뜺롨뾭봹뭫궳궇궯궲귖뼰럨궥귡
#--------------------------------------------------------------------------
def mouse_rbutton(ignore_swap = false)
# ?긂긚??깛궕뜺덭볺귢뫶궑귞귢궲궓귟갂볺귢뫶궑귩뼰럨궢궶궋뤾뜃
if @@swapped and !ignore_swap
button = @@key_state.call(VK_LBUTTON)
else
button = @@key_state.call(VK_RBUTTON)
end
# 0x8000귏궫궼0x8001궶귞궽돓궠귢궲궋귡
return(button == -32767 or button == 32768)
end
#--------------------------------------------------------------------------
# 걶 ?긂긚궻뭷돍??깛궻돓돷뵽믦
#--------------------------------------------------------------------------
def mouse_mbuton
button = @@key_state.call(VK_MBUTTON)
# 0x8000귏궫궼0x8001궶귞궽돓궠귢궲궋귡
return(button == -32767 or button == 32768)
end
end
$scr2cli = Win32API.new 'user32', 'ScreenToClient', %w(l p), 'i' # 긚긏깏?깛띆뷭궔귞긏깋귽귺깛긣띆뷭귉빾듂
$client_rect = Win32API.new 'user32', 'GetClientRect', %w(l p), 'i' # 긏깋귽귺깛긣쀌덃롦벦
$readini = Win32API.new 'kernel32', 'GetPrivateProfileStringA', # ini긲?귽깑벶귒뜛귒
%w(p p p p l p), 'l'
$findwindow = Win32API.new 'user32', 'FindWindowA', %w(p p), 'l' # 긂귻깛긤긂긪깛긤깑롦벦
#--------------------------------------------------------------------------
# 걶 긚긏깏?깛띆뷭궔귞긏깋귽귺깛긣띆뷭귉빾듂
# x, y : 긚긏깏?깛띆뷭
#--------------------------------------------------------------------------
def screen_to_client(x, y)
# 띆뷭궕뼰뚼궶귞렪봲
return nil unless x and y
pos = [x, y].pack('ll')
# 뚁귂뢯궢궸맟뚻궢궫뤾뜃
if $scr2cli.call(hwnd, pos) != 0
return pos.unpack('ll')
# 렪봲궢궫뤾뜃
else
return nil
end
end
#--------------------------------------------------------------------------
# 걶 긂귻깛긤긂긪깛긤깑롦벦
#--------------------------------------------------------------------------
def hwnd
# 긒??뼹귩롦벦궥귡
game_name = " " * 256
$readini.call('Game','Title','',game_name,255,".\Game.ini")
game_name.delete!(" ")
# 긂귻깛긤긂긪깛긤깑귩롦벦
return $findwindow.call('RGSS Player',game_name)
end
#--------------------------------------------------------------------------
# 걶 긏깋귽귺깛긣쀌덃롦벦
#--------------------------------------------------------------------------
def client_size
rect = [0, 0, 0, 0].pack('l4')
$client_rect.call(hwnd, rect)
# top궴left궼륂궸0궶궻궳뤙뿪
right, bottom = rect.unpack('l4')[2..3]
return right, bottom
end
---------------------------------------------------------------------------------------------------------------
우선 위의 스크립트를 main위에 Use_Mouse 라는 이름으로 넣습니다.
그리고 예를 들어서 케릭터 하나와 대화를 만들어 보겠습니다.
케릭터를 하나 만들어서 병렬처리로 만들어 줍니다.
이벤트페이지4쪽에 있는 '스크립트'를 이용하여
lbutton =Input.mouse_lbutton
x, y = Input.mouse_pos
if lbutton and x and y
$game_variables[1] = x / 32
$game_variables[2] = y / 32
end
를 추가 합니다.
$game_variables[1] = x / 32
에서 variables[1] 는 변수1번 이라는 겁니다.
변수 1번을 이미 다른대에 사용하고 계시다면 이 숫자를 바꿔주세요.
그 밑으로 계속 이벤트를 추가 합시다.
◆조건분기 : 변수[0001: npc_x] == 5 # npc x좌표
◆조건분기 : 변수[0002: npc_y] == 9 # npc y좌표
◆문장 : 잘 선택하셨습니다.
◆변수의 조작 : [0001: npc_x] = 0
◆변수의 조작 : [0002: npc_y] = 0
◆
: 분기종료
◆
: 분기종료
◆
위의 이벤트 설명 :
npc_x라는 변수가 5 일경우(npc의 x좌표 를 적어주는겁니다.)
npc_y라는 변수가 9 일경우(npc의 y좌표 를 적어주는겁니다.)
문장 출력되고..
이대로 끝나버리면 문장이 계속 출력되기 때문에..
npc_좌표 를 0으로 초기화 해준겁니다.
아까 변수 1번을 이미 사용하고 있다면.. 이 이벤트도 약간 다르겠죠?
자, 이걸로 마우스 사용이벤트는 끝났습니다.
게임상에서 5,9좌표를 누르면 대화가 출력됩니다.
--------------------------------------------------------------------------------------------------------------------------
자!!!!!!!!!!!!!!!!!!!!!!!
재일 중요한게 남았습니다.
이거 안하면 위에 한거 다 소용없습니다!!!!
rpgXP 실행파일이 있는 폴더로 갑시다.
그중.. 'RGSS100J.dll' 라는 파일이 보이시죠??
파일을 복사한뒤.. 자신이 만들고 있는 게임폴더 속에 넣습니다!!
그리고나서 게임을 하면.. 아아~주 자알~ 될껍니다.
출처 : 십자군RPG 스키 님 글
lklslel 
하앵