Problem SmallBasic
Postano: 14 kol 2009, 10:54
bok..poceo sam izrađivati u small basicu jednu igicu sa loptom...i naisao sam na gresku..bez te komadne igrica nebude kako treba..slova koja su bodebljanu za to mi javlja gresku..mi moze ko pomoci...hitno
evo code:
GraphicsWindow.BackgroundColor="DarkBlue"
paddle = Shapes.AddRectangle(120, 12)
ball = Shapes.AddEllipse(16, 16)
GraphicsWindow.MouseMove = OnMouseMove
x = 0
y = 0
deltaX = 1
deltaY = 1
RunLoop:
x = x + deltaX
y = y + deltaY
gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
If(x>=gw - 16 Or x<=0) Then
deltaX = -deltaX
EndIf
If (y<=0)Then
deltaY = -deltaY
EndIf
padX = Shapes.GetLeft (paddle)
If(y = gh - 28 And x>=padX And x<=padX + 120)Then
deltaY = -deltaY
EndIf
Shapes.Move(ball, x, y)
Program.Delay(5)
If (y <gh) Then
Goto RunLoop
EndIf
GraphicsWindow.ShowMessage("You Lose", "Paddle")
Sub OnMouseMove
paddleX = GraphicsWindow.MouseX
Shapes.Move(paddle, paddleX -60, GraphicsWindow.Height - 10)
EndSub
evo code:
GraphicsWindow.BackgroundColor="DarkBlue"
paddle = Shapes.AddRectangle(120, 12)
ball = Shapes.AddEllipse(16, 16)
GraphicsWindow.MouseMove = OnMouseMove
x = 0
y = 0
deltaX = 1
deltaY = 1
RunLoop:
x = x + deltaX
y = y + deltaY
gw = GraphicsWindow.Width
gh = GraphicsWindow.Height
If(x>=gw - 16 Or x<=0) Then
deltaX = -deltaX
EndIf
If (y<=0)Then
deltaY = -deltaY
EndIf
padX = Shapes.GetLeft (paddle)
If(y = gh - 28 And x>=padX And x<=padX + 120)Then
deltaY = -deltaY
EndIf
Shapes.Move(ball, x, y)
Program.Delay(5)
If (y <gh) Then
Goto RunLoop
EndIf
GraphicsWindow.ShowMessage("You Lose", "Paddle")
Sub OnMouseMove
paddleX = GraphicsWindow.MouseX
Shapes.Move(paddle, paddleX -60, GraphicsWindow.Height - 10)
EndSub