魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~23开始游戏-存档管理

最新推荐文章于 2021-01-22 13:42:12 发布
最新推荐文章于 2021-01-22 13:42:12 发布
阅读量287 收藏
点赞数
分类专栏： 我的程序 文章标签： vb6 2d游戏 3d渲染 dx8 魔塔
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/gosub60/article/details/112863457
版权

魔塔之拯救白娘子 完整工程下载地址：
魔塔之拯救白娘子》流程分析7：游戏存档管理
作用如下：
①自动存档，当上楼或者下楼的时候，会自动帮玩家存档并截图（吼吼，游戏次数长了，存档容量可是几百M哦，因为图片没有压缩过，注意清理，硬盘空间大的请忽略）
②手动存档：自动截图并存档

下边是设计界面：
游戏存档管理
下边是源码：

Option Explicit
Dim 当前手动存档图形编号 As Integer
Dim 手动存档条目 As Integer
Dim 自动存档条目 As Integer
Dim 存档路径名字 As String

Private Sub Cmd_手动存档_上一组_Click()

读取手动存档图形数据 (2)
End Sub

Private Sub Cmd_手动存档_下一组_Click()

读取手动存档图形数据 (1)
End Sub

Private Sub Cmd_自动存档_上一组_Click()
读取自动存档图形数据 (2)
End Sub

Private Sub Cmd_自动存档_下一组_Click()
读取自动存档图形数据 (1)
End Sub

Private Sub Com_手动存档_删除_Click(Index As Integer)
'删除某个存档
On Error Resume Next

'删除存档图片存档条目 & "#"
Kill App.Path & "\save\" & Label_存档编号(Index) & ".bmp"
Kill App.Path & "\save\" & Label_存档编号(Index) & ".ini"

'从配置文件中删除这条记录
iniFileName = "手动存档":
DelIniSec 手动存档条目 + Index & "#"
'DelIniKey iniFileName, 自动存档条目 + Index & "#"
手动存档数量 = 手动存档数量 - 1

SetIniS "手动存档数量", "档案数量", 手动存档数量

游戏存档管理初始化
End Sub

Private Sub Com_自动存档_删除_Click(Index As Integer)
'删除某个存档
On Error Resume Next


'删除存档图片存档条目 & "#"
Kill App.Path & "\save\" & Label_自动存档编号(Index) & ".bmp"
Kill App.Path & "\save\" & Label_自动存档编号(Index) & ".ini"
'从配置文件中删除这条记录
iniFileName = "自动存档":
DelIniSec 自动存档条目 + Index & "#"
'DelIniKey iniFileName, 自动存档条目 + Index & "#"
自动存档数量 = 自动存档数量 - 1

SetIniS "自动存档数量", "档案数量", 自动存档数量

游戏存档管理初始化
End Sub

Private Sub Command1_Click()
Running = 9: BackPic.LoadGraph "image\魔塔背景\魔塔背景1.jpg", xgBLACK
Unload Me
End Sub

Private Sub Command2_Click()
Running = 9:
BackPic.LoadGraph "image\魔塔背景\魔塔背景1.jpg", xgBLACK
Unload Me
End Sub

Private Sub Command3_Click()
On Error Resume Next
Kill App.Path & "\save\*.*"
Kill App.Path & "\自动存档.ini"
Kill App.Path & "\手动存档.ini"
End Sub

Private Sub Form_Load()
'获得主窗口的坐标
     Me.Left = frmMain.Left
     Me.Top = frmMain.Top + 800
    
    Dim rtn As Long
    rtn = GetWindowLong(hWnd, GWL_EXSTYLE)
    rtn = rtn Or WS_EX_LAYERED
    SetWindowLong hWnd, GWL_EXSTYLE, rtn
    SetLayeredWindowAttributes hWnd, 0, 200, LWA_ALPHA
   
'让窗口在顶层
rtn = SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3)
'取消窗口在顶层

游戏存档管理初始化

End Sub

Sub 游戏存档管理初始化()
On Error Resume Next
'
Dim j As Integer
For j = 0 To 3
Image_手动存档(j).Visible = False
Label_存档编号(j).Visible = False
Image_自动存档(j).Visible = False
Label_自动存档编号(j).Visible = False
Com_手动存档_删除(j).Visible = False
Com_自动存档_删除(j).Visible = False
Next

Cmd_手动存档_上一组.Visible = False
Text_手动存档.Visible = False
Cmd_手动存档_下一组.Visible = False

