[Scripting Question] Form change based on pre-evolution.

MultipleForms.register(:NAME,{
#THIS HANDLES ALL YOUR LEVEL UP MOVES
"getMoveList"=>proc{|pokemon|
   next if pokemon.form==0      # Midday
   movelist=[]
   case pokemon.form            # Midnight, Dusk
     when 1 ; movelist=[[0,:COUNTER],[1,:REVERSAL],[1,:TAUNT],
                        [1,:TACKLE],[1,:LEER],[1,:SANDATTACK],
                        [1,:BITE],[4,:SANDATTACK],[7,:BITE],[12,:HOWL],
                        [15,:ROCKTHROW],[18,:ODORSLEUTH],[23,:ROCKTOMB],
                        [26,:ROAR],[29,:STEALTHROCK],[34,:ROCKSLIDE],
                        [37,:SCARYFACE],[40,:CRUNCH],[45,:ROCKCLIMB],
                        [48,:STONEEDGE]]
     when 2 ; movelist=[[0,:THRASH],[1,:ACCELEROCK],[1,:COUNTER],
                        [1,:TACKLE],[1,:LEER],[1,:SANDATTACK],
                        [1,:BITE],[4,:SANDATTACK],[7,:BITE],[12,:HOWL],
                        [15,:ROCKTHROW],[18,:ODORSLEUTH],[23,:ROCKTOMB],
                        [26,:ROAR],[29,:STEALTHROCK],[34,:ROCKSLIDE],
                        [37,:SCARYFACE],[40,:CRUNCH],[45,:ROCKCLIMB],
                        [48,:STONEEDGE]]
   end
   for i in movelist
     i[1]=getConst(PBMoves,i[1])
   end
   next movelist
},
#THIS HANDLES ALL YOUR TMS
"getMoveCompatibility"=>proc{|pokemon|
   next if pokemon.form==0
   movelist=[]
   case pokemon.form
   when 1; movelist=[# TMs
                     :TOXIC,:VENOSHOCK,:HIDDENPOWER,
                     # Move Tutors
                     :BUGBITE,:EARTHPOWER,:ELECTROWEB,:UPROAR]
   when 2; movelist=[# TMs
                     :TOXIC,:VENOSHOCK,:HIDDENPOWER,:SUNNYDAY,
                     # Move Tutors
                     ,:SUCKERPUNCH,:UPROAR]
   end
   for i in 0...movelist.length
     movelist[i]=getConst(PBMoves,movelist[i])
   end
   next movelist
}
})