Files
infinitefusion-e18/Data/Scripts/016_UI/017_UI_PokemonStorage.rb
2025-02-24 11:49:11 -05:00

2437 lines
69 KiB
Ruby

#===============================================================================
# Pokémon icons
#===============================================================================
class PokemonBoxIcon < IconSprite
attr_accessor :pokemon
def initialize(pokemon, viewport = nil)
super(0, 0, viewport)
@pokemon = pokemon
@release = Interpolator.new
@startRelease = false
refresh
end
def releasing?
return @release.tweening?
end
def useRegularIcon(species)
dexNum = getDexNumberForSpecies(species)
return true if dexNum <= Settings::NB_POKEMON
return false if $game_variables == nil
return true if $game_variables[VAR_FUSION_ICON_STYLE] != 0
bitmapFileName = sprintf("Graphics/Icons/icon%03d", dexNum)
return true if pbResolveBitmap(bitmapFileName)
return false
end
def createFusionIcon(species,spriteform_head=nil,spriteform_body=nil)
bodyPoke_number = getBodyID(species)
headPoke_number = getHeadID(species, bodyPoke_number)
bodyPoke = GameData::Species.get(bodyPoke_number).species
headPoke = GameData::Species.get(headPoke_number).species
icon1 = AnimatedBitmap.new(GameData::Species.icon_filename(headPoke,spriteform_head))
icon2 = AnimatedBitmap.new(GameData::Species.icon_filename(bodyPoke,spriteform_body))
dexNum = getDexNumberForSpecies(species)
ensureFusionIconExists
bitmapFileName = sprintf("Graphics/Pokemon/FusionIcons/icon%03d", dexNum)
headPokeFileName = GameData::Species.icon_filename(headPoke,spriteform_head)
bitmapPath = sprintf("%s.png", bitmapFileName)
generated_new_icon = generateFusionIcon(headPokeFileName,bitmapPath)
result_icon = generated_new_icon ? AnimatedBitmap.new(bitmapPath) : icon1
for i in 0..icon1.width - 1
for j in ((icon1.height / 2) + Settings::FUSION_ICON_SPRITE_OFFSET)..icon1.height - 1
temp = icon2.bitmap.get_pixel(i, j)
result_icon.bitmap.set_pixel(i, j, temp)
end
end
return result_icon
end
def release
self.ox = self.src_rect.width / 2 # 32
self.oy = self.src_rect.height / 2 # 32
self.x += self.src_rect.width / 2 # 32
self.y += self.src_rect.height / 2 # 32
@release.tween(self, [
[Interpolator::ZOOM_X, 0],
[Interpolator::ZOOM_Y, 0],
[Interpolator::OPACITY, 0]
], 100)
@startRelease = true
end
def refresh(fusion_enabled = true)
return if !@pokemon
if useRegularIcon(@pokemon.species) || @pokemon.egg?
self.setBitmap(GameData::Species.icon_filename_from_pokemon(@pokemon))
else
self.setBitmapDirectly(createFusionIcon(@pokemon.species,@pokemon.spriteform_head, @pokemon.spriteform_body))
if fusion_enabled
self.visible = true
else
self.visible = false
end
end
self.src_rect = Rect.new(0, 0, self.bitmap.height, self.bitmap.height)
end
def update
super
@release.update
self.color = Color.new(0, 0, 0, 0)
dispose if @startRelease && !releasing?
end
end
#===============================================================================
# Pokémon sprite
#===============================================================================
class MosaicPokemonSprite < PokemonSprite
attr_reader :mosaic
def initialize(*args)
super(*args)
@mosaic = 0
@inrefresh = false
@mosaicbitmap = nil
@mosaicbitmap2 = nil
@oldbitmap = self.bitmap
end
def dispose
super
@mosaicbitmap.dispose if @mosaicbitmap
@mosaicbitmap = nil
@mosaicbitmap2.dispose if @mosaicbitmap2
@mosaicbitmap2 = nil
end
def bitmap=(value)
super
mosaicRefresh(value)
end
def mosaic=(value)
@mosaic = value
@mosaic = 0 if @mosaic < 0
mosaicRefresh(@oldbitmap)
end
def mosaicRefresh(bitmap)
return if @inrefresh
@inrefresh = true
@oldbitmap = bitmap
if @mosaic <= 0 || !@oldbitmap
@mosaicbitmap.dispose if @mosaicbitmap
@mosaicbitmap = nil
@mosaicbitmap2.dispose if @mosaicbitmap2
@mosaicbitmap2 = nil
self.bitmap = @oldbitmap
else
newWidth = [(@oldbitmap.width / @mosaic), 1].max
newHeight = [(@oldbitmap.height / @mosaic), 1].max
@mosaicbitmap2.dispose if @mosaicbitmap2
@mosaicbitmap = pbDoEnsureBitmap(@mosaicbitmap, newWidth, newHeight)
@mosaicbitmap.clear
@mosaicbitmap2 = pbDoEnsureBitmap(@mosaicbitmap2, @oldbitmap.width, @oldbitmap.height)
@mosaicbitmap2.clear
@mosaicbitmap.stretch_blt(Rect.new(0, 0, newWidth, newHeight), @oldbitmap, @oldbitmap.rect)
@mosaicbitmap2.stretch_blt(
Rect.new(-@mosaic / 2 + 1, -@mosaic / 2 + 1,
@mosaicbitmap2.width, @mosaicbitmap2.height),
@mosaicbitmap, Rect.new(0, 0, newWidth, newHeight))
self.bitmap = @mosaicbitmap2
end
@inrefresh = false
end
end
#===============================================================================
#
#===============================================================================
class AutoMosaicPokemonSprite < MosaicPokemonSprite
def update
super
self.mosaic -= 1
end
end
#===============================================================================
# Cursor
#===============================================================================
class PokemonBoxArrow < SpriteWrapper
attr_accessor :quickswap
def initialize(viewport = nil)
super(viewport)
@frame = 0
@holding = false
@updating = false
@quickswap = false
@grabbingState = 0
@placingState = 0
@heldpkmn = nil
@handsprite = ChangelingSprite.new(0, 0, viewport)
@handsprite.addBitmap("point1", "Graphics/Pictures/Storage/cursor_point_1")
@handsprite.addBitmap("point2", "Graphics/Pictures/Storage/cursor_point_2")
@handsprite.addBitmap("grab", "Graphics/Pictures/Storage/cursor_grab")
@handsprite.addBitmap("fist", "Graphics/Pictures/Storage/cursor_fist")
@handsprite.addBitmap("point1q", "Graphics/Pictures/Storage/cursor_point_1_q")
@handsprite.addBitmap("point2q", "Graphics/Pictures/Storage/cursor_point_2_q")
@handsprite.addBitmap("grabq", "Graphics/Pictures/Storage/cursor_grab_q")
@handsprite.addBitmap("fistq", "Graphics/Pictures/Storage/cursor_fist_q")
@handsprite.changeBitmap("fist")
@spriteX = self.x
@spriteY = self.y
@splicerType = 0
end
def dispose
@handsprite.dispose
@heldpkmn.dispose if @heldpkmn
super
end
def getSplicerIcon
case @splicerType
when 2
return AnimatedBitmap.new("Graphics/Pictures/boxinfinitesplicer")
when 1
return AnimatedBitmap.new("Graphics/Pictures/boxsupersplicer")
end
return AnimatedBitmap.new("Graphics/Pictures/boxsplicer")
end
def setSplicerType(type)
@splicerType = type
end
def setFusing(fusing)
@fusing = fusing
end
def fusing?
return @fusing
end
def heldPokemon
@heldpkmn = nil if @heldpkmn && @heldpkmn.disposed?
@holding = false if !@heldpkmn
return @heldpkmn
end
def visible=(value)
super
@handsprite.visible = value
sprite = heldPokemon
sprite.visible = value if sprite
end
def color=(value)
super
@handsprite.color = value
sprite = heldPokemon
sprite.color = value if sprite
end
def holding?
return self.heldPokemon && @holding
end
def grabbing?
return @grabbingState > 0
end
def placing?
return @placingState > 0
end
def x=(value)
super
@handsprite.x = self.x
@spriteX = x if !@updating
heldPokemon.x = self.x if holding?
end
def y=(value)
super
@handsprite.y = self.y
@spriteY = y if !@updating
heldPokemon.y = self.y + 16 if holding?
end
def z=(value)
super
@handsprite.z = value
end
def setSprite(sprite)
if holding?
@heldpkmn = sprite
@heldpkmn.viewport = self.viewport if @heldpkmn
@heldpkmn.z = 1 if @heldpkmn
@holding = false if !@heldpkmn
self.z = 2
end
end
def deleteSprite
@holding = false
if @heldpkmn
@heldpkmn.dispose
@heldpkmn = nil
end
end
def grab(sprite)
@grabbingState = 1
@heldpkmn = sprite
@heldpkmn.viewport = self.viewport
@heldpkmn.z = 1
self.z = 2
end
def place
@placingState = 1
end
def release
@heldpkmn.release if @heldpkmn
end
def update
@updating = true
super
heldpkmn = heldPokemon
heldpkmn.update if heldpkmn
@handsprite.update
@holding = false if !heldpkmn
if @grabbingState > 0
if @grabbingState <= 4 * Graphics.frame_rate / 20
@handsprite.changeBitmap((@quickswap) ? "grabq" : "grab")
self.y = @spriteY + 4.0 * @grabbingState * 20 / Graphics.frame_rate
@grabbingState += 1
elsif @grabbingState <= 8 * Graphics.frame_rate / 20
@holding = true
@handsprite.changeBitmap((@quickswap) ? "fistq" : "fist")
self.y = @spriteY + 4 * (8 * Graphics.frame_rate / 20 - @grabbingState) * 20 / Graphics.frame_rate
@grabbingState += 1
else
@grabbingState = 0
end
elsif @placingState > 0
if @placingState <= 4 * Graphics.frame_rate / 20
@handsprite.changeBitmap((@quickswap) ? "fistq" : "fist")
self.y = @spriteY + 4.0 * @placingState * 20 / Graphics.frame_rate
@placingState += 1
elsif @placingState <= 8 * Graphics.frame_rate / 20
@holding = false
@heldpkmn = nil
@handsprite.changeBitmap((@quickswap) ? "grabq" : "grab")
self.y = @spriteY + 4 * (8 * Graphics.frame_rate / 20 - @placingState) * 20 / Graphics.frame_rate
@placingState += 1
else
@placingState = 0
end
elsif holding?
@handsprite.changeBitmap((@quickswap) ? "fistq" : "fist")
else
self.x = @spriteX
self.y = @spriteY
if @frame < Graphics.frame_rate / 2
@handsprite.changeBitmap((@quickswap) ? "point1q" : "point1")
else
@handsprite.changeBitmap((@quickswap) ? "point2q" : "point2")
end
end
@frame += 1
@frame = 0 if @frame >= Graphics.frame_rate
@updating = false
end
end
#===============================================================================
# Box
#===============================================================================
class PokemonBoxSprite < SpriteWrapper
attr_accessor :refreshBox
attr_accessor :refreshSprites
def initialize(storage, boxnumber, viewport = nil, fusionsEnabled=true )
super(viewport)
@storage = storage
@boxnumber = boxnumber
@refreshBox = true
@refreshSprites = true
@pokemonsprites = []
for i in 0...PokemonBox::BOX_SIZE
@pokemonsprites[i] = nil
pokemon = @storage[boxnumber, i]
@pokemonsprites[i] = PokemonBoxIcon.new(pokemon, viewport)
end
@contents = BitmapWrapper.new(324, 296)
self.bitmap = @contents
self.x = 184
self.y = 18
@fusions_enabled = fusionsEnabled
refresh
end
def disableFusions()
@fusions_enabled = false
refreshAllBoxSprites()
end
def enableFusions()
@fusions_enabled = true
refreshAllBoxSprites()
end
def isFusionEnabled
return @fusions_enabled
end
def dispose
if !disposed?
for i in 0...PokemonBox::BOX_SIZE
@pokemonsprites[i].dispose if @pokemonsprites[i]
@pokemonsprites[i] = nil
end
@boxbitmap.dispose
@contents.dispose
super
end
end
def x=(value)
super
refresh
end
def y=(value)
super
refresh
end
def color=(value)
super
if @refreshSprites
for i in 0...PokemonBox::BOX_SIZE
if @pokemonsprites[i] && !@pokemonsprites[i].disposed?
@pokemonsprites[i].color = value
end
end
end
refresh
end
def visible=(value)
super
for i in 0...PokemonBox::BOX_SIZE
if @pokemonsprites[i] && !@pokemonsprites[i].disposed?
@pokemonsprites[i].visible = value
end
end
refresh
end
def getBoxBitmap
if !@bg || @bg != @storage[@boxnumber].background
curbg = @storage[@boxnumber].background
if !curbg || (curbg.is_a?(String) && curbg.length == 0)
@bg = @boxnumber % PokemonStorage::BASICWALLPAPERQTY
else
if curbg.is_a?(String) && curbg[/^box(\d+)$/]
curbg = $~[1].to_i
@storage[@boxnumber].background = curbg
end
@bg = curbg
end
if !@storage.isAvailableWallpaper?(@bg)
@bg = @boxnumber % PokemonStorage::BASICWALLPAPERQTY
@storage[@boxnumber].background = @bg
end
@boxbitmap.dispose if @boxbitmap
@boxbitmap = AnimatedBitmap.new("Graphics/Pictures/Storage/box_#{@bg}")
end
end
def getPokemon(index)
return @pokemonsprites[index]
end
def setPokemon(index, sprite)
@pokemonsprites[index] = sprite
@pokemonsprites[index].refresh
refresh
end
def grabPokemon(index, arrow)
sprite = @pokemonsprites[index]
if sprite
arrow.grab(sprite)
@pokemonsprites[index] = nil
update
end
end
def deletePokemon(index)
@pokemonsprites[index].dispose
@pokemonsprites[index] = nil
update
end
def refresh
if @refreshBox
boxname = @storage[@boxnumber].name
getBoxBitmap
@contents.blt(0, 0, @boxbitmap.bitmap, Rect.new(0, 0, 324, 296))
pbSetSystemFont(@contents)
widthval = @contents.text_size(boxname).width
xval = 162 - (widthval / 2)
pbDrawShadowText(@contents, xval, 8, widthval, 32,
boxname, Color.new(248, 248, 248), Color.new(40, 48, 48))
@refreshBox = false
end
yval = self.y + 30
for j in 0...PokemonBox::BOX_HEIGHT
xval = self.x + 10
for k in 0...PokemonBox::BOX_WIDTH
sprite = @pokemonsprites[j * PokemonBox::BOX_WIDTH + k]
if sprite && !sprite.disposed?
sprite.viewport = self.viewport
sprite.x = xval
sprite.y = yval
sprite.z = 1
end
xval += 48
end
yval += 48
end
end
def refreshAllBoxSprites
# spriteLoader = BattleSpriteLoader.new
for i in 0...PokemonBox::BOX_SIZE
if @pokemonsprites[i] && !@pokemonsprites[i].disposed?
@pokemonsprites[i].refresh(@fusions_enabled)
end
#spriteLoader.preload_sprite_from_pokemon(@pokemonsprites[i].pokemon) if @pokemonsprites[i].pokemon
end
end
def update
super
for i in 0...PokemonBox::BOX_SIZE
if @pokemonsprites[i] && !@pokemonsprites[i].disposed?
@pokemonsprites[i].update
end
end
end
end
#===============================================================================
# Party pop-up panel
#===============================================================================
class PokemonBoxPartySprite < SpriteWrapper
def initialize(party, viewport = nil)
super(viewport)
@party = party
@boxbitmap = AnimatedBitmap.new("Graphics/Pictures/Storage/overlay_party")
@pokemonsprites = []
for i in 0...Settings::MAX_PARTY_SIZE
@pokemonsprites[i] = nil
pokemon = @party[i]
if pokemon
@pokemonsprites[i] = PokemonBoxIcon.new(pokemon, viewport)
end
end
@contents = BitmapWrapper.new(172, 352)
self.bitmap = @contents
self.x = 182
self.y = Graphics.height - 352
pbSetSystemFont(self.bitmap)
refresh
end
def dispose
for i in 0...Settings::MAX_PARTY_SIZE
@pokemonsprites[i].dispose if @pokemonsprites[i]
end
@boxbitmap.dispose
@contents.dispose
super
end
def x=(value)
super
refresh
end
def y=(value)
super
refresh
end
def color=(value)
super
for i in 0...Settings::MAX_PARTY_SIZE
if @pokemonsprites[i] && !@pokemonsprites[i].disposed?
@pokemonsprites[i].color = pbSrcOver(@pokemonsprites[i].color, value)
end
end
end
def visible=(value)
super
for i in 0...Settings::MAX_PARTY_SIZE
if @pokemonsprites[i] && !@pokemonsprites[i].disposed?
@pokemonsprites[i].visible = value
end
end
end
def getPokemon(index)
return @pokemonsprites[index]
end
def setPokemon(index, sprite)
@pokemonsprites[index] = sprite
@pokemonsprites.compact!
refresh
end
def grabPokemon(index, arrow)
sprite = @pokemonsprites[index]
if sprite
arrow.grab(sprite)
@pokemonsprites[index] = nil
@pokemonsprites.compact!
refresh
end
end
def deletePokemon(index)
@pokemonsprites[index].dispose
@pokemonsprites[index] = nil
@pokemonsprites.compact!
refresh
end
def refresh
@contents.blt(0, 0, @boxbitmap.bitmap, Rect.new(0, 0, 172, 352))
pbDrawTextPositions(self.bitmap, [
[_INTL("Back"), 86, 240, 2, Color.new(248, 248, 248), Color.new(80, 80, 80), 1]
])
xvalues = [] # [18, 90, 18, 90, 18, 90]
yvalues = [] # [2, 18, 66, 82, 130, 146]
for i in 0...Settings::MAX_PARTY_SIZE
xvalues.push(18 + 72 * (i % 2))
yvalues.push(2 + 16 * (i % 2) + 64 * (i / 2))
end
for j in 0...Settings::MAX_PARTY_SIZE
@pokemonsprites[j] = nil if @pokemonsprites[j] && @pokemonsprites[j].disposed?
end
@pokemonsprites.compact!
for j in 0...Settings::MAX_PARTY_SIZE
sprite = @pokemonsprites[j]
next if sprite.nil? || sprite.disposed?
sprite.viewport = self.viewport
sprite.x = self.x + xvalues[j]
sprite.y = self.y + yvalues[j]
sprite.z = 1
end
end
def update
super
for i in 0...Settings::MAX_PARTY_SIZE
@pokemonsprites[i].update if @pokemonsprites[i] && !@pokemonsprites[i].disposed?
end
end
end
#===============================================================================
# Pokémon storage visuals
#===============================================================================
class PokemonStorageScene
attr_reader :quickswap
attr_accessor :sprites
def initialize
@command = 1
end
def pbReleaseInstant(selected, heldpoke)
box = selected[0]
index = selected[1]
if heldpoke
sprite = @sprites["arrow"].heldPokemon
elsif box == -1
sprite = @sprites["boxparty"].getPokemon(index)
else
sprite = @sprites["box"].getPokemon(index)
end
if sprite
sprite.dispose
end
end
def pbStartBox(screen, command)
@screen = screen
@storage = screen.storage
@bgviewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
@bgviewport.z = 99999
@boxviewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
@boxviewport.z = 99999
@boxsidesviewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
@boxsidesviewport.z = 99999
@arrowviewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
@arrowviewport.z = 99999
@viewport = Viewport.new(0, 0, Graphics.width, Graphics.height)
@viewport.z = 99999
@selection = 0
@quickswap = false
@sprites = {}
@choseFromParty = false
@command = command
addBackgroundPlane(@sprites, "background", "Storage/bg", @bgviewport)
@sprites["box"] = PokemonBoxSprite.new(@storage, @storage.currentBox, @boxviewport)
@sprites["boxsides"] = IconSprite.new(0, 0, @boxsidesviewport)
@sprites["boxsides"].setBitmap("Graphics/Pictures/Storage/overlay_main")
@sprites["overlay"] = BitmapSprite.new(Graphics.width, Graphics.height, @boxsidesviewport)
pbSetSystemFont(@sprites["overlay"].bitmap)
@sprites["pokemon"] = AutoMosaicPokemonSprite.new(@boxsidesviewport)
@sprites["pokemon"].setOffset(PictureOrigin::Center)
@sprites["pokemon"].x = 90
@sprites["pokemon"].y = 134
@sprites["pokemon"].zoom_y = Settings::FRONTSPRITE_SCALE
@sprites["pokemon"].zoom_x = Settings::FRONTSPRITE_SCALE
@sprites["boxparty"] = PokemonBoxPartySprite.new(@storage.party, @boxsidesviewport)
if command != 2 # Drop down tab only on Deposit
@sprites["boxparty"].x = 182
@sprites["boxparty"].y = Graphics.height
end
@markingbitmap = AnimatedBitmap.new("Graphics/Pictures/Storage/markings")
@sprites["markingbg"] = IconSprite.new(292, 68, @boxsidesviewport)
@sprites["markingbg"].setBitmap("Graphics/Pictures/Storage/overlay_marking")
@sprites["markingbg"].visible = false
@sprites["markingoverlay"] = BitmapSprite.new(Graphics.width, Graphics.height, @boxsidesviewport)
@sprites["markingoverlay"].visible = false
pbSetSystemFont(@sprites["markingoverlay"].bitmap)
@sprites["arrow"] = PokemonBoxArrow.new(@arrowviewport)
@sprites["arrow"].z += 1
if command != 2
pbSetArrow(@sprites["arrow"], @selection)
pbUpdateOverlay(@selection)
pbSetMosaic(@selection)
else
pbPartySetArrow(@sprites["arrow"], @selection)
pbUpdateOverlay(@selection, @storage.party)
pbSetMosaic(@selection)
end
pbSEPlay("PC access")
pbFadeInAndShow(@sprites)
end
def pbCloseBox
pbFadeOutAndHide(@sprites)
pbDisposeSpriteHash(@sprites)
@markingbitmap.dispose if @markingbitmap
@boxviewport.dispose
@boxsidesviewport.dispose
@arrowviewport.dispose
end
def pbDisplay(message)
msgwindow = Window_UnformattedTextPokemon.newWithSize("", 180, 0, Graphics.width - 180, 32)
msgwindow.viewport = @viewport
msgwindow.visible = true
msgwindow.letterbyletter = false
msgwindow.resizeHeightToFit(message, Graphics.width - 180)
msgwindow.text = message
pbBottomRight(msgwindow)
loop do
Graphics.update
Input.update
if Input.trigger?(Input::BACK) || Input.trigger?(Input::USE)
break
end
msgwindow.update
self.update
end
msgwindow.dispose
Input.update
end
def pbShowCommands(message, commands, index = 0)
ret = -1
msgwindow = Window_UnformattedTextPokemon.newWithSize("", 180, 0, Graphics.width - 180, 32)
msgwindow.viewport = @viewport
msgwindow.visible = true
msgwindow.letterbyletter = false
msgwindow.text = message
msgwindow.resizeHeightToFit(message, Graphics.width - 180)
pbBottomRight(msgwindow)
cmdwindow = Window_CommandPokemon.new(commands)
cmdwindow.viewport = @viewport
cmdwindow.visible = true
cmdwindow.resizeToFit(cmdwindow.commands)
cmdwindow.height = Graphics.height - msgwindow.height if cmdwindow.height > Graphics.height - msgwindow.height
pbBottomRight(cmdwindow)
cmdwindow.y -= msgwindow.height
cmdwindow.index = index
loop do
Graphics.update
Input.update
msgwindow.update
cmdwindow.update
if Input.trigger?(Input::BACK)
ret = -1
break
elsif Input.trigger?(Input::USE)
ret = cmdwindow.index
break
end
self.update
end
msgwindow.dispose
cmdwindow.dispose
Input.update
return ret
end
def pbSetArrow(arrow, selection)
case selection
when -1, -4, -5 # Box name, move left, move right
arrow.x = 157 * 2
arrow.y = -12 * 2
when -2 # Party Pokémon
arrow.x = 119 * 2
arrow.y = 139 * 2
when -3 # Close Box
arrow.x = 207 * 2
arrow.y = 139 * 2
else
arrow.x = (97 + 24 * (selection % PokemonBox::BOX_WIDTH)) * 2
arrow.y = (8 + 24 * (selection / PokemonBox::BOX_WIDTH)) * 2
end
end
def pbChangeSelection(key, selection)
case key
when Input::UP
if selection == -1 # Box name
selection = -2
elsif selection == -2 # Party
selection = PokemonBox::BOX_SIZE - 1 - PokemonBox::BOX_WIDTH * 2 / 3 # 25
elsif selection == -3 # Close Box
selection = PokemonBox::BOX_SIZE - PokemonBox::BOX_WIDTH / 3 # 28
else
selection -= PokemonBox::BOX_WIDTH
selection = -1 if selection < 0
end
when Input::DOWN
if selection == -1 # Box name
selection = PokemonBox::BOX_WIDTH / 3 # 2
elsif selection == -2 # Party
selection = -1
elsif selection == -3 # Close Box
selection = -1
else
selection += PokemonBox::BOX_WIDTH
if selection >= PokemonBox::BOX_SIZE
if selection < PokemonBox::BOX_SIZE + PokemonBox::BOX_WIDTH / 2
selection = -2 # Party
else
selection = -3 # Close Box
end
end
end
when Input::LEFT
if selection == -1 # Box name
selection = -4 # Move to previous box
elsif selection == -2
selection = -3
elsif selection == -3
selection = -2
elsif (selection % PokemonBox::BOX_WIDTH) == 0 # Wrap around
selection += PokemonBox::BOX_WIDTH - 1
else
selection -= 1
end
when Input::RIGHT
if selection == -1 # Box name
selection = -5 # Move to next box
elsif selection == -2
selection = -3
elsif selection == -3
selection = -2
elsif (selection % PokemonBox::BOX_WIDTH) == PokemonBox::BOX_WIDTH - 1 # Wrap around
selection -= PokemonBox::BOX_WIDTH - 1
else
selection += 1
end
end
return selection
end
def pbPartySetArrow(arrow, selection)
return if selection < 0
xvalues = [] # [200, 272, 200, 272, 200, 272, 236]
yvalues = [] # [2, 18, 66, 82, 130, 146, 220]
for i in 0...Settings::MAX_PARTY_SIZE
xvalues.push(200 + 72 * (i % 2))
yvalues.push(2 + 16 * (i % 2) + 64 * (i / 2))
end
xvalues.push(236)
yvalues.push(220)
arrow.angle = 0
arrow.mirror = false
arrow.ox = 0
arrow.oy = 0
arrow.x = xvalues[selection]
arrow.y = yvalues[selection]
end
def pbPartyChangeSelection(key, selection)
case key
when Input::LEFT
selection -= 1
selection = Settings::MAX_PARTY_SIZE if selection < 0
when Input::RIGHT
selection += 1
selection = 0 if selection > Settings::MAX_PARTY_SIZE
when Input::UP
if selection == Settings::MAX_PARTY_SIZE
selection = Settings::MAX_PARTY_SIZE - 1
else
selection -= 2
selection = Settings::MAX_PARTY_SIZE if selection < 0
end
when Input::DOWN
if selection == Settings::MAX_PARTY_SIZE
selection = 0
else
selection += 2
selection = Settings::MAX_PARTY_SIZE if selection > Settings::MAX_PARTY_SIZE
end
end
return selection
end
def pbSelectBoxInternal(_party)
selection = @selection
pbSetArrow(@sprites["arrow"], selection)
pbUpdateOverlay(selection)
pbSetMosaic(selection)
loop do
Graphics.update
Input.update
key = -1
key = Input::DOWN if Input.repeat?(Input::DOWN)
key = Input::RIGHT if Input.repeat?(Input::RIGHT)
key = Input::LEFT if Input.repeat?(Input::LEFT)
key = Input::UP if Input.repeat?(Input::UP)
if key >= 0
pbPlayCursorSE
selection = pbChangeSelection(key, selection)
pbSetArrow(@sprites["arrow"], selection)
if selection == -4
nextbox = (@storage.currentBox + @storage.maxBoxes - 1) % @storage.maxBoxes
pbSwitchBoxToLeft(nextbox)
@storage.currentBox = nextbox
elsif selection == -5
nextbox = (@storage.currentBox + 1) % @storage.maxBoxes
pbSwitchBoxToRight(nextbox)
@storage.currentBox = nextbox
end
selection = -1 if selection == -4 || selection == -5
pbUpdateOverlay(selection)
pbSetMosaic(selection)
end
self.update
if Input.trigger?(Input::JUMPUP)
pbPlayCursorSE
nextbox = (@storage.currentBox + @storage.maxBoxes - 1) % @storage.maxBoxes
pbSwitchBoxToLeft(nextbox)
@storage.currentBox = nextbox
pbUpdateOverlay(selection)
pbSetMosaic(selection)
elsif Input.trigger?(Input::JUMPDOWN)
pbPlayCursorSE
nextbox = (@storage.currentBox + 1) % @storage.maxBoxes
pbSwitchBoxToRight(nextbox)
@storage.currentBox = nextbox
pbUpdateOverlay(selection)
pbSetMosaic(selection)
elsif Input.trigger?(Input::SPECIAL) # Jump to box name
if selection != -1
pbPlayCursorSE
selection = -1
pbSetArrow(@sprites["arrow"], selection)
pbUpdateOverlay(selection)
pbSetMosaic(selection)
end
elsif Input.trigger?(Input::ACTION) && @command == 0 # Organize only
pbPlayDecisionSE
pbSetQuickSwap(!@quickswap)
elsif Input.trigger?(Input::BACK)
@selection = selection
return nil
elsif Input.trigger?(Input::USE)
@selection = selection
if selection >= 0
return [@storage.currentBox, selection]
elsif selection == -1 # Box name
return [-4, -1]
elsif selection == -2 # Party Pokémon
return [-2, -1]
elsif selection == -3 # Close Box
return [-3, -1]
end
end
end
end
def pbSelectBox(party)
return pbSelectBoxInternal(party) if @command == 1 # Withdraw
ret = nil
loop do
if !@choseFromParty
ret = pbSelectBoxInternal(party)
end
if @choseFromParty || (ret && ret[0] == -2) # Party Pokémon
if !@choseFromParty
pbShowPartyTab
@selection = 0
end
ret = pbSelectPartyInternal(party, false)
if ret < 0
pbHidePartyTab
@selection = 0
@choseFromParty = false
else
@choseFromParty = true
return [-1, ret]
end
else
@choseFromParty = false
return ret
end
end
end
def pbSelectPartyInternal(party, depositing)
selection = @selection
pbPartySetArrow(@sprites["arrow"], selection)
pbUpdateOverlay(selection, party)
pbSetMosaic(selection)
lastsel = 1
loop do
Graphics.update
Input.update
key = -1
key = Input::DOWN if Input.repeat?(Input::DOWN)
key = Input::RIGHT if Input.repeat?(Input::RIGHT)
key = Input::LEFT if Input.repeat?(Input::LEFT)
key = Input::UP if Input.repeat?(Input::UP)
if key >= 0
pbPlayCursorSE
newselection = pbPartyChangeSelection(key, selection)
if newselection == -1
return -1 if !depositing
elsif newselection == -2
selection = lastsel
else
selection = newselection
end
pbPartySetArrow(@sprites["arrow"], selection)
lastsel = selection if selection > 0
pbUpdateOverlay(selection, party)
pbSetMosaic(selection)
end
self.update
if Input.trigger?(Input::ACTION) && @command == 0 # Organize only
pbPlayDecisionSE
pbSetQuickSwap(!@quickswap)
elsif Input.trigger?(Input::BACK)
@selection = selection
return -1
elsif Input.trigger?(Input::USE)
if selection >= 0 && selection < Settings::MAX_PARTY_SIZE
@selection = selection
return selection
elsif selection == Settings::MAX_PARTY_SIZE # Close Box
@selection = selection
return (depositing) ? -3 : -1
end
end
end
end
def pbSelectParty(party)
return pbSelectPartyInternal(party, true)
end
def pbChangeBackground(wp)
@sprites["box"].refreshSprites = false
alpha = 0
Graphics.update
self.update
timeTaken = Graphics.frame_rate * 4 / 10
alphaDiff = (255.0 / timeTaken).ceil
timeTaken.times do
alpha += alphaDiff
Graphics.update
Input.update
@sprites["box"].color = Color.new(248, 248, 248, alpha)
self.update
end
@sprites["box"].refreshBox = true
@storage[@storage.currentBox].background = wp
(Graphics.frame_rate / 10).times do
Graphics.update
Input.update
self.update
end
timeTaken.times do
alpha -= alphaDiff
Graphics.update
Input.update
@sprites["box"].color = Color.new(248, 248, 248, alpha)
self.update
end
@sprites["box"].refreshSprites = true
end
def pbSwitchBoxToRight(newbox)
newbox = PokemonBoxSprite.new(@storage, newbox, @boxviewport,@sprites["box"].isFusionEnabled)
newbox.x = 520
Graphics.frame_reset
distancePerFrame = 64 * 20 / Graphics.frame_rate
loop do
Graphics.update
Input.update
@sprites["box"].x -= distancePerFrame
newbox.x -= distancePerFrame
self.update
break if newbox.x <= 184
end
diff = newbox.x - 184
newbox.x = 184
@sprites["box"].x -= diff
@sprites["box"].dispose
@sprites["box"] = newbox
newbox.refreshAllBoxSprites
end
def pbSwitchBoxToLeft(newbox)
newbox = PokemonBoxSprite.new(@storage, newbox, @boxviewport,@sprites["box"].isFusionEnabled)
newbox.x = -152
Graphics.frame_reset
distancePerFrame = 64 * 20 / Graphics.frame_rate
loop do
Graphics.update
Input.update
@sprites["box"].x += distancePerFrame
newbox.x += distancePerFrame
self.update
break if newbox.x >= 184
end
diff = newbox.x - 184
newbox.x = 184
@sprites["box"].x -= diff
@sprites["box"].dispose
@sprites["box"] = newbox
newbox.refreshAllBoxSprites
end
def pbJumpToBox(newbox)
if @storage.currentBox != newbox
if newbox > @storage.currentBox
pbSwitchBoxToRight(newbox)
else
pbSwitchBoxToLeft(newbox)
end
@storage.currentBox = newbox
end
end
def pbSetMosaic(selection)
if !@screen.pbHeldPokemon
if @boxForMosaic != @storage.currentBox || @selectionForMosaic != selection
@sprites["pokemon"].mosaic = Graphics.frame_rate / 4
@boxForMosaic = @storage.currentBox
@selectionForMosaic = selection
end
end
end
def pbSetQuickSwap(value)
@quickswap = value
@sprites["arrow"].quickswap = value
end
def pbShowPartyTab
pbSEPlay("GUI storage show party panel")
distancePerFrame = 48 * 20 / Graphics.frame_rate
loop do
Graphics.update
Input.update
@sprites["boxparty"].y -= distancePerFrame
self.update
break if @sprites["boxparty"].y <= Graphics.height - 352
end
@sprites["boxparty"].y = Graphics.height - 352
end
def pbHidePartyTab
pbSEPlay("GUI storage hide party panel")
distancePerFrame = 48 * 20 / Graphics.frame_rate
loop do
Graphics.update
Input.update
@sprites["boxparty"].y += distancePerFrame
self.update
break if @sprites["boxparty"].y >= Graphics.height
end
@sprites["boxparty"].y = Graphics.height
end
def pbHold(selected)
pbSEPlay("GUI storage pick up")
if selected[0] == -1
@sprites["boxparty"].grabPokemon(selected[1], @sprites["arrow"])
else
@sprites["box"].grabPokemon(selected[1], @sprites["arrow"])
end
while @sprites["arrow"].grabbing?
Graphics.update
Input.update
self.update
end
end
def pbSwap(selected, _heldpoke)
pbSEPlay("GUI storage pick up")
heldpokesprite = @sprites["arrow"].heldPokemon
boxpokesprite = nil
if selected[0] == -1
boxpokesprite = @sprites["boxparty"].getPokemon(selected[1])
else
boxpokesprite = @sprites["box"].getPokemon(selected[1])
end
if selected[0] == -1
@sprites["boxparty"].setPokemon(selected[1], heldpokesprite)
else
@sprites["box"].setPokemon(selected[1], heldpokesprite)
end
@sprites["arrow"].setSprite(boxpokesprite)
@sprites["pokemon"].mosaic = 10
@boxForMosaic = @storage.currentBox
@selectionForMosaic = selected[1]
end
def pbPlace(selected, _heldpoke)
pbSEPlay("GUI storage put down")
heldpokesprite = @sprites["arrow"].heldPokemon
@sprites["arrow"].place
while @sprites["arrow"].placing?
Graphics.update
Input.update
self.update
end
if selected[0] == -1
@sprites["boxparty"].setPokemon(selected[1], heldpokesprite)
else
@sprites["box"].setPokemon(selected[1], heldpokesprite)
end
@boxForMosaic = @storage.currentBox
@selectionForMosaic = selected[1]
end
def pbWithdraw(selected, heldpoke, partyindex)
pbHold(selected) if !heldpoke
pbShowPartyTab
pbPartySetArrow(@sprites["arrow"], partyindex)
pbPlace([-1, partyindex], heldpoke)
pbHidePartyTab
end
def pbStore(selected, heldpoke, destbox, firstfree)
if heldpoke
if destbox == @storage.currentBox
heldpokesprite = @sprites["arrow"].heldPokemon
@sprites["box"].setPokemon(firstfree, heldpokesprite)
@sprites["arrow"].setSprite(nil)
else
@sprites["arrow"].deleteSprite
end
else
sprite = @sprites["boxparty"].getPokemon(selected[1])
if destbox == @storage.currentBox
@sprites["box"].setPokemon(firstfree, sprite)
@sprites["boxparty"].setPokemon(selected[1], nil)
else
@sprites["boxparty"].deletePokemon(selected[1])
end
end
end
def pbRelease(selected, heldpoke)
box = selected[0]
index = selected[1]
if heldpoke
sprite = @sprites["arrow"].heldPokemon
elsif box == -1
sprite = @sprites["boxparty"].getPokemon(index)
else
sprite = @sprites["box"].getPokemon(index)
end
if sprite
sprite.release
while sprite.releasing?
Graphics.update
sprite.update
self.update
end
end
end
def pbChooseBox(msg)
commands = []
for i in 0...@storage.maxBoxes
box = @storage[i]
if box
commands.push(_INTL("{1} ({2}/{3})", box.name, box.nitems, box.length))
end
end
return pbShowCommands(msg, commands, @storage.currentBox)
end
def pbBoxName(helptext, minchars, maxchars)
oldsprites = pbFadeOutAndHide(@sprites)
ret = pbEnterBoxName(helptext, minchars, maxchars)
if ret.length > 0
@storage[@storage.currentBox].name = ret
end
@sprites["box"].refreshBox = true
pbRefresh
pbFadeInAndShow(@sprites, oldsprites)
end
def pbChooseItem(bag)
ret = nil
pbFadeOutIn {
scene = PokemonBag_Scene.new
screen = PokemonBagScreen.new(scene, bag)
ret = screen.pbChooseItemScreen(Proc.new { |item| GameData::Item.get(item).can_hold? })
}
return ret
end
def pbSummary(selected, heldpoke)
oldsprites = pbFadeOutAndHide(@sprites)
scene = PokemonSummary_Scene.new
screen = PokemonSummaryScreen.new(scene)
if heldpoke
screen.pbStartScreen([heldpoke], 0)
elsif selected[0] == -1
@selection = screen.pbStartScreen(@storage.party, selected[1])
pbPartySetArrow(@sprites["arrow"], @selection)
pbUpdateOverlay(@selection, @storage.party)
else
@selection = screen.pbStartScreen(@storage.boxes[selected[0]], selected[1])
pbSetArrow(@sprites["arrow"], @selection)
pbUpdateOverlay(@selection)
end
pbFadeInAndShow(@sprites, oldsprites)
end
def pbMarkingSetArrow(arrow, selection)
if selection >= 0
xvalues = [162, 191, 220, 162, 191, 220, 184, 184]
yvalues = [24, 24, 24, 49, 49, 49, 77, 109]
arrow.angle = 0
arrow.mirror = false
arrow.ox = 0
arrow.oy = 0
arrow.x = xvalues[selection] * 2
arrow.y = yvalues[selection] * 2
end
end
def pbMarkingChangeSelection(key, selection)
case key
when Input::LEFT
if selection < 6
selection -= 1
selection += 3 if selection % 3 == 2
end
when Input::RIGHT
if selection < 6
selection += 1
selection -= 3 if selection % 3 == 0
end
when Input::UP
if selection == 7;
selection = 6
elsif selection == 6;
selection = 4
elsif selection < 3;
selection = 7
else
; selection -= 3
end
when Input::DOWN
if selection == 7;
selection = 1
elsif selection == 6;
selection = 7
elsif selection >= 3;
selection = 6
else
; selection += 3
end
end
return selection
end
def pbMark(selected, heldpoke)
@sprites["markingbg"].visible = true
@sprites["markingoverlay"].visible = true
msg = _INTL("Mark your Pokémon.")
msgwindow = Window_UnformattedTextPokemon.newWithSize("", 180, 0, Graphics.width - 180, 32)
msgwindow.viewport = @viewport
msgwindow.visible = true
msgwindow.letterbyletter = false
msgwindow.text = msg
msgwindow.resizeHeightToFit(msg, Graphics.width - 180)
pbBottomRight(msgwindow)
base = Color.new(248, 248, 248)
shadow = Color.new(80, 80, 80)
pokemon = heldpoke
if heldpoke
pokemon = heldpoke
elsif selected[0] == -1
pokemon = @storage.party[selected[1]]
else
pokemon = @storage.boxes[selected[0]][selected[1]]
end
markings = pokemon.markings
index = 0
redraw = true
markrect = Rect.new(0, 0, 16, 16)
loop do
# Redraw the markings and text
if redraw
@sprites["markingoverlay"].bitmap.clear
for i in 0...6
markrect.x = i * 16
markrect.y = (markings & (1 << i) != 0) ? 16 : 0
@sprites["markingoverlay"].bitmap.blt(336 + 58 * (i % 3), 106 + 50 * (i / 3), @markingbitmap.bitmap, markrect)
end
textpos = [
[_INTL("OK"), 402, 208, 2, base, shadow, 1],
[_INTL("Cancel"), 402, 272, 2, base, shadow, 1]
]
pbDrawTextPositions(@sprites["markingoverlay"].bitmap, textpos)
pbMarkingSetArrow(@sprites["arrow"], index)
redraw = false
end
Graphics.update
Input.update
key = -1
key = Input::DOWN if Input.repeat?(Input::DOWN)
key = Input::RIGHT if Input.repeat?(Input::RIGHT)
key = Input::LEFT if Input.repeat?(Input::LEFT)
key = Input::UP if Input.repeat?(Input::UP)
if key >= 0
oldindex = index
index = pbMarkingChangeSelection(key, index)
pbPlayCursorSE if index != oldindex
pbMarkingSetArrow(@sprites["arrow"], index)
end
self.update
if Input.trigger?(Input::BACK)
pbPlayCancelSE
break
elsif Input.trigger?(Input::USE)
pbPlayDecisionSE
if index == 6 # OK
pokemon.markings = markings
break
elsif index == 7 # Cancel
break
else
mask = (1 << index)
if (markings & mask) == 0
markings |= mask
else
markings &= ~mask
end
redraw = true
end
end
end
@sprites["markingbg"].visible = false
@sprites["markingoverlay"].visible = false
msgwindow.dispose
end
def pbRefresh
@sprites["box"].refresh
@sprites["boxparty"].refresh
end
def pbHardRefresh
oldPartyY = @sprites["boxparty"].y
@sprites["box"].dispose
@sprites["box"] = PokemonBoxSprite.new(@storage, @storage.currentBox, @boxviewport)
@sprites["boxparty"].dispose
@sprites["boxparty"] = PokemonBoxPartySprite.new(@storage.party, @boxsidesviewport)
@sprites["boxparty"].y = oldPartyY
end
def drawMarkings(bitmap, x, y, _width, _height, markings)
markrect = Rect.new(0, 0, 16, 16)
for i in 0...8
markrect.x = i * 16
markrect.y = (markings & (1 << i) != 0) ? 16 : 0
bitmap.blt(x + i * 16, y, @markingbitmap.bitmap, markrect)
end
end
def pbUpdateOverlay(selection, party = nil)
overlay = @sprites["overlay"].bitmap
overlay.clear
buttonbase = Color.new(248, 248, 248)
buttonshadow = Color.new(80, 80, 80)
pbDrawTextPositions(overlay, [
[_INTL("Party: {1}", (@storage.party.length rescue 0)), 270, 326, 2, buttonbase, buttonshadow, 1],
[_INTL("Exit"), 446, 326, 2, buttonbase, buttonshadow, 1],
])
pokemon = nil
if @screen.pbHeldPokemon && !@screen.fusionMode
pokemon = @screen.pbHeldPokemon
elsif selection >= 0
pokemon = (party) ? party[selection] : @storage[@storage.currentBox, selection]
end
if !pokemon
@sprites["pokemon"].visible = false
return
end
@sprites["pokemon"].visible = true
base = Color.new(88, 88, 80)
shadow = Color.new(168, 184, 184)
nonbase = Color.new(208, 208, 208)
nonshadow = Color.new(224, 224, 224)
pokename = pokemon.name
textstrings = [
[pokename, 10, 2, false, base, shadow]
]
if !pokemon.egg?
imagepos = []
if pokemon.male?
textstrings.push([_INTL(""), 148, 2, false, Color.new(24, 112, 216), Color.new(136, 168, 208)])
elsif pokemon.female?
textstrings.push([_INTL(""), 148, 2, false, Color.new(248, 56, 32), Color.new(224, 152, 144)])
end
imagepos.push(["Graphics/Pictures/Storage/overlay_lv", 6, 246])
textstrings.push([pokemon.level.to_s, 28, 228, false, base, shadow])
if pokemon.ability
textstrings.push([pokemon.ability.name, 86, 300, 2, base, shadow])
else
textstrings.push([_INTL("No ability"), 86, 300, 2, nonbase, nonshadow])
end
if pokemon.item
textstrings.push([pokemon.item.name, 86, 336, 2, base, shadow])
else
textstrings.push([_INTL("No item"), 86, 336, 2, nonbase, nonshadow])
end
if pokemon.shiny?
addShinyStarsToGraphicsArray(imagepos,156,198,pokemon.bodyShiny?,pokemon.headShiny?,pokemon.debugShiny?,nil,nil,nil,nil,false,true)
#imagepos.push(["Graphics/Pictures/shiny", 156, 198])
end
typebitmap = AnimatedBitmap.new(_INTL("Graphics/Pictures/types"))
type1_number = GameData::Type.get(pokemon.type1).id_number
type2_number = GameData::Type.get(pokemon.type2).id_number
type1rect = Rect.new(0, type1_number * 28, 64, 28)
type2rect = Rect.new(0, type2_number * 28, 64, 28)
if pokemon.type1 == pokemon.type2
overlay.blt(52, 272, typebitmap.bitmap, type1rect)
else
overlay.blt(18, 272, typebitmap.bitmap, type1rect)
overlay.blt(88, 272, typebitmap.bitmap, type2rect)
end
drawMarkings(overlay, 70, 240, 128, 20, pokemon.markings)
pbDrawImagePositions(overlay, imagepos)
end
pbDrawTextPositions(overlay, textstrings)
@sprites["pokemon"].setPokemonBitmap(pokemon)
if pokemon.egg?
@sprites["pokemon"].zoom_x = Settings::EGGSPRITE_SCALE
@sprites["pokemon"].zoom_y = Settings::EGGSPRITE_SCALE
else
@sprites["pokemon"].zoom_x = Settings::FRONTSPRITE_SCALE
@sprites["pokemon"].zoom_y = Settings::FRONTSPRITE_SCALE
end
end
def update
pbUpdateSpriteHash(@sprites)
end
def setFusing(fusing, item = 0)
sprite = @sprites["arrow"].setFusing(fusing)
if item == :INFINITESPLICERS
@sprites["arrow"].setSplicerType(2)
elsif item == :SUPERSPLICERS
@sprites["arrow"].setSplicerType(1)
else
@sprites["arrow"].setSplicerType(0)
end
pbRefresh
end
end
#===============================================================================
# Pokémon storage mechanics
#===============================================================================
class PokemonStorageScreen
attr_reader :scene
attr_reader :storage
attr_accessor :heldpkmn
attr_accessor :fusionMode
def initialize(scene, storage)
@scene = scene
@storage = storage
@pbHeldPokemon = nil
end
def pbStartScreen(command)
@heldpkmn = nil
if command == 0 # Organise
@scene.pbStartBox(self, command)
loop do
selected = @scene.pbSelectBox(@storage.party)
if selected == nil
if pbHeldPokemon
pbDisplay(_INTL("You're holding a Pokémon!"))
next
end
next if pbConfirm(_INTL("Continue Box operations?"))
break
elsif selected[0] == -3 # Close box
if pbHeldPokemon
pbDisplay(_INTL("You're holding a Pokémon!"))
next
end
if pbConfirm(_INTL("Exit from the Box?"))
pbSEPlay("PC close")
break
end
next
elsif selected[0] == -4 # Box name
pbBoxCommands
else
pokemon = @storage[selected[0], selected[1]]
heldpoke = pbHeldPokemon
next if !pokemon && !heldpoke
if @scene.quickswap
if @heldpkmn
(pokemon) ? pbSwap(selected) : pbPlace(selected)
else
pbHold(selected)
end
else
if @fusionMode
pbFusionCommands(selected)
else
commands = []
cmdMove = -1
cmdSummary = -1
cmdWithdraw = -1
cmdItem = -1
cmdFuse = -1
cmdUnfuse = -1
cmdReverse = -1
cmdRelease = -1
cmdDebug = -1
cmdCancel = -1
cmdNickname = -1
if heldpoke
helptext = _INTL("{1} is selected.", heldpoke.name)
commands[cmdMove = commands.length] = (pokemon) ? _INTL("Shift") : _INTL("Place")
elsif pokemon
helptext = _INTL("{1} is selected.", pokemon.name)
commands[cmdMove = commands.length] = _INTL("Move")
end
commands[cmdSummary = commands.length] = _INTL("Summary")
if pokemon != nil
if dexNum(pokemon.species) > NB_POKEMON
commands[cmdUnfuse = commands.length] = _INTL("Unfuse")
commands[cmdReverse = commands.length] = _INTL("Reverse") if $PokemonBag.pbQuantity(:DNAREVERSER) > 0 || $PokemonBag.pbQuantity(:INFINITEREVERSERS) > 0
else
commands[cmdFuse = commands.length] = _INTL("Fuse") if !@heldpkmn
end
end
commands[cmdNickname = commands.length] = _INTL("Nickname") if !@heldpkmn
commands[cmdWithdraw = commands.length] = (selected[0] == -1) ? _INTL("Store") : _INTL("Withdraw")
commands[cmdItem = commands.length] = _INTL("Item")
commands[cmdRelease = commands.length] = _INTL("Release")
commands[cmdDebug = commands.length] = _INTL("Debug") if $DEBUG
commands[cmdCancel = commands.length] = _INTL("Cancel")
command = pbShowCommands(helptext, commands)
if cmdMove >= 0 && command == cmdMove # Move/Shift/Place
if @heldpkmn
(pokemon) ? pbSwap(selected) : pbPlace(selected)
else
pbHold(selected)
end
elsif cmdSummary >= 0 && command == cmdSummary # Summary
pbSummary(selected, @heldpkmn)
elsif cmdNickname >= 0 && command == cmdNickname # Summary
renamePokemon(selected)
elsif cmdWithdraw >= 0 && command == cmdWithdraw # Store/Withdraw
(selected[0] == -1) ? pbStore(selected, @heldpkmn) : pbWithdraw(selected, @heldpkmn)
elsif cmdItem >= 0 && command == cmdItem # Item
pbItem(selected, @heldpkmn)
elsif cmdFuse >= 0 && command == cmdFuse # fuse
pbFuseFromPC(selected, @heldpkmn)
elsif cmdUnfuse >= 0 && command == cmdUnfuse # unfuse
pbUnfuseFromPC(selected)
elsif cmdReverse >= 0 && command == cmdReverse # unfuse
reverseFromPC(selected)
elsif cmdRelease >= 0 && command == cmdRelease # Release
pbRelease(selected, @heldpkmn)
elsif cmdDebug >= 0 && command == cmdDebug # Debug
pbPokemonDebug((@heldpkmn) ? @heldpkmn : pokemon, selected, heldpoke)
end
end
end
end
end
@scene.pbCloseBox
elsif command == 1 # Withdraw
@scene.pbStartBox(self, command)
loop do
selected = @scene.pbSelectBox(@storage.party)
if selected == nil
next if pbConfirm(_INTL("Continue Box operations?"))
break
else
case selected[0]
when -2 # Party Pokémon
pbDisplay(_INTL("Which one will you take?"))
next
when -3 # Close box
if pbConfirm(_INTL("Exit from the Box?"))
pbSEPlay("PC close")
break
end
next
when -4 # Box name
pbBoxCommands
next
end
if @fusionMode
pbFusionCommands(selected)
else
pokemon = @storage[selected[0], selected[1]]
next if !pokemon
command = pbShowCommands(_INTL("{1} is selected.", pokemon.name), [
_INTL("Withdraw"),
_INTL("Summary"),
_INTL("Release"),
_INTL("Cancel")
])
case command
when 0 then
pbWithdraw(selected, nil)
when 1 then
pbSummary(selected, nil)
#when 2 then pbMark(selected, nil)
when 2 then
pbRelease(selected, nil)
end
end
end
end
@scene.pbCloseBox
elsif command == 2 # Deposit
@scene.pbStartBox(self, command)
loop do
selected = @scene.pbSelectParty(@storage.party)
if selected == -3 # Close box
if pbConfirm(_INTL("Exit from the Box?"))
pbSEPlay("PC close")
break
end
next
elsif selected < 0
next if pbConfirm(_INTL("Continue Box operations?"))
break
else
pokemon = @storage[-1, selected]
next if !pokemon
command = pbShowCommands(_INTL("{1} is selected.", pokemon.name), [
_INTL("Store"),
_INTL("Summary"),
_INTL("Mark"),
_INTL("Release"),
_INTL("Cancel")
])
case command
when 0 then
pbStore([-1, selected], nil)
when 1 then
pbSummary([-1, selected], nil)
when 2 then
pbMark([-1, selected], nil)
when 3 then
pbRelease([-1, selected], nil)
end
end
end
@scene.pbCloseBox
elsif command == 3
@scene.pbStartBox(self, command)
@scene.pbCloseBox
end
end
def renamePokemon(selected)
box = selected[0]
index = selected[1]
pokemon = @storage[box, index]
if pokemon.egg?
pbDisplay(_INTL("You cannot rename an egg!"))
return
end
speciesname = PBSpecies.getName(pokemon.species)
hasNickname = speciesname == pokemon.name
if hasNickname
pbDisplay(_INTL("{1} has no nickname.", speciesname))
else
pbDisplay(_INTL("{1} has the nickname {2}.", speciesname, pokemon.name))
end
commands = [
_INTL("Rename"),
_INTL("Quit")
]
command = pbShowCommands(
_INTL("What do you want to do?"), commands)
case command
when 0
newname = pbEnterPokemonName(_INTL("{1}'s nickname?", speciesname), 0, Pokemon::MAX_NAME_SIZE, "", pokemon)
pokemon.name = (newname == "") ? speciesname : newname
pbDisplay(_INTL("{1} is now named {2}!", speciesname, pokemon.name))
when 1
return
end
end
def pbUpdate # For debug
@scene.update
end
def pbHardRefresh # For debug
@scene.pbHardRefresh
end
def pbRefreshSingle(i)
# For debug
@scene.pbUpdateOverlay(i[1], (i[0] == -1) ? @storage.party : nil)
@scene.pbHardRefresh
end
def pbDisplay(message)
@scene.pbDisplay(message)
end
def pbConfirm(str)
return pbShowCommands(str, [_INTL("Yes"), _INTL("No")]) == 0
end
def pbShowCommands(msg, commands, index = 0)
return @scene.pbShowCommands(msg, commands, index)
end
def pbAble?(pokemon)
pokemon && !pokemon.egg? && pokemon.hp > 0
end
def pbAbleCount
count = 0
for p in @storage.party
count += 1 if pbAble?(p)
end
return count
end
def pbHeldPokemon
return @heldpkmn
end
def pbWithdraw(selected, heldpoke)
box = selected[0]
index = selected[1]
if box == -1
raise _INTL("Can't withdraw from party...");
end
if @storage.party_full?
pbDisplay(_INTL("Your party's full!"))
return false
end
@scene.pbWithdraw(selected, heldpoke, @storage.party.length)
if heldpoke
@storage.pbMoveCaughtToParty(heldpoke)
@heldpkmn = nil
else
@storage.pbMove(-1, -1, box, index)
end
@scene.pbRefresh
return true
end
def pbStore(selected, heldpoke)
box = selected[0]
index = selected[1]
if box != -1
raise _INTL("Can't deposit from box...")
end
if pbAbleCount <= 1 && pbAble?(@storage[box, index]) && !heldpoke
pbPlayBuzzerSE
pbDisplay(_INTL("That's your last Pokémon!"))
elsif heldpoke && heldpoke.mail
pbDisplay(_INTL("Please remove the Mail."))
elsif !heldpoke && @storage[box, index].mail
pbDisplay(_INTL("Please remove the Mail."))
else
loop do
destbox = @scene.pbChooseBox(_INTL("Deposit in which Box?"))
if destbox >= 0
firstfree = @storage.pbFirstFreePos(destbox)
if firstfree < 0
pbDisplay(_INTL("The Box is full."))
next
end
if heldpoke || selected[0] == -1
p = (heldpoke) ? heldpoke : @storage[-1, index]
p.time_form_set = nil
#p.form = 0 if p.isSpecies?(:SHAYMIN)
#p.heal
end
@scene.pbStore(selected, heldpoke, destbox, firstfree)
if heldpoke
@storage.pbMoveCaughtToBox(heldpoke, destbox)
@heldpkmn = nil
else
@storage.pbMove(destbox, -1, -1, index)
end
end
break
end
@scene.pbRefresh
end
end
def pbHold(selected)
box = selected[0]
index = selected[1]
if box == -1 && pbAble?(@storage[box, index]) && pbAbleCount <= 1
pbPlayBuzzerSE
pbDisplay(_INTL("That's your last Pokémon!"))
return
end
@scene.pbHold(selected)
@heldpkmn = @storage[box, index]
@storage.pbDelete(box, index)
@scene.pbRefresh
end
def pbPlace(selected)
box = selected[0]
index = selected[1]
if @storage[box, index]
pbDisplay("Can't place that there.")
return
echoln _INTL("Position {1},{2} is not empty...", box, index)
end
if box != -1 && index >= @storage.maxPokemon(box)
pbDisplay("Can't place that there.")
return
end
if box != -1 && @heldpkmn.mail
pbDisplay("Please remove the mail.")
return
end
if box >= 0
@heldpkmn.time_form_set = nil
@heldpkmn.form = 0 if @heldpkmn.isSpecies?(:SHAYMIN)
#@heldpkmn.heal
end
@scene.pbPlace(selected, @heldpkmn)
@storage[box, index] = @heldpkmn
if box == -1
@storage.party.compact!
end
@scene.pbRefresh
@heldpkmn = nil
end
def pbSwap(selected)
box = selected[0]
index = selected[1]
if !@storage[box, index]
raise _INTL("Position {1},{2} is empty...", box, index)
end
if box == -1 && pbAble?(@storage[box, index]) && pbAbleCount <= 1 && !pbAble?(@heldpkmn)
pbPlayBuzzerSE
pbDisplay(_INTL("That's your last Pokémon!"))
return false
end
if box != -1 && @heldpkmn.mail
pbDisplay("Please remove the mail.")
return false
end
if box >= 0
@heldpkmn.time_form_set = nil
@heldpkmn.form = 0 if @heldpkmn.isSpecies?(:SHAYMIN)
#@heldpkmn.heal
end
@scene.pbSwap(selected, @heldpkmn)
tmp = @storage[box, index]
@storage[box, index] = @heldpkmn
@heldpkmn = tmp
@scene.pbRefresh
return true
end
def pbRelease(selected, heldpoke)
box = selected[0]
index = selected[1]
pokemon = (heldpoke) ? heldpoke : @storage[box, index]
return if !pokemon
if pokemon.egg?
pbDisplay(_INTL("You can't release an Egg."))
return false
elsif pokemon.mail
pbDisplay(_INTL("Please remove the mail."))
return false
end
if box == -1 && pbAbleCount <= 1 && pbAble?(pokemon) && !heldpoke
pbPlayBuzzerSE
pbDisplay(_INTL("That's your last Pokémon!"))
return
end
command = pbShowCommands(_INTL("Release this Pokémon?"), [_INTL("No"), _INTL("Yes")])
if command == 1
if pokemon.owner.name == "RENTAL"
pbDisplay(_INTL("This Pokémon cannot be released"))
return
end
pkmnname = pokemon.name
@scene.pbRelease(selected, heldpoke)
if heldpoke
@heldpkmn = nil
else
@storage.pbDelete(box, index)
end
@scene.pbRefresh
pbDisplay(_INTL("{1} was released.", pkmnname))
pbDisplay(_INTL("Bye-bye, {1}!", pkmnname))
@scene.pbRefresh
end
return
end
def pbChooseMove(pkmn, helptext, index = 0)
movenames = []
for i in pkmn.moves
if i.total_pp <= 0
movenames.push(_INTL("{1} (PP: ---)", i.name))
else
movenames.push(_INTL("{1} (PP: {2}/{3})", i.name, i.pp, i.total_pp))
end
end
return @scene.pbShowCommands(helptext, movenames, index)
end
def pbSummary(selected, heldpoke)
@scene.pbSummary(selected, heldpoke)
end
def pbMark(selected, heldpoke)
@scene.pbMark(selected, heldpoke)
end
def pbItem(selected, heldpoke)
box = selected[0]
index = selected[1]
pokemon = (heldpoke) ? heldpoke : @storage[box, index]
if pokemon.egg?
pbDisplay(_INTL("Eggs can't hold items."))
return
elsif pokemon.mail
pbDisplay(_INTL("Please remove the mail."))
return
end
if pokemon.item
itemname = pokemon.item.name
if pbConfirm(_INTL("Take this {1}?", itemname))
if !$PokemonBag.pbStoreItem(pokemon.item)
pbDisplay(_INTL("Can't store the {1}.", itemname))
else
pbDisplay(_INTL("Took the {1}.", itemname))
pokemon.item = nil
@scene.pbHardRefresh
end
end
else
item = scene.pbChooseItem($PokemonBag)
if item
itemname = GameData::Item.get(item).name
pokemon.item = item
$PokemonBag.pbDeleteItem(item)
pbDisplay(_INTL("{1} is now being held.", itemname))
@scene.pbHardRefresh
end
end
end
def pbBoxCommands
commands = [
_INTL("Jump"),
_INTL("Wallpaper"),
_INTL("Name"),
_INTL("Cancel"),
]
command = pbShowCommands(
_INTL("What do you want to do?"), commands)
case command
when 0
destbox = @scene.pbChooseBox(_INTL("Jump to which Box?"))
if destbox >= 0
@scene.pbJumpToBox(destbox)
end
when 1
papers = @storage.availableWallpapers
index = 0
for i in 0...papers[1].length
if papers[1][i] == @storage[@storage.currentBox].background
index = i; break
end
end
wpaper = pbShowCommands(_INTL("Pick the wallpaper."), papers[0], index)
if wpaper >= 0
@scene.pbChangeBackground(papers[1][wpaper])
end
when 2
@scene.pbBoxName(_INTL("Box name?"), 0, 12)
end
end
def pbChoosePokemon(_party = nil)
@heldpkmn = nil
@scene.pbStartBox(self, 1)
retval = nil
loop do
selected = @scene.pbSelectBox(@storage.party)
if selected && selected[0] == -3 # Close box
if pbConfirm(_INTL("Exit from the Box?"))
pbSEPlay("PC close")
break
end
next
end
if selected == nil
next if pbConfirm(_INTL("Continue Box operations?"))
break
elsif selected[0] == -4 # Box name
pbBoxCommands
else
pokemon = @storage[selected[0], selected[1]]
next if !pokemon
commands = [
_INTL("Select"),
_INTL("Summary"),
_INTL("Withdraw"),
_INTL("Item"),
_INTL("Mark")
]
commands.push(_INTL("Cancel"))
commands[2] = _INTL("Store") if selected[0] == -1
helptext = _INTL("{1} is selected.", pokemon.name)
command = pbShowCommands(helptext, commands)
case command
when 0 # Select
if pokemon
retval = selected
break
end
when 1
pbSummary(selected, nil)
when 2 # Store/Withdraw
if selected[0] == -1
pbStore(selected, nil)
else
pbWithdraw(selected, nil)
end
when 3
pbItem(selected, nil)
when 4
pbMark(selected, nil)
end
end
end
@scene.pbCloseBox
return retval
end
#
# Fusion stuff
#
def pbFuseFromPC(selected, heldpoke)
box = selected[0]
index = selected[1]
poke_body = @storage[box, index]
poke_head = heldpoke
if heldpoke
if dexNum(heldpoke.species) > NB_POKEMON
pbDisplay(_INTL("{1} is already fused!", heldpoke.name))
return
end
if(heldpoke.egg?)
pbDisplay(_INTL("It's impossible to fuse an egg!"))
return
end
end
splicerItem = selectSplicer()
if splicerItem == nil
cancelFusion()
return
end
if !heldpoke
@fusionMode = true
@fusionItem = splicerItem
@scene.setFusing(true, @fusionItem)
pbHold(selected)
pbDisplay(_INTL("Select a Pokémon to fuse it with"))
@scene.sprites["box"].disableFusions()
return
end
if !poke_body
pbDisplay(_INTL("Select a Pokémon to fuse it with"))
@fusionMode = true
@fusionItem = splicerItem
@scene.setFusing(true, @fusionItem)
return
end
end
def deleteHeldPokemon(heldpoke, selected)
@scene.pbReleaseInstant(selected, heldpoke)
@heldpkmn = nil
end
def deleteSelectedPokemon(heldpoke, selected)
pbSwap(selected)
deleteHeldPokemon(heldpoke, selected)
end
def cancelFusion
@splicerItem = nil
@scene.setFusing(false)
@fusionMode = false
@scene.sprites["box"].enableFusions()
end
def canDeleteItem(item)
return item == :SUPERSPLICERS || item == :DNASPLICERS
end
def isSuperSplicer?(item)
return item == :SUPERSPLICERS || item == :INFINITESPLICERS2
end
def pbFusionCommands(selected)
heldpoke = pbHeldPokemon
pokemon = @storage[selected[0], selected[1]]
if !pokemon
command = pbShowCommands("Select an action", ["Cancel", "Stop fusing"])
case command
when 1 #stop
cancelFusion()
end
else
commands = [
_INTL("Fuse"),
_INTL("Swap")
]
commands.push(_INTL("Stop fusing"))
commands.push(_INTL("Cancel"))
if !heldpoke
pbPlace(selected)
@fusionMode = false
@scene.setFusing(false)
return
end
command = pbShowCommands("Select an action", commands)
case command
when 0 #Fuse
if !pokemon
pbDisplay(_INTL("No Pokémon selected!"))
return
else
if dexNum(pokemon.species) > NB_POKEMON
pbDisplay(_INTL("This Pokémon is already fused!"))
return
end
end
isSuperSplicer = isSuperSplicer?(@fusionItem)
selectedHead =selectFusion(pokemon, heldpoke, isSuperSplicer)
if selectedHead == nil
pbDisplay(_INTL("It won't have any effect."))
return false
end
if selectedHead == -1 #cancelled out
return false
end
selectedBase = selectedHead == pokemon ? heldpoke : pokemon
firstOptionSelected= selectedBase == pokemon
if (Kernel.pbConfirmMessage(_INTL("Fuse the two Pokémon?")))
playingBGM = $game_system.getPlayingBGM
pbFuse(selectedHead, selectedBase, @fusionItem)
if canDeleteItem(@fusionItem)
$PokemonBag.pbDeleteItem(@fusionItem)
end
if firstOptionSelected
deleteSelectedPokemon(heldpoke, selected)
else
deleteHeldPokemon(heldpoke, selected)
end
@scene.setFusing(false)
@fusionMode = false
@scene.sprites["box"].enableFusions()
pbBGMPlay(playingBGM)
return
else
# print "fusion cancelled"
# @fusionMode = false
end
when 1 #swap
if pokemon
if dexNum(pokemon.species) <= NB_POKEMON
pbSwap(selected)
else
pbDisplay(_INTL("This Pokémon is already fused!"))
end
else
pbDisplay(_INTL("Select a Pokémon!"))
end
when 2 #cancel
cancelFusion()
return
end
end
end
def reverseFromPC(selected)
box = selected[0]
index = selected[1]
pokemon = @storage[box, index]
if !pokemon.isFusion?
scene.pbDisplay(_INTL("It won't have any effect."))
return
end
if Kernel.pbConfirmMessageSerious(_INTL("Should {1} be reversed?", pokemon.name))
reverseFusion(pokemon)
$PokemonBag.pbDeleteItem(:DNAREVERSER) if $PokemonBag.pbQuantity(:INFINITEREVERSERS) <= 0
end
end
def pbUnfuseFromPC(selected)
box = selected[0]
index = selected[1]
pokemon = @storage[box, index]
if pbConfirm(_INTL("Unfuse {1}?", pokemon.name))
item = selectSplicer()
return if item == nil
isSuperSplicer = isSuperSplicer?(item)
if pbUnfuse(pokemon, @scene, isSuperSplicer, selected)
if canDeleteItem(item)
$PokemonBag.pbDeleteItem(item)
end
end
@scene.pbHardRefresh
end
end
def selectSplicer()
dna_splicers_const = "DNA Splicers"
super_splicers_const = "Super Splicers"
infinite_splicers_const = "Infinite Splicers"
dnaSplicersQt = $PokemonBag.pbQuantity(:DNASPLICERS)
superSplicersQt = $PokemonBag.pbQuantity(:SUPERSPLICERS)
infiniteSplicersQt = $PokemonBag.pbQuantity(:INFINITESPLICERS)
infiniteSplicers2Qt = $PokemonBag.pbQuantity(:INFINITESPLICERS2)
options = []
options.push(_INTL "{1}", infinite_splicers_const) if infiniteSplicers2Qt > 0 || infiniteSplicersQt > 0
options.push(_INTL("{1} ({2})", super_splicers_const, superSplicersQt)) if superSplicersQt > 0
options.push(_INTL("{1} ({2})", dna_splicers_const, dnaSplicersQt)) if dnaSplicersQt > 0
if options.length <= 0
pbDisplay(_INTL("You have no fusion items available."))
return nil
end
cmd = pbShowCommands("Use which splicers?", options)
if cmd == -1
return nil
end
ret = options[cmd]
if ret.start_with?(dna_splicers_const)
return :DNASPLICERS
elsif ret.start_with?(super_splicers_const)
return :SUPERSPLICERS
elsif ret.start_with?(infinite_splicers_const)
return infiniteSplicers2Qt >= 1 ? :INFINITESPLICERS2 : :INFINITESPLICERS
end
return nil
end
end