TheGameCreators - CodeBase - unfinished turn based rpg with infinite terrain

Category: 3D

Version: 1.0

Information

Uploaded: 15th Jan 2007 01:53

Modified: 15th Jan 2007 02:05

Author: Animate Dream

Summary

This is an unfinished rpg engine with persistent and infinite terrain, the beginnings of a turn based rpg combat system, and more.

Full Description

This is an unfinished rpg engine with persistent and infinite terrain, and the beginnings of a turn based rpg combat system. At over a thousand lines of code I think it might be a useful resource. Other things I coded include moving clouds, a system for dynamic spawning and unloading of monsters and trees of different dimensions, 3 different types of cameras programmed to avoid clipping the terrain, accurate uphill and downhill movement speeds, some crude but effective sliding collision code, simple wandering/attacking AI, projectiles, and possibly more I don't remember. I couldn't get the hit detection working quite right so I am for the moment abandoning the project to work with an engine coded in C++ which I'm more comfortable with. However, I'm releasing the full source for use for any purpose. I only wish I could have made even more contributions to the darkbasic community. This has been sitting on my hard drive for a while, so I'm not even sure if it runs error free with the current version of darkbasic. The commentation may be lacking but I think the programming is straightforward enough to understand. The images models and sounds were too big to upload here but I used mostly resources that came with darkbasic during development. You will have to include all media yourself or change the media loading in the code. If anyone would like to continue the project or borrow parts of it I might be tempted into helping. I can be contacted at animatedream@gmail.com

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem By Stephen Lujan

sync on

backdrop on : hide mouse : color backdrop 0

rem Select font

set text font "arial" : set text size 16

set text to bold : set text transparent

rem Loading prompt

sync

center text screen width()/2,screen height()/2,"LOADING"

center text screen width()/2,screen height()*0.4,"Use arrow keyes to Move. Hit escape to exit."

center text screen width()/2,screen height()*0.3,"Hit c to change from manual to automatic camera."

center text screen width()/2,screen height()*0.2,"Operate the manual camera with the mouse."

center text screen width()/2,screen height()*0.1,"Zoom in and out with the + and - on the number pad."

sync

`don't give same sequence of random numbers each time...

RANDOMIZE timer()

REM DATA SETUP

`counter

global gun#

type bullet

objnum as integer

effect as integer

strength# as float

particles as integer

movetype as integer

velocity# as float

life# as float

maxlife# as float

endtype

dim bullets(0) as bullet

global bullets

type creature

objnum as integer

ctype as integer

state as integer

life# as float

movetype as integer

movestate as integer

endtype

global lasttime#

global time#

global fps#

dim creatures(1) as creature

global creatures

global debug

REM LOAD RESOURCES

gosub _load_images

REM IMPORTANT LOAD PROCEDURES

gosub _load_world

gosub _load_player

REM CAMERA SETTINGS

backdrop off

autocam off

set camera range 1,size

`set display mode 800,768,32

camdist#= 250.0

global camdist#

camdist#= 250.0

global view

rem Position camera in center of terrain

position camera 0,size/2-50,size/8,size/2-50

`automatic camera collision 0,20,0

REM FINAL SETUP

desc$="testing"

`test()

desc$="LOD Terrain Ad Infinatum"

rem Create simple sprite based crosshair

sprite 1,screen width()/2-16,screen height()/2-16,3

set sprite 1,0,1

SET SPRITE ALPHA 1, 100

`initialize time variables

time#= timer()

lasttime#= time#

rem MAIN LOOP

rem Main loop

while escapekey()=0

gosub _real_time

World(camera position x(0),camera position z(0))

rem End loop

endwhile

rem END MAIN LOOP

`end game

end

`run live objects and update frame

_real_time:

rem check frame rate

time#= timer()

rawfps = screen fps()

fps#= (rawfps + 1000/(time#- lasttime#))/2

