传奇sf一条龙启动服务端时加载脚本，传奇开新区时自动创建目录教程。

admin

[@加载]
{

;传送光圈

#IF
#ACT
MAPEFFECT 散人打宝  62   93   17  0  12 -1 100 0
MAPEFFECT 散人打宝  375  141  17  20 12 -1 100 0

MAPEFFECT 奇迹荒原  70   62   17  0  12 -1 100 0
MAPEFFECT 奇迹荒原  261  94   17  20 12 -1 100 0

MAPEFFECT 噬血沼泽  69   59   17  0  12 -1 100 0
MAPEFFECT 噬血沼泽  192  65   17  20 12 -1 100 0

MAPEFFECT 幽魂古镇  70   43   17  0  12 -1 100 0
MAPEFFECT 幽魂古镇  260  49   17  20 12 -1 100 0

MAPEFFECT 炼狱沙漠  45   23   17  0  12 -1 100 0
MAPEFFECT 炼狱沙漠  169  43   17  20 12 -1 100 0

MAPEFFECT 主宰灵域  63   43   17  0  12 -1 100 0
MAPEFFECT 主宰灵域  210  67   17  20 12 -1 100 0


MAPEFFECT 洪荒领地  64   45   17  0  12 -1 100 0
MAPEFFECT 洪荒领地  205  61   17  20 12 -1 100 0

MAPEFFECT 洪荒领地  36   197  17  50 12 -1 100 0
MAPEFFECT 洪荒领地  217  205  17  50 12 -1 100 0


MAPEFFECT 神话世界  31   32   17  0  12 -1 100 0
MAPEFFECT 神话世界  185  40   17  20 12 -1 100 0

MAPEFFECT 神话世界  15   199  17  50 12 -1 100 0
MAPEFFECT 神话世界  189  195  17  50 12 -1 100 0


MAPEFFECT 鬼王殿堂  280  40   17  20 12 -1 100 0

MAPEFFECT 鬼王殿堂  27   34   17  50 12 -1 100 0
MAPEFFECT 鬼王殿堂  24   273  17  50 12 -1 100 0
MAPEFFECT 鬼王殿堂  282  243  17  50 12 -1 100 0

;----------------------------------------------

#IF
EQUAL A100
#ACT
MOV A100 <$MONTH>0<$DAY>

#if
equal G82 0
#act
MOV G82 1
MOV G80 300
MOV G81 121


#IF
NOT CHECKTEXTLIST ..\..\..\..\捐献文件\<$STR(A100)>\检测是否已经创建目录.txt 已创建目录
#act
ForceDirectories  ..\..\..\..\捐献文件\
ForceDirectories  ..\..\..\..\捐献文件\<$MONTH>0<$DAY>\
CreateFile ..\..\..\..\捐献文件\<$STR(A100)>\检测是否已经创建目录.txt
AddTextListEx ..\..\..\..\捐献文件\<$STR(A100)>\检测是否已经创建目录.txt 已创建目录 0
CreateFile ..\..\..\..\捐献文件\<$STR(A100)>\当前01区.txt
CreateFile ..\..\..\..\捐献文件\<$STR(A100)>\当前02区.txt
CreateFile ..\..\..\..\捐献文件\<$STR(A100)>\当前03区.txt
CreateFile ..\..\..\..\捐献文件\<$STR(A100)>\当前04区.txt
CreateFile ..\..\..\..\捐献文件\<$STR(A100)>\当前05区.txt
AddTextListEx ..\..\..\..\捐献文件\<$STR(A100)>\当前01区.txt 当前一区:0 0
AddTextListEx ..\..\..\..\捐献文件\<$STR(A100)>\当前02区.txt 当前二区:0 0
AddTextListEx ..\..\..\..\捐献文件\<$STR(A100)>\当前03区.txt 当前三区:0 0
AddTextListEx ..\..\..\..\捐献文件\<$STR(A100)>\当前04区.txt 当前四区:0 0
AddTextListEx ..\..\..\..\捐献文件\<$STR(A100)>\当前05区.txt 当前五区:0 0
break