用C#写的祖玛游戏源代码
Dim Games As Integer的最大通关是10。
暗淡的颜色是球的颜色的整数倍。
Dimbs为整数的服务速度
暗淡的游戏运行作为布尔的游戏状态。
Dimscore作为整数的分数
2、程序初始化
私有子窗体_Load()
读取游戏关号，用VB的GetSetting函数从注册表中读取。
Games = GetSetting(App。EXEName，App。标题，“级别”，“1”)
Num = Pb。Width \ Balls1(0)。宽度+ 1
对于i = 1来说，Num '加载控件。
负载球1(i):负载球2(i)
然后
末端接头
3.初始化游戏，完成轨迹球的初始位置。
Sub InitGame()
使不规则化
Color = 3 +游戏\ 3
对于i = 0到Num '生成轨道弦球。
Balls1(i)。picture = image 1(Int(Rnd * Color))。画
如果我& gt0然后Balls1(i)。Left = Balls1(i - 1)。Left + Balls1(0)。宽度
Balls1(i)。可见=假
低轨道球的位置控制代码简介
然后
球。picture = image 1(Int(Rnd * Color))。画
球。visible = true s发球模式。
末端接头
4.游戏开始了
私有子命令1_Click()
调用InitGame
定时器1。启用=真
末端接头
5.轨道球运动
私有子定时器1_Timer()
注:球在较低轨道运动的代码略
如果Balls1(0)。Left & gt0和Balls2(0)。Left & gt那么0
移动速度Ms1控制，代码略
Balls1(0)。Left = Balls1(0)。左- Ms1
对于I = 1到num的其他球如下。
Balls1(i)。Left = Balls1(i - 1)。Left + Balls1(0)。宽度
然后
移到最左边。
停止游戏，处理失败。
如果…就会结束
末端接头
6.确定发球的水平位置
Private Sub Pb_MouseMove(Button，Shift，X，Y)
发出去的球，在锻炼时不处理。
如果定时器2。Enabled = True或定时器3。Enabled = True，然后退出Sub
根据鼠标位置确定发射的水平位置。
球。左= X球。宽度\ 2
越过比赛区域左边界的处理
如果球。Left & lt0然后球。左= 0
右边界的处理，代码略。
末端接头
7.发球控制
Private Sub Pb_MouseDown(按钮，Shift，X，Y)
根据鼠标位置决定发球方向
如果Y & lt= Pb。那么身高2
Md = -1 '以上
其他
Md = 1 '向下
如果…就会结束
根据鼠标到发球位置的距离，确定球的移动速度。
Bs = Abs(Y - Pb。高度\ 2) \ 15
如果GameRun = True，则
提升
如果Md = -1且定时器2。Enabled = False，则定时器2。启用=真
下移，代码缩写
如果…就会结束
末端接头
8.向上发球
私有子定时器2_Timer()
如果球。Top & gt行1。Y1然后上涨。
如果球。top-Bs & lt；= Line1。Y1然后'到顶部
暂停游戏，代码缩写
球。Top = Line1。Y1
K = -1 '来确定插入位置。
对于i = 0到Num
发球水平对称线
p =球。左+球。宽度\ 2
t判断是哪个球，条件轻微。
s在左边，有一点小状况。
K = i
其他
K = i + 1
如果…就会结束
为...退出
如果…就会结束
然后
如果K & gt= 0，则可能会发生冲突
产生声音效果
if Dir(" pop . wav ")& lt；& gt""然后sndPlaySound "pop.wav "，& ampH0或& ampH1
处于插入位置的球依次向后移动。
对于s = Num到K + 1步骤-1
Balls1(s)。图片= Balls1(s - 1)。画
然后
Balls1 (k)。图片=球。“图片”插入
求消失的左右位置V1，V2，代码略。
如果V2-v 1+1 & gt；有三个。
分数，代码缩写
间隙和加工结束，代码略
消失的球闪烁，代码缩写
消失连接球，代码缩写。
所有球退(V2-V1+1)球位，代码略。
向前填充，直到V1处的图像不为空。
而Balls1(V1)。Picture = LoadPicture(" ")
填写，代码缩写
行
如果…就会结束
如果…就会结束
继续游戏，代码略。
否则向上移动。
球。Top =球。顶- Bs
如果…就会结束
如果…就会结束
末端接头
9.发球向下移动
私有子定时器3_Timer()
代码缩写
末端接头