Here is a strange way I made to move objects. Could be used in a game where you control multiple units.
Press M to go into move mode.
In move mode use arrows to move the 2nd cube. Press space to exit move mode and have the 1t cube move to the 2nd cube.
sync on
autocam off
make matrix 1,1000,1000,10,10
make object cube 1,10
pitch camera down 90
position camera 0,150,0
m = 0
do
if inkey$()="m" and m = 0
make object cube 2,10
position object 2,object position x(1),object position y(1),object position z(1)
m = 1
endif
if m = 1
if leftkey()=1 then turn object left 2,5
if rightkey()=1 then turn object right 2,5
if upkey()=1 then move object 2,5
if downkey()=1 then move object 2,-5
if spacekey()=1 then m = 2
endif
if m = 2
point object 1,object position x(2),object position y(2),object position z(2)
move object 1,3
if object collision(1,2)=1
delete object 2
m = 0
endif
endif
if m = 1
position camera object position x(2),150,object position z(2)
else
position camera object position x(1),150,object position z(1)
endif
sync
loop
"Computers in the future may weigh no more then
1.5 tons. - Popular Mechanics, 1949
