GOM引擎混沌神塔脚本，传奇一条龙测试期间副本暂未开放脚本命令
[@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
页:
[1]