'光明之魂2黑暗法师变身金手指生成工具
'把下面这段代码用记事本保存为 .vbs 文件，然后双击
'输入要变成的怪物的编号后，会在E:\生成SS2.txt，里面就是金手指代码

Dim no, hexno
Set file = CreateObject("Scripting.FileSystemObject")
Set txt = file.CreateTextFile("e:\SS2.txt") '输出文件的路径，可改
txt.write("开始变身（时间无限）"&vbCrLf&"0200965C:04B0"&vbCrLf&"02009660:04"&vbCrLf&"02009662:")
no=InputBox("请输入要变成的怪物的编号", "光明之魂2黑暗法师变身金手指"&vbCrLf)
if no<8 then
no=no-1
elseif no=8 then no=8
elseif no=9 then no=10
elseif no<33 then no=no+8
elseif no<143 then no=no+9
elseif no=143 then no=153
elseif no=144 then no=155
else no=169
end if
hexno=Hex(no)
if len(hexno)=1 then hexno="0"+hexno
txt.write(hexno&vbCrLf&vbCrLf&"取消变身"&vbCrLf&"0200965C:0000"&vbCrLf&"02009660:00")