Author Id: 12616
Author Name: VGS
Post Content: Gente les traigo buenas nuevas..... Quien no quiso tener un menú táctil en su proyecto, yo si y por mi afán empece a buscar por todo internet pero me dije "Por que no lo hago yo?"
Así que si quieren tener también en su RPG menú táctil, pues aquí esta.

[LIST]Primero buscan el Script que se llama "PokemonPauseMenu", borran todo su contenido y lo remplazan por este
[/LIST]
[SPOILER="PokemonPauseMenu"]##############################################################################
##############################################################################
####### 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
#---------------------------------------------------------------[/SPOILER]

[LIST]Se descargan esta carpeta y meten todo a la carpeta de "Pictures"
[/LIST]
[URL="http://www.mediafire.com/download/x71w0a9t7a231ni/MenuTactil.rar"]Menú Táctil[/URL]

Y listo :D

Aquí una imagen:
[IMG]http://img856.imageshack.us/img856/6474/jlex.png[/IMG]

Ya depende de cada quien si quiere cambiar los gráficos o dejarlos como están. Yo estoy usando una resolución de 480x325.
Tal vez valla actualizando el script para que tenga mas funciones.

Créditos:
spaceemotion - Por gráficos
PSVX Team - Por gráficos
Jackster - Por gráficos
VGS - Por script