Ascii Dice

[bplus]

Ah! a little fix:

Code: (Select All)

Function rolld6 (px, py)
    'simulate "rolling" a die by calling asciidie repeatedly
    dr = Int(1 + Rnd * 6)
    For x = 1 To 6
        '_Limit 100
        dr = Int(1 + Rnd * 6)
        asciidie px, py, dr 'displays score dr as a die starting at px,py
        _Delay .15
    Next x
    rolld6 = dr
End Function