无聊，写了个Floppy bird，分享

没图可上，自己下来试，wvga
http://pan.baidu.com/s/1sjHajlb

平台 basic4ppc
控件
timer1 100ms 控制小鸟[球]
timer2 100ms 控制管道
timer3 50ms 监控状态
button1 命名RUN ,开始游戏
源码
Sub Globals
'Declare the global variables here.
Dim nx,ny,lx,ly,tmi,tm2i,tmy(1000)
Dim a1nx,a1ny,a2nx,a2ny,a3nx,a3ny
End Sub
Sub App_Start
Form1.Show
form1.Text="Floppy Birds WM"
End Sub
Sub Timer1_Tick
tmi=tmi+1
ny=ly+1/2*0.25*tmi^2
label1.Text=Format(ny,"n0") & "-" & tmy(tm2i)
form1.Circle(100,ly,5,cBlack,f)
form1.Circle(100,ny,5,cGreen,f)
ly=ny
End Sub
Sub Form1_MouseDown (x,y)
tmi=0
form1.Circle(100,ly,5,cBlack,f)
ly=ly-40
End Sub
Sub Timer2_Tick
form1.Line(a1nx,0,a1nx,a1ny-50,cBlack)
form1.Line(a1nx-20,a1ny-50,a1nx+20,a1ny-50,cBlack)
form1.Line(a1nx,800,a1nx,a1ny+50,cBlack)
form1.Line(a1nx-20,a1ny+50,a1nx+20,a1ny+50,cBlack)
a1nx=a1nx-10
form1.Line(a1nx,0,a1nx,a1ny-50,cRed)
form1.Line(a1nx-20,a1ny-50,a1nx+20,a1ny-50,cRed)
form1.Line(a1nx,800,a1nx,a1ny+50,cRed)
form1.Line(a1nx-20,a1ny+50,a1nx+20,a1ny+50,cRed)
form1.Line(a2nx,0,a2nx,a2ny-50,cBlack)
form1.Line(a2nx-20,a2ny-50,a2nx+20,a2ny-50,cBlack)
form1.Line(a2nx,800,a2nx,a2ny+50,cBlack)
form1.Line(a2nx-20,a2ny+50,a2nx+20,a2ny+50,cBlack)
a2nx=a2nx-10
form1.Line(a2nx,0,a2nx,a2ny-50,cRed)
form1.Line(a2nx-20,a2ny-50,a2nx+20,a2ny-50,cRed)
form1.Line(a2nx,800,a2nx,a2ny+50,cRed)
form1.Line(a2nx-20,a2ny+50,a2nx+20,a2ny+50,cRed)
form1.Line(a3nx,0,a3nx,a3ny-50,cBlack)
form1.Line(a3nx-20,a3ny-50,a3nx+20,a3ny-50,cBlack)
form1.Line(a3nx,800,a3nx,a3ny+50,cBlack)
form1.Line(a3nx-20,a3ny+50,a3nx+20,a3ny+50,cBlack)
a3nx=a3nx-10
form1.Line(a3nx,0,a3nx,a3ny-50,cRed)
form1.Line(a3nx-20,a3ny-50,a3nx+20,a3ny-50,cRed)
form1.Line(a3nx,800,a3nx,a3ny+50,cRed)
form1.Line(a3nx-20,a3ny+50,a3nx+20,a3ny+50,cRed)
If a1nx<0 Then
a1nx=a2nx
a1ny=a2ny
a2nx=a3nx
a2ny=a3ny
a3nx=600
tm2i=tm2i+1
a3ny=tmy(tm2i)
End If
If a1nx=100 Then
label2.Text=label2.Text+1
End If
End Sub
Sub Timer3_Tick
If a1nx>=75 AND a1nx<=125 AND tm2i>2 Then
If ny<= a1ny-45 OR ny>=a1ny+45 Then
timer1.Enabled=False
timer2.Enabled=False
timer3.Enabled=False
Msgbox("GG")
button1.Visible=True
End If
End If
End Sub
Sub Button1_Click
label2.Text=0
form1.Circle(240,400,500,cBlack,f)
button1.Visible=False
lx=0
ly=350
tmi=0
timer1.Enabled=True
Dim i,m
i=0
tmy(0)=Rnd(200,600)
Do Until i=999
m=Rnd(200,600)
If Abs(tmy(i)-m)<=250 Then
i=i+1
tmy(i)=m
End If
Loop
tm2i=2
a1ny=tmy(0)
a2ny=tmy(1)
a3ny=tmy(2)
a1nx=100
a2nx=300
a3nx=500
timer2.Enabled=True
timer3.Enabled=True
End Sub