[PBS Question] How to encounter regional variants (such as Alolan forms)?

[OpalHeart]

Hey, so, a long time ago, I managed to make a regional variant appear in the wild, and I went to do that again recently, and ran into a problem.

I couldn't, for the life of me, remember what the hecking heck I did. I am not sure if I did this through PBS, the script editor, or something else, but I couldn't find anything that felt familiar to me, and I've been wanting to have regional variants in my game. I tried looking it up, since that is likely how I learned how to do it, but had no luck other than the parts I already knew about different forms. If someone could be so kind as to explain to me how to make different forms appear in the wild (again), I'd really appreciate it.

 

[WolfPP]

Check how GIRATINA or SHELLOS works about its changing forms, into _Form script, there you will noticed '$game.maps'. About PBS folder you need to put the variants inside 'pokemonform.txt'. Also, to put movetutor/hm you need to add them inside _Form script too, together with '$game.maps'.

 

[OpalHeart]

Oh right! Okay, I remember now! Thank you so much! It'd been a long time since I worked on my game because life happened, and that was the one thing I needed to remember.

 

[WolfPP]

To Lycanroc I made a specific script to their forms. But about Alolan forms is easy:

Spoiler:

MultipleForms.register(:RATTATA,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :TOXIC,:HIDDENPOWER,:SUNNYDAY,:TAUNT,
                     :ICEBEAM,:BLIZZARD,:PROTECT,:RAINDANCE,
                     :FRUSTRATION,:RETURN,:SHADOWBALL,:DOUBLETEAM,
                     :SLUDGEBOMB,:TORMENT,:FACADE,:REST,:ATTRACT,
                     :THIEF,:ROUND,:QUASH,:EMBARGO,:SHADOWCLAW,
                     :GRASSKNOT,:SWAGGER,:SLEEPTALK,:UTURN,
                     :SUBSTITUTE,:SNARL,:DARKPULSE,:CONFIDE,             
                     # Move Tutors
                     :COVET,:ENDEAVOR,:ICYWIND,:IRONTAIL,:LASTRESORT,:SHOCKWAVE,
                     :SNATCH,:SNORE,:SUPERFANG,:UPROAR,:ZENHEADBUTT]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:RATICATE,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :ROAR,:TOXIC,:BULKUP,:VENOSHOCK,:HIDDENPOWER,
                     :SUNNYDAY,:TAUNT,:ICEBEAM,:BLIZZARD,:HYPERBEAM,
                     :PROTECT,:RAINDANCE,:FRUSTRATION,:RETURN,:SHADOWBALL,
                     :DOUBLETEAM,:SLUDGEWAVE,:SLUDGEBOMB,:TORMENT,
                     :FACADE,:REST,:ATTRACT,:THIEF,:ROUND,
                     :QUASH,:EMBARGO,:SHADOWCLAW,:GIGAIMPACT,
                     :SWORDSDANCE,:GRASSKNOT,:SWAGGER,:SLEEPTALK,:UTURN,
                     :SUBSTITUTE,:SNARL,:DARKPULSE,:CONFIDE,             
                     # Move Tutors
                     :COVET,:ENDEAVOR,:ICYWIND,:IRONTAIL,:KNOCKOFF,:LASTRESORT,:SHOCKWAVE,
                     :SNATCH,:SNORE,:STOMPINGTANTRUM,:SUPERFANG,:THROATCHOP,:UPROAR,:ZENHEADBUTT]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:PIKACHU,{
"onSetForm"=>proc{|pokemon,form|
   moves=[
      :VOLTTACKLE,      # Original Cap
      :VOLTTACKLE,      # Hoenn Cap
      :VOLTTACKLE,      # Sinnoh Cap
      :VOLTTACKLE,      # Unova Cap
      :VOLTTACKLE,      # Kalos Cap
      :VOLTTACKLE,      # Alola Cap
      :VOLTTACKLE,      # Partner Cap
      :THUNDERSHOCK,    # Nude      
      :METEORMASH,      # Rockstar
      :DRAININGKISS,    # Pop Star
      :ELECTRICTERRAIN, # Ph.D
      :FLYINGPRESS,     # Fan
   ]
   hasoldmove=-1
   for i in 0...4
     for j in 0...moves.length
       if isConst?(pokemon.moves[i].id,PBMoves,moves[j])
         hasoldmove=i; break
       end
     end
     break if hasoldmove>=0
   end
   if form>0
     newmove = moves[form-1]
     if newmove!=nil && hasConst?(PBMoves,newmove)
       if hasoldmove>=0
         # Automatically replace the old form's special move with the new one's
         oldmovename = PBMoves.getName(pokemon.moves[hasoldmove].id)
         newmovename = PBMoves.getName(getID(PBMoves,newmove))
         pokemon.moves[hasoldmove] = PBMove.new(getID(PBMoves,newmove))
         Kernel.pbMessage(_INTL("1,\\wt[16] 2, and\\wt[16]...\\wt[16] ...\\wt[16] ... Ta-da!\\se[Battle ball drop]\1"))
         Kernel.pbMessage(_INTL("{1} forgot how to use {2}.\\nAnd...\1",pokemon.name,oldmovename))
         Kernel.pbMessage(_INTL("\\se[]{1} learned {2}!\\se[Pkmn move learnt]",pokemon.name,newmovename))
       else
         # Try to learn the new form's special move
         pbLearnMove(pokemon,getID(PBMoves,newmove),true)
       end
     end
   else
     if hasoldmove>=0
       # Forget the old form's special move
       oldmovename=PBMoves.getName(pokemon.moves[hasoldmove].id)
       pokemon.pbDeleteMoveAtIndex(hasoldmove)
       Kernel.pbMessage(_INTL("{1} forgot {2}...",pokemon.name,oldmovename))
       if pokemon.moves.find_all{|i| i.id!=0}.length==0
         pbLearnMove(pokemon,getID(PBMoves,:THUNDERSHOCK))
       end
     end
   end
}
})

