TheGameCreators - CodeBase - simple screen saver

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Info
Code
Shot
Author

Information

Uploaded: 5th Apr 2004 09:42

Modified: 5th Apr 2004 10:20

Author: teh game wiz

Summary

a quick screen saver with multiple cameras

Full Description

a quick screen saver with multiple cameras, use your own pics or use the ones attached

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

load image "GRASS09.BMP",1:load image "mess.bmp",2:load image "messb.bmp",3

make object cube 1,50:texture object 1,1:set detail mapping on 1,3:turn object right 1,45

make matrix 1,5000,5000,100,100:randomize matrix 1,20:prepare matrix texture 1,1,1,1:update matrix 1

posz = object position z(1):posx = object position x(1)

make camera 1:set camera view 1,10,10,330,250:position camera 1,200,200,200:point camera 1,50,25,50:color backdrop 1,rgb(0,0,150)

make camera 2:set camera view 2,screen width()-330,10,screen width()-10,250:position camera 2,4800,200,4800:point camera 2,4950,25,4950:color backdrop 2,rgb(0,0,150)

hide mouse:do

if edge = 0

inc posz:inc posx

else

dec posz:dec posx

endif

if posz > 4999 then turn object right 1,180:edge = 1

if posz < 1 then turn object right 1,180:edge = 0

position object 1,posx,get ground height(1,posx,posz) + 30,posz

posy = object position y(1)

set camera to follow posx,posy,posz,wrapvalue(object angle y(1)),100,50,100,0

point camera 1,posx,posy,posz:point camera 2,posx,posy,posz

text 1,1,str$(screen fps())

sync:loop

Download

Please login to download

Screen Shot

No images yet

Author

Author Name:	teh game wiz
CodeBase Entries:	1

Comments

No comments yet.

Latest News

GameGuru MAX Modern Day Booster Pack - Old Mines released

Thu, 21st November 2024 6:54 PM

GameGuru MAX Horror Booster Pack - Aslyum Furnishings

Thu, 14th November 2024 10:47 PM

GameGuru MAX Mini Kit - Old Furniture

Thu, 17th October 2024 11:58 PM

GameGuru MAX Steampunk Booster Pack - Industry

Wed, 9th October 2024 12:30 AM

GameGuru MAX - September update released!

Tue, 24th September 2024 4:13 PM

Community

AppGameKit Forum

GameCreators Forum

GameGuru Forum