why can't I move? - GameCreators Forum

Author

Message

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 23rd Dec 2005 22:18

Link

I am making a level for a game but strangely I can't move forward or backward. Please help.

sync rate 30
autocam off
rem trees
for x=1 to 120
  make object cone x,100
  color object x,RGB(0,128,0)
  set object collision to boxes x
  position object x,rnd(2000),50,rnd(2000)
  inc x
next x
rem matrix
make matrix 1,2000,2000,50,50
load image "GRASS.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
rem player
make object sphere 121,50
set object collision to spheres 121
X#=750:Z#=1000
position object 121,X#,30,Z#
rem Make Gun
Make object cylinder 122,2
XRotate Object 122,90
Fix object pivot 122
Scale object 122,100,100,600
Lock object on 122
Rem Make bullet
Make Object Sphere 123,2
Hide Object 123
do
rem gun position
position object 122,X#,30,Z#
aY# = Object angle Y(121)
rem controls
If Upkey()=1 then Move object 121,10
If Leftkey()=1 then Yrotate object 121,Wrapvalue(aY#-5)
If Rightkey()=1 then Yrotate object 121,Wrapvalue(aY#+5)
If downkey()=1 then Move object 121,-8
if Mouseclick()=1 and BulletLife=0
   Position object 123,X#,Y#+43,Z#
   Set object to object orientation 123,121
   BulletLife =40
   Show object 123
Endif
If BulletLife > 0
   Dec BulletLife
   Move object 123,20
   If BulletLife = 0 then Hide object 123
Endif
if object collision(121,0)>0 then position object 121,X#,30,Z#
X#=Object position x(121)
Z#=Object position z(121)
cZ#=Newzvalue(Z#,aY#-180,100)
cX#=Newxvalue(X#,aY#-180,100)
Position Camera cX#,100,cZ#
Point camera X#,50,Z#
sync
loop

+ Code Snippet

sync rate 30
autocam off
rem trees
for x=1 to 120
  make object cone x,100
  color object x,RGB(0,128,0)
  set object collision to boxes x
  position object x,rnd(2000),50,rnd(2000)
  inc x
next x
rem matrix
make matrix 1,2000,2000,50,50
load image "GRASS.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
rem player
make object sphere 121,50
set object collision to spheres 121
X#=750:Z#=1000
position object 121,X#,30,Z#
rem Make Gun
Make object cylinder 122,2
XRotate Object 122,90
Fix object pivot 122
Scale object 122,100,100,600
Lock object on 122
Rem Make bullet
Make Object Sphere 123,2
Hide Object 123
do
rem gun position
position object 122,X#,30,Z#
aY# = Object angle Y(121)
rem controls
If Upkey()=1 then Move object 121,10
If Leftkey()=1 then Yrotate object 121,Wrapvalue(aY#-5)
If Rightkey()=1 then Yrotate object 121,Wrapvalue(aY#+5)
If downkey()=1 then Move object 121,-8
if Mouseclick()=1 and BulletLife=0
   Position object 123,X#,Y#+43,Z#
   Set object to object orientation 123,121
   BulletLife =40
   Show object 123
Endif
If BulletLife > 0
   Dec BulletLife
   Move object 123,20
   If BulletLife = 0 then Hide object 123
Endif
if object collision(121,0)>0 then position object 121,X#,30,Z#
X#=Object position x(121)
Z#=Object position z(121)
cZ#=Newzvalue(Z#,aY#-180,100)
cX#=Newxvalue(X#,aY#-180,100)
Position Camera cX#,100,cZ#
Point camera X#,50,Z#
sync
loop

Mysteries Surround You

Back to top

Profile PM

Justin W

20

Years of Service

User Offline

Joined: 28th Apr 2004

Location: Vancouver, Canada

Posted: 23rd Dec 2005 23:40

Link

ok well the problem is when you are checking for collision with your player object like this:

if object collision(121,0)>0 then position object 121,X#,30,Z#

at the top of your loop you are repositioning the gun at the players coordinates which means that the gun will always be colliding with the player which means that your player will never be able to move.

So simply remove the gun or use a beter collision detection system. Hope that helps if not just post again!

Back to top

Profile PM Email

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 24th Dec 2005 01:22 Edited at: 24th Dec 2005 01:26

Link

It still does not work. This is my updated code.

sync rate 30
autocam off
rem trees
for x=1 to 120
  make object cone x,100
  color object x,RGB(0,128,0)
  set object collision to boxes x
  position object x,rnd(2000),50,rnd(2000)
  inc x
next x
rem matrix
make matrix 1,2000,2000,50,50
load image "GRASS.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
rem player
make object sphere 121,50
set object collision to spheres 121
Xpos#=750:Zpos#=1000
position object 121,Xpos#,30,Zpos#
rem Make Gun
Make object cylinder 122,2
XRotate Object 122,90
Fix object pivot 122
Scale object 122,100,100,600
Lock object on 122
Rem Make bullet
Make Object Sphere 123,2
Hide Object 123
do
rem gun position
position object 122,Xpos#,30,Zpos#
aY# = Object angle Y(121)
rem controls
If Upkey()=1 then Move object 121,10
If Leftkey()=1 then Yrotate object 121,Wrapvalue(aY#-5)
If Rightkey()=1 then Yrotate object 121,Wrapvalue(aY#+5)
If downkey()=1 then Move object 121,-8
if Mouseclick()=1 and BulletLife=0
   Position object 123,Xpos#,Y#+43,Zpos#
   Set object to object orientation 123,121
   BulletLife =40
   Show object 123
Endif
If BulletLife > 0
   Dec BulletLife
   Move object 123,20
   If BulletLife = 0 then Hide object 123
Endif
if object collision(121,x) then position object 121,Xpos#,30,Zpos#
Xpos#=Object position x(121)
Zpos#=Object position z(121)
cZ#=Newzvalue(Zpos#,aY#-180,100)
cX#=Newxvalue(Xpos#,aY#-180,100)
Position Camera cX#,100,cZ#
Point camera Xpos#,50,Zpos#
sync
loop

+ Code Snippet

sync rate 30
autocam off
rem trees
for x=1 to 120
  make object cone x,100
  color object x,RGB(0,128,0)
  set object collision to boxes x
  position object x,rnd(2000),50,rnd(2000)
  inc x
next x
rem matrix
make matrix 1,2000,2000,50,50
load image "GRASS.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
rem player
make object sphere 121,50
set object collision to spheres 121
Xpos#=750:Zpos#=1000
position object 121,Xpos#,30,Zpos#
rem Make Gun
Make object cylinder 122,2
XRotate Object 122,90
Fix object pivot 122
Scale object 122,100,100,600
Lock object on 122
Rem Make bullet
Make Object Sphere 123,2
Hide Object 123
do
rem gun position
position object 122,Xpos#,30,Zpos#
aY# = Object angle Y(121)
rem controls
If Upkey()=1 then Move object 121,10
If Leftkey()=1 then Yrotate object 121,Wrapvalue(aY#-5)
If Rightkey()=1 then Yrotate object 121,Wrapvalue(aY#+5)
If downkey()=1 then Move object 121,-8
if Mouseclick()=1 and BulletLife=0
   Position object 123,Xpos#,Y#+43,Zpos#
   Set object to object orientation 123,121
   BulletLife =40
   Show object 123
Endif
If BulletLife > 0
   Dec BulletLife
   Move object 123,20
   If BulletLife = 0 then Hide object 123
Endif
if object collision(121,x) then position object 121,Xpos#,30,Zpos#
Xpos#=Object position x(121)
Zpos#=Object position z(121)
cZ#=Newzvalue(Zpos#,aY#-180,100)
cX#=Newxvalue(Xpos#,aY#-180,100)
Position Camera cX#,100,cZ#
Point camera Xpos#,50,Zpos#
sync
loop

Mysteries Surround You

Back to top

Profile PM

Justin W

20

Years of Service

User Offline

Joined: 28th Apr 2004

Location: Vancouver, Canada

Posted: 24th Dec 2005 04:27

Link

you need to put a for next loop around your collision code I see you already have the X in there for the collision object.

Back to top

Profile PM Email

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 24th Dec 2005 19:02

Link

I don't understand completely what you mean

Mysteries Surround You

Back to top

Profile PM

Antidote

19

Years of Service

User Offline

Joined: 18th Mar 2005

Location: San Francisco, CA

Posted: 24th Dec 2005 20:20 Edited at: 24th Dec 2005 20:20

Link

take this code

+ Code Snippet

if object collision(121,x) then position object 121,Xpos#,30,Zpos#

and change it to something like this

+ Code Snippet

for x = 1 to 120
 if object collision(121,x) then position object 121,Xpos#,30,Zpos#
next x

Back to top

Profile PM

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 24th Dec 2005 20:37

Link

if i do that then it tells me that object does not exist at line 52(where the collision code is).

Mysteries Surround You

Back to top

Profile PM

Justin W

20

Years of Service

User Offline

Joined: 28th Apr 2004

Location: Vancouver, Canada

Posted: 24th Dec 2005 22:08

Link

Try:

for x = 1 to 120
if object collision(121,0)=x then position object 121,Xpos#,30,Zpos#
next x

Back to top

Profile PM Email

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 25th Dec 2005 00:18

Link

I can move with that but it does not stop me when I collide.

Mysteries Surround You

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 25th Dec 2005 02:48

Link

comment your code and space it out a little so its easier to read

If no-one gives your an answer to a question you have asked, consider:- Is your question clear.- Did you ask nicely.- Are you showing any effort to solve the problem yourself 

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 25th Dec 2005 14:19

Link

yknow what the problem is?

+ Code Snippet

for x=1 to 120
  make object cone x,100
  color object x,RGB(0,128,0)
  set object collision to boxes x
  position object x,rnd(2000),50,rnd(2000)
  inc x
next x

This is the part that makes the trees. And you're making 60 in total. inc x is not needed.
The objects that exist would be 1, 3, 5, 7, 9, etc...

remove the inc x and use antidotes code or use this code if don't want to delete the inc x:

+ Code Snippet

for i = 1 to 120
   if object exist(i) > 0
      if object collision(121, i) > 0 then position object 121,X#,30,Z#
   endif
next i

Back to top

Profile PM Email

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 25th Dec 2005 19:05

Link

Thanks alot!

Mysteries Surround You

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / why can't I move?