-----------------------------------

Miko99

Tue Apr 08, 2003 9:35 am


Random Dice

-----------------------------------

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

Tue Apr 08, 2003 10:38 am



-----------------------------------

you can use 6 pictures and use Pic.Draw


-----------------------------------

Blade

Tue Apr 08, 2003 11:33 am



-----------------------------------

shouldnt this be in help?


-----------------------------------

Asok

Tue Apr 08, 2003 11:45 am



-----------------------------------

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