Ich brauche eure Hilfe. Ich habe ein Screen und ein Sprite und möchte mein Sprite zoomen. Das klappt auch. Aber ich möchte dass er mittig zoomt.
Mein Code
Code: Alles auswählen
Define MainX = 100
Define MainY = 100
Define X
Define Y
InitSprite()
InitKeyboard()
LoadFont(1, "Arial", 10)
If OpenScreen(1920, 1080, 32, "")
SetFrameRate(60)
CreateSprite(1, 5000, 500)
If StartDrawing(SpriteOutput(1))
For X=0 To SpriteWidth(1)
If X % 50 = 0
DrawText(MainX+X, MainY+60, Str(X/50), RGB(255, 255, 255))
EndIf
Next
StopDrawing()
EndIf
Repeat
FlipBuffers()
ClearScreen(RGB(0, 0, 0))
DisplaySprite(1, MainX, MainY)
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Left)
MainX+10
EndIf
If KeyboardPushed(#PB_Key_Right)
MainX-10
EndIf
If KeyboardPushed(#PB_Key_Up)
;MainX-5 ; <<< reicht nicht aus, irgendeine Berechnungsformel brauche ich
ZoomSprite(1, SpriteWidth(1)+20, SpriteHeight(1)+2)
EndIf
If KeyboardPushed(#PB_Key_Down)
;MainX+5 ; <<< reicht nicht aus, irgendeine Berechnungsformel brauche ich
ZoomSprite(1, SpriteWidth(1)-20, SpriteHeight(1)-2)
EndIf
Until KeyboardReleased(#PB_Key_Escape)
EndIf