传奇先锋英雄榜脚本
[@main]俗话说浊世出英雄，毕竟谁是群雄之首？<谁是天下第一？？/@查看第一>\
假如你觉得自己是天下第一的话就快来申请吧……成为\
<天下第一>不但可以名扬天下，还能修炼<乾坤大挪移>秘籍哦！\
但是一但失去天下第一，此技能也将消失!! \ \
<修炼乾坤大挪移秘籍/@xiulian>\ \
<参加智力风暴流动/@参加智力风暴流动> \
[@xiulian]
#if
CHECKSKILL乾坤大挪移 = 3
#act
MESSAGEBOX 您已经修炼[乾坤大挪移]技能了，不能重复修炼！！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\天下第一\男战士.txt
#ACT
ADDSKILL 乾坤大挪移 3
MESSAGEBOX 恭喜您！成功修炼[乾坤大挪移]秘籍！！
SENDMSG 4 天下第一男战士[%s]已成功修炼[乾坤大挪移]秘籍！！
SENDMSG 0 天下第一男战士[%s]已成功修炼[乾坤大挪移]秘籍！！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\天下第一\男方士.txt
#ACT
ADDSKILL 乾坤大挪移 3
MESSAGEBOX 恭喜您！成功修炼[乾坤大挪移]秘籍！！
SENDMSG 4 天下第一男羽士[%s]已成功修炼[乾坤大挪移]秘籍！！
SENDMSG 0 天下第一男羽士[%s]已成功修炼[乾坤大挪移]秘籍！！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\天下第一\男法师.txt
#ACT
ADDSKILL 乾坤大挪移 3
MESSAGEBOX 恭喜您！成功修炼[乾坤大挪移]秘籍！！
SENDMSG 4 天下第一男法师[%s]已成功修炼[乾坤大挪移]秘籍！！
SENDMSG 0 天下第一男法师[%s]已成功修炼[乾坤大挪移]秘籍！！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\天下第一\女战士.txt
#ACT
ADDSKILL 乾坤大挪移 3
MESSAGEBOX 恭喜您！成功修炼[乾坤大挪移]秘籍！！
SENDMSG 4 天下第一女战士[%s]已成功修炼[乾坤大挪移]秘籍！！
SENDMSG 0 天下第一女战士[%s]已成功修炼[乾坤大挪移]秘籍！！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\天下第一\女方士.txt
#ACT
ADDSKILL 乾坤大挪移 3
MESSAGEBOX 恭喜您！成功修炼[乾坤大挪移]秘籍！！
SENDMSG 4 天下第一女羽士[%s]已成功修炼[乾坤大挪移]秘籍！！
SENDMSG 0 天下第一女羽士[%s]已成功修炼[乾坤大挪移]秘籍！！
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\天下第一\女法师.txt
#ACT
ADDSKILL 乾坤大挪移 3
MESSAGEBOX 恭喜您！成功修炼[乾坤大挪移]秘籍！！
SENDMSG 4 天下第一女法师[%s]已成功修炼[乾坤大挪移]秘籍！！
SENDMSG 0 天下第一女法师[%s]已成功修炼[乾坤大挪移]秘籍！！
break
#ELSEACT
MESSAGEBOX 你不是天下第一，不能修炼此秘籍！！
;----------------------------
[@查看名额]
#IF
CheckLevelEx > 0
#act
mov D0 81
dec D0 <$STR(G6)>
mov D1 71
dec D1 <$STR(G7)>
mov D2 61
dec D2 <$STR(G8)>
mov D3 51
dec D3 <$STR(G9)>
#IF
large G6 0
#ACT
dec D0 1
#IF
large G7 0
#ACT
dec D1 1
#IF
large G8 0
#ACT
dec D2 1
#IF
large G9 0
#ACT
dec D3 1
#IF
CheckLevelEx > 0
#SAY
剩余名额：\
<40级奖励还剩><$STR(D0)><个名额>\
<41级奖励还剩><$STR(D1)><个名额>\
<42级奖励还剩><$STR(D2)><个名额>\
<43级奖励还剩><$STR(D3)><个名额>\
\ \
<返回/@main>
[@参加智力风暴流动]
#if
CheckLevelEx > 0
#act
mov D0 21
dec D0 <$STR(G10)>
#IF
large G10 0
#ACT
dec D0 1
#IF
#SAY
只要你等级达到43级就可以来我这里参加智力风暴流动。\
我会随机给你10道题，标题标题标题题目涉及各个领域。\
每答对<1道题>就可以获得<10元宝>的奖励。\
\ \
<留意>：本流动只有20个名额，现在剩余<$STR(D0)>个名额\
\ \
<开始答题/@答题检测>\
<返回/@main>
[@40级]
#if
CheckNameList ..\QuestDiary\宠物系统\40级.txt
#ACT
MessageBox [失败]你已经领取过40级奖励！
break
#IF
large G6 79
#ACT
MessageBox [失败]领取40级奖励的名额已满！
break
#IF
CheckLevelEx > 39
#ACT
inc G6 1
AddNameList ..\QuestDiary\宠物系统\40级.txt
movr D6 6
GOTO @40级奖励
mov D0 80
dec D0 <$STR(G6)>
MOV A30 <$STR(D0)>
SENDMSG 2 恭喜%s领取了40级奖励，现在还剩<$STR(A30)>个名额！
SENDMSG 4 恭喜%s领取了40级奖励，现在还剩<$STR(A30)>个名额！
close
#ELSEACT
MessageBox [失败]你的等级未到40级不能领取！
[@40级奖励]
#IF
CheckLevelEx > 0
#ACT
GIVE 火龙之心 1
SENDMSG 6 〖提示〗获得：火龙之心 数目：1
#IF
equal D6 0
#ACT
GIVE 破魂斩 1
SENDMSG 6 〖提示〗获得：破魂斩 数目：1
break
#IF
equal D6 1
#ACT
GIVE 劈星斩 1
SENDMSG 6 〖提示〗获得：劈星斩 数目：1
break
#IF
equal D6 2
#ACT
GIVE 雷霆一击 1
SENDMSG 6 〖提示〗获得：雷霆一击 数目：1
break
#IF
equal D6 3
#ACT
GIVE 噬魂池沼 1
SENDMSG 6 〖提示〗获得：噬魂池沼 数目：1
break
#IF
equal D6 4
#ACT
GIVE 末日审讯 1
SENDMSG 6 〖提示〗获得：末日审讯 数目：1
break
#IF
equal D6 5
#ACT
GIVE 火龙气焰 1
SENDMSG 6 〖提示〗获得：火龙气焰 数目：1
break
[@41级]
#if
CheckNameList ..\QuestDiary\宠物系统\41级.txt
#ACT
MessageBox [失败]你已经领取过41级奖励！
break
#IF
large G7 69
#ACT
MessageBox [失败]领取41级奖励的名额已满！
break
#IF
CheckLevelEx > 40
#ACT
inc G7 1
AddNameList ..\QuestDiary\宠物系统\41级.txt
movr D6 3
GOTO @41级奖励
mov D0 70
dec D0 <$STR(G7)>
MOV A30 <$STR(D0)>
SENDMSG 2 恭喜%s领取了41级奖励，现在还剩<$STR(A30)>个名额！
SENDMSG 4 恭喜%s领取了41级奖励，现在还剩<$STR(A30)>个名额！
close
#ELSEACT
MessageBox [失败]你的等级未到41级不能领取！
[@41级奖励]
#IF
equal D6 0
#ACT
GIVE 裁决之杖 1
GIVE 绿色项链 1
GIVE 骑士手镯 2
GIVE 气力戒指 2
SENDMSG 6 〖提示〗获得：裁决之杖 数目：1
SENDMSG 6 〖提示〗获得：绿色项链 数目：1
SENDMSG 6 〖提示〗获得：骑士手镯 数目：2
SENDMSG 6 〖提示〗获得：气力戒指 数目：2
break
#IF
equal D6 1
#ACT
GIVE 骨玉权杖 1
GIVE 恶魔铃铛 1
GIVE 龙之手镯 2
GIVE 紫碧螺 2
SENDMSG 6 〖提示〗获得：骨玉权杖 数目：1
SENDMSG 6 〖提示〗获得：恶魔铃铛 数目：1
SENDMSG 6 〖提示〗获得：龙之手镯 数目：2
SENDMSG 6 〖提示〗获得：紫碧螺 数目：2
break
#IF
equal D6 2
#ACT
GIVE 龙纹剑 1
GIVE 灵魂项链 1
GIVE 三眼手镯 2
GIVE 泰坦戒指 2
SENDMSG 6 〖提示〗获得：龙纹剑 数目：1
SENDMSG 6 〖提示〗获得：灵魂项链 数目：1
SENDMSG 6 〖提示〗获得：三眼手镯 数目：2
SENDMSG 6 〖提示〗获得：泰坦戒指 数目：2
break
[@42级]
#if
CheckNameList ..\QuestDiary\宠物系统\42级.txt
#ACT
MessageBox [失败]你已经领取过42级奖励！
break
#IF
large G8 59
#ACT
MessageBox [失败]领取42级奖励的名额已满！
break
#IF
CheckLevelEx > 41
#ACT
inc G8 1
AddNameList ..\QuestDiary\宠物系统\42级.txt
movr D6 37
GOTO @42级奖励
mov D0 60
dec D0 <$STR(G8)>
MOV A30 <$STR(D0)>
SENDMSG 2 恭喜%s领取了42级奖励，现在还剩<$STR(A30)>个名额！
SENDMSG 4 恭喜%s领取了42级奖励，现在还剩<$STR(A30)>个名额！
close
#ELSEACT
MessageBox [失败]你的等级未到42级不能领取！
[@42级奖励]
#IF
equal D6 0
#ACT
GIVE 个性发型 1
SENDMSG 6 〖提示〗获得：个性发型 数目：1
break
#IF
equal D6 1
#ACT
GIVE 洗净铅华 1
SENDMSG 6 〖提示〗获得：洗净铅华 数目：1
break
#IF
equal D6 2
#ACT
GIVE 赤金钥匙 1
SENDMSG 6 〖提示〗获得：赤金钥匙 数目：1
break
#IF
equal D6 3
#ACT
GIVE 白银钥匙 1
SENDMSG 6 〖提示〗获得：白银钥匙 数目：1
break
#IF
equal D6 4
#ACT
GIVE 紫铜钥匙 1
SENDMSG 6 〖提示〗获得：紫铜钥匙 数目：1
break
#IF
equal D6 5
#ACT
GIVE 气血石(小) 1
SENDMSG 6 〖提示〗获得：气血石(小) 数目：1
break
#IF
equal D6 6
#ACT
GIVE 气血石(中) 1
SENDMSG 6 〖提示〗获得：气血石(中) 数目：1
break
#IF
equal D6 7
#ACT
GIVE 气血石(大) 1
SENDMSG 6 〖提示〗获得：气血石(大) 数目：1
break
#IF
equal D6 8
#ACT
GIVE 幻魔石(小) 1
SENDMSG 6 〖提示〗获得：幻魔石(小) 数目：1
break
#IF
equal D6 9
#ACT
GIVE 幻魔石(中) 1
SENDMSG 6 〖提示〗获得：幻魔石(中) 数目：1
break
#IF
equal D6 10
#ACT
GIVE 幻魔石(大) 1
SENDMSG 6 〖提示〗获得：幻魔石(大) 数目：1
break
#IF
equal D6 11
#ACT
GIVE 魔血石(大) 1
SENDMSG 6 〖提示〗获得：魔血石(大) 数目：1
break
#IF
equal D6 12
#ACT
GIVE 魔龙冰晶 1
SENDMSG 6 〖提示〗获得：魔龙冰晶 数目：1
break
#IF
equal D6 13
#ACT
GIVE 召唤强化卷 1
SENDMSG 6 〖提示〗获得：召唤强化卷 数目：1
break
#IF
equal D6 14
#ACT
GIVE 太阳水捆药绳 1
SENDMSG 6 〖提示〗获得：太阳水捆药绳 数目：1
break
#IF
equal D6 15
#ACT
GIVE 雪霜捆药绳 1
SENDMSG 6 〖提示〗获得：雪霜捆药绳 数目：1
break
#IF
equal D6 16
#ACT
GIVE 疗伤药捆药绳 1
SENDMSG 6 〖提示〗获得：疗伤药捆药绳 数目：1
break
#IF
equal D6 17
#ACT
GIVE 比奇传送石 1
SENDMSG 6 〖提示〗获得：比奇传送石 数目：1
break
#IF
equal D6 18
#ACT
GIVE 盟重传送石 1
SENDMSG 6 〖提示〗获得：盟重传送石 数目：1
break
#IF
equal D6 19
#ACT
GIVE 虎卫卷轴 1
SENDMSG 6 〖提示〗获得：虎卫卷轴 数目：1
break
#IF
equal D6 20
#ACT
GIVE 乾坤袋 1
SENDMSG 6 〖提示〗获得：乾坤袋 数目：1
break
#IF
equal D6 21
#ACT
GIVE 随机传送石 1
SENDMSG 6 〖提示〗获得：随机传送石 数目：1
break
#IF
equal D6 22
#ACT
GIVE 修复神水 1
SENDMSG 6 〖提示〗获得：修复神水 数目：1
break
#IF
equal D6 23
#ACT
GIVE 千里传音 1
SENDMSG 6 〖提示〗获得：千里传音 数目：1
break
#IF
equal D6 24
#ACT
GIVE 千里传音(大) 1
SENDMSG 6 〖提示〗获得：千里传音(大) 数目：1
break
#IF
equal D6 25
#ACT
GIVE 一心一意包 1
SENDMSG 6 〖提示〗获得：一心一意包 数目：1
break
#IF
equal D6 26
#ACT
GIVE 心心相印包 1
SENDMSG 6 〖提示〗获得：心心相印包 数目：1
break
#IF
equal D6 27
#ACT
GIVE 飞火流星包 1
SENDMSG 6 〖提示〗获得：飞火流星包 数目：1
break 这东西我收了！谢谢楼主！ 谢谢楼主！喜欢这里的东西，方便又好用！ 这个帖子不回对不起自己！ 这东西我收了！谢谢楼主！ 这东西我收了！谢谢楼主！ 很多架设问题在这里可以找到，真是太好啦。 楼主发贴辛苦了，谢谢楼主分享！ 楼主发贴辛苦了，谢谢楼主分享！ 感谢站长分享开区一条龙教程，新手能学习到很多知识。