`user types c to change camera mode

if ENTRY$() = "c" or ENTRY$() = "C"

if view < 2

inc view

else

view = 0

endif

CLEAR ENTRY BUFFER

if (SCANCODE()= 78 and camdist# < 1000.0) then camdist#= camdist#+55.0/fps#

if (SCANCODE()= 74 and camdist# > 100.0) then camdist#= camdist#-55.0/fps#

`rem Control player over terrain

`s#=s#/friction#

rem Control direction of model

`if upkey()=1 and s#<100.0 then inc s#,acc#

`if downkey()=1 and s#>-100.0 then dec s#,acc#

`if leftkey()=1 then dec a#,1.5

`if rightkey()=1 then inc a#,1.5

cx#=object position x(2)

cz#=object position z(2)

if shiftkey()=1

walkv#=600.0

else walkv#=170.0

endif

walk=0

if leftkey()=1

yrotate object 2,wrapvalue(object angle y(2)-(110.1/(fps#+3.1)))

walk=1

endif

if rightkey()=1

yrotate object 2,wrapvalue(object angle y(2)+(110.1/(fps#+3.1)))

walk=1

endif

if upkey()=1

cx#=newxvalue(object position x(2),object angle y(2),(walkv#/(fps#+3.1)))

cz#=newzvalue(object position z(2),object angle y(2),(walkv#/(fps#+3.1)))

walk=1

endif

if downkey()=1

cx#=newxvalue(object position x(2),object angle y(2),(-walkv#/(fps#+3.1)))

cz#=newzvalue(object position z(2),object angle y(2),(-walkv#/(fps#+3.1)))

walk=1

endif

if walk<>lastwalk then change=1

if change=1

if walk=0 then loop object 2,0,12*heroframe#

if walk=1 then loop object 2,35*heroframe#,41.7*heroframe#

`if walk=1 then set object speed 2,12000: loop object 2,72.3*heroframe#,76.2*heroframe#

change=0 : lastwalk=walk

endif

if walk=0 then set object speed 2,200000/fps#

if walk=1 then set object speed 2,480000/fps#

cy#=get ground height(1,cx#-matrix position x(1),cz#-matrix position z(1))+8.0

rem inclines effect speed

incline=0

if cy#>object position y(2)

diffx#= cx#-object position x(2)

diffy#= cy#-object position y(2)

diffz#= cz#-object position z(2)

incline# = diffy# / sqrt((diffx#*diffx#)+(diffz#*diffz#))

inc incline#

incline#= incline#*sqrt(incline#)

`strdebug$="x"+str$(diffx#)+"y"+str$(diffy#)+"z"+str$(diffz#)+"i"+str$(incline#)

`text 20,screen height()-80,strdebug$

cx#= object position x(2) + (diffx#/incline#)

`quick sloppy y

cy#= object position y(2) + (diffy#/incline#)

cz#= object position z(2) + (diffz#/incline#)

`slow perfect y

`cy#=get ground height(1,cx#-matrix position x(1),cz#-matrix position z(1))+10.0

endif

position object 2,cx#,cy#,cz#

`which camera style

if view = 2 then CameraFirstPerson(2)

if view = 1 then CameraTrack(1,2)

if view = 0 then CameraTrack2(1,2)

rem Position sky at camera and rotate to simulate cloud movement

