GOM引擎混沌神塔脚本，传奇一条龙测试期间副本暂未开放脚本命令司徒

admin

[@Main]　　#IF
　　CHECKTEXTLIST ..\QuestDiary\测试奖励\服务器状态控制.txt 测试
　　#Act
　　MESSAGEBOX [操作提示]:\　\　　　　　　测试期间副本暂未开放......
　　Break
　　#IF
　　CHECKTEXTLIST ..\QuestDiary\测试奖励\服务器状态控制.txt 开区
　　#Act
　　CloseBigDialogBox
　　Goto @混沌神塔数据获取
　　MOV N$资源序号                        14
　　MOV N$背景图片序号                921
　　MOV N$装备展示特效开始图号        910
　　MOV S$装备展示1                ‹Img:623:20:22:-120|251#爆率物品：本服所有装备>
　　MOV S$装备展示2                ‹Img:624:20:38:-120|251#爆率物品：本服所有装备>
　　MOV S$装备展示3                ‹Img:591:20:52:-120|251#爆率物品：本服所有特殊>
　　MOV S$装备展示4                ‹Img:534:20:66:-116|251#爆率物品：本服所有生肖>
　　MOV S$装备展示5                ‹Img:75:20:84:-120|251#爆率物品：本服所有技能书>
　　MOV S$进入地图按钮        ‹imgex:‹$Str(N$资源序号)>:901:902:901:320:-140|^-^251#进入需要10人民币^-^/@进入地图>
　　OPENMERCHANTBIGDLG ‹$str(N$资源序号)> ‹$str(N$背景图片序号)> 1 4 15 -60 1 720 11
　　HCALL ‹$USERNAME> @每日刷新混沌神塔
　　#say
　　\　\　\　\
　　{第一名：‹$str(S$跨区混沌神塔区服0)>‹$str(S$跨区混沌神塔名称0)>        ‹$str(S$跨区混沌神塔层数0)>层 /fcolor=243}\　\
　　{第二名：‹$str(S$跨区混沌神塔区服1)>‹$str(S$跨区混沌神塔名称1)>        ‹$str(S$跨区混沌神塔层数1)>层 /fcolor=251}\　\
　　{第三名：‹$str(S$跨区混沌神塔区服2)>‹$str(S$跨区混沌神塔名称2)>        ‹$str(S$跨区混沌神塔层数2)>层 /fcolor=253}\　\
　　{第四名：‹$str(S$跨区混沌神塔区服3)>‹$str(S$跨区混沌神塔名称3)>        ‹$str(S$跨区混沌神塔层数3)>层 /fcolor=146}\　\
　　{第五名：‹$str(S$跨区混沌神塔区服4)>‹$str(S$跨区混沌神塔名称4)>        ‹$str(S$跨区混沌神塔层数4)>层 /fcolor=250}\　\
　　{‹$str(S$当前名次)> /fcolor=249}\　\　\　\　\
　　{ ‹$str(N$混沌神塔奖池总额)>/fcolor=243}‹元/fcolor=250>\
　　{ ‹$str(N$混沌神塔奖励1)>/fcolor=242}{元/fcolor=243}\
　　{ ‹$str(N$混沌神塔奖励2)>/fcolor=242}{元/fcolor=251}\
　　{ ‹$str(N$混沌神塔奖励3)>/fcolor=242}{元/fcolor=253}\
　　{ ‹$str(N$混沌神塔奖励4)>/fcolor=242}{元/fcolor=146}\
　　{ ‹$str(N$混沌神塔奖励5)>/fcolor=242}{元/fcolor=250}\
　　\　\　\　\
　　‹playimg:‹$str(N$资源序号)>:‹$str(N$装备展示特效开始图号)>:10:200:8:-119:0:0>
　　‹playimg:‹$str(N$资源序号)>:‹$str(N$装备展示特效开始图号)>:10:200:-2:-119:0:0>
　　‹playimg:‹$str(N$资源序号)>:‹$str(N$装备展示特效开始图号)>:10:200:-14:-119:0:0>
　　‹playimg:‹$str(N$资源序号)>:‹$str(N$装备展示特效开始图号)>:10:200:-24:-119:0:0>
　　‹playimg:‹$str(N$资源序号)>:‹$str(N$装备展示特效开始图号)>:10:200:-36:-119:0:0>\
　　‹$str(S$装备展示1)>
　　‹$str(S$装备展示2)>
　　‹$str(S$装备展示3)>
　　‹$str(S$装备展示4)>
　　‹$str(S$装备展示5)>\
　　‹$str(S$进入地图按钮)>‹imgex:‹$str(N$资源序号)>:898:899:900:415:-97|-^250#昨日总奖池:‹$str(N$昨日总奖池)>元^-^
　　243#第一名:‹$str(S$昨日混沌神塔区服0)>‹$str(S$昨日混沌神塔名称0)>        奖励金额:‹$str(S$昨日混沌神塔奖励0)>     领取状态:‹$str(S$领取状态0)>^-^
　　251#第二名:‹$str(S$昨日混沌神塔区服1)>‹$str(S$昨日混沌神塔名称1)>        奖励金额:‹$str(S$昨日混沌神塔奖励1)>     领取状态:‹$str(S$领取状态1)>^-^
　　253#第三名:‹$str(S$昨日混沌神塔区服2)>‹$str(S$昨日混沌神塔名称2)>        奖励金额:‹$str(S$昨日混沌神塔奖励2)>     领取状态:‹$str(S$领取状态2)>^-^
　　254#第四名:‹$str(S$昨日混沌神塔区服3)>‹$str(S$昨日混沌神塔名称3)>        奖励金额:‹$str(S$昨日混沌神塔奖励3)>     领取状态:‹$str(S$领取状态3)>^-^
　　250#第五名:‹$str(S$昨日混沌神塔区服4)>‹$str(S$昨日混沌神塔名称4)>        奖励金额:‹$str(S$昨日混沌神塔奖励4)>     领取状态:‹$str(S$领取状态4)>^-/@领取奖励>
　　[@领取奖励]
　　#IF
　　equal T4
　　#act
　　messagebox 你尚未进入昨日排名.
　　break
　　#IF
　　checkcontainstextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[已领取]
　　#act
　　messagebox 你已经领取过了奖励.
　　break
　　#IF
　　NOT checkcontainstextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[未领取]
　　#act
　　messagebox 你尚未进入昨日排名.
　　break
　　#if
　　#ACT
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 0 S$领取判断0 N$领取金额0
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 1 S$领取判断1 N$领取金额1
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 2 S$领取判断2 N$领取金额2
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 3 S$领取判断3 N$领取金额3
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 4 S$领取判断4 N$领取金额4
　　#IF
　　equal S$领取判断0 ‹$str(T4)>[未领取]
　　#act
　　gamepoint + ‹$str(N$领取金额0)>
　　Getrandomtext ..\QuestDiary\功能文件\给于项链.txt S$给于项链
　　Give ‹$STR(S$给于项链)> 1
　　Getrandomtext ..\QuestDiary\功能文件\给于装备.txt S$给于装备
　　Give ‹$STR(S$给于装备)> 1
　　addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt ‹混沌神塔排名奖励:/FCOLOR=224>恭喜昨日混沌神塔第一名‹≮‹$SERVERNAME>≯/FCOLOR=224>玩家‹“‹$USERNAME>”/FCOLOR=253>成功领取“‹混沌神塔排名第一/FCOLOR=242>”奖励“{‹$str(N$领取金额0)>RMB点以及[‹$STR(S$给于项链)>]一条+[‹$STR(S$给于装备)>]一件../FCOLOR=254}”.. 0
　　deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[未领取]:‹$str(N$领取金额0)>
　　deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
　　addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[已领取]:‹$str(N$领取金额0)> 0
　　goto @main
　　break
　　#IF
　　equal S$领取判断1 ‹$str(T4)>[未领取]
　　#act
　　gamepoint + ‹$str(N$领取金额1)>
　　addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt ‹混沌神塔排名奖励:/FCOLOR=224>恭喜昨日混沌神塔第二名‹≮‹$SERVERNAME>≯/FCOLOR=224>玩家‹“‹$USERNAME>”/FCOLOR=253>成功领取“‹混沌神塔排名第二/FCOLOR=242>”奖励“{‹$str(N$领取金额1)>RMB点/FCOLOR=254}”.. 0
　　deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[未领取]:‹$str(N$领取金额1)>
　　deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
　　addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[已领取]:‹$str(N$领取金额1)> 1
　　goto @main
　　break
　　#IF
　　equal S$领取判断2 ‹$str(T4)>[未领取]
　　#act
　　gamepoint + ‹$str(N$领取金额2)>
　　addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt ‹混沌神塔排名奖励:/FCOLOR=224>恭喜昨日混沌神塔第三名‹≮‹$SERVERNAME>≯/FCOLOR=224>玩家‹“‹$USERNAME>”/FCOLOR=253>成功领取“‹混沌神塔排名第三/FCOLOR=242>”奖励“{‹$str(N$领取金额2)>RMB点/FCOLOR=254}”.. 0
　　deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[未领取]:‹$str(N$领取金额2)>
　　deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
　　addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[已领取]:‹$str(N$领取金额2)> 2
　　goto @main
　　break
　　#IF
　　equal S$领取判断3 ‹$str(T4)>[未领取]
　　#act
　　gamepoint + ‹$str(N$领取金额3)>
　　addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt ‹混沌神塔排名奖励:/FCOLOR=224>恭喜昨日混沌神塔第四名‹≮‹$SERVERNAME>≯/FCOLOR=224>玩家‹“‹$USERNAME>”/FCOLOR=253>成功领取“‹混沌神塔排名第四/FCOLOR=242>”奖励“{‹$str(N$领取金额3)>RMB点/FCOLOR=254}”.. 0
　　deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[未领取]:‹$str(N$领取金额3)>
　　deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
　　addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[已领取]:‹$str(N$领取金额3)> 3
　　goto @main
　　break
　　#IF
　　equal S$领取判断4 ‹$str(T4)>[未领取]
　　#act
　　gamepoint + ‹$str(N$领取金额4)>
　　addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt ‹混沌神塔排名奖励:/FCOLOR=224>恭喜昨日混沌神塔第五名‹≮‹$SERVERNAME>≯/FCOLOR=224>玩家‹“‹$USERNAME>”/FCOLOR=253>成功领取“‹混沌神塔排名第五/FCOLOR=242>”奖励“{‹$str(N$领取金额4)>RMB点/FCOLOR=254}”.. 0
　　deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[未领取]:‹$str(N$领取金额4)>
　　deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
　　addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt ‹$str(T4)>[已领取]:‹$str(N$领取金额4)> 4
　　goto @main
　　break
　　[@进入地图]
　　#IF
　　CHECKTEXTLIST ..\QuestDiary\测试奖励\服务器状态控制.txt 测试
　　#Act
　　MESSAGEBOX [操作提示]:\　\　　　　　　测试期间副本暂未开放......
　　Break
　　#IF
　　checkgamepoint ‹ 10
　　#act
　　MESSAGEBOX 进入失败：\\RMB点不足10元！
　　break
　　#IF
　　#act
　　HCALL ‹$USERNAME> @个人序号获取
　　#if
　　#act
　　gamepoint - 10
　　MOV N$混沌神塔金额累计 10
　　MOVR N$随机 0 1000000
　　MOV N$混沌神塔当前层 1
　　MOV S$混沌神塔地图号 当前层‹$str(N$混沌神塔当前层)>x‹$username>x‹$str(N$随机)>x‹$day>x‹$hour>x‹$minute>
　　ADDMIRRORMAP T339 ‹$str(S$混沌神塔地图号)> 跨服混沌神塔‹$str(N$混沌神塔当前层)>层 3600 0159 9999
　　mongenex ‹$str(S$混沌神塔地图号)> 20 23 通天教主88001 5 1 0 251
　　CreateNPC 混沌神塔 ‹$str(S$混沌神塔地图号)> 20 23 15 混沌神塔内 1
　　map ‹$str(S$混沌神塔地图号)>
　　HCALL ‹$USERNAME> @每日刷新混沌神塔
　　HCALL ‹$USERNAME> @混沌神塔层数记录
　　[@混沌神塔数据获取]
　　IF
　　#ACT
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 5 N$昨日总奖池
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt 0 S$昨日混沌神塔名称0 S$无效
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt 0 S$昨日混沌神塔区服0 S$无效
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 0 S$领取状态0 S$昨日混沌神塔奖励0
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt 1 S$昨日混沌神塔名称1 S$无效
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt 1 S$昨日混沌神塔区服1 S$无效
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 1 S$领取状态1 S$昨日混沌神塔奖励1
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt 2 S$昨日混沌神塔名称2 S$无效
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt 2 S$昨日混沌神塔区服2 S$无效
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 2 S$领取状态2 S$昨日混沌神塔奖励2
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt 3 S$昨日混沌神塔名称3 S$无效
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt 3 S$昨日混沌神塔区服3 S$无效
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 3 S$领取状态3 S$昨日混沌神塔奖励3
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt 4 S$昨日混沌神塔名称4 S$无效
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt 4 S$昨日混沌神塔区服4 S$无效
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt 4 S$领取状态4 S$昨日混沌神塔奖励4
　　INC S$昨日混沌神塔奖励0 元
　　INC S$昨日混沌神塔奖励1 元
　　INC S$昨日混沌神塔奖励2 元
　　INC S$昨日混沌神塔奖励3 元
　　INC S$昨日混沌神塔奖励4 元
　　DEC S$领取状态0 1 5
　　DEC S$领取状态1 1 5
　　DEC S$领取状态2 1 5
　　DEC S$领取状态3 1 5
　　DEC S$领取状态4 1 5
　　DEC S$昨日混沌神塔区服0 1 5
　　DEC S$昨日混沌神塔区服1 1 5
　　DEC S$昨日混沌神塔区服2 1 5
　　DEC S$昨日混沌神塔区服3 1 5
　　DEC S$昨日混沌神塔区服4 1 5
　　DEC S$昨日混沌神塔名称0 1 5
　　DEC S$昨日混沌神塔名称1 1 5
　　DEC S$昨日混沌神塔名称2 1 5
　　DEC S$昨日混沌神塔名称3 1 5
　　DEC S$昨日混沌神塔名称4 1 5
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\奖池金额.txt 0 N$混沌神塔奖池总额
　　MOV N$混沌神塔奖励1 ‹$str(N$混沌神塔奖池总额)>
　　MOV N$混沌神塔奖励2 ‹$str(N$混沌神塔奖池总额)>
　　MOV N$混沌神塔奖励3 ‹$str(N$混沌神塔奖池总额)>
　　MOV N$混沌神塔奖励4 ‹$str(N$混沌神塔奖池总额)>
　　MOV N$混沌神塔奖励5 ‹$str(N$混沌神塔奖池总额)>
　　MUL N$混沌神塔奖励1 15
　　MUL N$混沌神塔奖励2 10
　　MUL N$混沌神塔奖励3 8
　　MUL N$混沌神塔奖励4 5
　　MUL N$混沌神塔奖励5 3
　　DIV N$混沌神塔奖励1 100
　　DIV N$混沌神塔奖励2 100
　　DIV N$混沌神塔奖励3 100
　　DIV N$混沌神塔奖励4 100
　　DIV N$混沌神塔奖励5 100
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt 0 S$跨区混沌神塔区服0
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt 1 S$跨区混沌神塔区服1
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt 2 S$跨区混沌神塔区服2
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt 3 S$跨区混沌神塔区服3
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt 4 S$跨区混沌神塔区服4
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt 0 S$跨区混沌神塔名称0 S$跨区混沌神塔层数0
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt 1 S$跨区混沌神塔名称1 S$跨区混沌神塔层数1
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt 2 S$跨区混沌神塔名称2 S$跨区混沌神塔层数2
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt 3 S$跨区混沌神塔名称3 S$跨区混沌神塔层数3
　　getliststring ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt 4 S$跨区混沌神塔名称4 S$跨区混沌神塔层数4
　　DEC S$跨区混沌神塔区服0 1 5
　　DEC S$跨区混沌神塔区服1 1 5
　　DEC S$跨区混沌神塔区服2 1 5
　　DEC S$跨区混沌神塔区服3 1 5
　　DEC S$跨区混沌神塔区服4 1 5
　　DEC S$跨区混沌神塔名称0 1 5
　　DEC S$跨区混沌神塔名称1 1 5
　　DEC S$跨区混沌神塔名称2 1 5
　　DEC S$跨区混沌神塔名称3 1 5
　　DEC S$跨区混沌神塔名称4 1 5
　　MOV S$输入字符 ‹$str(S$跨区混沌神塔层数0)>
　　goto @混沌神塔层数计算
　　MOV S$跨区混沌神塔层数0 ‹$str(S$输入字符)>
　　MOV S$输入字符 ‹$str(S$跨区混沌神塔层数1)>
　　goto @混沌神塔层数计算
　　MOV S$跨区混沌神塔层数1 ‹$str(S$输入字符)>
　　MOV S$输入字符 ‹$str(S$跨区混沌神塔层数2)>
　　goto @混沌神塔层数计算
　　MOV S$跨区混沌神塔层数2 ‹$str(S$输入字符)>
　　MOV S$输入字符 ‹$str(S$跨区混沌神塔层数3)>
　　goto @混沌神塔层数计算
　　MOV S$跨区混沌神塔层数3 ‹$str(S$输入字符)>
　　MOV S$输入字符 ‹$str(S$跨区混沌神塔层数4)>
　　goto @混沌神塔层数计算
　　MOV S$跨区混沌神塔层数4 ‹$str(S$输入字符)>
　　setstringblank S$跨区混沌神塔区服0 25 1
　　setstringblank S$跨区混沌神塔区服1 25 1
　　setstringblank S$跨区混沌神塔区服2 25 1
　　setstringblank S$跨区混沌神塔区服3 25 1
　　setstringblank S$跨区混沌神塔区服4 25 1
　　setstringblank S$跨区混沌神塔名称0 15 1
　　setstringblank S$跨区混沌神塔名称1 15 1
　　setstringblank S$跨区混沌神塔名称2 15 1
　　setstringblank S$跨区混沌神塔名称3 15 1
　　setstringblank S$跨区混沌神塔名称4 15 1
　　setstringblank S$跨区混沌神塔层数0 4 0
　　setstringblank S$跨区混沌神塔层数1 4 0
　　setstringblank S$跨区混沌神塔层数2 4 0
　　setstringblank S$跨区混沌神塔层数3 4 0
　　setstringblank S$跨区混沌神塔层数4 4 0
　　getstringpos ..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt ‹$STR(T4)>‹$USERNAME>:‹$str(U2)>‹$str(T4)>
　　INC N0 1
　　MOV S$当前名次 第‹$str(N0)>名
　　#IF
　　large N0 99999
　　#act
　　MOV S$当前名次 未上榜
　　#IF
　　EQUAL S$昨日混沌神塔名称0
　　#act
　　MOV S$昨日混沌神塔区服0 暂无当前排名记录
　　MOV S$昨日混沌神塔奖励0 暂无排名
　　MOV S$领取状态0 [无记录]
　　#IF
　　EQUAL S$昨日混沌神塔名称1
　　#act
　　MOV S$昨日混沌神塔区服1 暂无当前排名记录
　　MOV S$昨日混沌神塔奖励1 暂无排名
　　MOV S$领取状态1 [无记录]
　　#IF
　　EQUAL S$昨日混沌神塔名称2
　　#act
　　MOV S$昨日混沌神塔区服2 暂无当前排名记录
　　MOV S$昨日混沌神塔奖励2 暂无排名
　　MOV S$领取状态2 [无记录]
　　#IF
　　EQUAL S$昨日混沌神塔名称3
　　#act
　　MOV S$昨日混沌神塔区服3 暂无当前排名记录
　　MOV S$昨日混沌神塔奖励3 暂无排名
　　MOV S$领取状态3 [无记录]
　　#IF
　　EQUAL S$昨日混沌神塔名称4
　　#act
　　MOV S$昨日混沌神塔区服4 暂无当前排名记录
　　MOV S$昨日混沌神塔奖励4 暂无排名
　　MOV S$领取状态4 [无记录]
　　#IF
　　#act
　　setstringblank S$昨日混沌神塔区服0 25 1
　　setstringblank S$昨日混沌神塔区服1 25 1
　　setstringblank S$昨日混沌神塔区服2 25 1
　　setstringblank S$昨日混沌神塔区服3 25 1
　　setstringblank S$昨日混沌神塔区服4 25 1
　　setstringblank S$昨日混沌神塔名称0 15 1
　　setstringblank S$昨日混沌神塔名称1 15 1
　　setstringblank S$昨日混沌神塔名称2 15 1
　　setstringblank S$昨日混沌神塔名称3 15 1
　　setstringblank S$昨日混沌神塔名称4 15 1
　　setstringblank S$昨日混沌神塔奖励0 9 1
　　setstringblank S$昨日混沌神塔奖励1 9 1
　　setstringblank S$昨日混沌神塔奖励2 9 1
　　setstringblank S$昨日混沌神塔奖励3 9 1
　　setstringblank S$昨日混沌神塔奖励4 9 1
　　[@混沌神塔层数计算]
　　#IF
　　checkstringlength ‹$str(S$输入字符)> = 8
　　#act
　　DEC S$输入字符 4 99
　　break
　　#IF
　　checkstringlength ‹$str(S$输入字符)> = 7
　　#act
　　DEC S$输入字符 3 99
　　break
　　#IF
　　checkstringlength ‹$str(S$输入字符)> = 6
　　#act
　　DEC S$输入字符 2 99
　　break
　　#IF
　　checkstringlength ‹$str(S$输入字符)> = 9
　　#act
　　DEC S$输入字符 5 99
　　break
　　#IF
　　checkstringlength ‹$str(S$输入字符)> = 10
　　#act
　　DEC S$输入字符 6 99
　　break