Random Dice

[Miko99]

var roll : int := Rand.Int (1,6)






if roll=1 then
drawfillbox (300,300,20,40,5)
drawfilloval (200,210,20,20,6)
elsif roll=2 then
drawfillbox (300,300,20,40,5)
drawfilloval (200,210,20,20,6)
drawfilloval (250,260,20,20,6)
elsif roll=3 then
drawfillbox (300,300,20,40,5)
drawfilloval (200,210,20,20,6)
drawfilloval (250,260,20,20,6)
drawfilloval (150,160,20,20,6)
elsif roll=4 then
drawfillbox (300,300,20,40,5)
drawfilloval (200,210,20,20,6)
drawfilloval (250,260,20,20,6)
drawfilloval (150,160,20,20,6)
drawfilloval (100,110,20,20,6)
elsif roll=5 then
drawfillbox (300,300,20,40,5)
drawfilloval (200,210,20,20,6)
drawfilloval (250,260,20,20,6)
drawfilloval (150,160,20,20,6)
drawfilloval (100,110,20,20,6)
drawfilloval (60,70,20,20,6)
else
drawfillbox (300,300,20,40,5)
drawfilloval (200,210,20,20,6)
drawfilloval (250,260,20,20,6)
drawfilloval (150,160,20,20,6)
drawfilloval (100,110,20,20,6)
drawfilloval (60,70,20,20,6)
drawfilloval (60,250,20,20,6)
end if

is there an easier way of doing this?

[Asok]

you can use 6 pictures and use Pic.Draw

[Blade]

shouldnt this be in help?

[Asok]

yes it should but for some reason I don't have mod in this one, tony fix it