buy or sell your pokemon

[yiormari]

Hi this is my first script

whit this script you can buy 1 pokemon with a random level and random specie.

#el precio de los pokemon pueden cambiar, pon el valor que quieras

def pbvalor
      pbChoosePokemon(1,2)
      cancel = pbGet(1)
      pok1 = $Trainer.pokemonParty[pbGet(1)]
      poke2=pok1.ev[0]+pok1.ev[1]+pok1.ev[2]+pok1.ev[3]+pok1.ev[4]+pok1.ev[5]
      poke3=pok1.level
      poke4=pok1.name
      poke6=pok1.iv[0]+pok1.iv[1]+pok1.iv[2]+pok1.iv[3]+pok1.iv[4]+pok1.iv[5]

 if cancel<0 || $Trainer.party.length<2 
     Kernel.pbMessage(_INTL("No pudimos hacer negocios, vuelve luego"))
       else

case poke2
when 1260..1512
money=3200+poke3+poke2+poke6
when 1008..1259
money=1600+poke3+poke2+poke6
when 756..1007
money=800+poke3+poke2+poke6
when 504..755
money=400+poke3+poke2+poke6
when 252..503
money=200+poke3+poke2+poke6
else
money=100+poke3+poke2+poke6

end


if Kernel.pbConfirmMessage(_INTL("¿Quieres Venderme a tu {2} puedo darte {1}?",money,poke4))
           $Trainer.money+=money
            pbRemovePokemonAt(pbGet(1))
            Kernel.pbMessage(_INTL("Cuidare mucho de tu {1}",poke4))
          else
            Kernel.pbMessage(_INTL("Me parecia un trato justo"))
end
end
end
   
###################################################################################
  
def pbvender
  exceptions=[144,145,146,150,151,243,244,245,249,250,251,377,378,379,
  380,381,382,383,384,385,386,480,481,482,483,484,485,486,487,488,489,490, 
  491,492,493,494,638,639,640,641,642,643,644,645,646,647,648,649,716,717,
  718,719,720,721,772,773,785,786,787,788,789,790,791,792,793,794,795,796,
  797,798,799,800,801,802,803,804,805,806,807,808,809] 
	
   species=rand(PBSpecies.maxValue)+1
   
   level=rand(100)+1

     if $Trainer.party.length>5 
     Kernel.pbMessage(_INTL("Tu equipo esta lleno"))
       else

case level

when 91..100
money=6400+level
when 81..90
money=3200+level
when 71..80
money=1600+level
when 61..70
money=800+level
when 51..60
money=400+level
when 41..50
money=200+level
when 31..40
money=100+level
when 21..30
money=75+level
when 11..20
money=50+level
else
money=15+level
end

if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo dartelo a {1} ",money))
if $Trainer.money>money 
  if  exceptions.include?(species)
else
              $Trainer.money-=money
              poke=pbAddPokemon(species,level)
	   end
	  	  else
	  Kernel.pbMessage(_INTL("Insuficientes fondos"))
    end
		  	  else
	  Kernel.pbMessage(_INTL("Esta bien vuelve luego"))
  end
end
end

 

[yiormari]

sorry for mi english, im speaker spanish

 

[Jonathansergio31]

sorry for mi english, im speaker spanish

Hi, can you explain how do it and configure in game?

 

[WolfPP]

Hi this is my first script

whit this script you can buy 1 pokemon with a random level and random specie.

Spoiler:

[DIV]
def pbvalor
pbChoosePokemon(1,2)
cancel = pbGet(1)
pok1 = $Trainer.pokemonParty[pbGet(1)]
poke2=pok1.iv[0]+pok1.iv[1]+pok1.iv[2]+pok1.iv[3]+pok1.iv[4]+pok1.iv[5]
poke3=pok1.level
poke4=pok1.name

if cancel<0 || $Trainer.party.length<2
Kernel.pbMessage(_INTL("No pudimos hacer negocios, vuelve luego"))
else

if poke2>185
money=1500+poke3
if Kernel.pbConfirmMessage(_INTL("¿Quieres Venderme a tu {2} puedo darte {1}?",money,poke4))
$Trainer.money+=money
pbRemovePokemonAt(pbGet(1))
else
Kernel.pbMessage(_INTL("esta bien aqui estare."))
end
elsif poke2>165
if Kernel.pbConfirmMessage(_INTL("¿Quieres Venderme a tu {2} puedo darte {1}?",money,poke4))
$Trainer.money+=money
pbRemovePokemonAt(pbGet(1))
else
Kernel.pbMessage(_INTL("esta bien aqui estare."))
end
elsif poke2>153
money=500+poke3
if Kernel.pbConfirmMessage(_INTL("¿Quieres Venderme a tu {2} puedo darte {1}?",money,poke4))
$Trainer.money+=money
pbRemovePokemonAt(pbGet(1))
else
Kernel.pbMessage(_INTL("esta bien aqui estare."))
end
elsif poke2>115
money=250+poke3
if Kernel.pbConfirmMessage(_INTL("¿Quieres Venderme a tu {2} puedo darte {1}?",money,poke4))
$Trainer.money+=money
pbRemovePokemonAt(pbGet(1))
else
Kernel.pbMessage(_INTL("esta bien aqui estare."))
end
elsif poke2>75
money=150+poke3
if Kernel.pbConfirmMessage(_INTL("¿Quieres Venderme a tu {2} puedo darte {1}?",money,poke4))
$Trainer.money+=money
pbRemovePokemonAt(pbGet(1))
else
Kernel.pbMessage(_INTL("esta bien aqui estare."))
end
else poke2<75
money=75+poke3
if Kernel.pbConfirmMessage(_INTL("¿Quieres Venderme a tu {2} puedo darte {1}?",money,poke4))
$Trainer.money+=money
pbRemovePokemonAt(pbGet(1))
else
Kernel.pbMessage(_INTL("esta bien aqui estare."))
end
end
end

