小小的基本復位形狀位置離開屏幕後

Question

請大家幫忙!!!!

我在與小的基本

我想作一個小遊戲，一個不明飛行物必須避免小行星有點問題，和我做了一個小行星和動畫，然後我想讓其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) 

而且你需要檢查在一個循環，如果它要走動。