Simply add more line to setrandomoption
setrandomoption(.@part,0,.@opt,.@val,.@indx,getcharid(0));
setrandomoption(.@part,1,.@opt,.@val,.@indx,getcharid(0));
setrandomoption(.@part,2,.@opt,.@val,.@indx,getcharid(0));
setrandomoption(.@part,3,.@opt,.@val,.@indx,getcharid(0));
setrandomoption(.@part,4,.@opt,.@val,.@indx,getcharid(0));