Registrarse

[Script] [Script] Intercambio prodigioso Offline (Sencillo )

Hola a todos!
Quiero compartir este script muy sencillo que hice para realizar intercambios Pokémon donde recibes otro Pokémon de forma aleatoria, donde los Pokémon recibidos pueden o no tener un apodo

Aqui el codigo para editar en el Script PokemonTrading
Agregar esto al inicio
Código:
############## Wonder Trade por XSX########
# Hay tres listas que son modificables 
# NUM =  Disponibles ENT= Nombre de Entrenador APODO= Apodo del  que recibes.
# En esta puedes poner los numeros o nombres de los  deseados.
NUM=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,
56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,
83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,
107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,
127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,147,148,149,
152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,
172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,
192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,
212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,
232,233,234,235,236,237,238,239,240,241,242,246,247,248,252,253,254,255,256,257,
258,259,260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275,276,277,
278,279,280,281,282,283,284,285,286,287,288,289,290,291,292,293,294,295,296,297,
298,299,300,301,302,303,304,305,306,307,308,309,310,311,312,313,314,315,316,317,
318,319,320,321,322,323,324,325,326,327,328,329,330,331,332,333,334,335,336,337,
338,339,340,341,342,343,344,345,346,347,348,349,350,351,352,353,354,355,356,357,
358,359,360,361,362,363,364,365,366,367,368,369,370,371,372,373,374,375,376,387,
388,389,390,391,392,393,394,395,396,397,398,399,400,401,402,403,404,405,406,407,
408,409,410,411,412,413,414,415,416,417,418,419,420,421,422,423,424,425,426,427,
428,429,430,431,432,433,434,435,436,437,438,439,440,441,442,443,444,445,446,447,
448,449,450,451,452,453,454,455,456,457,458,459,460,461,462,463,464,465,466,467,
468,469,470,471,472,473,474,475,476,477,478,479,495,496,497,498,499,500,501,502,
503,504,505,506,507,508,509,510,511,512,513,514,515,516,517,518,519,520,521,522,
523,524,525,526,527,528,529,530,531,532,533,534,535,536,537,538,539,540,541,542,
543,544,545,546,547,548,549,550,551,552,553,554,555,556,557,558,559,560,561,562,
563,564,565,566,567,568,569,570,571,572,573,574,575,576,577,578,579,580,581,582,
583,584,585,586,587,588,589,590,591,592,593,594,595,596,597,598,599,600,601,602,
603,604,605,606,607,608,609,610,611,612,613,614,615,616,617,618,619,620,621,622,
623,624,625,626,627,628,629,630,631,632,633,634,635,636,637,650,651,652,653,654,
655,656,657,658,659,660,661,662,663,664,665,666,667,668,669,670,671,672,673,674,
675,676,677,678,679,680,681,682,683,684,685,686,687,688,689,690,691,692,693,694,
695,696,697,698,699,700,701,702,703,704,705,706,707,708,709,710,711,712,713,714,
715,"CHARMANDER"]
#En esta lista puedes poner los apodos de los  obtenidos
APODO=["Superman","Toto","Tony","Thach","Nina","Gez","Adaetyra","Aroan","Jaua",
"Cu","Kes","Ini","Rairim","Chior","Zeam","Kaimyn","Trou","Anaz","Taelah","Tok",
"Foalyua","Kransela","Jendal","Cimor","Birev","Iseaz","Mim","Arily","Susk","Naer",
"Ennn","Mea","Anaz","Xoken","Binn","Paed","Dandara","Cova","Aeran","Gom","Bancath",
"Elish","Lex","Kiz","Tullas","Idaithael","Nonc","Krairoa","Talanen","Chyar",
"Drakinoa","Koul","Cikr","Doukl","Pydae","Sokl","Galas","Voav","Ade","Jeal",
"Drym","Beary","Cam","Elyd","Alaev","Zissal","Neteth","Teaes","Famah","Jylyath",
"Dod","Idorroa","Sicha","Caca","Deal","Kro","Ziz","Thom","Dam","Souk","Sandren",
"Sytr","Drumri","Isi","Basri","Jell","Araphorn","Kaesselai","Resh","Fizarus"]
#En esta lista puedes poner los nombres de los entrenadores
ENT=["Santiago","Mateo","Sebastián","Alejandro","Matías","Diego","Samuel",
"Nicolás","Daniel","Martín","Benjamín","Emiliano","Leonardo","Joaquín",
"Lucas","Iker","Gabriel","Thiago","Adrián","Bruno","Dylan","Tomás","David",
"Agustín","Ian","Ethan","Felipe","Maximiliano","Eric","Hugo","Pablo","Luca",
"Rodrigo","Ignacio","Simón","Carlos","Javier","Juan Pablo","Isaac","Santino",
"Manuel","Jerónimo","Emmanuel","Aarón","Ángel","Dante","Gael","Vicente",
"Juan Sebastián","Liam","Damián","Leo","Francisco","Alonso","Christopher",
"Álvaro","Bautista","Miguel Ángel","Valentino","Rafael","Andrés","Franco",
"Fernando","León","Oliver","Emilio","Marcos","Julián","Juan José","Pedro",
"Alexander","Lorenzo","Mario","Sergio","Máximo","Cristian","Esteban","Elías",
"Antonio","Luciano","Noah","Jorge","Enzo","Axel","Salvador","Marc","Derek",
"Juan Martín","Joel","Juan Diego","Gonzalo","Kevin","Alan","Eduardo","Miguel",
"Iván","Josué","Cristóbal","Ciro","Juan David","Gaby","Gabriela","Sofía",
"Isabella","Lucía","Valentina","Emma","Martina","Luciana","Camila","Victoria",
"Valeria","Julieta","Ximena","Daniela","Samantha","Emilia","Sara","Renata",
"Mariana","Mía","Catalina","Gaby","Olivia","Paula","Regina","Elena",
"María","Zoe","Natalia","Emily","Abril","Amanda","Andrea","María",
"Alejandra","Alexa","Lían","Ariana","Antonia","Ana Sofía","Romina","Julia",
"Alma","Ivanna","Montserrat","Belen","Fernanda","Miranda","Ana",]


