Lihtne mouselook

;VIDEO MODE
Graphics3D 800,600
SetBuffer BackBuffer()

;ÜLDINE KAAMERA
Global cam_pivot = CreatePivot()
Global cam_pivot2 = CreatePivot(cam_pivot)
Global camera = CreateCamera(cam_pivot2);teevad kaamera

;OBJECTID
light=CreateLight();tekitab lihtsa valguse.
cube=CreateCube();tekitab kasti, selle võite ära võtta ja mõne teise objecti tekitada.
PositionEntity cube,0,0,10;annab kastile koordinaadid.

;FUNKTSIOONID
Function MouseLook()
x_speed# = x_speed * 0.2 + MouseXSpeed() * 0.2
y_speed# = y_speed * 0.2 + MouseYSpeed() * 0.2 ;ülesalla vaatamine hiirega(võite selle rea maha kustutada, kui ei taha üles ja alla vaadet.)
z_speed# = z_speed * 0.2 + MouseZSpeed() * 0.2

MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

TurnEntity cam_pivot,0,-x_speed,0
TurnEntity cam_pivot2,y_speed,0,0
End Function
Function MoveKeys()
If KeyDown(200) ;üles klahv-liigub otse
MoveEntity cam_pivot,0,0,0.5
End If
If KeyDown(208) ;alumine nooleklahv-liigub taha
MoveEntity cam_pivot,0,0,-0.5
End If
If KeyDown(203) ;vasak-liigub vasakule
MoveEntity cam_pivot,-0.5,0,0
End If
If KeyDown(205) ;parem-liigub paremale
MoveEntity cam_pivot,0.5,0,0
End If
If KeyDown(30) ;Kui üles klahv on alla vajutatud...
MoveEntity cam_pivot,0,0.5,0
End If
If KeyDown(44) ;Sama mis eelmine ainult alla klahviga
MoveEntity cam_pivot,0,-0.5,0
End If
End Function

;MAIN GAME LOOP
While Not KeyHit(1)

MouseLook()
MoveKeys()

UpdateWorld
RenderWorld

Text 1,1,"Programmi tekst"

Flip
Wend

End

hmm, algeline ja hea, aga ma tegin nii:
mx#=CurveValue(MouseXSpeed()*mousespeed,mx,camerasmoothness)
my#=CurveValue(MouseYSpeed()*mousespeed,my,camerasmoothness)
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
pitch#=EntityPitch(silmad) yaw#=EntityYaw(silmad)
pitch=pitch+my yaw=yaw-mx
If pitch>89 pitch=89
If pitch<-89 pitch=-89
RotateEntity silmad,0,yaw,0
TurnEntity silmad,pitch,0,0
see pole kogu kood, aga jah.

NoBaT kirjutas:

hmm, algeline ja hea, aga ma tegin nii:
mx#=CurveValue(MouseXSpeed()*mousespeed,mx,camerasmoothness)
my#=CurveValue(MouseYSpeed()*mousespeed,my,camerasmoothness)
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
pitch#=EntityPitch(silmad) yaw#=EntityYaw(silmad)
pitch=pitch+my yaw=yaw-mx
If pitch>89 pitch=89
If pitch<-89 pitch=-89
RotateEntity silmad,0,yaw,0
TurnEntity silmad,pitch,0,0
see pole kogu kood, aga jah.

sul natuke raskemalt. Mu oma on algajatel parem mõista. A N0bat. kuidas ma ekraanil hiirenähtamatuks teen?

Woohooo Nüüd näeb hiireega tervet maailma... Jamh Mouselook on tore asi

Esimene kirjutas:

Woohooo Nüüd näeb hiireega tervet maailma... Jamh Mouselook on tore asi

Aga ainult enda virtuaalmaailma.

Üks asi veel... Kas see mitte tagurpidi nats pole... Kui ma vajutan edasi noolt läheb ta tagasi ja vastupidi

irw, muuda klahvid ära lihtsalt:)

Proovsin aga siis läks maja metsa

Esimene kirjutas:

Proovsin aga siis läks maja metsa

see on su enda koodi viga.