TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 3D Maths

Version: 1.0

Information

Uploaded: 6th Jul 2004 13:18

Modified: 6th Jul 2004 13:22

Author: o0 Static 0o

Summary

This code shows a circle radar.

Full Description

This bit of code gives you a nice looking radar. The center of the circles is the camera position. All the objects from 10000 to 10009 are red circles on the radar. You can change this number like you wish. This code is coded by Super Soldier. WITH HELP FROM IanM

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Remstart

This bit of code gives you a nice looking radar.

The center of the circles is the camera position.

All the objects from 10000 to 10009 are red circles on the radar.

You can change this number like you wish.

This code is coded by Super Soldier.

WITH HELP FROM IanM

Remend

sync on

sync rate 60

autocam off

for i=10000 to 10009

make object cube i, 1.0

position object i, rnd(120)-60, 0, rnd(120)-60

next i

Rem Make Hud

Make object Plain 200,1.21,1.21 : position object 200,-2.5,1.7,4

Lock object on 200 : color object 200,rgb(0,244,0)

ghost object on 200

Angle=0

if upkey() then move camera 0.2

if downkey() then move camera -0.2

if leftkey() then Angle=wrapvalue(angle-1)

if rightkey() then Angle=wrapvalue(angle+1)

if Angle < 0 then inc Angle, 360

yrotate camera Angle

Radar()

sync

loop

function Radar()

ink rgb(0,255,0),0

circle 70,70,1

circle 70,70,20

circle 70,70,30

circle 70,70,40

circle 70,70,50

circle 70,70,60

ink rgb(255,0,0),0

for i=10000 to 10009

if object exist(i)=1

Distance=Sqrt((camera position x() - object position x(i))^2 + (0 - 0)^2 + (camera position z() - object position z(i)))

if Distance < 60

1#=camera position x()-object position x(i) : 2#=camera position z()-object position z(i) : 3#=camera angle y()

angle#=atanfull(1#,2#)-3#

if angle#<-180.0

angle#=angle#+360.0

else

if angle#>180.0 then angle#=angle#-360.0

endif

circle newxvalue(70,angle#,(distance-(Distance*2))), newzvalue(70,angle#,Distance),1

CodeBase - Circle Radar

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	o0 Static 0o
CodeBase Entries:	1