Sorry your browser is not supported!

`POSITION SEARCHER
`Made by : The Nerd
Print "INSTRUCTIONS :"
print " W = move box FORWARD"
print " S = move box BACKWARD"
print " A = move box LEFT"
print " D = move box RIGHT"
print " R = move box UP"
print " F = move box DOWN"
print " Press escape any time to quit Position searcher"

Print "CREDITS :"
print "Programmer : The Nerd"
print "Special thanks to : Evil God Of Hell , Eddie B , N30F15H"
print
print "Fell free to use this code in you program/game"
print "press any key to start using POSITION SEARCHER!"
wait key
cls



sync on
sync rate 30

Rem ***** Main Source File *****


` Make the player object.

make object box 1,10,10,10
scale object 1,10,10,10

` color the player object.

color object 1, RGB(0,128,0)

` make some player object variables.

playerx# = 0
playery# = 0
playerz# = 0
playerspeed# = 1.0




` ** THIS IS THE START OF THE MAIN LOOP.

do

` Position the player object using the variables.

position object 1,playerx#,playery#,playerz#

` Make the control input for the player object.

if inkey$() = "w" then inc playerz#,0.2
if inkey$() = "s" then dec playerz#,0.2
if inkey$() = "a" then dec playerx#,0.2
if inkey$() = "d" then inc playerx#,0.2
if inkey$() = "r" then inc playery#,0.2
if inkey$() = "f" then dec playery#,0.2



set cursor 5,30
print "X: ";object position x(1)
print " Y: ";object position y(1)
print " Z: ";object position z(1)

position camera playerx#,playery#+5,playerz#-10




sync
loop

Rem Created by Merix
Rem Sample program for saving positions of all objects
make object cube 1,.5
position object 1, 20,50,75
make object cube 2, .5
position object 2, 500,200,100
do
   for x = 1 to 50
      if object exist(x)
          positionx$ = str$(object position x(x))
          positiony$ = str$(object position y(x))
          positionz$ = str$(object position z(x))
          n$ = "Object " + str$(x) + ".txt"
          open to write 1, n$

            write string 1, "Position x = " + positionx$
            write string 1, "Position y = " + positiony$
            write string 1, "Position z = " + positionz$

          close file 1
      endif
   next x


   wait key
   end
loop

make object cube 1,.5
position object 1, 30,50,75
make object cube 2, .5
position object 2, 500,200,100
do
   for x = 1 to 50
      if object exist(x)
          positionx$ = str$(object position x(x))
          positiony$ = str$(object position y(x))
          positionz$ = str$(object position z(x))
          n$ = "Object " + str$(x) + ".txt"
          exists=FILE EXIST(n$)
          if exists = 1 then delete file n$
          open to write 1, n$

            write string 1, "Position x = " + positionx$
            write string 1, "Position y = " + positiony$
            write string 1, "Position z = " + positionz$

          close file 1
      endif
   next x


   wait key
   end
loop