i need help with collision detection

Author

Message

stupid kid

20

Years of Service

User Offline

Joined: 16th Sep 2004

Location: at my house

Posted: 15th Dec 2004 11:14 Edited at: 15th Dec 2004 11:15

Link

I am making a simple racing game in Dark Basic Classic. In the game you are a penguin and you are racing against a snowman. I am trying to find out how to make it so that when you hit the walls, the snowman, or the trees you stop instead of going threw them. I would also like to know how to make my snowman and my penguin face in the correct directions.

sync on
sync rate 30
hide mouse

load object "penguin2.x",2
load object "snoman.x",3
SCALE OBJECT 2, 5000, 5000, 5000
SCALE OBJECT 3, 5000, 5000, 5000
position object 2,750,0,750
position object 3,750,0,700
Set object collision to boxes 2
Set object collision to boxes 3

rem make level
make object box 4,2000,0.1,2000
position object 4,0,-25,0
make object box 5,1000,75,1000
color object 5,rgb(176,224,230)
make object box 6,2000,75,50
position object 6,0,0,1000
color object 6, rgb(176,224,230)
make object box 7,2000,75,50
position object 7,0,0,-1000
color object 7, rgb(176,224,230)
make object box 8,2000,75,50
ROTATE OBJECT 8, 0, 90, 0
position object 8,1000,0,0
color object 8, rgb(176,224,230)
make object box 9,2000,75,50
ROTATE OBJECT 9, 0, 90, 0
position object 9,-1000,0,0
color object 9, rgb(176,224,230)
Set object collision to boxes 5
Set object collision to boxes 6
Set object collision to boxes 7
Set object collision to boxes 8
Set object collision to boxes 9

rem make the trees
make object cone 10,55
color object 10, rgb(0,60,0)
position object 10,0,0,600
make object cone 11,55
color object 11, rgb(0,60,0)
position object 11,633,0,550
make object cone 12,55
color object 12, rgb(0,60,0)
position object 12,-633,0,950
make object cone 13,55
color object 13, rgb(0,60,0)
position object 13,-633,0,-550
make object cone 14,55
color object 14, rgb(0,60,0)
position object 14,745,0,-876
make object cone 15,55
color object 15, rgb(0,60,0)
position object 15,750,0,330
make object cone 16,55
color object 16, rgb(0,60,0)
position object 16,-750,0,-750
make object cone 17,55
color object 17, rgb(0,60,0)
position object 17,900,0,-750
make object cone 18,55
color object 18, rgb(0,60,0)
position object 18,-750,0,750
make object cone 19,55
color object 19, rgb(0,60,0)
position object 19,-570,0,850
make object cone 20,55
color object 20, rgb(0,60,0)
position object 20,570,0,-850
make object cone 21,55
color object 21, rgb(0,60,0)
position object 21,570,0,250
make object cone 22,55
color object 22, rgb(0,80,0)
position object 22,250,0,623
for x=10 to 22
Set object collision to boxes x
next x

rem setup ai blocks
make object cube 500,50
make object cube 501,50
make object cube 502,50
make object cube 503,50
color object 500, rgb(60,0,0)
color object 501, rgb(60,0,0)
color object 502, rgb(60,0,0)
color object 503, rgb(60,0,0)
position object 500,700,0,700
position object 501,-700,0,-700
position object 502,700,0,-700
position object 503,-700,0,700
Set object collision to boxes 500
Set object collision to boxes 501
Set object collision to boxes 502
Set object collision to boxes 503
hide object 500
hide object 501
hide object 502
hide object 503

do
set cursor 0,0

rem collision detection
If Object collision(2,0)>2 and Object collision(2,0)<23 then position object 2,X#,0,Z#

Rem store object angle Y in ay#
ay#= Object Angle Y(2)

