keeping the player in a certain area

Author

Message

Mikeygd3

12

Years of Service

User Offline

Joined: 18th Dec 2013

Location:

Posted: 11th May 2014 02:56

Link

i wanna know how to keep the player from moving out of area defined by x and z coordinates

Back to top

Profile PM Email

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 11th May 2014 03:58 Edited at: 11th May 2014 04:09

Link

I would do something like this:

gosub Setup

do
gosub Movement
gosub DistanceCheck
gosub PrintToScreen
sync
loop

Setup:
sync on:sync rate 60:color backdrop rgb(rnd(100),rnd(100),rnd(100))
WestLimit=-50    `NEGATIVE X
EastLimit=50       `POSITIVE X
SouthLimit=-50    `NEGATIVE Z
NorthLimit=50      `POSITIVE Z
make matrix 1,100,100,20,20:position matrix 1,-50,0,-50 `MAKE A POINT OF REFERENCE
position camera 0,5,0
return

Movement:
if Mobile=1
ox#=camera position x():oy#=camera position y():oz#=camera position z() `GET OLD POSITION    
control camera using arrowkeys 0,1,5
ENDIF
return

DistanceCheck:
Mobile=1 `ASSUME POSITION IS GOOD UNTIL BAD IS FOUND
if camera position x()<WestLimit then Mobile=0   `IF TOO FAR WEST
if camera position x()>EastLimit then Mobile=0     `IF TOO FAR EAST
if camera position z()<SouthLimit then Mobile=0    `IF TOO FAR SOUTH
if camera position z()>NorthLimit then Mobile=0     `IF TOO FAR NORTH
if Mobile=0 then position camera ox#,oy#,oz#       `PUT BACK INTO GOOD SPOT
return

PrintToScreen:
set cursor 0,0
print "Arrowkeys to Move"
print
print "X Position: ";camera position x()
print "Z Position: ";camera position z()
return

+ Code Snippet

gosub Setup

do
gosub Movement
gosub DistanceCheck
gosub PrintToScreen
sync
loop


Setup:
sync on:sync rate 60:color backdrop rgb(rnd(100),rnd(100),rnd(100))
WestLimit=-50    `NEGATIVE X
EastLimit=50       `POSITIVE X
SouthLimit=-50    `NEGATIVE Z
NorthLimit=50      `POSITIVE Z
make matrix 1,100,100,20,20:position matrix 1,-50,0,-50 `MAKE A POINT OF REFERENCE
position camera 0,5,0
return

Movement:
if Mobile=1
ox#=camera position x():oy#=camera position y():oz#=camera position z() `GET OLD POSITION    
control camera using arrowkeys 0,1,5
ENDIF
return


DistanceCheck:
Mobile=1 `ASSUME POSITION IS GOOD UNTIL BAD IS FOUND
if camera position x()<WestLimit then Mobile=0   `IF TOO FAR WEST
if camera position x()>EastLimit then Mobile=0     `IF TOO FAR EAST
if camera position z()<SouthLimit then Mobile=0    `IF TOO FAR SOUTH
if camera position z()>NorthLimit then Mobile=0     `IF TOO FAR NORTH
if Mobile=0 then position camera ox#,oy#,oz#       `PUT BACK INTO GOOD SPOT
return

PrintToScreen:
set cursor 0,0
print "Arrowkeys to Move"
print
print "X Position: ";camera position x()
print "Z Position: ";camera position z()
return

It saves the old position every loop so if you go too far it puts you back in your last good spot.
Others may have something more efficient.

666GO†O666

Back to top

Profile PM

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 11th May 2014 11:04

Link

Look at the internal Newton Physics ODE system and implement collision methods, or use a physics library such as Dark Physics or Dark Dynamix or that other collision thing never used it so forgot what it is called...

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 11th May 2014 11:49

Link

Hi there.

@Derek Darkly. I hope you don't mind, I made some arrangements to your snippet. In your code , the camera get stuck in borders , this is correct somehow, but if we want a sliding collision ,we can use:

gosub Setup

do
  gosub Movement
  gosub DistanceCheck
  gosub PrintToScreen
  sync
loop

Setup:
   sync on:sync rate 60:color backdrop rgb(rnd(100),rnd(100),rnd(100))
   WestLimit=-50    `NEGATIVE X
   EastLimit=50       `POSITIVE X
   SouthLimit=-50    `NEGATIVE Z
   NorthLimit=50      `POSITIVE Z
   make matrix 1,100,100,20,20:position matrix 1,-50,0,-50 `MAKE A POINT OF REFERENCE
   position camera 0,5,0
return

Movement:
   ox#=camera position x():oy#=camera position y():oz#=camera position z() `GET OLD POSITION
   control camera using arrowkeys 0,0.4,1
   x#=camera position x():y#=camera position y():z#=camera position z()    `ACTUAL CAMERA POSITION ONCE WE PRESS ARROWKEYS

`camera rotation
   a#=wrapvalue(a#+mousemovex()/2)
   cam#=wrapvalue(cam#+mousemovey()/2)
   rotate camera cam#,a#,0
return

DistanceCheck:
  if camera position x()<WestLimit then x#=ox#   `IF TOO FAR WEST
  if camera position x()>EastLimit then x#=ox#    `IF TOO FAR EAST
  if camera position z()<SouthLimit then z#=oz#   `IF TOO FAR SOUTH
  if camera position z()>NorthLimit then z#=oz#   `IF TOO FAR NORTH
  position camera x#,2,z#                         `PUT BACK INTO GOOD SPOT ( we could use get ground height )
return

PrintToScreen:
  set cursor 0,0
  print "Arrowkeys to Move"
  print
  print "X Position: ";camera position x()
  print "Z Position: ";camera position z()
return

+ Code Snippet

gosub Setup

do
  gosub Movement
  gosub DistanceCheck
  gosub PrintToScreen
  sync
loop


Setup:
   sync on:sync rate 60:color backdrop rgb(rnd(100),rnd(100),rnd(100))
   WestLimit=-50    `NEGATIVE X
   EastLimit=50       `POSITIVE X
   SouthLimit=-50    `NEGATIVE Z
   NorthLimit=50      `POSITIVE Z
   make matrix 1,100,100,20,20:position matrix 1,-50,0,-50 `MAKE A POINT OF REFERENCE
   position camera 0,5,0
return

Movement:
   ox#=camera position x():oy#=camera position y():oz#=camera position z() `GET OLD POSITION
   control camera using arrowkeys 0,0.4,1
   x#=camera position x():y#=camera position y():z#=camera position z()    `ACTUAL CAMERA POSITION ONCE WE PRESS ARROWKEYS

   `camera rotation
   a#=wrapvalue(a#+mousemovex()/2)
   cam#=wrapvalue(cam#+mousemovey()/2)
   rotate camera cam#,a#,0
return


DistanceCheck:
  if camera position x()<WestLimit then x#=ox#   `IF TOO FAR WEST
  if camera position x()>EastLimit then x#=ox#    `IF TOO FAR EAST
  if camera position z()<SouthLimit then z#=oz#   `IF TOO FAR SOUTH
  if camera position z()>NorthLimit then z#=oz#   `IF TOO FAR NORTH
  position camera x#,2,z#                         `PUT BACK INTO GOOD SPOT ( we could use get ground height )
return

PrintToScreen:
  set cursor 0,0
  print "Arrowkeys to Move"
  print
  print "X Position: ";camera position x()
  print "Z Position: ";camera position z()
return

Cheers.

I'm not a grumpy grandpa