TheGameCreators - CodeBase - Motion solutions

Return to the CodeBase listing

Category: World

Version: Triple

Information

Uploaded: 25th Sep 2004 17:44

Modified: 1st Jan 1970 01:00

Author: Louiz ofRohr

Summary

Normal motion, slow motion and invert current motion (slow or fast)

Full Description

Move a dude around the stage and watch at the 3 speed effects when you get 1 of the 3 items. A simple solution for speed changes and speed items. There is in this project:<br /> basic movement, colision detection and applying each var to "vel#" var.<br /> <br /> Mova um bacaninha pelo cenÃ¡rio.... vc terÃ¡ 3 caixinhas pra pegar... uma dÃ¡ velocidade normal, outra deixa tudo em cÃ¢mera lenta e outra inverte tudo....

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on

sync rate 60

backdrop on

color backdrop 0

fog on

fog distance 1000

fog color 0

make matrix 1, 1000, 1000, 30, 30

REM OBJETOS QUE SOFRERÃƒO AS MUDANÃ‡AS DE VELOCiDADE (Look at the "vel#" variations for these objects)

`personagem que vc vai movimentar pelo palco (Character)

make object sphere 1, 50

color object 1, RGB(200,0,0)

position object 1, 500, 30, 200

load image "rosto.bmp", 1

texture object 1, 1

yrotate object 1, 180

`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

`caixa[sendo qualquer outro personagem do ambiente] (A box, like some other character in the stage)

make object cube 2, 200

color object 2, RGB(200,200,200)

position object 2, 500, 100, 800

`xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

REM OBJETOS QUE SOFRERÃƒO AS MUDANÃ‡AS DE VELOCiDADE (Look at the "vel#" variations for these objects)

REM CAiXiNHAS E SUAS CORES E POSiÃ‡Ã•ES (Packages)

make object cube 3, 10

color object 3, RGB(0,200,200)

position object 3, 400, 30, 500

make object cube 4, 10

color object 4, RGB(200,0,0)

position object 4, 500, 30, 500

make object cube 5, 10

color object 5, RGB(200,200,0)

position object 5, 600, 30, 500

REM CAiXiNHAS E SUAS CORES E POSiÃ‡Ã•ES (Packages)

`VALOR iNiCiAL PARA A VARiÃVEL "vel#" QUE SERÃ USADA COMO VELOCiDADE (Initial "vel#" variable value)

vel# = 5

`VALOR iNiCiAL PARA A VARiÃVEL "vel#" QUE SERÃ USADA COMO VELOCiDADE (Initial "vel#" variable value)

REM LOOP PRiNCiPAL, COM AÃ‡Ã•ES REAiS DO PALCO (MAiN LOOP)

`MOViMENTA O PERSONAGEM COM "CiMA" E "BAiXO" E FAZ DEC OU iNC PARA ROTAÃ‡ÃƒO (Move character)

if upKey()=1 THEN move object 1, vel#

if downKey()=1 THEN move object 1, vel# - (vel#*2)

if leftKey()=1 THEN roda#=wrapvalue(roda#-vel#)

if rightKey()=1 THEN roda#=wrapvalue(roda#+vel#)

rem roda o personagem para o valor "empacotado" (wrapped) atual (Set wrapped angle to character)

yrotate object 1, roda#

rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

`XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

roda2#=wrapvalue(roda2#+vel#)

zrotate object 2, roda2#

if object exist(3)=1 THEN yrotate object 3, object angle y(3) + 5

if object exist(4)=1 THEN yrotate object 4, object angle y(4) + 5

`PEGA POSiÃ‡Ã•ES ATUAiS DOS OBJETOS

x1# = object position x(1) : z1# = object position z(1)

x3# = object position x(3) : z3# = object position z(3)

x4# = object position x(4) : z4# = object position z(4)

x5# = object position x(5) : z5# = object position z(5)

`PEGA POSiÃ‡Ã•ES ATUAiS DOS OBJETOS

`POSiCIONA CÃ‚MERA DE ACORDO COM O PERSONAGEM

position camera x1#, object position y(1) + 100, z1# - 200

`POSiCIONA CÃ‚MERA DE ACORDO COM O PERSONAGEM

`COLiSÃ•ES

`COLiSÃ•ES PARA PEGAR CAiXiNHAS QUE REGULAM A VELOCiDADE

`COLiSÃ•ES

rem quando pega a caixinha para cÃ¢mera lenta (Slow motion)

if ((x1# > (x3#-30)) and (x1# < (x3#+30)) and (z1# > (z3#-30)))

if z1# < (z3#+30) THEN vel# = 2

endif

rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

rem quando pega a caixinha para cÃ¢mera normal (Normal motion)

if ((x1# > (x4#-30)) and (x1# < (x4#+30)) and (z1# > (z4#-30)))

if z1# < (z4#+30) THEN vel# = 5

endif

rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

rem quando pega a caixinha para inversÃ£o de velocidade (Invert current motion)

if ((x1# > (x5#-30)) and (x1# < (x5#+30)) and (z1# > (z5#-30)))

if z1# < (z5#+30) THEN vel# = vel# - (vel#*2)

endif

rem xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

`COLiSÃ•ES

`COLiSÃ•ES PARA PEGAR CAiXiNHAS QUE REGULAM A VELOCiDADE

`COLiSÃ•ES

REM ATUALiZA A TELA E REPETE DESDE O "DO"

sync

LOOP

REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Download

Please login to download

Comments

No comments yet.

Author Name:	Louiz ofRohr
CodeBase Entries:	8

CodeBase - Motion solutions

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments