MultipleForms.register(:SCATTERBUG,{
"getFormOnCreation"=>proc{|pokemon|
case pbGetCountry
when 0xF4; forms=[1,7,10,15]
when 0x27; forms=[1,6,10]
when 0x7A; forms=[2,5,17]
when 0xB1; forms=[2,6]
when 0xD9; forms=[8,12]
when 0xC; forms=[12,14]
when 0x54; forms=[0,15]
when 0x20; forms=[13]
else; forms=[0] # Default.
end
next forms[rand(forms.length)]
#next $Trainer.secretID%18 #original
# Polar
next 1 if (pbGetCountry==0xF4 || # Alaska & United States
pbGetCountry==0x27 || # Canada
pbGetCountry==0xDD) # Swedish
# Tundra
next 2 if (pbGetCountry==0x7A || # Hokkaido
pbGetCountry==0xB1 || # Norway
pbGetCountry==0x6E) # Iceland
# Continental
next 3 if (pbGetCountry==0x3D || # Denmark
pbGetCountry==0x5E || # Germany
pbGetCountry==0x86) # South Korea
# Garden
next 4 if (pbGetCountry==0xF2 || # United Kingdom
pbGetCountry==0xB7) # New Zealand
# Elegant
next 5 if (pbGetCountry==0x7A) # Japan
# Icy Snow
next 6 if (pbGetCountry==0xB1 || # Norway
pbGetCountry==0xCB || # Russia
pbGetCountry==0x27) # Canada
# Modern
next 7 if (pbGetCountry==0x9A55D40 || # Central
pbGetCountry==0xF4 || ## Southeastern ##
pbGetCountry==0xFC) ## United States ##
# Marine
next 8 if (pbGetCountry==0xD9 || # Spain
pbGetCountry==0xC1 || # Portugal
pbGetCountry==0x76) # Italy
# Archipelago
next 9 if (pbGetCountry==0xCA || # Puerto Rico
pbGetCountry==0x12C || # Anguilla
pbGetCountry==0x41 || # Dominican Republic
pbGetCountry==0xA6) # Mexico
# High Plains
next 10 if (pbGetCountry==0xF4 || # Western United States
pbGetCountry==0x27) # Canada
# Sandstorm
next 11 if (pbGetCountry==0xB9FB) # Middle East
# River
next 12 if (pbGetCountry==0xC || # Australia
pbGetCountry==0xD9|| # Canary Islands (Spain)
pbGetCountry==0x2E6) # African countries
# Savanna
next 13 if (pbGetCountry==0x20 || # Brazil
pbGetCountry==0xB9 || # Paraguay
pbGetCountry==0x1A) # Bolivia
# Sun
next 14 if (pbGetCountry==0x9A55D41 || # Latin America
pbGetCountry==0xC || ## Northern Territory ##
pbGetCountry==0x9BCE09) ## of Australia ##
# Ocean
next 15 if (pbGetCountry==0xF4 || # Hawaii
pbGetCountry==0x54) # Réunion
# Jungle
next 16 if (pbGetCountry==0xA7 || # Malaysia
pbGetCountry==0x33 || # Colombia
pbGetCountry==0xD7) # Singapore
# Monsoon
next 17 if (pbGetCountry==0x71 || # India
pbGetCountry==0x68 || # Hong Kong
pbGetCountry==0x7A || # Okinawa
pbGetCountry==0xED) # Taiwan
################################################################################
#next 18 if (pbGetCountry==0x20) # Event in Paris - Fancy
#next 19 if (pbGetCountry==0x20) # Event GTS - Pokeball
################################################################################
# Meadow
next 0 if (pbGetCountry==0x54 || # France
pbGetCountry==0xD9) # Catalonia
next 0 # No Country *
}
})
MultipleForms.copy(:SCATTERBUG,:SPEWPA,:VIVILLON)
MultipleForms.register(:FLABEBE,{
"getFormOnCreation"=>proc{|pokemon|
next rand(5)
}
})
MultipleForms.copy(:FLABEBE,:FLOETTE,:FLORGES)
