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

hossack

Thu Apr 09, 2009 9:56 am


Rolling Dice

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

In order to animate dice rolling would I have to load 6 different pictures and put them in a loop and change one after the other? Or is there an easier way?


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

DemonWasp

Thu Apr 09, 2009 10:11 am


RE:Rolling Dice

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

A six-sided die can be shown from one side as a box and several dots (circles). You should be able to do this with Draw.FillOval and Draw.Box pretty easily.


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

Tallguy

Thu Apr 09, 2009 12:32 pm


RE:Rolling Dice

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

then just rand.int the numbers 1 - 6 then display them in a box with dots as DemonWasp said


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

matt271

Thu Apr 09, 2009 2:57 pm


Re: Rolling Dice

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

i think he wants to animate the action of the dice rolling


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

hossack

Tue Apr 14, 2009 8:47 am


RE:Rolling Dice

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

proc dice %Dice Rolling

    loop

        randint (die, 1, 6)
        randint (die2, 1 , 6)
        delay (100)
        count := count + 1

        if die = 1 then
            Pic.Draw (one, 580, 20, picCopy)

        elsif die = 2 then
            Pic.Draw (two, 580, 20, picCopy)

        elsif die = 3 then
            Pic.Draw (three, 580, 20, picCopy)

        elsif die = 4 then
            Pic.Draw (four, 580, 20, picCopy)

        elsif die = 5 then
            Pic.Draw (five, 580, 20, picCopy)

        elsif die = 6 then
            Pic.Draw (six, 580, 20, picCopy)
end if
            
            if die2 = 1 then

            Pic.Draw (one, 520, 20, picCopy)
        elsif die2 = 2 then

            Pic.Draw (two, 520, 20, picCopy)
        elsif die2 = 3 then

            Pic.Draw (three, 520, 20, picCopy)
        elsif die2 = 4 then

            Pic.Draw (four, 520, 20, picCopy)
        elsif die2 = 5 then

            Pic.Draw (five, 520, 20, picCopy)
        elsif die2 = 6 then

            Pic.Draw (six, 520, 20, picCopy)

        end if
        exit when count = 15
    end loop
end dice

I got it working Thanks


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

TokenHerbz

Wed Apr 15, 2009 2:59 am


RE:Rolling Dice

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

eww picCopy


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

hossack

Wed Apr 15, 2009 8:49 am


RE:Rolling Dice

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

What else am I supposed to use lol


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

Gackt

Wed Apr 15, 2009 9:11 am


RE:Rolling Dice

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

If your concernced about a flippin picCopy command that is no different from the others, Put World of Warcraft away and get a life.