[Archive] Pokemon Essentials: Starter Kit for RPG Maker XP

#==============================================================================
# - Scene_Pokegear
#------------------------------------------------------------------------------
# Modified By Harshboy
# Modified by Peter O.
# Also Modified By OblivionMew
#==============================================================================
class Scene_Pokegear
#--------------------------------------------------------------------------
# initialize
#--------------------------------------------------------------------------
def initialize(menu_index = 0)
@menu_index = menu_index
end
#--------------------------------------------------------------------------
# main
#--------------------------------------------------------------------------
def main

# Main Menu settings you can add or change these
commands=[
_INTL("Map"),
_INTL("Radio"),
_INTL("Storage"),
_INTL("Phone"),
_INTL("Exit")

]
@command_window = Window_CommandPokemon.new(commands,160)
@command_window.index = @menu_index
@command_window.x = (Graphics.width - @command_window.width) - 8
@command_window.y = 640
@card = Sprite.new
@card.bitmap = RPG::Cache.picture("Pokegearback")
@card.x = 0
@card.y = 0


@map_icon = Sprite.new
@map_icon.bitmap = RPG::Cache.picture("mapicon")
@map_icon.x = 0
@map_icon.y = 95
@button_up = Sprite.new
@button_up.bitmap = RPG::Cache.picture("buttonunp")
@button_up.x = 220
@button_up.y = 133
@button_down = Sprite.new
@button_down.bitmap = RPG::Cache.picture("buttonunp")
@button_down.x = 220
@button_down.y = 180
@arr_icon=AnimatedSprite.new("Graphics/Pictures/selarr.png",8,50,50,1)
@arr_icon.x = 60
@arr_icon.y = 57
@arr_icon.start
@radio_icon = Sprite.new
@radio_icon.bitmap = RPG::Cache.picture("radicon")
@radio_icon.x = 0
@radio_icon.y = 115
@storage_icon = sprite.new
@storage_icon.bitmap = RPG::Cache.picture("pcicon")
@storage_icon.x = 0
@storage_icon.y = 125
@arr_icon.z=99999
@phone_icon = Sprite.new
@phone_icon.bitmap = RPG::Cache.picture("phonicon")
@phone_icon.x = 0
@phone_icon.y = 135

@exit_icon = Sprite.new
@exit_icon.bitmap = RPG::Cache.picture("exicon")
@exit_icon.x = 0
@exit_icon.y = 145
@trainer = Sprite.new
@trainer.x = 360
@trainer.y = 135
@trainer.zoom_x = 1.0
@trainer.zoom_y = 1.0
@trainer.z = 99999
@trainer.bitmap = RPG::Cache.character(
sprintf("trainer%03d.png",$Trainer.trainertype),0
)
@info = Window_UnformattedTextPokemon.new("")
@info.height = Graphics.height / 4 + 16
@info.width = Graphics.width / 2 + 74
@info.x = 0
@info.y = Graphics.height - @info.height
@info.z = 99999
@info.letterbyletter=false
@target_window = Window_UnformattedTextPokemon.new("")
@target_window.visible = false
@target_window.active = false
@target_window.letterbyletter=false
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
@target_window.dispose
Graphics.freeze
@command_window.dispose
@trainer.dispose
@card.bitmap.dispose
@info.dispose
@arr_icon.dispose
@map_icon.dispose
@phone_icon.dispose
@radio_icon.dispose
@exit_icon.dispose
@button_up.dispose
@button_down.dispose
end
#--------------------------------------------------------------------------
# update the scene
#--------------------------------------------------------------------------
def update
@arr_icon.update
@command_window.update
@info.update
if Input.press?(Input::UP)
@button_up.bitmap = RPG::Cache.picture("buttonp")
else
@button_up.bitmap = RPG::Cache.picture("buttonunp")
end

