This short macro can be dropped in any campaign to transport all your PC tokens between maps, with a few clicks.
All it needs is a table called "Mapa" with this format:
Code: Select all
Range Value
[number] [mapName],[x coordinates],[y coordinates]
Code: Select all
Range Value
1 Sandpoint,10,45
2 Varisia,140,85
3 Magnimar,11,134
Code: Select all
[h,code:{
[abort(isGM())]
[in=0 ]
[Lst=""]
[while(tbl("Mapa",in)!=tbl("Mapa",in+2)),code:{
[in=in+1]
[Lst=Listappend(Lst,listGet(tbl("Mapa",in),0))]
}]
[bla=input(
"map|"+Lst+"|Destino|Radio"
)]
[abort(bla)]
[map=map+1]
[Dest=listGet(tbl("Mapa",map),0)]
[x=listGet(tbl("Mapa",map),1)]
[y=listGet(tbl("Mapa",map),2)]
[foreach(in,getPC()),code:{[moveTokenToMap(in, Dest, x, y)][x=x+1]}]
}]
Todas las fichas transportadas al mapa "[r:Dest]"