This is probebly pretty obvious but I just can't see what I'm doing wrong. So I was tring to make something where you drive around a car. However at some points it disapears. Stear it using the arrows go to the right and it vanishes I think its something to do with my camera.
SYNC ON : SYNC RATE 0 : AUTOCAM OFF : HIDE MOUSE
MAKE OBJECT box 1,200,20,300
limbs()
make camera 1
ya#=90 : cy#=200 : cz#=-300
make matrix 1,10000,10000,100,100
position matrix 1,-5000,-100,-5000
DO
IF UPKEY()=1 THEN MOVE OBJECT 1,1
IF DOWNKEY()=1 THEN MOVE OBJECT 1,1
IF RIGHTKEY()=1 THEN inc ya#,0.2
IF LEFTKEY()=1 THEN dec ya#,0.2
IF KEYSTATE(2)=1 THEN inc xa#,0.2
IF KEYSTATE(3)=1 THEN dec xa#,0.2
IF KEYSTATE(4)=1 THEN inc za#,0.2
IF KEYSTATE(5)=1 THEN dec za#,0.2
IF KEYSTATE(9)=1
position object 1,0,0,0 : xa#=0 : ya#=90 : za#=0
endif
ox#=object position x(1) : oy#=object position y(1) : oz#=object position z(1)
if spacekey()=1 then inc ca#
rotate object 1,xa#,ya#,za#
position camera 1,cx#,cy#,cz#
rotate camera 1,0,ca#,0
cdx#=cx#-ox# : cdy#=cy#-oy# : cdz#=cz#-oz#
csaa#=atan(cdx#/cdz#)
print csaa#
point camera 1,ox#,oy#,oz#
SYNC
LOOP
Function limbs
MAKE OBJECT BOX 2,200,100,100
MAKE MESH FROM OBJECT 1,2
DELETE OBJECT 2
ADD LIMB 1,1,1
DELETE MESH 1
OFFSET LIMB 1,1,0,50,-100
MAKE OBJECT box 2,200,118,1
MAKE MESH FROM OBJECT 1,2
DELETE OBJECT 2
ADD LIMB 1,2,1
DELETE MESH 1
OFFSET LIMB 1,2,0,50,110
rotate limb 1,2,-45,0,0
MAKE OBJECT box 2,200,84,1
MAKE MESH FROM OBJECT 1,2
DELETE OBJECT 2
ADD LIMB 1,3,1
DELETE MESH 1
OFFSET LIMB 1,3,0,50,68
rotate limb 1,3,180,0,0
MAKE OBJECT triangle 2,0,84,0,0,0,0,0,0,84
MAKE MESH FROM OBJECT 1,2
ADD LIMB 1,4,1
OFFSET LIMB 1,4,-100,9,68
DELETE OBJECT 2
ADD LIMB 1,5,1
DELETE MESH 1
OFFSET LIMB 1,5,100,9,68
rotate limb 1,5,-90,180,0
MAKE OBJECT BOX 2,20,50,140
MAKE MESH FROM OBJECT 1,2
DELETE OBJECT 2
ADD LIMB 1,6,1
ADD LIMB 1,7,1
DELETE MESH 1
OFFSET LIMB 1,6,90,20,0
OFFSET LIMB 1,7,-90,20,0
MAKE OBJECT BOX 2,80,60,300
MAKE MESH FROM OBJECT 1,2
DELETE OBJECT 2
ADD LIMB 1,8,1
DELETE MESH 1
OFFSET LIMB 1,8,0,-40,0
MAKE OBJECT cylinder 2,10
MAKE MESH FROM OBJECT 1,2
DELETE OBJECT 2
ADD LIMB 1,9,1
ADD LIMB 1,10,1
DELETE MESH 1
OFFSET LIMB 1,9,0,-60,80
scale limb 1,9,100,1500,100
rotate limb 1,9,0,0,90
OFFSET LIMB 1,10,0,-60,-80
scale limb 1,10,100,1500,100
rotate limb 1,10,0,0,90
MAKE OBJECT cylinder 2,100
MAKE MESH FROM OBJECT 1,2
DELETE OBJECT 2
ADD LIMB 1,11,1
ADD LIMB 1,12,1
ADD LIMB 1,13,1
ADD LIMB 1,14,1
DELETE MESH 1
OFFSET LIMB 1,11,80,-60,80
scale limb 1,11,100,30,100
rotate limb 1,11,0,0,90
OFFSET LIMB 1,12,80,-60,-80
scale limb 1,12,100,30,100
rotate limb 1,12,0,0,90
OFFSET LIMB 1,13,-80,-60,80
scale limb 1,13,100,30,100
rotate limb 1,13,0,0,90
OFFSET LIMB 1,14,-80,-60,-80
scale limb 1,14,100,30,100
rotate limb 1,14,0,0,90
MAKE OBJECT SPHERE 2,100
MAKE MESH FROM OBJECT 1,2
DELETE OBJECT 2
ADD LIMB 1,15,1
ADD LIMB 1,16,1
ADD LIMB 1,17,1
ADD LIMB 1,18,1
ADD LIMB 1,19,1
ADD LIMB 1,20,1
ADD LIMB 1,21,1
ADD LIMB 1,22,1
DELETE MESH 1
OFFSET LIMB 1,15,90,-60,80
scale limb 1,15,1,100,100
OFFSET LIMB 1,16,70,-60,80
scale limb 1,16,1,100,100
OFFSET LIMB 1,17,-90,-60,80
scale limb 1,17,1,100,100
OFFSET LIMB 1,18,-70,-60,80
scale limb 1,18,1,100,100
OFFSET LIMB 1,19,90,-60,-80
scale limb 1,19,1,100,100
OFFSET LIMB 1,20,70,-60,-80
scale limb 1,20,1,100,100
OFFSET LIMB 1,21,-90,-60,-80
scale limb 1,21,1,100,100
OFFSET LIMB 1,22,-70,-60,-80
scale limb 1,22,1,100,100
MAKE OBJECT BOX 2,200,60,10
MAKE MESH FROM OBJECT 1,2
DELETE OBJECT 2
ADD LIMB 1,23,1
DELETE MESH 1
OFFSET LIMB 1,23,0,-40,145
for t=0 to 22
SET LIMB NORMALS 1,t
next
EndFunction
So after being unable to solve this I tried something similar and got a similar problem see below
LOAD IMAGE "camo1.BMP",1
rem make base
make object box 10000,1000,1000,2
position object 10000,0,0,50
TEXTURE OBJECT 10000,1
SCALE OBJECT TEXTURE 10000,20,20
make camera 1
rem make you
make object sphere 200,8
do
rem movement
inc y#,0.1
position object 200,x#,y#,40+z#
rem co-ords
ink 0,0
box 0,0,120,60
ink rgb(255,255,255),0
time$="time = "+(str$(time))
score$="score "+(str$(score))+" / "+(str$((gno+1)))
xy$=(str$(x#))+","+(str$(y#))+","+(str$(z#))
text 0,0,time$
text 0,20,score$
text 0,40,xy$
rem keeping camera on you
position camera 1,x#,y#-5,0
point camera 1,x#,y#,40
loop
Would be grateful to anyone who can help me out on this.
Tubeularcubeface