if Input.press?(Input::DOWN)
@button_down.bitmap = RPG::Cache.picture("buttonp")
else
@button_down.bitmap = RPG::Cache.picture("buttonunp")
end
case @command_window.index
when 0
@map_icon.x = 32
@phone_icon.x = 0
@storage_icon.x = 0
@radio_icon.x = 0
@exit_icon.x = 0
@arr_icon.y=57
when 1
@map_icon.x = 0
@phone_icon.x = 0
@storage_icon.x = 0
@radio_icon.x = 32
@exit_icon.x = 0
@arr_icon.y=109
when 2
@map_icon.x = 0
@phone_icon.x = 0
@storage_icon.x = 32
@radio_icon.x = 0
@exit_icon.x = 0
@arr_icon.y=161
when 3
@map_icon.x = 0
@phone_icon.x = 32
@storage_icon.x = 0
@radio_icon.x = 0
@exit_icon.x = 0
@arr_icon.y=161
when 4
@map_icon.x = 0
@phone_icon.x = 0
@storage_icon.x = 0
@radio_icon.x = 0
@exit_icon.x = 32
@arr_icon.y=265

end
#update command window and the info if it's active
if @command_window.active
update_command
update_info
return
end

end
#--------------------------------------------------------------------------
# update the command window
#--------------------------------------------------------------------------
def update_command
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
$scene = Scene_Map.new
return
end

if Input.trigger?(Input::C)
case @command_window.index
when 0
$game_system.se_play($data_system.decision_se)
pbFadeOutIn(99999) {
scene=PokemonRegionMapScene.new
screen=PokemonRegionMap.new(scene)
screen.pbStartScreen
}
when 1
$game_system.se_play($data_system.decision_se)
$scene = Scene_Jukebox.new
when 2
$game_system.se_play($data_system.decision_se)
$scene = Scene_Storage.new
}
when 3
$game_system.se_play($data_system.decision_se)
pbFadeOutIn(99999) {
PokemonPhoneScene.new.start
}
when 4
$game_system.se_play($data_system.decision_se)
$scene = Scene_Map.new
end
return
end
end
def update_info
case @command_window.index
when 0
@info.text=_INTL("A Map\r\nShows visited Places.")
when 1
@info.text=_INTL("A Radio\r\nUsed to listen to Music.")
when 2
@info.text=_INTL("A Portable pc \r\nused to switch pokemon.")
when 3
@info.text=_INTL("A Phone\r\nUsed to call People.")
when 4
@info.text=_INTL("Closes the PokeGear and returns to the game.")
end
end
end

#==============================================================================
# - Scene_Pokegear
#------------------------------------------------------------------------------
# Modified By Harshboy
# Modified By Flameguru aka Harshboy
# Modified By Peter O.
# Modified By OblivionMew
#==============================================================================
class Scene_Pokegear
#--------------------------------------------------------------------------
# initialize
#--------------------------------------------------------------------------
def initialize(menu_index = 0)
@menu_index = menu_index
end
#--------------------------------------------------------------------------
# main
#--------------------------------------------------------------------------
def main

# Main Menu settings you can add or change these
commands=[
_INTL("Map"),
_INTL("Radio"),
_INTL("Storage"),
_INTL("Phone"),
_INTL("Exit")

]
@command_window = Window_CommandPokemon.new(commands,160)
@command_window.index = @menu_index
@command_window.x = (Graphics.width - @command_window.width) - 8
@command_window.y = 640
@card = Sprite.new
@card.bitmap = RPG::Cache.picture("Pokegearback")
@card.x = 0
@card.y = 0


@map_icon = Sprite.new
@map_icon.bitmap = RPG::Cache.picture("mapicon")
@map_icon.x = 0
@map_icon.y = 95
@button_up = Sprite.new
@button_up.bitmap = RPG::Cache.picture("buttonunp")
@button_up.x = 220
@button_up.y = 133
@button_down = Sprite.new
@button_down.bitmap = RPG::Cache.picture("buttonunp")
@button_down.x = 220
@button_down.y = 180
@arr_icon=AnimatedSprite.new("Graphics/Pictures/selarr.png",8,50,50,1)
@arr_icon.x = 60
@arr_icon.y = 57
@arr_icon.start
@radio_icon = Sprite.new
@radio_icon.bitmap = RPG::Cache.picture("radicon")
@radio_icon.x = 0
@radio_icon.y = 115
@storage_icon = sprite.new
@storage_icon.bitmap = RPG::Cache.picture("pcicon")
@storage_icon.x = 0
@storage_icon.y = 125
@arr_icon.z=99999
@phone_icon = Sprite.new
@phone_icon.bitmap = RPG::Cache.picture("phonicon")
@phone_icon.x = 0
@phone_icon.y = 135