Y esto al final

Código:
########################### Wonder Trade #######################################
def pbStartTradeW(pokemonIndex,newpoke,nickname,trainerName,trainerGender=0)
  trainerName=ENT[rand(ENT.size)]
  newpoke=NUM[rand(NUM.size)]
  
  
  myPokemon=$Trainer.party[pokemonIndex]
  opponent=PokeBattle_Trainer.new(trainerName,trainerGender)
  opponent.setForeignID($Trainer)
  yourPokemon=nil
  if newpoke.is_a?(PokeBattle_Pokemon)
    newpoke.trainerID=opponent.id
    newpoke.ot=opponent.name
    newpoke.otgender=opponent.gender
    newpoke.language=opponent.language
    yourPokemon=newpoke
  else
    if newpoke.is_a?(String) || newpoke.is_a?(Symbol)
      raise _INTL("Species does not exist ({1}).",newpoke) if !hasConst?(PBSpecies,newpoke)
      newpoke=getID(PBSpecies,newpoke)
    end
    yourPokemon=PokeBattle_Pokemon.new(newpoke,rand(100),opponent)
  end
  yourPokemon.name=yourPokemon.name
  if rand(100) > 50
    nickname=APODO[rand(APODO.size)]
    yourPokemon.name=nickname
  end
  yourPokemon.resetMoves
  yourPokemon.obtainMode=2 # traded
  $Trainer.seen[yourPokemon.species]=true
  $Trainer.owned[yourPokemon.species]=true
  pbSeenForm(yourPokemon)
  yourPokemon.pbRecordFirstMoves
  pbFadeOutInWithMusic(99999){
    evo=PokemonTradeScene.new
    evo.pbStartScreen(myPokemon,yourPokemon,$Trainer.name,opponent.name)
    evo.pbTrade
    evo.pbEndScreen
  }
  $Trainer.party[pokemonIndex]=yourPokemon
end
################################################################################
Para utilizarlo:
Es muy parecido al intercambio normal
seleccionas un Pokémon:
Código:
pbChoosePokemon(1,2,
proc {|poke|
 !poke.isEgg? &&
 !(poke.isShadow? rescue false)
})
para luego realizar el intercambio
Código:
pbStartTradeW(pbGet(1),1,"X","X")
pbSave
Espero les sirva!
Créditos son apreciados pero no necesarios
Esta muy sencillo pero si se te dificulta puedes mandar mensaje
 
Última edición:

Xabier2012

Usuario mítico
En un antiguo proyecto mio hice algo parecido a esto. Era para un edificio de intercambio pokémon aleatorio. La verdad es que será útil a quién busque esto. Y como no tiene mucha dificultad insertarlo pues todo perfecto.

De hecho yo añadiría condiciones dependiendo de tu avance en el juego para poder intercambiar pokémons más o menos fuertes
 

Zeon

Haters gonna Hate.
Que gran aporte! En un futuro usaré este script (si encuentro el tema xD)
 
Respuesta: Re: [Script] Intercambio prodigioso Offline (Sencillo )

En un antiguo proyecto mio hice algo parecido a esto. Era para un edificio de intercambio pokémon aleatorio. La verdad es que será útil a quién busque esto. Y como no tiene mucha dificultad insertarlo pues todo perfecto.

De hecho yo añadiría condiciones dependiendo de tu avance en el juego para poder intercambiar pokémons más o menos fuertes
Eso de las condiciones dependiendo de tu avance en el juego estaría genial pero solo quise simular el intercambio prodigioso donde no sabes a quien vas a recibir, que habilidades, ni de que nivel te llegara...
 
M

Miembro eliminado 28262

Invitado
Baia baia
Me creerías si te digo que hago casi lo mismo para mi hackrom?

Buen aporte prro
Seguro que esto motivara a varios makers de la comunidad.

Un saludo y buenas vibras!

#SeichCapriccola
 
Hola a todos!
Quiero compartir este script muy sencillo que hice para realizar intercambios Pokémon donde recibes otro Pokémon de forma aleatoria, donde los Pokémon recibidos pueden o no tener un apodo

