[Scripting Question] Sell Pokémon?

[InkDrop]

Sell Pok?mon?

Is there a way to make it so that you can sell pok?mon in your game?

I want to be able to have my player sell pok?mon to a Mart or NPC for different amounts of money depending on species but I'm not sure how I would do it. If someone could give me some suggestions or even point me in the direction of a script I can use I'd be very grateful.

 

[mgriffin]

If you have a script that lets the player choose a Pok?mon in their party, another that removes a Pok?mon from the party, and a third that adds money then it should be simple enough to compose them together.

In hand-wavy code:

speciesMoney = {
  :BULBASAUR => 1,
  :IVYSAUR => 2,
  :VENUSAUR => 3 # etc
}
pkmn = choosePartyPokemon
if pkmn:
  money = speciesMoney[pkmn.species]
  if money:
    if yesNo(_INTL("Sell your {1} for {2}?", pkmn.name, money))
      removePokemon(pkmn)
      giveMoney(money)
    end
  else
    message(_INTL("Sorry, we aren't looking to buy {1}.", pkmn.name))
  end
end

None of the functions I mentioned exist with those names (as far as I know), but hopefully it's obvious what they do:
* choosePartyPokemon => lets the player pick a Pok?mon in their party, or returns nil if they cancel.
* yesNo => prompts the player to answer a question with yes or no, and returns true if yes, and false if no.
* removePokemon => removes a particular Pok?mon from the party (the chosen one).
* addMoney => gives the player money.
* message => shows a message.

I'm also assuming that pkmn.species is a symbol that refers to the species, e.g. it contains values that look like the keys of speciesMoney; and that pkmn.name is a string.

 

[InkDrop]

Thanks so much! I had no idea where to start but your reply gave me the jumping off point I needed to cobble together a script!

 

[mgriffin]

That's great to hear! Maybe you'd like to share what you came up with for anybody who reads this thread in the future? :)

 

[InkDrop]

Sure! I'm still new at this, so I'm sure it can be improved on, but this is what worked for me!

Spoiler:

def pbChoosePokemon(variableNumber,nameVarNumber,ableProc=nil,allowIneligible=false)
chosen = 0
pbFadeOutIn(99999){
scene = PokemonParty_Scene.new
screen = PokemonPartyScreen.new(scene,$Trainer.party)
if ableProc
chosen=screen.pbChooseAblePokemon(ableProc,allowIneligible)
else
screen.pbStartScene(_INTL("Choose a Pok?mon."),false)
chosen = screen.pbChoosePokemon
screen.pbEndScene
end
}
pbSet(variableNumber,chosen)
if chosen>=0
pbSet(nameVarNumber,$Trainer.party[chosen].name)
else
pbSet(nameVarNumber,"")
end
end

def pbChooseNonEggPokemon(variableNumber,nameVarNumber)
pbChoosePokemon(variableNumber,nameVarNumber,proc {|poke|
!poke.egg?
})
end

def pbChooseAblePokemon(variableNumber,nameVarNumber)
pbChoosePokemon(variableNumber,nameVarNumber,proc {|poke|
!poke.egg? && poke.hp>0
})
end

def pbRemovePokemonAt(index)
return false if index<0 || !$Trainer || index>=$Trainer.party.length
haveAble = false
for i in 0...$Trainer.party.length
next if i==index
haveAble = true if $Trainer.party.hp>0 && !$Trainer.party.egg?
end
return false if !haveAble
$Trainer.party.delete_at(index)
return true
end

def pbSellPokemon
pbChoosePokemon(1,3)

pbSet(27, pbGetPokemon(1).level*50)

pbRemovePokemonAt(pbGet(1))
end