Beim mir hat die Funktion
KeyboardReleased(#PB_Key_Y)
KeyboardPushed(#PB_Key_Y)
keine Auswirkung
PB Version 4.02
Code: Alles auswählen
Enumeration
#Sprite2D
#Sprite3D
EndEnumeration
InitSprite()
InitSprite3D()
InitKeyboard()
OpenScreen(800,600,16,"DX_Transformsprite3D")
UsePNGImageDecoder()
LoadSprite(#Sprite2D,"..\data\whitewolf\dawnducksplash_small.png",#PB_Sprite_Texture )
CreateSprite3D(#Sprite3D,#Sprite2D)
x1.l=100
x2.l=500
x4.l=100
x3.l=500
Repeat
ClearScreen($402040)
Start3D()
TransformSprite3D(#Sprite3D,x1,100,#PB_Any,x2,100,#PB_Any,x3,500,#PB_Any,x4,500,#PB_Any)
DisplaySprite3D(#Sprite3D,100,0)
Stop3D()
FlipBuffers(0)
Delay(1)
ExamineKeyboard()
If KeyboardReleased(#PB_Key_A):x1+5:EndIf
If KeyboardReleased(#PB_Key_Y):x1-5:EndIf ;/ Taste hat keine Funktion!
If KeyboardReleased(#PB_Key_S):x2+5:EndIf
If KeyboardReleased(#PB_Key_X):x2-5:EndIf
If KeyboardReleased(#PB_Key_D):x4+5:EndIf
If KeyboardReleased(#PB_Key_C):x4-5:EndIf
If KeyboardReleased(#PB_Key_F):x3+5:EndIf
If KeyboardReleased(#PB_Key_V):x3-5:EndIf
Until KeyboardPushed(#PB_Key_Escape)
End