润芒论坛

 找回密码
立即注册

QQ登录

只需一步,快速开始

查看: 1422|回复: 0

传奇先锋英雄榜脚本

[复制链接]
online_moderator 发表于 2017-9-24 11:27:08 | 显示全部楼层 |阅读模式
[@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





上一篇:传奇元宝传送沙巴克攻城脚本
下一篇:传奇鬼门五关统领脚本
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册 qq_login

本版积分规则

QQ|手机版|润芒论坛 ( 冀ICP备17016208号-6 )|网站地图

GMT+8, 2021-2-26 06:34

Powered by 传奇一条龙 X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表