冲级前三名脚本，完全和AFT相同，完全自己改的哦

GM版本库

1. [@升级触发]
   
2. #IF
   
3. CHECKLEVELEX = 48
   
4. #ACT
   
5. MAPMOVE 0 430 172
   
6. break
   
7. #IF
   
8. CHECKLEVELEX > 71
   
9. #ACT
   
10. GOTO @检测是不天人
    
11. CHANGELEVEL = 71
    
12. #IF
    
13. EQUAL $AmbitLevel 99
    
14. LARGE $AmbitKind 6
    
15. #ACT
    
16. SENDMSG 5 当前封顶最高境界为上仙九十九重!
    
17. BREAK
    
18. #IF
    
19. EQUAL $AmbitLevel 99
    
20. SMALL $AmbitKind 5
    
21. #ACT
    
22. AmbitLevel = 99
    
23. #CALL [\游戏功能\本体排行.txt] @本体排行
    
24. #CALL [\封号系统\封号系统.txt] @封号分类
    
25. SENDMSG 5 天人最高境界为99重，可飞身仙界了!
    
26. BREAK
    
27. #IF
    
28. LARGE $AmbitKind 2
    
29. CHECKLEVELEX \ 65
    
30. #ACT
    
31. GOTO @检测是不天人
    
32. Break
    
33. #IF
    
34. TRUE
    
35. #CALL [\游戏功能\本体排行.txt] @本体排行
    
36. #CALL [\封号系统\封号系统.txt] @封号分类

复制代码

以上是功能脚本里的，虽然彩虹引擎没有TOPLIST参数 1 2 3这个变量，但是用脚本完全可以实现的哦 请看下面本体排行里具体的脚本吧呵呵

1. [@本体排行]
   