position object 1,camera position x(0),camera position y(0)-(O#),camera position z(0)

zrotate object 1,wrapvalue(object angle z(1)+(0.8/(fps#+3.1)))

`run all creature protocols

ai()

`do projectile protocol

runplayerguns()

runbullets()

rem Show Framerate

text 20,screen height()-40,desc$

strfps$="DBPro Fps: "+str$(rawfps)

text screen width()-20-text width(strfps$),screen height()-40,strfps$

rem gosub _tdat

gosub _mdat

`now that lasttime# isn't needed anymore this frame update it

lasttime#= time#

rem Update screen

sync

return

`initialize world

function editmatrix(MatrixNumber,xpos,zpos)

ImageNumber=2

if matrix exist(MatrixNumber) = 0

make matrix MatrixNumber,size,size,max,max

prepare matrix texture MatrixNumber,ImageNumber,2,2

endif

Height#=0.0

`get realworld tile

x2= xpos/tsize#

z2= zpos/tsize#

for x=0 to max

for z=0 to max

x3= x2 + x

z3= z2 + z

rem Height#= cos(x*30+rnd(30)+rnd(30))*30  +  sin(z*30)*30  +  sin((x-z)*12)*60 +  cos((z-x)*50)*15

Height#= heightmap(x3,z3)

set matrix height MatrixNumber, x, z, Height#

if x<max and z<max

TileID=1+rnd(3)

set matrix tile MatrixNumber, x, z, TileID

endif

next z

next x

update matrix MatrixNumber

position matrix MatrixNumber,xpos,0,zpos

for x=1 to max-1

for z=1 to max-1

normalize(MatrixNumber,x,z)

next z

next x

for x=0 to max

for z=0 to max

loadscenery(x,z)

next z

next x

update matrix MatrixNumber

EndFunction

`load scenery for new terrain

function loadscenery(xtile,ztile)

rem Create trees

while rnd(118)=77

tr = rnd(1000)+10000

if object exist(tr) = 0 and object exist (tr+1) = 0

h=rnd(120)+180

w= h+rnd(90)-45

make object plain tr,w,h

make object plain tr+1,w,h

xoff=xtile*tsize#+rnd(tsize#)

zoff=ztile*tsize#+rnd(tsize#)

xpos= matrix position x(1)

zpos= matrix position z(1)

position object tr,xpos+xoff,get ground height(1,xoff,zoff)+object size(tr)/1.5,zpos+zoff

position object tr+1,xpos+xoff,get ground height(1,xoff,zoff)+object size(tr)/1.5,zpos+zoff

r=rnd(90)

rotate object tr, 0,r,0

rotate object tr+1, 0,90+r,0

texture object tr,11

texture object tr+1,11

set object tr,0,1,0,2

set object tr+1,0,1,0,2

set object specular tr,0

set object specular tr+1,0

endif

endwhile

`objnum= start + 99

`clone object 2,objnum

`xoff=rnd(size)

`zoff=rnd(size)

`position object start,xpos*size+xoff,get ground height(MatrixNumber,xoff,zoff)+object size(objnum)/1.5,zpos*size+zoff

loadcreatures(xtile,ztile)

endfunction

`unload scenery that's too far away

function unloadscenery()

rem clear scenery from terrain being unloaded

start= 100

for tr=10000 to 11000

if object exist(tr)

if object position z(tr) < camera position z(0) - size * 0.55

delete object tr

else if object position z(tr) > camera position z(0) + size * 0.55

delete object tr

else if object position x(tr) < camera position x(0) - size * 0.55

delete object tr

else if object position x(tr) > camera position x(0) + size * 0.55

delete object tr

endif

next tr

unloadcreatures()

endfunction

` START CREATURE CODE

`load creatures with new terrain

function loadcreatures(xtile,ztile)

while rnd(399)=77

`creatures(0) unused

index = array count(creatures(0)) - 1

obj = creatures(index).objnum +1

if obj >= 2000 then obj = 1000

if obj < 1000 then obj = 1000

if object exist(obj) = 0

array insert at bottom creatures(0)

index= array count(creatures(0)) - 1

creatures(index).objnum= obj

creatures(index).movetype= 0

creatures(index).life#=20.0

clone object obj, 999

scale object obj,3500,3500,3500

`set object specular obj,0

`set object obj,1,0,0,2,1,1

loop object obj,0,25

xoff=xtile*tsize#+rnd(tsize#)

zoff=ztile*tsize#+rnd(tsize#)

xpos= matrix position x(1)

zpos= matrix position z(1)

position object obj,xpos+xoff,get ground height(1,xoff,zoff)+object size(obj)+20,zpos+zoff

r=rnd(359)

rotate object obj, 0,r,0

set object collision on obj

set object collision to boxes obj

`automatic object collision obj,60.0,0

inc debug

endif

endwhile

endfunction

`remove creatures that are too far away

function unloadcreatures()

x=1

while x <  array count(creatures(0))

tr = creatures(x).objnum

if object exist(tr):`object number not valid errors?

if object position z(tr) < camera position z(0) - size * 0.55

delete object tr

array delete element creatures(x),x

else if object position z(tr) > camera position z(0) + size * 0.55

delete object tr

array delete element creatures(x),x

else if object position x(tr) < camera position x(0) - size * 0.55

delete object tr

array delete element creatures(x),x

else if object position x(tr) > camera position x(0) + size * 0.55

delete object tr

array delete element creatures(x),x

else inc x

endif

else inc x

endif

`inc x :rem if a creature is deleted this skips one?

endwhile

endfunction

`runs all creature movement etc

function ai()

x= 1

while x <  array count(creatures(0))

obj= creatures(x).objnum

if obj < 1000 or obj >= 2000

print "AI ERROR "

print "index "+str$(x)

print "object "+str$(obj)

str1$="numbers"

for x= 0 to array count(creatures(0)) - 1

obj= creatures(x).objnum

str1$=str1$+" "+str$(obj)

next x

print str1$

sync

sleep 6000

endif

if object exist(obj):`object number not valid errors?

set object speed obj,2000/fps#

`set creature to dying state as needed

if creatures(x).life#<= 0 and creatures(x).state > -1 then creatures(x).state = -1

`default state

if creatures(x).movetype = 0 and creatures(x).state=0

if rnd(6 * fps#)= 2 then creatures(x).movestate = rnd(3)

walkv#= -70

cx# = object position x(obj)

cz# = object position z(obj)

select creatures(x).movestate

case 1:  cx#=newxvalue(object position x(obj),object angle y(obj),(walkv#/(fps#+3.1)))

cz#=newzvalue(object position z(obj),object angle y(obj),(walkv#/(fps#+3.1)))

endcase

case 2:  yrotate object obj,wrapvalue(object angle y(obj)-(30.1/(fps#+3.1)))

cx#=newxvalue(object position x(obj),object angle y(obj),(walkv#/(fps#+3.1)))

cz#=newzvalue(object position z(obj),object angle y(obj),(walkv#/(fps#+3.1)))

endcase

case 3:  yrotate object obj,wrapvalue(object angle y(obj)+(30.1/(fps#+3.1)))

cx#=newxvalue(object position x(obj),object angle y(obj),(walkv#/(fps#+3.1)))

cz#=newzvalue(object position z(obj),object angle y(obj),(walkv#/(fps#+3.1)))

endcase

endselect

cy#=get ground height(1,cx#-matrix position x(1),cz#-matrix position z(1))+object size(obj)+20

rem inclines effect speed

if cy#>object position y(obj) and creatures(obj).movestate > 0

incline=0

diffx#= cx#-object position x(obj)

diffy#= cy#-object position y(obj)

diffz#= cz#-object position z(obj)

incline# = diffy# / sqrt((diffx#*diffx#)+(diffz#*diffz#))

inc incline#

incline#= incline#*sqrt(incline#)

cx#= object position x(obj) + (diffx#/incline#)

`quick sloppy y

cy#= object position y(obj) + (diffy#/incline#)

cz#= object position z(obj) + (diffz#/incline#)

`slow perfect y

`cy#=get ground height(1,cx#-matrix position x(1),cz#-matrix position z(1))+10.0

endif

position object obj,cx#,cy#,cz#

endif

`dying animations and such

if creatures(x).state = -1

print "CREATURE KILLED!"

sync

sleep 3000

delete object obj

array delete element creatures(x),x

endif

inc x

endwhile

endfunction

`END CREATURE CODE

function runbullets()

t#= time#-lasttime#

x= 0

while x < array count(bullets(0))

obj= bullets(x).objnum

p=bullets(x).particles

move object obj,(bullets(x).velocity# * t#/1000.0)

if p > 0

position particles p, object position x(obj), object position y(obj), object position z(obj)

set particle emissions p,(1+10*(bullets(x).maxlife#-bullets(x).life#)/bullets(x).maxlife#)

rotate particles p,90-object angle x(obj),object angle y(obj)+180,0

endif

bullets(x).life#= bullets(x).life#+(t#)

delete = 0

collider= object collision(obj,0)

if collider > 0

`debuggishness

`print str$(collider)+" object hit!!!!"

`sync

`sleep 3000

delete = 1

if collider > 1000 and collider < 2000

y=1

while y <  array count(creatures(0))-1

if collider = creatures(y).objnum then creatures(y).life# = creatures(y).life#- 10.0

inc y

endwhile

endif

if bullets(x).life# > bullets(x).maxlife# then delete = 1

if delete = 1

delete object obj

if p > 0 then set particle emissions p,0

array delete element bullets(0),x

else

inc x

endif

endwhile

endfunction

function runplayerguns()

if gun# > 0

gun# = gun#- (time#-lasttime#)

else

if mouseclick()= 1

gun#=700 `0.7 second refire rate

bnum= array count(bullets(0))

obj = 2000

if bnum > 0 then obj = bullets(bnum-1).objnum+1

if obj < 2000 then obj = 2000

if obj > 2100 then obj = 2000

if object exist(obj)= 0

array insert at bottom bullets(0)

bullets(bnum).maxlife# = 3500.0

bullets(bnum).life# = 0.0

bullets(bnum).objnum = obj

bullets(bnum).velocity# = 600.0

make object cube obj, 0.1

px#=object position x(2)

pz#=object position z(2)

py#=object position y(2) + object size(2)*0.95

position object obj,px#,py#,pz#

ROTATE OBJECT obj, 0, object angle y(2), 0

move object obj, 30

if view = 2

ROTATE OBJECT obj, camera angle x(0), camera angle y(0), 0

endif

automatic object collision obj,6,0

set object emissive obj,rgb(255,250,220)

p= obj

`if particles exist(p) then p = 2000+rnd(999)

if particles exist(p)= 1 then delete particles p

bullets(bnum).particles = p

ParticleNumber = p

ImageNumber = 2000

make particles ParticleNumber, ImageNumber, 50, 60.0

position particles ParticleNumber, object position x(obj), object position y(obj), object position z(obj)

color particles ParticleNumber, 255, 128, 0

set particle emissions ParticleNumber, 10

set particle velocity ParticleNumber, 10

set particle speed ParticleNumber, 0.01

set particle gravity ParticleNumber, 0

set particle life ParticleNumber, 10

SET PARTICLE FLOOR ParticleNumber, 0

endif

endfunction

`world function updates matrix to reflect player movement

function World (x#, z#)

MatrixNumber = 1

if (x# > matrix position x(1) + tsize# * 0.55 * max)

shift matrix left 1

update matrix MatrixNumber

position matrix 1,matrix position x(1)+2*tsize#,matrix position y(1),matrix position z(1)

`get realworld tile

x2= (matrix position x(1)/tsize#)

z2= (matrix position z(1)/tsize#)

for x = max-1 to max

for z=0 to max

x3= x2 + x

z3= z2 + z

Height#= heightmap(x3,z3)

set matrix height MatrixNumber, x, z, Height#

if x<max and z<max

TileID=1+rnd(3)

set matrix tile MatrixNumber, x, z, TileID

endif

next z

next x

update matrix MatrixNumber

for x = max-2 to max-1

for z=1 to max-1

normalize(MatrixNumber,x,z)

next z

next x

update matrix MatrixNumber

unloadscenery()

for x = max-1 to max

for z=0 to max

loadscenery(x,z)

next z

next x

endif

if (x# < matrix position x(1) + tsize# * 0.45 * max)

shift matrix right 1

update matrix MatrixNumber

position matrix 1,matrix position x(1)-2*tsize#,matrix position y(1),matrix position z(1)

`get realworld tile

x2= (matrix position x(1)/tsize#)

z2= (matrix position z(1)/tsize#)

for x = 1 to 0 step -1

for z=0 to max

x3= x2 + x

z3= z2 + z

Height#= heightmap(x3,z3)

set matrix height MatrixNumber, x, z, Height#

if x<max and z<max

TileID=1+rnd(3)

set matrix tile MatrixNumber, x, z, TileID

endif

next z

next x

update matrix MatrixNumber

for x = 2 to 1 step -1

for z=1 to max-1

normalize(MatrixNumber,x,z)

next z

next x

update matrix MatrixNumber

unloadscenery()

for x = 1 to 0 step -1

for z=0 to max

loadscenery(x,z)

next z

next x

endif

if (z# > matrix position z(1) + tsize# * 0.55 * max)

shift matrix up 1

update matrix MatrixNumber

position matrix 1,matrix position x(1),matrix position y(1),matrix position z(1)+2*tsize#

`get realworld tile

x2= (matrix position x(1)/tsize#)

z2= (matrix position z(1)/tsize#)

for z= max-1 to max

for x=0 to max

x3= x2 + x

z3= z2 + z

Height#= heightmap(x3,z3)

set matrix height MatrixNumber, x, z, Height#

if x<max and z<max

TileID=1+rnd(3)

set matrix tile MatrixNumber, x, z, TileID

endif

next x

next z

update matrix MatrixNumber

for z= max-2 to max-1

for x=1 to max-1

normalize(MatrixNumber,x,z)

next x

next z

update matrix MatrixNumber

unloadscenery()

for z= max-1 to max

for x=0 to max

loadscenery(x,z)

next x

next z

endif

if (z# < matrix position z(1) + tsize# * 0.45 * max)

shift matrix down 1

update matrix MatrixNumber

position matrix 1,matrix position x(1),matrix position y(1),matrix position z(1)-2*tsize#

`get realworld tile

x2= matrix position x(1)/tsize#

z2= (matrix position z(1)/tsize#)

for z = 1 to 0 step -1

for x=0 to max

x3= x2 + x

z3= z2 + z

Height#= heightmap(x3,z3)

set matrix height MatrixNumber, x, z, Height#

if x<max and z<max

TileID=1+rnd(3)

set matrix tile MatrixNumber, x, z, TileID

endif

next x

next z

update matrix MatrixNumber

for z = 2 to 1 step -1

for x=1 to max-1

normalize(MatrixNumber,x,z)

next x

next z

update matrix MatrixNumber

unloadscenery()

for z = 1 to 0 step -1

for x=0 to max

loadscenery(x,z)

next x

next z

endif

endfunction

`debugging display

_mdat:

matnum = 1

set cursor 0,0

print "matrix DATA"

print " matrix number:";matnum

print " exist:";matrix exist(matnum)

if matrix exist(matnum)=1

print " x:";matrix position x(matnum)

print " y:";matrix position y(matnum)

print " z:";matrix position z(matnum)

`print " height:";get ground height(matnum, cx#, cz#)

rem print " totalheight:";get total terrain height(TerrainNumber)

endif

print "CAMERA DATA"

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

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

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

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

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

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

print "Other DATA"

`print "Incline:";incline

print "Creatures:";array count(creatures(0))

print "Last Creature ObjNum:";creatures(array count(creatures(0))-1).objnum

print "debug: ";debug

remstart

str1$="numbers"

for x= 0 to array count(creatures(0)) - 1

obj= creatures(x).objnum

str1$=str1$+" "+str$(obj)

next x

print str1$

remend

return

`camera tracks player

function CameraTrack(matrix,obj):

camx#= camera position x(0)

camy#= camera position y(0)

camz#= camera position z(0)

rem smooth third person camera

rotate camera camera angle x(0)+(mousemovey()/2.0),camera angle y(0)+(mousemovex()/2.0),0

if wrapvalue(camera angle x(0))>90 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,90

if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<260 then xrotate camera 0,260

a#= camera angle y(0)

b#= camera angle x(0)

pointx#=object position x(obj)

pointz#=object position z(obj)

pointy#= object size(obj)+object position y(obj)+25

cy#=newyvalue(pointy#,b#,-camdist#)

cx#=newxvalue(pointx#,a#,cos(b#)*-camdist#)

cz#=newzvalue(pointz#,a#,cos(b#)*-camdist#)

h#= get ground height(1,cx#-matrix position x(1),cz#-matrix position z(1))+camdist#/8

if cy# < h#

diff#= (camdist#-(h#- cy#))/camdist#

cy#=newyvalue(pointy#,b#,-camdist#*diff#)

cx#=newxvalue(pointx#,a#,-camdist#*cos(b#)*diff#)

cz#=newzvalue(pointz#,a#,-camdist#*cos(b#)*diff#)

endif

remstart

h#= get ground height(1,cx#-matrix position x(1),cz#-matrix position z(1))+30

if cy#<h#

cy#=h#

point camera pointx#,pointy#,pointz#

endif

remend

position camera cx#,cy#,cz#

POSITION LISTENER cx#,cy#,cz#

endfunction

`camera tracks player

function CameraTrack2(matrix,obj):

camx#= camera position x(0)

camy#= camera position y(0)

camz#= camera position z(0)

rem smooth third person camera

a#= object angle y(obj)

cx#=newxvalue(object position x(obj),a#,-camdist#)

cz#=newzvalue(object position z(obj),a#,-camdist#)

cy#= get ground height(1,cx#-matrix position x(1),cz#-matrix position z(1))+ 0.4*camdist#

if object position y(obj)+0.7*camdist# > cy# then cy# =  (cy# + object position y(obj)+0.4*camdist#)/2.0

camx#=curvevalue(cx#,camx#,25.0)

camy#=curvevalue(cy#,camy#,70.0)

camz#=curvevalue(cz#,camz#,25.0)

position camera camx#,camy#,camz#

POSITION LISTENER camx#,camy#,camz#

pointx#=newxvalue(object position x(obj),a#,camdist#/2)

pointz#=newzvalue(object position z(obj),a#,camdist#/2)

point camera pointx#,object position y(obj)+ 0.4*camdist#+ object size y(obj),pointz#

endfunction

function CameraFirstPerson(obj):

rotate camera camera angle x(0)+(mousemovey()/2.0),camera angle y(0)+(mousemovex()/2.0),0

if wrapvalue(camera angle x(0))>70 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,70

if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

rotate object obj, object angle x(obj),camera angle y(0),object angle z(obj)

a#= object angle y(obj)

camy#= object size(obj)+object position y(obj)

camx#=newxvalue(object position x(obj),a#,15)

camz#=newzvalue(object position z(obj),a#,15)

position camera camx#, camy#, camz#

POSITION LISTENER camx#, camy#, camz#

endfunction

`used to create heightmap for matrix

function heightmap(x3,z3)

noise = 1.0

height = cos(991.0*cos((z3+x3)*noise))*160.0 + sin(951.0*cos((x3)*1.3*noise))*110.0 + cos(971.0*sin((x3-z3)*2*noise))*70.0 + sin(977.0*sin((-z3)*3*noise))*40 + cos(907.0*cos((z3-x3)*5.0*noise))*25.0

height = height*1.5 :`final modifier to terrain deformation height

endfunction height

`creates matrix normals

function normalize(M,X,Z)

`         Make Vectors

r=Make Vector3(1)

r=Make Vector3(2)

r=Make Vector3(3)

softness#= 1.5

tw#= softness# * tsize# : ` need to adjust according to "look"  - heavy/light shadows 0-15

`Make two vectors at each vertex in same plane

AX# = X: AZ# = Z:AY# = Get matrix Height(1, AX#, AZ#)

dzx#=((Get matrix Height(M, AX#-1, AZ#))- (Get matrix Height(M, AX#+1, AZ#)))

dzy#=((Get matrix Height(M, AX#, AZ#-1))- (Get matrix Height(M, AX#, AZ#+1)))

` Set vectors  - based on your axis, might need to change (-) signs

Set Vector3 1, -tw#,dzx#,0

Set Vector3 2, 0,-dzy#,tw#

` Get cross product of 2 vertex vectors - gives the normal

Cross Product Vector3 3,1,2

`Pull out x,y,z of Normal

nx#=x vector3(3)

ny#=y vector3(3)

nz#=z vector3(3)

set matrix normal M, x,z,nx#,ny#,nz#

endfunction

`for debugging

function test()

z= size*0.6

x= size*0.6

while z > -1000 and mouseclick()=0

position camera -400,1400,-400

`world(size/2,z)

set cursor 0,0

if upkey()=1

print " up"

z=z+20

world(x,z)

endif

if downkey()=1

print " down"

z=z-20

world(x,z)

endif

if rightkey()=1

print " right"

shift matrix right 1

update matrix 1

endif

if leftkey()=1

print " left"

shift matrix left 1

update matrix 1

endif

point camera matrix position x(1)+(0.3*size),matrix position y(1),matrix position z(1)+(0.3*size)

sync

sleep 80

endwhile

endfunction

function test2()

str1$="numbers"

error= 0

for x= 0 to array count(creatures(0)) - 1

obj= creatures(x).objnum

str1$=str1$+" "+str$(obj)

if x > 0 and (obj <1000 or obj >= 2000) then error = 1

next x

if error then print str1$

endfunction error

_load_world:

`need to clone objects for speed reasons

load object "H-Alien Psionic-Idle.x",999

`append object "H-Alien Psionic-Die.x", 999, total object frames(999)+1

scale object 999,3500,3500,3500

set object specular 999,0

set object 999,1,0,0,2,1,1

set object collision to boxes 999

set object collision on 999

global max

max = 50

global size

size = 15000

global tsize#

tsize# = size/max

editmatrix(1,0,0)

for x=0 to max

for z=0 to max

loadscenery(x,z)

next z

next x

L#= size*0.90 : rem distance to sky at horizon

O#= 0.75 : rem radii above center camera will appear in sky sphere

rem calculate radius

r#= sqrt((L#*L#)/(O#*O#+1))

O#= r#*O#

make object sphere 1,2.0*r#,20,20

texture object 1,1

scale object texture 1,9.0,9.0

set object 1,1,0,0,2,0,1

`fix object pivot 1

xrotate object 1,90

`fix object pivot 1

set object collision off 1

set camera range 1,size

`set display mode 800,768,32

camdist#= 250.0

global camdist#

set ambient light 35

make light 1

rem Set Default Light As Sun

set directional light 1,1,-2,2

`color light 1,220,212,182

color light 1,150,140,130

rem Set up Fog

set normalization on

fog on

fog distance size*0.40

`fog color rgb(245,235,225)

fog color rgb(210,210,220)

return

_load_player:

load object "ColZ.x",2

position object 2,size/2,0,size/2

xrotate object 2,270

fix object pivot 2

rotate object 2,0,180,0

scale object 2, 60.0,60.0,60.0

set object specular 2,0

heroframe#=total object frames(2)/200.0

set object speed 2,2000

loop object 2,0,12*heroframe#

`crazy dba v1.05 commands

`set object diffuse 2,rgb(255,0,0)

`set object ambience 2,rgb(0,0,0)

`set object emissive 2,rgb(0,0,64)

`set object specular 2,rgb(255,255,255)

`set object specular power 2,1

`set object smoothing 2,0

DELETE OBJECT COLLISION BOX 2

set object collision to boxes 2

return

_load_images:

load image "grass.bmp",2

set image colorkey 0,0,0

load image "tree.bmp",11

load image "cloudsTexture.jpg",1

load image "crosshair.bmp",3

load image "fire.bmp",2000

return

_load_sounds:

Download

Please login to download

Comments

No comments yet.

Author Name:	Animate Dream
CodeBase Entries:	1

CodeBase - unfinished turn based rpg with infinite terrain

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments