Project: Generation 6 for Pokémon Essentials (Pokémon sprites and PBS files)

BlowDryGuy · Sep 28, 2015

This is really amazing and I really would like to use it.
However, it changes the sprite positions and you can barely even see the back sprites.
How do I return the sprite positions back to normal.

kakaruso · Sep 30, 2015

Awesome work, i have been testing it for a pair of days. Just have 1 error that i don't know how to solve. It will be awesome if someone can give me advice about how to fix this:

Code:

Script error within event 8, map 14 (Centro Pokemon):

Exception: NoMethodError

Message: Section137:2392:in `pbSelectBoxInternal'undefined method `>=' for [39]:Array

***Full script:

pbPokeCenterPC


Interpreter:243:in `pbExecuteScript'

PScreen_Storage:2384:in `loop'

PScreen_Storage:2432:in `pbSelectBoxInternal'

PScreen_Storage:2442:in `pbSelectBox'

PScreen_Storage:2440:in `loop'

PScreen_Storage:2462:in `pbSelectBox'

PScreen_Storage:583:in `pbStartScreen'

PScreen_Storage:582:in `loop'

PScreen_Storage:667:in `pbStartScreen'

PScreen_Storage:3106:in `access'


Interpreter:276:in `pbExecuteScript'
Interpreter:1606:in `command_355'
Interpreter:494:in `execute_command'
Interpreter:193:in `update'
Interpreter:106:in `loop'
Interpreter:198:in `update'
Scene_Map:103:in `update_rmxos_later'
Scene_Map:101:in `loop'
Scene_Map:114:in `update_rmxos_later'
Function:3758:in `update'
Scene_Map:68:in `main_rmxos_later'
Scene_Map:65:in `loop'
Scene_Map:72:in `main_rmxos_later'
Function:3741:in `main'
Main:47

I'm having this error while trying to use Someone's PC event , Character's Pc works fine.
I'm using rmxos system with this but i used other clean installation and same error happens.
Thank you guys for the help in advance.

Well for those who have the same problem as me this script works fine as PScene_storage.

Spoiler:

class PokemonBox
attr_reader :pokemon
attr_accessor :name
attr_accessor :background

def initialize(name,maxPokemon=60)
@pokemon=[]
@name=name
@background=nil
for i in 0...maxPokemon
@pokemon=nil
end
end

def full?
return (@pokemon.nitems==self.length)
end

def nitems
return @pokemon.nitems
end

def length
return @pokemon.length
end

def each
@pokemon.each{|item| yield item}
end

def []=(i,value)
@pokemon=value
end

def [](i)
return @pokemon
end
end

class PokemonStorage
attr_reader :boxes
attr_reader :party
attr_accessor :currentBox

def maxBoxes
return @boxes.length
end

def party
$Trainer.party
end

def party=(value)
raise ArgumentError.new("Not supported")
end

MARKINGCHARS=["●","■","▲","♥"]

def initialize(maxBoxes=STORAGEBOXES,maxPokemon=60)
@boxes=[]
for i in 0...maxBoxes
ip1=i+1
@boxes=PokemonBox.new(_ISPRINTF("Box {1:d}",ip1),maxPokemon)
backid=i%24
@boxes.background="box#{backid}"
end
@currentBox=0
@boxmode=-1
end

def maxPokemon(box)
return 0 if box>=self.maxBoxes
return box<0 ? 6 : self[box].length
end

def [](x,y=nil)
if y==nil
return (x==-1) ? self.party : @boxes[x]
else
for i in @boxes
raise "Box is a Pokémon, not a box" if i.is_a?(PokeBattle_Pokemon)
end
return (x==-1) ? self.party[y] : @boxes[x][y]
end
end

def []=(x,y,value)
if x==-1
self.party[y]=value
else
@boxes[x][y]=value
end
end

def full?
for i in 0...self.maxBoxes
return false if !@boxes.full?
end
return true
end

def pbFirstFreePos(box)
if box==-1
ret=self.party.nitems
return (ret==6) ? -1 : ret
else
for i in 0...maxPokemon(box)
return i if !self[box,i]
end
return -1
end
end

def pbCopy(boxDst,indexDst,boxSrc,indexSrc)
if indexDst<0 && boxDst<self.maxBoxes
found=false
for i in 0...maxPokemon(boxDst)
if !self[boxDst,i]
found=true
indexDst=i
break
end
end
return false if !found
end
if boxDst==-1
if self.party.nitems>=6
return false
end
self.party[self.party.length]=self[boxSrc,indexSrc]
self.party.compact!
else
if !self[boxSrc,indexSrc]
raise "Trying to copy nil to storage" # not localized
end
self[boxDst,indexDst]=self[boxSrc,indexSrc]
end
return true
end

def pbMove(boxDst,indexDst,boxSrc,indexSrc)
return false if !pbCopy(boxDst,indexDst,boxSrc,indexSrc)
pbDelete(boxSrc,indexSrc)
return true
end

def pbMoveCaughtToParty(pkmn)
if self.party.nitems>=6
return false
end
self.party[self.party.length]=pkmn
end

def pbMoveCaughtToBox(pkmn,box)
for i in 0...maxPokemon(box)
if self[box,i]==nil
self[box,i]=pkmn
return true
end
end
return false
end

def pbStoreCaught(pkmn)
for i in 0...maxPokemon(@currentBox)
if self[@currentBox,i]==nil
self[@currentBox,i]=pkmn
return @currentBox
end
end
for j in 0...self.maxBoxes
for i in 0...maxPokemon(j)
if self[j,i]==nil
self[j,i]=pkmn
@currentBox=j
return @currentBox
end
end
end
return -1
end

def pbDelete(box,index)
if self[box,index]
self[box,index]=nil
if box==-1
self.party.compact!
end
end
end
end

class PokemonStorageWithParty < PokemonStorage
def party
return @party
end

def party=(value)
@party=party
end

def initialize(maxBoxes=30,maxPokemon=60,party=nil)
super(maxBoxes,maxPokemon)
if party
@party=party
else
@party=[]
end
end
end

class PokemonStorageScreen
attr_reader :scene
attr_reader :storage

def initialize(scene,storage)
@scene=scene
@storage=storage
@pbHeldPokemon=nil
end

def pbConfirm(str)
return (pbShowCommands(str,[_INTL("Yes"),_INTL("No")])==0)
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
pbDisplay(_INTL("That's your last Pokémon!"))
return
end
command=pbShowCommands(_INTL("Release this Pokémon?"),[_INTL("No"),_INTL("Yes")])
if command==1
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 pbMark(selected,heldpoke)
@scene.pbMark(selected,heldpoke)
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 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
pbDisplay(_INTL("That's your last Pokémon!"))
elsif @storage[box,index].mail
pbDisplay(_INTL("Please remove the Mail."))
else
loop do
[email protected](_INTL("Deposit in which Box?"))
if destbox>=0
success=false
[email protected](destbox)
if firstfree<0
pbDisplay(_INTL("The Box is full."))
next
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 pbWithdraw(selected,heldpoke)
box=selected[0]
index=selected[1]
if box==-1
raise _INTL("Can't withdraw from party...");
end
if @storage.party.nitems>=6
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 pbDisplay(message)
@scene.pbDisplay(message)
end

def pbSummary(selected,heldpoke)
@scene.pbSummary(selected,heldpoke)
end

def pbHold(selected)
box=selected[0]
index=selected[1]
if box==-1 && pbAble?(@storage[box,index]) && pbAbleCount<=1
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 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)
pbDisplay(_INTL("That's your last Pokémon!"))
return false
end
if box!=-1 && @heldpkmn.mail
pbDisplay("Please remove the mail.")
return false
end
@scene.pbSwap(selected,@heldpkmn)
tmp=@storage[box,index]
@storage[box,index]=@heldpkmn
@heldpkmn=tmp
@scene.pbRefresh
return true
end

def pbPlace(selected)
box=selected[0]
index=selected[1]
if @storage[box,index]
raise _INTL("Position {1},{2} is not empty...",box,index)
end
if box!=-1 && index>[email protected](box)
pbDisplay("Can't place that there.")
return
end
if box!=-1 && @heldpkmn.mail
pbDisplay("Please remove the mail.")
return
end
@scene.pbPlace(selected,@heldpkmn)
@storage[box,index]=@heldpkmn
if box==-1
@storage.party.compact!
end
@scene.pbRefresh
@heldpkmn=nil
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>0
itemname=PBItems.getName(pokemon.item)
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=0
@scene.pbHardRefresh
end
end
else
item=scene.pbChooseItem($PokemonBag)
if item>0
itemname=PBItems.getName(item)
pokemon.item=item
$PokemonBag.pbDeleteItem(item)
pbDisplay(_INTL("{1} is now being held.",itemname))
@scene.pbHardRefresh
end
end
end

def pbHeldPokemon
return @heldpkmn
end

=begin
commands=[
_INTL("WITHDRAW POKéMON"),
_INTL("DEPOSIT POKéMON"),
_INTL("MOVE POKéMON"),
_INTL("MOVE ITEMS"),
_INTL("SEE YA!")
]
helptext=[
_INTL("Move Pokémon stored in boxes to your party."),
_INTL("Store Pokémon in your party in Boxes."),
_INTL("Organize the Pokémon in Boxes and in your party."),
_INTL("Move items held by any Pokémon in a Box and your party."),
_INTL("Return to the previous menu."),
]
command=pbShowCommandsAndHelp(commands,helptext)
=end

def pbShowCommands(msg,commands)
return @scene.pbShowCommands(msg,commands)
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
[email protected](_INTL("Jump to which Box?"))
if destbox>=0
@scene.pbJumpToBox(destbox)
end
when 1
commands=[
_INTL("Forest"),
_INTL("City"),
_INTL("Desert"),
_INTL("Savanna"),
_INTL("Crag"),
_INTL("Volcano"),
_INTL("Snow"),
_INTL("Cave"),
_INTL("Beach"),
_INTL("Seafloor"),
_INTL("River"),
_INTL("Sky"),
_INTL("Poké Center"),
_INTL("Machine"),
_INTL("Checks"),
_INTL("Simple"),
_INTL("Heart"),
_INTL("Soul"),
_INTL("Retro"),
_INTL("Compete"),
_INTL("Trio"),
_INTL("Pika"),
_INTL("Kimono Girl"),
_INTL("Rocket")
]
wpaper=pbShowCommands(_INTL("Pick the wallpaper."),commands)
if wpaper>=0
@scene.pbChangeBackground(wpaper)
end
when 2
@scene.pbBoxName(_INTL("Box name?"),0,12)
end
end

def pbChoosePokemon(party=nil)
@heldpkmn=nil
@scene.pbStartBox(self,2)
retval=nil
loop do
[email protected](@storage.party)
if selected && selected[0]==-3 # Close box
if pbConfirm(_INTL("Exit from the Box?"))
break
else
next
end
end
if selected==nil
if pbConfirm(_INTL("Continue Box operations?"))
next
else
break
end
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"))
if selected[0]==-1
commands[2]=_INTL("Store")
else
commands[2]=_INTL("Withdraw")
end
helptext=_INTL("{1} is selected.",pokemon.name)
command=pbShowCommands(helptext,commands)
case command
when 0 # Move/Shift/Place
if pokemon
retval=selected
break
end
when 1 # Summary
pbSummary(selected,nil)
when 2 # Withdraw
if selected[0]==-1
pbStore(selected,nil)
else
pbWithdraw(selected,nil)
end
when 3 # Item
pbItem(selected,nil)
when 4 # Mark
pbMark(selected,nil)
end
end
end
@scene.pbCloseBox
return retval
end

def pbStartScreen(command)
@heldpkmn=nil
if command==0
### WITHDRAW ###################################################################
@scene.pbStartBox(self,command)
loop do
[email protected](@storage.party)
if selected && selected[0]==-3 # Close box
if pbConfirm(_INTL("Exit from the Box?"))
break
else
next
end
end
if selected && selected[0]==-2 # Party Pokémon
pbDisplay(_INTL("Which one will you take?"))
next
end
if selected && selected[0]==-4 # Box name
pbBoxCommands
next
end
if selected==nil
if pbConfirm(_INTL("Continue Box operations?"))
next
else
break
end
else
pokemon=@storage[selected[0],selected[1]]
next if !pokemon
command=pbShowCommands(
_INTL("{1} is selected.",pokemon.name),[_INTL("Withdraw"),
_INTL("Summary"),_INTL("Mark"),_INTL("Release"),_INTL("Cancel")])
case command
when 0 # Withdraw
pbWithdraw(selected,nil)
when 1 # Summary
pbSummary(selected,nil)
when 2 # Mark
pbMark(selected,nil)
when 3 # Release
pbRelease(selected,nil)
end
end
end
@scene.pbCloseBox
elsif command==1
### DEPOSIT ####################################################################
@scene.pbStartBox(self,command)
loop do
[email protected](@storage.party)
if selected==-3 # Close box
if pbConfirm(_INTL("Exit from the Box?"))
break
else
next
end
end
if selected<0
if pbConfirm(_INTL("Continue Box operations?"))
next
else
break
end
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 # Store
pbStore([-1,selected],nil)
when 1 # Summary
pbSummary([-1,selected],nil)
when 2 # Mark
pbMark([-1,selected],nil)
when 3 # Release
pbRelease([-1,selected],nil)
end
end
end
@scene.pbCloseBox
elsif command==2
### MOVE #######################################################################
@scene.pbStartBox(self,command)
loop do
[email protected](@storage.party)
if selected && selected[0]==-3 # Close box
if pbHeldPokemon
pbDisplay(_INTL("You're holding a Pokémon!"))
next
end
if pbConfirm(_INTL("Exit from the Box?"))
break
else
next
end
end
if selected==nil
if pbHeldPokemon
pbDisplay(_INTL("You're holding a Pokémon!"))
next
end
if pbConfirm(_INTL("Continue Box operations?"))
next
else
break
end
elsif selected[0]==-4 # Box name
pbBoxCommands
else
pokemon=@storage[selected[0],selected[1]]
commands=[
_INTL("Move"),
_INTL("Summary"),
_INTL("Withdraw"),
_INTL("Item"),
_INTL("Mark"),
_INTL("Release")
]
commands.push(_INTL("Debug")) if $DEBUG
commands.push(_INTL("Cancel"))
heldpoke=pbHeldPokemon
if heldpoke
helptext=_INTL("{1} is selected.",heldpoke.name)
commands[0]=pokemon ? _INTL("Shift") : _INTL("Place")
elsif pokemon
helptext=_INTL("{1} is selected.",pokemon.name)
commands[0]=_INTL("Move")
else
next
end
if selected[0]==-1
commands[2]=_INTL("Store")
else
commands[2]=_INTL("Withdraw")
end
command=pbShowCommands(helptext,commands)
case command
when 0 # Move/Shift/Place
if @heldpkmn && pokemon
pbSwap(selected)
elsif @heldpkmn
pbPlace(selected)
else
pbHold(selected)
end
when 1 # Summary
pbSummary(selected,@heldpkmn)
when 2 # Withdraw
if selected[0]==-1
pbStore(selected,@heldpkmn)
else
pbWithdraw(selected,@heldpkmn)
end
when 3 # Item
pbItem(selected,@heldpkmn)
when 4 # Mark
pbMark(selected,@heldpkmn)
when 5 # Release
pbRelease(selected,@heldpkmn)
when 6
if $DEBUG
pkmn=@heldpkmn ? @heldpkmn : pokemon
debugMenu(selected,pkmn,heldpoke)
else
break
end
end
end
end
@scene.pbCloseBox
elsif command==3
@scene.pbStartBox(self,command)
@scene.pbCloseBox
end
end

