spek=<|ap2->{{1,0,1,0},{0,1,0,1}},ap1->{{0,1,1,0},{1,0,0,1}},ap3->{{0,0,1,1},{1,1,0,0}},o1->{{0,0,1,1},{1,1,0,0}},bp2->{{0,1,0,1},{1,0,1,0}},bp1->{{1,0,0,1},{0,1,1,0}},bp3->{{1,1,0,0},{0,0,1,1}},o2->{{1,1,0,0},{0,0,1,1}}|>;getSpekState[net_,places_:All]:=Total@KeyValueMap[spek[#1]#2&,PetriNetTokens[net][[Replace[places,l_List:>Key/@l]]]]getAliceState[net_]:=getSpekState[net,{ap1,ap2,ap3(*,o1*)}]getBobState[net_]:=getSpekState[net,{bp1,bp2,bp3(*,o2*)}]