##############################################################################
##############################################################################
####### Script de Menu Tactil#################################################
####### Este script es para Pokemon Essentials ###############################
####### Fue hecho para la comunidad de WAH ###################################
####### Por favor dar creditos si se usa. ####################################
##############################################################################
######## 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

@sprites={}

@viewport=Viewport.new(0,0,Graphics.width, 660)
@viewport.z=99999

@sprites["fondo"]=Sprite.new(@viewport)
@sprites["fondo"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/mnfd")
@sprites["fondo"].x=0
@sprites["fondo"].y=344

@sprites["menu"]=Sprite.new(@viewport)
@sprites["menu"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/mnbg")
@sprites["menu"].x=0
@sprites["menu"].y=344

@sprites["menutrainer"] = Sprite.new(@viewport)
@sprites["menutrainer"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/mntc")
@sprites["menutrainer"].x=34
@sprites["menutrainer"].y=376

@sprites["menuguardar"] = Sprite.new(@viewport)
@sprites["menuguardar"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/mnguardar")
@sprites["menuguardar"].x=122
@sprites["menuguardar"].y=376

@sprites["menuopciones"] = Sprite.new(@viewport)
@sprites["menuopciones"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/mnopciones")
@sprites["menuopciones"].x=34
@sprites["menuopciones"].y=438

@sprites["menumochila"] = Sprite.new(@viewport)
@sprites["menumochila"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/mnmochila")
@sprites["menumochila"].x=122
@sprites["menumochila"].y=438

if $Trainer.pokedex
@sprites["menupokedex"] = Sprite.new(@viewport)
@sprites["menupokedex"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/mnpokedex")
@sprites["menupokedex"].x=34
@sprites["menupokedex"].y=500
end

if $Trainer.party.length>0
@sprites["menuball"] = Sprite.new(@viewport)
@sprites["menuball"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/mnball")
@sprites["menuball"].x=122
@sprites["menuball"].y=500
end

if $Trainer.pokegear
@sprites["menupokegear"] = Sprite.new(@viewport)
@sprites["menupokegear"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/mnpokegear")
@sprites["menupokegear"].x=34
@sprites["menupokegear"].y=562
end

if $DEBUG
@sprites["menudebug"] = Sprite.new(@viewport)
@sprites["menudebug"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/mndebug")
@sprites["menudebug"].x=122
@sprites["menudebug"].y=562
end

end
#-----------------------------------------------------------------------------
def pbScene

loop do
Graphics.update
Input.update
pbUpdate

if Input.trigger?(Input::B)
break
end

if Mouse.mouse_in_area?(34, 376, 80, 52)
if Mouse.click?(1)
pbPlayDecisionSE()
PBDebug.logonerr {
scene=PokemonTrainerCardScene.new
screen=PokemonTrainerCard.new(scene)
pbFadeOutIn(99999) {
screen.pbStartScreen
@scene.pbRefresh
}
}
end
end

if Mouse.mouse_in_area?(122,376, 80, 52)
if Mouse.click?(1)
pbPlayDecisionSE()
scene=PokemonSaveScene.new
screen=PokemonSave.new(scene)
if screen.pbSaveScreen
end
end
end

if Mouse.mouse_in_area?(34, 438, 80, 52)
if Mouse.click?(1)
pbPlayDecisionSE()
pbFadeOutIn(99999){
scene=PokemonOptionScene.new
screen=PokemonOption.new(scene)
screen.pbStartScreen
}
end
end

if Mouse.mouse_in_area?(122, 438, 80, 52)
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
end

if $Trainer.pokedex
if Mouse.mouse_in_area?(34, 500, 80, 52)
if Mouse.click?(1)
pbPlayDecisionSE()
pbFadeOutIn(99999) {
scene=PokemonPokedexScene.new
screen=PokemonPokedex.new(scene)
screen.pbStartScreen
}
end
end
end

if $Trainer.party.length>0
if Mouse.mouse_in_area?(122, 500, 80, 52)
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
end
end

if $Trainer.pokegear
if Mouse.mouse_in_area?(34, 562, 80, 52)
if Mouse.click?(1)
pbFadeOutIn(99999) {
pbLoadRpgxpScene(Scene_Pokegear.new)
}
end
end
end

if $DEBUG
if Mouse.mouse_in_area?(122, 562, 80, 52)
if Mouse.click?(1)
pbFadeOutIn(99999) {
pbDebugMenu
}
end
end
end
end
end
end


#----------------------------------------------------------

class PokemonMenu
def initialize(scene)
@scene = scene
end
def pbStartPokemonMenu
@scene.pbStartScene
@scene.pbScene
@scene.pbEndScene
end
end
#---------------------------------------------------------------