吃豆子游戏详解五.doc

吃豆子游戏详解五 游戏背景： 冰淇淋大游行 凯蒂拉着小车在冷饮店买了一小桶冰淇淋。 回家的路上，一块石头把小车绊了一下，小车一晃，小桶倒了，冰淇淋一点一点地化了，流到地上，可凯蒂一点儿也不知道。 几只小猫闻到了冰淇淋的香味，就跑来跟在小车的后面舔呀舔。一只大狗看见了，也跑过来，跟在小猫的后面舔呀舔。一个骑马的女孩对身边牵卷毛狗的男孩说：“多有趣的游行呀，我们也参加吧！” 队伍越排越长，许多人都加入了队伍。一个手风琴手也加入了，还带着他那会跳舞的小猴子。手风琴手一边走，一边拉着欢快的曲子。 凯蒂这时才发现，自己身后排了一长长的动物和人，她开心极了！大家都随着乐曲的节拍走起来，一二、一二...... 　　家门口到了。“啪嗒！”最后一滴冰淇淋滴完了。大家都舍不得散开，就在一起开了一个盛大的联欢会，唱啊，跳啊，笑啊...... 这是多么难忘的一天，这是一次多么愉快的冰淇淋大游行啊！ 人物的排队顺序为：凯蒂，一小桶冰淇淋、 几只小猫、一只大狗、一个骑马的女孩、牵卷毛狗的男孩、又加入了一些人、一个手风琴手、会跳舞的小猴子 太复杂了，到哪找这么多人物的图片呀 ，我就把四个幽灵排成一排就可以了吧！！ 小游戏的名称为：幽灵排队 先打开上一次写的吃豆子游戏详解四这个教程，在吃豆子游戏详解四中，主要讲用键盘的上下左右键来控制一个大嘴怪上下左右行走的游戏，这一次，当然又复杂一些，大嘴怪换成了幽灵，而且是四个“幽灵”排队一齐走。我一开始，按照吃豆子游戏详解四中的代码改编，再加入了贪吃蛇的代码，其实，我觉得本来也不应该太难，因为，本身在吃豆子的游戏中是四个幽灵追着大嘴怪走，他们本来都会走的，所以说应当说排队走还是更简单的一些吧。 在吃豆子的游戏中有一个变量组是Ghost(nLoop)，nLoop分别为1、2、3、4，他也是一个变量，代表着四个幽灵的属性，里面包括着：Xpos，Ypos，即幽灵在图片控件pctScreen中的位置，直白的说，就象X、Y坐标一样，另外对于打头的一个幽灵来说，只有打头的幽灵是用键盘控制的，有一个方向的变量，即Direction，其他的幽灵只需跟着第一个幽灵走就可以了，无需方向变量。这就有些象贪吃蛇的代码那样，即第一个幽灵向前（后、左右）走一步，他原来的位置给第二个幽灵用，再把第二个幽灵的旧坐标给第三个幽灵用，以些类推……变量组Ghost(nLoop)对应的是一个类似于在图片控件中的位置的控件组Sprite(nLoop)，在Sprite(nLoop)变量组中，表示旧位置的变量为OXpos ，OYpos、表示新位置的变量为NXpos、NYpos，另外这个幽灵我们是把他从pctTiles图片控件中提取出来放入到pctScreen图片控件中的，还需要有一组表示图片在pctTiles中的位置的变量，XSprite、YSprite，有这一组坐标我们才能从pctTiles这个图片控件是找到提取幽灵的位置，顺便说一下，提取的幽灵实际上是一个长和宽都为32像素的一个小正方形，因为在pctTiles这个图片控件是，他右边还有一些表示幽灵形状的黑白图像，用他就可以把幽灵图片中幽灵轮廓线以外的黑色变为透明色，所以我们看的幽灵都不像是一个图片而可以是任意的形状。 第二部分：游戏控件 从上图可以看出，这些控件包括菜单在内和吃豆子游戏详解四完全一样，如果图省事的话，只需将代码改一下就可以了，原来的代码删除，换成新的代码就可以了 控件为Form1窗体，将属性中的ScaleMode改为3-pixel，因为幽灵可是32，32像素，如果不是，幽灵就无法正常显示，Form1中包含三个图片控件，名称分别为：pctScreen、 pctBack和 pctTiles，pctBack宽度和幽灵的宽度一样，也为32像素。他把pctScreen图片中幽灵所在位置的背景图片复制到图片控件pctBack中，这样当幽灵离开这个位置时，又可以复制回去。要不然，幽灵每走一步，屏幕上就会多出一个幽灵来，最后会有许多幽灵在pctScreen上，因为贪吃蛇用的是Shape这个形状控件，所以他移动时不会在原来的位置上留下痕迹。这是我费了很长时间才得出来的结论。最后别忘了加一个时钟控件，属性不用改。 pctScreen图片控件的picture属性为下图： pctTiles图片控件的picture属性为下图 第三部分：游戏代码 Form1窗体代码： Private Sub exit_Click() Timer1.Interval = 0 End Sub Private Sub Form_Load() Form1.Show DoEvents YD(0) = -1 YD(1) = 1 XD(2) = -1 XD(3) = 1 OffDir(0) = -1 OffDir(1) = 1 OffDir(2)