#===============================================================================
# Menú Pokémon Black and White
# Pokémon Essentials DS 3.9
# xPietro96
#===============================================================================
# Istruzioni:
# Eliminare lo script "Heart Gold Soul Silver Menu"
# Creare una nuova pagina sopra la "Main"
# Incollare tutto il contenuto di questo file di testo
# Se funziona creditare xPietro
# Se ci sono Bug scriverlo nel post dove hai trovato questo script
# ==============================================================================
class Scene_Map

def createSpritesets
@spritesets={}
for map in $MapFactory.maps
@spritesets[map.map_id]=Spriteset_Map.new(map)
end
$MapFactory.setSceneStarted(self)
updateSpritesets
menu
end

def disposeSpritesets
return if !@spritesets
for i in @spritesets.keys
if @spritesets
@spritesets.dispose
@spritesets=nil
end
end
@spritesets.clear
@spritesets={}
pbDisposeSpriteHash(@sprites)
end


def main
createSpritesets
Graphics.transition
loop do
$mouse.visible
$mouse.update
Graphics.update
Input.update

update

if $Trainer
menutactil if $game_map.map_id != 51
# PokéDEX
if $Trainer.pokedex
if !@sprites["menupokedex"]
@sprites["menupokedex"] = Sprite.new(@viewport)
@sprites["menupokedex"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")
@sprites["menupokedex"].x=131*2
@sprites["menupokedex"].y=224*2
@sprites["iconpokedex"] = Sprite.new(@viewport)
@sprites["iconpokedex"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menupokedex")
@sprites["iconpokedex"].x=142*2
@sprites["iconpokedex"].y=230*2

@sprites["overlay"]=BitmapSprite.new(Graphics.width, Graphics.height, @viewport)
@sprites["overlay"].z = 9999
overlay= @sprites["overlay"].bitmap
overlay.clear
baseColor=Color.new(255, 255, 255)
shadowColor=Color.new(156,156,156)
pbSetSystemFont(@sprites["overlay"].bitmap)

textos=[]
textos.push([_INTL("POKÉMON"),100,474,false,baseColor,shadowColor]) if $Trainer.party.length>0
textos.push([_INTL("ZAINO"),100,570,false,baseColor,shadowColor])
textos.push([_INTL("SALVA"),100,666,false,baseColor,shadowColor])
textos.push([_INTL("POKÉDEX"),356,474,false,baseColor,shadowColor]) if $Trainer.pokedex
textos.push([_INTL("{1}", $Trainer.name),356,570,false,baseColor,shadowColor])
textos.push([_INTL("OPZIONI"),356,666,false,baseColor,shadowColor])

pbDrawTextPositions(overlay,textos)

end
end
# Pokémon Party
if $Trainer.party.length>0
if !@sprites["menuball"]
@sprites["menuball"] = Sprite.new(@viewport)
@sprites["menuball"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")
@sprites["menuball"].x=3*2
@sprites["menuball"].y=272*2 - 48*2
@sprites["iconball"] = Sprite.new(@viewport)
@sprites["iconball"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menuball")
@sprites["iconball"].x=14*2
@sprites["iconball"].y=283*2 - 48*2

@sprites["overlay"]=BitmapSprite.new(Graphics.width, Graphics.height, @viewport)
@sprites["overlay"].z = 9999
overlay= @sprites["overlay"].bitmap
overlay.clear
baseColor=Color.new(255, 255, 255)
shadowColor=Color.new(156,156,156)
pbSetSystemFont(@sprites["overlay"].bitmap)

textos=[]
textos.push([_INTL("POKÉMON"),100,474,false,baseColor,shadowColor]) if $Trainer.party.length>0
textos.push([_INTL("ZAINO"),100,570,false,baseColor,shadowColor])
textos.push([_INTL("SALVA"),100,666,false,baseColor,shadowColor])
textos.push([_INTL("POKÉDEX"),356,474,false,baseColor,shadowColor]) if $Trainer.pokedex
textos.push([_INTL("{1}", $Trainer.name),356,570,false,baseColor,shadowColor])
textos.push([_INTL("OPZIONI"),356,666,false,baseColor,shadowColor])

pbDrawTextPositions(overlay,textos)
end
end

end

if $scene != self
break
end
end
Graphics.freeze
disposeSpritesets
if $game_temp.to_title
Graphics.transition
Graphics.freeze
end
end


def menu
@sprites= {}

if $Trainer
# BG
@sprites["bg"]=Sprite.new(@viewport)
@sprites["bg"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubackground")
@sprites["bg"].x=0
@sprites["bg"].y=400
# Allenatore
@sprites["menutrainer"] = Sprite.new(@viewport)
@sprites["menutrainer"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")
@sprites["menutrainer"].x=131*2
@sprites["menutrainer"].y=272*2
@sprites["icontrainer"] = Sprite.new(@viewport)
@sprites["icontrainer"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menutc")
@sprites["icontrainer"].x=142*2
@sprites["icontrainer"].y=283*2
# Salva
@sprites["menuguardar"] = Sprite.new(@viewport)
@sprites["menuguardar"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")
@sprites["menuguardar"].x=3*2
@sprites["menuguardar"].y=320*2
@sprites["iconguardar"] = Sprite.new(@viewport)
@sprites["iconguardar"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menuguardar")
@sprites["iconguardar"].x=11*2
@sprites["iconguardar"].y=330*2
# Opzioni
@sprites["menuopciones"] = Sprite.new(@viewport)
@sprites["menuopciones"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")
@sprites["menuopciones"].x=131*2
@sprites["menuopciones"].y=320*2
@sprites["iconopciones"] = Sprite.new(@viewport)
@sprites["iconopciones"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menuopciones")
@sprites["iconopciones"].x=142*2
@sprites["iconopciones"].y=328*2
# Zaino
@sprites["menumochila"] = Sprite.new(@viewport)
@sprites["menumochila"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")
@sprites["menumochila"].x=3*2
@sprites["menumochila"].y=320*2 - 48*2
@sprites["iconmochila"] = Sprite.new(@viewport)
@sprites["iconmochila"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menumochila")
@sprites["iconmochila"].x=11*2
@sprites["iconmochila"].y=328*2 - 48*2
# Pokédex
if $Trainer.pokedex
@sprites["menupokedex"] = Sprite.new(@viewport)
@sprites["menupokedex"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")
@sprites["menupokedex"].x=131*2
@sprites["menupokedex"].y=224*2
@sprites["iconpokedex"] = Sprite.new(@viewport)
@sprites["iconpokedex"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menupokedex")
@sprites["iconpokedex"].x=142*2
@sprites["iconpokedex"].y=230*2
end
# Pokeparty
if $Trainer.party.length>0
@sprites["menuball"] = Sprite.new(@viewport)
@sprites["menuball"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")
@sprites["menuball"].x=3*2
@sprites["menuball"].y=272*2 - 48*2
@sprites["iconball"] = Sprite.new(@viewport)
@sprites["iconball"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menuball")
@sprites["iconball"].x=14*2
@sprites["iconball"].y=283*2 - 48*2
end

@sprites["overlay"]=BitmapSprite.new(Graphics.width, Graphics.height, @viewport)
@sprites["overlay"].z = 9999
overlay= @sprites["overlay"].bitmap
overlay.clear
baseColor=Color.new(255, 255, 255)
shadowColor=Color.new(156,156,156)
pbSetSystemFont(@sprites["overlay"].bitmap)

textos=[]
textos.push([_INTL("POKÉMON"),100,474,false,baseColor,shadowColor]) if $Trainer.party.length>0
textos.push([_INTL("ZAINO"),100,570,false,baseColor,shadowColor])
textos.push([_INTL("SALVA"),100,666,false,baseColor,shadowColor])
textos.push([_INTL("POKÉDEX"),356,474,false,baseColor,shadowColor]) if $Trainer.pokedex
textos.push([_INTL("{1}", $Trainer.name),356,570,false,baseColor,shadowColor])
textos.push([_INTL("OPZIONI"),356,666,false,baseColor,shadowColor])

pbDrawTextPositions(overlay,textos)

end

end

def menutactil
Input.update
if $Trainer

##############################################

if @sprites["menuball"]

if $mouse.x >= 3*2 && $mouse.x <= (3*2 + 246) and $mouse.y >= (272*2 - 48*2) && $mouse.y <= ((272*2 - 48*2) + 86)
@sprites["menuball"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubts")
if Input.pressed(Input::Mouse_Left)
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["menuball"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")

end
end

#################################################

if @sprites["menupokedex"]

if $mouse.x >= 131*2 && $mouse.x <= (131*2 + 246) and $mouse.y >= (272*2 - 48*2) && $mouse.y <= ((272*2 - 48*2) + 86)
@sprites["menupokedex"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubts")
if Input.pressed(Input::Mouse_Left)
pbPlayDecisionSE()
pbFadeOutIn(99999) {
scene=PokemonPokedexScene.new
screen=PokemonPokedex.new(scene)
screen.pbStartScreen
}
end

else

@sprites["menupokedex"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")

end
end

#################################################

if $mouse.x >= 3*2 && $mouse.x <= (3*2 + 246) and $mouse.y >= (320*2 - 48*2) && $mouse.y <= ((320*2 - 48*2) + 86)
@sprites["menumochila"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubts")
if Input.pressed(Input::Mouse_Left)
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["menumochila"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")

end


##############################################

if $mouse.x >= 131*2 && $mouse.x <= (131*2 + 246) and $mouse.y >= (272*2) && $mouse.y <= ((272*2) + 86)
@sprites["menutrainer"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubts")
if Input.pressed(Input::Mouse_Left)
pbPlayDecisionSE()
PBDebug.logonerr {
scene=PokemonTrainerCardScene.new
screen=PokemonTrainerCard.new(scene)
pbFadeOutIn(99999) {
screen.pbStartScreen
@scene.pbRefresh
}
}
end

else

@sprites["menutrainer"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")

end


##############################################

if $mouse.x >= 3*2 && $mouse.x <= (3*2 + 246) and $mouse.y >= (320*2) && $mouse.y <= ((320*2) + 86)
@sprites["menuguardar"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubts")
if Input.pressed(Input::Mouse_Left)
pbPlayDecisionSE()
scene=PokemonSaveScene.new
screen=PokemonSave.new(scene)
if screen.pbSaveScreen

end

end

else

@sprites["menuguardar"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")

end


##############################################

if $mouse.x >= 131*2 && $mouse.x <= (131*2 + 246) and $mouse.y >= (320*2) && $mouse.y <= ((320*2) + 86)
@sprites["menuopciones"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubts")
if Input.pressed(Input::Mouse_Left)
pbPlayDecisionSE()
pbFadeOutIn(99999){
scene=PokemonOptionScene.new
screen=PokemonOption.new(scene)
screen.pbStartScreen
}
end

else

@sprites["menuopciones"].bitmap=BitmapCache.load_bitmap("Graphics/Pictures/menubt")

end

end

end # Touch


end

______________________________________________________________

class SceneBG

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["bg"]=Sprite.new(@viewport)
@sprites["bg"].bitmap = BitmapCache.load_bitmap("Graphics/Pictures/Menubg_white")
@sprites["bg"].x=0
@sprites["bg"].y=340
@sprites["bg"].z=0

@sprites["2"]=Sprite.new(@viewport)
@sprites["2"].bitmap = BitmapCache.load_bitmap("Graphics/Pictures/MaleTrainer")
@sprites["2"].x=75
@sprites["2"].y=420
@sprites["2"].z=1

@sprites["3"]=Sprite.new(@viewport)
@sprites["3"].bitmap = BitmapCache.load_bitmap("Graphics/Pictures/FemaleTrainer")
@sprites["3"].x=200
@sprites["3"].y=420
@sprites["3"].z=1
Kernel.pbMessage(_INTL("Eres Chico o Chica?."))
end

def pbScene
loop do
Graphics.update
Input.update
pbUpdate

# Kernel.pbMessage(_INTL("There are three pokemon here, each one of these red ball, or PokeBall contains one Pokemon."))
# Kernel.pbMessage(_INTL("Please choose your starting pokemon that you will journey out with."))

if Mouse.mouse_in_area?(75, 420, 160, 160)
if Mouse.click?(1)
pbPlayDecisionSE()
if !Kernel.pbConfirmMessageSerious(
_INTL("¿Seguro que eres un Chico?"))
Kernel.pbMessage(_INTL("Entonces que eres?"))
else
Kernel.pbMessage(_INTL("Ok!"))
Kernel.pbChangePlayer(0)
break
end
end
end


if Mouse.mouse_in_area?(200, 420, 160, 160)
if Mouse.click?(1)
pbPlayDecisionSE()
if !Kernel.pbConfirmMessageSerious(
_INTL("¿Segura que eres una Chica?"))
Kernel.pbMessage(_INTL("Entonces que eres?"))
else
Kernel.pbMessage(_INTL("Ok!"))
Kernel.pbChangePlayer(1)
break
end
end
end
end
end
end

class BGScreen
def initialize(scene)
@scene = scene
end
def pbStartScreen
@scene.pbStartScene
@scene.pbScene
@scene.pbEndScene
end
end