Microsoft Small Basic

Program Listing: VPX713

List Program

GraphicsWindow.Title="ラケットゲームver0.02 2011.12.22"
GraphicsWindow.BackgroundColor="#001100"
GraphicsWindow.FontSize=18 '777
'
Hajimari: '777
GraphicsWindow.Clear() '777
gw=GraphicsWindow.Width
gh=GraphicsWindow.Height
GraphicsWindow.BrushColor="Gold"
raketto=Shapes.AddRectangle(60,12)
ball=Shapes.AddEllipse(16,16)
GraphicsWindow.MouseMove=OnMouseMove
'
x=Math.GetRandomNumber(gw-16)
y=0
deltaX=1
deltaY=1
tenjyou=0 '777
tenjyouatumi=gh/10 '777
wait=5 '777
'
Loop:
x=x+deltaX
y=y+deltaY
'
If tenjyou>=gh-30 Then '777
Goto Hajimari '777
EndIf '777
'
If(x>gw-16 Or x<=0) Then
deltaX=-deltaX
EndIf
If(y<=tenjyou) Then
deltaY=-deltaY
EndIf
'
rakettoX=Shapes.GetLeft(raketto)
If(y=gh-28 And x>=rakettoX-12 And x<=rakettoX+56) Then '777
deltaY=-deltaY
tenjyouRakka() '777
Sound.PlayClick()
EndIf
'
Shapes.Move(ball,x,y)
Program.Delay(wait) '777
'
If(y Goto Loop
EndIf
'
GraphicsWindow.Clear() '7777
GraphicsWindow.DrawText(gw/2-50,gh/2-30,"Game Over!") '777
Sound.PlayChimes()
Program.Delay(2000) '777
Goto Hajimari '777
'
Sub OnMouseMove
rakettoX=GraphicsWindow.MouseX
Shapes.Move(raketto,rakettoX-60,gh-12)
EndSub
'
Sub TenjyouRakka '777
GraphicsWindow.BrushColor="Orange" '777
tenjyou=tenjyou+tenjyouatumi '777
GraphicsWindow.FillRectangle(0,0,gw,tenjyou) '777
EndSub '777