当前位置 : 745v传奇网 | 传奇教程 | 

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

来源: 作者: 点击:
[@Main]
#IF
CHECKTEXTLIST..\QuestDiary\测试奖励\服务器状态控制.txt测试
#Act
MESSAGEBOX[操作提示]:\ \      测试期间副本暂未开放......
Break

#IF
CHECKTEXTLIST..\QuestDiary\测试奖励\服务器状态控制.txt开区
#Act
CloseBigDialogBox
Goto@混沌神塔数据获取
MOVN$资源序号14
MOVN$背景图片序号921
MOVN$装备展示特效开始图号910
MOVS$装备展示1<Img:623:20:22:-120|251#爆率物品:本服所有装备>
MOVS$装备展示2<Img:624:20:38:-120|251#爆率物品:本服所有装备>
MOVS$装备展示3<Img:591:20:52:-120|251#爆率物品:本服所有特殊>
MOVS$装备展示4<Img:534:20:66:-116|251#爆率物品:本服所有生肖>
MOVS$装备展示5<Img:75:20:84:-120|251#爆率物品:本服所有技能书>
MOVS$进入地图按钮<imgex:<$Str(N$资源序号)>:901:902:901:320:-140|^-^251#进入需要10人民币^-^/@进入地图>

OPENMERCHANTBIGDLG<$str(N$资源序号)><$str(N$背景图片序号)>1415-60172011
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
equalT4
#act
messagebox你尚未进入昨日排名.
break

#IF
checkcontainstextlist..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt<$str(T4)>[已领取]
#act
messagebox你已经领取过了奖励.
break

#IF
NOTcheckcontainstextlist..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt<$str(T4)>[未领取]
#act
messagebox你尚未进入昨日排名.
break

#if
#ACT
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt0S$领取判断0N$领取金额0
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt1S$领取判断1N$领取金额1
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt2S$领取判断2N$领取金额2
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt3S$领取判断3N$领取金额3
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt4S$领取判断4N$领取金额4

#IF
equalS$领取判断0<$str(T4)>[未领取]
#act
gamepoint+<$str(N$领取金额0)>
Getrandomtext..\QuestDiary\功能文件\给于项链.txtS$给于项链
Give<$STR(S$给于项链)>1
Getrandomtext..\QuestDiary\功能文件\给于装备.txtS$给于装备
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
equalS$领取判断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
equalS$领取判断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
equalS$领取判断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
equalS$领取判断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
MOVN$混沌神塔金额累计10
MOVRN$随机01000000
MOVN$混沌神塔当前层1
MOVS$混沌神塔地图号当前层<$str(N$混沌神塔当前层)>x<$username>x<$str(N$随机)>x<$day>x<$hour>x<$minute>
ADDMIRRORMAPT339<$str(S$混沌神塔地图号)>跨服混沌神塔<$str(N$混沌神塔当前层)>层360001599999
mongenex<$str(S$混沌神塔地图号)>2023通天教主88001510251
CreateNPC混沌神塔<$str(S$混沌神塔地图号)>202315混沌神塔内1
map<$str(S$混沌神塔地图号)>
HCALL<$USERNAME>@每日刷新混沌神塔
HCALL<$USERNAME>@混沌神塔层数记录