MultipleForms.register(:RAICHU,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :PSYSHOCK,:CALMMIND,:TOXIC,:HIDDENPOWER,
                     :HYPERBEAM,:LIGHTSCREEN,:PROTECT,:RAINDANCE,
                     :SAFEGUARD,:FRUSTRATION,:THUNDERBOLT,:THUNDER,
                     :RETURN,:PSYCHIC,:BRICKBREAK,:DOUBLETEAM,
                     :REFLECT,:FACADE,:REST,:ATTRACT,:THIEF,
                     :ROUND,:ECHOEDVOICE,:FOCUSBLAST,:FLING,
                     :CHARGEBEAM,:GIGAIMPACT,:VOLTSWITCH,
                     :THUNDERWAVE,:GRASSKNOT,:SWAGGER,:SLEEPTALK,
                     :SUBSTITUTE,:WILDCHARGE,:CONFIDE,
                     # Move Tutors
                     :ALLYSWITCH,:COVET,:ELECTROWEB,:FOCUSPUNCH,
                     :HELPINGHAND,:IRONTAIL,:KNOCKOFF,:LASERFOCUS,
                     :MAGICCOAT,:MAGICROOM,:MAGNETRISE,:RECYCLE,
                     :SHOCKWAVE,:SIGNALBEAM,:SNORE,:TELEKINESIS,
                     :THUNDERPUNCH]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})


