1
3
Perfetto! Dunque ho provato e testato il tool RMMV.
E' bello. Mi sono entusiasmato. Ha delle limitazioni e soprattutto giocandoci un po mi sono accorto che
RPG MAKER XP potrebbe benissimo eguagliarlo. Ha tutte le caratteristiche per competere.
E' vero l'RMMV ha quelle caratteristiche ...di base. In RPGXP, bisogna implementarle.
Ma vi assicuro che una volta fatto, ne resterete soddisfatti. Anche perché l'XP ha un fattore a suo vantaggio che gli altri suoi fratelli e cugini non hanno. Ovvero il custom grafico.
Perché sostengo questa tesi?
Perché mettendo gli scripts giusti nel RPG Maker XP da quasi le stesse prestazioni dell'Mv ed anche meglio perché i progetti risultano meno pesanti.
E' vero che RMMV ha il via libera per i dispositivi android e tuchpad che l'xp se li sogna. Ma non è vero nemmeno questo, perché venivano rilasciati anche prima i giochini fatti con rpg maker per android.
Comunque stop con la premessa!
Voglio condividere con voi una delle perle di scripts che potrebbero rendere l'RPG Maker XP al pari con l'MV.
Sto parlando del vero ed autentico SUPER SIMPLE MOUSE SCRIPT realizzato da
Shaz, Near Fantastica, SephirothSpawn, Amaranth
Lo script si divide in 5 sezioni. Ve lo mostro:
1a sezione:
STARTGAME
Spoiler
E' davvero così breve???
Si è davvero così breve. Ma è solo l'inizio.
E' davvero così breve???
Si è davvero così breve. Ma è solo l'inizio.
module StartGame $game_mouse = true end
Questo qui sopra attiva e disattiva tutto il processo composto dalle 5 sezioni di scripts.
true === attiva la funzione
false === disattiva la funzione
Basta cambiare quel valore lì. Per adesso è settato su Attiva.
2a sezione:
MOUSE1
Spoiler
#==============================================================================
# ** Modules.Mouse Input (7.0) By Near Fantastica & SephirothSpawn
#==============================================================================
module Mouse
#--------------------------------------------------------------------------
# * Mouse to Input Triggers
#
# key => Input::KeyCONSTANT (key: 0 - Left, 1 - Middle, 2 - Right)
#--------------------------------------------------------------------------
Mouse_to_Input_Triggers = {0 => Input::C, 1 => Input::B, 2 => Input::A}
#--------------------------------------------------------------------------
# * API Declaration
#--------------------------------------------------------------------------
GAKS = Win32API.new('user32', 'GetAsyncKeyState', 'i', 'i')
GSM = Win32API.new('user32', 'GetSystemMetrics', 'i', 'i')
Cursor_Pos = Win32API.new('user32', 'GetCursorPos', 'p', 'i')
$ShowCursor = Win32API.new('user32', 'ShowCursor', 'i', 'l')
Scr2cli = Win32API.new('user32', 'ScreenToClient', %w(l p), 'i')
Client_rect = Win32API.new('user32', 'GetClientRect', %w(l p), 'i')
Findwindow = Win32API.new('user32', 'FindWindowA', %w(p p), 'l')
Readini = Win32API.new('kernel32', 'GetPrivateProfileStringA',
%w(p p p p l p), 'l')
# if graphical effects turned on, show fancy cursor
$ShowCursor.call($game_mouse ? 0 : 1)
@triggers = [[0, 1], [0, 2], [0, 4]]
@old_pos = 0
@pos_i = 0
#--------------------------------------------------------------------------
# * Mouse Grid Position
#--------------------------------------------------------------------------
def self.grid
# Return Nil if Position is Nil
return nil if @pos.nil?
# Get X & Y Locations
x = (@pos[0] + $game_map.display_x / 4) / 32
y = (@pos[1] + $game_map.display_y / 4) / 32
# Vehicle Stuff
$mouse_x = x
$mouse_y = y
# Return X & Y
return [x, y]
end
#--------------------------------------------------------------------------
# * Mouse Position
#--------------------------------------------------------------------------
def self.position
return @pos == nil ? [0, 0] : @pos
end
#--------------------------------------------------------------------------
# * Mouse Global Position
#--------------------------------------------------------------------------
def self.global_pos
# Packs 0 Position
pos = [0, 0].pack('ll')
# Returns Unpacked Cursor Position Call
return Cursor_Pos.call(pos) == 0 ? nil : pos.unpack('ll')
end
#--------------------------------------------------------------------------
# * Screen to Client
#--------------------------------------------------------------------------
def self.screen_to_client(x=0, y=0)
pos = [x, y].pack('ll')
return Scr2cli.call(self.hwnd, pos) == 0 ? nil : pos.unpack('ll')
end
#--------------------------------------------------------------------------
# * Mouse Position
#--------------------------------------------------------------------------
def self.pos
global_pos = [0, 0].pack('ll')
gx, gy = Cursor_Pos.call(global_pos) == 0 ? nil : global_pos.unpack('ll')
local_pos = [gx, gy].pack('ll')
x, y = Scr2cli.call(self.hwnd, local_pos) == 0 ? nil : local_pos.unpack('ll')
# Begins Test
begin
# Return X & Y or Nil Depending on Mouse Position
if (x >= 0 && y >= 0 && x <= 640 && y <= 480)
return x, y
else
return -20, -20
end
rescue
return 0, 0 #nil
end
end
#--------------------------------------------------------------------------
# * Update Mouse Position
#--------------------------------------------------------------------------
def self.update
# Update Position
old_pos = @pos
@pos = self.pos
# agf = hide system mouse
if !$mouse_sprite.visible && old_pos != @pos
$mouse_sprite.visible = true
end
# when mouse leaves game window, show system mouse
if old_pos != [-20, -20] && @pos == [-20, -20]
$ShowCursor.call(1)
# when mouse is in game window, show custom mouse if it's turned on
elsif old_pos == [-20, -20] && @pos != [-20, -20]
$ShowCursor.call($game_mouse ? 0 : 1)
end
# Update Triggers
for i in @triggers
# Gets Async State
n = GAKS.call(i[1])
# If 0 or 1
if [0, 1].include?(n)
i[0] = (i[0] > 0 ? i[0] * -1 : 0)
else
i[0] = (i[0] > 0 ? i[0] + 1 : 1)
end
end
end
#--------------------------------------------------------------------------
# * Trigger?
# id : 0:Left, 1:Right, 2:Center
#--------------------------------------------------------------------------
def self.trigger?(id = 0)
#only user trigger if in range of screen
pos = self.pos
if pos != [-20,-20]
case id
when 0 # Left
return @triggers[id][0] == 1
when 1 # Right (only when menu enabled)
if @triggers[1][0] == 1 && !$game_system.menu_disabled
return @triggers[id][0] == 1
end
when 2 # Center
return @triggers[id][0] == 1
end
end
end
#--------------------------------------------------------------------------
# * Repeat?
# id : 0:Left, 1:Right, 2:Center
#--------------------------------------------------------------------------
def self.repeat?(id = 0)
if @triggers[id][0] <= 0
return false
else
return @triggers[id][0] % 5 == 1 && @triggers[id][0] % 5 != 2
end
end
#--------------------------------------------------------------------------
# * Screen to Client
#--------------------------------------------------------------------------
def self.screen_to_client(x=0, y=0)
# Pack X & Y
pos = [x, y].pack('ll')
# Return Unpacked Position or Nil
return Scr2cli.call(self.hwnd, pos) == 0 ? nil : pos.unpack('ll')
end
#--------------------------------------------------------------------------
# * Hwnd - window handle
#--------------------------------------------------------------------------
def self.hwnd
if @hwnd.nil?
# Finds Game Name from ini file
game_name = "\0" * 256
Readini.call('Game', 'Title', '', game_name, 255, ".\\Game.ini")
game_name.delete!("\0")
# Finds Window
@hwnd = Findwindow.call('RGSS Player', game_name)
end
return @hwnd
end
#--------------------------------------------------------------------------
# * Client Size
#--------------------------------------------------------------------------
def self.client_size
# Packs Empty Rect
rect = [0, 0, 0, 0].pack('l4')
# Gets Game Window Rect
Client_rect.call(self.hwnd, rect)
# Unpacks Right & Bottom
right, bottom = rect.unpack('l4')[2..3]
# Returns Right & Bottom
return right, bottom
end
end
#==============================================================================
# ** Input
#==============================================================================
class << Input
#------------------------------------------------------------------------
# * Alias Listings
#------------------------------------------------------------------------
unless self.method_defined?(:seph_mouse_input_update)
alias_method :seph_mouse_input_update, :update
alias_method :seph_mouse_input_trigger?, :trigger?
alias_method :seph_mouse_input_repeat?, :repeat?
end
#------------------------------------------------------------------------
# * Frame Update
#------------------------------------------------------------------------
def update
# Update Mouse
Mouse.update
# Original Update
seph_mouse_input_update
end
#--------------------------------------------------------------------------
# * Trigger? Test
#--------------------------------------------------------------------------
def trigger?(constant)
# Return true if original test is true
return true if seph_mouse_input_trigger?(constant)
# If Mouse Position isn't Nil
unless Mouse.pos.nil?
# If Mouse Trigger to Input Trigger Has Constant
if Mouse::Mouse_to_Input_Triggers.has_value?(constant)
# Return True if Mouse Triggered
mouse_trigger = Mouse::Mouse_to_Input_Triggers.index(constant)
return true if Mouse.trigger?(mouse_trigger)
end
end
# Return False
return false
end
#--------------------------------------------------------------------------
# * Repeat? Test
#--------------------------------------------------------------------------
def repeat?(constant)
# Return true if original test is true
return true if seph_mouse_input_repeat?(constant)
# If Mouse Position isn't Nil
unless Mouse.pos.nil?
# If Mouse Trigger to Input Trigger Has Constant
if Mouse::Mouse_to_Input_Triggers.has_value?(constant)
# Return True if Mouse Triggered
mouse_trigger = Mouse::Mouse_to_Input_Triggers.index(constant)
return true if Mouse.repeat?(mouse_trigger)
end
end
# Return False
return false
end
end
#==============================================================================
# ¦ Path Finding
#==============================================================================
# Near Fantastica
# Version 1
# 29.11.05
#==============================================================================
class Game_Character
#--------------------------------------------------------------------------
alias nf_pf_game_character_initialize initialize
alias nf_pf_game_character_update update
#--------------------------------------------------------------------------
attr_accessor :map
attr_accessor :runpath
attr_accessor :ovrdest
#--------------------------------------------------------------------------
def initialize
nf_pf_game_character_initialize
@map = nil
@runpath = false
@ovrdest = false
end
#--------------------------------------------------------------------------
def update
run_path if @runpath == true
nf_pf_game_character_update
end
#--------------------------------------------------------------------------
def run_path
return if moving?
step = @map[@x,@y]
if step == 1
@map = nil
@runpath = false
return
end
dir = rand(2)
case dir
when 0
move_right if @map[@x+1,@y] == step - 1 and step != 0
move_down if @map[@x,@y+1] == step - 1 and step != 0
move_left if @map[@x-1,@y] == step -1 and step != 0
move_up if @map[@x,@y-1] == step - 1 and step != 0
when 1
move_up if @map[@x,@y-1] == step - 1 and step != 0
move_left if @map[@x-1,@y] == step -1 and step != 0
move_down if @map[@x,@y+1] == step - 1 and step != 0
move_right if @map[@x+1,@y] == step - 1 and step != 0
end
end
#--------------------------------------------------------------------------
def find_path(x,y, force = true)
sx, sy = @x, @y
result = setup_map(sx,sy,x,y)
@runpath = result[0]
@map = result[1]
@map[sx,sy] = result[2] if result[2] != nil
$game_player.ignore_movement = @runpath ? force : false
end
#--------------------------------------------------------------------------
def clear_path
@map = nil
@runpath = false
@ovrdest = false
$game_player.ignore_movement = false
end
#--------------------------------------------------------------------------
def setup_map(sx,sy,ex,ey)
map = Table.new($game_map.width, $game_map.height)
# Shaz - adding this comment to the second line of the event commands
# Mouse[0,1]
# will cause the player to go to the tile BELOW the event, turn up,
# and interact with the event ([0,1] is x+0, y+1)
tx = ex
ty = ey
event = $game_map.event_at(ex, ey)
if !event.nil? && !event.list.nil? && !event.erased &&
event.list.size > 1 && event.list[1].code == 108
text = event.list[1].parameters.to_s
text.gsub!(/[Mm][Oo][Uu][Ss][Ee]\[([-,0-9]+),([-,0-9]+)\]/) do
tx = ex + $1.to_i
ty = ey + $2.to_i
map[ex, ey] = 999
@ovrdest = true
end
end
update_counter = 0
map[tx,ty] = 1
old_positions = []
new_positions = []
old_positions.push([tx, ty])
depth = 2
$path_allow = false
depth.upto(100){|step|
loop do
break if old_positions[0] == nil
x,y = old_positions.shift
return [true, map, step-1] if x == sx and y == sy
if map[x,y + 1] == 0 and $game_player.passable?(x, y, 2, step, tx, ty)
map[x,y + 1] = step
new_positions.push([x,y + 1])
end
if map[x - 1,y] == 0 and $game_player.passable?(x, y, 4, step, tx, ty)
map[x - 1,y] = step
new_positions.push([x - 1,y])
end
if map[x + 1,y] == 0 and $game_player.passable?(x, y, 6, step, tx, ty)
map[x + 1,y] = step
new_positions.push([x + 1,y])
end
if map[x,y - 1] == 0 and $game_player.passable?(x, y, 8, step, tx, ty)
map[x,y - 1] = step
new_positions.push([x,y - 1])
end
# If we've checked quite a few tiles, allow graphics and input
# to update - to avoid the 'script hanging' error
update_counter += 1
if update_counter > 100
Graphics.update
update_counter = 0
end
end
old_positions = new_positions
new_positions = []
}
@ovrdest = false
return [false, nil, nil]
end
end
class Game_Map
#--------------------------------------------------------------------------
alias pf_game_map_setup setup
#--------------------------------------------------------------------------
def setup(map_id)
pf_game_map_setup(map_id)
$game_player.clear_path
end
end
class Game_Player
attr_accessor :ignore_movement
#--------------------------------------------------------------------------
alias pf_game_player_update update
#--------------------------------------------------------------------------
def update
$game_player.clear_path if Input.dir4 != 0
pf_game_player_update
end
end
class Interpreter
#--------------------------------------------------------------------------
def event
return $game_map.events[@event_id]
end
end
3a sezione:
MOUSE2
Spoiler
#==============================================================================
# ** MouseCursor
#==============================================================================
module MouseCursor
Default_Cursor = 'Arrow'
Event_Cursor = 'Arrow3'
Actor_Cursor = 'Arrow'
Enemy_Cursor = 'Arrow4'
Item_Cursor = true
Skill_Cursor = true
Dummy = Bitmap.new(32, 32)
end
#==============================================================================
# ** Sprite_Mouse
#==============================================================================
class Sprite_Mouse < Sprite
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
def initialize
super
self.z = 10100
self.ox = 4
update
end
#--------------------------------------------------------------------------
# ** Frame Update
#--------------------------------------------------------------------------
def update
super
# Update Visibility
self.visible = $scene != nil
# If Visible
if self.visible
# If Non-nil Mouse Position
if Mouse.position != nil
# Gets Mouse Position
mx, my = *Mouse.position
# Update POsition
self.x = mx unless mx.nil?
self.y = my unless my.nil?
end
# If Scene changes or Mouse is Triggered
if @scene != $scene.class || Mouse.trigger?
# Update Scene Instance
@scene = $scene.class
# Update Bitmap
set_bitmap(MouseCursor::Default_Cursor)
end
end
end
#--------------------------------------------------------------------------
# ** Set Bitmap
#--------------------------------------------------------------------------
def set_bitmap(cursor, xNPCname = nil)
# show fancy cursor only if custom mouse on
if $game_mouse
# If Cursor Info matches
if (@_cursor == cursor) && (@_NPCname == xNPCname)
return
end
# Reset Cursor Info
@_cursor = cursor
@_NPCname = xNPCname
# Gets Dummy
dummy = MouseCursor::Dummy
# Gets Item Cursor Bitmap
item_cursor = cursor.nil? ? MouseCursor::Default_Cursor : cursor
# Start Cursor Bitmap
bitmap = RPG::Cache.icon(item_cursor) if item_cursor != ''
# Show NPC name
if @_NPCname != nil
# Get name width
w = dummy.text_size(@_NPCname).width
h = dummy.font.size
b = RPG::Cache.icon(item_cursor)
# Create New Bitmap
bitmap = Bitmap.new((bitmap.nil? ? w : 40 + w), [b.height, h + 2].max)
bitmap.font.size = dummy.font.size
bitmap.blt(0, 0, b, b.rect)
# Draw NPC Name
x = item_cursor == '' ? 0 : 32
bitmap.font.color = Color.new(0, 0, 0, 255) # black
bitmap.draw_text(b.width + 9, 0, w, h, @_NPCname) # 0
bitmap.draw_text(b.width + 11, 0, w, h, @_NPCname) # 0
bitmap.draw_text(b.width + 10, -1, w, h, @_NPCname) # -1
bitmap.draw_text(b.width + 10, 1, w, h, @_NPCname) # 1
bitmap.font.color = Color.new(255, 255, 255, 255) # white
bitmap.draw_text(b.width + 10, 0, w, h, @_NPCname)
end
# Set Bitmap
self.bitmap = bitmap
elsif self.bitmap
@_cursor = nil
self.bitmap = nil
end
end
#--------------------------------------------------------------------------
# ** Frame Update : Update Event Cursors
#--------------------------------------------------------------------------
def update_event_cursors
# If Nil Grid Position
if Mouse.grid.nil?
# Set Default Cursor
set_bitmap(MouseCursor::Default_Cursor)
return
end
# Gets Mouse Position
x, y = *Mouse.grid
# Gets Mouse Position
mx, my = *Mouse.position
# Gets Mouse Event
event = $game_map.event_at(x, y)
# If Non-Nil Event or not over map HUD
unless event.nil?
# If Not Erased or Nil List
if event.list != nil && event.erased == false && event.list[0].code == 108
# Get the cursor to show
icon = event.list[0].parameters
icon = icon.to_s
if !((icon == "Arrow2") ||
(icon == "Arrow3") ||
(icon == "Arrow4") ||
(icon == "Arrow5") ||
(icon == "Arrow6") ||
(icon == "Arrow7"))
icon = MouseCursor::Default_Cursor
end
xNPCname = nil
if event.list.size > 1 && event.list[1].code == 108
text = event.list[1].parameters.to_s
text.gsub!(/[Nn][Aa][Mm][Ee] (.*)/) do
xNPCname = $1.to_s
end
end
set_bitmap(icon, xNPCname)
return
end
return
end
# Set Default Cursor
set_bitmap(MouseCursor::Default_Cursor)
end
end
#==============================================================================
# ** Input
#==============================================================================
class << Input
#------------------------------------------------------------------------
# * Alias Listings
#------------------------------------------------------------------------
unless self.method_defined?(:sephlamchop_mousesys_input_update)
alias_method :sephlamchop_mousesys_input_update, :update
end
#------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
$mouse_sprite.update if $mouse_sprite.visible
# Original Update
sephlamchop_mousesys_input_update
end
end
4a sezione
MOUSE3_1
Spoiler
WORLD_MAP_ID = 1
#==============================================================================
# ** Game_Map
#==============================================================================
class Game_Map
#--------------------------------------------------------------------------
# * Event At
#--------------------------------------------------------------------------
def event_at(x, y)
for event in @events.values
return event if event.x == x && event.y == y
end
return nil
end
#--------------------------------------------------------------------------
# * Events At (returns multiple events at the same position in an array)
#--------------------------------------------------------------------------
def events_at(x, y)
eventarray = []
for event in @events.values
eventarray.push event if event.x == x && event.y == y
end
return eventarray if eventarray.size > 0
return nil
end
end
#==============================================================================
# ** Game_Event
#==============================================================================
class Game_Event
#--------------------------------------------------------------------------
# * Public Instance Variables
#--------------------------------------------------------------------------
attr_reader :erased # trigger
attr_accessor :mouse_autostart # mouse autostart boolean
attr_accessor :mouse_cursor_icon # mouse cursor icon
attr_accessor :mouse_cursor_desc # mouse cursor desc
attr_reader :name # name of event
#--------------------------------------------------------------------------
# * Alias Listings
#--------------------------------------------------------------------------
alias_method :sephlamchop_mousesys_gmevt_refresh, :refresh
#--------------------------------------------------------------------------
# * Start Event
#--------------------------------------------------------------------------
def start
# If list of event commands is not empty
if @list && @list.size > 1
@starting = true
end
end
#--------------------------------------------------------------------------
# * Refresh
#--------------------------------------------------------------------------
def refresh
# Original Refresh
sephlamchop_mousesys_gmevt_refresh
# Click triggers event for action button, player or event touch
@mouse_autostart = [0, 1, 2].include?(@trigger)
@mouse_cursor_icon = MouseCursor::Event_Cursor
@mouse_cursor_desc = nil
# Return if Erased or Nil List
#return if @erased || @list.nil?
end
end
#==============================================================================
# ** Game_Character
#==============================================================================
class Game_Character
def passable?(x, y, d, step = 999, tx = nil, ty = nil)
# Get new coordinates
new_x = x + (d == 6 ? 1 : d == 4 ? -1 : 0)
new_y = y + (d == 2 ? 1 : d == 8 ? -1 : 0)
# If coordinates are outside of map
unless $game_map.valid?(new_x, new_y)
return false
end
# If through is ON
if @through
return true
end
# Able to leave current tile in desired direction?
# SHAZ: for counter, must be old, counter, new, in a straight line
unless $game_map.passable?(x, y, d, self) || (step == 2 && $game_map.event_at(x, y)) ||
(step == 3 && $game_map.counter?(x, y) && tx != nil && ty != nil &&
new_x - x == x - tx && new_y - y == y - ty)
return false
end
# Able to enter adjoining tile in current direction?
unless $game_map.passable?(new_x, new_y, 10 - d) ||
(step == 2 && $game_map.counter?(new_x, new_y))
return false
end
# SHAZ - ignore events sitting on a counter next to the destination
if step != 2 || !$game_map.counter?(new_x, new_y)
# Loop all events
for event in $game_map.events.values
# If event coordinates are consistent with move destination
if event.x == new_x and event.y == new_y
@state = true
# If through is OFF
unless event.through
# If self is event
if self != $game_player
return false
end
# With self as the player and partner graphic as character
if event.character_name != ""
return false
end
end
end
end
end
# If on world map, don't allow to go through events. Otherwise,
# the event will be triggered while the PC is walking
if $game_map.map_id == WORLD_MAP_ID && @state == false
return false
end
# If player coordinates are consistent with move destination
if $game_player.x == new_x && $game_player.y == new_y && self != $game_player
# If through is OFF
unless $game_player.through
# If your own graphic is the character
if @character_name != ""
return false
end
end
end
return true
end
end
#==============================================================================
# ** Game_Player
#==============================================================================
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# * Alias Listings
#--------------------------------------------------------------------------
alias_method :sephlamchop_mousesys_gmplyr_update, :update
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
# Unless Interpreter Running, Forcing a Route or Message Showing
unless $game_system.map_interpreter.running? or
@move_route_forcing or $game_temp.message_window_showing
# Find Path If Mouse Triggered
if Mouse.trigger?(0) && Mouse.grid != nil
# Check if mouse is over HUD on map
screen_x,screen_y = Mouse.pos
# Gets Mouse X & Y
mx, my = *Mouse.grid
# Turn Character in direction
newd_x = (@x - mx).abs
newd_y = (@y - my).abs
if @x > mx
turn_left if newd_x >= newd_y
elsif @x < mx
turn_right if newd_x >= newd_y
end
if @y > my
turn_up if newd_x < newd_y
elsif @y < my
turn_down if newd_x < newd_y
end
# Run Pathfinding
find_path(mx, my, false)
# Gets Event
@eventarray = @runpath ? $game_map.events_at(mx, my) : nil
# If Event At Grid Location
unless @eventarray.nil?
@eventarray.each do |event|
# If Event Autostart
if !event.mouse_autostart
@eventarray.delete(event)
end
end
@eventarray = nil if @eventarray.size == 0
end
end
end
if @move_route_forcing
clear_path
@eventarray = nil
end
# Original Update
sephlamchop_mousesys_gmplyr_update
# If Non-nil Event Autostarter
if @eventarray != nil && !moving? &&
(!@ovrdest || @map.nil? || @map[@x,@y] == 1)
# Gets Event
@eventarray.each do |event|
# If Event Within Range
if event and (@x == event.x or @y == event.y)
# SHAZ - trigger event when:
# - Action button and standing on or beside, or with a counter between
# - player/event touch and standing as close as possible (on, if possible)
distance = Math.hypot(@x - event.x, @y - event.y)
dir = @x < event.x ? 6 : @x > event.x ? 4 : @y < event.y ? 2 : @y > event.y ? 8 : 0
if (event.trigger == 0 and (distance < 2 or (distance == 2 and
$game_map.counter?((@x+event.x)/2, (@y+event.y)/2)))) or
([1,2].include?(event.trigger) and ((distance == 0 and
$game_player.passable?(@x, @y, dir)) or (distance == 1 and
!$game_player.passable?(@x, @y, dir))))
# Turn toward Event
if @x == event.x
turn_up if @y > event.y
turn_down if @y < event.y
else
turn_left if @x > event.x
turn_right if @x < event.x
end
# Start Event
clear_path
event.start
@eventarray.delete(event)
@eventarray = nil if @eventarray.size == 0
end
end
end
end
end
def passable?(x1, y1, d, step = 999, tx = nil, ty = nil)
super
end
end
#==============================================================================
# ** Mouse Selectable Windows
#------------------------------------------------------------------------------
# SephirothSpawn
# Version 2.1
#==============================================================================
#==============================================================================
# ** Window_Base
#==============================================================================
class Window_Base
#--------------------------------------------------------------------------
# * Frame Update : Mouse Cursor - Item
#--------------------------------------------------------------------------
def update_mouse_cursors_item(item, cursor, show)
# Return if not Active
return unless self.active
# Return if nil Position
return if Mouse.position.nil?
# Gets Mouse Position
mx, my = Mouse.position
# Gets Cursor Position
cr = self.cursor_rect
cx, cy = cr.x + self.x + 16, cr.y + self.y + 16
cw, ch = cr.width, cr.height
# If Not on Item
if mx.between?(self.x, self.x + self.width) == false ||
my.between?(self.y, self.y + self.height) == false || item.nil? ||
@item_max == 0 || mx.between?(cx, cx + cw) == false ||
my.between?(cy, cy + ch) == false
# Clear Mouse Index
@mouse_index = nil
# Set Mouse to Default Cursor
$mouse_sprite.set_bitmap(MouseCursor::Default_Cursor)
return
end
# If Index is different than mouse index and window active
if @mouse_index != @index
# Reset Index
@mouse_index = @index
# set to item icon if cursor is true
cursor = item.icon_name if cursor
# Set Bitmap
$mouse_sprite.set_bitmap(cursor)
end
end
end
class Window_Selectable
#--------------------------------------------------------------------------
# * Default Settings
#--------------------------------------------------------------------------
Default_Mouse_Selectable = true
Default_Window_Padding = 16
#--------------------------------------------------------------------------
# * Public Instance Variables
#--------------------------------------------------------------------------
attr_accessor :mouse_selectable
attr_accessor :window_padding
#--------------------------------------------------------------------------
# * Alias Listings
#--------------------------------------------------------------------------
alias_method :seph_mouseselectable_wndslct_init, :initialize
alias_method :seph_mouseselectable_wndslct_update, :update
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
def initialize(x, y, width, height)
# Original Initialization
seph_mouseselectable_wndslct_init(x, y, width, height)
# Set Mouse Selectable Flag
@mouse_selectable = Default_Mouse_Selectable
@window_padding = Default_Window_Padding
end
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
# agf = hide mouse
if $mouse_sprite.visible == true
# If Mouse Selectable, Active, at Least 1 Item and Non-negitive index
if self.mouse_selectable && self.active && @item_max > 0 && @index >= 0
# Gets Mouse Position
mouse_x, mouse_y = *Mouse.position
# If Mouse Within Window
if mouse_x.between? (self.x, self.x + self.width) &&
mouse_y.between? (self.y, self.y + self.height)
# Calculates Mouse X and Y Position Within Window
mouse_x -= self.x; mouse_y -= self.y
# Subtracts Window Padding
mouse_x -= @window_padding; mouse_y -= @window_padding
# Subtracts Mouse Oh
mouse_y -= self.mouse_oh
# Gets Cursor Width
cursor_width = (self.width / @column_max - 32)
# Passes Through Item Max
for i in 0...@item_max
# Calculates Index Position
x = i % @column_max * (cursor_width + 32)
y = i / @column_max * self.oh - self.oy
# If Mouse Between Rect
if mouse_x.between?(x, x + cursor_width) &&
mouse_y.between?(y, y + self.oh)
# Set Index
prev_index = @index
@index = i
if prev_index != @index
$game_system.se_play($data_system.cursor_se)
end
break
end
end
end
end
end
# Original Update
seph_mouseselectable_wndslct_update
end
#--------------------------------------------------------------------------
# * Oh
#--------------------------------------------------------------------------
def oh
return 32
end
#--------------------------------------------------------------------------
# * Mouse Oh
#--------------------------------------------------------------------------
def mouse_oh
return 0
end
end
5a sezione
MOUSE3_2
Spoiler
#==============================================================================
# ** Window_MenuStatus
#==============================================================================
class Window_MenuStatus < Window_Selectable
#--------------------------------------------------------------------------
# * Oh
#--------------------------------------------------------------------------
def oh
return 60
end
end
#==============================================================================
# ** Window_Target
#==============================================================================
class Window_Target < Window_Selectable
#--------------------------------------------------------------------------
# * Oh
#--------------------------------------------------------------------------
def oh
return 105
end
end
#==============================================================================
# ** Window_BattleReserve
#==============================================================================
class Window_BattleReserve < Window_Selectable
#--------------------------------------------------------------------------
# * Oh
#--------------------------------------------------------------------------
def oh
return 105
end
end
#==============================================================================
# ** Window_EquipRight
#==============================================================================
class Window_EquipRight < Window_Selectable
#--------------------------------------------------------------------------
# * Oh
#--------------------------------------------------------------------------
def oh
return 50
end
#--------------------------------------------------------------------------
# * Mouse Oh
#--------------------------------------------------------------------------
def mouse_oh
return 140
end
end
#==============================================================================
# ** Window_Message
#==============================================================================
class Window_Message < Window_Selectable
#--------------------------------------------------------------------------
# * Mouse Oh
#--------------------------------------------------------------------------
def mouse_oh
return $game_temp.choice_start * 32
end
end
#==============================================================================
# ** Window_Party
#==============================================================================
class Window_Party < Window_Selectable
#--------------------------------------------------------------------------
# * Oh
#--------------------------------------------------------------------------
def oh
return 52
end
end
#==============================================================================
# ** Window_Menu
#==============================================================================
class Window_Menu < Window_Selectable
#--------------------------------------------------------------------------
# * Oh
#--------------------------------------------------------------------------
def oh
return 35
end
end
#==============================================================================
# ** Window_ActorCommand
#==============================================================================
class Window_ActorCommand < Window_Selectable
#--------------------------------------------------------------------------
# * Update
#--------------------------------------------------------------------------
def update
if $mouse_sprite.visible
# if Mouse sleectable, active, at least 1 item and non-negative index
if self.mouse_selectable && self.active && @item_max > 0 && @index >= 0
# Get / check mouse position
mouse_x, mouse_y = *Mouse.position
if mouse_x.between?(self.x, self.x + self.width) &&
mouse_y.between?(self.y, self.y + self.height)
# Calculates mouse position within window
mouse_x -= self.x
mouse_y -= self.y
# Subtracts widnow padding and overhead
mouse_x -= @window_padding
mouse_y -= @window_padding - self.mouse_oh
# Look through all items
for i in 0...@item_max
ix,iy = @positions[i]
if mouse_x.between?(ix, ix + 32) && mouse_y.between?(iy, iy + self.oh)
if i != @index
$game_system.se_play($data_system.cursor_se)
end
@index = i
break
end
end
end
end
end
super
end
#--------------------------------------------------------------------------
# * Oh
#--------------------------------------------------------------------------
def oh
return 32
end
end
#==============================================================================
# ** Window_NameInput
#==============================================================================
class Window_NameInput < Window_Base
#--------------------------------------------------------------------------
# * Default Settings
#--------------------------------------------------------------------------
Default_Mouse_Selectable = true
Default_Window_Padding = 16
#--------------------------------------------------------------------------
# * Public Instance Variables
#--------------------------------------------------------------------------
attr_accessor :mouse_selectable
attr_accessor :window_padding
#--------------------------------------------------------------------------
# * Alias Listings
#--------------------------------------------------------------------------
alias_method :shaz_mouseselectable_wndslct_init, :initialize
alias_method :shaz_mouseselectable_wndslct_update, :update
#--------------------------------------------------------------------------
# ● Initialize the Name Input window
#--------------------------------------------------------------------------
def initialize
# Original Initialization
shaz_mouseselectable_wndslct_init
# Set Mouse Selectable Flag
@mouse_selectable = Default_Mouse_Selectable
@window_padding = Default_Window_Padding
end
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
# if mouse selectable, visible, active, and non-negative index
if $mouse_sprite.visible && self.mouse_selectable && self.active &&
@index >= 0
# Get mouse position
mouse_x, mouse_y = *Mouse.position
# If mouse within window
if mouse_x.between? (self.x, self.x + self.width) &&
mouse_y.between? (self.y, self.y + self.height)
# Calculates mouse X and Y positions within window
mouse_x -= self.x; mouse_y -= self.y
# Subtracts window padding
mouse_x -= @window_padding; mouse_y -= @window_padding
# Subtracts mouse oh
mouse_y -= self.mouse_oh
# Gets cursor width
cursor_width = 28
# If not Submit button, pass through all items
if mouse_x.between?(428, 428+48) && mouse_y.between?(9*32, 9*32+32)
$game_system.se_play($data_system.cursor_se) if @index != 180
@index = 180
else
for i in 0..90
# Calculate index position
x = 140 + i / 5 / 9 * 180 + i % 5 * 32
y = i / 5 % 9 * 32
# If mouse between rect
if mouse_x.between?(x, x + cursor_width) &&
mouse_y.between?(y, y + self.oh)
# set index
prev_index = @index
@index = i
if prev_index != @index
$game_system.se_play($data_system.cursor_se)
end
break
end
end
end
end
end
# Original update
shaz_mouseselectable_wndslct_update
end
#--------------------------------------------------------------------------
# * Oh
#--------------------------------------------------------------------------
def oh
return 32
end
#--------------------------------------------------------------------------
# * Mouse Oh
#--------------------------------------------------------------------------
def mouse_oh
return 0
end
end
#==============================================================================
# ** Scene_File
#==============================================================================
class Scene_File
#--------------------------------------------------------------------------
# * Alias Listings
#--------------------------------------------------------------------------
alias_method :sephlamchop_mousesys_scnfl_update, :update
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
# agf = hide mouse
if $mouse_sprite.visible == true
# If Mouse Position isn't Nil
if Mouse.pos != nil
# Gets Mouse Position
x, y = Mouse.pos
y = y + 32
# Pass Through Savefile Windows
for i in 0...@savefile_windows.size
# Gets Window
w = @savefile_windows[i]
# Don't allow user to select autosave slot in Load Menu
if @autosave_slot == false
i = 1 if i == 0
end
# If Within Window Range
if x.between?(w.x, w.x + w.width) &&
y.between?(w.y, w.y + w.height) && w.active
prev_index = @file_index
# Set File Index
@file_index = i
# Turns Window On
w.selected = true
# Play SE
if prev_index != @file_index
$game_system.se_play($data_system.cursor_se)
end
# Unhighlight remaining windows
for j in 0...@savefile_windows.size
if j != i
@savefile_windows[j].selected = false
end
end
# Don't select autosave slot in Load Menu
if @autosave_slot == false
@savefile_windows[0].selected = false if i == 1
end
# Break Main Loop
break
end
end
end
end
# Original Update
sephlamchop_mousesys_scnfl_update
end
end
#==============================================================================
# ** Game_Battler
#==============================================================================
class Game_Battler
#--------------------------------------------------------------------------
# * Battler Width
#--------------------------------------------------------------------------
def battler_width
return RPG::Cache.battler(@battler_name, @battler_hue).width
end
#--------------------------------------------------------------------------
# * Battler Height
#--------------------------------------------------------------------------
def battler_height
return RPG::Cache.battler(@battler_name, @battler_hue).height
end
end
#==============================================================================
# ** Arrow_Enemy
#==============================================================================
class Arrow_Enemy < Arrow_Base
#--------------------------------------------------------------------------
# * Alias Listings
#--------------------------------------------------------------------------
alias_method :seph_mouseselectablewindows_arrenmy_update, :update
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
# Original Update
seph_mouseselectablewindows_arrenmy_update
if $mouse_sprite.visible == true
# Return if Nil Mouse Position
return if Mouse.position.nil?
# Gets Mouse Position
mx, my = *Mouse.position
# Pass Through Enemies
$game_troop.enemies.each do |enemy|
# Skip if Non-Existing Enemy
next unless enemy.exist?
# Gets Paddings
w, h = enemy.battler_width / 2, enemy.battler_height
# If Within Mouse Padding Range
if mx.between?(enemy.screen_x - w, enemy.screen_x + w) &&
my.between?(enemy.screen_y - h, enemy.screen_y + 10)
# Set Index
@index = $game_troop.enemies.index(enemy)
# Set mouse cursor to bitmap
$mouse_sprite.set_bitmap(MouseCursor::Enemy_Cursor)
return
# break
end
end
# Set Mouse to Default Cursor
$mouse_sprite.set_bitmap(MouseCursor::Default_Cursor)
end
end
end
#==============================================================================
# ** Arrow_Actor
#==============================================================================
class Arrow_Actor < Arrow_Base
#--------------------------------------------------------------------------
# * Alias Listings
#--------------------------------------------------------------------------
alias_method :seph_mouseselectablewindows_arractr_update, :update
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
# Original Update
seph_mouseselectablewindows_arractr_update
# Return if Nil Mouse Position
return if Mouse.position.nil?
# Gets Mouse Position
mx, my = *Mouse.position
# Pass Through Actors
$game_party.actors.each do |actor|
# Gets Paddings
w, h = actor.battler_width / 2, actor.battler_height
# If Within Mouse Padding Range
if mx.between?(actor.screen_x - w, actor.screen_x + w) &&
my.between?(actor.screen_y - h, actor.screen_y + 10)
# Set Index
@index = $game_party.actors.index(actor)
end
end
end
end
#==============================================================================
# ** Scene_Map
#==============================================================================
class Scene_Map
#--------------------------------------------------------------------------
# * Alias Listings
#--------------------------------------------------------------------------
alias_method :sephlamchop_mousesys_scnmap_update, :update
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
# Unless Message Showing
unless $game_temp.message_text
# Update Event Cursors
$mouse_sprite.update_event_cursors
end
# Original Update
sephlamchop_mousesys_scnmap_update
end
end
#==============================================================================
# ** Interpreter
#==============================================================================
class Interpreter
#--------------------------------------------------------------------------
# * Alias Listings
#--------------------------------------------------------------------------
alias_method :shaz_mousesys_intrprtr_command_101, :command_101
#--------------------------------------------------------------------------
# * Show Text
#--------------------------------------------------------------------------
def command_101
# return mouse sprite to default cursor
$mouse_sprite.set_bitmap(MouseCursor::Default_Cursor)
# original command_101
shaz_mousesys_intrprtr_command_101
end
end
$mouse_sprite = Sprite_Mouse.new
# game mouse is visible, system mouse is hidden
$mouse_sprite.visible = true
Bene e questi sono i componenti che servono per avere un corretto o meglio quasi corretto utilizzo del Mouse in gioco.
Vi segnalo subito che esiste un bug di poco conto ma che comunque un po fa storcere il naso,
se (una volta attivata la funzione) andate nel menu di equipaggiamento e giocante con le voci lì.
attivando e disattivando gli accessori le armature e le armi ecc, noterete che il cursore del Mouse non vi segue e si sofferma solo sulla prima voce che avete selezionato, o attivandola o il contrario.
Comunque potete sempre uscire utilizzando il tasto destro del mouse e tutto si aggiusta.
Ma ripeto sarà stata una piccola dimenticanza degli autori dello scripts.
Chi la sa risolvere ben venga. Per il resto lo script è funzionalissimo e utile per chi vuole usare sia comandi da tastiera che dal mouse, una funzione non esclude l'altra.
Un'ultima cosa ma importantissima :
create un cursore, la dimenzione sceglietela voi, nominatelo Arrow e allocatelo nella cartella Icons del
vostro progetto. Detto questo ho detto tutto.
Spero possa esservi utile. Ehm niente...citate gli autori degli scripts mi raccomando e ah si,
@Guardian:
Ovviamente, prima di postare, mi sono spulciato tutte e 16 le pagine della sezione Script RGSS (XP) ed anche se ci sono altri post che trattano l'argomento e hanno rilasciato vari scripts allegati ad asso, comunque ti assicuro che una volta provati ho riscontrato dei Bugs pazzeschi. Uno addirittura era una vera e propria trappola mortale, che mi intrappolava dentro lo scene_equip perché non mi permetteva di tornare indietro. :)
Comunque Bella raga notte a tutti. 
