TheGameCreators - CodeBase - Animated Rollin' Dice

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 28th Jun 2007 04:34

Modified: 1st Jan 1970 01:00

Author: Flyin Mushroom

Summary

this code loads some dice and ya roll different numbers by re-texturing the sides of the objects. (get tha ZIP File)

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

backdrop on : color backdrop rgb(0,0,0)

hide mouse : sync on : set ambient light 35

rem --------------------- 3D OBJECT -------------------------------------

for di= 1 to 2

load object "dy.x",di : yrotate object di,180 : fix object pivot di

set object speed di,75 : set object frame di,1 : rem total object frames=239

next di

position object 1,3,0,0 : position object 2,-3,0,0

rem --------------------- IMAGES -----------------------------------------

load bitmap "dy.bmp",1

get image 1,0,0,64,64 : get image 2,64,0,128,64 : get image 3,128,0,192,64

get image 4,0,64,64,128 : get image 5,64,64,128,128 : get image 6,128,64,192,128

delete bitmap 1

gosub six : gosub six1

rem --------------------- GROUND ----------------------------------------

make matrix 1,50,50,12,12 : position matrix 1,-25,0,0

create bitmap 7,16,16 : cls rgb(0,45,0) : get image 7,0,0,16,16 : delete bitmap 7

prepare matrix texture 1,7,1,1 : fill matrix 1,0,0

rem -------------------- POSITION CAMERA ----------------------------------

position camera 0,25,-9 : pitch camera down 33

bird=rnd(1000)

bird1=rnd(777)

if spacekey()=1 and stop=0

wait 250

redo:

inc bird,3 : randomize bird : dye=rnd(6)

if dye=0 then goto redo

if dye=1 then gosub one

if dye=2 then gosub two

if dye=3 then gosub three

if dye=4 then gosub four

if dye=5 then gosub five

if dye=6 then gosub six

redo1:

inc bird1,36 : randomize bird1 : dye1=rnd(6)

if dye1=0 then goto redo1

if dye1=1 then gosub one1

if dye1=2 then gosub two1

if dye1=3 then gosub three1

if dye1=4 then gosub four1

if dye1=5 then gosub five1

if dye1=6 then gosub six1

if object playing(1)=0 then play object 1 : play object 2

endif

rem --------- Makes sure the player can't roll again during a roll ---------

if object playing(1)=1

stop=1 : else : stop=0 : endif

if object frame(1)>187 then set cursor 50,440 : print "U ROLLED ";dye+dye1

text 215,20,"( PRESS SPACEBAR 2 ROLL DICE  )"

sync : loop

rem -------------- GO-SUBz ----------------------------------

rem -------- DYE

one:

texture limb 1,2,4 : texture limb 1,3,5 : texture limb 1,4,6

texture limb 1,5,1 : texture limb 1,6,2 : texture limb 1,7,3

return

two:

texture limb 1,2,5 : texture limb 1,3,6 : texture limb 1,4,1

texture limb 1,5,2 : texture limb 1,6,3 : texture limb 1,7,4

return

three:

texture limb 1,2,6 : texture limb 1,3,1 : texture limb 1,4,2

texture limb 1,5,3 : texture limb 1,6,4 : texture limb 1,7,5

return

four:

texture limb 1,2,1 : texture limb 1,3,2 : texture limb 1,4,3

texture limb 1,5,4 : texture limb 1,6,5 : texture limb 1,7,6

return

five:

texture limb 1,2,2 : texture limb 1,3,3 : texture limb 1,4,4

texture limb 1,5,5 : texture limb 1,6,6 : texture limb 1,7,1

return

six:

texture limb 1,2,3 : texture limb 1,3,4 : texture limb 1,4,5

texture limb 1,5,6 : texture limb 1,6,1 : texture limb 1,7,2

return

rem -------- DYE 2

one1:

texture limb 2,2,4 : texture limb 2,3,5 : texture limb 2,4,6

texture limb 2,5,1 : texture limb 2,6,2 : texture limb 2,7,3

return

two1:

texture limb 2,2,5 : texture limb 2,3,6 : texture limb 2,4,1

texture limb 2,5,2 : texture limb 2,6,3 : texture limb 2,7,4

return

three1:

texture limb 2,2,6 : texture limb 2,3,1 : texture limb 2,4,2

texture limb 2,5,3 : texture limb 2,6,4 : texture limb 2,7,5

return

four1:

texture limb 2,2,1 : texture limb 1,3,2 : texture limb 1,4,3

texture limb 2,5,4 : texture limb 1,6,5 : texture limb 1,7,6

return

five1:

texture limb 2,2,2 : texture limb 1,3,3 : texture limb 1,4,4

texture limb 2,5,5 : texture limb 1,6,6 : texture limb 1,7,1

return

six1:

texture limb 2,2,3 : texture limb 2,3,4 : texture limb 2,4,5

texture limb 2,5,6 : texture limb 2,6,1 : texture limb 2,7,2

return

Download

Please login to download

Comments

No comments yet.

Author Name:	Flyin Mushroom
CodeBase Entries:	5

CodeBase - Animated Rollin' Dice

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments