魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~12地图编辑器-保存地图

魔塔之拯救白娘子 完整工程下载地址：
《魔塔之拯救白娘子》12地图编辑器-保存地图：
我们绘制好地图以后，如果满意了就要及时保存，保存的时候会判断 地图编辑器界面_修正地图 是不是true,如果是true表明地图有更正过地图，否则就不予保存（表明没有修改过，不需要保存，以免重复保存造成错误。）
通过这个地图编辑器，可以绘制自己想要的地图。并且经过扩展，比如增加道具，增加怪物等，可以绘制一本出色的RPG游戏。

在timerDraw子程序中的代码如下：

'保存地图处理
        If 地图编辑器界面按钮按下标志_保存地图 = True And 地图编辑器界面_临时地图标志 = True Then
        
        地图编辑器界面按钮按下标志_保存地图 = False
        
'        If 地图编辑器界面_修正地图 = False Then
        
       地图最大层号 = 地图最大层号 + 1
'       End If
       
        写地图数据_保存
         
        地图编辑器界面_临时地图标志 = False
        地图编辑器界面_修正地图 = False
        
        DrawText "保存" & 地图最大层号 & "#地图成功!", 150, 500, xgGREEN
       Else
       
          地图编辑器界面按钮按下标志_保存地图 = False
        End If

写地图保存代码如下：

Sub 写地图数据_保存() '地图编辑器时调用

Dim j As Integer
Dim k As Integer

iniFileName = "map"

If 地图最大层号 > 地图层号 Then 地图层号 = 地图最大层号


SetIniN "地图", "总数", 地图最大层号

For k = 0 To 12

SetIniS 地图最大层号 & "#", "地图数据(" & k & ")", 地图数据(k)

Next k

'Next j
End Sub

Sub 写地图数据_恢复数据()

Dim j As Integer
Dim k As Integer



iniFileName = "map"
 
SetIniN "地图", "总数", 28


For j = 1 To 28

选择地图数据 (j)

For k = 0 To 12

SetIniS j & "#", "地图数据(" & k & ")", 地图数据(k)

Next k




Next j



End Sub

以上工作就是整个地图编辑器的流程。简单明了，除了代码有点烂，^_____