[Scripting Question] Pokemon Forms don't stay once caught.

[Gourami]

I feel like i'm missing something very obvious, but i'm making a game with different forms for different locations (similar to shellos) but when I catch the new form, it becomes the original in my party. Can I get some help to make sure it will always stay with it's form and evolve into its new form aswell?
(Example : New Spearow once caught becomes Old Spearow in my party) How can I avoid this?
(and also be sure the new ones will evolve into the new ones)



This is my code for the pokemon. It's for new Spearow and Fearow.

MultipleForms.register(:SPEAROW,{
"getFormOnCreation"=>proc{|pokemon|
maps=[22] # Map IDs for second form
if $game_map && maps.include?($game_map.map_id)
next 1
else
next 0
end
},

"getBaseStats"=>proc{|pokemon|
next if pokemon.form==0 #Normal
next [40,52,30,30,30,80] # Outland Forme
},
"evYield"=>proc{|pokemon|
next if pokemon.form==0 # Normal Forme
case pokemon.form
when 1; next [0,0,0,0,0,1] # Outland Forme
end
},
"type1"=>proc{|pokemon|
next if pokemon.form==0 # Normal
next getID(PBTypes,:GROUND) # Outland
},
"getAbilityList"=>proc{|pokemon|
next if pokemon.form==0 # Normal
next [[getID(PBAbilities,:RUNAWAY),0], # Outland
[getID(PBAbilities,:RATTLED),1],
[getID(PBAbilities,:SPEEDBOOST),2]]
},
"getMoveList"=>proc{|pokemon|
next if pokemon.form==0 # Normal
movelist=[]
case pokemon.form # Outland
when 1; movelist=[[1,:PECK],[1,:GROWL],[5,:LEER],[8,:SANDATTACK],
[9,:QUICKATTACK],[13,:MUDSLAP],[15,:AGILITY],
[19,:ASTONISH],[21,:FAKEOUT],[22,:UTURN],[29,:ASSURANCE],
[29,:SUCKERPUNCH],[35,:DRILLRUN]]
for i in movelist
i[1]=getConst(PBMoves,i[1])
end
next movelist
end
}
})


MultipleForms.register(:FEAROW,{
"getFormOnCreation"=>proc{|pokemon|
maps=[22] # Map IDs for second form
if $game_map && maps.include?($game_map.map_id)
next 1
else
next 0
end
},
"getBaseStats"=>proc{|pokemon|
next if pokemon.form==0 # Normal Forme
case pokemon.form
when 1; next [65,95,60,55,55,115] # Outland Forme
end
},
"evYield"=>proc{|pokemon|
next if pokemon.form==0 # Normal Forme
case pokemon.form
when 1; next [0,0,0,0,0,2] # Outland Forme
end
},
"type1"=>proc{|pokemon|
next if pokemon.form==0 # Normal
next getID(PBTypes,:GROUND) # Outland
},
"getAbilityList"=>proc{|pokemon|
next if pokemon.form==0 # Normal
next [[getID(PBAbilities,:SANDRUCK),0],
[getID(PBAbilities,:QUICKFEET),1],
[getID(PBAbilities,:SPEEDBOOST),2]] # Outland
},
"getMoveList"=>proc{|pokemon|
next if pokemon.form==0 # Normal
movelist=[]
case pokemon.form # Outland
when 1; movelist=[[1,:DRILLRUN],[1,:PLUCK],[1,:PECK],[1,:LEER],
[1,:SANDATTACK],[1,:QUICKATTACK],[1,:PURSUIT],
[26,:ACUPRESSURE],[28,:STOMP],[34,:ASSURANCE],
[37,:SUCKERPUNCH],[41,:DRILLRUN],[48,:DRILLPECK],
[51,:ROTOTILLER],[60,:EXTREMESPEED],[65,:BULLDOZE]]

for i in movelist
i[1]=getConst(PBMoves,i[1])
end
next movelist
end
}
})