sure
gosub main
do
gosub debug
gosub movement
gosub collision
gosub camera
sync
loop
main:
`display
set display mode 1280,1024,32
hide mouse
sync rate 30
sync on
`camera
make camera 1
`player
make object sphere 1,100
position object 1,0,0,-1200
color object 1,rgb(255,255,0)
make object collision box 1,-50,-50,-50,50,50,50,0
`wall
make object box 2,1200,300,1200
position object 2,0,0,0
rotate object 2,0,45,0
color object 2,rgb(255,128,64)
make object collision box 2,-600,-150,-600,600,150,600,0
return
debug:
set cursor 0,0
print "FPS : ";screen fps()
print ""
print "COLLISION"
print object collision(1,2)
print ""
print "OBJECT ANGLE : ";wrapvalue(object angle y(1))
return
movement:
`UP
if upkey()=1 and downkey()=0 and rightkey()=0 and leftkey()=0
move object 1,5
endif
`DOWN
if upkey()=0 and downkey()=1 and rightkey()=0 and leftkey()=0
move object 1,-5
endif
`RIGHT
if upkey()=0 and downkey()=0 and rightkey()=1 and leftkey()=0
yrotate object 1,object angle y(1)+3
endif
`LEFT
if upkey()=0 and downkey()=0 and rightkey()=0 and leftkey()=1
yrotate object 1,object angle y(1)-3
endif
`UP + RIGHT
if upkey()=1 and downkey()=0 and rightkey()=1 and leftkey()=0
move object 1,5
yrotate object 1,object angle y(1)+3
endif
`UP + LEFT
if upkey()=1 and downkey()=0 and rightkey()=0 and leftkey()=1
move object 1,5
yrotate object 1,object angle y(1)-3
endif
`DOWN + RIGHT
if upkey()=0 and downkey()=1 and rightkey()=1 and leftkey()=0
move object 1,-5
yrotate object 1,object angle y(1)-3
endif
`DOWN + LEFT
if upkey()=0 and downkey()=1 and rightkey()=0 and leftkey()=1
move object 1,-5
yrotate object 1,object angle y(1)+3
endif
return
collision:
if object collision(1,2)=1 then position object 1,object position x(1)-get object collision x(),object position y(1)-get object collision y(),object position z(1)-get object collision z()
return
camera:
position camera 1,object position x(1),object position y(1)+600,object position z(1)-800
point camera 1,object position x(1),object position y(1),object position z(1)
return
Could you help me treat my injured Dino-Fly ?
