changed 2 strings (and add 2):
Rem Project: 3D Spheres and boxes
Rem Created: Monday, July 07, 2014
Rem ***** Main Source File *****
cls
Sync rate 60
MAKE OBJECT SPHERE 1, 2
Make object cube 2, 2
`Speeds for characters
global Pspeed as float
global ESpeed as float
Pspeed = 0.1
ESpeed = 0.1
`Object positions
Position object 1, 0, 0, 50
Position object 2, 20, 0, 50
Do
if upkey()
move object up 1, Pspeed
endif
if downkey()
move object down 1, Pspeed
endif
If leftkey()
move object left 1, Pspeed
endif
if rightkey()
move object right 1, Pspeed
endif
sync
Loop
or this, more math:
Rem Project: 3D Spheres and boxes
Rem Created: Monday, July 07, 2014
Rem ***** Main Source File *****
cls
Sync rate 60
MAKE OBJECT SPHERE 1, 2
Make object cube 2, 2
`Speeds for characters
global Pspeed as float
global ESpeed as float
Pspeed = 0.1
ESpeed = 0.1
`Object positions
Position object 1, 0, 0, 50
Position object 2, 20, 0, 50
Do
if upkey()
position object 1,newxvalue(object position x (1),camera angle y (),Pspeed),newyvalue(object position y (1),camera angle x (),Pspeed),newzvalue(object position z (1),camera angle y (),Pspeed)
endif
if downkey()
position object 1,newxvalue(object position x (1),camera angle y ()+180,Pspeed),newyvalue(object position y (1),camera angle x (),Pspeed),newzvalue(object position z (1),camera angle y ()+180,Pspeed)
endif
If leftkey()
position object 1,newxvalue(object position x (1),camera angle y ()-90,Pspeed),object position y (1),newzvalue(object position z (1),camera angle y ()-90,Pspeed)
endif
if rightkey()
position object 1,newxvalue(object position x (1),camera angle y ()+90,Pspeed),object position y (1),newzvalue(object position z (1),camera angle y ()+90,Pspeed)
endif
sync
Loop
