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               
MOV S$装备展示2               
MOV S$装备展示3               
MOV S$装备展示4               
MOV S$装备展示5               
MOV S$进入地图按钮        

OPENMERCHANTBIGDLG   1 4 15 -60 1 720 11
HCALL  @每日刷新混沌神塔

#say
　\　\　\　\
　　　　　{第一名：        层 /fcolor=243}\　\
　　　　　{第二名：        层 /fcolor=251}\　\
　　　　　{第三名：        层 /fcolor=253}\　\
　　　　　{第四名：        层 /fcolor=146}\　\
　　　　　{第五名：        层 /fcolor=250}\　\
　                 { /fcolor=249}\　\　\　\　\
　                                                                                             { /fcolor=243}\
　                                                                                                              { /fcolor=242}{元/fcolor=243}\
　                                                                                                              { /fcolor=242}{元/fcolor=251}\
　                                                                                                              { /fcolor=242}{元/fcolor=253}\
　                                                                                                              { /fcolor=242}{元/fcolor=146}\
　                                                                                                              { /fcolor=242}{元/fcolor=250}\
　\　\　\　\




\




\



[@领取奖励]
#IF
equal T4
#act
messagebox 你尚未进入昨日排名.
break

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

#IF
NOT checkcontainstextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [未领取]
#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 [未领取]
#act
gamepoint +
Getrandomtext ..\QuestDiary\功能文件\给于项链.txt S$给于项链
Give  1
Getrandomtext ..\QuestDiary\功能文件\给于装备.txt S$给于装备
Give  1
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt 恭喜昨日混沌神塔第一名玩家成功领取“”奖励“{RMB点以及[]一条+[]一件../FCOLOR=254}”.. 0
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [未领取]:
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [已领取]: 0
goto @main
break

#IF
equal S$领取判断1 [未领取]
#act
gamepoint +
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt 恭喜昨日混沌神塔第二名玩家成功领取“”奖励“{RMB点/FCOLOR=254}”.. 0
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [未领取]:
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [已领取]: 1
goto @main
break

#IF
equal S$领取判断2 [未领取]
#act
gamepoint +
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt 恭喜昨日混沌神塔第三名玩家成功领取“”奖励“{RMB点/FCOLOR=254}”.. 0
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [未领取]:
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [已领取]: 2
goto @main
break

#IF
equal S$领取判断3 [未领取]
#act
gamepoint +
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt 恭喜昨日混沌神塔第四名玩家成功领取“”奖励“{RMB点/FCOLOR=254}”.. 0
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [未领取]:
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [已领取]: 3
goto @main
break

#IF
equal S$领取判断4 [未领取]
#act
gamepoint +
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\数据文件勿动\混沌神塔喇叭.txt 恭喜昨日混沌神塔第五名玩家成功领取“”奖励“{RMB点/FCOLOR=254}”.. 0
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [未领取]:
deltextlist ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt
addtextlistex ..\..\..\..\通区文本\通区混沌神塔\昨日奖励领取.txt [已领取]: 4
goto @main
break

[@进入地图]
#IF
CHECKTEXTLIST ..\QuestDiary\测试奖励\服务器状态控制.txt 测试
#Act
MESSAGEBOX [操作提示]:\　\　　　　　　测试期间副本暂未开放......
Break

#IF
checkgamepoint < 10
#act
MESSAGEBOX 进入失败：\\RMB点不足10元！
break

#IF
#act
HCALL  @个人序号获取

#if
#act
gamepoint - 10
MOV N$混沌神塔金额累计 10
MOVR N$随机 0 1000000
MOV N$混沌神塔当前层 1
MOV S$混沌神塔地图号 当前层xxxxx
ADDMIRRORMAP T339  跨服混沌神塔层 3600 0159 9999
mongenex  20 23 通天教主88001 5 1 0 251
CreateNPC 混沌神塔  20 23 15 混沌神塔内 1
map
HCALL  @每日刷新混沌神塔
HCALL  @混沌神塔层数记录

[@混沌神塔数据获取]
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
MOV N$混沌神塔奖励2
MOV N$混沌神塔奖励3
MOV N$混沌神塔奖励4
MOV N$混沌神塔奖励5
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$输入字符
goto @混沌神塔层数计算
MOV S$跨区混沌神塔层数0
MOV S$输入字符
goto @混沌神塔层数计算
MOV S$跨区混沌神塔层数1
MOV S$输入字符
goto @混沌神塔层数计算
MOV S$跨区混沌神塔层数2
MOV S$输入字符
goto @混沌神塔层数计算
MOV S$跨区混沌神塔层数3
MOV S$输入字符
goto @混沌神塔层数计算
MOV S$跨区混沌神塔层数4

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 :
INC N0 1
MOV S$当前名次 第名

#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  = 8
#act
DEC S$输入字符 4 99
break
#IF
checkstringlength  = 7
#act
DEC S$输入字符 3 99
break
#IF
checkstringlength  = 6
#act
DEC S$输入字符 2 99
break
#IF
checkstringlength  = 9
#act
DEC S$输入字符 5 99
break
#IF
checkstringlength  = 10
#act
DEC S$输入字符 6 99
break


来源：网络
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！