[Scripting Question] Helping Adding an Altenative Form

MultipleForms.register(:CHARIZARD,{
"dexEntry"=>proc{|pokemon|
   next if pokemon.form==0      # Normal
   next "The bones it possesses were once its mother?s. Its mother?s regrets have become like a vengeful spirit protecting this Pok?mon."  # Alola
},
"getFormOnCreation"=>proc{|pokemon|
   chancemaps=[669]   
   # Map IDs for alolan form
   if $game_map && chancemaps.include?($game_map.map_id)
     randomnum = rand(2)
     if randomnum == 3
       next 3
     elsif randomnum == 0
       next 0
     end     
   else
     next 0
   end
},
"height"=>proc{|pokemon|
   next if pokemon.form==0      # Normal
   next 1.7                     # Alola
},
"weight"=>proc{|pokemon|
   next if pokemon.form==0      # Normal
   next 110.5                   # Alola
},
"type2"=>proc{|pokemon|
   next if pokemon.form==0      # Normal
   next getID(PBTypes,:DRAGON)    # Alola
},
"getMoveList"=>proc{|pokemon|
   next if pokemon.form==0      # Normal
   movelist=[]
   case pokemon.form            # Alola
     when 3 ; movelist=[[0,:DRAGONBREATH],[1,:FLAREBLITZ],[1,:HEATWAVE],
                        [1,:AIRSLASH],[1,:DRAGONCLAW],[1,:SHADOWCLAW],
                        [1,:SCRATCH],[1,:GROWL],[1,:SMOKESCREEN],
                        [1,:EMBER],[7,:EMBER],[10,:SMOKESCREEN],
                        [17,:DRAGONRAGE],[21,:SCARYFACE],[28,:FIREFANG],
                        [32,:FLAMEBURST],[37,:WINGATTACK],[41,:DRAGONCLAW],
                        [47,:FLAMETHROWER],[56,:DRAGONPULSE],[62,:FIRESPIN],
                        [71,:INFERNO],[77,:DRACOMETEOR],[82,:BLUEFLARE]]
   end
   for i in movelist
     i[1]=getConst(PBMoves,i[1])
   end
   next movelist
},
"getBaseStats"=>proc{|pokemon|
   next if pokemon.form==0      # Normal
   next [78,84,78,100,109,85]   # Alola
},
"ability"=>proc{|pokemon|
   next if pokemon.form==0              # Normal
   next getID(PBAbilities,:LEVITATE)    # Alola
},
"onSetForm"=>proc{|pokemon,form|
   pbSeenForm(pokemon)
}
})