SuperStrict

Const RaquetteLongueur:Int = 25
Const RaquetteLargeur:Int = 75
Const BalleDiametre:Int = 16

Global BallePositionX:Int = 0
Global BallePositionY:Int = 0
Global RaquetteGauchePositionY:Int = 0

Function CalculerRaquetteJoueur(PosY:Int)
	Local RaquettePos:Int = PosY - (RaquetteLargeur / 2 )
	Local RaquetteMin:Int = 0
	Local RaquetteMax:Int = GraphicsHeight() - RaquetteLargeur

	If RaquettePos < RaquetteMin Then
	RaquettePos = RaquetteMin
	ElseIf RaquettePos > RaquetteMax Then
	RaquettePos = RaquetteMax
	EndIf

	RaquetteGauchePositionY:Int = RaquettePos
EndFunction

Function DessinerRaquetteGauche()
	SetColor 192, 192, 192
	DrawRect 50, RaquetteGauchePositionY, RaquetteLongueur, RaquetteLargeur
EndFunction

Function CalculerBalle()

 	BallePositionX:+ 2
 	BallePositionY = GraphicsHeight() / 2
	Global BalleDirX:Int = BallePositionX
	If BallePositionX > 1000 Then
	BallePositionX:- 52
	EndIf

EndFunction




Function DessinerBalle()
	SetColor 0, 192, 255
	DrawOval BallePositionX, BallePositionY, BalleDiametre, BalleDiametre
EndFunction

Const TimeDelta:Float = 1 / 60.0
Global timeCurrent:Float = MilliSecs()

Function LOckFramerate()
	Local timeNew:Float = MilliSecs()
	Local frameTime:Float = timeNew - timeCurrent
	timeCurrent = timeNew

	While ( frameTime > 0.0 )
		Local delta:Float = Min(frameTime, timeDelta)
		frameTime:- delta
	Wend
EndFunction

AppTitle = "Pong!"
Graphics 1024, 768

While Not AppTerminate()
	Local SourisX:Int = MouseX()
	Local SourisY:Int = MouseY()
	HideMouse
	LockFramerate()
	CalculerRaquetteJoueur(SourisY)
	CalculerBalle()
	Cls
		DessinerRaquetteGauche()
		DessinerBalle()
		SetColor 255, 255, 255
		DrawText "X = " + SourisX + "Y = " + SourisY, 10, 10
	Flip
Wend