def debugMenu(selected,pkmn,heldpoke)
command=0
loop do
[email protected](_INTL("Do what with {1}?",pkmn.name),[
_INTL("Level"),
_INTL("Species"),
_INTL("Moves"),
_INTL("Gender"),
_INTL("Ability"),
_INTL("Nature"),
_INTL("Shininess"),
_INTL("Form"),
_INTL("Happiness"),
_INTL("EV/IV/pID"),
_INTL("Pokérus"),
_INTL("Ownership"),
_INTL("Nickname"),
_INTL("Poké Ball"),
_INTL("Ribbons"),
_INTL("Egg"),
_INTL("Shadow Pokémon"),
_INTL("Make Mystery Gift"),
_INTL("Duplicate"),
_INTL("Delete"),
_INTL("Cancel")
],command)
case command
### Cancel ###
when -1, 20
break
### Level ###
when 0
params=ChooseNumberParams.new
params.setRange(1,PBExperience::MAXLEVEL)
params.setDefaultValue(pkmn.level)
level=Kernel.pbMessageChooseNumber(
_INTL("Set the Pokémon's level (max. {1}).",PBExperience::MAXLEVEL),params)
if level!=pkmn.level
pkmn.level=level
pkmn.calcStats
pbDisplay(_INTL("{1}'s level was set to {2}.",pkmn.name,pkmn.level))
@scene.pbHardRefresh
end
### Species ###
when 1
species=pbChooseSpecies(pkmn.species)
if species!=0
oldspeciesname=PBSpecies.getName(pkmn.species)
pkmn.species=species
pkmn.calcStats
oldname=pkmn.name
pkmn.name=PBSpecies.getName(pkmn.species) if pkmn.name==oldspeciesname
pbDisplay(_INTL("{1}'s species was changed to {2}.",oldname,PBSpecies.getName(pkmn.species)))
pbSeenForm(pkmn)
@scene.pbHardRefresh
end
### Moves ###
when 2
cmd=0
loop do
[email protected](_INTL("Do what with {1}?",pkmn.name),[
_INTL("Teach move"),
_INTL("Forget move"),
_INTL("Reset movelist")],cmd)
# Break
if cmd==-1
break
# Teach move
elsif cmd==0
move=pbChooseMoveList
if move!=0
pbLearnMove(pkmn,move)
@scene.pbHardRefresh
end
# Forget Move
elsif cmd==1
pbChooseMove(pkmn,1,2)
if pbGet(1)>=0
pbDeleteMove(pkmn,pbGet(1))
pbDisplay(_INTL("{1} forgot {2}.",pkmn.name,pbGet(2)))
@scene.pbHardRefresh
end
# Reset Movelist
elsif cmd==2
pkmn.resetMoves
pbDisplay(_INTL("{1}'s moves were reset.",pkmn.name))
@scene.pbHardRefresh
end
end
### Gender ###
when 3
if pkmn.gender==2
pbDisplay(_INTL("{1} is genderless.",pkmn.name))
else
cmd=0
loop do
oldgender=(pkmn.gender==0) ? _INTL("male") : _INTL("female")
msg=[_INTL("Gender {1} is natural.",oldgender),
_INTL("Gender {1} is being forced.",oldgender)][pkmn.genderflag ? 1 : 0]
[email protected](msg,[
_INTL("Make male"),
_INTL("Make female"),
_INTL("Remove override")],cmd)
# Break
if cmd==-1
break
# Make male
elsif cmd==0
pkmn.setGender(0)
if pkmn.gender==0
pbDisplay(_INTL("{1} is now male.",pkmn.name))
else
pbDisplay(_INTL("{1}'s gender couldn't be changed.",pkmn.name))
end
# Make female
elsif cmd==1
pkmn.setGender(1)
if pkmn.gender==1
pbDisplay(_INTL("{1} is now female.",pkmn.name))
else
pbDisplay(_INTL("{1}'s gender couldn't be changed.",pkmn.name))
end
# Remove override
elsif cmd==2
pkmn.genderflag=nil
pbDisplay(_INTL("Gender override removed."))
end
pbSeenForm(pkmn)
@scene.pbHardRefresh
end
end
### Ability ###
when 4
cmd=0
loop do
abils=pkmn.getAbilityList
oldabil=PBAbilities.getName(pkmn.ability)
commands=[]
for i in abils[0]
commands.push(PBAbilities.getName(i))
end
commands.push(_INTL("Remove override"))
msg=[_INTL("Ability {1} is natural.",oldabil),
_INTL("Ability {1} is being forced.",oldabil)][pkmn.abilityflag ? 1 : 0]
[email protected](msg,commands,cmd)
# Break
if cmd==-1
break
# Set ability override
elsif cmd>=0 && cmd<abils[0].length
pkmn.setAbility(abils[1][cmd])
# Remove override
elsif cmd==abils[0].length
pkmn.abilityflag=nil
end
@scene.pbHardRefresh
end
### Nature ###
when 5
cmd=0
loop do
oldnature=PBNatures.getName(pkmn.nature)
commands=[]
(PBNatures.getCount).times do |i|
commands.push(PBNatures.getName(i))
end
commands.push(_INTL("Remove override"))
msg=[_INTL("Nature {1} is natural.",oldnature),
_INTL("Nature {1} is being forced.",oldnature)][pkmn.natureflag ? 1 : 0]
[email protected](msg,commands,cmd)
# Break
if cmd==-1
break
# Set nature override
elsif cmd>=0 && cmd<PBNatures.getCount
pkmn.setNature(cmd)
pkmn.calcStats
# Remove override
elsif cmd==PBNatures.getCount
pkmn.natureflag=nil
end
@scene.pbHardRefresh
end
### Shininess ###
when 6
cmd=0
loop do
oldshiny=(pkmn.isShiny?) ? _INTL("shiny") : _INTL("normal")
msg=[_INTL("Shininess ({1}) is natural.",oldshiny),
_INTL("Shininess ({1}) is being forced.",oldshiny)][pkmn.shinyflag!=nil ? 1 : 0]
[email protected](msg,[
_INTL("Make shiny"),
_INTL("Make normal"),
_INTL("Remove override")],cmd)
# Break
if cmd==-1
break
# Make shiny
elsif cmd==0
pkmn.makeShiny
# Make normal
elsif cmd==1
pkmn.makeNotShiny
# Remove override
elsif cmd==2
pkmn.shinyflag=nil
end
@scene.pbHardRefresh
end
### Form ###
when 7
params=ChooseNumberParams.new
params.setRange(0,27)
params.setDefaultValue(pkmn.form)
f=Kernel.pbMessageChooseNumber(
_INTL("Set the Pokémon's form."),params)
if f!=pkmn.form
pkmn.form=f
pbDisplay(_INTL("{1}'s form was set to {2}.",pkmn.name,pkmn.form))
pbSeenForm(pkmn)
@scene.pbHardRefresh
end
### Happiness ###
when 8
params=ChooseNumberParams.new
params.setRange(0,255)
params.setDefaultValue(pkmn.happiness)
h=Kernel.pbMessageChooseNumber(
_INTL("Set the Pokémon's happiness (max. 255)."),params)
if h!=pkmn.happiness
pkmn.happiness=h
pbDisplay(_INTL("{1}'s happiness was set to {2}.",pkmn.name,pkmn.happiness))
@scene.pbHardRefresh
end
### EV/IV/pID ###
when 9
stats=[_INTL("HP"),_INTL("Attack"),_INTL("Defense"),
_INTL("Speed"),_INTL("Sp. Attack"),_INTL("Sp. Defense")]
cmd=0
loop do
persid=sprintf("0x%08X",pkmn.personalID)
[email protected](_INTL("Personal ID is {1}.",persid),[
_INTL("Set EVs"),
_INTL("Set IVs"),
_INTL("Randomise pID")],cmd)
case cmd
# Break
when -1
break
# Set EVs
when 0
cmd2=0
loop do
evcommands=[]
for i in 0...stats.length
evcommands.push(stats+" (#{pkmn.ev})")
end
[email protected](_INTL("Change which EV?"),evcommands,cmd2)
if cmd2==-1
break
elsif cmd2>=0 && cmd2<stats.length
params=ChooseNumberParams.new
params.setRange(0,255)
params.setDefaultValue(pkmn.ev[cmd2])
params.setCancelValue(pkmn.ev[cmd2])
f=Kernel.pbMessageChooseNumber(
_INTL("Set the EV for {1} (max. 255).",stats[cmd2]),params)
pkmn.ev[cmd2]=f
pkmn.calcStats
@scene.pbHardRefresh
end
end
# Set IVs
when 1
cmd2=0
loop do
hiddenpower=pbHiddenPower(pkmn.iv)
msg=_INTL("Hidden Power:\n{1}, power {2}.",PBTypes.getName(hiddenpower[0]),hiddenpower[1])
ivcommands=[]
for i in 0...stats.length
ivcommands.push(stats+" (#{pkmn.iv})")
end
ivcommands.push(_INTL("Randomise all"))
[email protected](msg,ivcommands,cmd2)
if cmd2==-1
break
elsif cmd2>=0 && cmd2<stats.length
params=ChooseNumberParams.new
params.setRange(0,31)
params.setDefaultValue(pkmn.iv[cmd2])
params.setCancelValue(pkmn.iv[cmd2])
f=Kernel.pbMessageChooseNumber(
_INTL("Set the IV for {1} (max. 31).",stats[cmd2]),params)
pkmn.iv[cmd2]=f
pkmn.calcStats
@scene.pbHardRefresh
elsif cmd2==ivcommands.length-1
pkmn.iv[0]=rand(32)
pkmn.iv[1]=rand(32)
pkmn.iv[2]=rand(32)
pkmn.iv[3]=rand(32)
pkmn.iv[4]=rand(32)
pkmn.iv[5]=rand(32)
pkmn.calcStats
@scene.pbHardRefresh
end
end
# Randomise pID
when 2
pkmn.personalID=rand(256)
pkmn.personalID|=rand(256)<<8
pkmn.personalID|=rand(256)<<16
pkmn.personalID|=rand(256)<<24
pkmn.calcStats
@scene.pbHardRefresh
end
end
### Pokérus ###
when 10
cmd=0
loop do
pokerus=(pkmn.pokerus) ? pkmn.pokerus : 0
msg=[_INTL("{1} doesn't have Pokérus.",pkmn.name),
_INTL("Has strain {1}, infectious for {2} more days.",pokerus/16,pokerus%16),
_INTL("Has strain {1}, not infectious.",pokerus/16)][pkmn.pokerusStage]
[email protected](msg,[
_INTL("Give random strain"),
_INTL("Make not infectious"),
_INTL("Clear Pokérus")],cmd)
# Break
if cmd==-1
break
# Give random strain
elsif cmd==0
pkmn.givePokerus
# Make not infectious
elsif cmd==1
strain=pokerus/16
p=strain<<4
pkmn.pokerus=p
# Clear Pokérus
elsif cmd==2
pkmn.pokerus=0
end
end
### Ownership ###
when 11
cmd=0
loop do
gender=[_INTL("Male"),_INTL("Female"),_INTL("Unknown")][pkmn.otgender]
msg=[_INTL("Player's Pokémon\n{1}\n{2}\n{3} ({4})",pkmn.ot,gender,pkmn.publicID,pkmn.trainerID),
_INTL("Foreign Pokémon\n{1}\n{2}\n{3} ({4})",pkmn.ot,gender,pkmn.publicID,pkmn.trainerID)
][pkmn.isForeign?($Trainer) ? 1 : 0]
[email protected](msg,[
_INTL("Make player's"),
_INTL("Set OT's name"),
_INTL("Set OT's gender"),
_INTL("Random foreign ID"),
_INTL("Set foreign ID")],cmd)
# Break
if cmd==-1
break
# Make player's
elsif cmd==0
pkmn.trainerID=$Trainer.id
pkmn.ot=$Trainer.name
pkmn.otgender=$Trainer.gender
# Set OT's name
elsif cmd==1
newot=pbEnterText(_INTL("{1}'s OT's name?",pkmn.name),1,7)
pkmn.ot=newot
# Set OT's gender
elsif cmd==2
[email protected](_INTL("Set OT's gender."),
[_INTL("Male"),_INTL("Female"),_INTL("Unknown")])
pkmn.otgender=cmd2 if cmd2>=0
# Random foreign ID
elsif cmd==3
pkmn.trainerID=$Trainer.getForeignID
# Set foreign ID
elsif cmd==4
params=ChooseNumberParams.new
params.setRange(0,65535)
params.setDefaultValue(pkmn.publicID)
val=Kernel.pbMessageChooseNumber(
_INTL("Set the new ID (max. 65535)."),params)
pkmn.trainerID=val
pkmn.trainerID|=val<<16
end
end
### Nickname ###
when 12
cmd=0
loop do
speciesname=PBSpecies.getName(pkmn.species)
msg=[_INTL("{1} has the nickname {2}.",speciesname,pkmn.name),
_INTL("{1} has no nickname.",speciesname)][pkmn.name==speciesname ? 1 : 0]
[email protected](msg,[
_INTL("Rename"),
_INTL("Erase name")],cmd)
# Break
if cmd==-1
break
# Rename
elsif cmd==0
newname=pbEnterText(_INTL("{1}'s nickname?",speciesname),0,10)
pkmn.name=(newname=="") ? speciesname : newname
@scene.pbHardRefresh
# Erase name
elsif cmd==1
pkmn.name=speciesname
end
end
### Poké Ball ###
when 13
cmd=0
loop do
oldball=PBItems.getName(pbBallTypeToBall(pkmn.ballused))
commands=[]; balls=[]
for key in $BallTypes.keys
item=getID(PBItems,$BallTypes[key])
balls.push([key,PBItems.getName(item)]) if item && item>0
end
balls.sort! {|a,b| a[1]<=>b[1]}
for i in 0...commands.length
cmd=i if pkmn.ballused==balls[0]
end
for i in balls
commands.push(i[1])
end
[email protected](_INTL("{1} used.",oldball),commands,cmd)
if cmd==-1
break
else
pkmn.ballused=balls[cmd][0]
end
end
### Ribbons ###
when 14
cmd=0
loop do
commands=[]
for i in 1..PBRibbons.maxValue
commands.push(_INTL("{1} {2}",
pkmn.hasRibbon?(i) ? "[X]" : "[ ]",PBRibbons.getName(i)))
end
[email protected](_INTL("{1} ribbons.",pkmn.ribbonCount),commands,cmd)
if cmd==-1
break
elsif cmd>=0 && cmd<commands.length
if pkmn.hasRibbon?(cmd+1)
pkmn.takeRibbon(cmd+1)
else
pkmn.giveRibbon(cmd+1)
end
end
end
### Egg ###
when 15
cmd=0
loop do
msg=[_INTL("Not an egg"),
_INTL("Egg with eggsteps: {1}.",pkmn.eggsteps)][pkmn.egg? ? 1 : 0]
[email protected](msg,[
_INTL("Make egg"),
_INTL("Make Pokémon"),
_INTL("Set eggsteps to 1")],cmd)
# Break
if cmd==-1
break
# Make egg
elsif cmd==0
if pbHasEgg?(pkmn.species) ||
pbConfirm(_INTL("{1} cannot be an egg. Make egg anyway?",PBSpecies.getName(pkmn.species)))
pkmn.level=EGGINITIALLEVEL
pkmn.calcStats
pkmn.name=_INTL("Egg")
dexdata=pbOpenDexData
pbDexDataOffset(dexdata,pkmn.species,21)
pkmn.eggsteps=dexdata.fgetw
dexdata.close
pkmn.hatchedMap=0
pkmn.obtainMode=1
@scene.pbHardRefresh
end
# Make Pokémon
elsif cmd==1
pkmn.name=PBSpecies.getName(pkmn.species)
pkmn.eggsteps=0
pkmn.hatchedMap=0
pkmn.obtainMode=0
@scene.pbHardRefresh
# Set eggsteps to 1
elsif cmd==2
pkmn.eggsteps=1 if pkmn.eggsteps>0
end
end
### Shadow Pokémon ###
when 16
cmd=0
loop do
msg=[_INTL("Not a Shadow Pokémon."),
_INTL("Heart gauge is {1}.",pkmn.heartgauge)][(pkmn.isShadow? rescue false) ? 1 : 0]
[email protected](msg,[
_INTL("Make Shadow"),
_INTL("Lower heart gauge")],cmd)
# Break
if cmd==-1
break
# Make Shadow
elsif cmd==0
if !(pkmn.isShadow? rescue false) && pkmn.respond_to?("makeShadow")
pkmn.makeShadow
pbDisplay(_INTL("{1} is now a Shadow Pokémon.",pkmn.name))
@scene.pbHardRefresh
else
pbDisplay(_INTL("{1} is already a Shadow Pokémon.",pkmn.name))
end
# Lower heart gauge
elsif cmd==1
if (pkmn.isShadow? rescue false)
prev=pkmn.heartgauge
pkmn.adjustHeart(-700)
Kernel.pbMessage(_INTL("{1}'s heart gauge was lowered from {2} to {3} (now stage {4}).",
pkmn.name,prev,pkmn.heartgauge,pkmn.heartStage))
pbReadyToPurify(pkmn)
else
Kernel.pbMessage(_INTL("{1} is not a Shadow Pokémon.",pkmn.name))
end
end
end
### Make Mystery Gift ###
when 17
pbCreateMysteryGift(0,pkmn)
### Duplicate ###
when 18
if pbConfirm(_INTL("Are you sure you want to copy this Pokémon?"))
clonedpkmn=pkmn.clone
clonedpkmn.iv=pkmn.iv.clone
clonedpkmn.ev=pkmn.ev.clone
if @storage.pbMoveCaughtToParty(clonedpkmn)
if selected[0]!=-1
pbDisplay(_INTL("The duplicated Pokémon was moved to your party."))
end
else
[email protected]
[email protected](clonedpkmn)
if newbox<0
pbDisplay(_INTL("All boxes are full."))
elsif newbox!=oldbox
pbDisplay(_INTL("The duplicated Pokémon was moved to box "{1}."",@storage[newbox].name))
@storage.currentBox=oldbox
end
end
@scene.pbHardRefresh
break
end
### Delete ###
when 19
if pbConfirm(_INTL("Are you sure you want to delete this Pokémon?"))
@scene.pbRelease(selected,heldpoke)
if heldpoke
@heldpkmn=nil
else
@storage.pbDelete(selected[0],selected[1])
end
@scene.pbRefresh
pbDisplay(_INTL("The Pokémon was deleted."))
break
end
end
end
end

