# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # # # # # Script Menu Touch # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # # # # # On First Screen # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # # # # # # BY: VGS # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# ------------------------------------------------- ----------------------------
class PokemonMenu_Scene
# ---------------------------------------------
def pbUpdate
Mouse.update
$Mouse.x = Mouse.pos_x
$Mouse.y = Mouse.pos_y
pbUpdateSpriteHash (@sprites)
end
# ------------------------------------------------
def pbEndScene
pbDisposeSpriteHash (@sprites)
@Viewport.dispose
end
# ------------------------------------------------- ----------------------------
def pbStartScene
if $Trainer.pokegear
@Pokegear = "Pokégear"
end
if $Trainer.pokedex
@Pokedex = "Pokédex"
end
if $Trainer.party.length> 0
@Team = "Pokémon"
end
@Sprites = {}
@Viewport = viewport.new(0,0,384,512)
@Viewport.z = 99999
@Sprites ["overlay"] = BitmapSprite.new (Graphics.width, Graphics.height, @Viewport)
@Sprites ["overlay"].z = 9999
overlay = @sprites ["overlay"].bitmap
overlay.clear
Color.new basecoat(248,248,248)
Color.new shadowColor(104,88,112)
pbSetSystemFont (@sprites ["overlay"].bitmap)
textPositions = [
[_INTL ("{1}", $Trainer.name),152-5,75,false,basecoat,shadowColor]
[_INTL ("Bag"),345-5,75,false,basecoat,shadowColor]
[_INTL ("Save"),152-5,153, false, basecoat, shadowColor]
[_INTL ("Options"),345-5, 153, false, basecoat, shadowColor]
[_INTL ("{1}",@Team) ,152-5, 228, false, basecoat, shadowColor]
[_INTL ("{1}",@Pokedex) ,345-5, 228, false, basecoat, shadowColor]
[_INTL ("{1}",@Pokegear),234, 299, false, basecoat, shadowColor]
]
pbDrawTextPositions(overlay,textPositions)
@Sprites ["background"] = Sprite.new (@viewport)
@Sprites ["background"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / fondomenu")
@Sprites ["background"]. X = 0
@Sprites ["background"]. Y = 0
@Sprites ["background"]. Opacity = 99
@Sprites ["button1"] = Sprite.new (@viewport)
@Sprites ["button1"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
@Sprites ["button1"]. X = 69
@Sprites ["button1"]. Y = 65-10
@Sprites ["manager"] = Sprite.new (@viewport)
@Sprites ["manager"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / entrenadormenu")
@Sprites ["manager"]. X = 69
@Sprites ["manager"]. Y = 65-10
@Sprites ["button2"] = Sprite.new (@viewport)
@Sprites ["button2"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
@Sprites ["button2"]. X = 69
@Sprites ["button2"]. Y = 65 +78-10
@Sprites ["save"] = Sprite.new (@viewport)
@Sprites ["save"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / guardarmenu")
@Sprites ["save"]. X = 69
@Sprites ["save"]. Y = 65 +78-10
if $Trainer.party.length> 0
@Sprites ["boton3"] = Sprite.new (@viewport)
@Sprites ["boton3"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
@Sprites ["boton3."].X = 69
@Sprites ["boton3"].Y = 218-10
@Sprites ["pokemon"] = Sprite.new (@viewport)
@Sprites ["pokemon"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / ballmenu")
@Sprites ["pokemon"].X = 69
@Sprites ["pokemon"].Y = 218-10
end
@Sprites ["boton4"] = Sprite.new (@viewport)
@Sprites ["boton4"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
@Sprites ["boton4."].X = 261
@Sprites ["boton4"].Y = 65-10
@Sprites ["backpack"] = Sprite.new (@viewport)
@Sprites ["backpack"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / mochilamenu")
@Sprites ["backpack"].X = 261
@Sprites ["backpack"].Y = 65-10
@Sprites ["Button5"] = Sprite.new (@viewport)
@Sprites ["Button5"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
@Sprites ["Button5."].X = 261
@Sprites ["Button5"].Y = 65 +78-10
@Sprites ["options"] = Sprite.new (@viewport)
@Sprites ["options"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / opcionesmenu")
@Sprites ["options"].X = 261
@Sprites ["options"].Y = 65 +78-10
if $Trainer.pokedex
@Sprites ["6 button"] = Sprite.new (@viewport)
@Sprites ["6 button"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
@Sprites ["6 button."].X = 261
@Sprites ["6 button"].Y = 218-10
@Sprites ["pokedex"] = Sprite.new (@viewport)
@Sprites ["pokedex"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / pokedexmenu")
@Sprites ["pokedex"].X = 261
@Sprites ["pokedex"].Y = 218-10
end
if $Trainer.pokegear
@Sprites ["boton7"] = Sprite.new (@viewport)
@Sprites ["boton7"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
@Sprites ["boton7."].X = 165
@Sprites ["boton7"].Y = 289-10
@Sprites ["Pokegear"] = Sprite.new (@viewport)
@Sprites ["Pokegear"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / pokegearmenu")
@Sprites ["Pokegear."].X = 165
@Sprites ["Pokegear"].Y = 289-10
end
@Sprites ["leaving"] = Sprite.new (@viewport)
@Sprites ["out"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / salirboton")
@Sprites ["out"].X = 430
@Sprites ["out"].Y = 318
if $DEBUG
@Sprites ["debug"] = Sprite.new (@viewport)
@Sprites ["debug"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / debugboton")
@Sprites ["debug"].X = 0
@Sprites ["debug"].Y = 318
end
end
# ------------------------------------------------- ----------------------------
def pbScene
loop do
Graphics.update
Input.update
pbUpdate
if Input.trigger? (Input :: B)
break
end
if Mouse.mouse_in_area? (69, 65-10, 182, 65)
@Sprites ["button1"]. Bitmap = BitmapCache.load_bitmap ("Graphics/Pictures/botonmenu2")
if Mouse.click? (1)
pbPlayDecisionSE ()
PBDebug.logonerr {
scene = PokemonTrainerCardScene.new
screen = PokemonTrainerCard.new (scene)
pbFadeOutIn (99999) {
screen.pbStartScreen
@Scene.pbRefresh
}
}
end
else
@Sprites ["button1"].Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
end
if Mouse.mouse_in_area? (69, 65 +68-10, 182, 65)
@Sprites ["button2"].Bitmap = BitmapCache.load_bitmap ("Graphics/Pictures/botonmenu2")
if Mouse.click? (1)
pbPlayDecisionSE ()
scene = PokemonSaveScene.new
screen = PokemonSave.new (scene)
if screen.pbSaveScreen
end
end
else
@Sprites ["button2"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
end
if $Trainer.party.length> 0
if Mouse.mouse_in_area? (69, 218-10, 182, 65)
@Sprites ["boton3"]. Bitmap = BitmapCache.load_bitmap ("Graphics/Pictures/botonmenu2")
if Mouse.click? (1)
pbPlayDecisionSE ()
sscene = PokemonScreen_Scene.new
sscreen = PokemonScreen.new (sscene, $Trainer.party)
hiddenmove = nil
pbFadeOutIn (99999) {
hiddenmove = sscreen.pbPokemonScreen
if hiddenmove
@Scene.pbEndScene
end
}
end
else
@Sprites ["boton3"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
end
end
if Mouse.mouse_in_area? (261, 65-10, 182, 65)
@Sprites ["boton4"]. Bitmap = BitmapCache.load_bitmap ("Graphics/Pictures/botonmenu2")
if Mouse.click? (1)
pbPlayDecisionSE ()
item = 0
scene = PokemonBag_Scene.new
screen = PokemonBagScreen.new (scene, $PokemonBag)
pbFadeOutIn (99999) {
item = screen.pbStartScreen
if item> 0
break
end
}
if item> 0
Kernel.pbUseKeyItemInField (item)
return
end
end
else
@Sprites ["boton4"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
end
if Mouse.mouse_in_area? (261, 65 +68-10, 182, 65)
@Sprites ["Button5"]. Bitmap = BitmapCache.load_bitmap ("Graphics/Pictures/botonmenu2")
if Mouse.click? (1)
pbPlayDecisionSE ()
pbFadeOutIn (99999) {
scene = PokemonOptionScene.new
screen = PokemonOption.new (scene)
screen.pbStartScreen
}
end
else
@Sprites ["Button5"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
end
if $Trainer.pokedex
if Mouse.mouse_in_area? (261, 218-10, 182, 65)
@Sprites ["6 button"]. Bitmap = BitmapCache.load_bitmap ("Graphics/Pictures/botonmenu2")
if Mouse.click? (1)
pbPlayDecisionSE ()
pbFadeOutIn (99999) {
scene = PokemonPokedexScene.new
screen = PokemonPokedex.new (scene)
screen.pbStartScreen
}
end
else
@Sprites ["6 button"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
end
end
if $Trainer.pokegear
if Mouse.mouse_in_area? (165, 289-10, 182, 65)
@Sprites ["boton7"]. Bitmap = BitmapCache.load_bitmap ("Graphics/Pictures/botonmenu2")
if Mouse.click? (1)
pbFadeOutIn (99999) {
pbLoadRpgxpScene (Scene_Pokegear.new)
}
end
else
@Sprites ["boton7"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / MENU button")
end
end
if $DEBUG
if Mouse.mouse_in_area? (0, 318, 82, 65)
@Sprites ["debug"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / debugbotonp")
if Mouse.click? (1)
pbFadeOutIn (99999) {
pbDebugMenu
}
end
else
@Sprites ["debug"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / debugboton")
end
end
if Mouse.mouse_in_area? (430, 318, 82, 65)
@Sprites ["out"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / salirbotonp")
if Mouse.click? (1)
break
end
else
@Sprites ["out"]. Bitmap = BitmapCache.load_bitmap ("Graphics / Pictures / salirboton")
end
end
end
end
# ------------------------------------------------- ---------
class PokemonMenu
def initialize (scene)
@Scene = scene
end
def pbStartPokemonMenu
@Scene.pbStartScene
@Scene.pbScene
@Scene.pbEndScene
end
end
# ------------------------------------------------- --------------