如何清空场景内所有事件？

winson7891

RT

S与D文件各需要怎么修改呢？

[发帖际遇]: winson7891帮周威信押镖，结果：偷得鸳鸯刀，转手卖得银两36。

[ 本帖最后由 winson7891 于 2009-12-17 18:39 编辑 ]

凶神恶煞

KGEDIT可以做到……
D*整理和场景导出导入都能做到这一点

winson7891

哦~~原来D文件整理就是清理的意思吗~~

[发帖际遇]: winson7891参加论坛才艺展示活动，其所展示的才艺被游戏制作团队看上，认为可以为游戏制作作出贡献，收编入队，增加声望4。

凶神大，D*清理之后还留下事件号啊~~怎么清理掉这些事件号~~

[ 本帖最后由 winson7891 于 2009-12-17 18:32 编辑 ]

KA

场景文件似乎除了事件层是-1，其他都是0
D文件似乎全部都是0

KA

Dim filenum As Long
Dim Sdata(64 - 1, 64 - 1, 4 - 1) As Integer
Dim Ddata(200 * 11 * 1, 0) As Integer
    For i = 0 To 64 - 1
        For j = 0 To 64 - 1
            Sdata(i, j, 3) = -1
        Next j
    Next i
        
    filenum = OpenBin(App.Path & "\s1.grp", "WN")
        Put filenum, , Sdata
    Close filenum
    filenum = OpenBin(App.Path & "\d1.grp", "WN")
        Put filenum, , Ddata
    Close filenum
MsgBox "Done"
End Sub
==========
这个是创建全新的S，D

[发帖际遇]: 黄顺坤做得名菜“茯苓花雕猪”，卖出获得银两15两。

[ 本帖最后由 黄顺坤 于 2009-12-17 18:36 编辑 ]

winson7891

明白了

[发帖际遇]: winson7891找到一柄破剑，经专家鉴定为独孤求败早年使用的不知名利剑，价值银两25。

听客

学习学习再学习！！！