[RPG Maker XP] Thread Oficial

#==============================================================================
# ■ Dash Mode
#------------------------------------------------------------------------------
# Near Fantastica
# 09/12/04
#=============================================================================

class Game_Player
#--------------------------------------------------------------------------
# ● Refer Update to Game Player
#--------------------------------------------------------------------------
alias game_player_update update
#--------------------------------------------------------------------------
# ● Update
#--------------------------------------------------------------------------
def update
if Input.press?(Input::A)
if moving?
# If A Key press enter dash mode
# reduce dash level
@move_speed=5
@restore = false
if @reduce == false
@timer = 50 # Initial time off set
@reduce = false
else
@timer-= 1
end
@sec = (@timer / Graphics.frame_rate)%60
if @sec == 0
if @dash_level != 0
@dash_level -= 1
@timer = 45 # Timer Count
end
end
if @dash_level == 0
@move_speed=4
end
end
else
# restore dash level
@move_speed=4
@reduce = false
if @restore == false
@timer = 90 # Initial time off set
@restore = true
else
@timer-= 1
end
@sec = (@timer / Graphics.frame_rate)%60
if @sec == 0
if @dash_level != 5
@dash_level+= 1
@timer = 60 # Timer Count
end
end
end
game_player_update
end
end

#==============================================================================
# ■ Bar Sprite
#------------------------------------------------------------------------------
# Used for Dash Mode displays bar pictures to screen
#=============================================================================

class Bar_Sprite < Sprite
#--------------------------------------------------------------------------
# ● Initialization
#--------------------------------------------------------------------------
def initialize
super
self.x = 10
self.y = 460
self.z = 500
end
#--------------------------------------------------------------------------
# ● Dispose
#--------------------------------------------------------------------------
def dispose
#self.bitmap.dispose
end
end

#==============================================================================
# ■ Game Character
#------------------------------------------------------------------------------
# Add Initialization of Dash Mode Varibles
#=============================================================================

class Game_Character
#--------------------------------------------------------------------------
# ● Refer Initialization to Game Character
#--------------------------------------------------------------------------
alias dash_mode_initialize initialize
#--------------------------------------------------------------------------
# ● Initialization
#--------------------------------------------------------------------------
def initialize
@restore = false
@reduce= false
@timer = 0
@dash_level = 5
@sec = 0
$dash_bar = Bar_Sprite.new
dash_mode_initialize
end
end

#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# Check for $dash_bar.dispose condition
#=============================================================================

class Scene_Map
#--------------------------------------------------------------------------
# ● Refer Update to Scene Map
#--------------------------------------------------------------------------
alias scene_map_call_battle call_battle
alias scene_map_call_shop call_shop
alias scene_map_call_name call_name
alias scene_map_call_menu call_menu
alias scene_map_call_save call_save
alias scene_map_call_debug call_debug
#--------------------------------------------------------------------------
# ● Dispose of $dash_bar is Battle called
#--------------------------------------------------------------------------
def call_battle
$dash_bar.dispose
scene_map_call_battle
end
#--------------------------------------------------------------------------
# ● Dispose of $dash_bar is called
#--------------------------------------------------------------------------
def call_shop
$dash_bar.dispose
scene_map_call_shop
end
#--------------------------------------------------------------------------
# ● Dispose of $dash_bar is Name called
#--------------------------------------------------------------------------
def call_name
$dash_bar.dispose
scene_map_call_name
end
#--------------------------------------------------------------------------
# ● Dispose of $dash_bar is Menu called
#--------------------------------------------------------------------------
def call_menu
$dash_bar.dispose
scene_map_call_menu
end
#--------------------------------------------------------------------------
# ● Dispose of $dash_bar is Save called
#--------------------------------------------------------------------------
def call_save
$dash_bar.dispose
scene_map_call_save
end
#--------------------------------------------------------------------------
# ● Dispose of $dash_bar is Debug called
#--------------------------------------------------------------------------
def call_debug
$dash_bar.dispose
scene_map_call_debug
end
end

#===============================================================================

# Velocidades por terrenos
# Creador por: Kotfire
# -Instrucciones-
# Modificar
# En la base de datos cambiar la Id del terreno(recomendación: dejar el 0 para
# los tiles normales y empezar a
# partir del 1 o del 2)
# when X (terreno X) X = Id del terreno(base de datos > tiles > elegir terreno)
# @move_speed = Y Y = Velocidad del personaje (recomendación: no más de 6)
#--------------------------------------------------------------------------------
# Nadar
# Creador por: Kotfire
# -Instrucciones-
# Modificar
# En la base de datos cambiar la Id del terreno agua(recomendación: poner la 7)
# when X (Id del terreno agua profunda)
# $graphic = imagen nadando (ej: $graphic = _Nadar / imagen = 001-Figther01_Nadar)
# Si creais vuestro propio grafico de nadar os quedará muchisimo mejor;)

#===============================================================================

$graphic = "_Nadar"
#===============================================================================

class Game_Player < Game_Character
alias terrain_update update
#--------------------------------------------------------------------------
def update
terrain_update
x = $game_player.x
y = $game_player.y
case $game_map.terrain_tag(x, y)
when 1 # terreno 1
@move_speed = 5
when 2 # terreno 2
@move_speed = 3
when 3 #terreno agua
@move_speed = 2
unless @character_name.include? $graphic
@character_name += $graphic
end
#when 4 #terreno 4
#@move_speed = X
# etc.
# Hasta 7
else
if @character_name.include? $graphic
refresh
end
@move_speed = 4
end
end
#--------------------------------------------------------------------------
end