腾飞论坛 发表于 2012-9-18 16:52:13

传奇用skyM2实现的真正跟传世一样的"天下第一"功能.

用skyM2实现的真正跟传世一样的"天下第一"功能.


不同职业的最高级申请天下第一时，申请成功后，ＮＰＣ的名字会变成这个玩家角色名．
并能比较同级别不同经验值的玩家.
实现了同传世一样的天下第一功能.


============================================================
部分关键脚本．供专业技术参考

天下第一脚本...
............................
男战士申请天下第一....

[@男战申请]
{
#IF
large G1 <$STR(A12)>
#act
break
#say
对不起!!你目前还不是最高等级!\\\
#IF
EQUAL G1 <$STR(A12)>
large G7 <$STR(A15)>
#act
break
#say
对不起!!你目前还不是最高经验!\\\
#IF
EQUAL G1 <$STR(A12)>
EQUAL G7 <$STR(A15)>
#act
break
#say
对不起!!你目前还不是最高经验!\\\
#IF
HAVEGUILD
#act
break
mov G1 <$STR(A12)>
mov G7 <$EXP>
mov s1 <$USERNAME>\
inc S1 ↘天下第一男战↙
inc S1 \
mov A11 <$USERNAME>
mov A12 <$LEVEL>
mov A13 <$GUILDNAME>
mov A14 <$DATETIME>
mov A15 <$EXP>
SETRANKLEVELNAME <$STR(S1)>
CLEARNAMELIST ..\QuestDiary\天下第一\男战士名单.txt
AddTextList QuestDiary\天下第一\男战士名单.txt <$USERNAME>
SENDMSG 0 〖%s〗成功申请了天下第一男战士!他在烽烟四起的『<$SERVERNAME>』中修炼成为天下第一,明天的天下第一会是谁?
mov N0 1
#CALL [\\天下第一\重新刷新NPC.txt] @刷新NPC
#say
申请成功!目前今天的天下第一男战士是<$USERNAME>,\
明天的天下第一会是谁? \ \
<离开/@exit>
#IF
#act
mov G1 <$STR(A12)>
mov G7 <$EXP>
mov s1 <$USERNAME>\
inc S1 ↘天下第一男战↙\
inc S1 \
mov A11 <$USERNAME>
mov A12 <$LEVEL>
mov A13 暂无
mov A14 <$DATETIME>
mov A15 <$EXP>
SETRANKLEVELNAME <$STR(S1)>
CLEARNAMELIST ..\QuestDiary\天下第一\男战士名单.txt
;addnamelist ..\QuestDiary\天下第一\男战士名单.txt
AddTextList QuestDiary\天下第一\男战士名单.txt <$USERNAME>
SENDMSG 0 〖%s〗成功申请了天下第一男战士!他在烽烟四起的『<$SERVERNAME>』中修炼成为天下第一,明天的天下第一会是谁?
mov N0 1
#CALL [\\天下第一\重新刷新NPC.txt] @刷新NPC
#say
申请成功!目前今天的天下第一男战士是<$USERNAME>,\
明天的天下第一会是谁? \ \
}

