Easy mouse functionality for Essentials

#===============================================================================
# - Scene_Pokegear
#-------------------------------------------------------------------------------
# Modified By Harshboy
# Modified by Peter O.
# Also Modified By OblivionMew
# Overhauled by Maruno
#===============================================================================
ItemHandlers::UseFromBag.add(:GEAR,proc{|item|
   pbLoadRpgxpScene(Scene_Pokegear.new)
   next 1 # Continue
})
ItemHandlers::UseInField.add(:GEAR,proc{|item|
   pbLoadRpgxpScene(Scene_Pokegear.new)
})

class Scene_Pokegear
  #-----------------------------------------------------------------------------
  # main
  #-----------------------------------------------------------------------------
  def main

    @viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
    @viewport.z=99999
    @sprites={}
    @sprites["background"] = IconSprite.new(0,0)
    femback=pbResolveBitmap(sprintf("Graphics/Pictures/pokegearbgf"))
    if $Trainer.isFemale? && femback
      @sprites["background"].setBitmap("Graphics/Pictures/pokegearbgf")
    else
      @sprites["background"].setBitmap("Graphics/Pictures/pokegearbg")
    end
    @sprites["Map"]=IconSprite.new(20,40,@viewport)    
    @sprites["Map"].setBitmap("Graphics/Pictures/pokegearMap")
    @sprites["Journey"]=IconSprite.new(0,10,@viewport)    
    @sprites["Journey"].setBitmap("Graphics/Pictures/pokegearJourney")
     Graphics.transition
     
    loop do
      
   $mouse.drag_object?(@sprites["Map"])
   $mouse.drag_object?(@sprites["Journey"]) 
      
      Graphics.update
      Input.update
      update_command
      if $scene != self
        break
      end
    end
    Graphics.freeze
    pbDisposeSpriteHash(@sprites)
  end
  #-----------------------------------------------------------------------------
  # update the command window
  #-----------------------------------------------------------------------------
  def update_command
    if Input.trigger?(Input::B)
      pbPlayCancelSE()
      $scene = Scene_Map.new
      return
    end
    
    if $mouse.leftClick?(@sprites["Map"]) 
        pbPlayDecisionSE()
        pbShowMap(-1,false)
      end

    end
    
end

if $mouse.leftPress?
  Kernel.pbMessage("Mouse left button works properly")
end
if $mouse.scroll_up?
  Kernel.pbMessage("Mouse scrolling works properly")
end