Aqui el codigo para editar en el Script PokemonTrading
Agregar esto al inicio
Código:
############## Wonder Trade por XSX########
# Hay tres listas que son modificables 
# NUM =  Disponibles ENT= Nombre de Entrenador APODO= Apodo del  que recibes.
# En esta puedes poner los numeros o nombres de los  deseados.
NUM=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,
56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,
83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,
107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,
127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,147,148,149,
152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,
172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,
192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,
212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,
232,233,234,235,236,237,238,239,240,241,242,246,247,248,252,253,254,255,256,257,
258,259,260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275,276,277,
278,279,280,281,282,283,284,285,286,287,288,289,290,291,292,293,294,295,296,297,
298,299,300,301,302,303,304,305,306,307,308,309,310,311,312,313,314,315,316,317,
318,319,320,321,322,323,324,325,326,327,328,329,330,331,332,333,334,335,336,337,
338,339,340,341,342,343,344,345,346,347,348,349,350,351,352,353,354,355,356,357,
358,359,360,361,362,363,364,365,366,367,368,369,370,371,372,373,374,375,376,387,
388,389,390,391,392,393,394,395,396,397,398,399,400,401,402,403,404,405,406,407,
408,409,410,411,412,413,414,415,416,417,418,419,420,421,422,423,424,425,426,427,
428,429,430,431,432,433,434,435,436,437,438,439,440,441,442,443,444,445,446,447,
448,449,450,451,452,453,454,455,456,457,458,459,460,461,462,463,464,465,466,467,
468,469,470,471,472,473,474,475,476,477,478,479,495,496,497,498,499,500,501,502,
503,504,505,506,507,508,509,510,511,512,513,514,515,516,517,518,519,520,521,522,
523,524,525,526,527,528,529,530,531,532,533,534,535,536,537,538,539,540,541,542,
543,544,545,546,547,548,549,550,551,552,553,554,555,556,557,558,559,560,561,562,
563,564,565,566,567,568,569,570,571,572,573,574,575,576,577,578,579,580,581,582,
583,584,585,586,587,588,589,590,591,592,593,594,595,596,597,598,599,600,601,602,
603,604,605,606,607,608,609,610,611,612,613,614,615,616,617,618,619,620,621,622,
623,624,625,626,627,628,629,630,631,632,633,634,635,636,637,650,651,652,653,654,
655,656,657,658,659,660,661,662,663,664,665,666,667,668,669,670,671,672,673,674,
675,676,677,678,679,680,681,682,683,684,685,686,687,688,689,690,691,692,693,694,
695,696,697,698,699,700,701,702,703,704,705,706,707,708,709,710,711,712,713,714,
715,"CHARMANDER"]
#En esta lista puedes poner los apodos de los  obtenidos
APODO=["Superman","Toto","Tony","Thach","Nina","Gez","Adaetyra","Aroan","Jaua",
"Cu","Kes","Ini","Rairim","Chior","Zeam","Kaimyn","Trou","Anaz","Taelah","Tok",
"Foalyua","Kransela","Jendal","Cimor","Birev","Iseaz","Mim","Arily","Susk","Naer",
"Ennn","Mea","Anaz","Xoken","Binn","Paed","Dandara","Cova","Aeran","Gom","Bancath",
"Elish","Lex","Kiz","Tullas","Idaithael","Nonc","Krairoa","Talanen","Chyar",
"Drakinoa","Koul","Cikr","Doukl","Pydae","Sokl","Galas","Voav","Ade","Jeal",
"Drym","Beary","Cam","Elyd","Alaev","Zissal","Neteth","Teaes","Famah","Jylyath",
"Dod","Idorroa","Sicha","Caca","Deal","Kro","Ziz","Thom","Dam","Souk","Sandren",
"Sytr","Drumri","Isi","Basri","Jell","Araphorn","Kaesselai","Resh","Fizarus"]
#En esta lista puedes poner los nombres de los entrenadores
ENT=["Santiago","Mateo","Sebastián","Alejandro","Matías","Diego","Samuel",
"Nicolás","Daniel","Martín","Benjamín","Emiliano","Leonardo","Joaquín",
"Lucas","Iker","Gabriel","Thiago","Adrián","Bruno","Dylan","Tomás","David",
"Agustín","Ian","Ethan","Felipe","Maximiliano","Eric","Hugo","Pablo","Luca",
"Rodrigo","Ignacio","Simón","Carlos","Javier","Juan Pablo","Isaac","Santino",
"Manuel","Jerónimo","Emmanuel","Aarón","Ángel","Dante","Gael","Vicente",
"Juan Sebastián","Liam","Damián","Leo","Francisco","Alonso","Christopher",
"Álvaro","Bautista","Miguel Ángel","Valentino","Rafael","Andrés","Franco",
"Fernando","León","Oliver","Emilio","Marcos","Julián","Juan José","Pedro",
"Alexander","Lorenzo","Mario","Sergio","Máximo","Cristian","Esteban","Elías",
"Antonio","Luciano","Noah","Jorge","Enzo","Axel","Salvador","Marc","Derek",
"Juan Martín","Joel","Juan Diego","Gonzalo","Kevin","Alan","Eduardo","Miguel",
"Iván","Josué","Cristóbal","Ciro","Juan David","Gaby","Gabriela","Sofía",
"Isabella","Lucía","Valentina","Emma","Martina","Luciana","Camila","Victoria",
"Valeria","Julieta","Ximena","Daniela","Samantha","Emilia","Sara","Renata",
"Mariana","Mía","Catalina","Gaby","Olivia","Paula","Regina","Elena",
"María","Zoe","Natalia","Emily","Abril","Amanda","Andrea","María",
"Alejandra","Alexa","Lían","Ariana","Antonia","Ana Sofía","Romina","Julia",
"Alma","Ivanna","Montserrat","Belen","Fernanda","Miranda","Ana",]


