Как мне сделать чтобы при нажатии левой кнопки мыши по квадрату он начинал движение сначала ?
У меня только получилось при наведении мышки на ось по которой он движется он начинал движение сначала...
Код:
#Sprite = 0
If InitSprite() = 0
EndIf
If OpenWindow(#Sprite, 0, 0, 220, 300, "Game", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If OpenWindowedScreen(WindowID(0), 0, 0, 220, 300, 0, 0, 0)
CreateSprite(#Sprite, 20, 20)
If StartDrawing(SpriteOutput(0))
Box(0, 0, 20, 20, RGB(255, 255, 100))
StopDrawing()
EndIf
EndIf
EndIf
direction = 1
Repeat
Event = WindowEvent()
FlipBuffers()
ClearScreen(RGB(200, 200, 200))
DisplaySprite(#Sprite, x, y)
y + direction
If y < 0 : direction = -1 : EndIf
If y=WindowMouseY (0)
x=WindowMouseX (0)
y = 0
x = Random(200)
EndIf
If y > 280
MessageRequester ("Сообщение", "Вы проиграли")
End
EndIf
Until Event = #PB_Event_CloseWindow