TheGameCreators - CodeBase - X Project - a game ( kind of ) --- download media at the link at the end of code

Return to the CodeBase listing

Category: Complete Applications

Version: 4.5

Information

Uploaded: 14th Feb 2006 07:52

Modified: 14th Feb 2006 07:56

Author: FrEaK Sk8

Summary

SOme game - check it out ;) --- not media free ---

Full Description

SOme game - check it out ;) --- not media free ---

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

color backdrop RGB(128,255,255)

Sync On

Sync Rate 30

Rem make matrix

Make matrix 1,10000,10000,20,20

Rem texture matrix

Load image "grass_09.bmp",1

Prepare matrix texture 1,1,1,1

Fill matrix 1,0,1

Rem make sun

make object sphere 33,100

position object 33,5000,310,5000

set object cull 33,0

set object light 33,0

color object 33,RGB(255,255,128)

rem make some fucking objects over the place

make object sphere 2,140

position object 2,rnd(10000),70,rnd(10000)

make object sphere 3,140

position object 3,rnd(10000),70,rnd(10000)

make object sphere 4,140

position object 4,rnd(10000),70,rnd(10000)

make object sphere 5,140

position object 5,rnd(10000),70,rnd(10000)

make object sphere 6,140

position object 6,rnd(10000),70,rnd(10000)

make object sphere 7,140

position object 7,rnd(10000),70,rnd(10000)

make object sphere 8,140

position object 8,rnd(10000),70,rnd(10000)

make object sphere 9,140

position object 9,rnd(10000),70,rnd(10000)

make object sphere 110,140

position object 110,rnd(10000),70,rnd(10000)

make object sphere 11,140

position object 11,rnd(10000),70,rnd(10000)

make object sphere 12,140

position object 12,rnd(10000),70,rnd(10000)

make object sphere 13,140

position object 13,rnd(10000),70,rnd(10000)

make object sphere 14,140

position object 14,rnd(10000),70,rnd(10000)

make object sphere 15,140

position object 15,rnd(10000),70,rnd(10000)

make object sphere 16,140

position object 16,rnd(10000),70,rnd(10000)

make object sphere 17,140

position object 17,rnd(10000),70,rnd(10000)

make object sphere 18,140

position object 18,rnd(10000),70,rnd(10000)

make object sphere 19,140

position object 19,rnd(10000),70,rnd(10000)

make object sphere 20,140

position object 20,rnd(10000),70,rnd(10000)

make object sphere 21,140

position object 21,rnd(10000),70,rnd(10000)

make object sphere 22,140

position object 22,rnd(10000),70,rnd(10000)

make object sphere 23,140

position object 23,rnd(10000),70,rnd(10000)

make object sphere 24,140

position object 24,rnd(10000),70,rnd(10000)

make object sphere 25,140

position object 25,rnd(10000),70,rnd(10000)

make object sphere 26,140

position object 26,rnd(10000),70,rnd(10000)

make object sphere 27,140

position object 27,rnd(10000),70,rnd(10000)

make object sphere 28,140

position object 28,rnd(10000),70,rnd(10000)

make object sphere 29,140

position object 29,rnd(10000),70,rnd(10000)

make object sphere 30,140

position object 30,rnd(10000),70,rnd(10000)

rem now color these fucking 30 objects !!!!

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

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

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

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

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

color object 7,RGB(255,128,0)

color object 8,RGB(0,255,128)

color object 9,RGB(0,128,255)

color object 110,RGB(128,128,0)

color object 11,RGB(0,0,0)

color object 12,RGB(64,0,64)

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

color object 14,RGB(128,0,255)

color object 15,RGB(255,255,128)

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

color object 17,RGB(255,128,255)

color object 18,RGB(255,190,125)

color object 19,RGB(170,18,235)

color object 20,RGB(170,101,9)

color object 21,RGB(0,64,128)

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

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

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

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

color object 26,RGB(0,128,128)

color object 27,RGB(128,255,0)

color object 28,RGB(255,255,255)

color object 29,RGB(255,128,128)

color object 30,RGB(0,0,0)

rem omfg now make these alll mutherfucking object lightt???? :(:((:(:(:((((

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

set object light 7,0

set object light 8,0

set object light 9,0

set object light 110,0

set object light 11,0

set object light 12,0

set object light 13,0

set object light 14,0

set object light 15,0

set object light 16,0

set object light 17,0

set object light 18,0

set object light 19,0

set object light 20,0

set object light 21,0

set object light 22,0

set object light 23,0

set object light 24,0

set object light 25,0

set object light 26,0

set object light 27,0

set object light 28,0

set object light 29,0

set object light 30,0

Rem Make player pawn

load object "skater.x",10

scale object 10,18,14,20

position object 10,120,50,100

set object cull 10,0

set object light 10,0

rem Randomize the matrix

randomize matrix 1,8

Rem Main loop

set cursor 0,0

print screen fps()

Rem  Store Object angle

AngleY# = object angle Y(10)

Rem  Control input for camera

If Upkey()=1

XTest# = Newxvalue(X#,AngleY#,20)

ZTest# = Newzvalue(Z#,AngleY#,20)

If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000

Move object 10,10

Endif

If Leftkey()=1 then Yrotate object 10,Wrapvalue(AngleY#-7)

If Rightkey()=1 then Yrotate object 10,Wrapvalue(AngleY#+7)

X# = Object position x(10)

Z# = Object position z(10)

Y# = Get Ground Height(1,X#,Z#)

Position object 10,X#,Y#+22.5,Z#

CameraZ# = Newzvalue(Z#,AngleY#-180,100)

CameraX# = Newxvalue(X#,AngleY#-180,100)

CameraY# = Get Ground Height(1,CameraX#,CameraZ#)

Position camera CameraX#,CameraY#+40,CameraZ#

Point camera X#,Y#+25,Z#

Rem Refresh Screen

Sync

loop

rem here is the link !!!! http://www.freewebs.com/underpiksna/media.rar

Download

Please login to download

Comments

No comments yet.

Author Name:	FrEaK Sk8
CodeBase Entries:	6

CodeBase - X Project - a game ( kind of ) --- download media at the link at the end of code