MapOBJ.Initialize
MapOBJ.Put("set",0) 'Set scelto
MapOBJ.Put("talent",0) 'Talento scelto, in caso il set è alta gamma
MapOBJ.Put("armor",CreateMap("base":0,"plus":0)) 'Armatura
MapOBJ.Put("sel",3) 'Armi da fuoco, vigore, o elettronica
MapOBJ.Put("maj",Null) 'Mappa con i bonus maggiori
MapOBJ.Put("min",Null) 'Mappa con i bonus Minori
Dim m1,m2,m3 As Map
m1 = CreateMap("sel":3,"val":Null,"add":Null) '<----- Error
m2 = CreateMap("sel":3,"val":Null,"add":Null)
m3 = CreateMap("sel":3,"val":Null,"add":Null)
Dim m As Map = CreateMap("0":m1,"1":m2,"2":m3)
MapOBJ.Put("mod",m)