TheGameCreators - CodeBase - DarkBasic Pro Limit Rush

Category: 3D

Version: 1.0

Information

Uploaded: 10th Oct 2004 09:56

Modified: 13th Oct 2004 19:06

Author: Reverse Reenigne

Summary

Lessons 4 - 13 This section contains complete instructions and code for the game Limit Rush up to the point where it keeps score for a single player. Newbs, follow each lesson, becuase there is valuble information in each of the lessons. The source code provided in the code link is for lesson 13. Down load the zipped file for lessons 4 - 13. Note: All of the media that is required for these tutorials is located in Lesson 1.

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

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

`Limit Rush

`Lesson 13

`Level Complete

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

`http://www.binarymoon.co.uk

`Ben aka Mop

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

`--------

`INCLUDES

`--------

`include the MatEdit LoadMatrix files

#include "LoadMatrix.dba"

`------

`ARRAYS

`------

`declare the MatEdit variables

Dim BigMatrix(600,600,1)

Dim StartLoc_X(1): Dim StartLoc_Z(1):Dim Info(2)

Dim TArrayX(1): Dim TArrayZ(1): Dim FKey(10,1)

Dim ColData(100): Dim ZoneData(100): Dim Tiles(500,500)

Dim OverTexture$(100): Dim OverName$(20): Dim ReplaceTex(100)

Dim MOffsetX(25): Dim MOffsetY(25)

Dim MWire(20): Dim MGhost(20): Dim Lock(20)

Dim MatX#(20): Dim MatY#(20): Dim MatZ#(20)

Dim MatWidth#(20): Dim MatHeight#(20)

Dim TilesX(20): Dim TilesZ(20)

Dim MatHi#(20): Dim MatLo#(20)

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

` Hot Spot Data

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

Dim HotSpot(0)

Dim oldHotSpot(0)

`--------

` Gravity

`--------

Dim gravity#(0):   gravity#(0) = 0.1

`---------

`Player Movement Arrays

`---------

Dim xSpeed#(4)

Dim ySpeed#(4)

Dim zSpeed#(4)

Dim friction#(4)

Dim moveDist#(4)

Dim targetCount(4)

`----------

`Initialize Variables

`----------

ArenaXZ_SF = 15000  `Arena Scaling Factor

ArenaY_SF = 15000

LightXZ_SF# = .46

LightY_SF# = .55

`set up the program

sync on

sync rate 30

hide mouse

autocam off

`load the matrix

LoadMatrix("map",1)

`temporary load level info

load object "media/arena.x",100

load object "media/arena_light.x",101

`scale the arena

scale object 100, ArenaXZ_SF, ArenaY_SF, ArenaXZ_SF

scale object 101, ArenaXZ_SF*LightXZ_SF#, ArenaY_SF*LightY_SF#, ArenaXZ_SF*LightXZ_SF#

`position arena

position object 100,247,189,247

position object 101,247,189,247

`add mip-mapping

set matrix texture 1,2,1

set object texture 100,0,1

set object texture 101,2,1

`set fake light properties

set object  101,1,1,0,1,0,0,1

ghost object on 101

`set fog properties

fog on

fog distance 2000

fog color RGB(128,0,0)

`set ambient light amount

set ambient light 10

`colour main light

color light 0,RGB(0,0,160)

`make a light

make light 1

set point light 1,250,200,250

color light 1,RGB(255,255,100)

`==============================

`make a temporary player object

`==============================

restore data_player_positions

id = 1

make object cube id,3

hide limb id,0

`load hovercraft model

load object "media/hovercraft.x",10+id

load image "media/hovercraft_"+str$(id)+".bmp",40+id

texture object 10+id,40+id

scale object 10+id,95,95,95

set object texture 10+id,0,1

glue object to limb 10+id,id,0

` load position

read xPos#

read zPos#

yPos# = get ground height(1,xPos#,zPos#)

` load angle

read yAng#

` update the players position

position object id,xPos#,yPos#,zPos#

yrotate object id,yAng#

id = 1

friction#(id) = .97

moveDist#(id) = .065

xSpeed#(id) = 0

zSpeed#(id) = 0

`==================================

`load target object (beam of light)

`==================================

load object "media/light_beam.x",200

load object "media/light_beam2.x",201

make object plain 202,15,15

load image "media/light_3.bmp",30

texture object 202,30

scale object 200,500,1500,500

scale object 201,500,750,500

ghost object on 200

ghost object on 201

`ghost object on 202

set object 200,1,1,0,1,0,0,1

