TheGameCreators - CodeBase - la colinita pastizada

Return to the CodeBase listing

Category: Matrix

Version: 1.0

Information

Uploaded: 18th Mar 2007 22:06

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

una colina que esta pastizada te llenara de emocion

Full Description

un hermoso jardin echo en dark basic te llenara de emocion !!!!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Muestra Matriz

rem CÃ³digo de inicio estÃ¡ndar para todos los ejemplos

sync on : sync rate 0 : color backdrop 0

set text font "arial" : set text size 16

set text to bold : set text transparent

rem Crea la matriz

load image "pasto.bmp",1

m=1

if m=1 then s=200

if m=2 then s=100

make matrix m,s,s,100,100

if m=1 then position matrix m,-50,20,-50

if m=2 then position matrix m,0,120,0

prepare matrix texture m,m,36,36

tc=1

for z=35 to 0 step -1

x=0

while x<=35

set matrix tile m,x,z,tc

inc tc : inc x

endwhile

next z

rem Prepara la luz

set point light 0,50,500,50

color light 0,1000,1000,200

rem Prepara la cÃ¡mara

position camera 50,50,50

point camera 200,100,50

rem Bucle Principal

desc$="Matriz de Agua (Pulsa Espacio)"

m=1

a#=wrapvalue(a#+1)

for z=0 to 100

for x=0 to 100

x#=cos(a#+(x*10))

y#=sin(a#+(z*10))

nx#=0.0-(cos(a#+(x*10))*0.25)

nz#=0.0-(sin(a#+(z*10))*0.25)

ny#=1.0-nx#-nz#

set matrix height m,x,z,(x#+y#)*15.0

next x

next z

update matrix m

OldCamAngleY# = CameraAngleY#

OldCamAngleX# = CameraAngleX#

CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2)

CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2)

Rem  Control input for camera

If Upkey()=1

move camera 1

Endif

If Downkey()=1

move camera -1

Endif

If Leftkey()=1

XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)

ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)

endif

If Rightkey()=1

XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)

ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)

Endif

Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24)

Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24)

rem Actualiza la pantalla

sync

rem Fin del bucle

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	3

CodeBase - la colinita pastizada

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments