Walking cubes, put here by request from the DBPRO board (should work in classic)
Controls: WASD
Rem Project: walkin
Rem Created: 22/11/2005 17:11:28
Rem ***** Main Source File *****
sync rate 60 : sync on
make object box 1,1,3,1 : offset limb 1,0,0,-1.5,0
make object box 2,1,3,1 : glue object to limb 2,1,0 : offset limb 2,0,0,-1.5,0
make object box 3,1,3,1 : offset limb 3,0,0,-1.5,0
make object box 4,1,3,1 : glue object to limb 4,3,0 : offset limb 4,0,0,-1.5,0
make object box 5,1,1,1 : glue object to limb 1,5,0 : glue object to limb 3,5,0
position object 1,1,0,0
position object 3,-1,0,0
position object 2,0,-1.5,0
position object 4,0,-1.5,0
position camera 0,0,-15
do
if keystate(17) then inc speed#,0.05
if keystate(31) then dec speed#,0.05
if keystate(30) then dec lrspeed#,0.1 : else if lrspeed# < 0.0 then inc lrspeed#,0.1
if keystate(32) then inc lrspeed#,0.1 : else if lrspeed# >0.0 then dec lrspeed#,0.1
inc frames,5
rotate object 1,sin(frames)*(30*(speed#/3)),0,0
rotate object 2,(22.5*(speed#/3))-sin(frames+90)*(22.5*(speed#/3)),0,0
rotate object 3,sin(frames+180)*(30*(speed#/3)),0,0
rotate object 4,(22.5*(speed#/3))-sin(frames+270)*(22.5*(speed#/3)),0,0
control camera using arrowkeys 0,0.1,1
position object 5,object position x(5)+sin(object angle y(5))*((speed#/3)*0.2),0,object position z(5)+cos(object angle y(5))*((speed#/3)*0.2)
yrotate object 5,object angle y(5)+lrspeed#
text 0,0,str$(scancode())
sync
loop
MUHAHAHAHAHAHA.... MUHAHAHAHAHAHA.... MUHAHAHAH..COUGH..COUGH..
