За дверью страшный Минотавр,
На топоре- Луна.
"Ах, Ватсон, всё элементар!..",
А дальше- тишина.
(с)Ариадна
Graphics3D 800,600,32,1
SetBuffer BackBuffer()
Cam=CreateCamera()
PositionEntity Cam,0,5,0
RotateEntity Cam,90,0,0
Camera=CreateCube()
EntityColor Camera,255,0,0
Weapon=CreateCube()
ScaleEntity Weapon,0.5,0.5,2
EntityColor Weapon,0,255,0
While Not KeyHit(1)
TurnEntity Camera,0,MouseXSpeed(),0
MoveMouse GraphicsWidth()*0.5,GraphicsHeight()*0.5
If KeyDown(57) Then TurnEntity Camera,2,0,0
;----HERE WE ARE!--------
;1: (simple and wrong)
;TurnEntity Weapon,0,(EntityYaw(Camera)-EntityYaw(Weapon))*0.1,0
;2: (simple and universal)
;RotateEntity Weapon,EntityPitch(Camera),EntityYaw(Weapon)+(EntityYaw(Camera)-EntityYaw(Weapon))*0.1,EntityRoll(Camera)
;3: (aesthethical) :)))
AlignToVector Weapon,Sin(-EntityYaw(Camera)),Sin(-EntityPitch(Camera)),Cos(-EntityYaw(Camera)),3,0.1
UpdateWorld()
RenderWorld()
*Text 10,10,"MOVE MOUSE TO TURN THE RED BOX LEFT-RIGHT."
*Text 10,20,"PRESS [SPACE] KEY TO TURN THE RED BOX DOWN.
*Text 10,30,"GREEN BOX WILL TURN, FOLLOWING THE RED BOX"
*Text 10,45,"PRESS [ESC] KEY TO CAST THE GREAT END-OF-WORLD SPELL."
Flip(1)
Wend
End