基于VB6.0射击游戏的实现
随着计算机技术的进步，计算机游戏也越来越普及，很多喜爱程序开发的读者朋友都向往游戏编程，但往往又觉得游戏编程序很复杂，高深莫测。诚然，象"帝国时代"、"反恐精英"这样的大型游戏需要写很复杂的程序来实现一些令人"头昏"的算法，需要熟悉DirectX开发知识。但是，对于一般的开发人员，完全可以利用所学的知识开发一些小的游戏，达到自娱自乐的目的。
本文介绍如何在VisualBasic6.0环境下开发射击小游戏，通过实现该小游戏可以帮助一些VisualBasic初学者加深对VisualBasic编程知识的理解，同时它也可以开拓初、中级开发爱好者的编程思路。该射击小游戏程序编译运行后的界面效果如图一所示：
在射击游戏中，安排了两个角色，相互之间可以开枪进行对射，同时为了丰富游戏的功能，游戏的场景中添加定时移动的仙人掌，为射击的双方角色提供保护功能。当其中一个角色中弹后，游戏终止，同时游戏人物角色的图标变更，表示角色死亡。为了实现上述的游戏，最初要作的是设计程序界面，按照游戏的需求，首先生成一个VB应用程序，在Form1上添加一个开始按钮btnStart，一个名为picDesert的Picture控件，该控件用来做为游戏的场景和其它控件的容器，在该控件上添加六个Image控件，分别用来显示游戏的角色、两个移动的仙人掌、分别向右、向左呼啸射击的子弹以及标志角色死亡的图标，它们的图象分别如下：
游戏角色
仙人掌
呼啸的子弹
角色击中标志
为了使程序中的仙人掌、游戏角色和射击时发射的子弹可以移动，需要向项目中添加定时器tmrMouseCnt和Timer1，在这两个定时响应函数中完成不同对象的移动功能。在游戏运行后，为了使用户可以通过键盘和鼠标来操作游戏的角色，实现射击的功能，需要添加鼠标消息和键盘消息处理函数。例如，对于角色1来说，可以通过上下键来移动，空格键来射击，对于角色2来说，鼠标左右键控制移动，双击实现射击。在射击过程中，要处理两个细节，一个细节是子弹与仙人掌及角色的区域重叠问题，当子弹与仙人掌重叠时让子弹隐藏起来，与角色重叠时表示击中目标，游戏结束。这里需要判断何时两个区域有重叠，解决这个问题的方法是使用API函数IntersectRect，用它来判断两个区域是否有重叠。另一个细节是子弹射击过程中需要添加"呼啸"的声音和击中目标时添加人物惨叫的声音，来达到逼真的效果，为了实现这个功能，需要向程序中添加语音文件（程序中的语音文件分别为：BANG.WAV和OH！！.WAV），然后通过API函数sndPlaySound来实现。另外，在对象移动的过程中，需要注意移动到边缘位置的情况处理。程序的具体实现代码如下：SHOOTOUT.BASOptionExplicit'DatatyperequiredbytheIntersectRectfunctionTypetRectLeftAsLongTopAsLongRightAsLongBottomAsLongEndType'WindowsAPIrectanglefunctionsDeclareFunctionIntersectRectLib"user32"(lpDestRectAstRect,lpSrc1RectAstRect,lpSrc2RectAstRect)AsLong'Functionsandconstantsusedtoplaysounds.DeclareFunctionsndPlaySoundLib"winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLong'ConstantusedwithsndPlaySoundfunctionGlobalConstSND_ASYNC=&H1'----------------------------------------------------------'SHOOTOUT.FRMOptionExplicit'KeyCodesforkeyboardaction.ConstKEY_SPACE=&H20ConstKEY_UP=&H26ConstKEY_DOWN=&H28'NumberofTwipstomoveplayeroneachkeyormouseevent.ConstPlayerIncrement=45'Constantsformouseaction.ConstNO_BUTTON=0ConstLBUTTON=1ConstRBUTTON=2'Booleanthatindicatesifmousebuttonhasbeenpresseddown.DimMouseButtonDownAsInteger'Numberofbulletseitherplayercanhaveinuseatonetime.ConstNUM_BULLETS=6'Booleansindicatingifplayer0orplayer1havejustfired.DimGunFired(0To1)AsInteger
'Startthegamebyenablingthemaintimerandhidingthestartbutton.PrivateSubbtnStart_Click()Timer1.Enabled=TruebtnStart.Visible=FalseEndSub
'CheckifthetwoImagesintersect,usingtheIntersectRectAPIcall.PrivateFunctionCollided(imgAAsImage,imgBAsImage)AsIntegerDimAAstRectDimBAstRectDimResultRectAstRect'CopyinformationintotRectstructureA.Left=imgA.LeftA.Top=imgA.TopB.Left=imgB.LeftB.Top=imgB.Top'CalculatetherightandbottomsofrectanglesneededbytheAPIcall.A.Right=A.Left imgA.Width-1A.Bottom=A.Top imgA.Height-1B.Right=B.Left imgB.Width-1B.Bottom=B.Top imgB.Height-1'IntersectRectwillonlyreturn0(false)ifthe'tworectanglesdoNOTintersect.Collided=IntersectRect(ResultRect,A,B)EndFunction
'Double-clickingthemousefiresPlayer1'sgun.PrivateSubForm_DblClick()DimrcAsIntegerIfNotTimer1.EnabledThenExitSubGunFired(1)=Truerc=sndPlaySound(App.Path&"\BANG.WAV",SND_ASYNC)EndSub
'ThiseventhandlesPlayer0'sgameactionviathekeyboard.PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)DimrcAsIntegerStaticInKeyDownAsIntegerIfNotTimer1.EnabledThenExitSubIfInKeyDownThenExitSubInKeyDown=TrueDoEventsSelectCaseKeyCodeCaseKEY_UPimgPlayer(0).Top=imgPlayer(0).Top-PlayerIncrementIfimgPlayer(0).Top<0ThenimgPlayer(0).Top=0CaseKEY_SPACEGunFired(0)=Truerc=sndPlaySound(App.Path&"\BANG.WAV",SND_ASYNC)CaseKEY_DOWNimgPlayer(0).Top=imgPlayer(0).Top PlayerIncrementIfimgPlayer(0).Top>(picDesert.ScaleHeight-imgPlayer(0).Height)ThenimgPlayer(0).Top=picDesert.ScaleHeight-imgPlayer(0).HeightEndIfEndSelectInKeyDown=FalseEndSub
PrivateSubForm_Load()DimiAsIntegerTimer1.Interval=22Timer1.Enabled=FalseMouseButtonDown=NO_BUTTONFori=1ToNUM_BULLETS-1LoadimgLBullet(i)LoadimgRBullet(i)NextEndSub
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)MouseButtonDown=ButtonEndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)MouseButtonDown=NO_BUTTONEndSub
'Themaingametimer.PrivateSubTimer1_Timer()ConstCactusIncrement=30ConstBulletIncrement=300ConstNumCacti=2
DimiAsIntegerDimrcAsInteger'Movetherovingcacti.Fori=0ToNumCacti-1imgCactus(i).Top=imgCactus(i).Top-CactusIncrementIfimgCactus(i).Top<-imgCactus(i).HeightThenimgCactus(i).Top=picDesert.HeightEndIfNext'Didplayer0fireabullet?IfGunFired(0)ThenGunFired(0)=False'Findaspare(invisible)bullet.Fori=0ToNUM_BULLETS-1IfNotimgLBullet(i).VisibleThenimgLBullet(i).Top=imgPlayer(0).TopimgLBullet(i).Left=imgPlayer(0).Left (imgPlayer(0).Width/2)imgLBullet(i).Visible=TrueExitForEndIfNextEndIf'Didplayer1fireabullet?IfGunFired(1)ThenGunFired(1)=False'Findaspare(invisible)bullet.Fori=0ToNUM_BULLETS-1IfNotimgRBullet(i).VisibleThenimgRBullet(i).Top=imgPlayer(1).TopimgRBullet(i).Left=imgPlayer(1).Left-(imgPlayer(1).Width/2)imgRBullet(i).Visible=TrueExitForEndIfNextEndIf'MoveVisibleBulletsFori=0ToNUM_BULLETS-1'Moveplayer0'sbullets.IfimgLBullet(i).VisibleThenimgLBullet(i).Left=imgLBullet(i).Left BulletIncrementIfCollided(imgLBullet(i),imgCactus(0))ThenimgLBullet(i).Visible=FalseElseIfCollided(imgLBullet(i),imgCactus(1))ThenimgLBullet(i).Visible=FalseElseIfimgLBullet(i).Left>picDesert.ScaleWidthThenimgLBullet(i).Visible=FalseElseIfCollided(imgLBullet(i),imgPlayer(1))ThenimgLBullet(i).Visible=FalseimgPlayer(1).Picture=imgRIP.PictureTimer1.Enabled=Falserc=sndPlaySound(App.Path&"\OH!!.WAV",SND_ASYNC)EndIfEndIf'Moveplayer1'sbullets.IfimgRBullet(i).VisibleThenimgRBullet(i).Left=imgRBullet(i).Left-BulletIncrementIfCollided(imgRBullet(i),imgCactus(0))ThenimgRBullet(i).Visible=FalseElseIfCollided(imgRBullet(i),imgCactus(1))ThenimgRBullet(i).Visible=FalseElseIfimgRBullet(i).Left<-imgRBullet(i).WidthThenimgRBullet(i).Visible=FalseElseIfCollided(imgRBullet(i),imgPlayer(0))ThenimgRBullet(i).Visible=FalseimgPlayer(0).Picture=imgRIP.PictureTimer1.Enabled=Falserc=sndPlaySound(App.Path&"\OH!!.WAV",SND_ASYNC)EndIfEndIfNextEndSub
'HandlePlayer1'smovement(upanddown).PrivateSubtmrMouseCntl_Timer()IfNotTimer1.EnabledThenExitSubSelectCaseMouseButtonDownCaseRBUTTONimgPlayer(1).Top=imgPlayer(1).Top-PlayerIncrementIfimgPlayer(1).Top<0ThenimgPlayer(1).Top=0CaseLBUTTONimgPlayer(1).Top=imgPlayer(1).Top PlayerIncrementIfimgPlayer(1).Top>(picDesert.ScaleHeight-imgPlayer(1).Height)ThenimgPlayer(1).Top=picDesert.ScaleHeight-imgPlayer(1).HeightEndIfEndSelectEndSub
文章的上述内容对射击游戏中的各个实现功能进行了详细的介绍，读者朋友可以根据文章中的程序代码自己动手实验一下。本程序在Windows2000、VisualBasic6.0环境下编译通过，运行正常。
