TheGameCreators - CodeBase - lights color change

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 6th Sep 2014 09:09

Modified: 1st Jan 1970 01:00

Author: dog bark

Summary

change light red , green, blue, default white

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

TURN CAMERA LEFT  0,30

MAKE OBJECT CUBE 1,25

POSITION OBJECT 1 ,0,15,450

make matrix 1,1000,1000,25,25

position matrix 1,-500,0,0

set matrix wireframe off 1

update matrix 1

HIDE LIGHT 0 `turn off the default direction light

SET AMBIENT LIGHT 0 ` this turns off ambient light

MAKE LIGHT 1

SET POINT light 1,90,100,450

SET LIGHT range 1,500

infobox()

info()

lights()

move()

LOOP

if matrix exist(1)=1 then delete matrix 1

function infobox()

box 20,20,300,200,rgb(255,255,255),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255)

INK RGB(0,0,0),RGB(0,0,255)

ENDFUNCTION

function info()

SET TEXT SIZE 30

TEXT 100,30, " message"

SET TEXT SIZE 20

TEXT 30,80, " CONTROL CAMERA USING ARROWKEYS"

TEXT 70,100, " press key 1 = red"

TEXT 70,120, " press key 2 = green"

TEXT 70,140," press key 3 = blue"

ENDFUNCTION

function lights()

if keystate(2) = 0 then COLOR LIGHT 1, 255, 255,255

if keystate(3) = 0 then COLOR LIGHT 1, 255, 255,255

if keystate(4) = 0 then COLOR LIGHT 1, 255, 255,255

if keystate(2) = 1 then COLOR LIGHT 1, 255, 0,0

if keystate(3) = 1 then COLOR LIGHT 1, 0, 255,0

if keystate(4) = 1 then COLOR LIGHT 1, 0, 0,255

ENDFUNCTION

function move()

CONTROL CAMERA USING ARROWKEYS 0,0.1,0.1

ENDFUNCTION

Download

Please login to download

Comments

No comments yet.

Author Name:	dog bark
CodeBase Entries:	12

CodeBase - lights color change

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments