平台接力游戏【VFB源码】

一个VFB写的小游戏，

鼠标左键给小球撘桥，按下时间越长，这小桥越长。

游戏失败，点右键，重新开始。

源码下载：Basic语言编程群 78458582 进QQ群后，在群共享里下载。

#define Yes                   1
#define No                      0

' COLORS
#define colPlatForm         RGB(50,50,50)
#define colPlatFormTop         RGB(250,200,0)
#define colWater            RGB(100,100,200)
#define colWaterTop          RGB(255,255,255)
#define colSky            RGB(180,200,250)
#define colStick            colPlatFormTop   'RGB(0,0,250)
#define colPlayerCircle         RGB(250,50,150)
#define colPlayerCircleBorder RGB(250,250,250)

' MOUSE BUTTOMS
#define LeftButton             1
#define RightButton             2

' PLATFORM, WATER, ETC POSITIONS AND DIMENSIONS
#define PlatformHeight         200
#define PlatformTop             480 - 200      ' Y-Screen Coordinte
#define PlatformBottom          480            ' Y-Screen Coordinte
#define FirstPlatformLeft      0                ' 50  ' correction required
#define WaterTop               480 - 30         ' Y-Screen Coordinte
#define UnitWidth