5x das da:
Code: 
<> Var ABCD = Random 1~10
Dann nurnoch über Abfragen festlegen, welche Zahlen welches Erz hervorbringen,
zB 2, 3, 5, 7 und 8 für Normal.

Das mit der Message anschliessend solltest du hinbekommen.