set object 201,1,1,0,1,0,0,1

set object 202,1,1,0,1,0,0,1

`target light

make light 3

set point light 3,0,0,0

set light range 3,1000

color light 3,RGB(0,128,255)

show light 3

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

`data statements

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

data_player_positions:

data 262.5,212.5,0

data 212.5,262.5,90

data 262.5,312.5,180

data 312.5,262.5,270

`---------

`MAIN LOOP

`---------

main:

` set target

new_target()

yAng# = object angle y(1)

`the following is temporary. There will be more but it will made later

`get keyboard input for movement

if upkey()=1 then forward = 1 else forward = 0

if downkey()=1 then backward = 1 else backward = 0

if leftkey()=1 then left = 1 else left = 0

if rightkey()=1 then right = 1 else right = 0

`update the player

move_player(1, forward, backward, left, right)

`update chase camera

chase_cam(1)

`display current frame rate

text 5,5, "FPS = " + str$(screen fps())

text 5,45, "Hot Spot = " + str$(CheckHotSpot(1))

` create new target if player reaches target

if checkHotspot(1)=hotSpot(0)

new_target()

targetCount(1)= targetCount(1) + 1

if targetCount(1) = 10 then End_Game()

endif

`update  taret animation

gosub update_target

`update the screen

sync

loop

`==========================

` End the Game

`==========================

function End_Game()

repeat

text 25,50 ,"Congratulation!"

text 25,60, "Press Space Key to Exit"

sync

until spacekey() = 1

end

endfunction

`===========================

` Pick a new target location

`===========================

function new_target()

` create new hot spot target

repeat

HotSpot(0) = rnd(7) + 1

until HotSpot(0) <> OldHotSpot(0)

` save new hot spot as old hot spot

OldHotSpot = HotSpot

`locate the center of the hot spot tile

xPos# = (FKey(HotSpot(0),0) * Info(0) - Info(0)/2)

zPos# = (FKey(HotSpot(0),1) * Info(1) - Info(1)/2)

`locate the height of the hot spot tile

yPos# = get ground height(1,xPos#,zPos#)

`position beam of light

position object 200, xPos#,yPos#,zPos#

position object 201, xPos#,yPos#,zPos#

position object 202, xPos#,yPos#,zPos#

` Positon lighting

position light 3,xPos#,yPos#+10,zPos#

endfunction

`======================================================

` Work out the current hotspot the player is on (if any)

`======================================================

function CheckHotSpot(id)

` reset the currentHotSpot return variable

currentHotSpot = 0

`work out the current tile position of the player

tileX = int(object position x(id)/Info(0)) + 1

tileZ = int(object position z(id)/Info(1)) + 1

`check for a hot spot match

for hotSpot =1 to 10

if tileX = FKey(hotSpot,0) and tileZ = FKey(hotSpot,1)

currentHotSpot = hotSpot

exit

endif

next hotSpot

endfunction currentHotSpot

`=============

`chase cam

`=============

function chase_cam(id)

`work out the angle of the object being chased

yAng#= wrapvalue(object angle y(id)+180)

`grab the objects current position

xPos# = object position x(id)

yPos# = object position y(id)

zPos# = object position z(id)

`other variables

camDist = 15

camHeight = 1

`work out new position

xCamPos# = newxvalue(xPos#,yAng#,camDist)

zCamPos# = newzvalue(zPos#,yAng#,camDist)

`camera collision

if xCamPos#>485 then xCamPos#=485

if zCamPos#>485 then zCamPos#=485

if xCamPos#<15 then XCamPos#=15

if zCamPos#<15 then zCamPos#=15

`work out camera height

yCamPos# = get ground height (1,xCamPos#,zCamPos#)+camHeight

if yCamPos# < yPos#+camHeight then yCamPos# = yPos#+camHeight

`smooth out the camera effects

xCamPos#=curvevalue(xCamPos#,camera position x(),4)

yCamPos#=curvevalue(yCamPos#,camera position y(),4)

zCamPos#=curvevalue(zCamPos#,camera position z(),4)

`update camera position

position camera xCamPos#,yCamPos#+camHeight,zCamPos#

point camera  xPos#, yPos#+camHeight, zPos#

endfunction

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

` move the specified player

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

function move_player(id, forward, backward, left, right)

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

` set object floor offset

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

floor_offset# = 2.0

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

` get the required object properties

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

xPos# = object position x(id)

yPos# = object position y(id)

zPos# = object position z(id)

yAng# = object angle y(id)

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

` Sort out the basic movements

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

if forward = 1

`move forward code here