Cmd_自动存档_上一组.Visible = False
Text_自动存档.Visible = False
Cmd_自动存档_下一组.Visible = False


iniFileName = "手动存档":
手动存档数量 = GetIniS("手动存档数量", "档案数量", 手动存档数量)
 If 手动存档数量 > 0 Then 'App.Path & "\save\" &
 


手动存档条目 = 手动存档数量


读取手动存档图形数据 (0)


End If


iniFileName = "自动存档":
自动存档数量 = GetIniS("自动存档数量", "档案数量", 自动存档数量)  '存放自动存档数量 App.Path & "\save\" &
If 自动存档数量 > 0 Then


自动存档条目 = 自动存档数量
读取自动存档图形数据 (0)
End If

End Sub

Sub 读取自动存档图形数据(状态 As Integer) '0 第一次读 '1向后 '2向前
Dim k As Integer
Dim j As Integer

On Error Resume Next
'Dim 存档路径名字 As String

If 状态 = 0 Then

自动存档条目 = 1

ElseIf 状态 = 1 Then

自动存档条目 = 自动存档条目 + 4:
If 自动存档条目 > 自动存档数量 Then 自动存档条目 = 自动存档数量

ElseIf 状态 = 2 Then
自动存档条目 = 自动存档条目 - 4:

If 自动存档条目 < 4 Then 自动存档条目 = 1

End If


For j = 0 To 3
存档路径名字 = ""

存档路径名字 = GetIniS(自动存档条目 + j & "#", "存档截图", 存档路径名字)


'
If 存档路径名字 = "" Or 存档路径名字 = ".bmp" Then Exit For
Label_自动存档编号(j) = 存档路径名字
Label_自动存档编号(j).Visible = True
Image_自动存档(j).Picture = LoadPicture(App.Path & "\save\" & 存档路径名字 & ".bmp")
Image_自动存档(j).Visible = True
Com_自动存档_删除(j).Visible = True

Next

Text_自动存档.Visible = True


Text_自动存档 = 自动存档条目 & "/" & 自动存档数量


If 自动存档数量 > 4 Then

Cmd_自动存档_下一组.Visible = True
Else
Cmd_自动存档_下一组.Visible = False
Cmd_自动存档_上一组.Visible = False
End If

If 自动存档条目 > 4 Then

Cmd_自动存档_上一组.Visible = True
Else

Cmd_自动存档_上一组.Visible = False
End If

End Sub


Sub 读取手动存档图形数据(状态 As Integer) '0 第一次读 '1向后 '2向前
Dim k As Integer
Dim j As Integer
'Dim 存档路径名字 As String
On Error Resume Next

If 状态 = 0 Then

手动存档条目 = 1

ElseIf 状态 = 1 Then

手动存档条目 = 手动存档条目 + 4:
If 手动存档条目 > 手动存档数量 Then 手动存档条目 = 手动存档数量

ElseIf 状态 = 2 Then
手动存档条目 = 手动存档条目 - 4:

If 手动存档条目 < 4 Then 手动存档条目 = 1

End If


For j = 0 To 3
存档路径名字 = ""

存档路径名字 = GetIniS(手动存档条目 + j & "#", "存档截图", 存档路径名字)


If 存档路径名字 = "" Or 存档路径名字 = ".bmp" Then Exit For
Label_存档编号(j) = 存档路径名字
Label_存档编号(j).Visible = True
Image_手动存档(j).Picture = LoadPicture(App.Path & "\save\" & 存档路径名字 & ".bmp")
Image_手动存档(j).Visible = True
Com_手动存档_删除(j).Visible = True
Next

Text_手动存档.Visible = True
'第一组1-4
'第二组5-8
'第三组9-12
'第四组13-16
'第5组 17-20

Text_手动存档 = 手动存档条目 & "/" & 手动存档数量


If 手动存档数量 > 4 Then

Cmd_手动存档_下一组.Visible = True
Else
Cmd_手动存档_下一组.Visible = False
Cmd_手动存档_上一组.Visible = False
End If

If 手动存档条目 > 4 Then

Cmd_手动存档_上一组.Visible = True
Else

Cmd_手动存档_上一组.Visible = False
End If
End Sub

'处理存档
Sub 读存档内容(存档条目 As Integer, 存档类别 As Boolean)
'根据编号读取相应的存档来初始化游戏
'Dim 存档路径名字 As String
Dim j As Integer
Dim k As Integer
Running = 1: 读档标志 = True: frmMain.判断running状态_初始化: ' BackPic.LoadGraph "image\魔塔背景\魔塔背景3.jpg", xgBLACK
'
If 存档类别 = True Then
'
iniFileName = "手动存档"
  存档路径名字 = GetIniS(手动存档条目 + j & "#", "存档截图", 存档路径名字)
  游戏进度.到过的最大层号 = GetIniS("手动存档数量", "到过的最大层号", 游戏进度.到过的最大层号)

Else
iniFileName = "自动存档":
存档路径名字 = GetIniS(存档条目 & "#", "存档截图", 存档路径名字)
游戏进度.到过的最大层号 = GetIniS("自动存档数量", "到过的最大层号", 游戏进度.到过的最大层号)

End If


人物信息.角色等级 = GetIniS(存档条目 & "#", "等级", 人物信息.角色等级)
人物信息.角色生命值 = GetIniS(存档条目 & "#", "生命", 人物信息.角色生命值)
人物信息.角色攻击力 = GetIniS(存档条目 & "#", "攻击", 人物信息.角色攻击力)
人物信息.角色防御值 = GetIniS(存档条目 & "#", "防御", 人物信息.角色防御值)
人物信息.角色持有的金币 = GetIniS(存档条目 & "#", "金币", 人物信息.角色持有的金币)
人物信息.角色的经验值 = GetIniS(存档条目 & "#", "经验值", 人物信息.角色的经验值)

勇者包裹.黄钥匙数量 = GetIniS(存档条目 & "#", "黄钥匙数量", 勇者包裹.黄钥匙数量)
勇者包裹.蓝钥匙数量 = GetIniS(存档条目 & "#", "蓝钥匙数量", 勇者包裹.蓝钥匙数量)
勇者包裹.红钥匙数量 = GetIniS(存档条目 & "#", "红钥匙数量", 勇者包裹.红钥匙数量)
勇者包裹.铁榔头数量 = GetIniS(存档条目 & "#", "铁榔头数量", 勇者包裹.铁榔头数量)
勇者包裹.风之罗盘数量 = GetIniS(存档条目 & "#", "风之罗盘数量", 勇者包裹.风之罗盘数量)
勇者包裹.怪物手册数量 = GetIniS(存档条目 & "#", "怪物手册数量", 勇者包裹.怪物手册数量)
勇者包裹.星光神锒数量 = GetIniS(存档条目 & "#", "星光神锒数量", 勇者包裹.星光神锒数量)
勇者包裹.幸运十字架数量 = GetIniS(存档条目 & "#", "幸运十字架数量", 勇者包裹.幸运十字架数量)
勇者包裹.圣光徽的数量 = GetIniS(存档条目 & "#", "圣光徽的数量", 勇者包裹.圣光徽的数量)

谈话对象.NPC对话标志_小偷 = GetIniS(存档条目 & "#", "NPC对话标志_小偷", 谈话对象.NPC对话标志_小偷)
谈话对象.NPC对话标志_小青 = GetIniS(存档条目 & "#", "NPC对话标志_小青", 谈话对象.NPC对话标志_小青)
谈话对象.NPC对话标志_白娘子 = GetIniS(存档条目 & "#", "NPC对话标志_白娘子", 谈话对象.NPC对话标志_白娘子)
谈话对象.NPC对话标志_老人 = GetIniS(存档条目 & "#", "NPC对话标志_老人", 谈话对象.NPC对话标志_老人)
谈话对象.NPC对话标志_商人 = GetIniS(存档条目 & "#", "NPC对话标志_商人", 谈话对象.NPC对话标志_商人)
谈话对象.NPC对话标志_冥灵魔王 = GetIniS(存档条目 & "#", "NPC对话标志_冥灵魔王", 谈话对象.NPC对话标志_冥灵魔王)
谈话对象.NPC对话标志_红衣魔王 = GetIniS(存档条目 & "#", "NPC对话标志_红衣魔王", 谈话对象.NPC对话标志_红衣魔王)
谈话对象.NPC对话标志_红衣大魔王 = GetIniS(存档条目 & "#", "NPC对话标志_红衣大魔王", 谈话对象.NPC对话标志_红衣大魔王)

'男主角移动.x = GetIniS(存档条目 & "#", "男主角移动X", 男主角移动.x)
'男主角移动.y = GetIniS(存档条目 & "#", "男主角移动Y", 男主角移动.y)
男主角移动.移动步数 = GetIniS(存档条目 & "#", "男主角移动步数", 男主角移动.移动步数)
男主角移动.移动方向 = GetIniS(存档条目 & "#", "男主角移动方向", 男主角移动.移动方向)

Dim 临时字串a As String, 临时字串b As String, 临时字串c As String, 临时字串d As String
On Error Resume Next

临时字串a = GetIniS(存档条目 & "#", "游戏进度.新地图", 临时字串a)
临时字串b = GetIniS(存档条目 & "#", "游戏进度.读系统档", 临时字串b)
临时字串c = GetIniS(存档条目 & "#", "游戏进度.上楼处理标志", 临时字串c)
临时字串d = GetIniS(存档条目 & "#", "游戏进度.下楼处理标志", 临时字串d)
Dim m1() As String, m2() As String, m3() As String, m4() As String
For j = 0 To 99
   m1 = Split(临时字串a, ",")
   游戏进度.新地图(j) = m1(j)
   m2 = Split(临时字串b, ",")
  游戏进度.读系统档(j) = m2(j)
  m3 = Split(临时字串c, ",")
  游戏进度.上楼处理标志(j) = m3(j)
  m4 = Split(临时字串d, ",")
  游戏进度.下楼处理标志(j) = m4(j)
  
       Next j
'改写临时地图
地图层号 = GetIniS(存档条目 & "#", "地图层数", 地图层号)


FileCopy App.Path & "\save\" & 存档路径名字 & ".ini", App.Path & "\mapX.ini"

游戏进度.地图当前层号 = 地图层号
'游戏进度.读玩家档 = True
'frmMain.读临时地图数据 (地图层号)
'frmMain.清除地图上多余的主角
'frmMain.写临时地图数据 (0)
'游戏进度.上楼处理标志(地图层号) = True
游戏进度.上楼处理标志(地图层号) = True
frmMain.游戏中读取地图层次判断
Erase m1(), m2(), m3(), m4()
Unload Me
End Sub

Private Sub Image_手动存档_DblClick(Index As Integer)
读存档内容 手动存档条目 + Index, True
End Sub

Private Sub Image_自动存档_DblClick(Index As Integer)
'处理读档
读存档内容 自动存档条目 + Index, False
End Sub

Private Sub Timer1_Timer()
'根据主窗口调整背身窗口
'如果主窗口变小就隐身
If frmMain.WindowState = 1 Then
Me.Hide
Else
Me.Show
End If
'如果主窗口移动就跟着移动
'     Me.Left = frmMain.Left + 1000
'     Me.Top = frmMain.Top + 3000
     If Me.Left <> frmMain.Left Then Me.Left = frmMain.Left
     If Me.Top - 800 <> frmMain.Top Then Me.Top = frmMain.Top + 800
End Sub
gosub60
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 1
    评论
专栏目录
VB6 Game Archives:VB 6 游戏存档-开源
07-19
确保单击上面的“浏览所有文件”以查看所有不同的代码。 这将是我可以找到的用 Visual Basic 6 (VB6) 编写的游戏的所有源代码的在线存档。 这里的所有源代码都是开源的，但除非另有说明，否则不归我所有。 通过使用此处的代码，您必须同意原始作者许可协议。 此外，您必须感谢原始代码的任何作者。 有关代码的更多信息，请阅读代码中包含的任何自述文件和我上传到每个文件夹的自述文件。
cocos2d-x3.2《魔塔》游戏源码
08-20
《cocos2d-x3.2《魔塔》游戏源码》是一款基于cocos2d-x 3.2版本开发的2D角色扮演游戏，它展示了如何利用这一强大的游戏引擎来构建一个完整的游戏项目。cocos2d-x是一个开源的游戏开发框架，支持多种平台，包括iOS、...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~13开始游戏-初始化
gosub60的博客
01-20 299
魔塔之拯救白娘子 完整工程下载地址： 上几节介绍了地图编辑器编写情况，现在开始介绍《魔塔之拯救白娘子》开始游戏后的处理。 游戏开始后的流程处理如下： 一、初始化： 当running=1的时候，就是新的游戏开始，这时候要进行一系列的初始化操作。 初始化过程是放在一个 判断running状态_初始化 子程序中判断的。 Sub 判断running状态_初始化() Me.Cls If Running = 9 Then '游戏第一面，选择界面 背景音乐选择 Me.Caption = "魔塔之拯救
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~19开始游戏-战斗处理
gosub60的博客
01-20 244
魔塔之拯救白娘子 完整工程下载地址： 《魔塔之拯救白娘子》流程分析5：战斗处理 这个游戏的战斗系统比较简单，就是对比双方的数据，打的过就显示打斗过程，打不过就提示“打不过”，绕路而行，，，， 下边是战斗处理子程序： Sub 战斗处理(怪物编号 As Integer) Dim k As Integer Dim K2 As Long Dim n() As String '战斗 '①判断是否能打过，不能打过就提示:打不过 n = Split(怪物信息(怪物编号 - 79), ",") '读取怪物数据 怪物相关
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~20开始游戏-对话处理
gosub60的博客
01-20 410
魔塔之拯救白娘子 完整工程下载地址： 《魔塔之拯救白娘子》流程分析6：对话处理 游戏的对话处理比较简单，仅仅是根据游戏流程提供简单的对话系统，没有涉及复杂的东西。下边是设计的窗体： Option Explicit Dim 对话内容() As String Dim 要显示的对话次数 As Integer Dim 当前显示的对话编号 As Integer Dim npctalk(20) As String Sub 写对话内容() On Error Resume Next Dim sFile As Str
VB6魔塔之拯救白娘子源码.rar_魔塔吧
01-17
魔塔游戏的仿制版本，采用VB6+DX8，这个是我做的较为完整的小游戏，代码都是网络搜集并利用的，附带的编程时的所有注释，非常适合新手参考。由于时间问题，没有怎么优化，也存在很多bug，希望大家多多指正。
基于python开发的一个魔塔小游戏源码+项目说明.zip
09-21
基于python开发的一个魔塔小游戏源码+项目说明.zip 本游戏采用源码发送，需要自主安装Python，如果想直接下载二进制文件，可以去release里下。 以下是从源码直接构建游戏说明： 1. Python版本要求：3.10+，进入...
C++小游戏源码之-魔塔（2关）.cpp
最新发布
11-09
C++小游戏源码,可供学习及设计参考。
易语言魔塔游戏源码-易语言
06-13
这个“易语言魔塔游戏源码”是一个使用易语言编写的休闲益智类游戏——魔塔的完整源代码。魔塔游戏通常包含策略和计算元素，玩家需要通过规划和决策来逐步探索和挑战塔中的楼层。 在这款游戏中，源码可能会涵盖以下...
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~16开始游戏-自动寻路（A星算法）
gosub60的博客
01-20 2218
魔塔之拯救白娘子 完整工程下载地址： 《魔塔之拯救白娘子》流程分析2： ⑤游戏界面鼠标点击判断以及自动寻路： 自动寻路的效果如下： 源码如下： Sub 游戏界面鼠标点击判断() Dim map(12, 12) As Integer Dim j As Integer Dim k As Integer Dim a As POINTS Dim b As POINTS Dim m() As String '①先判断当前是不是弹出对话窗口 If Running <> 1 Then Exi
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~1游戏引擎
gosub60的博客
01-17 511
魔塔之拯救白娘子 完整工程下载地址： 前边学习了DX8的相关知识后，想做一个游戏试试看。这里我选取了魔塔这个比较大众化的小游戏。主要是魔塔的游戏画面比较固定，也很简单，似乎很容易做。下边就开始做吧。 一：游戏引擎 做游戏，最好的就是开发一个自己的游戏引擎，但是现在要做的仅仅是一个小游戏，没必要自己去大动干戈的去整游戏引擎，并且要做商业性的游戏，市面有大量现成的商业引擎，没必要自己耗费心力去搞游戏引擎。特别是，一个完整的商业化的游戏，至少有个团队来创作，要程序员、美工、策划等通力合作。所以，我作为一个VB6编
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~18开始游戏-物体碰撞检测
gosub60的博客
01-20 438
魔塔之拯救白娘子 完整工程下载地址： 《魔塔之拯救白娘子》流程分析4：物体碰撞检测 处理方式分2步，第一步是游戏时主角显示处理：当主角移动时需要擦除上一个坐标位的主角，然后在新位置上放置主角，但是呢，如果碰到相应的道具、物品、敌人将触发第二步：物体碰撞检测 ①游戏时主角显示处理： Sub 游戏时主角显示处理() Dim j As Integer Dim m() As String Dim k As Integer Dim i As Integer '男
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~24开始游戏-屏幕截图
gosub60的博客
01-22 377
魔塔之拯救白娘子 完整工程下载地址： 魔塔之拯救白娘子》流程分析8：屏幕截图和通用申明 有网友问我主窗口设计界面是什么样子？下图就是：frmMain.frm 设计界面非常清爽，只有一个tiemr控件（用来根据running的值 控制程序流程），一个Picture1控件，一个PictureClip1控件，这2个用来实现屏幕自动截图功能。（如果不需要自动截图连这个2个控件都不需要。自动截图主要是在读取游戏记录的显示当前关口好看一点。。。） 下边送上自动截图BAS源码： Private Type PALETTE
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~2音效模块
gosub60的博客
01-17 361
魔塔之拯救白娘子 完整工程下载地址： 继续上一文，游戏引擎相关源码。 ModMain.bas：作用，用来绘制图片精灵，管理物理精灵图片池。 Option Explicit '主入口 ' '管理物理精灵图片池 ' Private Type TYPE_PATH '路径结构. Count As Long '当前结构中包含的路径点数量 Index As Long '当前使用的路
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~3鼠标键盘和手柄引擎
gosub60的博客
01-17 350
魔塔之拯救白娘子 完整工程下载地址： xInput.cls 这个模块处理鼠标键盘和手柄的输入。 'impactX Game Engine '本类模块用于处理鼠标键盘和手柄的输入 '使用本类模块必须遵守: '你可以免费使用本引擎及代码 '使用本引擎后的责任由使用者承担 '你可以任意拷贝本引擎代码，但必须保证其完整性 '希望我能得到你使用本引擎制作出的程序 'Davy.xu sunicdavy@sina.com qq:20998333 Option Explicit Dim di As DirectInput
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~14开始游戏-流程处理
gosub60的博客
01-20 290
魔塔之拯救白娘子 完整工程下载地址： 二、游戏开始后的流程控制：当初始化完成后，timerDraw.Enabled = True 开始进行流程控制。下边的代码就是控制内容。 初始化→根据 主角所在的楼层判断主角的位置并绘制主角→显示主角的基本信息（生命值、体力值、金币、经验值等等）→游戏界面鼠标点击判断→男主角移动及方向处理→自动寻路处理→ 游戏时主角显示处理→循环判断直到游戏结束← Case 1 '游戏开始了 If Winner = True And 对话窗口显示标
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~5界面设计
gosub60的博客
01-19 271
魔塔之拯救白娘子 完整工程下载地址： 在前边搞定了游戏引擎后，就要设计游戏的界面。游戏的界面包含，①游戏封面：用来选择游戏的各种选项，比如进入游戏，游戏设置等等。②游戏主界面：用来进行游戏的主要窗口界面 ③地图编辑器：为了让游戏方便设计，搞个地图编辑器非常重要。④游戏设置：游戏各项设置，比如窗口模式还是全屏模式，声音效果等 ⑤游戏关于：就是谁写的，版权申明这类的。 本着学习为目的，所以，《魔塔之拯救白娘子》就使用简单的界面为主。下边是实现的效果。（可以绘制一个草图，方便自己写作。） ①游戏封面：如下图：
魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~6地图编辑器-初始化
gosub60的博客
01-19 242
魔塔之拯救白娘子 完整工程下载地址： 从今天开始我将写一下《魔塔之拯救白娘子》的游戏地图编辑器，俗话说，事半功倍。把地图编辑器搞好，基本一个游戏就写好了三分之一了。可以说，魔塔的地图是相对来说还是很简单的，这里仅仅定义了地图上怪物的编号，复杂的地图不仅如此，还要加上音乐、音效、怪物脚本等等。复杂的东西都是从简单的开始，所以我们先做简单的。 一：确定是窗口模式还是全屏模式，或者两者都可以？ 因为游戏简单，所以确定用窗口模式，并且窗口模式也方便调试，对于初次写游戏的我来讲也容易成功些，毕竟第一次写游戏能够写成功
cocoscreator魔塔游戏源码
07-12
总之，CocosCreator魔塔游戏源码是一个可以让我们了解和学习魔塔类游戏开发的实际案例，可以通过对源码的学习和修改，快速搭建自己的游戏项目，并且还可以帮助我们掌握CocosCreator游戏引擎的使用。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

gosub60

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值