Y esto al final

Código:
########################### Wonder Trade #######################################
def pbStartTradeW(pokemonIndex,newpoke,nickname,trainerName,trainerGender=0)
  trainerName=ENT[rand(ENT.size)]
  newpoke=NUM[rand(NUM.size)]
  
  
  myPokemon=$Trainer.party[pokemonIndex]
  opponent=PokeBattle_Trainer.new(trainerName,trainerGender)
  opponent.setForeignID($Trainer)
  yourPokemon=nil
  if newpoke.is_a?(PokeBattle_Pokemon)
    newpoke.trainerID=opponent.id
    newpoke.ot=opponent.name
    newpoke.otgender=opponent.gender
    newpoke.language=opponent.language
    yourPokemon=newpoke
  else
    if newpoke.is_a?(String) || newpoke.is_a?(Symbol)
      raise _INTL("Species does not exist ({1}).",newpoke) if !hasConst?(PBSpecies,newpoke)
      newpoke=getID(PBSpecies,newpoke)
    end
    yourPokemon=PokeBattle_Pokemon.new(newpoke,rand(100),opponent)
  end
  yourPokemon.name=yourPokemon.name
  if rand(100) > 50
    nickname=APODO[rand(APODO.size)]
    yourPokemon.name=nickname
  end
  yourPokemon.resetMoves
  yourPokemon.obtainMode=2 # traded
  $Trainer.seen[yourPokemon.species]=true
  $Trainer.owned[yourPokemon.species]=true
  pbSeenForm(yourPokemon)
  yourPokemon.pbRecordFirstMoves
  pbFadeOutInWithMusic(99999){
    evo=PokemonTradeScene.new
    evo.pbStartScreen(myPokemon,yourPokemon,$Trainer.name,opponent.name)
    evo.pbTrade
    evo.pbEndScreen
  }
  $Trainer.party[pokemonIndex]=yourPokemon
end
################################################################################
Para utilizarlo:
Es muy parecido al intercambio normal
seleccionas un Pokémon:
Código:
pbChoosePokemon(1,2,
proc {|poke|
 !poke.isEgg? &&
 !(poke.isShadow? rescue false)
})
para luego realizar el intercambio
Código:
pbStartTradeW(pbGet(1),1,"X","X")
pbSave
Espero les sirva!
Créditos son apreciados pero no necesarios
Esta muy sencillo pero si se te dificulta puedes mandar mensaje
hola pero como se pone el script es por XSE o otro
perdón por la ignorancia
 

Lunos

Enfrentando a La Organización
Miembro insignia
Respuesta: Re: [Script] Intercambio prodigioso Offline (Sencillo )

LennyMaster25 ( ͡° ͜ʖ ͡°);353273 dijo:
Si existiese para gba sería mejor :'v
Seguro que modificando un trozo de la Pokeria de Dani se puede hacer facilito.
 
No hay una forma de equilibrar un poco los intercambios? Es que lo probé y por un Caterpie al nivel 5, me han dado un Totodile al 96 y claro.... :v
 
No hay una forma de equilibrar un poco los intercambios? Es que lo probé y por un Caterpie al nivel 5, me han dado un Totodile al 96 y claro.... :v
Podrias sustituir la linea
Código:
 yourPokemon=PokeBattle_Pokemon.new(newpoke,rand(100),opponent)
por
Código:
niveles = pbBalancedLevel($Trainer.party) - rand(12) + rand(10)
yourPokemon=PokeBattle_Pokemon.new(newpoke,niveles,opponent)
y los intercambios serian mas equilibrados con tu equipo por +-10 niveles
 
Podrias sustituir la linea
Código:
 yourPokemon=PokeBattle_Pokemon.new(newpoke,rand(100),opponent)
por
Código:
niveles = pbBalancedLevel($Trainer.party) - rand(12) + rand(10)
yourPokemon=PokeBattle_Pokemon.new(newpoke,niveles,opponent)
y los intercambios serian mas equilibrados con tu equipo por +-10 niveles
Funciona perfectamente, gracias!
 
Arriba