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

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

def updateMenu
pbUpdateSpriteHash(@sprites)
end

def main
createSpritesets
Graphics.transition
loop do
Graphics.update
Input.update
if $Trainer
# pbMenu
end
if $scene != self
break
end
end
Graphics.freeze
disposeSpritesets
if $game_temp.to_title
Graphics.transition
Graphics.freeze
end
end

def pbComandi_menu
endscene=true
@menuopen=false
ch1=1
ch2=0
ch3=0
ch4=0
ch5=0
ch6=0
ch7=0
#ANIMAZIONE APERTURA
if Input.trigger?(Input::B) && @menuopen==false
10.times do
@sprites["bg"].opacity+=25.5
Graphics.update
Input.update
update
end
10.times do
@sprites["Time"].opacity+=25.5
@sprites["Map"].opacity+=25.5
Graphics.update
Input.update
update
end
10.times do
@sprites["chbg"].x+=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
7.times do
@sprites["dch"].opacity+=50
Graphics.update
Input.update
update
end
10.times do
@sprites["chbg1"].x+=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
7.times do
@sprites["dch1"].opacity+=50
Graphics.update
Input.update
update
end
10.times do
@sprites["chbg2"].x+=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
7.times do
@sprites["dch2"].opacity+=50
Graphics.update
Input.update
update
end
10.times do
@sprites["chbg3"].x+=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
7.times do
@sprites["dch3"].opacity+=50
Graphics.update
Input.update
update
end
if $Trainer.party.length>0 || $Trainer.pokedex==true
10.times do
@sprites["chbg4"].x+=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
7.times do
@sprites["dch4"].opacity+=50
Graphics.update
Input.update
update
end
end
if $Trainer.party.length>0
if $Trainer.pokedex==true
10.times do
@sprites["chbg5"].x+=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
7.times do
@sprites["dch5"].opacity+=50
Graphics.update
Input.update
update
end
end
end
if $DEBUG==true
10.times do
@sprites["chbg6"].x+=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
7.times do
@sprites["dch6"].opacity+=50
Graphics.update
Input.update
update
end
end
@menuopen=true
end
loop do
Graphics.update
Input.update
update
if ch1==1
4.times do
@sprites["chbg"].x+=8
Graphics.update
update
Input.update
ch1=0.5
end
end
if ch1==-1
4.times do
@sprites["chbg"].x-=8
Graphics.update
update
Input.update
ch1=0
end
end
if ch2==1
4.times do
@sprites["chbg1"].x+=8
Graphics.update
update
Input.update
ch2=0.5
end
end
if ch2==-1
4.times do
@sprites["chbg1"].x-=8
Graphics.update
update
Input.update
ch2=0
end
end
if ch3==1
4.times do
@sprites["chbg2"].x+=8
Graphics.update
update
Input.update
ch3=0.5
end
end
if ch3==-1
4.times do
@sprites["chbg2"].x-=8
Graphics.update
update
Input.update
ch3=0
end
end
if ch4==1
4.times do
@sprites["chbg3"].x+=8
Graphics.update
update
Input.update
ch4=0.5
end
end
if ch4==-1
4.times do
@sprites["chbg3"].x-=8
Graphics.update
update
Input.update
ch4=0
end
end
if ch5==1
4.times do
@sprites["chbg4"].x+=8
Graphics.update
update
Input.update
ch5=0.5
end
end
if ch5==-1
4.times do
@sprites["chbg4"].x-=8
Graphics.update
update
Input.update
ch5=0
end
end
if ch6==1
4.times do
@sprites["chbg5"].x+=8
Graphics.update
update
Input.update
ch6=0.5
end
end
if ch6==-1
4.times do
@sprites["chbg5"].x-=8
Graphics.update
update
Input.update
ch6=0
end
end

#ANIMAZIONE CHIUSURA
if Input.trigger?(Input::B) && @menuopen==true
@menuopen=false
10.times do
@sprites["dch"].opacity-=50
Graphics.update
Input.update
update
end
if ch1==0.5
10.times do
@sprites["chbg"].x-=@sprites["chbg"].bitmap.width/12+5
Graphics.update
Input.update
update
end
else
10.times do
@sprites["chbg"].x-=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
end
10.times do
@sprites["dch1"].opacity-=50
Graphics.update
Input.update
update
end
if ch2==0.5
10.times do
@sprites["chbg1"].x-=@sprites["chbg"].bitmap.width/12+5
Graphics.update
Input.update
update
end
else
10.times do
@sprites["chbg1"].x-=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
end
10.times do
@sprites["dch2"].opacity-=50
Graphics.update
Input.update
update
end
if ch3==0.5
10.times do
@sprites["chbg2"].x-=@sprites["chbg"].bitmap.width/12+5
Graphics.update
Input.update
update
end
else
10.times do
@sprites["chbg2"].x-=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
end
10.times do
@sprites["dch3"].opacity-=50
Graphics.update
Input.update
update
end
if ch4==0.5
10.times do
@sprites["chbg3"].x-=@sprites["chbg"].bitmap.width/12+5
Graphics.update
Input.update
update
end
else
10.times do
@sprites["chbg3"].x-=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
end
if $Trainer.party.length>0 || $Trainer.pokedex==true
10.times do
@sprites["dch4"].opacity-=50
Graphics.update
Input.update
update
end
if ch5==0.5
10.times do
@sprites["chbg4"].x-=@sprites["chbg"].bitmap.width/12+5
Graphics.update
Input.update
update
end
else
10.times do
@sprites["chbg4"].x-=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
end
end
if $Trainer.party.length>0
if $Trainer.pokedex==true
10.times do
@sprites["dch5"].opacity-=50
Graphics.update
Input.update
update
end
if ch6==0.5
10.times do
@sprites["chbg5"].x-=@sprites["chbg"].bitmap.width/12+5
Graphics.update
Input.update
update
end
else
10.times do
@sprites["chbg5"].x-=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
end
10.times do
@sprites["chbg6"].x-=@sprites["chbg"].bitmap.width/12
Graphics.update
Input.update
update
end
end
end
10.times do
@sprites["Time"].opacity-=25.5
@sprites["Map"].opacity-=25.5
Graphics.update
Input.update
update
end
10.times do
@sprites["bg"].opacity-=25.5
Graphics.update
Input.update
update
end
break
end
end
end