传奇版本先锋英雄榜脚本

GM部落

[@main]
俗话说浊世出英雄，毕竟谁是群雄之首？<谁是天下第一？？/@查看第一>\
假如你觉得自己是天下第一的话就快来申请吧……成为\
<天下第一>不但可以名扬天下，还能修炼<乾坤大挪移>秘籍哦！\
但是一但失去天下第一，此技能也将消失!! \ \
<修炼乾坤大挪移秘籍[url=]/@xiulian>\[/url] \
<参加智力风暴流动/@参加智力风暴流动> \
[@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)><个名额>\
\ \
<返回[url=]/@main[/url]>
[@参加智力风暴流动]
#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)>个名额\
\ \
<开始答题/@答题检测>\
<返回[url=]/@main[/url]>
[@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