[@刷新NPC]
{
#IF
equal N0 1
#ACT
DelNPC? <$str(A16)>
DelNPC? <$str(A16)>
mov A16 <$str(A11)>
CreateNPC <$str(A16)> 3 316 309 30 功能服务/第一男战-3
CreateNPC <$str(A16)> 0 330 259 35 功能服务/第一男战-0
break

#IF
equal N0 2
#ACT
DelNPC? <$str(A26)>
DelNPC? <$str(A26)>
mov A26 <$str(A21)>
CreateNPC <$str(A26)> 3 310 303 31 功能服务/第一男法-3
CreateNPC <$str(A26)> 0 333 259 37 功能服务/第一男法-0
break

#IF
equal N0 3
#ACT
DelNPC? <$str(A36)>
DelNPC? <$str(A36)>
mov A36 <$str(A31)>
CreateNPC <$str(A36)> 3 301 301 29 功能服务/第一男道-3
CreateNPC <$str(A36)> 0 336 259 39 功能服务/第一男道-0
break


#IF
equal N0 4
#ACT
DelNPC? <$str(A46)>
DelNPC? <$str(A46)>
mov A46 <$str(A41)>
CreateNPC <$str(A46)> 3 313 306 28 功能服务/第一女战-3
CreateNPC <$str(A46)> 0 327 259 36 功能服务/第一女战-0
break

#IF
equal N0 5
#ACT
DelNPC? <$str(A56)>
DelNPC? <$str(A56)>
mov A56 <$str(A51)>
CreateNPC <$str(A56)> 3 307 300 27 功能服务/第一女法-3
CreateNPC <$str(A56)> 0 324 259 38 功能服务/第一女法-0
break

#IF
equal N0 6
#ACT
DelNPC? <$str(A66)>
DelNPC? <$str(A66)>
mov A66 <$str(A61)>
CreateNPC <$str(A66)> 3 298 304 26 功能服务/第一女道-3
CreateNPC <$str(A66)> 0 321 259 40 功能服务/第一女道-0
break

#if
equal N0 0
#ACT
DelNPC? <$str(A16)>
DelNPC? <$str(A16)>
mov A16 <$str(A11)>
CreateNPC <$str(A16)> 3 316 309 30 功能服务/第一男战-3
CreateNPC <$str(A16)> 0 330 259 35 功能服务/第一男战-0
DelNPC? <$str(A26)>
DelNPC? <$str(A26)>
mov A26 <$str(A21)>
CreateNPC <$str(A26)> 3 310 303 31 功能服务/第一男法-3
CreateNPC <$str(A26)> 0 333 259 37 功能服务/第一男法-0
DelNPC? <$str(A36)>
DelNPC? <$str(A36)>
mov A36 <$str(A31)>
CreateNPC <$str(A36)> 3 301 301 29 功能服务/第一男道-3
CreateNPC <$str(A36)> 0 336 259 39 功能服务/第一男道-0
DelNPC? <$str(A46)>
DelNPC? <$str(A46)>
mov A46 <$str(A41)>
CreateNPC <$str(A46)> 3 313 306 28 功能服务/第一女战-3
CreateNPC <$str(A46)> 0 327 259 36 功能服务/第一女战-0
DelNPC? <$str(A56)>
DelNPC? <$str(A56)>
mov A56 <$str(A51)>
CreateNPC <$str(A56)> 3 307 300 27 功能服务/第一女法-3
CreateNPC <$str(A56)> 0 324 259 38 功能服务/第一女法-0
DelNPC? <$str(A66)>
DelNPC? <$str(A66)>
mov A66 <$str(A61)>
CreateNPC <$str(A66)> 3 298 304 26 功能服务/第一女道-3
CreateNPC <$str(A66)> 0 321 259 40 功能服务/第一女道-0
}

论坛一条龙

点站史海营 发表于 2014-4-24 17:21:47

写得实在太好了，我唯一能做的就是默默顶贴！

更论资版 发表于 2014-4-24 17:49:14

楼主的帖子实在是写得太好了。文笔流畅，修辞得体！

十销站布营 发表于 2014-4-24 17:51:21

感谢楼主的推荐！

股市先锋 发表于 2014-4-24 17:34:55

帖子好乱！

月光彩虹 发表于 2014-4-24 17:21:57

楼上的别说的那么悲观好吧！

夏夏 发表于 2014-6-1 11:41:25

楼主，替我问候您主治大夫！

夏夏 发表于 2014-6-1 11:40:23

楼主写的很经典！

朱好 发表于 2014-6-1 10:58:59

内容很有深度！

淡爱啊 发表于 2014-6-1 11:37:08

太邪乎了吧？
页: [1] 2
查看完整版本: 传奇用skyM2实现的真正跟传世一样的"天下第一"功能.