You'd need to do it as you encounter them by walking through all the actors in a cell and adding your token to each actor that doesn't already have one and is alive.
Something like this:
ref rCurrentRefBegin GameMode set rCurrentRef to GetFirstRef 200 1 0 Label 10 if rCurrentRef if rCurrentRef.GetItemCount Token elseif rCurrentRef.GetDead else rCurrentRef.AddItem Token 1 endif set rCurrentRef to Pencil01 set rCurrentRef to GetNextRef Goto 10 endifEnd
You won't need this code to run every frame, so use a quest script that runs once every few seconds. The default value of 5 seconds should be fine.
Cipscis