Making New Pokemon Fusions (DNA Splicers)

nieveso · Jul 27, 2014

Anyone know how I would go about making more pokemon fusions with the DNA splicers?
(Maybe give me some example code I could edit) Sorry I'm just really bad at scripting. (I started 4 days ago) #ExplaintomelikeI'mfive

DL Kurosh · Jul 27, 2014

In the script section PokemonItemEffects, search for this line (should be around 797)

Code:

ItemHandlers::UseOnPokemon.add(:DNASPLICERS,proc{|item,pokemon,scene|

Then, just literally copy this:

Code:

if isConst?(pokemon.species,PBSpecies,:KYUREM) && pokemon.hp>=0
     if pokemon.fused!=nil
       if $Trainer.party.length>=6
         scene.pbDisplay(_INTL("Your party is full! You can't unfuse {1}.",pokemon.name))
         next false
       else
         $Trainer.party[$Trainer.party.length]=pokemon.fused
         pokemon.fused=nil
         pokemon.form=0
         scene.pbHardRefresh
         scene.pbDisplay(_INTL("{1} changed Forme!",pokemon.name))
         next true
       end
     else
       chosen=scene.pbChoosePokemon(_INTL("Fuse with which Pokémon?"))
       if chosen>=0
         poke2=$Trainer.party[chosen]
         if (isConst?(poke2.species,PBSpecies,:RESHIRAM) ||
            isConst?(poke2.species,PBSpecies,:ZEKROM)) && poke2.hp>=0
           pokemon.form=1 if isConst?(poke2.species,PBSpecies,:RESHIRAM)
           pokemon.form=2 if isConst?(poke2.species,PBSpecies,:ZEKROM)
           pokemon.fused=poke2
           pbRemovePokemonAt(chosen)
           scene.pbHardRefresh
           scene.pbDisplay(_INTL("{1} changed Forme!",pokemon.name))
           next true
         elsif pokemon==poke2
           scene.pbDisplay(_INTL("{1} can't be fused with itself!",pokemon.name))
         else
           scene.pbDisplay(_INTL("{1} can't be fused with {2}.",poke2.name,pokemon.name))
         end
       else
         next false
       end
     end
   else
     scene.pbDisplay(_INTL("It had no effect."))
     next false
   end

But change "Kyurem", "Reshiram" and "Zekrom" for whatever you want.

mej71 · Jul 27, 2014

Pretty simple
Here's the code used for the splicers(you can search throughout all the script sections for keywords by pressing Shift+Ctrl+F)
Let's pretend we want to fuse Pikachu with either Mankey or Charizard

Code:

ItemHandlers::UseOnPokemon.add(:DNASPLICERS,proc{|item,pokemon,scene|
   if isConst?(pokemon.species,PBSpecies,:KYUREM) && pokemon.hp>=0
     if pokemon.fused!=nil
       if $Trainer.party.length>=6
         scene.pbDisplay(_INTL("Your party is full! You can't unfuse {1}.",pokemon.name))
         next false
       else
         $Trainer.party[$Trainer.party.length]=pokemon.fused
         pokemon.fused=nil
         pokemon.form=0
         scene.pbHardRefresh
         scene.pbDisplay(_INTL("{1} changed Forme!",pokemon.name))
         next true
       end
     else
       chosen=scene.pbChoosePokemon(_INTL("Fuse with which Pokémon?"))
       if chosen>=0
         poke2=$Trainer.party[chosen]
         if (isConst?(poke2.species,PBSpecies,:RESHIRAM) ||
            isConst?(poke2.species,PBSpecies,:ZEKROM)) && poke2.hp>=0
           pokemon.form=1 if isConst?(poke2.species,PBSpecies,:RESHIRAM)
           pokemon.form=2 if isConst?(poke2.species,PBSpecies,:ZEKROM)
           pokemon.fused=poke2
           pbRemovePokemonAt(chosen)
           scene.pbHardRefresh
           scene.pbDisplay(_INTL("{1} changed Forme!",pokemon.name))
           next true
         elsif pokemon==poke2
           scene.pbDisplay(_INTL("{1} can't be fused with itself!",pokemon.name))
         else
           scene.pbDisplay(_INTL("{1} can't be fused with {2}.",poke2.name,pokemon.name))
         end
       else
         next false
       end
     end
[COLOR="Red"]elsif isConst?(pokemon.species,PBSpecies,:PIKACHU) && pokemon.hp>=0  [COLOR="Blue"]#checks to see if this pokemon is Pikachu?[/COLOR]
   if pokemon.fused!=nil  [COLOR="Blue"]#checks to see if this pokemon has already been fused[/COLOR]
       if $Trainer.party.length>=6   [COLOR="blue"]#if it has, this checks to see if you have 6 pokemon in your party[/COLOR]
         scene.pbDisplay(_INTL("Your party is full! You can't unfuse {1}.",pokemon.name))  [COLOR="blue"]#you can't have more than 6, so you can't unfuse them[/COLOR]
         next false  
       else     [COLOR="blue"]#if you have less that 6 pokemon[/COLOR]
         $Trainer.party[$Trainer.party.length]=pokemon.fused   [COLOR="blue"]#finds the next open slot in your party and puts unfused pokemon there[/COLOR]
         pokemon.fused=nil  [COLOR="blue"]#sets this equal to indicate it is not fused[/COLOR]
         pokemon.form=0  [COLOR="blue"]#sets form equal to 0[/COLOR]
         scene.pbHardRefresh  [COLOR="blue"]#refreshes the scene, to show the changes to your party immediately[/COLOR]
         scene.pbDisplay(_INTL("{1} changed Forme!",pokemon.name))
         next true
       end
     else  [COLOR="blue"]#if the pokemon hasn't been fused[/COLOR]
       chosen=scene.pbChoosePokemon(_INTL("Fuse with which Pokémon?"))  [COLOR="blue"]#returns a chosen party index[/COLOR]
       if chosen>=0  [COLOR="blue"]#the party index will be -1 if the player selects cancel, this checks that[/COLOR]
         poke2=$Trainer.party[chosen]  [COLOR="blue"]#the pokemon you chose to fuse it with[/COLOR]
         if (isConst?(poke2.species,PBSpecies,:MANKEY) ||  
            isConst?(poke2.species,PBSpecies,:CHARIZARD)) && poke2.hp>=0  [COLOR="blue"]#is it one of these pokemon, and is it's hp greater than or equal to 0(Idk what exactly this intends to prevent, hopefully someone can explain that to me?)[/COLOR]
           pokemon.form=1 if isConst?(poke2.species,PBSpecies,:MANKEY)  [COLOR="blue"]#if the pokemon you chose is Mankey, it will set Pikachu's form equal to 1[/COLOR]
           pokemon.form=2 if isConst?(poke2.species,PBSpecies,:CHARIZARD) [COLOR="blue"]#if the pokemon you chose is Charizard, it will set Pikachu's form equal to 2[/COLOR]
           pokemon.fused=poke2 [COLOR="blue"]#sets the fused value equal to the pokemon you chose, so that it will return when/if you unfuse your Pikachu[/COLOR]
           pbRemovePokemonAt(chosen)  [COLOR="blue"]#removes the pokemon you chose[/COLOR]
           scene.pbHardRefresh  [COLOR="blue"]#refreshes the scene to show changes immediately[/COLOR]
           scene.pbDisplay(_INTL("{1} changed Forme!",pokemon.name))
           next true
         elsif pokemon==poke2   [COLOR="blue"] #doesn't let you fuse your pikachu with itself[/COLOR]
           scene.pbDisplay(_INTL("{1} can't be fused with itself!",pokemon.name))
         else  [COLOR="blue"]#if it wasn't either of the aforementioned pokemon (Mankey and Charizard), it will tell you it can't fuse the pokemon you selected[/COLOR]
           scene.pbDisplay(_INTL("{1} can't be fused with {2}.",poke2.name,pokemon.name))
         end
       else
         next false
       end
     end[/COLOR]
   else
     scene.pbDisplay(_INTL("It had no effect."))
     next false
   end
})

Once you've added in these checks properly, all you need is the graphics. Pikachu is number 25, so in your Battlers folder you will need 025_1 ,025b_1,025_2and 025b_2 (the front and back battle sprites for your new forms). You will also need similar graphics in your Icons folder. If these files do not exist, Essentials will simply use the regular form's file (025). See the wiki for more information on naming files.

nieveso · Jul 27, 2014

Thanks for the help! :D Also wondering, how do I determine the base stats (and typing if I wanted to change that, but that's not as big of a deal) once fused? and is there a way to make the fused pokemon learn a move exclusively?

Lusus · Jul 27, 2014

nieveso said:
Thanks for the help! :D Also wondering, how do I determine the base stats once fused? and is there a way to make the fused pokemon learn a move exclusively?

Find Kyurems script in PokemonMultipleForms scripts, it should look like this (without some comments)

Code:

MultipleForms.register(:KYUREM,{
"getBaseStats"=>proc{|pokemon|
   case pokemon.form  #Stats in order: Attack, Defense, Speed, Sp. Atk, Sp. Def
     when 1; next [125,120, 90,95,170,100] # White Kyurem
     when 2; next [125,170,100,95,120, 90] # Black Kyurem
     else;   next                          # Kyurem
   end
},
"ability"=>proc{|pokemon|  #Ability
   case pokemon.form
     when 1; next getID(PBAbilities,:TURBOBLAZE) # White Kyurem
     when 2; next getID(PBAbilities,:TERAVOLT)   # Black Kyurem
     else;   next                                # Kyurem
   end
},
"evYield"=>proc{|pokemon|    #EVs
   case pokemon.form
     when 1; next [0,0,0,0,3,0] # White Kyurem
     when 2; next [0,3,0,0,0,0] # Black Kyurem
     else;   next               # Kyurem
   end
},
"getMoveList"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form   #moves
     when 1; movelist=[[1,:ICYWIND],[1,:DRAGONRAGE],[8,:IMPRISON],
                       [15,:ANCIENTPOWER],[22,:ICEBEAM],[29,:DRAGONBREATH],
                       [36,:SLASH],[43,:FUSIONFLARE],[50,:ICEBURN],
                       [57,:DRAGONPULSE],[64,:IMPRISON],[71,:ENDEAVOR],
                       [78,:BLIZZARD],[85,:OUTRAGE],[92,:HYPERVOICE]]
     when 2; movelist=[[1,:ICYWIND],[1,:DRAGONRAGE],[8,:IMPRISON],
                       [15,:ANCIENTPOWER],[22,:ICEBEAM],[29,:DRAGONBREATH],
                       [36,:SLASH],[43,:FUSIONBOLT],[50,:FREEZESHOCK],
                       [57,:DRAGONPULSE],[64,:IMPRISON],[71,:ENDEAVOR],
                       [78,:BLIZZARD],[85,:OUTRAGE],[92,:HYPERVOICE]]
   end
   for i in movelist
     i[1]=getConst(PBMoves,i[1])
   end
   next movelist
},
"onSetForm"=>proc{|pokemon,form|
   pbSeenForm(pokemon)
}
})

copy it, paste it below it then just modify it depending on what your fusion is like(and if Pokemon only has 1 fusion, remove all "when 2" parts).

nieveso · Jul 27, 2014

<3 Thankyou so much! Sorry for being so daft :P

ShinyObstagoon88 · Sep 19, 2019

Hi, i'm trying to fuse minun and plusle but it doesn't work. This is the code:

if isConst?(pokemon.species,PBSpecies,:MINUN) && pokemon.hp>=0
if pokemon.fused!=nil
if $Trainer.party.length>=6
scene.pbDisplay(_INTL("Your party is full! You can't unfuse {1}.",pokemon.name))
next false
else
$Trainer.party[$Trainer.party.length]=pokemon.fused
pokemon.fused=nil
pokemon.form=0
scene.pbHardRefresh
scene.pbDisplay(_INTL("{1} changed Forme!",pokemon.name))
next true
end
else
chosen=scene.pbChoosePokemon(_INTL("Fuse with which Pokémon?"))
if chosen>=0
poke2=$Trainer.party[chosen]
if (isConst?(poke2.species,PBSpecies,:PLUSLE)) && poke1.hp>=0
pokemon.form=1 if isConst?(poke2.species,PBSpecies,:PLUSLE)
pokemon.fused=poke2
pbRemovePokemonAt(chosen)
scene.pbHardRefresh
scene.pbDisplay(_INTL("{1} changed Forme!",pokemon.name))
next true
elsif pokemon==poke2
scene.pbDisplay(_INTL("{1} can't be fused with itself!",pokemon.name))
else
scene.pbDisplay(_INTL("{1} can't be fused with {2}.",poke2.name,pokemon.name))
end
else
next false
end
end
else
scene.pbDisplay(_INTL("It had no effect."))
next false
end
})

WolfPP · Sep 19, 2019

Ernnn, use [~~code~]TEXT HERE[~/code] without "~" to be more organized. Also, use CTRL+SHIFT+F to find DNASPLICERS and copy and edit like you want for Plusle and Minus. You need to create a Item for it.

ShinyObstagoon88 · Sep 19, 2019

Thanks, that useful.

Making New Pokemon Fusions (DNA Splicers)

More options

nieveso

DL Kurosh

mej71

nieveso

Lusus

nieveso

ShinyObstagoon88

WolfPP

Spriter/ Pixel Artist

ShinyObstagoon88