[@混沌神塔数据获取]
IF
#ACT
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt5N$昨日总奖池
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt0S$昨日混沌神塔名称0S$无效
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt0S$昨日混沌神塔区服0S$无效
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt0S$领取状态0S$昨日混沌神塔奖励0
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt1S$昨日混沌神塔名称1S$无效
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt1S$昨日混沌神塔区服1S$无效
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt1S$领取状态1S$昨日混沌神塔奖励1
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt2S$昨日混沌神塔名称2S$无效
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt2S$昨日混沌神塔区服2S$无效
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt2S$领取状态2S$昨日混沌神塔奖励2
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt3S$昨日混沌神塔名称3S$无效
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt3S$昨日混沌神塔区服3S$无效
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt3S$领取状态3S$昨日混沌神塔奖励3
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日排行记录A.txt4S$昨日混沌神塔名称4S$无效
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日排行记录B.txt4S$昨日混沌神塔区服4S$无效
getliststring..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt4S$领取状态4S$昨日混沌神塔奖励4
INCS$昨日混沌神塔奖励0元
INCS$昨日混沌神塔奖励1元
INCS$昨日混沌神塔奖励2元
INCS$昨日混沌神塔奖励3元
INCS$昨日混沌神塔奖励4元
DECS$领取状态015
DECS$领取状态115
DECS$领取状态215
DECS$领取状态315
DECS$领取状态415
DECS$昨日混沌神塔区服015
DECS$昨日混沌神塔区服115
DECS$昨日混沌神塔区服215
DECS$昨日混沌神塔区服315
DECS$昨日混沌神塔区服415
DECS$昨日混沌神塔名称015
DECS$昨日混沌神塔名称115
DECS$昨日混沌神塔名称215
DECS$昨日混沌神塔名称315
DECS$昨日混沌神塔名称415


getliststring..\..\..\..\通区文本\通区混沌神塔\奖池金额.txt0N$混沌神塔奖池总额
MOVN$混沌神塔奖励1<$str(N$混沌神塔奖池总额)>
MOVN$混沌神塔奖励2<$str(N$混沌神塔奖池总额)>
MOVN$混沌神塔奖励3<$str(N$混沌神塔奖池总额)>
MOVN$混沌神塔奖励4<$str(N$混沌神塔奖池总额)>
MOVN$混沌神塔奖励5<$str(N$混沌神塔奖池总额)>
MULN$混沌神塔奖励115
MULN$混沌神塔奖励210
MULN$混沌神塔奖励38
MULN$混沌神塔奖励45
MULN$混沌神塔奖励53
DIVN$混沌神塔奖励1100
DIVN$混沌神塔奖励2100
DIVN$混沌神塔奖励3100
DIVN$混沌神塔奖励4100
DIVN$混沌神塔奖励5100

getliststring..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt0S$跨区混沌神塔区服0
getliststring..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt1S$跨区混沌神塔区服1
getliststring..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt2S$跨区混沌神塔区服2
getliststring..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt3S$跨区混沌神塔区服3
getliststring..\..\..\..\通区文本\通区混沌神塔\跨区排行记录B.txt4S$跨区混沌神塔区服4

getliststring..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt0S$跨区混沌神塔名称0S$跨区混沌神塔层数0
getliststring..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt1S$跨区混沌神塔名称1S$跨区混沌神塔层数1
getliststring..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt2S$跨区混沌神塔名称2S$跨区混沌神塔层数2
getliststring..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt3S$跨区混沌神塔名称3S$跨区混沌神塔层数3
getliststring..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt4S$跨区混沌神塔名称4S$跨区混沌神塔层数4

DECS$跨区混沌神塔区服015
DECS$跨区混沌神塔区服115
DECS$跨区混沌神塔区服215
DECS$跨区混沌神塔区服315
DECS$跨区混沌神塔区服415

DECS$跨区混沌神塔名称015
DECS$跨区混沌神塔名称115
DECS$跨区混沌神塔名称215
DECS$跨区混沌神塔名称315
DECS$跨区混沌神塔名称415

MOVS$输入字符<$str(S$跨区混沌神塔层数0)>
goto@混沌神塔层数计算
MOVS$跨区混沌神塔层数0<$str(S$输入字符)>
MOVS$输入字符<$str(S$跨区混沌神塔层数1)>
goto@混沌神塔层数计算
MOVS$跨区混沌神塔层数1<$str(S$输入字符)>
MOVS$输入字符<$str(S$跨区混沌神塔层数2)>
goto@混沌神塔层数计算
MOVS$跨区混沌神塔层数2<$str(S$输入字符)>
MOVS$输入字符<$str(S$跨区混沌神塔层数3)>
goto@混沌神塔层数计算
MOVS$跨区混沌神塔层数3<$str(S$输入字符)>
MOVS$输入字符<$str(S$跨区混沌神塔层数4)>
goto@混沌神塔层数计算
MOVS$跨区混沌神塔层数4<$str(S$输入字符)>