rem control input
if upkey()=1 then move object 2,10
if leftkey()=1 then yrotate object 2,wrapvalue(ay#-5)
if rightkey()=1 then yrotate object 2,wrapvalue(ay#+5)
if downkey()=1 then move object 2,-10

x#=object position x(2)
z#=object position z(2)

cameraz#=newzvalue(z#,ay#-180,100)
camerax#=newxvalue(x#,ay#-180,100)

position camera camerax#,100,cameraz#

point camera x#,50,z#

print "Use the arrow keys to move"
sync
loop

+ Code Snippet

sync on
sync rate 30
hide mouse

load object "penguin2.x",2
load object "snoman.x",3
SCALE OBJECT 2, 5000, 5000, 5000
SCALE OBJECT 3, 5000, 5000, 5000
position object 2,750,0,750
position object 3,750,0,700
Set object collision to boxes 2
Set object collision to boxes 3

rem make level
make object box 4,2000,0.1,2000
position object 4,0,-25,0
make object box 5,1000,75,1000
color object 5,rgb(176,224,230)
make object box 6,2000,75,50
position object 6,0,0,1000
color object 6, rgb(176,224,230)
make object box 7,2000,75,50
position object 7,0,0,-1000
color object 7, rgb(176,224,230)
make object box 8,2000,75,50
ROTATE OBJECT 8, 0, 90, 0
position object 8,1000,0,0
color object 8, rgb(176,224,230)
make object box 9,2000,75,50
ROTATE OBJECT 9, 0, 90, 0
position object 9,-1000,0,0
color object 9, rgb(176,224,230)
Set object collision to boxes 5
Set object collision to boxes 6
Set object collision to boxes 7
Set object collision to boxes 8
Set object collision to boxes 9

rem make the trees
make object cone 10,55
color object 10, rgb(0,60,0)
position object 10,0,0,600
make object cone 11,55
color object 11, rgb(0,60,0)
position object 11,633,0,550
make object cone 12,55
color object 12, rgb(0,60,0)
position object 12,-633,0,950
make object cone 13,55
color object 13, rgb(0,60,0)
position object 13,-633,0,-550
make object cone 14,55
color object 14, rgb(0,60,0)
position object 14,745,0,-876
make object cone 15,55
color object 15, rgb(0,60,0)
position object 15,750,0,330
make object cone 16,55
color object 16, rgb(0,60,0)
position object 16,-750,0,-750
make object cone 17,55
color object 17, rgb(0,60,0)
position object 17,900,0,-750
make object cone 18,55
color object 18, rgb(0,60,0)
position object 18,-750,0,750
make object cone 19,55
color object 19, rgb(0,60,0)
position object 19,-570,0,850
make object cone 20,55
color object 20, rgb(0,60,0)
position object 20,570,0,-850
make object cone 21,55
color object 21, rgb(0,60,0)
position object 21,570,0,250
make object cone 22,55
color object 22, rgb(0,80,0)
position object 22,250,0,623
for x=10 to 22
Set object collision to boxes x
next x


rem setup ai blocks
make object cube 500,50
make object cube 501,50
make object cube 502,50
make object cube 503,50
color object 500, rgb(60,0,0)
color object 501, rgb(60,0,0)
color object 502, rgb(60,0,0)
color object 503, rgb(60,0,0)
position object 500,700,0,700
position object 501,-700,0,-700
position object 502,700,0,-700
position object 503,-700,0,700
Set object collision to boxes 500
Set object collision to boxes 501
Set object collision to boxes 502
Set object collision to boxes 503
hide object 500
hide object 501
hide object 502
hide object 503

do
set cursor 0,0

rem collision detection
If Object collision(2,0)>2 and Object collision(2,0)<23 then position object 2,X#,0,Z#


Rem store object angle Y in ay#
ay#= Object Angle Y(2)

rem control input
if upkey()=1 then move object 2,10
if leftkey()=1 then yrotate object 2,wrapvalue(ay#-5)
if rightkey()=1 then yrotate object 2,wrapvalue(ay#+5)
if downkey()=1 then move object 2,-10


x#=object position x(2)
z#=object position z(2)

cameraz#=newzvalue(z#,ay#-180,100)
camerax#=newxvalue(x#,ay#-180,100)

position camera camerax#,100,cameraz#

point camera x#,50,z#

print "Use the arrow keys to move"
sync
loop

the ai blocks are invisible blocks that later on i am going to make the snowman rotate when he hits them so that the snowman can turn around the corners.

Please help me with collision detection so that i can make this game become more like a game.

Back to top

Profile PM Email Website

stupid kid

20

Years of Service

User Offline

Joined: 16th Sep 2004

Location: at my house

Posted: 16th Dec 2004 05:08 Edited at: 17th Dec 2004 10:15

Link

I changed the program so that the trees look more like trees and i also tried to figure the collision detection myself and this time i think it got it right but i am in the middle of the screen and i can't move now.
I think that darkbasic thinks that the penguin is colliding with the floor which is a box, but i dont understand why that is because i shut off collision detection for the floor. the floor is object 4, i think.

sync on
sync rate 30
hide mouse

load object "penguin2.x",2
load object "snoman.x",3
SCALE OBJECT 2, 5000, 5000, 5000
SCALE OBJECT 3, 5000, 5000, 5000
position object 2,750,0,750
position object 3,750,0,700

rem make level
make object box 4,2000,0.1,2000
position object 4,0,-25,0
make object box 5,1000,75,1000
color object 5,rgb(176,224,230)
make object box 6,2000,75,50
position object 6,0,0,1000
color object 6, rgb(176,224,230)
make object box 7,2000,75,50
position object 7,0,0,-1000
color object 7, rgb(176,224,230)
make object box 8,2000,75,50
ROTATE OBJECT 8, 0, 90, 0
position object 8,1000,0,0
color object 8, rgb(176,224,230)
make object box 9,2000,75,50
ROTATE OBJECT 9, 0, 90, 0
position object 9,-1000,0,0
color object 9, rgb(176,224,230)

rem make the trees
load object "tree2.x",10
SCALE OBJECT 10, 5000, 5000, 5000
position object 10,0,25,600
load object "tree2.x",11
SCALE OBJECT 11, 5000, 5000, 5000
position object 11,633,25,550
load object "tree2.x",12
SCALE OBJECT 12, 5000, 5000, 5000
position object 12,-633,25,950
load object "tree2.x",13
SCALE OBJECT 13, 5000, 5000, 5000
position object 13,-633,25,-550
load object "tree2.x",14
SCALE OBJECT 14, 5000, 5000, 5000
position object 14,745,25,-876
load object "tree2.x",15
SCALE OBJECT 15, 5000, 5000, 5000
position object 15,750,25,330
load object "tree2.x",16
SCALE OBJECT 16, 5000, 5000, 5000
position object 16,-750,25,-750
load object "tree2.x",17
SCALE OBJECT 17, 5000, 5000, 5000
position object 17,900,25,-750
load object "tree2.x",18
SCALE OBJECT 18, 5000, 5000, 5000
position object 18,-750,25,750
load object "tree2.x",19
SCALE OBJECT 19, 5000, 5000, 5000
position object 19,-570,25,850
load object "tree2.x",20
SCALE OBJECT 20, 5000, 5000, 5000
position object 20,570,25,-850
load object "tree2.x",21
SCALE OBJECT 21, 5000, 5000, 5000
position object 21,570,25,250
load object "tree2.x",22
SCALE OBJECT 22, 5000, 5000, 5000
position object 22,250,25,623

rem setup ai blocks
make object cube 500,50
make object cube 501,50
make object cube 502,50
make object cube 503,50
color object 500, rgb(60,0,0)
color object 501, rgb(60,0,0)
color object 502, rgb(60,0,0)
color object 503, rgb(60,0,0)
position object 500,700,0,700
position object 501,-700,0,-700
position object 502,700,0,-700
position object 503,-700,0,700
hide object 500
hide object 501
hide object 502
hide object 503

`------------------
`turn off collision
`------------------
set object collision off 4
set object collision off 6
set object collision off 7
set object collision off 8
set object collision off 9
set object collision off 500
set object collision off 501
set object collision off 502
set object collision off 503

rem main loop ********************************88
do
set cursor 0,0

Rem store object angle Y in ay#
ay#= Object Angle Y(2)

rem control input
if upkey()=1 then move object 2,10
if leftkey()=1 then yrotate object 2,wrapvalue(ay#-5)
if rightkey()=1 then yrotate object 2,wrapvalue(ay#+5)
if downkey()=1 then move object 2,-10

rem collision detection
if z#>962.5 then z#=962.5
if z#<-962.5 then z#=-962.5
if x#>962.5 then x#=962.5
if x#<-962.5 then x#=-962.5
position object 2,x#,0,z#
collision=object collision(2,0)
if collision>0 then position object 2,X#,0,Z#

x#=object position x(2)
z#=object position z(2)

cameraz#=newzvalue(z#,ay#-180,100)
camerax#=newxvalue(x#,ay#-180,100)

position camera camerax#,100,cameraz#

point camera x#,50,z#

print "Use the arrow keys to move"
sync
loop

+ Code Snippet

sync on
sync rate 30
hide mouse

load object "penguin2.x",2
load object "snoman.x",3
SCALE OBJECT 2, 5000, 5000, 5000
SCALE OBJECT 3, 5000, 5000, 5000
position object 2,750,0,750
position object 3,750,0,700

rem make level
make object box 4,2000,0.1,2000
position object 4,0,-25,0
make object box 5,1000,75,1000
color object 5,rgb(176,224,230)
make object box 6,2000,75,50
position object 6,0,0,1000
color object 6, rgb(176,224,230)
make object box 7,2000,75,50
position object 7,0,0,-1000
color object 7, rgb(176,224,230)
make object box 8,2000,75,50
ROTATE OBJECT 8, 0, 90, 0
position object 8,1000,0,0
color object 8, rgb(176,224,230)
make object box 9,2000,75,50
ROTATE OBJECT 9, 0, 90, 0
position object 9,-1000,0,0
color object 9, rgb(176,224,230)

rem make the trees
load object "tree2.x",10
SCALE OBJECT 10, 5000, 5000, 5000
position object 10,0,25,600
load object "tree2.x",11
SCALE OBJECT 11, 5000, 5000, 5000
position object 11,633,25,550
load object "tree2.x",12
SCALE OBJECT 12, 5000, 5000, 5000
position object 12,-633,25,950
load object "tree2.x",13
SCALE OBJECT 13, 5000, 5000, 5000
position object 13,-633,25,-550
load object "tree2.x",14
SCALE OBJECT 14, 5000, 5000, 5000
position object 14,745,25,-876
load object "tree2.x",15
SCALE OBJECT 15, 5000, 5000, 5000
position object 15,750,25,330
load object "tree2.x",16
SCALE OBJECT 16, 5000, 5000, 5000
position object 16,-750,25,-750
load object "tree2.x",17
SCALE OBJECT 17, 5000, 5000, 5000
position object 17,900,25,-750
load object "tree2.x",18
SCALE OBJECT 18, 5000, 5000, 5000
position object 18,-750,25,750
load object "tree2.x",19
SCALE OBJECT 19, 5000, 5000, 5000
position object 19,-570,25,850
load object "tree2.x",20
SCALE OBJECT 20, 5000, 5000, 5000
position object 20,570,25,-850
load object "tree2.x",21
SCALE OBJECT 21, 5000, 5000, 5000
position object 21,570,25,250
load object "tree2.x",22
SCALE OBJECT 22, 5000, 5000, 5000
position object 22,250,25,623



rem setup ai blocks
make object cube 500,50
make object cube 501,50
make object cube 502,50
make object cube 503,50
color object 500, rgb(60,0,0)
color object 501, rgb(60,0,0)
color object 502, rgb(60,0,0)
color object 503, rgb(60,0,0)
position object 500,700,0,700
position object 501,-700,0,-700
position object 502,700,0,-700
position object 503,-700,0,700
hide object 500
hide object 501
hide object 502
hide object 503

`------------------
`turn off collision
`------------------
set object collision off 4
set object collision off 6
set object collision off 7
set object collision off 8
set object collision off 9
set object collision off 500
set object collision off 501
set object collision off 502
set object collision off 503


rem main loop ********************************88
do
set cursor 0,0

Rem store object angle Y in ay#
ay#= Object Angle Y(2)

rem control input
if upkey()=1 then move object 2,10
if leftkey()=1 then yrotate object 2,wrapvalue(ay#-5)
if rightkey()=1 then yrotate object 2,wrapvalue(ay#+5)
if downkey()=1 then move object 2,-10

rem collision detection
if z#>962.5 then z#=962.5
if z#<-962.5 then z#=-962.5
if x#>962.5 then x#=962.5
if x#<-962.5 then x#=-962.5
position object 2,x#,0,z#
collision=object collision(2,0)
if collision>0 then position object 2,X#,0,Z#

x#=object position x(2)
z#=object position z(2)

cameraz#=newzvalue(z#,ay#-180,100)
camerax#=newxvalue(x#,ay#-180,100)

position camera camerax#,100,cameraz#

point camera x#,50,z#

print "Use the arrow keys to move"
sync
loop

all the media is on the darkbasic cd
Can somebody please help me

edit: I fixed the problem with getting stuck in the middle, all the collision detection works now except for the trees, i tried to make a collision box around the trees but that didn't work, i've been trying to figure out how to fix this for a long time but i don't understand collision detection. This is my new code

sync on
sync rate 30
hide mouse

load object "penguin2.x",2
load object "snoman.x",3
SCALE OBJECT 2, 5000, 5000, 5000
SCALE OBJECT 3, 5000, 5000, 5000
position object 2,750,0,750
position object 3,750,0,700

rem make level
make object box 4,2000,0.1,2000
position object 4,0,-25,0
make object box 5,1000,75,1000
color object 5,rgb(176,224,230)
make object box 6,2000,75,50
position object 6,0,0,1000
color object 6, rgb(176,224,230)
make object box 7,2000,75,50
position object 7,0,0,-1000
color object 7, rgb(176,224,230)
make object box 8,2000,75,50
ROTATE OBJECT 8, 0, 90, 0
position object 8,1000,0,0
color object 8, rgb(176,224,230)
make object box 9,2000,75,50
ROTATE OBJECT 9, 0, 90, 0
position object 9,-1000,0,0
color object 9, rgb(176,224,230)

rem make the trees
load object "tree2.x",10
SCALE OBJECT 10, 5000, 5000, 5000
position object 10,0,25,600
load object "tree2.x",11
SCALE OBJECT 11, 5000, 5000, 5000
position object 11,633,25,550
load object "tree2.x",12
SCALE OBJECT 12, 5000, 5000, 5000
position object 12,-633,25,950
load object "tree2.x",13
SCALE OBJECT 13, 5000, 5000, 5000
position object 13,-633,25,-550
load object "tree2.x",14
SCALE OBJECT 14, 5000, 5000, 5000
position object 14,745,25,-876
load object "tree2.x",15
SCALE OBJECT 15, 5000, 5000, 5000
position object 15,750,25,330
load object "tree2.x",16
SCALE OBJECT 16, 5000, 5000, 5000
position object 16,-750,25,-750
load object "tree2.x",17
SCALE OBJECT 17, 5000, 5000, 5000
position object 17,900,25,-750
load object "tree2.x",18
SCALE OBJECT 18, 5000, 5000, 5000
position object 18,-750,25,750
load object "tree2.x",19
SCALE OBJECT 19, 5000, 5000, 5000
position object 19,-570,25,850
load object "tree2.x",20
SCALE OBJECT 20, 5000, 5000, 5000
position object 20,570,25,-850
load object "tree2.x",21
SCALE OBJECT 21, 5000, 5000, 5000
position object 21,570,25,250
load object "tree2.x",22
SCALE OBJECT 22, 5000, 5000, 5000
position object 22,250,25,623

rem setup ai blocks
make object cube 500,50
make object cube 501,50
make object cube 502,50
make object cube 503,50
color object 500, rgb(60,0,0)
color object 501, rgb(60,0,0)
color object 502, rgb(60,0,0)
color object 503, rgb(60,0,0)
position object 500,700,0,700
position object 501,-700,0,-700
position object 502,700,0,-700
position object 503,-700,0,700
hide object 500
hide object 501
hide object 502
hide object 503

`------------------
`turn off collision
`------------------
set object collision off 4
set object collision off 6
set object collision off 7
set object collision off 8
set object collision off 9
set object collision off 500
set object collision off 501
set object collision off 502
set object collision off 503

MAKE OBJECT COLLISION BOX 5,-510,0,-510,510,75,510,0
make object collision box 10,-30,0,-30,30,85,30,0
rem main loop ********************************88
do
set cursor 0,0

Rem store object angle Y in ay#
ay#= Object Angle Y(2)

rem control input
if upkey()=1 then move object 2,10
if leftkey()=1 then yrotate object 2,wrapvalue(ay#-5)
if rightkey()=1 then yrotate object 2,wrapvalue(ay#+5)
if downkey()=1 then move object 2,-10

x#=object position x(2)
z#=object position z(2)

rem collision detection
rem collision detection
if z#>962.5 then z#=962.5
if z#<-962.5 then z#=-962.5
if x#>962.5 then x#=962.5
if x#<-962.5 then x#=-962.5
position object 2,x#,0,z#
collision=object collision(2,0)
if collision>0 then position object 2,oldX#,0,oldZ#

oldx#=object position x(2)
oldz#=object position z(2)

cameraz#=newzvalue(z#,ay#-180,100)
camerax#=newxvalue(x#,ay#-180,100)

position camera camerax#,100,cameraz#

point camera x#,50,z#

print "Use the arrow keys to move"
sync
loop

+ Code Snippet

sync on
sync rate 30
hide mouse

load object "penguin2.x",2
load object "snoman.x",3
SCALE OBJECT 2, 5000, 5000, 5000
SCALE OBJECT 3, 5000, 5000, 5000
position object 2,750,0,750
position object 3,750,0,700

rem make level
make object box 4,2000,0.1,2000
position object 4,0,-25,0
make object box 5,1000,75,1000
color object 5,rgb(176,224,230)
make object box 6,2000,75,50
position object 6,0,0,1000
color object 6, rgb(176,224,230)
make object box 7,2000,75,50
position object 7,0,0,-1000
color object 7, rgb(176,224,230)
make object box 8,2000,75,50
ROTATE OBJECT 8, 0, 90, 0
position object 8,1000,0,0
color object 8, rgb(176,224,230)
make object box 9,2000,75,50
ROTATE OBJECT 9, 0, 90, 0
position object 9,-1000,0,0
color object 9, rgb(176,224,230)

rem make the trees
load object "tree2.x",10
SCALE OBJECT 10, 5000, 5000, 5000
position object 10,0,25,600
load object "tree2.x",11
SCALE OBJECT 11, 5000, 5000, 5000
position object 11,633,25,550
load object "tree2.x",12
SCALE OBJECT 12, 5000, 5000, 5000
position object 12,-633,25,950
load object "tree2.x",13
SCALE OBJECT 13, 5000, 5000, 5000
position object 13,-633,25,-550
load object "tree2.x",14
SCALE OBJECT 14, 5000, 5000, 5000
position object 14,745,25,-876
load object "tree2.x",15
SCALE OBJECT 15, 5000, 5000, 5000
position object 15,750,25,330
load object "tree2.x",16
SCALE OBJECT 16, 5000, 5000, 5000
position object 16,-750,25,-750
load object "tree2.x",17
SCALE OBJECT 17, 5000, 5000, 5000
position object 17,900,25,-750
load object "tree2.x",18
SCALE OBJECT 18, 5000, 5000, 5000
position object 18,-750,25,750
load object "tree2.x",19
SCALE OBJECT 19, 5000, 5000, 5000
position object 19,-570,25,850
load object "tree2.x",20
SCALE OBJECT 20, 5000, 5000, 5000
position object 20,570,25,-850
load object "tree2.x",21
SCALE OBJECT 21, 5000, 5000, 5000
position object 21,570,25,250
load object "tree2.x",22
SCALE OBJECT 22, 5000, 5000, 5000
position object 22,250,25,623



rem setup ai blocks
make object cube 500,50
make object cube 501,50
make object cube 502,50
make object cube 503,50
color object 500, rgb(60,0,0)
color object 501, rgb(60,0,0)
color object 502, rgb(60,0,0)
color object 503, rgb(60,0,0)
position object 500,700,0,700
position object 501,-700,0,-700
position object 502,700,0,-700
position object 503,-700,0,700
hide object 500
hide object 501
hide object 502
hide object 503

`------------------
`turn off collision
`------------------
set object collision off 4
set object collision off 6
set object collision off 7
set object collision off 8
set object collision off 9
set object collision off 500
set object collision off 501
set object collision off 502
set object collision off 503

MAKE OBJECT COLLISION BOX 5,-510,0,-510,510,75,510,0
make object collision box 10,-30,0,-30,30,85,30,0
rem main loop ********************************88
do
set cursor 0,0

Rem store object angle Y in ay#
ay#= Object Angle Y(2)

rem control input
if upkey()=1 then move object 2,10
if leftkey()=1 then yrotate object 2,wrapvalue(ay#-5)
if rightkey()=1 then yrotate object 2,wrapvalue(ay#+5)
if downkey()=1 then move object 2,-10

x#=object position x(2)
z#=object position z(2)

rem collision detection
rem collision detection
if z#>962.5 then z#=962.5
if z#<-962.5 then z#=-962.5
if x#>962.5 then x#=962.5
if x#<-962.5 then x#=-962.5
position object 2,x#,0,z#
collision=object collision(2,0)
if collision>0 then position object 2,oldX#,0,oldZ#

oldx#=object position x(2)
oldz#=object position z(2)

cameraz#=newzvalue(z#,ay#-180,100)
camerax#=newxvalue(x#,ay#-180,100)

position camera camerax#,100,cameraz#

point camera x#,50,z#

print "Use the arrow keys to move"
sync
loop

can somebody please explain how to do collision detection, i looked in the help files but there's no information that helped me.

edit: SInce the tree isn't detecting collision could i put a box around it and then hide the box ang get the collision detection from the box like

make object cube 500,50
load object "tree2.x",10
SCALE OBJECT 10, 5000, 5000, 5000
position object 10,0,25,600
position object 500,0,25,600
hide object 500

i haven't tried that but would it work?

edit: The invisible boxes around the trees worked but making a box to go around every tree and positioning them in the right spots took alot of typing if there is a easier way please tell me

Back to top

Profile PM Email Website

Dom

20

Years of Service

User Offline

Joined: 31st May 2004

Location:

Posted: 17th Dec 2004 18:32

Link

Ha looks like me and you have got the same AI ideas

Quote: "the ai blocks are invisible blocks that later on i am going to make the snowman rotate when he hits them so that the snowman can turn around the corners. "

My AI System does that plus lots lots more!

DRAGONFIRE STUDIOS
Lead Programmer
(The Studio being my front room)

Back to top

Profile PM Email

stupid kid

20

Years of Service

User Offline

Joined: 16th Sep 2004

Location: at my house

Posted: 18th Dec 2004 01:23 Edited at: 18th Dec 2004 01:24

Link

i figured out the problem with the trees but i am having trouble with the ai now.

the snowman goes foward hits the first ai block
then goes backwards and walks right through the first on and leaves the level, i don't understand why it is doing this because when the snow man collides with the blocks he is supposed to rotae 90 degrees not 180 and he is supposed to rotae 90 degrees when he hits the first block to, to help u understand i drew a picture of what the snowman is doing. the blocks are invisble blocks that are supposed to make the snowman rotate, the circle is the snowman and everyting else is the level.

the code for my game

sync on
sync rate 30

rem menu

LOAD BITMAP "titlescreen.bmp",1
GET IMAGE 1,0,0,301,93
delete bitmap 1
load bitmap "penguin.bmp",1
get image 2,0,0,201,246
delete bitmap 1

do
cls
PASTE IMAGE 1,200,0
paste image 2,200,150

white=rgb(255,255,255)
ink 0,white
text 0,130,"NEW GAME"
text 0,160,"LOAD"
text 0,190,"OPTIONS"
text 0,220,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),white : text 0,130,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1 then cls : gosub game

`LOAD
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 then ink rgb(0,0,100),white : text 0,160,"LOAD"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 and mouseclick()=1 then text 100,120,"YOU CLICKED LOAD"

`OPTIONS
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 then ink rgb(0,0,100),white : text 0,190,"OPTIONS"
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 and mouseclick()=1 then text 100,120,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 240 then ink rgb(0,0,100),white : text 0,220,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 240 and mouseclick()=1 then end
sync
loop

rem the game starts here
game:
hide mouse
ink rgb(255,255,255),0
delete image 1
delete image 2

load object "penguin2.x",2
load object "snoman.x",3
SCALE OBJECT 2, 5000, 5000, 5000
SCALE OBJECT 3, 5000, 5000, 5000
position object 2,750,0,750
position object 3,710,0,700
yrotate object 3, 270
yrotate object 2,180
fix object pivot 2

rem make level
make object box 4,2000,0.1,2000
position object 4,0,-25,0
make object box 5,1000,75,1000
color object 5,rgb(176,224,230)
make object box 6,2000,75,50
position object 6,0,0,1000
color object 6, rgb(176,224,230)
make object box 7,2000,75,50
position object 7,0,0,-1000
color object 7, rgb(176,224,230)
make object box 8,2000,75,50
ROTATE OBJECT 8, 0, 90, 0
position object 8,1000,0,0
color object 8, rgb(176,224,230)
make object box 9,2000,75,50
ROTATE OBJECT 9, 0, 90, 0
position object 9,-1000,0,0
color object 9, rgb(176,224,230)

rem make sky
Load image "sky.bmp",1
texture backdrop 1

rem make collision blocks for trees
make object cube 100, 50
position object 100,0,25,600
hide object 100
make object cube 101, 50
position object 101,633,25,550
hide object 101
make object cube 102, 50
position object 102,-633,25,950
hide object 102
make object cube 103, 50
position object 103,-633,25,-550
hide object 103
make object cube 104, 50
position object 104,745,25,-876
hide object 104
make object cube 105, 50
position object 105,750,25,330
hide object 105
make object cube 106, 50
position object 106,-750,25,-750
hide object 106
make object cube 107, 50
position object 107,900,25,-750
hide object 107
make object cube 108, 50
position object 108,-750,25,750
hide object 108
make object cube 109, 50
position object 109,-570,25,850
hide object 109
make object cube 110, 50
position object 110,570,25,-850
hide object 110
make object cube 111, 50
position object 111,570,25,250
hide object 111
make object cube 112, 50
position object 112,250,25,623
hide object 112

rem make the trees
load object "tree2.x",10
SCALE OBJECT 10, 5000, 5000, 5000
position object 10,0,25,600
load object "tree2.x",11
SCALE OBJECT 11, 5000, 5000, 5000
position object 11,633,25,550
load object "tree2.x",12
SCALE OBJECT 12, 5000, 5000, 5000
position object 12,-633,25,950
load object "tree2.x",13
SCALE OBJECT 13, 5000, 5000, 5000
position object 13,-633,25,-550
load object "tree2.x",14
SCALE OBJECT 14, 5000, 5000, 5000
position object 14,745,25,-876
load object "tree2.x",15
SCALE OBJECT 15, 5000, 5000, 5000
position object 15,750,25,330
load object "tree2.x",16
SCALE OBJECT 16, 5000, 5000, 5000
position object 16,-750,25,-750
load object "tree2.x",17
SCALE OBJECT 17, 5000, 5000, 5000
position object 17,900,25,-750
load object "tree2.x",18
SCALE OBJECT 18, 5000, 5000, 5000
position object 18,-750,25,750
load object "tree2.x",19
SCALE OBJECT 19, 5000, 5000, 5000
position object 19,-570,25,850
load object "tree2.x",20
SCALE OBJECT 20, 5000, 5000, 5000
position object 20,570,25,-850
load object "tree2.x",21
SCALE OBJECT 21, 5000, 5000, 5000
position object 21,570,25,250
load object "tree2.x",22
SCALE OBJECT 22, 5000, 5000, 5000
position object 22,250,25,623

rem setup ai blocks
make object cube 500,50
make object cube 501,50
make object cube 502,50
make object cube 503,50
color object 500, rgb(60,0,0)
color object 501, rgb(60,0,0)
color object 502, rgb(60,0,0)
color object 503, rgb(60,0,0)
position object 500,750,0,700
position object 501,-750,0,-700
position object 502,750,0,-700
position object 503,-750,0,700
hide object 500
hide object 501
hide object 503
hide object 504

`------------------
`turn off collision
`------------------
set object collision off 4
set object collision off 6
set object collision off 7
set object collision off 8
set object collision off 9

MAKE OBJECT COLLISION BOX 5,-510,0,-510,510,75,510,0
make object collision box 10,-30,0,-30,30,85,30,0
rem main loop ********************************88
do
set cursor 0,0

Rem store object angle Y in ay#
ay#= Object Angle Y(2)

rem control input
if upkey()=1 then move object 2,10
if leftkey()=1 then yrotate object 2,wrapvalue(ay#-5)
if rightkey()=1 then yrotate object 2,wrapvalue(ay#+5)
if downkey()=1 then move object 2,-10

x#=object position x(2)
z#=object position z(2)

rem collision detection
rem collision detection
if z#>962.5 then z#=962.5
if z#<-962.5 then z#=-962.5
if x#>962.5 then x#=962.5
if x#<-962.5 then x#=-962.5
position object 2,x#,0,z#
if Object collision(2,0)>0 and Object collision(2,0)<499 then position object 2,oldX#,0,oldZ#

oldx#=object position x(2)
oldz#=object position z(2)

cameraz#=newzvalue(z#,ay#-180,100)
camerax#=newxvalue(x#,ay#-180,100)

position camera camerax#,100,cameraz#

point camera x#,50,z#

rem snowman a.i.
if object collision(3,500) then yrotate object 3,90
if object collision(3,501) then yrotate object 3,90
if object collision(3,502) then yrotate object 3,90
if object collision(3,503) then yrotate object 3,90
move object 3, 8

print "Use the arrow keys to move"
sync
loop

+ Code Snippet

sync on
sync rate 30

rem menu

LOAD BITMAP "titlescreen.bmp",1
GET IMAGE 1,0,0,301,93
delete bitmap 1
load bitmap "penguin.bmp",1
get image 2,0,0,201,246
delete bitmap 1

do
cls
PASTE IMAGE 1,200,0
paste image 2,200,150

white=rgb(255,255,255)
ink 0,white
text 0,130,"NEW GAME"
text 0,160,"LOAD"
text 0,190,"OPTIONS"
text 0,220,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),white : text 0,130,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1 then cls : gosub game

`LOAD
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 then ink rgb(0,0,100),white : text 0,160,"LOAD"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 and mouseclick()=1 then text 100,120,"YOU CLICKED LOAD"

`OPTIONS
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 then ink rgb(0,0,100),white : text 0,190,"OPTIONS"
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 and mouseclick()=1 then text 100,120,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 240 then ink rgb(0,0,100),white : text 0,220,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 240 and mouseclick()=1 then end
sync
loop

rem the game starts here
game:
hide mouse
ink rgb(255,255,255),0
delete image 1
delete image 2

load object "penguin2.x",2
load object "snoman.x",3
SCALE OBJECT 2, 5000, 5000, 5000
SCALE OBJECT 3, 5000, 5000, 5000
position object 2,750,0,750
position object 3,710,0,700
yrotate object 3, 270
yrotate object 2,180
fix object pivot 2

rem make level
make object box 4,2000,0.1,2000
position object 4,0,-25,0
make object box 5,1000,75,1000
color object 5,rgb(176,224,230)
make object box 6,2000,75,50
position object 6,0,0,1000
color object 6, rgb(176,224,230)
make object box 7,2000,75,50
position object 7,0,0,-1000
color object 7, rgb(176,224,230)
make object box 8,2000,75,50
ROTATE OBJECT 8, 0, 90, 0
position object 8,1000,0,0
color object 8, rgb(176,224,230)
make object box 9,2000,75,50
ROTATE OBJECT 9, 0, 90, 0
position object 9,-1000,0,0
color object 9, rgb(176,224,230)

rem make sky
Load image "sky.bmp",1
texture backdrop 1

rem make collision blocks for trees
make object cube 100, 50
position object 100,0,25,600
hide object 100
make object cube 101, 50
position object 101,633,25,550
hide object 101
make object cube 102, 50
position object 102,-633,25,950
hide object 102
make object cube 103, 50
position object 103,-633,25,-550
hide object 103
make object cube 104, 50
position object 104,745,25,-876
hide object 104
make object cube 105, 50
position object 105,750,25,330
hide object 105
make object cube 106, 50
position object 106,-750,25,-750
hide object 106
make object cube 107, 50
position object 107,900,25,-750
hide object 107
make object cube 108, 50
position object 108,-750,25,750
hide object 108
make object cube 109, 50
position object 109,-570,25,850
hide object 109
make object cube 110, 50
position object 110,570,25,-850
hide object 110
make object cube 111, 50
position object 111,570,25,250
hide object 111
make object cube 112, 50
position object 112,250,25,623
hide object 112



rem make the trees
load object "tree2.x",10
SCALE OBJECT 10, 5000, 5000, 5000
position object 10,0,25,600
load object "tree2.x",11
SCALE OBJECT 11, 5000, 5000, 5000
position object 11,633,25,550
load object "tree2.x",12
SCALE OBJECT 12, 5000, 5000, 5000
position object 12,-633,25,950
load object "tree2.x",13
SCALE OBJECT 13, 5000, 5000, 5000
position object 13,-633,25,-550
load object "tree2.x",14
SCALE OBJECT 14, 5000, 5000, 5000
position object 14,745,25,-876
load object "tree2.x",15
SCALE OBJECT 15, 5000, 5000, 5000
position object 15,750,25,330
load object "tree2.x",16
SCALE OBJECT 16, 5000, 5000, 5000
position object 16,-750,25,-750
load object "tree2.x",17
SCALE OBJECT 17, 5000, 5000, 5000
position object 17,900,25,-750
load object "tree2.x",18
SCALE OBJECT 18, 5000, 5000, 5000
position object 18,-750,25,750
load object "tree2.x",19
SCALE OBJECT 19, 5000, 5000, 5000
position object 19,-570,25,850
load object "tree2.x",20
SCALE OBJECT 20, 5000, 5000, 5000
position object 20,570,25,-850
load object "tree2.x",21
SCALE OBJECT 21, 5000, 5000, 5000
position object 21,570,25,250
load object "tree2.x",22
SCALE OBJECT 22, 5000, 5000, 5000
position object 22,250,25,623



rem setup ai blocks
make object cube 500,50
make object cube 501,50
make object cube 502,50
make object cube 503,50
color object 500, rgb(60,0,0)
color object 501, rgb(60,0,0)
color object 502, rgb(60,0,0)
color object 503, rgb(60,0,0)
position object 500,750,0,700
position object 501,-750,0,-700
position object 502,750,0,-700
position object 503,-750,0,700
hide object 500
hide object 501
hide object 503
hide object 504

`------------------
`turn off collision
`------------------
set object collision off 4
set object collision off 6
set object collision off 7
set object collision off 8
set object collision off 9

MAKE OBJECT COLLISION BOX 5,-510,0,-510,510,75,510,0
make object collision box 10,-30,0,-30,30,85,30,0
rem main loop ********************************88
do
set cursor 0,0

Rem store object angle Y in ay#
ay#= Object Angle Y(2)

rem control input
if upkey()=1 then move object 2,10
if leftkey()=1 then yrotate object 2,wrapvalue(ay#-5)
if rightkey()=1 then yrotate object 2,wrapvalue(ay#+5)
if downkey()=1 then move object 2,-10

x#=object position x(2)
z#=object position z(2)

rem collision detection
rem collision detection
if z#>962.5 then z#=962.5
if z#<-962.5 then z#=-962.5
if x#>962.5 then x#=962.5
if x#<-962.5 then x#=-962.5
position object 2,x#,0,z#
if Object collision(2,0)>0 and Object collision(2,0)<499 then position object 2,oldX#,0,oldZ#

oldx#=object position x(2)
oldz#=object position z(2)

cameraz#=newzvalue(z#,ay#-180,100)
camerax#=newxvalue(x#,ay#-180,100)

position camera camerax#,100,cameraz#

point camera x#,50,z#

rem snowman a.i.
if object collision(3,500) then yrotate object 3,90
if object collision(3,501) then yrotate object 3,90
if object collision(3,502) then yrotate object 3,90
if object collision(3,503) then yrotate object 3,90
move object 3, 8

print "Use the arrow keys to move"
sync
loop

please help me with the snowmans ai, i want him to go around the racetrack

Back to top

Profile PM Email Website

Dom

20

Years of Service

User Offline

Joined: 31st May 2004

Location:

Posted: 18th Dec 2004 05:15 Edited at: 18th Dec 2004 05:16

Link

You know there is an easier way of loading all those trees just do:

For X = 1 to 22
Load Object "Tree.x",X
Scale Object X,5000,5000,5000
Position Object X,RND(600),25,RND(625)
Next X

As for the AI
rem snowman a.i.
if object collision(3,500) then yrotate object 3,90
if object collision(3,501) then yrotate object 3,180
if object collision(3,502) then yrotate object 3,270
if object collision(3,503) then yrotate object 3,360
move object 3, 8

Try that

DRAGONFIRE STUDIOS
Lead Programmer
(The Studio being my front room)

Back to top

Profile PM Email

Dodo

20

Years of Service

User Offline

Joined: 8th Aug 2004

Location: eating lunch

Posted: 18th Dec 2004 05:26

Link

the reason your snowman is doing this is because when you use this code:

+ Code Snippet

if object collision(3,501) then yrotate object 3,90

DB rotates the object so that it is facing 90 degrees, so it will always face left(on your diagram) when you call this.

What you want to do is add 90 degrees to the current snowman angle, so to do this you need to use object angle y(ObjNo) and wrapvalue(). object angle y gets the objects y angle, and wrapvalue keeps the number within 360 degrees, and wraps it round if it goes over 360 or under 0.

using these commands, your new ai code should look like this:

+ Code Snippet

if object collision(3,500) then yrotate object 3,wrapvalue(object angle y(500)+90)
if object collision(3,501) then yrotate object 3,wrapvalue(object angle y(501)+90)
if object collision(3,502) then yrotate object 3,wrapvalue(object angle y(502)+90)
if object collision(3,503) then yrotate object 3,wrapvalue(object angle y(503)+90)

hope this helps.

Part of solving the problem is actually noticing that the problem is there in the first place

Back to top

Profile PM Email Website

stupid kid

20

Years of Service

User Offline

Joined: 16th Sep 2004

Location: at my house

Posted: 18th Dec 2004 05:33

Link

i am trying your ideas for the snowmans ai right now

and the reason i didn't randomly position the trees was because i needed them on the race track they couldn't be on any of the walls or where the player starts or anything and since the collision detection for the trees were messed up i needed to create the cubes and position them in the exact spot that the trees are in

Back to top

Profile PM Email Website

Stevil

22

Years of Service

User Offline

Joined: 31st Oct 2002

Location: Australia

Posted: 18th Dec 2004 06:24

Link

collision is very tricky, all depends exactly you want it to do, if you want them to slide along the wall or if you want them to bounce of the wall or etc, MANY options to pick from, please tell us exactly what you want to happen when you hit a wall.

Quote: "the ai blocks are invisible blocks that later on i am going to make the snowman rotate when he hits them so that the snowman can turn around the corners"

A better way to do this is not use objects, uses less memory an CPU power if you just check the positions. You can even store it all in an array to make things easier

+ Code Snippet

//So Things Don't Have To Be 100%
LeWay = 1

//Corner 1
Corner[1][xpos] = 200
Corner[1][ypos] = 200
Corner[1][angle] = 120
For a = 1 to NumOfCorners
	if Xpos > Corner[1][xpos] - 1 AND Xpos < Corner[1][xpos] + 1 AND Ypos > Corner[1][ypos] - 1 AND Ypos < Corner[1][ypos] + 1  THEN
		YRotate Object Blah, Corner[angle];

This isn't the best way to do things, but its 9:30 sunday morning an I'm not in a coding mood cause someone woke me up.

Back to top

Profile PM

stupid kid

20

Years of Service

User Offline

Joined: 16th Sep 2004

Location: at my house

Posted: 18th Dec 2004 06:30 Edited at: 18th Dec 2004 06:30

Link

i got the ai working
the correct code was
if object collision(3,500) then yrotate object 3,270
if object collision(3,501) then yrotate object 3,90
if object collision(3,502) then yrotate object 3,360
if object collision(3,503) then yrotate object 3,180

stevil, i do not understand your code and since i'm a just learning dark basic i am going to do it the easy way.

thanks everyone for helping me

Back to top

Profile PM Email Website

Stevil

22

Years of Service

User Offline

Joined: 31st Oct 2002

Location: Australia

Posted: 18th Dec 2004 06:42

Link

Quote: "stevil, i do not understand your code and since i'm a just learning dark basic i am going to do it the easy way."

This is fair enough

If you do not understand it because of the arrays I suggest you learn them A.S.A.P will makie life alot easier for you. There was a pretty good example in the DB help in the old days, I can only assume its still there. Its a lotto example of sorts where it picks numbers an stores them.

Back to top

Profile PM

stupid kid

20

Years of Service

User Offline

Joined: 16th Sep 2004

Location: at my house

Posted: 18th Dec 2004 10:44 Edited at: 18th Dec 2004 10:45

Link

i do not understand arrays but i will look them up in the help files later

the ai is working great now but i have another problem
I want it so that when you go around the race track 3 times and u got around faster than the opponet i want it to say you won and then bring you to the next race track after i make another race track. To do this i made a box, textured it and that box is my finish line, i want it so that when you collide into it it adds to your laps variable but if you just stand in there it keeps adding and adding to that variable, can u please help me to fix this problem.

sync on
sync rate 30

LOAD BITMAP "titlescreen.bmp",1
GET IMAGE 1,0,0,301,93
delete bitmap 1
load bitmap "penguin.bmp",1
get image 2,0,0,201,246
delete bitmap 1

do
cls
PASTE IMAGE 1,200,0
paste image 2,200,150

white=rgb(255,255,255)
ink 0,white
text 0,130,"NEW GAME"
text 0,160,"LOAD"
text 0,190,"OPTIONS"
text 0,220,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),white : text 0,130,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1 then cls : gosub game

`LOAD
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 then ink rgb(0,0,100),white : text 0,160,"LOAD"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 and mouseclick()=1 then text 100,120,"YOU CLICKED LOAD"

`OPTIONS
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 then ink rgb(0,0,100),white : text 0,190,"OPTIONS"
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 and mouseclick()=1 then text 100,120,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 240 then ink rgb(0,0,100),white : text 0,220,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 240 and mouseclick()=1 then end
sync
loop

rem the game starts here
game:
hide mouse
ink rgb(255,255,255),0
delete image 1
delete image 2

load object "penguin2.x",2
load object "snowman.x",3
SCALE OBJECT 2, 5000, 5000, 5000
SCALE OBJECT 3, 2000, 2000, 2000
position object 2,750,0,750
position object 3,710,0,700
yrotate object 3, 180
yrotate object 2,180
fix object pivot 2
fix object pivot 3
yrotate object 3, 270

rem make level
make object box 4,2000,0.1,2000
position object 4,0,-25,0
make object box 5,1000,75,1000
color object 5,rgb(176,224,230)
make object box 6,2000,75,50
position object 6,0,0,1000
color object 6, rgb(176,224,230)
make object box 7,2000,75,50
position object 7,0,0,-1000
color object 7, rgb(176,224,230)
make object box 8,2000,75,50
ROTATE OBJECT 8, 0, 90, 0
position object 8,1000,0,0
color object 8, rgb(176,224,230)
make object box 9,2000,75,50
ROTATE OBJECT 9, 0, 90, 0
position object 9,-1000,0,0
color object 9, rgb(176,224,230)

rem make finish line
load image "finish line texture.bmp",5
make object box 300,50,0.25,500
position object 300, 400,0,750
texture object 300,5

rem make sky
Load image "sky.bmp",1
texture backdrop 1

rem make collision blocks for trees
make object cube 100, 50
position object 100,0,25,600
hide object 100
make object cube 101, 50
position object 101,633,25,550
hide object 101
make object cube 102, 50
position object 102,-633,25,950
hide object 102
make object cube 103, 50
position object 103,-633,25,-550
hide object 103
make object cube 104, 50
position object 104,745,25,-876
hide object 104
make object cube 105, 50
position object 105,750,25,330
hide object 105
make object cube 106, 50
position object 106,-750,25,-750
hide object 106
make object cube 107, 50
position object 107,900,25,-750
hide object 107
make object cube 108, 50
position object 108,-750,25,750
hide object 108
make object cube 109, 50
position object 109,-570,25,850
hide object 109
make object cube 110, 50
position object 110,570,25,-850
hide object 110
make object cube 111, 50
position object 111,570,25,250
hide object 111
make object cube 112, 50
position object 112,250,25,623
hide object 112

rem make the trees
load object "tree2.x",10
SCALE OBJECT 10, 5000, 5000, 5000
position object 10,0,25,600
load object "tree2.x",11
SCALE OBJECT 11, 5000, 5000, 5000
position object 11,633,25,550
load object "tree2.x",12
SCALE OBJECT 12, 5000, 5000, 5000
position object 12,-633,25,950
load object "tree2.x",13
SCALE OBJECT 13, 5000, 5000, 5000
position object 13,-633,25,-550
load object "tree2.x",14
SCALE OBJECT 14, 5000, 5000, 5000
position object 14,745,25,-876
load object "tree2.x",15
SCALE OBJECT 15, 5000, 5000, 5000
position object 15,750,25,330
load object "tree2.x",16
SCALE OBJECT 16, 5000, 5000, 5000
position object 16,-750,25,-750
load object "tree2.x",17
SCALE OBJECT 17, 5000, 5000, 5000
position object 17,900,25,-750
load object "tree2.x",18
SCALE OBJECT 18, 5000, 5000, 5000
position object 18,-750,25,750
load object "tree2.x",19
SCALE OBJECT 19, 5000, 5000, 5000
position object 19,-570,25,850
load object "tree2.x",20
SCALE OBJECT 20, 5000, 5000, 5000
position object 20,570,25,-850
load object "tree2.x",21
SCALE OBJECT 21, 5000, 5000, 5000
position object 21,570,25,250
load object "tree2.x",22
SCALE OBJECT 22, 5000, 5000, 5000
position object 22,250,25,623

rem setup ai blocks
make object cube 500,50
make object cube 501,50
make object cube 502,50
make object cube 503,50
color object 500, rgb(60,0,0)
color object 501, rgb(60,0,0)
color object 502, rgb(60,0,0)
color object 503, rgb(60,0,0)
position object 500,750,0,700
position object 501,-750,0,-700
position object 502,750,0,-700
position object 503,-750,0,700
hide object 500
hide object 501
hide object 502
hide object 503

laps#=0
enemylaps#=0

`------------------
`turn off collision
`------------------
set object collision off 4
set object collision off 6
set object collision off 7
set object collision off 8
set object collision off 9

MAKE OBJECT COLLISION BOX 5,-510,0,-510,510,75,510,0
make object collision box 10,-30,0,-30,30,85,30,0
rem main loop ********************************88
do
set cursor 0,0

Rem store object angle Y in ay#
ay#= Object Angle Y(2)

rem control input
if upkey()=1 then move object 2,10
if leftkey()=1 then yrotate object 2,wrapvalue(ay#-5)
if rightkey()=1 then yrotate object 2,wrapvalue(ay#+5)
if downkey()=1 then move object 2,-10

x#=object position x(2)
z#=object position z(2)

rem collision detection
rem collision detection
if z#>962.5 then z#=962.5
if z#<-962.5 then z#=-962.5
if x#>962.5 then x#=962.5
if x#<-962.5 then x#=-962.5
position object 2,x#,0,z#
if Object collision(2,0)>0 and Object collision(2,0)<299 then position object 2,oldX#,0,oldZ#

if object collision(2,300)>0 then laps#=laps#+1
if object collision(3,300)>0 then enemylaps#=enemylaps#+1

oldx#=object position x(2)
oldz#=object position z(2)

cameraz#=newzvalue(z#,ay#-180,100)
camerax#=newxvalue(x#,ay#-180,100)

position camera camerax#,100,cameraz#

point camera x#,50,z#

rem snowman a.i.
if object collision(3,500) then yrotate object 3,270
if object collision(3,501) then yrotate object 3,90
if object collision(3,502) then yrotate object 3,360
if object collision(3,503) then yrotate object 3,180
move object 3, 8

enemyx#=object position x(3)
enemyz#=object position z(3)
print "enemy x"
print enemyx#
print "enemy z"
print enemyz#

print "laps"
print laps#
print "enemy laps"
print enemylaps#

sync
loop

+ Code Snippet

sync on
sync rate 30

LOAD BITMAP "titlescreen.bmp",1
GET IMAGE 1,0,0,301,93
delete bitmap 1
load bitmap "penguin.bmp",1
get image 2,0,0,201,246
delete bitmap 1

do
cls
PASTE IMAGE 1,200,0
paste image 2,200,150

white=rgb(255,255,255)
ink 0,white
text 0,130,"NEW GAME"
text 0,160,"LOAD"
text 0,190,"OPTIONS"
text 0,220,"QUIT"

`NEW GAME
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 then ink rgb(0,0,100),white : text 0,130,"NEW GAME"
if mousex() > 0 and mousex() < 100 and mousey() > 130 and mousey() < 150 and mouseclick()=1 then cls : gosub game

`LOAD
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 then ink rgb(0,0,100),white : text 0,160,"LOAD"
if mousex() > 0 and mousex() < 100 and mousey() > 160 and mousey() < 180 and mouseclick()=1 then text 100,120,"YOU CLICKED LOAD"

`OPTIONS
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 then ink rgb(0,0,100),white : text 0,190,"OPTIONS"
if mousex() > 0 and mousex() < 100 and mousey() > 190 and mousey() < 210 and mouseclick()=1 then text 100,120,"YOU CLICKED OPTIONS"

`QUIT
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 240 then ink rgb(0,0,100),white : text 0,220,"QUIT"
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 240 and mouseclick()=1 then end
sync
loop

rem the game starts here
game:
hide mouse
ink rgb(255,255,255),0
delete image 1
delete image 2

load object "penguin2.x",2
load object "snowman.x",3
SCALE OBJECT 2, 5000, 5000, 5000
SCALE OBJECT 3, 2000, 2000, 2000
position object 2,750,0,750
position object 3,710,0,700
yrotate object 3, 180
yrotate object 2,180
fix object pivot 2
fix object pivot 3
yrotate object 3, 270

rem make level
make object box 4,2000,0.1,2000
position object 4,0,-25,0
make object box 5,1000,75,1000
color object 5,rgb(176,224,230)
make object box 6,2000,75,50
position object 6,0,0,1000
color object 6, rgb(176,224,230)
make object box 7,2000,75,50
position object 7,0,0,-1000
color object 7, rgb(176,224,230)
make object box 8,2000,75,50
ROTATE OBJECT 8, 0, 90, 0
position object 8,1000,0,0
color object 8, rgb(176,224,230)
make object box 9,2000,75,50
ROTATE OBJECT 9, 0, 90, 0
position object 9,-1000,0,0
color object 9, rgb(176,224,230)

rem make finish line
load image "finish line texture.bmp",5
make object box 300,50,0.25,500
position object 300, 400,0,750
texture object 300,5

rem make sky
Load image "sky.bmp",1
texture backdrop 1

rem make collision blocks for trees
make object cube 100, 50
position object 100,0,25,600
hide object 100
make object cube 101, 50
position object 101,633,25,550
hide object 101
make object cube 102, 50
position object 102,-633,25,950
hide object 102
make object cube 103, 50
position object 103,-633,25,-550
hide object 103
make object cube 104, 50
position object 104,745,25,-876
hide object 104
make object cube 105, 50
position object 105,750,25,330
hide object 105
make object cube 106, 50
position object 106,-750,25,-750
hide object 106
make object cube 107, 50
position object 107,900,25,-750
hide object 107
make object cube 108, 50
position object 108,-750,25,750
hide object 108
make object cube 109, 50
position object 109,-570,25,850
hide object 109
make object cube 110, 50
position object 110,570,25,-850
hide object 110
make object cube 111, 50
position object 111,570,25,250
hide object 111
make object cube 112, 50
position object 112,250,25,623
hide object 112



rem make the trees
load object "tree2.x",10
SCALE OBJECT 10, 5000, 5000, 5000
position object 10,0,25,600
load object "tree2.x",11
SCALE OBJECT 11, 5000, 5000, 5000
position object 11,633,25,550
load object "tree2.x",12
SCALE OBJECT 12, 5000, 5000, 5000
position object 12,-633,25,950
load object "tree2.x",13
SCALE OBJECT 13, 5000, 5000, 5000
position object 13,-633,25,-550
load object "tree2.x",14
SCALE OBJECT 14, 5000, 5000, 5000
position object 14,745,25,-876
load object "tree2.x",15
SCALE OBJECT 15, 5000, 5000, 5000
position object 15,750,25,330
load object "tree2.x",16
SCALE OBJECT 16, 5000, 5000, 5000
position object 16,-750,25,-750
load object "tree2.x",17
SCALE OBJECT 17, 5000, 5000, 5000
position object 17,900,25,-750
load object "tree2.x",18
SCALE OBJECT 18, 5000, 5000, 5000
position object 18,-750,25,750
load object "tree2.x",19
SCALE OBJECT 19, 5000, 5000, 5000
position object 19,-570,25,850
load object "tree2.x",20
SCALE OBJECT 20, 5000, 5000, 5000
position object 20,570,25,-850
load object "tree2.x",21
SCALE OBJECT 21, 5000, 5000, 5000
position object 21,570,25,250
load object "tree2.x",22
SCALE OBJECT 22, 5000, 5000, 5000
position object 22,250,25,623



rem setup ai blocks
make object cube 500,50
make object cube 501,50
make object cube 502,50
make object cube 503,50
color object 500, rgb(60,0,0)
color object 501, rgb(60,0,0)
color object 502, rgb(60,0,0)
color object 503, rgb(60,0,0)
position object 500,750,0,700
position object 501,-750,0,-700
position object 502,750,0,-700
position object 503,-750,0,700
hide object 500
hide object 501
hide object 502
hide object 503

laps#=0
enemylaps#=0

`------------------
`turn off collision
`------------------
set object collision off 4
set object collision off 6
set object collision off 7
set object collision off 8
set object collision off 9

MAKE OBJECT COLLISION BOX 5,-510,0,-510,510,75,510,0
make object collision box 10,-30,0,-30,30,85,30,0
rem main loop ********************************88
do
set cursor 0,0

Rem store object angle Y in ay#
ay#= Object Angle Y(2)

rem control input
if upkey()=1 then move object 2,10
if leftkey()=1 then yrotate object 2,wrapvalue(ay#-5)
if rightkey()=1 then yrotate object 2,wrapvalue(ay#+5)
if downkey()=1 then move object 2,-10

x#=object position x(2)
z#=object position z(2)

rem collision detection
rem collision detection
if z#>962.5 then z#=962.5
if z#<-962.5 then z#=-962.5
if x#>962.5 then x#=962.5
if x#<-962.5 then x#=-962.5
position object 2,x#,0,z#
if Object collision(2,0)>0 and Object collision(2,0)<299 then position object 2,oldX#,0,oldZ#

if object collision(2,300)>0 then laps#=laps#+1
if object collision(3,300)>0 then enemylaps#=enemylaps#+1

oldx#=object position x(2)
oldz#=object position z(2)

cameraz#=newzvalue(z#,ay#-180,100)
camerax#=newxvalue(x#,ay#-180,100)

position camera camerax#,100,cameraz#

point camera x#,50,z#

rem snowman a.i.
if object collision(3,500) then yrotate object 3,270
if object collision(3,501) then yrotate object 3,90
if object collision(3,502) then yrotate object 3,360
if object collision(3,503) then yrotate object 3,180
move object 3, 8

enemyx#=object position x(3)
enemyz#=object position z(3)
print "enemy x"
print enemyx#
print "enemy z"
print enemyz#

print "laps"
print laps#
print "enemy laps"
print enemylaps#

sync
loop

also how do u make levels or race tracks that aren't so square, I want some race tracks that are curved or in other shapes that i can't acheive using boxes and making all those boxes and placing them in the right spot is difficult

pleas help me

Back to top

Profile PM Email Website

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 18th Dec 2004 16:44

Link

Have a variable (e.g. "linecrossed#") and if it equals 1 then when you hit the line it won't increase the laps, and if it equals 0 then when you hit the line it increases. Then halfway through the course have another box that sets linecrossed# to 0.

Am I the only one here who's really confused?

Back to top

Profile PM Website

stupid kid

20

Years of Service

User Offline

Joined: 16th Sep 2004

Location: at my house

Posted: 19th Dec 2004 01:19 Edited at: 19th Dec 2004 03:59

Link

i tried what u said demonsbreath but i get a syntax error. unrecognized parameter at line 240. I dont understand y I am getting this error because i think i typed everything in correctly.

Line 240 says
if object collision(2,300)>0 and linecrossed#=1 then laps#=laps#+1 linecrossed#=0

an my whole program says

menu:
sync on
sync rate 30