• Our software update is now concluded. You will need to reset your password to log in. In order to do this, you will have to click "Log in" in the top right corner and then "Forgot your password?".
  • Welcome to PokéCommunity! Register now and join one of the best fan communities on the 'net to talk Pokémon and more! We are not affiliated with The Pokémon Company or Nintendo.
    Register

Wild Mega Evolved Pok?mon

fapolo

    • 30
    Posts
    8
    Years
    • Seen Mar 20, 2017
    Wild Mega Evolved Pokémon

    Hello! :)

    There is a way to make a Mega Evolution to appear using an event encounter?

    What I want to do doesn't have a trainer related, only the Pokémon. There is a way to make it appear directly on Mega Form, or change to mega during the first turn?
     
    Rot8er_ConeX

    Rot8er_ConeX

    • 824
    Posts
    9
    Years
    I may be making a horrible assumption here, but I'm assuming you want to make a sort of "wild Mega" Pokemon, that's using the power of their Mega Stone to rampage or something. The player has to calm this Mega down, by either catching or defeating it.

    If this is true, then it'd make more sense for the Pokemon to be in its Mega form as the battle starts. If that's true, then it should be easy. Set up an event that turns on a switch that's otherwise unused. Then, add this script to Encounter Modifiers:

    Code: 
    Events.onWildPokemonCreate+=proc {|sender,e|
   pokemon=e[0]
   if $game_switches[[COLOR="purple"]>Number of switch you used here<[/COLOR]] && isConst?(pokemon.species,PBSpecies,:[COLOR="purple"]>Internal name of species of this event Pokemon here<[/COLOR])
     pokemon.form=1
     pokemon.item=getConst(PBItems,:[COLOR="Purple"]>Internal name of Mega Stone here<[/COLOR])
   end
}

    If you want the Pokemon to start off the battle non-Mega and become Mega first turn, I think it'd require more of a alteration to the scripts.
     

    fapolo

    • 30
    Posts
    8
    Years
    • Seen Mar 20, 2017
    Rot8er_ConeX said:
    I may be making a horrible assumption here, but I'm assuming you want to make a sort of "wild Mega" Pokemon, that's using the power of their Mega Stone to rampage or something. The player has to calm this Mega down, by either catching or defeating it.

    If this is true, then it'd make more sense for the Pokemon to be in its Mega form as the battle starts. If that's true, then it should be easy. Set up an event that turns on a switch that's otherwise unused. Then, add this script to Encounter Modifiers:

    Code: 
    Events.onWildPokemonCreate+=proc {|sender,e|
   pokemon=e[0]
   if $game_switches[[COLOR="purple"]>Number of switch you used here<[/COLOR]] && isConst?(pokemon.species,PBSpecies,:[COLOR="purple"]>Internal name of species of this event Pokemon here<[/COLOR])
     pokemon.form=1
     pokemon.item=getConst(PBItems,:[COLOR="Purple"]>Internal name of Mega Stone here<[/COLOR])
   end
}

    If you want the Pokemon to start off the battle non-Mega and become Mega first turn, I think it'd require more of a alteration to the scripts.
    Click to expand...
    That worked! Thank you! :D

    I assume that I will have to repeat this code, with different values, for each one that I want, right? Or maybe there is a way to make it more generic?
     
    Rot8er_ConeX

    Rot8er_ConeX

    • 824
    Posts
    9
    Years
    fapolo said:
    That worked! Thank you! :D

    I assume that I will have to repeat this code, with different values, for each one that I want, right? Or maybe there is a way to make it more generic?
    Click to expand...

    there's not really a way to make it more generic. But you could alter it like so:

    Code: 
    Events.onWildPokemonCreate+=proc {|sender,e|
   pokemon=e[0]
   if $game_switches[[COLOR="Lime"]>Number of switch you used here<[/COLOR]] 
     if isConst?(pokemon.species,PBSpecies,:[COLOR="lime"]>Internal name of species of this event Pokemon here<[/COLOR])
       pokemon.form=1
       pokemon.item=getConst(PBItems,:[COLOR="lime"]>Internal name of Mega Stone here<[/COLOR])
     elsif isConst?(pokemon.species,PBSpecies,:[COLOR="lime"]>Internal name of species of this event Pokemon here<[/COLOR])
       pokemon.form=1
       pokemon.item=getConst(PBItems,:[COLOR="lime"]>Internal name of Mega Stone here<[/COLOR])
     elsif isConst?(pokemon.species,PBSpecies,:[COLOR="lime"]>Internal name of species of this event Pokemon here<[/COLOR])
       pokemon.form=1
       pokemon.item=getConst(PBItems,:[COLOR="lime"]>Internal name of Mega Stone here<[/COLOR])
     end
   end
}

    Note that for Mewtwo and Charizard, the X forms are form #1, and the Y forms are form #2.
     
    Last edited:

    fapolo

    • 30
    Posts
    8
    Years
    • Seen Mar 20, 2017
    Rot8er_ConeX said:
    there's not really a way to make it more generic. But you could alter it like so:

    Code: 
    Events.onWildPokemonCreate+=proc {|sender,e|
   pokemon=e[0]
   if $game_switches[[COLOR="Lime"]>Number of switch you used here<[/COLOR]] 
     if isConst?(pokemon.species,PBSpecies,:[COLOR="lime"]>Internal name of species of this event Pokemon here<[/COLOR])
       pokemon.form=1
       pokemon.item=getConst(PBItems,:[COLOR="lime"]>Internal name of Mega Stone here<[/COLOR])
     elsif isConst?(pokemon.species,PBSpecies,:[COLOR="lime"]>Internal name of species of this event Pokemon here<[/COLOR])
       pokemon.form=1
       pokemon.item=getConst(PBItems,:[COLOR="lime"]>Internal name of Mega Stone here<[/COLOR])
     elsif isConst?(pokemon.species,PBSpecies,:[COLOR="lime"]>Internal name of species of this event Pokemon here<[/COLOR])
       pokemon.form=1
       pokemon.item=getConst(PBItems,:[COLOR="lime"]>Internal name of Mega Stone here<[/COLOR])
     end
   end
}

    Note that for Mewtwo and Charizard, the X forms are form #1, and the Y forms are form #2.
    Click to expand...
    Working perfectly fine. Thank you! ;)
     
    TBM_Christopher

    TBM_Christopher

    Semi-pro Game Dev
    • 448
    Posts
    14
    Years
    I'm going to piggyback a bit here, but how would one go about allowing a wild Pokemon to mega evolve in the regular context(start off normal, then mega evolve in-battle)?
     
    Rot8er_ConeX

    Rot8er_ConeX

    • 824
    Posts
    9
    Years
    TBM_Christopher said:
    I'm going to piggyback a bit here, but how would one go about allowing a wild Pokemon to mega evolve in the regular context(start off normal, then mega evolve in-battle)?
    Click to expand...

    From what I can tell, it should work fine from the coding perspective and the actual effects, as long as the Pokemon in question is holding the proper Mega Stone. The issue is the fact that is doesn't have an owner, so "The wild (pokemon name here)'s (Mega Stone name here) is reacting (owner name)'s Key Ring!" doesn't make sense.
     
    TBM_Christopher

    TBM_Christopher

    Semi-pro Game Dev
    • 448
    Posts
    14
    Years
    Rot8er_ConeX said:
    From what I can tell, it should work fine from the coding perspective and the actual effects, as long as the Pokemon in question is holding the proper Mega Stone. The issue is the fact that is doesn't have an owner, so "The wild (pokemon name here)'s (Mega Stone name here) is reacting (owner name)'s Key Ring!" doesn't make sense.
    Click to expand...
    Right, the mega ring context is a bit of an issue, but could be worked around fairly easily based on whatever fluff needs are present, but is the only code block preventing a wild Pokemon from mega evolving from pbCanMegaEvolve or elsewhere?
     
    Rot8er_ConeX

    Rot8er_ConeX

    • 824
    Posts
    9
    Years
    Okay, I just tested it in my own game. It actually throws up an error and doesn't Mega Evolve. But...

    (PokeBattle_Battle, Essentials v16)
    Code: 
      def pbMegaEvolve(index)
    return if !@battlers[index] || !@battlers[index].pokemon
    return if !(@battlers[index].hasMega? rescue false)
    return if (@battlers[index].isMega? rescue true)[COLOR="red"]
    if pbGetOwner(index)==nil
      case (@battlers[index].pokemon.megaMessage rescue 0)
      when 1 # Rayquaza
        pbDisplay(_INTL("{1}'s fervent wish is reacting to its body!",@battlers[index].pbThis))
      else
        pbDisplay(_INTL("{1}'s {2} is reacting to its inner power!",
           @battlers[index].pbThis,PBItems.getName(@battlers[index].item)))
      end
    else[/COLOR]
      ownername=pbGetOwner(index).fullname
      ownername=pbGetOwner(index).name if pbBelongsToPlayer?(index)
      case (@battlers[index].pokemon.megaMessage rescue 0)
      when 1 # Rayquaza
        pbDisplay(_INTL("{1}'s fervent wish has reached {2}!",ownername,@battlers[index].pbThis))
      else
        pbDisplay(_INTL("{1}'s {2} is reacting to {3}'s {4}!",
           @battlers[index].pbThis,PBItems.getName(@battlers[index].item),
           ownername,pbGetMegaRingName(index)))
      end[COLOR="Red"]
    end[/COLOR]
    pbCommonAnimation("MegaEvolution",@battlers[index],nil)
    @battlers[index].pokemon.makeMega
    @battlers[index].form=@battlers[index].pokemon.form
    @battlers[index].pbUpdate(true)
    @scene.pbChangePokemon(@battlers[index],@battlers[index].pokemon)
    pbCommonAnimation("MegaEvolution2",@battlers[index],nil)
    meganame=(@battlers[index].pokemon.megaName rescue nil)
    if !meganame || meganame==""
      meganame=_INTL("Mega {1}",PBSpecies.getName(@battlers[index].pokemon.species))
    end
    pbDisplay(_INTL("{1} has Mega Evolved into {2}!",@battlers[index].pbThis,meganame))
    PBDebug.log("[Mega Evolution] #{@battlers[index].pbThis} Mega Evolved")
    side=(pbIsOpposing?(index)) ? 1 : 0
    owner=pbGetOwnerIndex(index)
    @megaEvolution[side][owner]=-2
  end

    These additions fix that problem. You can change the messages if you want.
     
    TBM_Christopher

    TBM_Christopher

    Semi-pro Game Dev
    • 448
    Posts
    14
    Years
    Rot8er_ConeX said:
    Okay, I just tested it in my own game. It actually throws up an error and doesn't Mega Evolve. But...

    (PokeBattle_Battle, Essentials v16)
    Code: 
      def pbMegaEvolve(index)
    return if !@battlers[index] || !@battlers[index].pokemon
    return if !(@battlers[index].hasMega? rescue false)
    return if (@battlers[index].isMega? rescue true)[COLOR=red]
    if pbGetOwner(index)==nil
      case (@battlers[index].pokemon.megaMessage rescue 0)
      when 1 # Rayquaza
        pbDisplay(_INTL("{1}'s fervent wish is reacting to its body!",@battlers[index].pbThis))
      else
        pbDisplay(_INTL("{1}'s {2} is reacting to its inner power!",
           @battlers[index].pbThis,PBItems.getName(@battlers[index].item)))
      end
    else[/COLOR]
      ownername=pbGetOwner(index).fullname
      ownername=pbGetOwner(index).name if pbBelongsToPlayer?(index)
      case (@battlers[index].pokemon.megaMessage rescue 0)
      when 1 # Rayquaza
        pbDisplay(_INTL("{1}'s fervent wish has reached {2}!",ownername,@battlers[index].pbThis))
      else
        pbDisplay(_INTL("{1}'s {2} is reacting to {3}'s {4}!",
           @battlers[index].pbThis,PBItems.getName(@battlers[index].item),
           ownername,pbGetMegaRingName(index)))
      end[COLOR=Red]
    end[/COLOR]
    pbCommonAnimation("MegaEvolution",@battlers[index],nil)
    @battlers[index].pokemon.makeMega
    @battlers[index].form=@battlers[index].pokemon.form
    @battlers[index].pbUpdate(true)
    @scene.pbChangePokemon(@battlers[index],@battlers[index].pokemon)
    pbCommonAnimation("MegaEvolution2",@battlers[index],nil)
    meganame=(@battlers[index].pokemon.megaName rescue nil)
    if !meganame || meganame==""
      meganame=_INTL("Mega {1}",PBSpecies.getName(@battlers[index].pokemon.species))
    end
    pbDisplay(_INTL("{1} has Mega Evolved into {2}!",@battlers[index].pbThis,meganame))
    PBDebug.log("[Mega Evolution] #{@battlers[index].pbThis} Mega Evolved")
    side=(pbIsOpposing?(index)) ? 1 : 0
    owner=pbGetOwnerIndex(index)
    @megaEvolution[side][owner]=-2
  end
    These additions fix that problem. You can change the messages if you want.
    Click to expand...
    Strange, implementing it as you've suggested, it still doesn't seem that wild Pokemon are mega evolving. Is there a check elsewehre that needs to be amended? I tried setting pbCanMegaEvolve to only return true, but I'm not getting a reaction.
     
    You must log in or register to reply here.
    Back
    Top