怎么弄单机网页游戏，有源代码

单机的网页游戏加载好后，在IE缓存中都会有文件的，后缀名是.swf 把他们出来双击用浏览器打开就可以了的 对了加载前先把IE缓存清除干净会比较好找 我一般在乐趣网玩小游戏的。

单机小游戏代码(单机小游戏代码大全)

单机小游戏代码(单机小游戏代码大全)

我学生呀 我们宿舍的一个姐妹拉我陪她玩《新蜀门】

次玩游戏 五六分钟就会了 她说我是天才 (^__^) 嘻嘻

升级好快哦 明天就能超过她 D0A6

点：思路

对于游戏源码的搭建，有一个清晰的思路是非常贵重要的。思路，指的是去思考软件或者游戏的发展方向，游戏的特性，游戏的内容等等。只有将这些考虑清楚了，才能更好的发展下一步：执行方案。

第二点： 执行方案

怎样在电脑上下载4399单机小游戏？（不联网也能玩）

在小游戏的播放界面查看该网页的源代码，搜索“.swf”找到该游戏的swf文件，一个页面会有多个swf链接，一般下载后文件的那个就是。

再说个简单一点的，用浏览器的资源嗅探功能，点击嗅探出来的所有文件，按大小排序，的那个swf文件就是的，把这个swf文件改名保存，以后没网的情况下，随时用影音播放器或是浏览器打开就可以玩，以下是图示：

如何制作版小游戏？

首先你得会做普通游戏啊= =。把普通游戏的数据改一改，比如，魂斗罗的生命数量，本来是三个，设置的人只要把数字调一调，比如调成1万……

下载个flash修改

先把你要修改的游戏下载下来（建议到2144里下）

然后打开修改，打开你下好的游戏，开始游戏后点编辑（注意要开始游戏后点），看看你要修改项目的量，比如HP100，你就在编辑窗口输入100，之后你会看到窗口左边出现了一行行的项目，找到你要修改的项目，修改它的值，锁定值。改好一切后点关闭就OK了

修改FLASH用专门的工具修改SWF文件

flash修改自己修改呗，超级简单

62．名节重于泰山，利欲轻于鸿毛。jnqua

电脑上的网页小游戏单机版的都是用什么软件做的，求软件。

的有一款语言程序，易语言。你可以学这个语言。不用懂英语，全部中文代码。可以写任意软件。包括游戏。

可能是MyEclipse写的，也有可能是其他。

那是用程序写的。

vb小游戏源代码

Rem 窗体创建三个单选框按钮，Option1、Option2、Option3

Private Sub Form_Activate()

Option1.Caption = "石头"

Option2.Caption = "剪刀"

Option3.Caption = "布"

Option1.Value = False

Option2.Value = False

Option3.Value = False

End Sub

Private Sub Option1_Click()

Randomize

Select Case Int(3 Rnd)

Case 0: MsgBox "对方也出石头！继续！"

Case 1: MsgBox "哈哈！你赢了！对方出的是剪刀！奖励你一个苹果！"

Case 2: MsgBox "你输了！对方出的是布哦！不好意思，苹果给对方了哈！"

End Select

Option1.Value = False

End Sub

Private Sub Option2_Click()

Randomize

Select Case Int(3 Rnd)

Case 0: MsgBox "你输了！对方出的是石头哦！不好意思，苹果给对方了哈！"

Case 1: MsgBox "对方也出剪刀！继续！"

Case 2: MsgBox "哈哈！你赢了！对方出的是布！奖励你一个苹果！"

End Select

Option2.Value = False

End Sub

Private Sub Option3_Click()

Randomize

Select Case Int(3 Rnd)

Case 0: MsgBox "哈哈！你赢了！对方出的是石头！奖励你一个苹果！"

Case 1: MsgBox "你输了！对方出的是剪刀哦！不好意思，苹果给对方了哈！"

Case 2: MsgBox "对方也出布！继续！"

End Select

Option3.Value = False

End Sub

Dim pFist, cFist, cCount, pCount, dCount, tCount As Integer

Private Sub Form_Load()

cCount = 0

pCount = 0

dCount = 0

tCount = 1

lblPWinNum.Caption = ""

lblPWinNum.Caption = lblPWinNum.Caption & pCount

lblCWinNum.Caption = ""

lblCWinNum.Caption = lblCWinNum.Caption & cCount

lblDrawNum.Caption = ""

lblDrawNum.Caption = lblDrawNum.Caption & dCount

lblTotalNum.Caption = ""

lblTotalNum.Caption = lblTotalNum.Caption & tCount

End Sub

Private Sub imgCloth_Click()

pFist = 3

cFist = Int(Rnd 3) + 1

txtPlayer.Text = ""

txtPlayer.Text = txtPlayer.Text & "布"

If cFist = 1 Then

txtComr = ""

txtComr = txtComr & "石头"

Else

If cFist = 2 Then

txtComr = ""

txtComr = txtComr & "剪刀"

Else

If cFist = 3 Then

txtComr = ""

txtComr = txtComr & "布"

End If

End If

