TheGameCreators - CodeBase

Category: 3D Effects

Version: 1.0

Information

Uploaded: 25th Sep 2003 19:42

Modified: 25th Sep 2003 19:42

Author: Richard Davey

Summary

Original coded by Yacullo (mike@planetofthegeeks.com) and modified slightly by Requiem to add the background. Used with permission.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

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

`	Orbit                                     DarkForge Snippet (11/10/2000)

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

`	Original coded by Yacullo (mike@planetofthegeeks.com) and modified

`	slightly by Requiem to add the background. Used with permission.

sync rate 0

sync on

hide mouse

sun = 1

planet = 2

moon = 3

planetdist = 15

moondist = 5

make object sphere sun, 10

color object sun,rgb(255,255,0)

zrotate object sun,240

make object sphere planet,5

color object planet,rgb(200,200,200)

make object sphere moon,2

color object moon,rgb(150,150,150)

position object sun,0,0,0

position object planet,0,0,planetdist

position object moon,0,0,planetdist + moondist

position camera 30,10,30

point camera 0,0,0

planetAngle = 0

moonAngle = 0

`	Set the scene

ink rgb(0,255,255),0 : dot 1,1

ink rgb(100,50,155),0 : dot 1,0 : dot 1,2 : dot 0,1 : dot 2,1

get image 1,0,0,3,3

cls 0

ink rgb(255,255,255),0

for a=0 to 50

dot 1+rnd(254),1+rnd(254)

next a

for a=0 to 6

paste image 1,3+rnd(250),3+rnd(250)

next a

get image 2,0,0,256,256

texture backdrop 2

planetAngle = wrapvalue(planetAngle + 1)

position object planet,0,0,0

yrotate object planet,planetAngle

move object planet,planetdist

planetX# = object position x(planet)

planetY# = object position y(planet)

planetZ# = object position z(planet)

moonAngle = wrapValue(moonAngle + 5)

position object moon,planetX#,planetY#,planetZ#

yrotate object moon,moonAngle

move object moon,moondist

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	Richard Davey
CodeBase Entries:	57

CodeBase - Into Orbit