def selectPokemon(index)
pokemon=@storage[@currentbox,index]
if !pokemon
return nil
end
end
end

class Interpolator
ZOOM_X=1
ZOOM_Y=2
X=3
Y=4
OPACITY=5
COLOR=6
WAIT=7

def initialize
@tweening=false
@tweensteps=[]
@sprite=nil
@frames=0
@step=0
end

def tweening?
return @tweening
end

def tween(sprite,items,frames)
@tweensteps=[]
if sprite && !sprite.disposed? && frames>0
@frames=frames
@step=0
@sprite=sprite
for item in items
case item[0]
when ZOOM_X
@tweensteps[item[0]]=[sprite.zoom_x,item[1]-sprite.zoom_x]
when ZOOM_Y
@tweensteps[item[0]]=[sprite.zoom_y,item[1]-sprite.zoom_y]
when X
@tweensteps[item[0]]=[sprite.x,item[1]-sprite.x]
when Y
@tweensteps[item[0]]=[sprite.y,item[1]-sprite.y]
when OPACITY
@tweensteps[item[0]]=[sprite.opacity,item[1]-sprite.opacity]
when COLOR
@tweensteps[item[0]]=[sprite.color.clone,Color.new(
item[1].red-sprite.color.red,
item[1].green-sprite.color.green,
item[1].blue-sprite.color.blue,
item[1].alpha-sprite.color.alpha
)]
end
end
@tweening=true
end
end

def update
if @tweening
t=(@step*1.0)/@frames
for i in [email protected]
item=@tweensteps
next if !item
case i
when ZOOM_X
@sprite.zoom_x=item[0]+item[1]*t
when ZOOM_Y
@sprite.zoom_y=item[0]+item[1]*t
when X
@sprite.x=item[0]+item[1]*t
when Y
@sprite.y=item[0]+item[1]*t
when OPACITY
@sprite.opacity=item[0]+item[1]*t
when COLOR
@sprite.color=Color.new(
item[0].red+item[1].red*t,
item[0].green+item[1].green*t,
item[0].blue+item[1].blue*t,
item[0].alpha+item[1].alpha*t
)
end
end
@step+=1
if @step==@frames
@step=0
@frames=0
@tweening=false
end
end
end
end

class PokemonBoxIcon < IconSprite
def initialize(pokemon,viewport=nil)
super(0,0,viewport)
@release=Interpolator.new
@startRelease=false
@pokemon=pokemon
if pokemon
self.setBitmap(pbPokemonIconFile(pokemon))
end
self.src_rect=Rect.new(0,0,64,64)
end

def release
self.ox=32
self.oy=32
self.x+=32
self.y+=32
@release.tween(self,[
[Interpolator::ZOOM_X,0],
[Interpolator::ZOOM_Y,0],
[Interpolator::OPACITY,0]
],100)
@startRelease=true
end

def releasing?
return @release.tweening?
end

def update
super
@release.update
self.color=Color.new(0,0,0,0)
dispose if @startRelease && !releasing?
end
end

class PokemonBoxArrow < SpriteWrapper
def initialize(viewport=nil)
super(viewport)
@frame=0
@holding=false
@updating=false
@grabbingState=0
@placingState=0
@heldpkmn=nil
@swapsprite=nil
@fist=AnimatedBitmap.new("Graphics/Pictures/boxfist")
@point1=AnimatedBitmap.new("Graphics/Pictures/boxpoint1")
@point2=AnimatedBitmap.new("Graphics/Pictures/boxpoint2")
@grab=AnimatedBitmap.new("Graphics/Pictures/boxgrab")
@currentBitmap=@fist
@spriteX=self.x
@spriteY=self.y
[email protected]
end

def heldPokemon
@heldpkmn=nil if @heldpkmn && @heldpkmn.disposed?
@holding=false if !@heldpkmn
return @heldpkmn
end

def visible=(value)
super
sprite=heldPokemon
sprite.visible=value if sprite
end

def color=(value)
super
sprite=heldPokemon
sprite.color=value if sprite
end

def dispose
@fist.dispose
@point1.dispose
@point2.dispose
@grab.dispose
@heldpkmn.dispose if @heldpkmn
super
end

def holding?
return self.heldPokemon && @holding
end

def grabbing?
return @grabbingState>0
end

def placing?
return @placingState>0
end

def x=(value)
super
@spriteX=x if !@updating
heldPokemon.x=self.x if holding?
end

def y=(value)
super
@spriteY=y if !@updating
heldPokemon.y=self.y+16 if holding?
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
if @heldpkmn
@heldpkmn.release
end
end

def update
@updating=true
super
heldpkmn=heldPokemon
heldpkmn.update if heldpkmn
@fist.update
@point2.update
@point1.update
@grab.update
[email protected]
@holding=false if !heldpkmn
if @grabbingState>0
if @grabbingState<=8
@currentBitmap=@grab
[email protected]
self.y=@spriteY+(@grabbingState)*2
@grabbingState+=1
elsif @grabbingState<=16
@holding=true
@currentBitmap=@fist
[email protected]
self.y=@spriteY+(16-@grabbingState)*2
@grabbingState+=1
else
@grabbingState=0
end
elsif @placingState>0
if @placingState<=8
@currentBitmap=@fist
[email protected]
self.y=@spriteY+(@placingState)*2
@placingState+=1
elsif @placingState<=16
@holding=false
@heldpkmn=nil
@currentBitmap=@grab
[email protected]
self.y=@spriteY+(16-@placingState)*2
@placingState+=1
else
@placingState=0
end
elsif holding?
@currentBitmap=@fist
[email protected]
else
self.x=@spriteX
self.y=@spriteY
if (@frame/20)==1
@currentBitmap=@point2
[email protected]
else
@currentBitmap=@point1
[email protected]
end
end
@frame+=1
@frame=0 if @frame==40
@updating=false
end
end

class PokemonBoxPartySprite < SpriteWrapper
def deletePokemon(index)
@pokemonsprites[index].dispose
@pokemonsprites[index]=nil
@pokemonsprites.compact!
refresh
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 x=(value)
super
refresh
end

def y=(value)
super
refresh
end

def color=(value)
super
for i in 0...6
if @pokemonsprites && !@pokemonsprites.disposed?
@pokemonsprites.color=pbSrcOver(@pokemonsprites.color,value)
end
end
refresh
end

def visible=(value)
super
for i in 0...6
if @pokemonsprites && !@pokemonsprites.disposed?
@pokemonsprites.visible=value
end
end
refresh
end

def initialize(party,viewport=nil)
super(viewport)
@boxbitmap=AnimatedBitmap.new("Graphics/Pictures/boxpartytab")
@pokemonsprites=[]
@party=party
for i in 0...6
@pokemonsprites=nil
pokemon=@party
if pokemon
@pokemonsprites=PokemonBoxIcon.new(pokemon,viewport)
end
end
@contents=BitmapWrapper.new(172,352)
self.bitmap=@contents
self.x=182
self.y=Graphics.height-352
refresh
end

def dispose
for i in 0...6
@pokemonsprites.dispose if @pokemonsprites
end
@contents.dispose
@boxbitmap.dispose
super
end

def refresh
@contents.blt(0,0,@boxbitmap.bitmap,Rect.new(0,0,172,352))
xvalues=[16,92,16,92,16,92]
yvalues=[0,16,64,80,128,144]
for j in 0...6
@pokemonsprites[j]=nil if @pokemonsprites[j] && @pokemonsprites[j].disposed?
end
@pokemonsprites.compact!
for j in 0...6
sprite=@pokemonsprites[j]
if sprite && !sprite.disposed?
sprite.viewport=self.viewport
sprite.z=0
sprite.x=self.x+xvalues[j]
sprite.y=self.y+yvalues[j]
end
end
end

def update
super
for i in 0...6
if @pokemonsprites && !@pokemonsprites.disposed?
@pokemonsprites.update
end
end
end
end

class MosaicPokemonSprite < PokemonSprite
def initialize(*args)
super(*args)
@mosaic=0
@inrefresh=false
@mosaicbitmap=nil
@mosaicbitmap2=nil
@oldbitmap=self.bitmap
end

attr_reader :mosaic

def mosaic=(value)
@mosaic=value
@mosaic=0 if @mosaic<0
mosaicRefresh(@oldbitmap)
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 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

class PokemonBoxSprite < SpriteWrapper
attr_accessor :refreshBox
attr_accessor :refreshSprites

def deletePokemon(index)
@pokemonsprites[index].dispose
@pokemonsprites[index]=nil
refresh
end

def getPokemon(index)
return @pokemonsprites[index]
end

def setPokemon(index,sprite)
@pokemonsprites[index]=sprite
refresh
end

def grabPokemon(index,arrow)
sprite=@pokemonsprites[index]
if sprite
arrow.grab(sprite)
@pokemonsprites[index]=nil
refresh
end
end

def x=(value)
super
refresh
end

def y=(value)
super
refresh
end

def color=(value)
super
if @refreshSprites
for i in 0...30
if @pokemonsprites && !@pokemonsprites.disposed?
@pokemonsprites.color=value
end
end
end
refresh
end

def visible=(value)
super
for i in 0...30
if @pokemonsprites && !@pokemonsprites.disposed?
@pokemonsprites.visible=value
end
end
refresh
end

def getBoxBitmap
if !@bg || @bg!=@storage[@boxnumber].background
curbg=@storage[@boxnumber].background
if !curbg || curbg.length==0
boxid=@boxnumber%24
@bg="box#{boxid}"
else
@bg="#{curbg}"
end
@boxbitmap.dispose if @boxbitmap
@boxbitmap=AnimatedBitmap.new("Graphics/Pictures/#{@bg}")
end
end

def initialize(storage,boxnumber,viewport=nil)
super(viewport)
@storage=storage
@boxnumber=boxnumber
@refreshBox=true
@refreshSprites=true
@bg=nil
@boxbitmap=nil
getBoxBitmap
@pokemonsprites=[]
for i in 0...30
@pokemonsprites=nil
pokemon=@storage[boxnumber,i]
if pokemon
@pokemonsprites=PokemonBoxIcon.new(pokemon,viewport)
else
@pokemonsprites=PokemonBoxIcon.new(nil,viewport)
end
end
@contents=BitmapWrapper.new(324,296)
self.bitmap=@contents
self.x=184
self.y=18
refresh
end

def dispose
if !disposed?
for i in 0...30
@pokemonsprites.dispose if @pokemonsprites
@pokemonsprites=nil
end
@contents.dispose
@boxbitmap.dispose
super
end
end

def refresh
if @refreshBox
boxname=@storage[@boxnumber].name
getBoxBitmap
@contents.blt(0,0,@boxbitmap.bitmap,Rect.new(0,0,324,296))
pbSetSystemFont(@contents)
[email protected]_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...5
xval=self.x+10
for k in 0...6
sprite=@pokemonsprites[j*6+k]
if sprite && !sprite.disposed?
sprite.viewport=self.viewport
sprite.z=0
sprite.x=xval
sprite.y=yval
end
xval+=48
end
yval+=48
end
end

def update
super
for i in 0...30
if @pokemonsprites && !@pokemonsprites.disposed?
@pokemonsprites.update
end
end
end
end

class PokemonStorageScene
def initialize
@command=0
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
@sprites={}
@choseFromParty=false
@command=command
addBackgroundPlane(@sprites,"background","boxbg",@bgviewport)
@sprites["box"]=PokemonBoxSprite.new(@storage,@storage.currentBox,@boxviewport)
@sprites["boxsides"]=IconSprite.new(0,0,@boxsidesviewport)
@sprites["boxsides"].setBitmap("Graphics/Pictures/boxsides")
@sprites["overlay"]=BitmapSprite.new(Graphics.width,Graphics.height,@boxsidesviewport)
@sprites["pokemon"]=AutoMosaicPokemonSprite.new(@boxsidesviewport)
pbSetSystemFont(@sprites["overlay"].bitmap)
@sprites["boxparty"]=PokemonBoxPartySprite.new(@storage.party,@boxsidesviewport)
if command!=1 # Drop down tab only on Deposit
@sprites["boxparty"].x=182
@sprites["boxparty"].y=Graphics.height
end
@sprites["arrow"]=PokemonBoxArrow.new(@arrowviewport)
@sprites["arrow"].z+=1
if command!=1
pbSetArrow(@sprites["arrow"],@selection)
pbUpdateOverlay(@selection)
pbSetMosaic(@selection)
else
pbPartySetArrow(@sprites["arrow"],@selection)
pbUpdateOverlay(@selection,@storage.party)
pbSetMosaic(@selection)
end
pbFadeInAndShow(@sprites)
end

def pbCloseBox
pbFadeOutAndHide(@sprites)
pbDisposeSpriteHash(@sprites)
@boxviewport.dispose
@boxsidesviewport.dispose
@arrowviewport.dispose
end

def pbSetArrow(arrow,selection)
case selection
when -1, -4, -5 # Box name, move left, move right
arrow.y=-16
arrow.x=157*2
when -2 # Party Pokémon
arrow.y=143*2
arrow.x=119*2
when -3 # Close Box
arrow.y=143*2
arrow.x=207*2
else
arrow.x = (97+24*(selection%6) ) * 2
arrow.y = (8+24*(selection/6) ) * 2
end
end

def pbChangeSelection(key,selection)
case key
when Input::UP
if selection==-1 # Box name
selection=-2
elsif selection==-2 # Party
selection=25
elsif selection==-3 # Close Box
selection=28
else
selection-=6
selection=-1 if selection<0
end
when Input::DOWN
if selection==-1 # Box name
selection=2
elsif selection==-2 # Party
selection=-1
elsif selection==-3 # Close Box
selection=-1
else
selection+=6
selection=-2 if selection==30||selection==31||selection==32
selection=-3 if selection==33||selection==34||selection==35
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
else
selection+=1
selection-=6 if selection%6==0
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
else
selection-=1
selection+=6 if selection==-1||selection%6==5
end
end
return selection
end

def pbPartySetArrow(arrow,selection)
if selection>=0
xvalues=[99,137,99,137,99,137,118]
yvalues=[0,8,32,40,64,72,114]
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 pbPartyChangeSelection(key,selection)
case key
when Input::LEFT
selection-=1
selection=6 if selection<0
when Input::RIGHT
selection+=1
selection=0 if selection>6
when Input::UP
if selection==6
selection=5
else
selection-=2
selection=6 if selection<0
end
when Input::DOWN
if selection==6
selection=0
else
selection+=2
selection=6 if selection>6
end
end
return selection
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!=nil
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
pbUpdateSpriteHash(@sprites)
if Input.trigger?(Input::C)
if selection>=0 && selection<6
@selection=selection
return selection
elsif selection==6 # Close Box
@selection=selection
return (depositing) ? -3 : -1
end
end
if Input.trigger?(Input::B)
@selection=selection
return -1
end
end
end

def pbSelectParty(party)
return pbSelectPartyInternal(party,true)
end

def pbChangeBackground(wp)
@sprites["box"].refreshSprites=false
alpha=0
Graphics.update
pbUpdateSpriteHash(@sprites)
16.times do
alpha+=16
Graphics.update
Input.update
@sprites["box"].color=Color.new(248,248,248,alpha)
pbUpdateSpriteHash(@sprites)
end
@sprites["box"].refreshBox=true
@storage[@storage.currentBox].background="box#{wp}"
4.times do
Graphics.update
Input.update
pbUpdateSpriteHash(@sprites)
end
16.times do
alpha-=16
Graphics.update
Input.update
@sprites["box"].color=Color.new(248,248,248,alpha)
pbUpdateSpriteHash(@sprites)
end
@sprites["box"].refreshSprites=true
end

def pbSwitchBoxToRight(newbox)
newbox=PokemonBoxSprite.new(@storage,newbox,@boxviewport)
newbox.x=520
Graphics.frame_reset
begin
Graphics.update
Input.update
@sprites["box"].x-=16
newbox.x-=16
pbUpdateSpriteHash(@sprites)
end until newbox.x<=184
@sprites["box"].dispose
@sprites["box"]=newbox
end

def pbSwitchBoxToLeft(newbox)
newbox=PokemonBoxSprite.new(@storage,newbox,@boxviewport)
newbox.x=-152
Graphics.frame_reset
begin
Graphics.update
Input.update
@sprites["box"].x+=16
newbox.x+=16
pbUpdateSpriteHash(@sprites)
end until newbox.x>=184
@sprites["box"].dispose
@sprites["box"]=newbox
end

def pbJumpToBox(newbox)
if @storage.currentBox!=newbox
if newbox>@storage.currentBox
pbSwitchBoxToRight(newbox)
else
pbSwitchBoxToLeft(newbox)
end
@storage.currentBox=newbox
end
end

def pbBoxName(helptext,minchars,maxchars)
oldsprites=pbFadeOutAndHide(@sprites)
ret=pbEnterText(helptext,minchars,maxchars)
if ret.length>0
@storage[@storage.currentBox].name=ret
end
@sprites["box"].refreshBox=true
pbRefresh
pbFadeInAndShow(@sprites,oldsprites)
end

def pbUpdateOverlay(selection,party=nil)
overlay=@sprites["overlay"].bitmap
overlay.clear
pokemon=nil
if @screen.pbHeldPokemon
[email protected]
elsif selection>=0
pokemon=(party) ? party[selection] : @storage[@storage.currentBox,selection]
end
if !pokemon
@sprites["pokemon"].visible=false
return
end
@sprites["pokemon"].visible=true
speciesname=PBSpecies.getName(pokemon.species)
itemname="No item"
if pokemon.item>0
itemname=PBItems.getName(pokemon.item)
end
abilityname="No ability"
if pokemon.ability>0
abilityname=PBAbilities.getName(pokemon.ability)
end
base=Color.new(88,88,80)
shadow=Color.new(168,184,184)
pokename=pokemon.name
if pokemon.name.split('').last=="♂" || pokemon.name.split('').last=="♀"
pokename=pokemon.name[0..-2]
end
textstrings=[
[pokename,10,8,false,base,shadow]
]
if !pokemon.egg?
if pokemon.gender==0
textstrings.push([_INTL("♂"),148,8,false,Color.new(24,112,216),Color.new(136,168,208)])
elsif pokemon.gender==1
textstrings.push([_INTL("♀"),148,8,false,Color.new(248,56,32),Color.new(224,152,144)])
end
textstrings.push([_INTL("{1}",pokemon.level),36,234,false,base,shadow])
textstrings.push([_INTL("{1}",abilityname),85,306,2,base,shadow])
textstrings.push([_INTL("{1}",itemname),85,342,2,base,shadow])
end
pbSetSystemFont(overlay)
pbDrawTextPositions(overlay,textstrings)
textstrings.clear
if !pokemon.egg?
textstrings.push([_INTL("Lv."),10,238,false,base,shadow])
end
pbSetSmallFont(overlay)
pbDrawTextPositions(overlay,textstrings)
if pokemon.isShiny?
imagepos=[([sprintf("Graphics/Pictures/shiny"),156,198,0,0,-1,-1])]
pbDrawImagePositions(overlay,imagepos)
end
typebitmap=AnimatedBitmap.new(_INTL("Graphics/Pictures/types"))
type1rect=Rect.new(0,pokemon.type1*28,64,28)
type2rect=Rect.new(0,pokemon.type2*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,66,240,128,20,pokemon.markings)
@sprites["pokemon"].setPokemonBitmap(pokemon)
pbPositionPokemonSprite(@sprites["pokemon"],26,70)
end

def pbDropDownPartyTab
begin
Graphics.update
Input.update
@sprites["boxparty"].y-=16
pbUpdateSpriteHash(@sprites)
end until @sprites["boxparty"].y<=Graphics.height-352
end

def pbHidePartyTab
begin
Graphics.update
Input.update
@sprites["boxparty"].y+=16
pbUpdateSpriteHash(@sprites)
end until @sprites["boxparty"].y>=Graphics.height
end

def pbSetMosaic(selection)
if [email protected]
if @[email protected] || @selectionForMosaic!=selection
@sprites["pokemon"].mosaic=10
@[email protected]
@selectionForMosaic=selection
end
end
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!=nil
pbPlayCursorSE()
selection=pbChangeSelection(key,selection)
pbSetArrow(@sprites["arrow"],selection)
nextbox=-1
if selection==-4
nextbox=(@storage.currentBox==0) ? @storage.maxBoxes-1 : @storage.currentBox-1
pbSwitchBoxToLeft(nextbox)
@storage.currentBox=nextbox
selection=-1
elsif selection==-5
nextbox=(@[email protected]) ? 0 : @storage.currentBox+1
pbSwitchBoxToRight(nextbox)
@storage.currentBox=nextbox
selection=-1
end
selection=-1 if selection==-4 || selection==-5
pbUpdateOverlay(selection)
pbSetMosaic(selection)
end
pbUpdateSpriteHash(@sprites)
if Input.trigger?(Input::C)
if selection>=0
@selection=selection
return [@storage.currentBox,selection]
elsif selection==-1 # Box name
@selection=selection
return [-4,-1]
elsif selection==-2 # Party Pokémon
@selection=selection
return [-2,-1]
elsif selection==-3 # Close Box
@selection=selection
return [-3,-1]
end
end
if Input.trigger?(Input::B)
@selection=selection
return nil
end
end
end

def pbSelectBox(party)
if @command==0 # Withdraw
return pbSelectBoxInternal(party)
else
ret=nil
loop do
if !@choseFromParty
ret=pbSelectBoxInternal(party)
end
if @choseFromParty || (ret && ret[0]==-2) # Party Pokémon
if !@choseFromParty
pbDropDownPartyTab
@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
end

def pbHold(selected)
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
pbUpdateSpriteHash(@sprites)
end
end

def pbSwap(selected,heldpoke)
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
@[email protected]
@selectionForMosaic=selected[1]
end

def pbPlace(selected,heldpoke)
heldpokesprite=@sprites["arrow"].heldPokemon
@sprites["arrow"].place
while @sprites["arrow"].placing?
Graphics.update
Input.update
pbUpdateSpriteHash(@sprites)
end
if selected[0]==-1
@sprites["boxparty"].setPokemon(selected[1],heldpokesprite)
else
@sprites["box"].setPokemon(selected[1],heldpokesprite)
end
@[email protected]
@selectionForMosaic=selected[1]
end

def pbChooseItem(bag)
oldsprites=pbFadeOutAndHide(@sprites)
scene=PokemonBag_Scene.new
screen=PokemonBagScreen.new(scene,bag)
ret=screen.pbGiveItemScreen
pbFadeInAndShow(@sprites,oldsprites)
return ret
end

def pbWithdraw(selected,heldpoke,partyindex)
if !heldpoke
pbHold(selected)
end
pbDropDownPartyTab
pbPartySetArrow(@sprites["arrow"],partyindex)
pbPlace([-1,partyindex],heldpoke)
pbHidePartyTab
end

def pbSummary(selected,heldpoke)
oldsprites=pbFadeOutAndHide(@sprites)
scene=PokemonSummaryScene.new
screen=PokemonSummary.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 pbStore(selected,heldpoke,destbox,firstfree)
if heldpoke
if [email protected]
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 [email protected]
@sprites["box"].setPokemon(firstfree,sprite)
@sprites["boxparty"].setPokemon(selected[1],nil)
else
@sprites["boxparty"].deletePokemon(selected[1])
end
end
end

def drawMarkings(bitmap,x,y,width,height,markings)
totaltext=""
oldfontname=bitmap.font.name
oldfontsize=bitmap.font.size
oldfontcolor=bitmap.font.color
bitmap.font.size=24
bitmap.font.name="Arial"
PokemonStorage::MARKINGCHARS.each{|item| totaltext+=item }
totalsize=bitmap.text_size(totaltext)
realX=x+(width/2)-(totalsize.width/2)
realY=y+(height/2)-(totalsize.height/2)
i=0
PokemonStorage::MARKINGCHARS.each{|item|
marked=(markings&(1<<i))!=0
bitmap.font.color=(marked) ? Color.new(80,80,80) : Color.new(208,200,184)
itemwidth=bitmap.text_size(item).width
bitmap.draw_text(realX,realY,itemwidth+2,totalsize.height,item)
realX+=itemwidth
i+=1
}
bitmap.font.name=oldfontname
bitmap.font.size=oldfontsize
bitmap.font.color=oldfontcolor
end

def getMarkingCommands(markings)
selectedtag="<c=505050>"
deselectedtag="<c=D0C8B8>"
commands=[]
for i in 0...PokemonStorage::MARKINGCHARS.length
commands.push( ((markings&(1<<i))==0 ? deselectedtag : selectedtag)+"<ac><fn=Arial>"+PokemonStorage::MARKINGCHARS)
end
commands.push(_INTL("OK"))
commands.push(_INTL("Cancel"))
return commands
end

def pbMark(selected,heldpoke)
ret=0
msgwindow=Window_UnformattedTextPokemon.newWithSize("",180,0,Graphics.width-180,32)
msgwindow.viewport=@viewport
msgwindow.visible=true
msgwindow.letterbyletter=false
msgwindow.resizeHeightToFit(_INTL("Mark your Pokemon."),Graphics.width-180)
msgwindow.text=_INTL("Mark your Pokemon.")
pokemon=heldpoke
if heldpoke
pokemon=heldpoke
elsif selected[0]==-1
[email protected][selected[1]]
else
[email protected][selected[0]][selected[1]]
end
pbBottomRight(msgwindow)
selectedtag="<c=505050>"
deselectedtag="<c=D0C8B8>"
commands=getMarkingCommands(pokemon.markings)
cmdwindow=Window_AdvancedCommandPokemon.new(commands)
cmdwindow.viewport=@viewport
cmdwindow.visible=true
cmdwindow.resizeToFit(cmdwindow.commands)
cmdwindow.width=132
cmdwindow.height=Graphics.height-msgwindow.height if cmdwindow.height>Graphics.height-msgwindow.height
cmdwindow.update
pbBottomRight(cmdwindow)
markings=pokemon.markings
cmdwindow.y-=msgwindow.height
loop do
Graphics.update
Input.update
if Input.trigger?(Input::B)
break # cancel
end
if Input.trigger?(Input::C)
if cmdwindow.index==commands.length-1
break # cancel
elsif cmdwindow.index==commands.length-2
pokemon.markings=markings # OK
break
elsif cmdwindow.index>=0
mask=(1<<cmdwindow.index)
if (markings&mask)==0
markings|=mask
else
markings&=~mask
end
commands=getMarkingCommands(markings)
cmdwindow.commands=commands
end
end
pbUpdateSpriteHash(@sprites)
msgwindow.update
cmdwindow.update
end
msgwindow.dispose
cmdwindow.dispose
Input.update
end

def pbRefresh
@sprites["box"].refresh
@sprites["boxparty"].refresh
end

def pbHardRefresh
oldPartyY=@sprites["boxparty"].y
@sprites["box"].dispose
@sprites["boxparty"].dispose
@sprites["box"]=PokemonBoxSprite.new(@storage,@storage.currentBox,@boxviewport)
@sprites["boxparty"]=PokemonBoxPartySprite.new(@storage.party,@boxsidesviewport)
@sprites["boxparty"].y=oldPartyY
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
pbUpdateSpriteHash(@sprites)
end
end
end

def pbChooseBox(msg)
commands=[]
for i in [email protected]
box=@storage
if box
commands.push(_INTL("{1} ({2}/{3})",box.name,box.nitems,box.length))
end
end
return pbShowCommands(msg,commands,@storage.currentBox)
end

def pbShowCommands(message,commands,index=0)
ret=0
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)
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
cmdwindow.update
cmdwindow.index=index
pbBottomRight(cmdwindow)
cmdwindow.y-=msgwindow.height
loop do
Graphics.update
Input.update
if Input.trigger?(Input::B)
ret=-1
break
end
if Input.trigger?(Input::C)
ret=cmdwindow.index
break
end
pbUpdateSpriteHash(@sprites)
msgwindow.update
cmdwindow.update
end
msgwindow.dispose
cmdwindow.dispose
Input.update
return ret
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::B)
break
end
if Input.trigger?(Input::C)
break
end
msgwindow.update
pbUpdateSpriteHash(@sprites)
end
msgwindow.dispose
Input.update
end
end

