Evolution by Fusion

# created by eboxiv and updated to 16+ and translated to spanish by Diego Mertens
          elsif isConst?(pkmn.moves[i].id,PBMoves,:CLAMP)
            @scene.pbSetHelpText(_INTL("¿Usar en quién?"))
              oldpkmnid=pkmnid
              loop do
                @scene.pbPreSelect(pkmnid)
                pkmnid=@scene.pbChoosePokemon(true)
                break if pkmnid<0
                newpkmn=@party[pkmnid]
                oldlvl=newpkmn.level
                oldsmart=newpkmn.smart
                oldmark=newpkmn.markings
            if newpkmn.species==PBSpecies::SLOWPOKE
              if newpkmn.item==PBItems::KINGSROCK || newpkmn.level>=37
                    newpkmn.smart=255
                    newpkmn.markings=8
                    newspecies=pbCheckEvolution(newpkmn)
                if newspecies>0
                  pbFadeOutInWithMusic(99999){
                   evo=PokemonEvolutionScene.new
                   evo.pbStartScreen(newpkmn,newspecies)
                   evo.pbEvolution
                   evo.pbEndScreen
                  }
                end
                newpkmn.level=oldlvl
                newpkmn.smart=oldsmart
                newpkmn.markings=oldmark
                pbDisplay(_INTL("Shellder se fusionó con Slowpoke."))
                     @party[oldpkmnid]=nil
                     @party.compact!
                     pbHardRefresh
                       pbRefresh
                       break
              else
                  pbDisplay(_INTL("No funcionará"))
              end
            else
                  pbDisplay(_INTL("¿Porqué harías eso?"))
                end
                break
            end