@exit_icon = Sprite.new
@exit_icon.bitmap = RPG::Cache.picture("exicon")
@exit_icon.x = 0
@exit_icon.y = 145
@trainer = Sprite.new
@trainer.x = 360
@trainer.y = 135
@trainer.zoom_x = 1.0
@trainer.zoom_y = 1.0
@trainer.z = 99999
@trainer.bitmap = RPG::Cache.character(
sprintf("trainer%03d.png",$Trainer.trainertype),0
)
@info = Window_UnformattedTextPokemon.new("")
@info.height = Graphics.height / 4 + 16
@info.width = Graphics.width / 2 + 74
@info.x = 0
@info.y = Graphics.height - @info.height
@info.z = 99999
@info.letterbyletter=false
@target_window = Window_UnformattedTextPokemon.new("")
@target_window.visible = false
@target_window.active = false
@target_window.letterbyletter=false
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
@target_window.dispose
Graphics.freeze
@command_window.dispose
@trainer.dispose
@card.bitmap.dispose
@info.dispose
@arr_icon.dispose
@map_icon.dispose
@phone_icon.dispose
@radio_icon.dispose
@exit_icon.dispose
@button_up.dispose
@button_down.dispose
end
#--------------------------------------------------------------------------
# update the scene
#--------------------------------------------------------------------------
def update
@arr_icon.update
@command_window.update
@info.update
if Input.press?(Input::UP)
@button_up.bitmap = RPG::Cache.picture("buttonp")
else
@button_up.bitmap = RPG::Cache.picture("buttonunp")
end

if Input.press?(Input:OWN)
@button_down.bitmap = RPG::Cache.picture("buttonp")
else
@button_down.bitmap = RPG::Cache.picture("buttonunp")
end
case @command_window.index
when 0
@map_icon.x = 32
@phone_icon.x = 0
@storage_icon.x = 0
@radio_icon.x = 0
@exit_icon.x = 0
@arr_icon.y=57
when 1
@map_icon.x = 0
@phone_icon.x = 0
@storage_icon.x = 0
@radio_icon.x = 32
@exit_icon.x = 0
@arr_icon.y=109
when 2
@map_icon.x = 0
@phone_icon.x = 0
@storage_icon.x = 32
@radio_icon.x = 0
@exit_icon.x = 0
@arr_icon.y=161
when 3
@map_icon.x = 0
@phone_icon.x = 32
@storage_icon.x = 0
@radio_icon.x = 0
@exit_icon.x = 0
@arr_icon.y=161
when 4
@map_icon.x = 0
@phone_icon.x = 0
@storage_icon.x = 0
@radio_icon.x = 0
@exit_icon.x = 32
@arr_icon.y=265

end
#update command window and the info if it's active
if @command_window.active
update_command
update_info
return
end

end
#--------------------------------------------------------------------------
# update the command window
#--------------------------------------------------------------------------
def update_command
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
$scene = Scene_Map.new
return
end

if Input.trigger?(Input::C)
case @command_window.index
when 0
$game_system.se_play($data_system.decision_se)
pbFadeOutIn(99999) {
scene=PokemonRegionMapScene.new
screen=PokemonRegionMap.new(scene)
screen.pbStartScreen
}
when 1
$game_system.se_play($data_system.decision_se)
$scene = Scene_Jukebox.new
}
when 2
$game_system.se_play($data_system.decision_se)
$scene = Scene_Storage.new
}
when 3
$game_system.se_play($data_system.decision_se)
pbFadeOutIn(99999) {
PokemonPhoneScene.new.start
}
when 4
$game_system.se_play($data_system.decision_se)
$scene = Scene_Map.new
end
return
end
end
def update_info
case @command_window.index
when 0
@info.text=_INTL("A Map\r\nShows visited Places.")
when 1
@info.text=_INTL("A Radio\r\nUsed to listen to Music.")
when 2
@info.text=_INTL("A Portable PC \r\nused to switch pokemon.")
when 3
@info.text=_INTL("A Phone\r\nUsed to call People.")
when 4
@info.text=_INTL("Closes the PokeGear and returns to the game.")
end
end
end