################################################################################
# Regional Storage scripts
################################################################################
class RegionalStorage
def initialize
@storages=[]
@lastmap=-1
@rgnmap=-1
end

def getCurrentStorage
if !$game_map
raise _INTL("The player is not on a map, so the region could not be determined.")
end
if @lastmap!=$game_map.map_id
@rgnmap=pbGetCurrentRegion # may access file IO, so caching result
@lastmap=$game_map.map_id
end
if @rgnmap<0
raise _INTL("The current map has no region set. Please set the MapPosition metadata setting for this map.")
end
if !@storages[@rgnmap]
@storages[@rgnmap]=PokemonStorage.new
end
return @storages[@rgnmap]
end

def boxes
return getCurrentStorage.boxes
end

def party
return getCurrentStorage.party
end

def currentBox
return getCurrentStorage.currentBox
end

def currentBox=(value)
getCurrentStorage.currentBox=value
end

def maxBoxes
return getCurrentStorage.maxBoxes
end

def maxPokemon(box)
return getCurrentStorage.maxPokemon(box)
end

def [](x,y=nil)
getCurrentStorage[x,y]
end

def []=(x,y,value)
getCurrentStorage[x,y]=value
end

def full?
getCurrentStorage.full?
end

def pbFirstFreePos(box)
getCurrentStorage.pbFirstFreePos(box)
end

def pbCopy(boxDst,indexDst,boxSrc,indexSrc)
getCurrentStorage.pbCopy(boxDst,indexDst,boxSrc,indexSrc)
end

def pbMove(boxDst,indexDst,boxSrc,indexSrc)
getCurrentStorage.pbCopy(boxDst,indexDst,boxSrc,indexSrc)
end

def pbMoveCaughtToParty(pkmn)
getCurrentStorage.pbMoveCaughtToParty(pkmn)
end

def pbMoveCaughtToBox(pkmn,box)
getCurrentStorage.pbMoveCaughtToBox(pkmn,box)
end

def pbStoreCaught(pkmn)
getCurrentStorage.pbStoreCaught(pkmn)
end

def pbDelete(box,index)
getCurrentStorage.pbDelete(pkmn)
end
end

################################################################################
# PC menus
################################################################################
def Kernel.pbGetStorageCreator
creator=pbStorageCreator
creator=_INTL("Bill") if !creator || creator==""
return creator
end

def pbPCItemStorage
loop do
command=Kernel.pbShowCommandsWithHelp(nil,
[_INTL("Withdraw Item"),
_INTL("Deposit Item"),
_INTL("Toss Item"),
_INTL("Exit")],
[_INTL("Take out items from the PC."),
_INTL("Store items in the PC."),
_INTL("Throw away items stored in the PC."),
_INTL("Go back to the previous menu.")],-1
)
if command==0 # Withdraw Item
if !$PokemonGlobal.pcItemStorage
$PokemonGlobal.pcItemStorage=PCItemStorage.new
end
if $PokemonGlobal.pcItemStorage.empty?
Kernel.pbMessage(_INTL("There are no items."))
else
pbFadeOutIn(99999){
scene=WithdrawItemScene.new
screen=PokemonBagScreen.new(scene,$PokemonBag)
ret=screen.pbWithdrawItemScreen
}
end
elsif command==1 # Deposit Item
pbFadeOutIn(99999){
scene=PokemonBag_Scene.new
screen=PokemonBagScreen.new(scene,$PokemonBag)
ret=screen.pbDepositItemScreen
}
elsif command==2 # Toss Item
if !$PokemonGlobal.pcItemStorage
$PokemonGlobal.pcItemStorage=PCItemStorage.new
end
if $PokemonGlobal.pcItemStorage.empty?
Kernel.pbMessage(_INTL("There are no items."))
else
pbFadeOutIn(99999){
scene=TossItemScene.new
screen=PokemonBagScreen.new(scene,$PokemonBag)
ret=screen.pbTossItemScreen
}
end
else
break
end
end
end

def pbPCMailbox
if !$PokemonGlobal.mailbox || $PokemonGlobal.mailbox.length==0
Kernel.pbMessage(_INTL("There's no Mail here."))
else
loop do
commands=[]
for mail in $PokemonGlobal.mailbox
commands.push(mail.sender)
end
commands.push(_INTL("Cancel"))
command=Kernel.pbShowCommands(nil,commands,-1)
if command>=0 && command<$PokemonGlobal.mailbox.length
mailIndex=command
command=Kernel.pbMessage(_INTL("What do you want to do with {1}'s Mail?",
$PokemonGlobal.mailbox[mailIndex].sender),[
_INTL("Read"),
_INTL("Move to Bag"),
_INTL("Give"),
_INTL("Cancel")
],-1)
if command==0 # Read
pbFadeOutIn(99999){
pbDisplayMail($PokemonGlobal.mailbox[mailIndex])
}
elsif command==1 # Move to Bag
if Kernel.pbConfirmMessage(_INTL("The message will be lost. Is that OK?"))
if $PokemonBag.pbStoreItem($PokemonGlobal.mailbox[mailIndex].item)
Kernel.pbMessage(_INTL("The Mail was returned to the Bag with its message erased."))
$PokemonGlobal.mailbox.delete_at(mailIndex)
else
Kernel.pbMessage(_INTL("The Bag is full."))
end
end
elsif command==2 # Give
pbFadeOutIn(99999){
sscene=PokemonScreen_Scene.new
sscreen=PokemonScreen.new(sscene,$Trainer.party)
sscreen.pbPokemonGiveMailScreen(mailIndex)
}
end
else
break
end
end
end
end

def pbTrainerPCMenu
loop do
command=Kernel.pbMessage(_INTL("What do you want to do?"),[
_INTL("Item Storage"),
_INTL("Mailbox"),
_INTL("Turn Off")
],-1)
if command==0
pbPCItemStorage
elsif command==1
pbPCMailbox
else
break
end
end
end

module PokemonPCList
@@pclist=[]

def self.registerPC(pc)
@@pclist.push(pc)
end

def self.getCommandList()
commands=[]
for pc in @@pclist
if pc.shouldShow?
commands.push(pc.name)
end
end
commands.push(_INTL("Log Off"))
return commands
end

def self.callCommand(cmd)
if cmd<0 || cmd>=@@pclist.length
return false
end
i=0
for pc in @@pclist
if pc.shouldShow?
if i==cmd
pc.access()
return true
end
i+=1
end
end
return false
end
end

def pbTrainerPC
Kernel.pbMessage(_INTL("\\se[computeropen]{1} booted up the PC.",$Trainer.name))
pbTrainerPCMenu
pbSEPlay("computerclose")
$PokemonTemp.dependentEvents.refresh_sprite
end

class TrainerPC
def shouldShow?
return true
end

def name
return _INTL("{1}'s PC",$Trainer.name)
end

def access
Kernel.pbMessage(_INTL("\\se[accesspc]Accessed {1}'s PC.",$Trainer.name))
pbTrainerPCMenu
$PokemonTemp.dependentEvents.refresh_sprite
end
end

class StorageSystemPC
def shouldShow?
return true
end

def name
if $PokemonGlobal.seenStorageCreator
return _INTL("{1}'s PC",Kernel.pbGetStorageCreator)
else
return _INTL("Someone's PC")
end
end

def access
Kernel.pbMessage(_INTL("\\se[accesspc]The Pokémon Storage System was opened."))
loop do
command=Kernel.pbShowCommandsWithHelp(nil,
[_INTL("Withdraw Pokémon"),
_INTL("Deposit Pokémon"),
_INTL("Move Pokémon"),
_INTL("See ya!")],
[_INTL("Move Pokémon stored in Boxes to your party."),
_INTL("Store Pokémon in your party in Boxes."),
_INTL("Organize the Pokémon in Boxes and in your party."),
_INTL("Return to the previous menu.")],-1
)
if command>=0 && command<3
if command==0 && $PokemonStorage.party.length>=6
Kernel.pbMessage(_INTL("Your party is full!"))
next
end
count=0
for p in $PokemonStorage.party
count+=1 if p && !p.egg? && p.hp>0
end
if command==1 && count<=1
Kernel.pbMessage(_INTL("Can't deposit the last Pokémon!"))
next
end
pbFadeOutIn(99999){
scene=PokemonStorageScene.new
screen=PokemonStorageScreen.new(scene,$PokemonStorage)
screen.pbStartScreen(command)
}
else
break
end
end
end
end

def pbPokeCenterPC
Kernel.pbMessage(_INTL("\\se[computeropen]{1} booted up the PC.",$Trainer.name))
loop do
commands=PokemonPCList.getCommandList()
command=Kernel.pbMessage(_INTL("Which PC should be accessed?"),
commands,commands.length)
if !PokemonPCList.callCommand(command)
break
end
end
pbSEPlay("computerclose")
end

PokemonPCList.registerPC(StorageSystemPC.new)
PokemonPCList.registerPC(TrainerPC.new)

noactualname · Oct 2, 2015

I have used this in conjunction with Luka S.J's Elite Battle and nearly everything works fine, except that the pokedex entries consists of nothing but a single part of the PNG; where would I start in making the entries 'animate' as it were? Could someone give me an example so I don't charge in blindly?

mej71 · Oct 2, 2015

noactualname said:
I have used this in conjunction with Luka S.J's Elite Battle and nearly everything works fine, except that the pokedex entries consists of nothing but a single part of the PNG; where would I start in making the entries 'animate' as it were? Could someone give me an example so I don't charge in blindly?

You have to make the sprites actually update. Since there previously wasn't a reason, this wasn't already done.

Code:

for sprite in @sprites; sprite.update; end

noactualname · Oct 2, 2015

Thank you very much for that; I've managed to fix it following that~

Dustborn · Oct 5, 2015

Fairy moves dont work

Whenever I use a fairy type move, against any type, this error is returned. My game doesnt crash but the move just doesnt do anything. It is like my turn just got skipped. Any idea what could be doing it?

Spoiler:

Delusions of Originality · Oct 5, 2015