end



#######################################################




def pbvender
exceptions=[144,145,146,150,151,243,244,245,249,250,251,377,378,379,
380,381,382,383,384,385,386,480,481,482,483,484,485,486,487,488,489,490,
491,492,493,494,638,639,640,641,642,643,644,645,646,647,648,649,716,717,
718,719,720,721,772,773,785,786,787,788,789,790,791,792,793,794,795,796,
797,798,799,800,801,802,803,804,805,806,807,808,809]

#species=rand(PBSpecies.maxValue)+1
species=(144)
#level=rand(100)+1
level=100
if $Trainer.party.length>5
Kernel.pbMessage(_INTL("Tu equipo esta lleno"))
else

case level

when 91..100
money=6400+level
if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo venderlo a {1} ",money))

if $Trainer.money<money || exceptions.include?(species)

else
$Trainer.money-=money
poke=pbAddPokemon(species,level)
end

else
Kernel.pbMessage(_INTL("Me parecia un trato justo."))
end

when 81..90
money=3200+level
if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo venderlo a {1} ",money))

if $Trainer.money<money || exceptions.include?(species)

else
$Trainer.money-=money
poke=pbAddPokemon(species,level)
end

else
Kernel.pbMessage(_INTL("Me parecia un trato justo."))
end

when 71..80
money=1600+level
if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo venderlo a {1} ",money))

if $Trainer.money<money || exceptions.include?(species)
else
$Trainer.money-=money
poke=pbAddPokemon(species,level)
end

else
Kernel.pbMessage(_INTL("Me parecia un trato justo."))
end

when 61..70
money=800+level
if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo venderlo a {1} ",money))

if $Trainer.money<money || exceptions.include?(species)

else
$Trainer.money-=money
poke=pbAddPokemon(species,level)
end

else
Kernel.pbMessage(_INTL("Me parecia un trato justo."))
end

when 51..60
money=400+level
if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo venderlo a {1} ",money))

if $Trainer.money<money || exceptions.include?(species)

else
$Trainer.money-=money
poke=pbAddPokemon(species,level)
end

else
Kernel.pbMessage(_INTL("Me parecia un trato justo."))
end

when 41..50
money=200+level
if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo venderlo a {1} ",money))

if $Trainer.money<money || exceptions.include?(species)

else
$Trainer.money-=money
poke=pbAddPokemon(species,level)
end

else
Kernel.pbMessage(_INTL("Me parecia un trato justo."))
end

when 31..40
money=100+level
if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo venderlo a {1} ",money))

if $Trainer.money<money || exceptions.include?(species)

else
$Trainer.money-=money
poke=pbAddPokemon(species,level)
end

else
Kernel.pbMessage(_INTL("Me parecia un trato justo."))
end

when 21..30
money=75+level
if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo venderlo a {1} ",money))

if $Trainer.money<money || exceptions.include?(species)

else
$Trainer.money-=money
poke=pbAddPokemon(species,level)
end

else
Kernel.pbMessage(_INTL("Me parecia un trato justo."))
end

when 11..20
money=50+level
if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo venderlo a {1} ",money))

if $Trainer.money<money || exceptions.include?(species)
else
$Trainer.money-=money
poke=pbAddPokemon(species,level)
end

else
Kernel.pbMessage(_INTL("Me parecia un trato justo."))
end



money=15+level
if Kernel.pbConfirmMessage(_INTL("¿Oye tengo un buen pokemon te interesa puedo venderlo a {1} ",money))

if $Trainer.money<money || exceptions.include?(species)

else
$Trainer.money-=money
poke=pbAddPokemon(species,level)
end

else
Kernel.pbMessage(_INTL("Me parecia un trato justo."))
end

end



end


end

[/DIV]

Put spoiler and also code instead DIV to have an better visual about your script, like:

Spoiler:

This

 

[yiormari]

Hi, can you explain how do it and configure in game?

Hi just copy the code and call script (pbvalor) to sell
and (pbvender) to buy