TheGameCreators - CodeBase - Basic display frame of animation

Category: Complete Applications

Version: 1.0

Information

Uploaded: 4th May 2006 20:08

Modified: 24th May 2006 11:43

Author: Zeddex

Summary

My code are in french but its realy easy to use. Just change animation and frame rate, use z,x,c,v to change speed start and stop animation.

Full Description

My short one was ok i think

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: Teste de projet

Rem Created: 2006-05-03 21:00:02

Rem ***** Main Source File *****

`------------------------------------

rem mode d'affichage en 800x600 en 16bits de couleur

`------------------------------------

set display mode 800, 600, 16

`------------------------------------

rem on part le rafraichissement manuel avec un rate de 50

`------------------------------------

sync on

sync rate 200

autocam off

backdrop on

`------------------------------------

rem Prepare la matrix

`------------------------------------

load image "grass09.bmp", 1

make matrix 1, 1000, 1000, 10, 10

prepare matrix texture 1, 1, 1, 1

fill matrix 1, 0, 1

`------------------------------------

remstart

load image "dark_sky.jpg", 3

texture backdrop 3

remend

rem load le COLZ idle comme image 1

`------------------------------------

load object "ColZ.x", 1

Rem Rotate le Colz pour l'avoir dans le bon sense

xrotate object 1, -90

rem Scaler le Colz pour l'avoir dans une dimension normal

scale object 1, 50, 50, 50

rem Positionnement au milieu de la matrix

position object 1, 500, 0, 500

`------------------------------------

Rem load de la planet comme model 2

`------------------------------------

load object "planet.x", 2

rem positionnement de la planet

position object 2, 300, 300, 300

`------------------------------------

remstart load de la music et du son

`------------------------------------

load music "music space loop.wav", 1

load music "crickets.wav", 2

load sound "explode.wav", 1

load sound "fireball2.wav", 2

`------------------------------------

rem faire jouer la music

`------------------------------------

loop music 1

loop music 2

remend

`------------------------------------

rem lumiere

`------------------------------------

make light 1

position light 1, 600, 600, 700

color light 1, 240, 244, 134

set light to object position 1,1

rem mettre du brouillar

`------------------------------------

fog on

fog color 230,230,223

Fog distance 600

set ambient light 90

`------------------------------------

set object speed 1, 1000

FR# = object frame(1)

FT# = total object frames(1)

rem boucle principale

`----------------------------------------------------------------------------------

rem imprime le fps, frame en cour, nbt totals de frame, object speed, NUM action

`------------------------------------

set cursor 0,0

print "" : print "Voir dans le progrmme pour les touche exacte. z=hi speed, x=low speed, c=stop anim, v=start ani, b=select frame to start, q= start from frame1" :

print ""

print "fps" : print screen fps()

print ""

print "Frame" : print FR#

print "" : print "total frame"

print FT#

print ""

print "Object speed" : Print OS#

print ""

print "action"

Print AC#

`------------------------------------

rem variable de la planet

`------------------------------------

PAX# = object angle x(2)

PAY# = object angle Y(2)

PAZ# = object angle Z(2)

`------------------------------------

Rem faire bouger la planet

rotate object 2, PAX#-0.05, PAY#-0.01, PAZ#-0.03

`------------------------------------

rem stoke l'angle y du model, vitesse de l'objet, quel frame est jouer

`------------------------------------

OA# = object angle Y(1)

OS# = object speed(1)

FR# = object frame(1)

`------------------------------------

remstart

Ici est la liste des image pres placer pour les key frames.  changer les

paramettre pour avoir vos frames

remend

`------------------------------------

if inkey$() = "q"

loop object 1

AC# = 1

endif

`------------------------------------

if inkey$() = "a"

play object 1, 0, 9000

AC# = 2

endif

`------------------------------------

if inkey$() = "s"

play object 1, 10001, 18000

AC# = 3

endif

`------------------------------------

if inkey$() = "d"

play object 1, 20000, 30000

AC# = 4

endif

`------------------------------------

if inkey$() = "f"

play object 1, 26500, 26900

AC# = 5

endif

`------------------------------------

if inkey$() = "g"

loop object 1, 26900, 32100

AC# = 6

endif

`------------------------------------

rem arrete object animation

`------------------------------------

if inkey$() = "c"

stop object 1

AC# = 0

endif

`------------------------------------

rem stop l'animation et permet le changement de frames

`------------------------------------

if inkey$() ="b"

stop object 1

input "quel frame", FR#

set object frame 1, FR#

endif

`------------------------------------

rem play l'animation

`------------------------------------

if inkey$() = "v" then play object 1 : play sound 1

`------------------------------------

rem changer la vitesse de l'animation

`------------------------------------

if inkey$() = "z" then OS# = OS# + 10 : set object speed 1, OS#

if inkey$() = "x" then OS# = OS# - 10 : set object speed 1, OS#

`------------------------------------

rem Stoke les information de l'objet 1

`------------------------------------

AX# = object position X(1)

AY# = object position Y(1)

AZ# = object position Z(1)

`------------------------------------

Remstart

`------------------------------------

if upkey() = 1 then move object 1, -1

if downkey() = 1 then move object 1, 1

if leftkey() = 1 then Yrotate object 1, wrapvalue(-5)

if rightkey() = 1 then Yrotate object 1, wrapvalue(+5)

`------------------------------------

remend

set camera to follow AX#, AY#, AZ#, 180, 120, 70, 100, 1

Rem Rafraichissement de l'image

`------------------------------------

sync

rem loop final

`------------------------------------

loop

`-------------------------------------------------------------------------------------

Download

Please login to download

Comments

No comments yet.

Author Name:	Zeddex
CodeBase Entries:	1

CodeBase - Basic display frame of animation

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments