求下用FLASH做一个简单的打地鼠的游戏的具体步骤

1

准备美术素材,

鼠洞,鼠进洞动画,出洞动画,

打鼠的锤子

2

把 鼠洞,鼠进洞动画,出洞动画

,这些组合到一个MovieClip,然后复制几个(假如是10个)放到舞台上,取好名mc0~mc9

3

写程序,

(1)用打鼠的锤子

代替鼠标

(2)

控制地vnu

: 设个定时器,一定时间内用随机数取,取0-9的中任意数,播放出洞动画,

出洞的mc侦听鼠标点击,被点后计分,

没被点,定时播放进洞动画,收进洞里,不能点击

4

这是最简单的,要其它规则自己加,比如,设定有不同的地鼠,打到多少后游戏结束,或者定时结束,统计打了多少个

其实这里有很多的：

[gnokii-032targz]

Nokia手机工具程序。可以管理手机的电话薄，发送/接收短消息，查看电池状态等 (2001-02-14, UNIX, 731KB, 2130次)

[smslink-044btargz]

手机短消息服务的服务器和客户端 (2001-01-08, LINUX, 91KB, 1883次)

[移动短信SMS综合资料库rar]

短消息基础知识；短消息的信息处理流程及其分析、解决问题的方法；手机短信息SMS开发—编码，解码；PDU介绍；短消息的体系结构等 (2005-09-28, CHM, 1009KB, 1536次)

[nle-001-2tgz]

可以修改Nokia手机的logo图标的程序 (2001-02-14, LINUX, 21KB, 1442次)

[是男人就下一百层SHYrar]

制作的第一款休闲类的手机游戏，适合初学者参考 (2005-06-15, Java, 484KB, 1357次)

[sms_client-207ktgz]

使用TAP的蜂窝型GSM手机短消息服务中心 (2001-01-08, LINUX, 82KB, 1333次)

[mobile_smszip]

使用手机发送短消息的编程方法 (2001-11-21, HTML, 5KB, 1174次)

[kvanttisms-src-05tgz]

Java写的通过手机收发短信息的程序。 (2001-11-20, Java, 10KB, 1049次)

[BREW开发－海信(王宏兵)rar]

深入研究BREW手机游戏开发———— 王洪信开发者最好的初学资料 (2005-09-26, Visual C++, 7229KB, 841次)

[jSMSEngine_2_0_4zip]

开源的手机短信开发包！包括例子程序和比较详细的文档，还有开发者的网站！来源于sourceforge！ (2006-01-21, Java, 438KB, 729次)

[qrcode_jszip]

手机内嵌二维条码图像识别的JAVA的源程序，强烈推荐下载。 (2006-01-14, Java, 2210KB, 677次)

[gprs_smszip]

一个用COM或USB接口连接gsm/gprs手机进行短信收发的程序,用到的是simense的通讯模块 (2003-02-20, Visual C++, 97KB, 629次)

[PaoPaorar]

j2me手机泡泡龙游戏。写得不错还未完工的版本。不过可以用来学习。 (2005-03-04, Java, 83KB, 613次)

[MakeMaprar]

用java写的地图编辑器，可用于j2me手机游戏的地图编辑。 (2005-03-04, Java, 26KB, 606次)

[J2meboxrar]

一个类似打地鼠的j2me手机游戏。 (2005-03-04, Java, 58KB, 521次)

[shoujihaomachaxunrar]

输入手机号码可查询：归属地址、手机号码、区号、所属卡型 (2006-06-05, Java, 686KB, 520次)

[rich_man+srcrar]

大富翁手机游戏。 (2005-03-04, Java, 269KB, 513次)

[gsmssend-16targz]

通过网站发送手机短信息的程序。需要GNOME/GTK支持 (2001-11-20, LINUX, 352KB, 498次)

[MTKstartrar]

台湾联发（MTK）手机芯片资料，可作为手机应用的平台 (2007-08-09, C-C++, 118KB, 495次)

