Animating Doors and similar

Blitz3D Forums/Blitz3D Programming/Animating Doors and similar

was thinking that would be more coding than animated, but after finishing the code for doors i doubt it:)

; ****mouse open closes church door *****
MouseLeft = MouseHit(1)
If MouseLeft And CameraPick( Camera , MouseX(), MouseY() ) = doorchurch
   If opening = False And open = False And EntityDistance( playerbox , doorchurch ) < 15.01
     seq = 1 : doordelaytime = Millisecs()
     Animate doorchurch, 3, 0.2, seq, 10
     opening = true : open = False
   EndIf
EndIf
If MouseLeft And CameraPick( Camera , MouseX(), MouseY() ) = sparedoorCh
   If opening = False And Open = True And EntityDistance( playerbox , sparedoorch ) < 15.01
     ShowEntity doorchurch : HideEntity sparedoorCh
     seq = 2 : Animate doorchurch, 3, 0.2, seq, 10 : open = False : opening = False
   EndIf
EndIf
;makes sure animation has finished before allowing another action
if Animating(doorchurch) = False And opening = True
   HideEntity doorchurch : ShowEntity sparedoorCh
   opening = False : open = True
endif
if Animating(doorchurch) = False And opening = False And Open = True And Millisecs() > (doordelaytime + dooropenfor)
   ShowEntity doorchurch : HideEntity sparedoorCh 
   open = False : seq = 2 : Animate doorchurch, 3, 0.2, seq, 10
endif


i notice when rotating they turn on centre axis, can that be set so it turns on an edge (like a door)?