I'm not the greatest with RGSS myself, but I believe that error is basically saying that the script is trying to do math with something that's not a number while determining type effectiveness. The trouble is, fairy-type moves work just fine in the unmodified Gen 6 kit, so under normal circumstances that clearly shouldn't be a problem. You or some script you're using must have changed something. What other scripts are you using? What changes have you yourself made to the code or the PBS files? Have you added or edited any moves? Are you sure this problem doesn't happen with any other types of moves? Have you made any changes to types.txt that might have messed with fairy's type effectiveness? (Maybe there's a typo somewhere in that file?)

In general, you should make a habit of mentioning any edits you may have made and everything you've already tried when you ask for help with an error. Sometimes it's possible to see exactly what's causing a problem based on the error message you get, but a lot of the time it's not that clear. Understanding other changes that may have affected your issue is a big help in figuring out what went wrong. (Even if it turns out you haven't changed anything, it helps to know that ahead of time, too.)

TheUnprofessionalAmateur · Oct 10, 2015

Hello. I tested out the Scripts and I really enjoy the new functions and the added Gen-VI stuff.
The only problem I have are the positions of the Pokémon during the battle, as I wish to use sprites and the enemy battler is floating while the Pokémon on my side is way too low. I tried out a few things here and there, but as I am not really the best when it comes to scripts it just didn´t work.
Is there any way for me to revert the positions of the Pokémon to back how it was in Pokémon Essentials?

EDIT: Nevermind, I solved this problem by editing Scene_Constants.
I feel kinda dumb now, because that was a somewhat obvious solution.
Anyway, I´ll just copy the values here into the spoiler. I´m not sure if it´s 100% like
in Essentials, but it looks better than having floating sprites. Then again, it depends on
the game and your sprites. I also went to the editor and reset all the sprite positions before I
did that, but I´m not sure if this is relevant to this.

Spoiler:

bartyboy6 · Oct 13, 2015

Error when entering a battle

I keep getting this error whenever I enter a wild battle, can anyone tell me what script might be causing this? (I am using elite battle system)

---------------------------
Pokemon Solar Version
---------------------------
Exception: NameError

Message: undefined local variable or method `poke' for nil:NilClass

PField_EncounterModifiers:50

PField_EncounterModifiers:43:in `call'

Event:54:in `trigger'

Event:49:in `each'

Event:49:in `trigger'

PField_Field:940:in `pbGenerateWildPokemon'

PField_Field:967:in `pbWildBattle'

PField_Field:1437:in `pbBattleOnStepTaken'

PField_Field:1461:in `pbOnStepTaken'

Game_Player:484:in `update_old'

This exception was logged in

C:\Users\Bart\Saved Games/Pokemon Solar Version/errorlog.txt.

Press Ctrl+C to copy this message to the clipboard.
---------------------------
OK
---------------------------

LightningAlex · Oct 24, 2015

Hello. I love the new features, and I'd like to add some of them to my game. However, I have a kinda weird question. I don't want to add all of the gen 6 features present in this thread. All I want is to add the new Pokemon, moves and abilities. However, I cannot simply copy everything, since my game is complete and I've edited most PBS files and some scripts during the development. So my question is: What is the best way to add gen 6 Pokemon, moves and abilities with no/minimal changes to what I already have? What do I have to copy, and where?

I'm not sure if this is the right thread to ask this, but it seemed better than making a new thread. Thanks in advance.

Yamiman95 · Oct 24, 2015

Hi guys! I've a question! How can i change the number of boxes? I'm a noob with script and when I try to change the value in "Settings" section the game crash... Near the default code threre is this comment: "# delete the relevant bit of code in the PokemonOptions script section" but i don't know what bit of code i need to delete. Thank you very much in advise! :D

Rot8er_ConeX · Oct 24, 2015

LightningAlex said:
Hello. I love the new features, and I'd like to add some of them to my game. However, I have a kinda weird question. I don't want to add all of the gen 6 features present in this thread. All I want is to add the new Pokemon, moves and abilities. However, I cannot simply copy everything, since my game is complete and I've edited most PBS files and some scripts during the development. So my question is: What is the best way to add gen 6 Pokemon, moves and abilities with no/minimal changes to what I already have? What do I have to copy, and where?

I'm not sure if this is the right thread to ask this, but it seemed better than making a new thread. Thanks in advance.

Sadly, the Gen VI pack is so convoluted that it really is a case of "edit the Gen VI pack to have your features" rather than splicing Gen VI code into your existing game.

Adding Gen VI Pokemon should be fairly easy - add an evolution method for Eevee to turn it into Sylveon, then copy Pokemon #650-721 from the Gen VI Pack's pokemon.txt to your own pokemon.txt.

The moves are a little more complicated - most of the effect codes are at the bottom of the Gen VI Pack's script section PBattle_MoveEffects. (Search for the line "# King's Shield" and copy everything below that). Then add the new moves from the Gen VI Pack's moves.txt to your own moves.txt. However, there's code for Freeze Dry and for Flying Press hidden in and amongst the PBattle_Moves script section, in the function "pbTypeModifier" - make sure you get that as well. The Gen VI Pack also uses some new flags on moves (in moves.txt, the bit of each move that looks like a nonsense word like "befh") - things like "can Bulletproof block this move?" or "is this move boosted by Mega Launcher?"

The issue then becomes Gen VI Abilities. Abilities can affect anything in or out of battle, and as such the code for them is scattered everywhere in the Gen VI Pack.

The two things in italics are the main reason I think it's better to copy your game's new code into a fresh copy of the Gen VI Pack.

Yamiman95 · Oct 24, 2015

Problem solved! i was using the wrong dll file!

Rot8er_ConeX · Oct 24, 2015

Yamiman95 said:
Hi guys! I've a question! How can i change the number of boxes? I'm a noob with script and when I try to change the value in "Settings" section the game crash... Near the default code threre is this comment: "# delete the relevant bit of code in the PokemonOptions script section" but i don't know what bit of code i need to delete. Thank you very much in advise! :D

That comment is actually referring to the ability to remove the player's option to change the screen size, so doesn't actually affect the number of storage boxes at all.

Find this line of code in the settings script:

Code:

#===============================================================================
# * The name of the person who created the Pokémon storage system.
# * The number of boxes in Pokémon storage.
#===============================================================================
def pbStorageCreator
  return _INTL("Emmerson")
end
[COLOR="Red"]STORAGEBOXES = 30[/COLOR]

You want to change the number.

Note that after making this change, it won't take effect until you start a new save file

Yamiman95 · Oct 25, 2015

Thank You! Problem solved! :D

LightningAlex · Oct 25, 2015

Rot8er_ConeX said:
Sadly, the Gen VI pack is so convoluted that it really is a case of "edit the Gen VI pack to have your features" rather than splicing Gen VI code into your existing game.

Adding Gen VI Pokemon should be fairly easy - add an evolution method for Eevee to turn it into Sylveon, then copy Pokemon #650-721 from the Gen VI Pack's pokemon.txt to your own pokemon.txt.

The moves are a little more complicated - most of the effect codes are at the bottom of the Gen VI Pack's script section PBattle_MoveEffects. (Search for the line "# King's Shield" and copy everything below that). Then add the new moves from the Gen VI Pack's moves.txt to your own moves.txt. However, there's code for Freeze Dry and for Flying Press hidden in and amongst the PBattle_Moves script section, in the function "pbTypeModifier" - make sure you get that as well. The Gen VI Pack also uses some new flags on moves (in moves.txt, the bit of each move that looks like a nonsense word like "befh") - things like "can Bulletproof block this move?" or "is this move boosted by Mega Launcher?"

The issue then becomes Gen VI Abilities. Abilities can affect anything in or out of battle, and as such the code for them is scattered everywhere in the Gen VI Pack.

The two things in italics are the main reason I think it's better to copy your game's new code into a fresh copy of the Gen VI Pack.

Thank you for your reply, it has been really helpful :) I had to copy all scripts except PokemonItemEffects, since I didn't add any items from the pack, and I did a lot of editing to that script prior adding gen VI.

Also, again, thanks to everyone who worked on this. It's awesome :)

cRaCkZ · Oct 29, 2015

GifConvert Help

Hey PC :) .
So about 2 months is started my own RMXP Project using Mej71 Gen6 kit (And his Awesome sprites too).
My question is :
HOW TO USE GIFCONVERT FROM ESSENTIALS FOLDER?
I wanna use it to convert a female Frillish into PNG frames (like the sprites in kit)

I made a Root Folder and drag the sprites on the GifConverter ..and it opened an window like in first Photo Attachement.
I waited few minutes . After that i pressed ENTER and the converter was closed.

After that i check my sprites and they became like in second Photo Attachement.

EDIT: Thanks for moving my post, i didn't know GifConvert is part of Mej's kit!

TheTrain2000 · Oct 31, 2015

Error when enemy Regirock uses curse

Code:

---------------------------
Pokémon Paragon
---------------------------
Exception: NoMethodError

Message: undefined method `hasBypassingAbility' for false:FalseClass

PokeBattle_BattlerEffects:774:in `pbIncreaseStatBasic'

PokeBattle_BattlerEffects:836:in `pbIncreaseStat'

PokeBattle_MoveEffects:7177:in `pbEffect'

PokeBattle_Battler:3466:in `pbUseMove'

PokeBattle_Battler:3465:in `logonerr'

PokeBattle_Battler:3465:in `pbUseMove'

PokeBattle_Battler:3709:in `pbProcessTurn'

PokeBattle_Battler:3708:in `logonerr'

PokeBattle_Battler:3708:in `pbProcessTurn'

PokeBattle_Battle:3105:in `pbAttackPhase'



This exception was logged in 

C:\Users\Tyler\Saved Games/Pokémon Paragon/errorlog.txt.

Press Ctrl+C to copy this message to the clipboard.
---------------------------
OK   
---------------------------

As I said, this error appears when an enemy Regirock uses curse. I have EBS and Gen VI.

Sir_Tman · Nov 1, 2015

Is this constant or is it a now and agian thing?

Because in my game I sometimes get errors pop up but the battle can continue. Then later I stamp them out.

TheTrain2000 · Nov 1, 2015

Sir_Tman said:
Is this constant or is it a now and agian thing?

Because in my game I sometimes get errors pop up but the battle can continue. Then later I stamp them out.

It happens every time, but I can close the error and continue the battle.

Project: Generation 6 for Pokémon Essentials (Pokémon sprites and PBS files)

More options

BlowDryGuy

kakaruso

noactualname

mej71

noactualname

Dustborn

Delusions of Originality

good night, sleep tight

TheUnprofessionalAmateur

Champ

bartyboy6

LightningAlex

Yamiman95

Rot8er_ConeX

Yamiman95

Rot8er_ConeX

Yamiman95

LightningAlex

cRaCkZ

Well...

Attachments

TheTrain2000

Sir_Tman

Overworked game Dev

TheTrain2000