[C# 发短信rar]

使用C#发短信，连接Modem或者手机，通过串口发送短信， (2004-06-30, CSharp, 437KB, 469次)

[WindowsMobile50rar]

Windows Mobile 50 三十几个经典手机软件开发源码希望对大家有帮助 (2006-08-30, CSharp, 578KB, 449次)

[motorola_RingerToneFormatzip]

motorola手机铃声格式文档 (2002-06-07, PDF, 45KB, 445次)

[ksiemens-01targz]

KDE下的西门子手机管理程序，如图标，电话薄，短信息等管理 (2001-11-21, LINUX, 3437KB, 444次)

[nec麻将rar]

一个java编的小游戏．对初学手机游戏编程的人很有用啊． (2005-06-07, Java, 50KB, 434次)

[nokiacomposersrczip]

Nokia手机语音管理程序，如上载音乐等。 (2001-11-21, Visual C++, 315KB, 422次)

[SmartMessagingFAQzip]

诺基亚手机铃声开发文档 (2002-06-07, PDF, 23KB, 410次)

[motolora_smscertguidezip]

motorola手机短信息开发文档 (2002-06-07, PDF, 134KB, 400次)

[MV100-01rar]

是一个手机功能的模拟程序，从界面到功能都做了很好的模拟 (2005-07-29, C-C++, 14630KB, 384次)

[helixsrc0812rar]

著名的 helix realplayer 基于手机 symbian 系统的 播放器全套源代码，内含编译工具、以及配套相关软件：WinCVS、Python等。花了近一个多月才整理完成，是非常难得的全套代码。 (2005-05-19, C++, 43787KB, 373次)

[eluosi方块rar]

经典的手机游戏源码俄罗斯方块,基于C+Brew开发 (2005-07-14, C-C++, 425KB, 373次)

[MTK2rar]

这是我上传MTK手机开发的一些资料2,这两天起上传6份资料，全部是手开发的。希望对你们有用。 (2007-04-13, C-C++, 5859KB, 371次)

[resource]

压缩包中一个为一般 *** 作系统下的fft，一个是手机或类似设备中的T9拼音输入法 (2003-08-05, C-C++, 53KB, 359次)

[SeaHorserar]

手机游戏，画面效果还可以，可以作为手机游戏入门参考 (2005-06-15, Java, 273KB, 356次)

[nec 打飞机rar]

一个JAVA编的小游戏,对初学手机游戏的人很有帮助 (2005-06-07, Java, 73KB, 335次)

[多级菜单rar]

/[原创]一个树形多级菜单参考程序 这是一个用于车载电话的菜单程序,可以看成是手机功能菜单的简化板 我所认为的树形多级菜单是指:在一个父菜单项目下面有多个子菜单, 子菜单下面又有多个孙菜单,进入下层菜单主要依当前选中的索引有点象文件的目录结构 本木从前实现这类的菜单主要分层的switch语句,每层都是一个switch但当我看到晓奇大侠的 程序和耳朵灌满lq等人的争论后,那时那地,我的心境变化了,我意识到指针代表了先进的生产力, 代表了社会的发展方向,是建设和谐社会的必要条件不管你用了多长时间C语言,只要你不善于用 一个小针指来指去,你就是那种"用嘴吃饭的高贵骑士,决不用屁股装d步q"的守旧分子和社会发 展的绊脚石(跑题太远,删去1万字打住) 言归正传,下面的程序适用CPU为Mega16,编译器为CVAVR 1244a 由于按键数目较多,所以按键程 序把按键事件分为数字键,快捷键,确认键,取消键,上下翻键几类,以减小菜单结构的容量一下菜单 数据在菜单结构数组中的偏移量,有多少个菜单象就有多少个宏定义/ (2005-08-02, C-C++, 2KB, 334次)

[与小灵通讯的软件zip]

手机的通讯，特别是小灵通的通讯，是非常难得的技术，也是很受欢迎的，快下啊！ (2005-09-30, Visual C++, 39KB, 324次)

[C16汉字输入方案rar]

“C16汉字输入方案”，是针对小键盘设备(如手机、遥控器等)通常为16个基本键(“0”到“9”、“”、“#”、左右键、删除键、确认键)的情况，充分发掘16个键位条件下进行汉字输入和符号输入的潜力，使汉字、英文、数字输入达到尽可能高的效率，是在16键的小键盘设备进行汉字输入的优秀方案。 (2005-10-27, C++ Builder, 76KB, 316次)

[CDMA短消息发送程序zip]

用vc开发的cdma手机模块收发短信的功能，主要部分是串口通信和gb->unicode码间的转换。 (2005-12-08, Visual C++, 193KB, 313次)

下面是源代码：

Form1:

Private Sub Form_Load() Dim temp As Integer Randomize

temp = Int(Rnd 3) + 1

Form1Picture = LoadPicture("C:\Users\Administrator\Desktop\打地鼠\picture" & temp & "jpg") WindowsMediaPlayer1URL = "C:\Users\Administrator\Desktop\打地鼠\Heaven's Devilswma" End Sub

Private Sub Label1_Click() Form2Show Form2num = -1 Form1Hide

WindowsMediaPlayer1URL = ""

Open "C:\Users\Administrator\Desktop\打地鼠\primarydat" For Append As #1 '写 *** 作 Close #1

Open "C:\Users\Administrator\Desktop\打地鼠\intermediatedat" For Append As #2 Close #2

Open "C:\Users\Administrator\Desktop\打地鼠\advanceddat" For Append As #3 Close #3 End Sub

Private Sub Label2_Click() End End Sub

Form2:

Dim allnum As Integer, oknum As Integer '定义变化次数 打中次数 Public num As Integer '判别是否第一次开始游戏 Dim flags1 As Boolean '判别文件是否保存 Public flags As Boolean '判别是否播放声音 Private Sub countine_Click() pauseEnabled = True Timer1Enabled = True countineEnabled = False WLXZEnabled = True End Sub

Private Sub exit_Click() Dim X As Integer Dim tt As Integer

X = MsgBox("是否真的退出？", vbYesNo, "退出游戏框")

If X = 6 Then

tt = MsgBox("退出游戏之前,是否保存", vbYesNo, "保存提示") If tt = 6 Then

If flags1 = True Then End Else

If Timer1Interval = 1000 Then

Open "C:\Users\Administrator\Desktop\打地鼠\primarydat" For Append As #1 '写 *** 作

Print #1, Text1Text + " " + Format(Date, "M/d/yy") Close #1

ElseIf Timer1Interval = 500 Then

Open "C:\Users\Administrator\Desktop\打地鼠\intermediatedat" For Append As #2

Print #2, Text1Text + " " + Format(Date, "M/d/yy") Close #2 Else

Open "C:\Users\Administrator\Desktop\打地鼠\advanceddat" For Append As #3

Print #3, Text1Text + " " + Format(Date, "M/d/yy") Close #3 End If End If End If End End If End Sub

Private Sub Form_Load() Form4Check1Value = 1

WindowsMediaPlayer1Controlsstop countineEnabled = False pauseEnabled = False WLXZEnabled = False

Form5Top = Form2Top + 700 Form5Left = Form2Left flags1 = False flags = True End Sub

Private Sub help_Click() Form3Show End Sub

Private Sub new_game_Click() num = num + 1 Dim t As Integer

If (num > 0) Then

t = MsgBox("新游戏开始之前,是否保存", vbYesNo, "保存提示") If t = 6 Then

flags1 = True

If Timer1Interval = 1000 Then

Open "C:\Users\Administrator\Desktop\打地鼠\primarydat" For Append As #1 '写 *** 作

Print #1, Text1Text + " " + Format(Date, "M/d/yy") Close #1

ElseIf Timer1Interval = 500 Then

Open "C:\Users\Administrator\Desktop\打地鼠\intermediatedat" For Append As #2

Print #2, Text1Text + " " + Format(Date, "M/d/yy") Close #2 Else

Open "C:\Users\Administrator\Desktop\打地鼠\advanceddat" For Append As #3

Print #3, Text1Text + " " + Format(Date, "M/d/yy") Close #3 End If End If End If

Call Form_Load

allnum = 0 '变化次数初始为0 oknum = 0 '打中次数初始为0 Timer1Enabled = True pauseEnabled = True WLXZEnabled = True End Sub

Private Sub options_Click() Timer1Enabled = False Form4Show

WLXZEnabled = False countineEnabled = True End Sub

Private Sub pause_Click() Dim r, g, b As Integer Timer1Enabled = False countineEnabled = True pauseEnabled = False WLXZEnabled = False

Form5Top = Form2Top + 700 Form5Left = Form2Left Form5Show

Private Sub CmdStart_click()

nt = Timer

End Sub

同时去掉

Private Sub Form_Load()

nt = Timer

End Sub

以上就是关于求下用FLASH做一个简单的打地鼠的游戏的具体步骤全部的内容，包括:求下用FLASH做一个简单的打地鼠的游戏的具体步骤、求：手机软件源代码！、如何用VB程序设计打地鼠游戏等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！