마우스로 이동을 하는 스크립트입니다.
3개로 나누어져 있으니 각각 나누어 메인 위에다 찔러 넣어 주시면 됩니다.
첫번째꺼는 전체키입니다.
#==============================================================================
# ** Keyboard Input Module
#==============================================================================
# Near Fantastica
# Version 5
# 29.11.05
#==============================================================================
# The Keyboard Input Module is designed to function as the default Input module
# dose. It is better then other methods keyboard input because as a key is
# tested it is not removed form the list. so you can test the same key multiple
# times the same loop.
#==============================================================================
module Keyboard
#--------------------------------------------------------------------------
@keys = []
@pressed = []
Mouse_Left = 1
Mouse_Right = 2
Back= 8
Tab = 9
Enter = 13
Shift = 16
Ctrl = 17
Alt = 18
Esc = 27
Space = 32
Numberkeys = {}
Numberkeys[0] = 48
Numberkeys[1] = 49
Numberkeys[2] = 50
Numberkeys[3] = 51
Numberkeys[4] = 52
Numberkeys[5] = 53
Numberkeys[6] = 54
Numberkeys[7] = 55
Numberkeys[8] = 56
Numberkeys[9] = 57
Numberpad = {}
Numberpad[0] = 45
Numberpad[1] = 35
Numberpad[2] = 40
Numberpad[3] = 34
Numberpad[4] = 37
Numberpad[5] = 12
Numberpad[6] = 39
Numberpad[7] = 36
Numberpad[8] = 38
Numberpad[9] = 33
Letters = {}
Letters["A"] = 65
Letters["B"] = 66
Letters["C"] = 67
Letters["D"] = 68
Letters["E"] = 69
Letters["F"] = 70
Letters["G"] = 71
Letters["H"] = 72
Letters["I"] = 73
Letters["J"] = 74
Letters["K"] = 75
Letters["L"] = 76
Letters["M"] = 77
Letters["N"] = 78
Letters["O"] = 79
Letters["P"] = 80
Letters["Q"] = 81
Letters["R"] = 82
Letters["S"] = 83
Letters["T"] = 84
Letters["U"] = 85
Letters["V"] = 86
Letters["W"] = 87
Letters["X"] = 88
Letters["Y"] = 89
Letters["Z"] = 90
Fkeys = {}
Fkeys[1] = 112
Fkeys[2] = 113
Fkeys[3] = 114
Fkeys[4] = 115
Fkeys[5] = 116
Fkeys[6] = 117
Fkeys[7] = 118
Fkeys[8] = 119
Fkeys[9] = 120
Fkeys[10] = 121
Fkeys[11] = 122
Fkeys[12] = 123
Collon = 186
Equal = 187
Comma = 188
Underscore = 189
Dot = 190
Backslash = 191
Lb = 219
Rb = 221
Quote = 222
State = Win32API.new("user32","GetKeyState",['i'],'i')
Key = Win32API.new("user32","GetAsyncKeyState",['i'],'i')
#--------------------------------------------------------------------------
def Keyboard.getstate(key)
return true unless State.call(key).between?(0, 1)
return false
end
#--------------------------------------------------------------------------
def Keyboard.testkey(key)
Key.call(key) & 0x01 == 1
end
#--------------------------------------------------------------------------
def Keyboard.update
@keys = []
@keys.push(Keyboard::Mouse_Left) if Keyboard.testkey(Keyboard::Mouse_Left)
@keys.push(Keyboard::Mouse_Right) if Keyboard.testkey(Keyboard::Mouse_Right)
@keys.push(Keyboard::Back) if Keyboard.testkey(Keyboard::Back)
@keys.push(Keyboard::Tab) if Keyboard.testkey(Keyboard::Tab)
@keys.push(Keyboard::Enter) if Keyboard.testkey(Keyboard::Enter)
@keys.push(Keyboard::Shift) if Keyboard.testkey(Keyboard::Shift)
@keys.push(Keyboard::Ctrl) if Keyboard.testkey(Keyboard::Ctrl)
@keys.push(Keyboard::Alt) if Keyboard.testkey(Keyboard::Alt)
@keys.push(Keyboard::Esc) if Keyboard.testkey(Keyboard::Esc)
@keys.push(Keyboard::Space) if Keyboard.testkey(Keyboard::Space)
for key in Keyboard::Numberkeys.values
@keys.push(key) if Keyboard.testkey(key)
end
for key in Keyboard::Numberpad.values
@keys.push(key) if Keyboard.testkey(key)
end
for key in Keyboard::Letters.values
@keys.push(key) if Keyboard.testkey(key)
end
for key in Keyboard::Fkeys.values
@keys.push(key) if Keyboard.testkey(key)
end
@keys.push(Keyboard::Collon) if Keyboard.testkey(Keyboard::Collon)
@keys.push(Keyboard::Equal) if Keyboard.testkey(Keyboard::Equal)
@keys.push(Keyboard::Comma) if Keyboard.testkey(Keyboard::Comma)
@keys.push(Keyboard::Underscore) if Keyboard.testkey(Keyboard::Underscore)
@keys.push(Keyboard::Dot) if Keyboard.testkey(Keyboard::Dot)
@keys.push(Keyboard::Backslash) if Keyboard.testkey(Keyboard::Backslash)
@keys.push(Keyboard::Lb) if Keyboard.testkey(Keyboard::Lb)
@keys.push(Keyboard::Rb) if Keyboard.testkey(Keyboard::Rb)
@keys.push(Keyboard::Quote) if Keyboard.testkey(Keyboard::Quote)
@pressed = []
@pressed.push(Keyboard::Mouse_Left) if Keyboard.getstate(Keyboard::Mouse_Left)
@pressed.push(Keyboard::Mouse_Right) if Keyboard.getstate(Keyboard::Mouse_Right)
@pressed.push(Keyboard::Back) if Keyboard.getstate(Keyboard::Back)
@pressed.push(Keyboard::Tab) if Keyboard.getstate(Keyboard::Tab)
@pressed.push(Keyboard::Enter) if Keyboard.getstate(Keyboard::Enter)
@pressed.push(Keyboard::Shift) if Keyboard.getstate(Keyboard::Shift)
@pressed.push(Keyboard::Ctrl) if Keyboard.getstate(Keyboard::Ctrl)
@pressed.push(Keyboard::Alt) if Keyboard.getstate(Keyboard::Alt)
@pressed.push(Keyboard::Esc) if Keyboard.getstate(Keyboard::Esc)
@pressed.push(Keyboard::Space) if Keyboard.getstate(Keyboard::Space)
for key in Keyboard::Numberkeys.values
@pressed.push(key) if Keyboard.getstate(key)
end
for key in Keyboard::Numberpad.values
@pressed.push(key) if Keyboard.getstate(key)
end
for key in Keyboard::Letters.values
@pressed.push(key) if Keyboard.getstate(key)
end
for key in Keyboard::Fkeys.values
@pressed.push(key) if Keyboard.getstate(key)
end
@pressed.push(Keyboard::Collon) if Keyboard.getstate(Keyboard::Collon)
@pressed.push(Keyboard::Equal) if Keyboard.getstate(Keyboard::Equal)
@pressed.push(Keyboard::Comma) if Keyboard.getstate(Keyboard::Comma)
@pressed.push(Keyboard::Underscore) if Keyboard.getstate(Keyboard::Underscore)
@pressed.push(Keyboard::Dot) if Keyboard.getstate(Keyboard::Dot)
@pressed.push(Keyboard::Backslash) if Keyboard.getstate(Keyboard::Backslash)
@pressed.push(Keyboard::Lb) if Keyboard.getstate(Keyboard::Lb)
@pressed.push(Keyboard::Rb) if Keyboard.getstate(Keyboard::Rb)
@pressed.push(Keyboard::Quote) if Keyboard.getstate(Keyboard::Quote)
end
#--------------------------------------------------------------------------
def Keyboard.trigger?(key)
return true if @keys.include?(key)
return false
end
#--------------------------------------------------------------------------
def Keyboard.pressed?(key)
return true if @pressed.include?(key)
return false
end
end
두번째
#======================================
# ■ Mouse Input
#======================================
# By: Near Fantastica
# Date: 06.07.05
# Version: 1
#======================================
module Mouse
@position
GSM = Win32API.new('user32', 'GetSystemMetrics', 'i', 'i')
Cursor_Pos= Win32API.new('user32', 'GetCursorPos', 'p', 'i')
Scr2cli = Win32API.new('user32', 'ScreenToClient', %w(l p), 'i')
Client_rect = Win32API.new('user32', 'GetClientRect', %w(l p), 'i')
Readini = Win32API.new('kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l')
Findwindow = Win32API.new('user32', 'FindWindowA', %w(p p), 'l')
#--------------------------------------------------------------------------
def Mouse.grid
return nil if @pos == nil
x = @pos[0] / 16
y = @pos[1] / 16
x = x * 16
y = y * 16
return [x, y]
end
#--------------------------------------------------------------------------
def Mouse.position
return @pos == nil ? [0, 0] : @pos
end
#--------------------------------------------------------------------------
def Mouse.global_pos
pos = [0, 0].pack('ll')
if Cursor_Pos.call(pos) != 0
return pos.unpack('ll')
else
return nil
end
end
#--------------------------------------------------------------------------
def Mouse.pos
x, y = Mouse.screen_to_client(*Mouse.global_pos)
width, height = Mouse.client_size
begin
if (x >= 0 and y >= 0 and x < width and y < height)
return x, y
else
return nil
end
rescue
return nil
end
end
#--------------------------------------------------------------------------
def Mouse.update
@pos = Mouse.pos
end
#--------------------------------------------------------------------------
def Mouse.screen_to_client(x, y)
return nil unless x and y
pos = [x, y].pack('ll')
if Scr2cli.call(Mouse.hwnd, pos) != 0
return pos.unpack('ll')
else
return nil
end
end
#--------------------------------------------------------------------------
def Mouse.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 Mouse.client_size
rect = [0, 0, 0, 0].pack('l4')
Client_rect.call(Mouse.hwnd, rect)
right, bottom = rect.unpack('l4')[2..3]
return right, bottom
end
end
3번째
#==============================================================================
# ** Sprite_Cursor
#------------------------------------------------------------------------------
# This sprite displays the cursor. It's used in the Spriteset_Map class.
#==============================================================================
class Sprite_Cursor < Sprite
attr_accessor :x
attr_accessor :y
attr_accessor :icon
attr_accessor :lock
#--------------------------------------------------------------------------
# * Object Initialization
# viewport : viewport
# picture : picture (Game_Picture)
#--------------------------------------------------------------------------
def initialize(viewport)
super(viewport)
update
@icon = $game_system.cursor
@old_icon = $game_system.cursor
@lock = false
end
#--------------------------------------------------------------------------
# * Dispose
#--------------------------------------------------------------------------
def dispose
if self.bitmap != nil
self.bitmap.dispose
end
super
end
#--------------------------------------------------------------------------
# * Dispose
#--------------------------------------------------------------------------
def set_icon(new)
if not @lock
@icon = new
end
end
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
super
# If picture file name is different from current one
if self.bitmap == nil
self.bitmap = RPG::Cache.picture($game_system.cursor)
end
if @icon != @old_icon
if @icon == nil
self.bitmap = RPG::Cache.picture($game_system.cursor)
@old_icon = nil
else
self.bitmap = RPG::Cache.picture(@icon)
@old_icon = @icon
end
end
# If file name is empty
# Set sprite to visible
self.visible = true
# Set transfer starting point
# Set sprite coordinates
pos = Mouse.pos
if pos == nil
if self.x == nil
self.x = 0
end
if self.y == nil
self.y = 0
end
else
self.x = 0
self.ox = pos[0] * -1 + (self.bitmap.width / 2)
self.y = 0
self.oy = pos[1] * -1 + (self.bitmap.height / 2)
end
end
end
#==============================================================================
# ** Scene_ActionMap
#------------------------------------------------------------------------------
# This class performs map screen processing and allows the use of the
# mouse to make activations of events.
#==============================================================================
class Scene_Map
#--------------------------------------------------------------------------
# * Main Processing
#--------------------------------------------------------------------------
alias :event_system_main :main
def main
@update_interface = -1
event_system_main
end
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
alias :event_system_update :update
def update
# Update the Keyboard Module
Keyboard.update
# Run old map update
event_system_update
#Update the mouse
mouse_interface_update
# Left Click Actions
if Keyboard.pressed?(Keyboard::Mouse_Left) and @update_interface <= 0
mouse_left_click
elsif @update_interface > 0
@update_interface -= 1
end
end
#--------------------------------------------------------------------------
# * Do actions that are related to the left click
#--------------------------------------------------------------------------
def mouse_left_click
# If Mouse POS not nil
pos = Mouse.pos
if pos != nil and not $game_temp.message_window_showing
x = pos[0]
y = pos[1]
# Set the X and Y to the correct X/Y coordinates
x2 = x / 32
y2 = y / 32
if $game_map.display_x != 0
x2 += ($game_map.display_x / 4) / 16
end
if $game_map.display_y != 0
y2 += ($game_map.display_y / 4) / 16
end
event_run = false
# Get events that count as active (most front one)
active_event = @spriteset.get_affected_event(@x_mouse, @y_mouse)
if active_event > 0
event = $game_map.events[active_event]
range = get_object_range($game_player, event)
run_it = part_of_event_system(event)
# Check to see if it's a run event or not
run_it = part_of_event_system(event)
# Run it if it is
if run_it != false and event.trigger == 0
range = get_object_range($game_player, event)
if run_it >= range
event.refresh
event.start
$game_map.need_refresh
@update_interface = 10
event_run = true
end
end #End the run check
else
eventlist = $game_map.events.values
for event in eventlist
if x2 == event.x and y2 == event.y and event.character_name == ""
# Check to see if it's a run event or not
run_it = part_of_event_system(event)
# Run it if it is
if run_it != false and event.trigger == 0
range = get_object_range($game_player, event)
if run_it >= range
event.refresh
event.start
$game_map.need_refresh
@update_interface = 10
event_run = true
end
end #End the run check
end # End the X/Y check
end
end #End if/else
end # End POS != nil statement
if not event_run and not $game_player.moving? and not $game_temp.message_window_showing
$game_player.move_toward_point(x2, y2)
end
end
#--------------------------------------------------------------------------
# * Update Mouse position and cursor
#--------------------------------------------------------------------------
def mouse_interface_update
pos = Mouse.pos
if pos != nil and (pos[0] != @x_mouse or pos[1] != @y_mouse)
@x_mouse = pos[0]
@y_mouse = pos[1]
# Get the event that is under the mouse (most front one)
hover = @spriteset.get_affected_event(@x_mouse, @y_mouse)
if hover > 0
event = $game_map.events[hover]
# Run it if it is
if event.list != nil
for item in event.list
if item.code == 108 and item.parameters[0].include?("CURSOR=")
id = item.parameters[0].split('=')
@spriteset.cursor.set_icon(id[1])
set_icon = true
end
end
end
else
x = pos[0] / 32
y = pos[1] / 32
if $game_map.display_x != 0
x += ($game_map.display_x / 4) / 16
end
if $game_map.display_y != 0
y += ($game_map.display_y / 4) / 16
end
set_icon = false
for event in $game_map.events.values
if event.x == x and event.y == y and event.character_name == ""
if event.list != nil
for item in event.list
if item.code == 108 and item.parameters[0].include?("CURSOR=")
id = item.parameters[0].split('=')
@spriteset.cursor.set_icon(id[1])
set_icon = true
end
end
end
end
end
if not set_icon and @spriteset.cursor.icon != nil
@spriteset.cursor.set_icon(nil)
end
end
end
end
#--------------------------------------------------------------------------
# * Get Range from Point1 to Point2
#--------------------------------------------------------------------------
def get_object_range(point1, point2)
range_x = (point1.x.abs) - (point2.x.abs)
range_y = (point1.y.abs) - (point2.y.abs)
range_x = range_x.abs
range_y = range_y.abs
range_x = range_x * range_x
range_y = range_y * range_y
range = Math.sqrt(range_x + range_y)
range = range.round
return range
end
#--------------------------------------------------------------------------
# * Part of Combat System
#--------------------------------------------------------------------------
def part_of_event_system(event)
if event.is_a?(Game_Event)
if event.list != nil
for item in event.list
if item.code == 108 and item.parameters[0].include?("RUN=")
id = item.parameters[0].split('=')
return (id[1].to_i)
end
end
end
end
return false
end
end
#End Scene_Map
#==============================================================================
# ** Game_Player
#------------------------------------------------------------------------------
# This class handles the player. Its functions include event starting
# determinants and map scrolling. Refer to "$game_player" for the one
# instance of this class.
#==============================================================================
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# * Invariables
#--------------------------------------------------------------------------
#--------------------------------------------------------------------------
# * Move toward Player
#--------------------------------------------------------------------------
def move_toward_point(x, y)
# Get difference in player coordinates
sx = @x - x
sy = @y - y
# If coordinates are equal
if sx == 0 and sy == 0
return
end
# Get absolute value of difference
abs_sx = sx.abs
abs_sy = sy.abs
# If horizontal and vertical distances are equal
if abs_sx == abs_sy
# Increase one of them randomly by 1
rand(2) == 0 ? abs_sx += 1 : abs_sy += 1
end
# If horizontal distance is longer
if abs_sx > abs_sy
# Move towards point, prioritize left and right directions
sx > 0 ? move_left : move_right
if not moving? and sy != 0
sy > 0 ? move_up : move_down
end
# If vertical distance is longer
else
# Move towards point, prioritize up and down directions
sy > 0 ? move_up : move_down
if not moving? and sx != 0
sx > 0 ? move_left : move_right
end
end
end
end #End Game_Player
#==============================================================================
# ** Spriteset_Map
#------------------------------------------------------------------------------
# This class brings together map screen sprites, tilemaps, etc.
# It's used within the Scene_Map class.
#==============================================================================
class Spriteset_Map
attr_accessor :cursor
attr_reader :character_sprites
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
alias :event_system_normal_init :initialize
def initialize
event_system_normal_init
if $scene.is_a?(Scene_Map)
@cursor = Sprite_Cursor.new(@viewport3)
end
end
#--------------------------------------------------------------------------
# * Dispose
#--------------------------------------------------------------------------
alias :event_system_normal_dispose :dispose
def dispose
if @cursor != nil
@cursor.dispose
end
event_system_normal_dispose
end
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
alias :event_system_normal_update :update
def update
event_system_normal_update
if @cursor != nil
@cursor.update
end
end
#--------------------------------------------------------------------------
# * Get Event under a Click Point
#--------------------------------------------------------------------------
def get_affected_event(true_x, true_y)
data = []
for sprite in @character_sprites
x = true_x - sprite.x
y = true_y - sprite.y
if sprite.tile_id == 0
if x.abs < (sprite.cw / 2) and y.abs < sprite.ch and y < 0
bx = (sprite.cw / 2) + x
by = sprite.ch + y
sx = sprite.character.pattern * sprite.cw
sy = (sprite.character.direction - 2) / 2 * sprite.ch
if sprite.bitmap.get_pixel((bx+sx),(by+sy)).alpha > 0.0
data.push(sprite.character)
end
end
else
if x.abs < 16 and y.abs < 32 and y < 0
data.push(sprite.character)
end
end
end
if data.size > 1
event = data[0]
for i in 0...data.size
if data[i].y > event.y
event = data[i]
end
end
return event.id
elsif data.size > 0
return data[0].id
else
return -1
end
end
# End the Spriteset_Map
end
#==============================================================================
# ** Sprite_Character
#------------------------------------------------------------------------------
# This sprite is used to display the character.It observes the Game_Character
# class and automatically changes sprite conditions.
#==============================================================================
class Sprite_Character < RPG::Sprite
attr_reader :cw
attr_reader :ch
attr_reader :tile_id
end
#==============================================================================
# ** Game_System
#------------------------------------------------------------------------------
# This class handles data surrounding the system. Backround music, etc.
# is managed here as well. Refer to "$game_system" for the instance of
# this class.
#==============================================================================
class Game_System
attr_accessor :cursor
attr_accessor :move_toward_mouse
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
alias :event_system_normal_init :initialize
def initialize
event_system_normal_init
@move_toward_mouse = true
@cursor = ""
end
end
그러고 난 후,
자신의 샤양에 맞게
RGSS100J.dll 이나 RGSS102E.dll 또는 RGSS102J.dll을 넣으셔서
게임에 지장 없도록 하십시오.
<사용법>
게임 NPC에 주석으로 RUN=?를 합니다. ?는 캐릭터를 클릭하는 사정거리입니다.
EX)RUN=2로하면 2칸 떨어진곳에서 NPC를 클릭해도 됩니다. 그러면 대화도 나오고 좋습니다.
스크립트 출처 : rmxp