2. {
   
3. #IF
   
4. EQUAL P10 $STR(P61)
   
5. LARGE P11 $STR(S66)
   
6. #ACT
   
7. MOV P60 0
   
8. GOTO @经验降序排序
   
9. 
   
10. #IF
    
11. RANDOM 1
    
12. #ACT
    
13. GOTO @本体各种属性
    
14. 
    
15. #IF
    
16. TRUE
    
17. #ACT
    
18. MOV P60 0
    
19. GOTO @英雄降序排序
    
20. 
    
21. 
    
22. [@本体各种属性]
    
23. #IF
    
24. LARGE $AmbitLevel 0
    
25. LARGE $AmbitKind 2
    
26. SMALL $AmbitKind 5
    
27. #ACT
    
28. #IF
    
29. LARGE $AmbitLevel 0
    
30. LARGE $AmbitKind 4
    
31. SMALL $AmbitKind 7
    
32. #ACT
    
33. #IF
    
34. LARGE $AmbitLevel 0
    
35. LARGE $AmbitKind 6
    
36. #ACT
    
37. #IF
    
38. LARGE $AmbitKind 2
    
39. SMALL $AmbitKind 5
    
40. #ACT
    
41. FORMATSTR S10 飞升%s重 $NUMTOCHR($AMBITLEVEL)
    
42. MOV P10 $AmbitLevel
    
43. INC P10 71
    
44. MOV P11 $EXP
    
45. #IF
    
46. LARGE $AmbitKind 4
    
47. SMALL $AmbitKind 7
    
48. #ACT
    
49. FORMATSTR S10 飞仙%s重 $NUMTOCHR($AMBITLEVEL)
    
50. MOV P10 $AmbitLevel
    
51. INC P10 170
    
52. MOV P11 $EXP
    
53. #IF
    
54. LARGE $AmbitKind 6
    
55. #ACT
    
56. FORMATSTR S10 上仙%s重 $NUMTOCHR($AMBITLEVEL)
    
57. MOV P10 $AmbitLevel
    
58. INC P10 269
    
59. MOV P11 $EXP
    
60. #IF
    
61. SMALL $AmbitKind 3
    
62. #ACT
    
63. FORMATSTR S10 %s级 $NUMTOCHR($LEVEL)
    
64. MOV P10 $LEVEL
    
65. MOV P11 $EXP
    
66. 
    
67. 
    
68. [@英雄降序排序]
    
69. #IF
    
70. PosINLIST $USERNAME ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt S0
    
71. #ACT
    
72. DELVARLIST $STR(S0) ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt
    
73. 
    
74. #IF
    
75. LARGE P60 5
    
76. #ACT
    
77. break
    
78. 
    
79. #IF
    
80. random 1
    
81. #ACT
    
82. ReadRandomStr ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt S0 $STR(P60)
    
83. MOV P61 0
    
84. #IF
    
85. !EQUAL S0
    
86. #ACT
    
87. MOV S60
    
88. SPLIT $STR(S0) | S60
    
89. MOV P61 $STR(S61)
    
90. 
    
91. #IF
    
92. LARGE P10 $STR(P61)
    
93. #ACT
    
94. ;本体名字|排行数据|本体等级|职业|性别|行会|当前经验
    
95. FORMATSTR S0 %s|%s|%s|%s|%S|%S|%S <$USERNAME>|<$STR(P10)>|<$LEVEL>|<$JOB>|<$GENDER>|<$GUILDNAME>|<$EXP>
    
96. INSERTVARLIST $STR(P60) $STR(S0) ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt
    
97. #ELSEACT
    
98. inc P60 1
    
99. goto @英雄降序排序
    
100. 
     
101. 
     
102. [@经验降序排序]
     
103. #IF
     
104. PosINLIST $USERNAME ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt S0
     
105. #ACT
     
106. DELVARLIST $STR(S0) ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt
     
107. 
     
108. #IF
     
109. LARGE P60 5
     
110. #ACT
     
111. break
     
112. 
     
113. #IF
     
114. random 1
     
115. #ACT
     
116. ReadRandomStr ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt S0 $STR(P60)
     
117. MOV P62 0
     
118. #IF
     
119. !EQUAL S0
     
120. #ACT
     
121. MOV S60
     
122. SPLIT $STR(S0) | S60
     
123. MOV P62 $STR(S66)
     
124. 
     
125. #IF
     
126. LARGE P11 $STR(P62)
     
127. #ACT
     
128. ;本体名字|排行数据|本体等级|职业|性别|行会|当前经验
     
129. FORMATSTR S0 %s|%s|%s|%s|%S|%S|%S <$USERNAME>|<$STR(P10)>|<$LEVEL>|<$JOB>|<$GENDER>|<$GUILDNAME>|<$EXP>
     
130. INSERTVARLIST $STR(P60) $STR(S0) ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt
     
131. #ELSEACT
     
132. inc P60 1
     
133. goto @经验降序排序
     
134. 
     
135. }

复制代码

英雄排名榜的原理嘛，无非就是等级高的排前面，等级相等的经验高的排前面嘛，如是而已，下面就是冲级前三的脚本咯