xSpeed#(id) = xSpeed#(id) + newxvalue(0,yAng#,moveDist#(id))

zSpeed#(id) = zSpeed#(id) + newzvalue(0,yAng#,moveDist#(id))

endif

if backward = 1

`move backward code here

xSpeed#(id) = xSpeed#(id) + newxvalue(0,yAng#,moveDist#(id) * -1)

zSpeed#(id) = zSpeed#(id) + newzvalue(0,yAng#,moveDist#(id) * -1)

endif

if left = 1

`move left code here

yrotate object id, wrapvalue(yAng#-4)

endif

if right = 1

` move right code here

yrotate object id, wrapvalue(yAng#+4)

endif

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

` sort out friction and other physics related things

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

` Work out value with friction and gravity

xSpeed#(id) = xSpeed#(id) * friction#(id)

zSpeed#(id) = zSpeed#(id) * friction#(id)

ySpeed#(id) = ySpeed#(id) + gravity#(0)

` Work out the new position

xPos# = xPos# + xSpeed#(id)

zPos# = zPos# + zSpeed#(id)

yPos# = yPos# - ySpeed#(id)

`collision

if xPos#>490 then xPos#=490

if zPos#>490 then zPos#=490

if xPos#<5 then xPos#=5

if zPos#<5 then zPos#=5

` Work out the height of the  character

if yPos# < get ground height(1, xPos#, zPos#)+ floor_offset#

ySpeed#(id) = ySpeed#(id) = (yPos# - get ground height(1, xPos#, zPos#))

yPos# = get ground height(1, xPos#, zPos#) + floor_offset#

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

`tilt the vehicle to the ground

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

distVal#=1

`work out the positions of the front, back, left and right of the vehicle

ang#=yAng#

frontX#=newxvalue(xPos#,ang#,distVal#)

frontZ#=newzvalue(zPos#,ang#,distVal#)

ang#=yAng#+180

backX#=newxvalue(xPos#,ang#,distVal#)

backZ#=newzvalue(zPos#,ang#,distVal#)

ang#=yAng#+90

leftX#=newxvalue(xPos#,ang#,distVal#)

leftZ#=newzvalue(zPos#,ang#,distVal#)

ang#=yAng#-90

rightX#=newxvalue(xPos#,ang#,distVal#)

rightZ#=newzvalue(zPos#,ang#,distVal#)

`work out the different heights

frontHeight# = get ground height(1,frontX#,frontZ#)

backHeight# = get ground height(1,backX#,backZ#)

leftHeight# = get ground height(1,leftX#,leftZ#)

rightHeight# = get ground height(1,rightX#,rightZ#)

`Work out tilt values

xAng#=wrapvalue((frontHeight#-backHeight#)*30)

zAng#=wrapvalue((leftHeight#-rightHeight#)*30)

`Work out tilt values

xAng#=curveangle((frontHeight#-backHeight#)*30,object angle x(id+10),5)

zAng#=curveangle((leftHeight#-rightHeight#)*30,object angle z(id+10),5)

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

`slide down slopes

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

xMoveDist#=(backHeight#-frontHeight#)/30

zMoveDist#=(leftHeight#-rightHeight#)/30

`adjust forward/ backward momentum

xSpeed#(id)=xSpeed#(id)+newxvalue(0,yAng#,xMoveDist#)

zSpeed#(id)=zSpeed#(id)+newzvalue(0,yAng#,xMoveDist#)

`adjust left/ right momentum

xSpeed#(id)=xSpeed#(id)+newxvalue(0,yAng#-90,zMoveDist#)

zSpeed#(id)=zSpeed#(id)+newzvalue(0,yAng#-90,zMoveDist#)

`update the vehicle rotation

rotate object id+10,xAng#,180,zAng#

endif

` Reposition the player object

position object id, xPos#, yPos# , zPos#

`display camera object postition for player 1

if id = 1

text 5,15, "X Position = " + str$(xPos#)

text 5,25, "Y Position = " + str$(yPos#)

text 5,35, "Z Position = " + str$(zPos#)

endif

endfunction

`=================

` rotate the taget

`=================

update_target:

yrotate object 200, wrapvalue(object angle y(200)+2)

yrotate object 201, wrapvalue(object angle y(201)-2)

yrotate object 202, wrapvalue(object angle y(202)-60)

return

Download

Please login to download

Comments

No comments yet.

Author Name:	Reverse Reenigne
CodeBase Entries:	5

CodeBase - DarkBasic Pro Limit Rush

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments