smallbasic - 离开屏幕后的小基本重置形状位置

Question

请帮忙！！！！

我对小基本有一点问题

我想制作一个小游戏，让 ufo 必须避开小行星，我制作了一个小行星并为其设置动画，然后我想让它的 y 位置回到 0，当它通过屏幕时......

meteimg = "C:\Users\user\Desktop\meteo.png"
meteorite = Shapes.AddImage(meteimg)

meteoriteX = Math.GetRandomNumber(GraphicsWindow.Width)
Shapes.Move(meteorite, meteoriteX, 0)
Shapes.Animate(meteorite, meteoriteX, GraphicsWindow.Height,Math.GetRandomNumber(2000))

然后我应该添加类似

if meteorite's y position > graphicsWindow.height then
shapes.move(meteorite, meteoriteX, 0)
endif

Answer 1

你不应该为此使用shapes.animate。您无法在物体移动时获得物体的位置。这是 astroids 的一些代码：

NumAstroids = 10
For i = 1 To NumAstroids
Astroid[i] = Shapes.AddEllipse(20,20)
AstroidX[i] = Math.GetRandomNumber(GraphicsWindow.Width-20)
AstroidY[i] = -Math.GetRandomNumber(GraphicsWindow.Height)
AstroidSpeed[i] = Math.GetRandomNumber(4) + 1 '<- Min speed is 1
EndFor

While 1 = 1
Program.Delay(10)
For i = 1 To NumAstroids
Shapes.Move(Astroid[i],AstroidX[i],AstroidY[i])
AstroidY[i] = AstroidY[i] + AstroidSpeed[i]
 If AstroidY[i] > GraphicsWindow.Height Then
  AstroidX[i] = Math.GetRandomNumber(GraphicsWindow.Width-20)
  AstroidY[i] = -Math.GetRandomNumber(50)-20
  AstroidSpeed[i] = Math.GetRandomNumber(4) + 1 '<- Min speed is 1
 EndIf
EndFor
EndWhile

Answer 2

meteorite's y position

据我所知等于

Shapes.GetTop(meteorite)

如果它要四处移动，您需要循环检查它。