[@冲级前三名]
{
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt S0 0
#IF
!equal S0
#ACT
SPLIT $STR(S0) | S60
MOV A23 $STR(S60)
MOV G13 $STR(S62)
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt S0 1
#IF
!equal S0
#ACT
SPLIT $STR(S0) | S60
MOV A24 $STR(S60)
MOV G14 $STR(S62)
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排行\本体排行\英雄排名榜.txt S0 2
#IF
!equal S0
#ACT
SPLIT $STR(S0) | S60
MOV A25 $STR(S60)
MOV G15 $STR(S62)
#IF
random 1
#SAY
　 为了鼓励传世英雄的等级提升.本服开区<COLOR=GREEN 第三天晚上7:30分>\
只要是<COLOR=GREEN 排行榜前三名且等级达到71级>的玩家可来我这领取奖励!\
<COLOR=897897 今天是本服开区的第[>{COLOR=yellow <$STR(G2)>}<COLOR=897897 ]天>\
<COLOR=897897 排行榜><COLOR=RED 第一名>:奖励为<COLOR=GREEN 祝福水晶+元宝100万>\
<COLOR=897897 排行榜><COLOR=RED 第二名>:奖励为<COLOR=GREEN 元宝50万+特殊戒指一个按职业领取>\
<COLOR=897897 排行榜><COLOR=RED 第三名>:奖励为<COLOR=GREEN 元宝30万>\
<我要领取/@领取第一>当前排行榜第一名是等级为{COLOR=GREEN <$STR(G13)>}级的{COLOR=GREEN <$STR(A23)>}\
<我要领取/@领取第二>当前排行榜第二名是等级为{COLOR=GREEN <$STR(G14)>}级的{COLOR=GREEN <$STR(A24)>}\
<我要领取/@领取第三>当前排行榜第三名是等级为{COLOR=GREEN <$STR(G15)>}级的{COLOR=GREEN <$STR(A25)>}\
[@领取第三]
#IF
EQUAL G2 3
#ACT
goto @发奖励3
#ELSEACT
MessageBox 要新区开区第3天后才能领取，现在新区开区才<$STR(G2)>天！\　\要第3天晚上7:30分才能产生排行榜前三名的玩家~！
break


[@发奖励3]
#IF
CHECKLEVELEX < 71
#ACT
MessageBox 你都没有71级!不要提领取奖励的事情!\　\要到71级才可以领取,否则是前三都没用~！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\比赛第一\排行第三奖.txt
#ACT
delnamelist ..\QuestDiary\数据文件\比赛第一\排行第三奖.txt
GAMEGOLD + 300000
SENDMSG 8 恭喜『%S』获得新区开区第3天晚上7:30排行榜第三名且等级达到71级奖励，获得：<元宝300000个>
SENDMSG 0 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第三名且等级达到71级奖励，获得：<元宝300000个>
SENDMSG 13 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第三名且等级达到71级奖励，获得：<元宝300000个>
#ELSEACT
messagebox \你没有权利领取排行榜奖励！\　\排行榜第三名不是你的名字！
break
close


[@领取第二]
#IF
EQUAL G2 3
#ACT
goto @发奖励2
#ELSEACT
MessageBox 要新区开区第3天后才能领取，现在新区开区才<$STR(G2)>天！\　\要第3天晚上7:30分才能产生排行榜前三名的玩家~！
break


[@发奖励2]
#IF
CHECKLEVELEX < 71
#ACT
MessageBox 你都没有71级!不要提领取奖励的事情!\　\要到71级才可以领取,否则是前三都没用~！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\比赛第一\排行第二奖.txt
#ACT
delnamelist ..\QuestDiary\数据文件\比赛第一\排行第二奖.txt
goto @发奖励22
#ELSEACT
messagebox \你没有权利领取排行榜奖励！\　\排行榜第第二名不是你的名字！
break


[@发奖励22]
#IF
checkjob Warrior
#ACT
give 麻痹戒指 1
GAMEGOLD + 500000
SENDMSG 8 恭喜『%S』获得新区开区第3天晚上7:30排行榜第二名且等级达到71级奖励，获得：<麻痹戒指加元宝50万个>
SENDMSG 0 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第二名且等级达到71级奖励，获得：<麻痹戒指加元宝50万个>
SENDMSG 13 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第二名且等级达到71级奖励，获得：<麻痹戒指加元宝50万个>
close
break
#ELSEACT
#IF
checkjob Wizard
#ACT
give 护体戒指 1
GAMEGOLD + 500000
SENDMSG 8 恭喜『%S』获得新区开区第3天晚上7:30排行榜第二名且等级达到71级奖励，获得：<护体戒指加元宝50万个>
SENDMSG 0 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第二名且等级达到71级奖励，获得：<护体戒指加元宝50万个>
SENDMSG 13 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第二名且等级达到71级奖励，获得：<护体戒指加元宝50万个>
close
break
#ELSEACT
#IF
checkjob Taoist
#ACT
give 重生戒指 1
GAMEGOLD + 500000
SENDMSG 8 恭喜『%S』获得新区开区第3天晚上7:30排行榜第二名且等级达到71级奖励，获得：<重生戒指加元宝50万个>
SENDMSG 0 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第二名且等级达到71级奖励，获得：<重生戒指加元宝50万个>
SENDMSG 13 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第二名且等级达到71级奖励，获得：<重生戒指加元宝50万个>
close
break

[@领取第一]
#IF
EQUAL G2 3
#ACT
goto @发奖励1
#ELSEACT
MessageBox 要新区开区第3天后才能领取，现在新区开区才<$STR(G2)>天！\　\要第3天晚上7:30分才能产生排行榜前三名的玩家~！
break



[@发奖励1]
#IF
CHECKLEVELEX < 71
#ACT
MessageBox 你都没有71级!不要提领取奖励的事情!\　\要到71级才可以领取,否则是前三都没用~！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\比赛第一\排行第一奖.txt
#ACT
delnamelist ..\QuestDiary\数据文件\比赛第一\排行第一奖.txt
goto @发奖励11
#ELSEACT
messagebox \你没有权利领取排行榜奖励！\　\排行榜第一名不是你的名字！
break
close




[@发奖励11]
#IF
checkjob Warrior
#ACT
give 祝福水晶 1
GAMEGOLD + 1000000
SENDMSG 8 恭喜『%S』获得新区开区第3天晚上7:30排行榜第一名且等级达到71级奖励，获得：<祝福水晶加元宝100万个>
SENDMSG 0 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第一名且等级达到71级奖励，获得：<祝福水晶加元宝100万个>
SENDMSG 13 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第一名且等级达到71级奖励，获得：<祝福水晶加元宝100万个>
close
break
#ELSEACT
#IF
checkjob Wizard
#ACT
give 祝福水晶 1
GAMEGOLD + 1000000
SENDMSG 8 恭喜『%S』获得新区开区第3天晚上7:30排行榜第一名且等级达到71级奖励，获得：<祝福水晶加元宝100万个>
SENDMSG 0 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第一名且等级达到71级奖励，获得：<祝福水晶加元宝100万个>
SENDMSG 13 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第一名且等级达到71级奖励，获得：<祝福水晶加元宝100万个>
close
break
#ELSEACT
#IF
checkjob Taoist
#ACT
give 祝福水晶 1
GAMEGOLD + 1000000
SENDMSG 8 恭喜『%S』获得新区开区第3天晚上7:30排行榜第一名且等级达到71级奖励，获得：<祝福水晶加元宝100万个>
SENDMSG 0 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第一名且等级达到71级奖励，获得：<祝福水晶加元宝100万个>
SENDMSG 13 (*)恭喜『%S』获得新区开区第3天晚上7:30排行榜第一名且等级达到71级奖励，获得：<祝福水晶加元宝100万个>
close
break
}

