DocRock3r/infinitefusion-e18
1
0
Fork 0
mirror of https://github.com/infinitefusion/infinitefusion-e18.git synced 2025-12-09 06:04:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

formatted wondertrade script

Browse Source
This commit is contained in:
infinitefusion
2022-03-19 17:59:45 -04:00
parent 6794004d94
commit dcd6a18189
1 changed files with 73 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

149
Data/Scripts/050_AddOns/Wondertrade.rb
View File

@@ -1,4 +1,3 @@
=begin =begin
*** Wonder Trade Script by Black Eternity *** *** Wonder Trade Script by Black Eternity ***
This script is to mimic Wonder Trade from an offline perspective. This script is to mimic Wonder Trade from an offline perspective.
@@ -45,7 +44,7 @@ It is up to you to use it how you wish, credits will be appreciated.
# These are just names taken from a generator, add custom or change to # These are just names taken from a generator, add custom or change to
# whatever you desire. # whatever you desire.
RandTrainerNames_male=[ RandTrainerNames_male = [
"Mikaël", "Mikaël",
"James", "James",
"Keith", "Keith",
@@ -107,7 +106,7 @@ RandTrainerNames_male=[
"Vladimir" "Vladimir"
] ]
RandTrainerNames_female=[ RandTrainerNames_female = [
"Emily", "Emily",
"France", "France",
"Joan", "Joan",
@@ -173,7 +172,7 @@ RandTrainerNames_female=[
"Kathy" "Kathy"
] ]
RandTrainerNames_others=[ RandTrainerNames_others = [
"Brock", "Brock",
"Misty", "Misty",
"Lt. Surge", "Lt. Surge",
@@ -204,7 +203,7 @@ RandTrainerNames_others=[
] ]
# List of randomly selected Pokemon Nicknames # List of randomly selected Pokemon Nicknames
RandPokeNick=[ RandPokeNick = [
"Poncho", "Poncho",
"King", "King",
"Batar", "Batar",
@@ -842,7 +841,7 @@ RandPokeNick=[
"MISSINGNO", "MISSINGNO",
"MISSINGNAME", "MISSINGNAME",
"Proton", "Proton",
"Numba 1","Number 2","Number 3","Number 4","Number 5","Number 6","Number 7", "Numba 1", "Number 2", "Number 3", "Number 4", "Number 5", "Number 6", "Number 7",
"pokeman", "pokeman",
"hm_slave", "hm_slave",
"hm_slave01", "hm_slave01",
@@ -915,7 +914,7 @@ RandPokeNick=[
"Unit-3", "Unit-3",
"Happy", "Happy",
"Terror", "Terror",
"Kanto","Johto","Hoenn","Sinnoh","Unova","Kalos","Alola", "Kanto", "Johto", "Hoenn", "Sinnoh", "Unova", "Kalos", "Alola",
"Jar Jar", "Jar Jar",
"Garcia", "Garcia",
"Reaper", "Reaper",
@@ -936,7 +935,7 @@ RandPokeNick=[
"yourself", "yourself",
"something", "something",
"something better", "something better",
"this","that", "this", "that",
"it", "it",
"愛", "愛",
"Franz", "Franz",
@@ -1004,8 +1003,7 @@ RandPokeNick=[
"maymay" "maymay"
] ]
def pbWonderTrade(lvl, except = [], except2 = [], rare = true)
def pbWonderTrade(lvl,except=[],except2=[],rare=true)
# for i in 0...except.length # Gets ID of pokemon in exception array # for i in 0...except.length # Gets ID of pokemon in exception array
# except[i]=getID(PBSpecies,except[i]) if !except[i].is_a?(Integer) # except[i]=getID(PBSpecies,except[i]) if !except[i].is_a?(Integer)
# end # end
@@ -1015,60 +1013,59 @@ def pbWonderTrade(lvl,except=[],except2=[],rare=true)
# ignoreExcept = rand(100) == 0 #tiny chance to include legendaries # ignoreExcept = rand(100) == 0 #tiny chance to include legendaries
# #
# except+=[] # except+=[]
chosen=pbChoosePokemon(1,2, # Choose eligable pokemon chosen = pbChoosePokemon(1, 2, # Choose eligable pokemon
proc { proc {
|poke| !poke.egg? && !(poke.isShadow?) && # No Eggs, No Shadow Pokemon |poke| !poke.egg? && !(poke.isShadow?) && # No Eggs, No Shadow Pokemon
(poke.level>=lvl) && !(except.include?(poke.species)) # None under "lvl", no exceptions. (poke.level >= lvl) && !(except.include?(poke.species)) # None under "lvl", no exceptions.
}) })
poke = $Trainer.party[pbGet(1)] poke = $Trainer.party[pbGet(1)]
$PokemonBag.pbStoreItem(poke.item,1) if poke.item != nil $PokemonBag.pbStoreItem(poke.item, 1) if poke.item != nil
myPoke = poke.species myPoke = poke.species
chosenBST = calcBaseStats(myPoke) chosenBST = calcBaseStats(myPoke)
# The following excecption fields are for hardcoding the blacklisted pokemon # The following excecption fields are for hardcoding the blacklisted pokemon
# without adding them in the events. # without adding them in the events.
#except+=[] #except+=[]
except2+=[:ARCEUS,:MEW,:CELEBI,:LUGIA,:HOOH,:MEWTWO] except2 += [:ARCEUS, :MEW, :CELEBI, :LUGIA, :HOOH, :MEWTWO]
if pbGet(1)>=0 if pbGet(1) >= 0
species=0 species = 0
luck = rand(5)+1 luck = rand(5) + 1
rarecap = (rand(155+poke.level)/(1+rand(5)))/luck rarecap = (rand(155 + poke.level) / (1 + rand(5))) / luck
bonus = 0 bonus = 0
while (species==0) # Loop Start while (species == 0) # Loop Start
bonus+= 5 #+ de chance de pogner un bon poke a chaque loop (permet d'eviter infinite loop) bonus += 5 #+ de chance de pogner un bon poke a chaque loop (permet d'eviter infinite loop)
species=rand(PBSpecies.maxValue)+1 species = rand(PBSpecies.maxValue) + 1
bst = calcBaseStats(species) bst = calcBaseStats(species)
# Redo the loop if pokemon is too evolved for its level # Redo the loop if pokemon is too evolved for its level
#species=0 if lvl < pbGetMinimumLevel(species)# && pbGetPreviousForm(species) != species # && pbGetPreviousForm(species)!=species #species=0 if lvl < pbGetMinimumLevel(species)# && pbGetPreviousForm(species) != species # && pbGetPreviousForm(species)!=species
# Redo the loop if the species is an exception. # Redo the loop if the species is an exception.
species=0 if checkifBlacklisted(species,except2) && !ignoreExcept #except2.include?(species) species = 0 if checkifBlacklisted(species, except2) && !ignoreExcept #except2.include?(species)
#Redo loop if above BST #Redo loop if above BST
species=0 if bst > chosenBST+$game_variables[120]+bonus species = 0 if bst > chosenBST + $game_variables[120] + bonus
#Redo loop if below BST - 200 #Redo loop if below BST - 200
species=0 if bst < (chosenBST - 200) species = 0 if bst < (chosenBST - 200)
# raise _INTL("{1}'s bst ist {2}, new ist {3}",myPoke,chosenBST,bst) # raise _INTL("{1}'s bst ist {2}, new ist {3}",myPoke,chosenBST,bst)
# species=0 if (except.include?(species) && except2.include?(species)) # species=0 if (except.include?(species) && except2.include?(species))
# use this above line instead if you wish to neither receive pokemon that YOU # use this above line instead if you wish to neither receive pokemon that YOU
# cannot trade. # cannot trade.
if rare==true #turn on rareness if rare == true #turn on rareness
if species > 0 if species > 0
rareness=GameData::Species.get(species).catch_rate rareness = GameData::Species.get(species).catch_rate
species=0 if rarecap>=rareness species = 0 if rarecap >= rareness
end end
end end
end end
randTrainerNames = RandTrainerNames_male + RandTrainerNames_female + RandTrainerNames_others randTrainerNames = RandTrainerNames_male + RandTrainerNames_female + RandTrainerNames_others
tname=randTrainerNames[rand(randTrainerNames.size)] # Randomizes Trainer Names tname = randTrainerNames[rand(randTrainerNames.size)] # Randomizes Trainer Names
pname=RandPokeNick[rand(RandPokeNick.size)] # Randomizes Pokemon Nicknames pname = RandPokeNick[rand(RandPokeNick.size)] # Randomizes Pokemon Nicknames
#num of Wondertrade - 1 #num of Wondertrade - 1
$game_variables[111] = $game_variables[111]-1 $game_variables[111] = $game_variables[111] - 1
newpoke = pbStartTrade(pbGet(1),species,pname,tname,0,true) # Starts the trade newpoke = pbStartTrade(pbGet(1), species, pname, tname, 0, true) # Starts the trade
#lower level by 1 to prevent abuse #lower level by 1 to prevent abuse
if poke.level > 25 if poke.level > 25
newpoke.level = poke.level - 1 newpoke.level = poke.level - 1
@@ -1078,53 +1075,53 @@ def pbWonderTrade(lvl,except=[],except2=[],rare=true)
end end
end end
def pbGRS(minBST,chosenBST,luck,rare,except2) #pbGenerateRandomSpecies (le nom doit etre short pour etre callé dans events) def pbGRS(minBST, chosenBST, luck, rare, except2)
# The following excecption fields are for hardcoding the blacklisted pokemon #pbGenerateRandomSpecies (le nom doit etre short pour etre callé dans events)
# without adding them in the events. # The following excecption fields are for hardcoding the blacklisted pokemon
#except+=[] # without adding them in the events.
except2+=[] #except+=[]
species=0 except2 += []
#luck = rand(5)+1 species = 0
rarecap = (rand(rare)/(1+rand(5)))/luck #luck = rand(5)+1
bonus = 0 rarecap = (rand(rare) / (1 + rand(5))) / luck
while (species==0) # Loop Start bonus = 0
bonus+= 5 #+ de chance de pogner un bon poke a chaque loop (permet d'eviter infinite loop) while (species == 0) # Loop Start
bonus += 5 #+ de chance de pogner un bon poke a chaque loop (permet d'eviter infinite loop)
species=rand(PBSpecies.maxValue)+1 species = rand(PBSpecies.maxValue) + 1
bst = calcBaseStats(species) bst = calcBaseStats(species)
# Redo the loop if pokemon is too evolved for its level # Redo the loop if pokemon is too evolved for its level
#species=0 if lvl < pbGetMinimumLevel(species)# && pbGetPreviousForm(species) != species # && pbGetPreviousForm(species)!=species #species=0 if lvl < pbGetMinimumLevel(species)# && pbGetPreviousForm(species) != species # && pbGetPreviousForm(species)!=species
# Redo the loop if the species is an exception. # Redo the loop if the species is an exception.
species=0 if checkifBlacklisted(species,except2)#except2.include?(species) species = 0 if checkifBlacklisted(species, except2) #except2.include?(species)
#Redo loop if above BST #Redo loop if above BST
species=0 if bst > chosenBST+$game_variables[120]+bonus species = 0 if bst > chosenBST + $game_variables[120] + bonus
#Redo loop if below BST - 200 #Redo loop if below BST - 200
species=0 if bst < (chosenBST - 200) species = 0 if bst < (chosenBST - 200)
# raise _INTL("{1}'s bst ist {2}, new ist {3}",myPoke,chosenBST,bst)
# raise _INTL("{1}'s bst ist {2}, new ist {3}",myPoke,chosenBST,bst) # species=0 if (except.include?(species) && except2.include?(species))
# use this above line instead if you wish to neither receive pokemon that YOU
# species=0 if (except.include?(species) && except2.include?(species)) # cannot trade.
# use this above line instead if you wish to neither receive pokemon that YOU if rare == true #turn on rareness
# cannot trade. rareness = GameData::Species.get(species).catch_rate
if rare==true #turn on rareness species = 0 if rarecap >= rareness
rareness=GameData::Species.get(species).catch_rate end
species=0 if rarecap>=rareness
end end
end return species
return species
end end
def calcBaseStats(species) def calcBaseStats(species)
stats = GameData::Species.get(species).base_stats stats = GameData::Species.get(species).base_stats
sum =0 sum = 0
sum+= stats[:HP] sum += stats[:HP]
sum+= stats[:ATTACK] sum += stats[:ATTACK]
sum+= stats[:DEFENSE] sum += stats[:DEFENSE]
sum+= stats[:SPECIAL_ATTACK] sum += stats[:SPECIAL_ATTACK]
sum+= stats[:SPECIAL_DEFENSE] sum += stats[:SPECIAL_DEFENSE]
sum+= stats[:SPEED] sum += stats[:SPEED]
return sum return sum
# #
# basestatsum = $pkmn_dex[species][5][0] # HP # basestatsum = $pkmn_dex[species][5][0] # HP
@@ -1136,8 +1133,8 @@ def calcBaseStats(species)
# return basestatsum # return basestatsum
end end
def checkifBlacklisted(species,blacklist) def checkifBlacklisted(species, blacklist)
return true if blacklist.include?(getBasePokemonID(species,true)) return true if blacklist.include?(getBasePokemonID(species, true))
return true if blacklist.include?(getBasePokemonID(species,false)) return true if blacklist.include?(getBasePokemonID(species, false))
return false return false
end end