MultipleForms.register(:SANDSHREW,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :WORKUP,:TOXIC,:HAIL,:HIDDENPOWER,:SUNNYDAY,
                     :BLIZZARD,:PROTECT,:SAFEGUARD,:FRUSTRATION,
                     :EARTHQUAKE,:RETURN,:LEECHLIFE,:BRICKBREAK,
                     :DOUBLETEAM,:AERIALACE,:FACADE,:REST,:ATTRACT,
                     :THIEF,:ROUND,:FLING,:SHADOWCLAW,:AURORAVEIL,:GYROBALL,
                     :SWORDSDANCE,:BULLDOZE,:FROSTBREATH,:ROCKSLIDE,
                     :XSCISSOR,:POISONJAB,:SWAGGER,:SLEEPTALK,:SUBSTITUTE,
                     :CONFIDE,
                     # Move Tutors
                     :AQUATAIL,:COVET,:FOCUSPUNCH,:ICEPUNCH,:ICYWIND,
                    :IRONDEFENSE,:IRONHEAD,:IRONTAIL,:KNOCKOFF,
                    :SNORE,:STEALTHROCK,:SUPERFANG,THROATCHOP]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:SANDSLASH,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :WORKUP,:TOXIC,:HAIL,:HIDDENPOWER,:SUNNYDAY,
                     :BLIZZARD,:HYPERBEAM,:PROTECT,:SAFEGUARD,:FRUSTRATION,
                     :EARTHQUAKE,:RETURN,:LEECHLIFE,:BRICKBREAK,
                     :DOUBLETEAM,:AERIALACE,:FACADE,:REST,:ATTRACT,
                     :THIEF,:ROUND,:FOCUSBLAST,:FLING,:SHADOWCLAW,:AURORAVEIL,:GYROBALL,
                     :SWORDSDANCE,:BULLDOZE,:FROSTBREATH,:ROCKSLIDE,
                     :XSCISSOR,:POISONJAB,:SWAGGER,:SLEEPTALK,:SUBSTITUTE,
                     :CONFIDE,
                     # Move Tutors
                     :AQUATAIL,:COVET,:DRILLRUN,:FOCUSPUNCH,:ICEPUNCH,:ICYWIND,
                     :IRONDEFENSE,:IRONHEAD,:IRONTAIL,:KNOCKOFF,
                     :SNORE,:STEALTHROCK,:SUPERFANG,THROATCHOP]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:VULPIX,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :ROAR,:TOXIC,:HAIL,:HIDDENPOWER,:ICEBEAM,:BLIZZARD,
                     :PROTECT,:RAINDANCE,:SAFEGUARD,:FRUSTRATION,:RETURN,
                     :DOUBLETEAM,:FACADE,:REST,:ATTRACT,:ROUND,:PAYBACK,
                     :AURORAVEIL,:PSYCHUP,:FROSTBREATH,:SWAGGER,
                     :SLEEPTALK,:SUBSTITUTE,:DARKPULSE,:CONFIDE,
                     # Move Tutors
                     :AQUATAIL,:COVET,:FOULDPLAY,:HEALBELL,:ICYWIND,
                     :IRONTAIL,:PAINSPLIT,:ROLEPLAY,
                     :SNORE,:SPITE,:ZENHEADBUTT]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:NINETALES,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :PSYSHOCK,:CALMMIND,:ROAR,:TOXIC,:HAIL,:HIDDENPOWER,
                     :ICEBEAM,:BLIZZARD,:HYPERBEAM,:PROTECT,:RAINDANCE,
                     :SAFEGUARD,:FRUSTRATION,:RETURN,:DOUBLETEAM,:FACADE,
                     :REST,:ATTRACT,:ROUND,:PAYBACK,:GIGAIMPACT,:AURORAVEIL,
                     :PSYCHUP,:FROSTBREATH,:DREAMEATER,:SWAGGER,:SLEEPTALK,
                     :SUBSTITUTE,:DARKPULSE,:DAZZLINGGLEAM,:CONFIDE,
                     # Move Tutors
                     :AQUATAIL,:COVET,:FOULDPLAY,:HEALBELL,:ICYWIND,
                     :IRONTAIL,:LASERFOCUS,:PAINSPLIT,:ROLEPLAY,
                     :SNORE,:SPITE,:WONDERROOM,:ZENHEADBUTT]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:DIGLETT,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :WORKUP,:TOXIC,:HIDDENPOWER,:SUNNYDAY,:PROTECT,:FRUSTRATION,
                     :EARTHQUAKE,:RETURN,:DOUBLETEAM,:SLUDGEBOMB,:SANDSTORM,
                     :ROCKTOMB,:AERIALACE,:FACADE,:REST,:ATTRACT,:THIEF,:ROUND,
                     :ECHOEDVOICE,:SHADOWCLAW,:BULLDOZE,:ROCKSLIDE,
                     :SWAGGER,:SLEEPTALK,:SUBSTITUTE,:FLASHCANNON,:CONFIDE,             
                     # Move Tutors
                     :EARTHPOWER,:IRONDEFENSE,:IRONHEAD,:SNORE,:STEATHROCK,
                     :STOMPINGTANTRUM]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:DUGTRIO,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :WORKUP,:TOXIC,:HIDDENPOWER,:SUNNYDAY,:HYPERBEAM,:PROTECT,
                     :FRUSTRATION,:EARTHQUAKE,:RETURN,:DOUBLETEAM,:SLUDGEWAVE,
                     :SLUDGEBOMB,:SANDSTORM,:ROCKTOMB,:AERIALACE,:FACADE,:REST,:ATTRACT,:THIEF,:ROUND,
                     :ECHOEDVOICE,:SHADOWCLAW,:GIGAIMPACT,:STONEEDGE,:BULLDOZE,:ROCKSLIDE,
                     :SWAGGER,:SLEEPTALK,:SUBSTITUTE,:FLASHCANNON,:CONFIDE,             
                     # Move Tutors
                     :EARTHPOWER,:IRONDEFENSE,:IRONHEAD,:SNORE,:STEATHROCK,
                     :STOMPINGTANTRUM]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:MEOWTH,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :WORKUP,:TOXIC,:HIDDENPOWER,:SUNNYDAY,:TAUNT,:PROTECT,
                     :RAINDANCE,:FRUSTRATION,:THUNDERBOLT,:THUNDER,:RETURN,
                     :SHADOWBALL,:DOUBLETEAM,:AERIALACE,:FACADE,:REST,:ATTRACT,:THIEF,:ROUND,
                     :ECHOEDVOICE,:QUASH,:EMBARGO,:SHADOWCLAW,:PAYBACK,:PSYCHUP,
                     :DREAMEATER,:SWAGGER,:SLEEPTALK,:UTURN,:SUBSTITUTE,:DARKPULSE,:CONFIDE,             
                     # Move Tutors
                     :COVET,:FOULPLAY,:GUNKSHOT,:HYPERVOICE,:ICYWIND,:IRONTAIL,
                     :KNOCKOFF,:LASTRESORT,:SEEDBOMB,:SHOCKWAVE,:SNATCH,:SNORE,
                     :SPITE,:THROATCHOP,:UPROAR,:WATERPULSE]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:PERSIAN,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :WORKUP,:ROAR,:TOXIC,:HIDDENPOWER,:SUNNYDAY,:TAUNT,:HYPERBEAM,
                     :PROTECT,:RAINDANCE,:FRUSTRATION,:THUNDERBOLT,:THUNDER,:RETURN,
                     :SHADOWBALL,:DOUBLETEAM,:AERIALACE,:FACADE,:REST,:ATTRACT,:THIEF,:ROUND,
                     :ECHOEDVOICE,:QUASH,:EMBARGO,:SHADOWCLAW,:PAYBACK,:GIGAIMPACT,:PSYCHUP,
                     :DREAMEATER,:SWAGGER,:SLEEPTALK,:UTURN,:SUBSTITUTE,:SNARL,:DARKPULSE,:CONFIDE,             
                     # Move Tutors
                     :COVET,:FOULPLAY,:GUNKSHOT,:HYPERVOICE,:ICYWIND,:IRONTAIL,
                     :KNOCKOFF,:LASTRESORT,:SEEDBOMB,:SHOCKWAVE,:SNATCH,:SNORE,
                     :SPITE,:THROATCHOP,:UPROAR,:WATERPULSE]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})


MultipleForms.register(:GEODUDE,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :TOXIC,:HIDDENPOWER,:SUNNYDAY,:PROTECT,:FRUSTRATION,:SMACKDOWN,
                     :THUNDERBOLT,:THUNDER,:EARTHQUAKE,:RETURN,:BRICKBREAK,:DOUBLETEAM,:FLAMETHROWER,
                     :SANDSTORM,:FIREBLAST,:ROCKTOMB,:FACADE,:REST,:ATTRACT,:ROUND,
                     :FLING,:CHARGEBEAM,:BRUTALSWING,:EXPLOSION,:ROCKPOLISH,:STONEEDGE,
                     :VOLTSWITCH,:GYROBALL,:BULLDOZE,:ROCKSLIDE,
                     :SWAGGER,:SLEEPTALK,:SUBSTITUTE,:NATUREPOWER,:CONFIDE,             
                     # Move Tutors
                     :BLOCK,:EARTHCPOWER,:ELECTROWEB,:FIREPUNCH,:FOCUSPUNCH,
                     :IRONDEFENSE,:MAGNETRISE,:SNORE,:STEALTHROCK,:SUPERPOWER,
                     :THUNDERPUNCH]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:GRAVELER,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :TOXIC,:HIDDENPOWER,:SUNNYDAY,:PROTECT,:FRUSTRATION,:SMACKDOWN,
                     :THUNDERBOLT,:THUNDER,:EARTHQUAKE,:RETURN,:BRICKBREAK,:DOUBLETEAM,:FLAMETHROWER,
                     :SANDSTORM,:FIREBLAST,:ROCKTOMB,:FACADE,:REST,:ATTRACT,:ROUND,
                     :FLING,:CHARGEBEAM,:BRUTALSWING,:EXPLOSION,:ROCKPOLISH,:STONEEDGE,
                     :VOLTSWITCH,:GYROBALL,:BULLDOZE,:ROCKSLIDE,
                     :SWAGGER,:SLEEPTALK,:SUBSTITUTE,:NATUREPOWER,:CONFIDE,             
                     # Move Tutors
                     :ALLYSWITCH,:BLOCK,:EARTHCPOWER,:ELECTROWEB,:FIREPUNCH,:FOCUSPUNCH,
                     :IRONDEFENSE,:MAGNETRISE,:SHOCKWAVE,:SNORE,:STEALTHROCK,
                     :STOMPINGTANTRUM,:SUPERPOWER,:THUNDERPUNCH]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:GOLEM,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :ROAR,:TOXIC,:HIDDENPOWER,:SUNNYDAY,:HYPERBEAM,:PROTECT,
                     :FRUSTRATION,:SMACKDOWN,:THUNDERBOLT,:THUNDER,:EARTHQUAKE,
                     :RETURN,:BRICKBREAK,:DOUBLETEAM,:FLAMETHROWER,:SANDSTORM,
                     :FIREBLAST,:ROCKTOMB,:FACADE,:REST,:ATTRACT,:ROUND,
                     :ECHOEDVOICE,:FOCUSBLAST,:FLING,:CHARGEBEAM,:BRUTALSWING,
                     :EXPLOSION,:GIGAIMPACT,:ROCKPOLISH,:STONEEDGE,:VOLTSWITCH,
                     :GYROBALL,:BULLDOZE,:ROCKSLIDE,:SWAGGER,:SLEEPTALK,
                     :SUBSTITUTE,:WILDCHARGE,:NATUREPOWER,:CONFIDE,             
                     # Move Tutors
                     :ALLYSWITCH,:BLOCK,:EARTHCPOWER,:ELECTROWEB,:FIREPUNCH,:FOCUSPUNCH,
                     :IRONDEFENSE,:MAGNETRISE,:SHOCKWAVE,:SNORE,:STEALTHROCK,
                     :STOMPINGTANTRUM,:SUPERPOWER,:THUNDERPUNCH]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:GRIMER,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :TOXIC,:VENOSHOCK,:HIDDENPOWER,:SUNNYDAY,:TAUNT,:PROTECT,
                     :RAINDANCE,:FRUSTRATION,:RETURN,:SHADOWBALL,:DOUBLETEAM,
                     :SLUDWAVE,:FLAMETHROWER,:SLUDGEBOMB,:FIREBLAST,:ROCKTOMB,
                     :TORMENT,:FACADE,:REST,:ATTRACT,:THIEF,:ROUND,:FLING,
                     :BRUTALSWING,:QUASH,:EMBARGO,:EXPLOSION,:PAYBACK,:ROCKPOLISH,
                     :STONEEDGE,:ROCKSLIDE,:INFESTATION,:POISONJAB,:SWAGGER,
                     :SLEEPTALK,:SUBSTITUTE,:SNARL,:CONFIDE,             
                     # Move Tutors
                     :FIREPUNCH,:FOCUSPUNCH,:GASTROACID,:GIGADRAIN,:GUNKSHOT,
                     :ICEPUNCH,:KNOCKOFF,:PAINSPLIT,:SHOCKWAVE,:SNORE,:SPITE,
                     :THUNDERPUNCH]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:MUK,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :TOXIC,:VENOSHOCK,:HIDDENPOWER,:SUNNYDAY,:TAUNT,:HYPERBEAM,
                     :PROTECT,:RAINDANCE,:FRUSTRATION,:RETURN,:SHADOWBALL,
                     :BRICKBREAK,:DOUBLETEAM,:SLUDWAVE,:FLAMETHROWER,:SLUDGEBOMB,
                     :FIREBLAST,:ROCKTOMB,:TORMENT,:FACADE,:REST,:ATTRACT,:THIEF,
                     :ROUND,:FOCUSBLAST,:FLING,:BRUTALSWING,:QUASH,:EMBARGO,
                     :EXPLOSION,:PAYBACK,:GIGAIMPACT,:ROCKPOLISH,:STONEEDGE,
                     :ROCKSLIDE,:INFESTATION,:POISONJAB,:SWAGGER,:SLEEPTALK,
                     :SUBSTITUTE,:SNARL,:DARKPULSE,:CONFIDE,             
                     # Move Tutors
                     :BLOCK,:FIREPUNCH,:FOCUSPUNCH,:GASTROACID,:GIGADRAIN,:GUNKSHOT,
                     :ICEPUNCH,:KNOCKOFF,:PAINSPLIT,:RECYCLE,:SHOCKWAVE,:SNORE,:SPITE,
                     :THUNDERPUNCH]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:EXEGGUTOR,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :PSYSHOCK,:TOXIC,:HIDDENPOWER,:SUNNYDAY,:HYPERBEAM,
                     :LIGHTSCREEN,:PROTECT,:FRUSTRATION,:SOLARBEAM,:EARTHQUAKE,
                     :RETURN,:PSYCHIC,:BRICKBREAK,:DOUBLETEAM,:REFLECT,
                     :FLAMETHROWER,:SLUDGEBOMB,:FACADE,:REST,:ATTRACT,:THIEF,
                     :ROUND,:ENERGYBALL,:BRUTALSWING,:EXPLOSION,:GIGAIMPACT,
                     :SWORDSDANCE,PSYCHUP,:BULLDOZE,:DRAGONTAIL,:INFESTATION,
                     :DREAMEATER,:GRASSKNOT,:SWAGGER,:SLEEPTALK,:SUBSTITUTE,
                     :TRICKROOM,:NATUREPOWER,:CONFIDE,             
                     # Move Tutors
                     :BLOCK,:DRACOMETEOR,:DRAGONPULSE,:GIGADRAIN,:GRAVITY,
                     :IRONHEAD,:IRONTAIL,:KNOCKOFF,:LOWKICK,:OUTRAGE,:SEEDBOMB,
                     :SKILLSWAP,:SNORE,:STOMPINGTANTRUM,:SUPERPOWER,
                     :SYNTHESIS,:TELEKINESIS,:WORRYSEED,:ZENHEADBUTT]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

MultipleForms.register(:MAROWAK,{
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :TOXIC,:HIDDENPOWER,:SUNNYDAY,:ICEBEAM,:BLIZZARD,:HYPERBEAM,
                     :PROTECT,:RAINDANCE,:FRUSTRATION,:SMACKDOWN,:THUNDERBOLT,
                     :THUNDER,:EARTHQUAKE,:RETURN,:SHADOWBALL,:BRICKBREAK,:DOUBLETEAM,
                     :FLAMETHROWER,:SANDSTORM,:FIREBLAST,:ROCKTOMB,:AERIALACE,:FACADE,
                     :FLAMECHARGE,:REST,:ATTRACT,:THIEF,:ROUND,:ECHOEDVOICE,
                     :FOCUSBLAST,:FALSESWIPE,:FLING,:BRUTALSWING,:WILLOWISP,
                     :GIGAIMPACT,:STONEEDGE,:BULLDOZE,:ROCKSLIDE,:DREAMEATER,
                     :SWAGGER,:SLEEPTALK,:SUBSTITUTE,:DARKPULSE,:CONFIDE,             
                     # Move Tutors
                     :ALLYSWITCH,:EARTHPOWER,:ENDEAVOR,:FIREPUNCH,:FOCUSPUNCH,
                     :HEATWAVE,:ICYWIND,:IRONDEFENSE,:IRONHEAD,:IRONTAIL,:KNOCKOFF,
                     :LOWKICK,:OUTRAGE,:PAINSPLIT,:SNORE,:SPITE,:STEALTHROCK,
                     :STOMPINGTANTRUM,:THROATCHOP,:THUNDERPUNCH,:UPROAR]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})

Check if you use to PIKACHU (about its forms). Also, i made one by one, so give credits if use. :D