补充下哦，为了能像排行榜那样时时刷新还应该加上一句
[@main]
#ACT
#CALL [\游戏功能\本体排行.txt] @本体排行  ；就是这句哦
#CALL [\游戏功能\冲级奖励.txt] @冲级前三名


最后当然就是在机器人下添加第三天7:30排名产生啦

#IF
EQUAL G2 3
#ACT
ADDVARLIST $GLOBAL(A23) ..\QuestDiary\数据文件\比赛第一\排行第一奖.txt
ADDVARLIST $GLOBAL(A24) ..\QuestDiary\数据文件\比赛第一\排行第二奖.txt
ADDVARLIST $GLOBAL(A25) ..\QuestDiary\数据文件\比赛第一\排行第三奖.txt
ADDCASTLEWARGUILD ALL 沙城 0
SENDMSG 15 [{新区开区前3天冲级第一获奖者已经产生}]
SENDMSG 0 [{新区开区前3天冲级第一获奖者已经产生}]
SENDMSG 0 (+)[全服所有行会统计攻沙列表加载成功]

浦先生。

我只是路过，不发表意见

传奇私服发布站

报告！别开枪，我就是路过来看看的。。。

嫂子别这样

我了个去，顶了

小尖刀

纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

聂博文

支持，赞一个

gm论坛

好好 学习了 确实不错

传奇私服

呵呵。。。不错啊