It's easy, if you know VCE.
All it is is
[check] [zero] [zero] [onactivate] [self] [retrocheck] [ifrandom] [==] [1] [1 1]
[check] [one] [zero] [onvariabletrue] [namedbrick] [dice] [setprint] [1]
Do this six times for a six sided dice.
This was done from memory so it might not be exactly correct. And it does require the setprint event.