setstringblankS$跨区混沌神塔区服0251
setstringblankS$跨区混沌神塔区服1251
setstringblankS$跨区混沌神塔区服2251
setstringblankS$跨区混沌神塔区服3251
setstringblankS$跨区混沌神塔区服4251
setstringblankS$跨区混沌神塔名称0151
setstringblankS$跨区混沌神塔名称1151
setstringblankS$跨区混沌神塔名称2151
setstringblankS$跨区混沌神塔名称3151
setstringblankS$跨区混沌神塔名称4151
setstringblankS$跨区混沌神塔层数040
setstringblankS$跨区混沌神塔层数140
setstringblankS$跨区混沌神塔层数240
setstringblankS$跨区混沌神塔层数340
setstringblankS$跨区混沌神塔层数440


getstringpos..\..\..\..\通区文本\通区混沌神塔\跨区排行记录A.txt<$STR(T4)><$USERNAME>:<$str(U2)><$str(T4)>
INCN01
MOVS$当前名次第<$str(N0)>名

#IF
largeN099999
#act
MOVS$当前名次未上榜


#IF
EQUALS$昨日混沌神塔名称0
#act
MOVS$昨日混沌神塔区服0暂无当前排名记录
MOVS$昨日混沌神塔奖励0暂无排名
MOVS$领取状态0[无记录]
#IF
EQUALS$昨日混沌神塔名称1
#act
MOVS$昨日混沌神塔区服1暂无当前排名记录
MOVS$昨日混沌神塔奖励1暂无排名
MOVS$领取状态1[无记录]
#IF
EQUALS$昨日混沌神塔名称2
#act
MOVS$昨日混沌神塔区服2暂无当前排名记录
MOVS$昨日混沌神塔奖励2暂无排名
MOVS$领取状态2[无记录]
#IF
EQUALS$昨日混沌神塔名称3
#act
MOVS$昨日混沌神塔区服3暂无当前排名记录
MOVS$昨日混沌神塔奖励3暂无排名
MOVS$领取状态3[无记录]
#IF
EQUALS$昨日混沌神塔名称4
#act
MOVS$昨日混沌神塔区服4暂无当前排名记录
MOVS$昨日混沌神塔奖励4暂无排名
MOVS$领取状态4[无记录]

#IF
#act
setstringblankS$昨日混沌神塔区服0251
setstringblankS$昨日混沌神塔区服1251
setstringblankS$昨日混沌神塔区服2251
setstringblankS$昨日混沌神塔区服3251
setstringblankS$昨日混沌神塔区服4251
setstringblankS$昨日混沌神塔名称0151
setstringblankS$昨日混沌神塔名称1151
setstringblankS$昨日混沌神塔名称2151
setstringblankS$昨日混沌神塔名称3151
setstringblankS$昨日混沌神塔名称4151
setstringblankS$昨日混沌神塔奖励091
setstringblankS$昨日混沌神塔奖励191
setstringblankS$昨日混沌神塔奖励291
setstringblankS$昨日混沌神塔奖励391
setstringblankS$昨日混沌神塔奖励491



[@混沌神塔层数计算]
#IF
checkstringlength<$str(S$输入字符)>=8
#act
DECS$输入字符499
break
#IF
checkstringlength<$str(S$输入字符)>=7
#act
DECS$输入字符399
break
#IF
checkstringlength<$str(S$输入字符)>=6
#act
DECS$输入字符299
break
#IF
checkstringlength<$str(S$输入字符)>=9
#act
DECS$输入字符599
break
#IF
checkstringlength<$str(S$输入字符)>=10
#act
DECS$输入字符699
break
[顶部]