魔塔之拯救白娘子 完整工程下载地址:
《魔塔之拯救白娘子》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
以上工作就是整个地图编辑器的流程。简单明了,除了代码有点烂,_____