hi, here's my source
Sync On : Sync Rate 0
Do
if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
If Button(20,135,"Exit")=1 then End
sync
loop
New_Game:
sync
cls
Repeat
Text 240,220,"Get Ready to Play";
sync
Until scancode()>0
load object "media\template body 2.x",1
make matrix 1,200,200,5,5
Position Matrix 1,-100,0,-100
load object "media\alien.x",2
loop object 2
movespeed = 75
turnspeed = 87.5
time=timer()
Ang# = 270
CamYPos# = 130
Do
gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)
If Upkey()=1
Move Object 1,MSframe#
endif
If Downkey()=1
Move Object 1,-MSframe#
endif
If Leftkey()=1
Dec a#,TSframe#
endif
If Rightkey()=1
Inc a#,TSframe#
endif
yrotate object 1,a#
posy#=object position y(1)
posx#=cos(Ang#-a#) * 90 + object position x(1)
posz#=sin(Ang#-a#) * 90 + object position z(1)
Position Camera posx#,object position y(1)+CamYPos#,posz#
Point Camera object position x(1),object position y(1),object position z(1)
inc CamDist#, MouseMoveZ()/5
if CamDist# < -80 then CamDist# = -80
if CamDist# > 60 then CamDist# = 60
move camera CamDist#
if MouseClick()=4
CamYPosOld# = CamYPos#
dec CamYPos#, MouseMoveY()/5
if CamYPos# < 15 or CamYPos# > 400
CamYPos# = CamYPosOld#
endif
endif
Ang# = Wrapvalue(Ang#)
time=timer()
set cursor 0,0
print mousemovey()
print mousemovex()
sync
Loop
end
function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed
Ok, now the model "alien" is animated, and the second it is loaded the whole trhing just crashes, any model I load that has the possibilty to animate just crashes, why?
My site: www.skyknight.co.uk