End If

If cFist = 1 Then

pCount = pCount + 1

lblPWinNum.Caption = ""

lblPWinNum.Caption = lblPWinNum.Caption & pCount

picSusess.Visible = True

MsgBox "恭喜你，你赢了！"

Else

If cFist = 2 Then

cCount = cCount + 1

lblCWinNum.Caption = ""

lblCWinNum.Caption = lblCWinNum.Caption & cCount

MsgBox "很遗憾，你输了！"

Else

dCount = dCount + 1

lblDrawNum.Caption = ""

lblDrawNum.Caption = lblDrawNum.Caption & dCount

MsgBox "打平了！"

End If

End If

tCount = tCount + 1

lblTotalNum.Caption = ""

lblTotalNum.Caption = lblTotalNum.Caption & tCount

End Sub

Private Sub imgScissors_Click()

pFist = 2

cFist = Int(Rnd 3) + 1

txtPlayer.Text = ""

txtPlayer.Text = txtPlayer.Text & "剪刀"

If cFist = 1 Then

txtComr = ""

txtComr = txtComr & "石头"

Else

If cFist = 2 Then

txtComr = ""

txtComr = txtComr & "剪刀"

Else

If cFist = 3 Then

txtComr = ""

txtComr = txtComr & "布"

End If

End If

End If

If cFist = 3 Then

pCount = pCount + 1

lblPWinNum.Caption = ""

lblPWinNum.Caption = lblPWinNum.Caption & pCount

picSusess.Visible = True

MsgBox "恭喜你，你赢了！"

Else

If cFist = 1 Then

cCount = cCount + 1

lblCWinNum.Caption = ""

lblCWinNum.Caption = lblCWinNum.Caption & cCount

MsgBox "很遗憾，你输了！"

Else

dCount = dCount + 1

lblDrawNum.Caption = ""

lblDrawNum.Caption = lblDrawNum.Caption & dCount

MsgBox "打平了！"

End If

End If

tCount = tCount + 1

lblTotalNum.Caption = ""

lblTotalNum.Caption = lblTotalNum.Caption & tCount

End Sub

Private Sub imgStone_Click()

pFist = 1

cFist = Int(Rnd 3) + 1

txtPlayer.Text = ""

txtPlayer.Text = txtPlayer.Text & "石头"

If cFist = 1 Then

txtComr = ""

txtComr = txtComr & "石头"

Else

If cFist = 2 Then

txtComr = ""

txtComr = txtComr & "剪刀"

Else

If cFist = 3 Then

txtComr = ""

txtComr = txtComr & "布"

End If

End If

End If

If cFist = 2 Then

pCount = pCount + 1

lblPWinNum.Caption = ""

lblPWinNum.Caption = lblPWinNum.Caption & pCount

picSusess.Visible = True

MsgBox "恭喜你，你赢了！"

Else

If cFist = 3 Then

cCount = cCount + 1

lblCWinNum.Caption = ""

lblCWinNum.Caption = lblCWinNum.Caption & cCount

MsgBox "很遗憾，你输了！"

Else

dCount = dCount + 1

lblDrawNum.Caption = ""

lblDrawNum.Caption = lblDrawNum.Caption & dCount

MsgBox "打平了！"

End If

End If

tCount = tCount + 1

lblTotalNum.Caption = ""

lblTotalNum.Caption = lblTotalNum.Caption & tCount

End Sub

Private Sub picSusess_Click()

picSusess.Visible = False

End Sub

我原来做的一个，按照你的提示加了一个，picSusess这个就是，里面放着一个苹果的，当你赢了就会出现，你点击一下，那个就消失，我这个里面除了你这个功能，还有战绩提示，统计你胜负平的局数和第多少局（计算公式是胜负平的局数+1，就是当前局数）

如何编写小游戏的程序 一步一步的说清楚 谢谢！

,不要在设计时经常改动设计方案,否则工期会延误.

难道在编码和设计的时候经常改动?

在设计的时候改动与后期的改动谁会带来比较大的损失呢?况且软件危机是怎样产生的?

这是软件工程出现的原因吧,所以首先分析好你的游戏框架,多花时间分析上!.

第二,网络版则必须写

软件设计概要书

和用户使用说明书...任何上规模的软件项目可以不写说明书?

具体点吧,保留下最本质的数据流图,更多的文档资料所带来的结果就是让你的软件更容易维护,即可测性,可修改性,可理解性都必须具备..

如果只是几百或者1千行并且不是太复杂的小游戏的话,并且不希望非常大的扩展下去,那就随便画画草图脑子有个大概思路就不多可以开始了.

如果楼主想用vb做,那可能不太合适,本人也只是用过它做过一些方块,贪食蛇之类的小游戏还有类似那样的牌类游戏.

简单的说吧,首先你要知道你想做什么,并且可以用VB实现吗?如果可以继续分析,怎样做?

用什么样的技术?等确定了之后,大概的将编码写在纸上,如果自己觉得逻辑合适就将其输入电脑运行之,并在输入电脑运行之后不段调试尽量多找一些难发现的错误..