CodeBase - Six lights ;-)

Return to the CodeBase listing

Category: Light

Version: 1.0

0

0

Information

Uploaded: 11th Feb 2006 06:27

Modified: 1st Jan 1970 01:00

Author: FrEaK Sk8

Summary

Hehe. It's kind of fun and media-free =D.

Full Description

There are six lights . You can walk to =D hehe. And am... OH YES U USE ARROW KEYS TO MOVE -->lol .

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

set cursor 0,0

print "TERRAIN DATA"

print

print "CAMERA DATA"

print " x:";camera position x(0)

print " y:";camera position y(0)

print " z:";camera position z(0)

color backdrop RGB(0,0,0)

fog off

make object sphere 1,10

make object sphere 2,10

make object sphere 3,10

make object sphere 4,10

make object sphere 5,10

make object sphere 6,10

set object light 1,0

set object light 2,0

set object light 3,0

set object light 4,0

set object light 5,0

set object light 6,0

rem here is the object position ... oh and camera position to --- :D hahaha this is funn !! rem end

position camera -36,-0,90

position object 1,-16,0,160

position object 2,-26,0,160

position object 3,-36,0,160

position object 4,-46,0,160

position object 5,-56,0,160

position object 6,-66,0,160

do

control camera using arrowkeys 0,2,1

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

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

color object 2,RGB(255,0,0)

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

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

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

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

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

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

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

color object 6,RGB(255,0,0)

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

color object 1,RGB(255,255,255)

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

color object 2,RGB(255,255,255)

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

color object 3,RGB(255,255,255)

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

color object 4,RGB(255,255,255)

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

color object 5,RGB(255,255,255)

control camera using arrowkeys 0,2,1

wait 10

control camera using arrowkeys 0,2,1

color object 6,RGB(255,255,255)

control camera using arrowkeys 0,2,1

loop

Download

Please login to download

Comments

No comments yet.