Microsoft Small Basic

Program Listing: PTG450

List Program

GraphicsWindow.Title="ロケット自由自在 2011.12.28"
GraphicsWindow.BackgroundColor="Black"
'
gw=GraphicsWindow.Width
gh=GraphicsWindow.Height
GraphicsWindow.BrushColor="LightSkyBlue"
rbody=Shapes.AddRectangle(22,22)
rtop=Shapes.AddTriangle(0,20,8,0,16,20)
rwing=Shapes.AddTriangle(0,25,15,0,30,25)
rpit=Shapes.AddEllipse(8,15)
GraphicsWindow.MouseMove=OnMouseMove
Sub OnMouseMove
rokettoX=GraphicsWindow.MouseX
Shapes.Move(rtop,rokettoX-7,gh-40)
Shapes.Move(rwing,rokettoX-14,gh-28)
Shapes.Move(rbody,rokettoX-10,gh-25)
Shapes.Move(rpit,rokettoX-3,gh-19)
EndSub