TheGameCreators - CodeBase - Simple Terrain Editor

Return to the CodeBase listing

Category: Complete Applications

Version: 1.01

Information

Uploaded: 18th Jul 2014 17:49

Modified: 19th Jul 2014 03:05

Author: CleoKraft

Summary

A simple 3D terrain editor. Full download here: http://www.4shared.com/zip/tDNlmmNt/terrainEditorV101_1_.html

Full Description

A simple 3D terrain editor. It requires a few files to run properly: matrixTexture6.png: (a 255x255x16M color PNG file divided into 4 rows of 4 64x64 pixel wide squares of whatever textures or colors you want to use) stars1.png: (a 633x422x16M color PNG file of the sky) treetop.png (an 88x100x256 color PNG file with invis background of a tree top) treetop.x (a 3D file for the treetop.png image) treetrunk.x (a 3D file for the tree trunk) enterprise_from_back.x (a 3D file for the "player" to walk around the world in) Commands: x - Exit program arrow keys - navigate world SHIFT - toggle camera from 1st to 3rd person perspective q - raise terrain (best to use in 3rd person "enterprise" camera) a - lower terrain (best to use in 3rd person "enterprise" camera) p - plant a tree (best to use in 1st person "default" camera) m - load world (loads the default world) s - save world (warning: this will overwrite the default world without prompting to overwrite! use with caution) f - fog toggle (orange fog, gray fog, fog off) L - light toggle (toggles day and night - try with various fog effects. i.e. orange fog and night looks pretty amazing) T - terrain toggle (changes the terrain grid square you're on - best in 3rd person "enterprise" camera) Z - (experimental - use at your own risk as it messes with the mesh. Use M to reload world if camera gets buggy using this) When planting a tree use the following keys: mouse move - move tree left, right, up and down arrow keys - forward, backward to move ; left, right to rotate left mouse click - plants the tree (and exits the tree planting mode which goes back to normal key mapping (see above)) Note that there's a wall near the "zone-in" for testing collision detection on objects outside the normal terrain. I'll probably drop the wall out of there in the final version of the editor but for now it's in there. Probably the first thing to do when you run this is hit the "M" key to load in the default world map, then explore that a bit using the arrow keys. The gravity routine in this isn't noticable really on the terrain itself yet but if you "fall off" high terrain you'll see a slow fall effect, so the gravity routine is definately in there, it's just not noticable because the editor "locks" you onto the terrain right now.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM Project: terrain editor

REM Created: 10/29/2012 2:06:55 AM

REM by C.K.

REM ***** Main Source File *****

REM version 1.01

disable escapekey: REM disables the escape key to abort program

REM set display mode 1600,900,16:REM ***MY*** computer supports this

perform checklist for display modes

for c=1 to checklist quantity()

width=checklist value a(c)

height=checklist value b(c)

depth=checklist value c(c)

print "found:";checklist string$(c)

next c

wait 1200

set display mode width, height, depth

if check display mode(width, height, depth)=1

print "using screen resolution:";width;" ";height;" ";depth

endif

wait 1200

set text font "Times New Roman"

set text size 24

REM Set Display Mode 800,600,16: REM width, height, depth

Autocam off: REM with autocam off the camera will not reposition when a new object is loaded or created

cameraFollowing# = 0: REM if 0 then the camera is AT object 1 location, else it follows object 1

Sync On: REM with SYNC ON  your program is responsible for handling screen refreshing (use the SYNC command to refresh screen) - improves performance of high FPS programs

CLS 0: REM CLS <color value>

Sync Rate 60:rem 60: REM milliseconds - default rate is 40 (valid values are from 1 to 1000 - zero will allow the program to refresh as fast as the system will allow)

Show Mouse: REM or Hide Mouse to hide the mouse

Make Matrix 1,2000,2000,20,20:REM matrix number, width, height XSegments, Zsegments

Create Bitmap 1,128,128: REM bitmap number, width, height

CLS RGB(0,128,0)

Get Image 1,0,0,128,128: REM image number, left, top, right, bottom

Set Current Bitmap 0

Delete Bitmap 1

Prepare Matrix Texture 1,1,1,1:REM matrix number, image number, across, down

Position Matrix 1,0,0,0:REM 1,-1000,0,-1000:REM matrix number,x,y,z

REM FINAL Product NEEDS this to get rid of jaggy lines! ---> set matrix trim 1,.02,.02

set matrix trim 1,.005,.005

load image "matrixTexture6.png",10:REM 9.png",10:REM "matrixTextures6.png",10

prepare matrix texture 1,10,4,4:REM 2,2:REM matrix 1,image 1,2 across,2 down

FILL MATRIX 1,2.5,1:REM matrix, Height, Tile Number

dim matrixTileColor (20,20)

dim matrixTileHeight (20,20)

dim matrixTreePos (200,3):REM (x,1)=tree X, (x,2) = tree Y, (x,3) = tree Z

dim matrixTreeRot (200):REM the Y rotation value of the tree as a whole

REM note: the tree trunk coords are tree x, treeY + 8.5, z

for x = 1 to 20

for z = 1 to 20

matrixTileHeight(x,z) = int(get matrix height(1,x,z))

matrixTileColor(x,z) = 1:REM tile #1 will be default texture/color

next z

next x

rem for x = 1 to 100

rem   matrixTreePos(x,1) = 0

rem   matrixTreePos(x,2) = 0

rem   matrixTreePos(x,3) = 0

rem   matrixTreeRot(x) = 0

rem next x

REM make static collision box 1000,0,-1000,1000,10,1000:REM world border - query with: GET STATIC COLLISION HIT

Load Object "enterprise_from_back.x",1: REM enterprise.x has its own color scheme when you load it

Hide Object 1: REM in 1st Person PoV camera we hide it, in chase camera we show it again

REM Object Collision Box is defined AT the point of origin (0,0,0)

REM and follows the object (object 1) wherever it is positioned in the world

REM

REM The following values are OFFSETS from the CENTER of object 1

REM For example -2.5 is 2.5 (or HALF) of size 5 (see above: object 1 is size 5)

REM Or just devide the X,Y,Z dimensions by 2 and switch to negative. i.e. if width (X) = 100/2 = 50 which makes -50

REM These offsets are convenient because if you move object 1 somewhere else then

REM the collision box still contains the same offsets no matter where object 1 is positioned in the world.

REM

REM            Y2 2.5    Z2 2.5

REM                 |   /

REM                 |  /

REM                 | /

REM                 |/

REM X1 -2.5 .....(0,0,0)..... X2 2.5

REM                /|

REM               / |

REM              /  |

REM             /   |

REM      Z1 -2.5     Y1 -2.5

REM

REM Make Object Collision Box 1,-2.5,-2.5,-2.5,2.5,2.5,2.5,0: REM the first value (1) is the object, the last value (0) is a flag (see below for details on Get Object Collision used with this flag)

Make Object Collision Box 1,-5,-5,-10,5,5,10,0

XPos#=0: YPos#=2.5: ZPos#=0

Position Object 1,0,2.5,0

set object collision on 1

Make Object Box 2,150,150,10:Rem object 2 is 150 wide (x), 150 tall (y) and 10 deep (z)

REM load object "someobject.x",2

rem scale object 2,10000,10000,10000

Position Object 2,0,25,100

REM set object collision on 2

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

set object light 2,1

REM Object Collision Box is defined AT the point of origin (0,0,0)

REM and follows the object (object 2) wherever it is positioned in the world

Make Object Collision Box 2,-75,-425,-5,75,425,5,0

REM added the following on 22 OCT 2012

REM LOAD IMAGE "C:\temp\stars1.png",6

LOAD IMAGE "stars1.png",6

MAKE OBJECT SPHERE 5,3000: REM 3000= size of sphere

TEXTURE OBJECT 5,6

SET OBJECT COLLISION OFF 5

SET OBJECT CULL 5,0 : REM do not CULL "away" polygons, 1= do cull (or omit) them

set object light 5,1

POSITION OBJECT 5,1000,0,1000:REM 5,0,0,0

REM the top half of the tree (two planes with a transparent image)

load object "treetop.x",8

load image "treetop.png",8

texture object 8,12

scale object 8,10000,10000,10000

position object 8,-190,10,109

set object transparency 8,1

set object light 8,1

REM the bottom half of the tree - a multifaced polygon - oldschool EverQuest style

load object "treetrunk.x",9

scale object 9,10000,10000,10000

position object 9,-190,2.5,109

set object collision on 9

set object light 9,1

REM light #1 is the player spotlight for night viewing or dark rooms

make light 1

set light range 1,200

set spot light 1,45,90

rotate light 1,0,84,0

position light 1,-900,10,430:REM 230,325,112

set light to object position 1,1

set light to object orientation 1,1

color light 1,rgb(255,255,255): REM rgb(255,0,0): REM rgb(202,2,190)

hide light 1

set directional light 0,0,-1,0:REM color light 0,192,192,19

show light 0

globalFog# = 0

matrixTile# = 1:REM default is 1. If a tile file was loaded with 2x2 tiles the tile numbers are: 1,2,3,4

rem treeCounter# = 0:REM keep tally of tree objects - number starts at

objectPointer# = 100:REM start at object #100 when adding new objects

If Upkey()=1 Then Move Object 1,2

If Downkey()=1 Then Move Object 1,-2

If Leftkey()=1 Then Yrotate Object 1,Wrapvalue(Object Angle Y(1)-4)

if Rightkey()=1 Then Yrotate Object 1,Wrapvalue(Object Angle Y(1)+4)

if escapekey()=1

center_write(320,50,"Use the X key to end the game."):REM escape key was disabled for exit as GUI required it

sync

wait 1000

endif

REM gravity application - added 21 OCT 2012

if (Object Position Y(1) > 2.5): REM  and (Object Collision(1,0) = 0))

gravity = 4: rem test with 4 for faster effect

if Object Collision(1,0) <> 3 then Move Object Down 1,gravity: REM if not on the "Ramp" then move down (else you might get stuck)

if Object Collision(1,0) = 3 then move object up 1,gravity: REM back out added so player does not get "stuck" in a collided object (i.e. the ramp)

endif

if (Object Position Y(1) < 2.5) then Position Object 1,Object Position X(1),2.5,Object Position Z(1): REM If less than GROUND LEVEL (2.5) set it to GROUND LEVEL

REM end gravity stuff - 21 OCT 2012

XPos#=Object Position X(1): Rem store object 1 position X to variable: XPos#

YPos#=Object Position Y(1): Rem store object 1 position Y to variable: YPos#

ZPos#=Object Position Z(1): Rem store object 1 position Z to variable: ZPos#

REM matrix stuff

matrixX# = -99

matrixZ# = -99

if (XPos# >=0) and (XPos# <= 2000) and (ZPos# >=0) and (ZPos# <=2000)

matrixX# = int(XPos# /100):REM matrix position X(1):REM int(XPos# / 100):REM 20x20 matrix, matrix is 2000x2000 pixels, so each grid is 100 width x 100 length

matrixZ# = int(ZPos# / 100): REM matrix position Z(1):REM int(ZPos# / 100)

groundHeight# = int(get ground height(1,XPos#,ZPos#))

YPos# = 2.5 + groundHeight#:REM matrixTileHeight(int(matrixX#),int(matrixZ#)):REM get ground height(1,matrixX#,matrixZ#)

rem     position object 1,XPos#,15 + get ground height(1,matrixX#,matrixZ#),ZPos#

endif

Rem The sliding collision bit

Rem

REM NOTE: The "0" in (1,0) below is a flag - if you set it to 1 then the collision box rotates with the object

REM       in the Make Object Collision Box command (see above), however if you set it to 0 then you can use

REM       the Get Object Collision functions. Also when set to "0" the function Get Object Collision returns

REM       either a ZERO or the number of the object it with. If set to 1 the return value is either ZERO or ONE (0 or 1).

If Object Collision(1,0)>0

REM      if (object collision(1,0)=6)

REM        REM if (Spacekey()=1) then Text 50,50,"You hit spacebar on the cylinder!": rem ADDED 22 OCT 2012 to test world interaction

REM        if (Spacekey()=1)

REM            wait 500

REM            sync

REM             myTemp# = dialogue_window(myTemp#)

REM            center_write(320,50,"(after function returned) you selected: " + str$(myTemp#))

REM            sync

REM            wait 1000

REM        endif

REM      else

Dec XPos#,Get Object Collision X():REM if something collides with object 1, we Decrement XPos# by the X value of the object that collided with object 1

Dec YPos#,Get Object Collision Y():REM if something collides with object 1, we Decrement YPos# by the Y value of the object that collided with object 1

Dec ZPos#,Get Object Collision Z():REM if something collides with object 1, we Decrement ZPos# by the Z value of the object that collided with object 1

endif

REM   Endif

Position Object 1,XPos#,YPos#,ZPos#

Angle#=Object Angle y(1)

REM Terrain check

REM if ((XPos# > 0) AND (XPos# < 1024) AND (ZPos# > 0) AND (ZPos# < 1024))

REM      myHeight = GET TERRAIN HEIGHT(1,XPos#,ZPos#) + 3.5

REM      position object 1,XPos#,myHeight,ZPos#

REM   endif

CamDist#=40.0 : CamHeight#=YPos#+15.0 : Camsmooth#=3.5: REM CamHeight#=yPos+10.0:

position light 1,XPos#,YPos#+10,ZPos#: REM -900,2.5,430:

point light 1,0,object angle y(1),0

if ShiftKey()=1

if cameraFollowing = 1

cameraFollowing = 0

Hide Object 1

else

cameraFollowing = 1

Show Object 1

endif

TEXT 1,1,"Switching camera..."

sync

sleep 500: REM wait 1000 miliseconds (1 second)

endif

REM end added 21 OCT 2012

REM added 22 OCT 2012

REM Mouse click detection

if (MOUSECLICK() = 1)

REM 1 = left mouse button clicked, 2 = right mouse button clicked

myMouseX = MOUSEX()

myMouseY = MOUSEY()

myMouseZ = MOUSEZ()

if ((myMouseX < 100) and (myMouseY < 100))

center_write(330,220,"You clicked the left mouse button in the 0-100 x 0-100 area")

REM TEXT 50,50,"You clicked the left mouse button in the 0-100 x 0-100 area."

endif

REM sync

REM sleep 500

endif

REM   if mouseclick()>0

REM      if pick object(mouseX(),mouseY(),6,6)> 0 : REM did user click the cylinder?

REM            ink rgb(255,255,255),rgb(0,0,0)

REM if get pick distance() < 100

REM               center_write(330,220,"Mouse click (picked) the cylinder.")

REM               REM text 50,50,"Mouse clicked (picked) the cylinder...":REM add to inventory or something

REM            else

REM               center_write(330,220,"That is too far. Get closer first.")

REM               REM text 50,50,"That is too far. Get closer first."

REM            endif

REM      endif

REM   endif

myKey = SCANCODE()

REM  TEXT 1,1,"Key entered: " + str$(myKey)

select myKey

CASE 201: REM 201 :  rem PAGE UP pressed...

REM myCamAngle = CAMERA ANGLE X

PITCH CAMERA UP 1

ENDCASE

CASE 209 : rem PAGE DOWN pressed...

REM

PITCH CAMERA DOWN 1

ENDCASE

case 44: REM z key - for test

shift matrix right 1

sync

wait 50

endcase

case 25: REM P key - place tree

rem treeCounter# = 0:REM keep tally of tree objects - number starts at

rem objectPointer# = 10:REM start at object #10 when adding new objects

rem object #8 & #9 are original TREE objects

rem

rem position object 8,-190,10,109

rem position object 9,-190,2.5,109

if (object exist (objectPointer#))

center_write(320,80,"Error! Object exists: " + str$(objectPointer#))

sync

wait 3000

endif

clone object objectPointer#,8

clone object objectPointer# + 100,9

REM ghost object on objectPointer#

REM ghost object on objectPointer# +1, 1

texture object objectPointer#,8

scale object objectPointer#,10000,10000,10000

scale object objectPointer# + 100,10000,10000,10000

set object collision on objectPointer# + 100

set object light objectPointer# + 100,1

position object objectPointer#,-190,10,109

position object objectPointer# + 100,-190,2.5,109

set object transparency objectPointer#,1

set object light objectPointer#,1

abort# = 0

pickdistance# = 100

repeat

center_write(320,40,"Left click = plant tree. Move mouse = left, right, up and down.")

center_write(320,60,"Left and right arrow keys = rotate. Up and down arrow keys = move in or out.")

center_write(320,80,"Object #: " + str$(objectPointer#) + " angle: " + str$(object angle y(objectPointer#)))

rem pickdistance# = get pick distance()

if pickdistance# < 25 then pickdistance# = 25

PICK SCREEN mouseX(),mouseY(), pickdistance#:REM pickdistance#

pickX# = get pick vector x():REM mouseX():REM get pick vector x()

pickY# = get pick vector y():REM (mouseY():REM get pick vector z()

pickZ# = get pick vector z():REM get ground height(1,pickX#,pickZ#):REM get pick vector y()

position object objectPointer# +100,XPos# + pickX#,YPos# + pickY#,ZPos# + pickZ#

position object objectPointer#,XPos# + pickX#, YPos# + pickY# + 8.5,ZPos# + pickZ#

if mouseclick() = 1 then abort# = 1:REM left click

if mouseclick() = 2 then abort# = 2:REM right click

if escapekey() = 1 then abort# = 2:REM escape key

If Leftkey()=1

Yrotate Object objectPointer#,Wrapvalue(Object Angle Y(objectPointer#)-4)

Yrotate Object objectPointer# + 100, Wrapvalue(Object Angle Y(objectPointer# + 100)-4)

endif

if Rightkey()=1

Yrotate Object objectPointer#,Wrapvalue(Object Angle Y(objectPointer#)+4)

Yrotate Object objectPointer# + 100,Wrapvalue(Object Angle Y(objectPointer# + 100)+4)

endif

if object angle y(objectPointer#) > 360

rotate object objectPointer#,0,object angle y(objectPointer#) - 360,0

rotate object objectPointer# + 100,0,object angle y(objectPointer# + 100) - 360,0

endif

if object angle y(objectPointer#) < 0

rotate object objectPointer#,0,object angle y(objectPointer#) + 360,0

rotate object objectPointer#,0,object angle y(objectPointer# + 100) + 360,0

endif

if upkey()=1

pickdistance# = pickdistance# + 5

endif

if downkey()=1

pickdistance# = pickdistance# - 5

endif

sync

wait 50

until abort# <> 0

if abort# = 1

if (objectPointer# > 200)

center_write(320,40,"Error: Only 100 tree objects per zone are currently allowed.")

sync

wait 3000

abort# = 2

else

objectPointer# = objectPointer# + 1

endif

if abort# = 2

delete object objectPointer#

delete object objectPointer# + 100

endif

endcase

case 16: REM Q key - matrix height increase

if (matrixZ# = -99) or (matrixX# = -99)

else

groundHeight# = int(get ground height(1,XPos#,ZPos#)):REM matrixX#,matrixZ#))

squareHeight# = get matrix height(1,matrixX#,matrixZ#)

set matrix height 1,matrixX#,matrixZ#,int(squareHeight# + 10)

matrixTileHeight(int(matrixX#),int(matrixZ#)) = int(squareHeight# + 10)

REM set matrix height 1,matrixX#,matrixZ#,matrixTileHeight(x,z)

update matrix 1

sync

wait 200

endif

endcase

case 30: REM A key - matrix height decrease

if (matrixX# = -99) or (matrixZ# = -99)

else

groundHeight# = int(get ground height(1,XPos#,ZPos#)):REM matrixX#,matrixZ#))

squareHeight# = get matrix height(1,matrixX#,matrixZ#)

set matrix height 1,matrixX#,matrixZ#,int(squareHeight# - 10)

update matrix 1

matrixTileHeight(int(matrixX#),int(matrixZ#)) = int(get matrix height(1,matrixX#,matrixZ#))

REM set matrix height 1,matrixX#,matrixZ#,matrixTileHeight(x,z)

sync

wait 200

endif

endcase

case 20: REM T key - texture change matrix tile

if (matrix# = -99) or (matrixZ# = -99)

else

matrixTile# = matrixTile# + 1

if matrixTile# > (matrix tile count(1)) then matrixTile# = 1:REM 4 then matrixTile# = 1: REM > matrix tile count(1) then matrixTile# = 1

set matrix tile 1,matrixX#,matrixZ#,matrixTile#

update matrix 1

matrixTileColor(int(matrixX#),int(matrixZ#)) = matrixTile#

sync

wait 200

endif

endcase

case 31: rem S key - save matrix

if (file exist("mesh1.hgt"))

delete file "mesh1.hgt"

endif

if (file exist("mesh1.clr"))

delete file "mesh1.clr"

endif

rem make file "mesh1.msh"

save array "mesh1.hgt",matrixTileHeight(0)

save array "mesh1.clr",matrixTileColor(0)

center_write(320,60,"matrix saved to files: mesh1.msh, mesh1.clr")

if (file exist("tree1.dat"))

delete file "tree1.dat"

endif

tempCount# = 0

for x = 100 to 200

if (object exist(x)) then tempCount# = tempCount# + 1

next x

open to write 1,"tree1.dat"

write float 1,tempCount#

for x = 100 to 198

if (object exist(x))

tempX# = object position x(x)

tempY# = object position y(x)

tempZ# = object position z(x)

tempAngle# = object angle y(x)

write float 1,tempX#

write float 1,tempY#

write float 1,tempZ#

write float 1,tempAngle#

endif

next x

close file 1

center_write(320,80,"tree data saved to file: tree1.dat")

sync

wait 1000

endcase

case 50: rem M key - load matrix

REM open to read 2,"mesh1.msh"

load array "mesh1.hgt",matrixTileHeight(0)

load array "mesh1.clr",matrixTileColor(0)

for x = 0 to 19

for z = 0 to 19

if (matrixTileColor(x,z) > 0)

set matrix tile 1,x,z,matrixTileColor(x,z)

else

set matrix tile 1,x,z,1

endif

set matrix height 1,x,z,matrixTileHeight(x,z)

next z

next x

center_write(320,60,"matrix loaded from files: mesh1.msh, mesh1.clr")

update matrix 1

REM delete tree objects (if exist)

for x = 100 to objectPointer# step 1

if object exist(x) then delete object x

if object exist(x + 100) then delete object (x + 100)

next x

sync

objectPointer# = 100

rem load trees

if (file exist("tree1.dat"))

open to read 1,"tree1.dat"

read float 1,totTrees#

rem objectPointer# = 100

rem tempCount# = 0

for x = 1 to int(totTrees#)

if file end(1) = 1 then exit

rem center_write(320,60,"x,y,z,angle: " + str$(tempX#) + ", " + str$(tempY#) + ", " + str$(tempZ#) + str$(tempAngle#))

rem sync

rem wait 3000

REM if tempX# = 0 and tempY# = 0 and tempZ# = 0 then exit: REM catch null

if (object exist(objectPointer#))

else

read float 1,tempX#

read float 1,tempY#

read float 1,tempZ#

read float 1,tempAngle#

if file end(1) = 1 then exit

clone object objectPointer#,8

clone object (objectPointer# + 100),9

texture object objectPointer#,8

scale object objectPointer#,10000,10000,10000

scale object (objectPointer# + 100),10000,10000,10000

set object collision on (objectPointer# + 100)

set object light (objectPointer# + 100),1

tempY# = get ground height(1,tempX#,tempZ#) - 2.5:REM Quality control: regardless of save, adjust to just below ground height when re-planting trees

position object objectPointer#,tempX#,tempY# + 8.5,tempZ#

position object (objectPointer# + 100),tempX#,tempY#,tempZ#

rotate object objectPointer#,0,tempAngle#,0

rotate object objectPointer# + 100,0,tempAngle#,0

set object transparency objectPointer#,1

set object light objectPointer#,1

rem tempCount# = tempCount# + 1

objectPointer# = objectPointer# + 1

endif

next x: REM endwhile :REM until File end(1) = 0

rem center_write(320,60,"trees loaded: " + str$(tempCount#)):REM

rem objectPointer# = objectPointer# + 1:REM remember to increment to allow new tree objects to be planted

close file 1

rem center_write(320,60,"new object pointer: " + str$(objectPointer#)):REM x,y,z,angle: " + str$(tempX#) + ", " + str$(tempY#) + ", " + str$(tempZ#) + str$(tempAngle#))

endif

sync

wait 50

endcase

CASE 38: rem L key - lighting

if light visible(0)

hide light 0

show light 1

set ambient light 10

rem set object ambient 5,0: REM skybox is now totally dark

rem color object 5,rgb(0,0,0):REM set skybox to totally black

rem set alpha mapping on 10,20:REM partly hide football field

else

hide light 1

show light 0

set ambient light 20

rem set object ambient 5,1: REM skybox is affected by a minimum of ambient light

rem texture object 5,6:rem re-texture skybox

rem set alpha mapping on 10,100: REM no alpha = 100%, invisible = 0%

endif

wait 500

sync

endcase

CASE 33: rem 33 = F key, 30 = A key (lowercase a)

globalFog# = globalFog# + 1

if (globalFog# = 1)

REM fog effects

fog on

fog distance 1000

fog color rgb(251,129,27): REM orange

TEXT 1,1,"Applying orange fog..."

endif

if (globalFog# = 2)

TEXT 1,1,"Applying gray fog..."

fog on

fog color rgb(124,124,124)

fog distance 1000

endif

if (globalFog# = 3)

TEXT 1,1,"Removing fog..."

fog off

globalFog# = 0

endif

sync

sleep 500

ENDCASE

case 45:

REM x key - end program

end

endcase

CASE DEFAULT:

text 1,1," key" + str$(myKey) : REM myKey

if (cameraFollowing = 0)

REM 1st Person PoV Camera

Position Camera XPos#,CamHeight#,ZPos#: REM addded 21 OC2012

Set Camera To Object Orientation 1: REM added 21 OCT 2012

else

REM Chase Camera

set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),100,75,25,0:REM another camera angle setup

REM Set Camera To Follow XPos#,YPos#,ZPos#,Angle#,CamDist#,CamHeight#,CamSmooth#,0:REM original code

Point Camera XPos#,CamHeight#,ZPos#: REM added 21 OCT 2012 - in case camera on ramp it would otherwise view above and away from the object it's following

endif

ENDCASE

endselect

groundHeight# = get ground height(1,XPos#,ZPos#):REM matrixX#,matrixZ#)

center_write(320,10,"       x:" + str$(int(XPos#)) + "   y:" + STR$(int(YPos#)) + "   z:" + STR$(int(ZPos#)) + " x angle: " + str$(object angle x(1)) + " z angle: " + str$(object angle z(1)) + " Y (main) angle: " + str$(int(object angle y(1))) )

center_write(320,40,"matrix X: " + str$(matrixX#) + " matrix Z: " + str$(matrixZ#) + " height: " + str$(groundHeight#)): REM "max lights: " + str$(get maximum lights()))

rem center_write(320,60,"object angle Y: " + str$(object angle y(1)))

Sync

Loop

end

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

`write text to screen with a border (centered)

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

function center_write(x,y,string$)

ink RGB(0,128,255),0

`draw outline

center text x+1,y+1,string$

center text x+1,y-1,string$

center text x-1,y+1,string$

ink rgb(255,255,255),0

`draw actual letter/number

center text x,y,string$

endfunction

function loc_write(x,y,string$)

ink RGB(0,128,255),0

text x+1,y+1,string$

text x+1,y-1,string$

text x-1,y-1,string$

ink rgb(255,255,255),0

text x,y,string$

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	CleoKraft
CodeBase Entries:	1

CodeBase - Simple Terrain Editor

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments