传奇里灵符仙子灵(2012/8/10)符功能脚本

[@main]
#if
CHECKLEVELEX > 6
#act
set [160] 0
goto @main1
[@main1]
天降大礼，灵符仙子的祝福来临！\
使用了灵符礼包有几率获得灵符仙子的祝福（10秒，20秒或30秒）！\
在灵符仙子的祝福期间，使用灵符礼包兑换灵符，获得10灵符\
或10灵符以上时，将获得双倍灵符！\
（<小退上线后，灵符仙子的祝福将消失>）\
<使用灵符礼包兑换灵符/@换取>                <自动修炼成长/@成长>\
<从商铺购买灵符礼包直接兑换灵符/@元宝换取>（灵符礼包商城定价:5元宝）\
<使用幸运符换取祝福/@幸运符>                  <快速兑换灵符/@ZZZ>\
[@ZZZ]
在我这里你可以快速的兑换灵符，\
请你选择需要兑换的张数。\ \
<100元宝换120灵符/@12000>\ \
<1000元宝换1500灵符/@150000>\ \
<10000元宝换17000灵符/@1700000>\
[@12000]
#if
CHECKGAMEGOLD > 99
#act
GAMEGOLD - 100
GAMEGIRD + 120
SENDMSG 7 恭喜：你增加了120灵符！
BREAK[@150000]
#if
CHECKGAMEGOLD > 999
#act
GAMEGOLD - 1000
GAMEGIRD + 1500
SENDMSG 7 恭喜：你增加了1500灵符！
BREAK
[@1700000]
#if
CHECKGAMEGOLD > 9999
#act
GAMEGOLD - 10000
GAMEGIRD + 17000
SENDMSG 7 恭喜：你增加了17000灵符！
BREAK

[@元宝换取]
#if
CHECKGAMEGOLD > 4
#ACT
Gamegold - 5
goto @检测1
#elsesay
对不起，你没有那么多元宝！

[@换取]
#if
checkitem 灵符礼包 1
#act
TAKEKIMNEEDLE 灵符礼包 1
goto @检测1
#elsesay
你没有灵符礼包！
[@检测1]
#if
check [160] 1
#act
goto @双倍换取
#elseact
goto @换取1
break

[@换取1]
#if
Random 1000
#ACT
GAMEGIRD + 2000
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加2000张！ 1 10 3
SENDMSG 7  %s获得：灵符2000张！
BREAK
#if
Random 500
#ACT
GAMEGIRD + 1000
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加1000张！ 1 10 3
sendmsg 7 %s获得：灵符1000张！
BREAK
#if
Random 250
#ACT
GAMEGIRD + 500
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加500张！ 1 5 3
sendmsg 7 %s获得：灵符500张！
BREAK
#if
Random 150
#ACT
GAMEGIRD + 100
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加100张！ 1 5 3
BREAK
#if
Random 100
#ACT
GAMEGIRD + 100
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加100张！ 1 5 3
BREAK
#if
Random 50
#ACT
GAMEGIRD + 50
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加50张！ 1 3 3
BREAK
#if
Random 25
#ACT
GAMEGIRD + 50
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加50张！ 1 3 3
BREAK
#IF
Random 50
#ACT
set [160] 1
DELAYGOTO 250 @main1
SENDTIMEMSG 灵符仙子的祝福将在%s后结束... 30 251 @10秒
SENDMSG 0 恭喜[<$USERNAME>]获得了灵符仙子的祝福：在30秒内抽中灵符大奖时将获得双倍灵符！
SENDMSG 7 恭喜：你获得了灵符仙子的祝福：在30秒内抽中灵符大奖时将获得双倍灵符！
BREAK
#if
Random 30
#ACT
GAMEGIRD + 30
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加30张！ 1 3 3
BREAK
#IF
Random 30
#ACT
set [160] 1
DELAYGOTO 250 @main1
SENDTIMEMSG 灵符仙子的祝福将在%s后结束... 20 251 @10秒
SENDMSG 0 恭喜[<$USERNAME>]获得了灵符仙子的祝福：在20秒内抽中灵符大奖时将获得双倍灵符！
BREAK
#IF
Random 20
#ACT
GAMEGIRD + 10
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加10张！ 1 1 3
BREAK
#IF
Random 15
#ACT
GAMEGIRD + 10
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加10张！ 1 1 3
BREAK
#IF
Random 15
#ACT
set [160] 1
DELAYGOTO 250 @main1
SENDTIMEMSG 灵符仙子的祝福将在%s后结束... 10 251 @10秒
SENDMSG 0 恭喜[<$USERNAME>]获得了灵符仙子的祝福：在10秒内抽中灵符大奖时将获得双倍灵符！
BREAK
#IF
Random 10
#ACT
GAMEGIRD + 10
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加10张！ 1 1 3
BREAK
#IF
Random 5
#ACT
GAMEGIRD + 5
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加5张！ 1 1 3
BREAK
#IF
Random 1
#ACT
GAMEGIRD + 2
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符2张！
BREAK
[@2元宝兑换]
#if
CheckVar HUMAN 灵符次数 > 0
#act
CALCVAR HUMAN 灵符次数 - 1
SaveVar HUMAN 灵符次数 ..\QuestDiary\数据文件\灵符次数.txt
goto @检测元宝
#elsesay
剩余次数为0，无法抽取！
[@检测元宝]
#if
CHECKGAMEGOLD > 1
#ACT
Gamegold - 2
goto @检测2
#elsesay
对不起，你没有那么多元宝！
[@检测2]
#if
check [160] 1
#act
goto @双倍换取
#elseact
goto @换取2
break
[@换取2]
#if
Random 2000
#ACT
GAMEGIRD + 2000
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加2000张！ 1 10 3
sendmsg 7 %s获得：灵符2000张！
BREAK
#if
Random 1000
#ACT
GAMEGIRD + 1000
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加1000张！ 1 10 3
sendmsg 7 %s获得：灵符1000张！
BREAK
#if
Random 500
#ACT
GAMEGIRD + 500
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加500张！ 1 10 3
sendmsg 7 %s获得：灵符500张！
BREAK
#if
Random 300
#ACT
GAMEGIRD + 100
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加100张！ 1 10 3
BREAK
#if
Random 200
#ACT
GAMEGIRD + 100
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加100张！ 1 10 3
BREAK
#if
Random 100
#ACT
GAMEGIRD + 100
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加100张！ 1 10 3
BREAK
#IF
Random 50
#ACT
set [160] 1
DELAYGOTO 250 @main1
SENDTIMEMSG 灵符仙子的祝福将在%s后结束... 30 251 @10秒
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加100张！ 1 10 3
BREAK
#if
Random 50
#ACT
GAMEGIRD + 50
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加100张！ 1 10 3
BREAK
#IF
Random 30
#ACT
set [160] 1
DELAYGOTO 250 @main1
SENDTIMEMSG 灵符仙子的祝福将在%s后结束... 20 251 @10秒
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加100张！ 1 10 3
BREAK
#if
Random 30
#ACT
GAMEGIRD + 30
DELAYGOTO 250 @main1
SendCenterMsg 249 0 [<$USERNAME>]，灵符增加100张！ 1 10 3
BREAK
#IF
Random 20
#ACT
GAMEGIRD + 20
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符20张！
BREAK
#IF
Random 15
#ACT
set [160] 1
DELAYGOTO 250 @main1
SENDTIMEMSG 灵符仙子的祝福将在%s后结束... 10 251 @10秒
SENDMSG 0 恭喜[<$USERNAME>]，获得了灵符仙子的祝福：在10秒内抽中灵符大奖时将获得双倍灵符！
BREAK
#IF
Random 15
#ACT
GAMEGIRD + 10
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符10张！
BREAK
#IF
Random 10
#ACT
GAMEGIRD + 10
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符10张！
BREAK
#IF
Random 5
#ACT
GAMEGIRD + 5
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符5张！
BREAK
#IF
Random 1
#ACT
GAMEGIRD + 2
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符2张！
BREAK

[@双倍换取]
#if
Random 2000
#ACT
GAMEGIRD + 4000
DELAYGOTO 250 @main1
SendCenterMsg 249 0  [<$USERNAME>]，灵符增加2000张×2！ 1 10 3
sendmsg 7 %s获得：灵符4000张！
BREAK
#if
Random 1000
#ACT
GAMEGIRD + 2000
DELAYGOTO 250 @main1
SendCenterMsg 249 0  [<$USERNAME>]，灵符增加1000张×2！ 1 10 3
sendmsg 7 %s获得：灵符2000张！
BREAK
#if
Random 500
#ACT
GAMEGIRD + 1000
DELAYGOTO 250 @main1
SendCenterMsg 249 0  [<$USERNAME>]，灵符增加500张×2！ 1 10 3
sendmsg 7 %s获得：灵符1000张！
BREAK
#if
Random 300
#ACT
GAMEGIRD + 200
DELAYGOTO 250 @main1
SendCenterMsg 249 0  [<$USERNAME>]，灵符增加100张×2！ 1 10 3
BREAK
#if
Random 200
#ACT
GAMEGIRD + 200
DELAYGOTO 250 @main1
SendCenterMsg 249 0  [<$USERNAME>]，灵符增加100张×2！ 1 10 3
BREAK
#if
Random 100
#ACT
GAMEGIRD + 100
DELAYGOTO 250 @main1
SendCenterMsg 249 0  [<$USERNAME>]，灵符增加50张×2！ 1 10 3
BREAK
#if
Random 50
#ACT
GAMEGIRD + 60
DELAYGOTO 250 @main1
SendCenterMsg 249 0  [<$USERNAME>]，灵符增加30张×2！ 1 10 3
BREAK
#if
Random 30
#ACT
GAMEGIRD + 60
DELAYGOTO 250 @main1
SendCenterMsg 249 0  [<$USERNAME>]，灵符增加30张×2！ 1 10 3
BREAK
#IF
Random 20
#ACT
GAMEGIRD + 20
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符20张！
BREAK
#IF
Random 15
#ACT
GAMEGIRD + 20
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符20张！
BREAK
#IF
Random 10
#ACT
GAMEGIRD + 20
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符20张！
BREAK
#IF
Random 5
#ACT
GAMEGIRD + 5
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符5张！
BREAK
#IF
Random 1
#ACT
GAMEGIRD + 2
DELAYGOTO 250 @main1
sendmsg 7 %s获得：灵符2张！
BREAK







[@幸运符]
给予灵符仙子一个二级幸运符能够获得<30秒灵符仙子的祝福>。 \ \
<给予二级幸运符换取祝福/@二级幸运符>
[@二级幸运符]
#if
checkitem 二级幸运符 1
#act
goto @二级幸运符1
break
#elsesay
你当前没有二级幸运符！
[@二级幸运符1]
#if
#act
set [160] 1
take 二级幸运符 1
DELAYGOTO 250 @main1
SENDTIMEMSG 灵符仙子的祝福将在%s后结束... 30 251 @10秒
SENDMSG 0 恭喜[<$USERNAME>]获得了灵符仙子的祝福：在30秒内抽中灵符大奖时将获得双倍灵符！
#elsesay
你当前正受到灵符仙子的祝福，请稍后使用！

[@成长]
您可以使用自动修炼成长功能每10秒消耗10张灵符\
获得4500000经验或700000内功经验的提升。\
要记得只有带着你的英雄一起来才可以进行修炼。\  \
<申请修炼经验/@经验>\
<申请修炼内功/@内功>\
[@经验]
#IF
#ACT
SETONTIMER 13 10
SENDMSG 0  “%s”开启了灵符修炼经验！
MESSAGEBOX 自动修炼已开启!请召唤英雄,一秒造成损失!
BREAK
[@内功]
#IF
#ACT
SETONTIMER 14 10
SENDMSG 0  “%s”开启了灵符修炼内功经验！
MESSAGEBOX 自动修炼已开启!请召唤英雄,一秒造成损失!
BREAK
[@原]
<申请1800张灵符自动修炼180次/@180>\
<申请3600张灵符自动修炼360次/@360>\
<取消自动修炼/@取消>           <开启自动修炼/@开启>\
<查询自动修炼剩余次数/@查询>
[@180]
#if
check [554] 1
#say
你当前正在进行经验修炼，请修炼完毕再来！
#elseact
goto @1801
break
[@1801]
#if
check [555] 1
#say
你当前正在进行内功经验修炼，请修炼完毕再来！
#elseact
goto @180次
break
[@360]
#if
check [555] 1
#say
你当前正在进行经验修炼，请修炼完毕再来！
#elseact
goto @3601
break
[@3601]
#if
check [555] 1
#say
你当前正在进行内功经验修炼，请修炼完毕再来！
#elseact
goto @360次
break
[@180次]
#if
CHECKHEROONLINE
#act
goto @180次1
#elsesay
请您召唤出您的英雄之后再来申请修炼。
[@180次1]
#if
CHECKGAMEGIRD > 1799
#act
#say
确认使用1800张灵符兑换180次修炼次数? \ \ \
<确定/@换180>         <我再考虑考虑/@exit>
#elsesay
你没有足够的灵符！
[@换180]
#if
CHECKGAMEGIRD > 1799
#act
GAMEGIRD - 1800
CALCVAR HUMAN 灵符修炼 + 180
SaveVar HUMAN 灵符修炼 ..\QuestDiary\数据文件\灵符修炼.txt
sendmsg 7 兑换成功，修炼次数增加180次！
sendmsg 0 恭喜[<$USERNAME>]：在灵符解封师处用1800张灵符兑换180次修炼次数！
#say
兑换成功，您当前总修炼次数为<$HUMAN(灵符修炼)>！\ \
您是选择修炼<经验/fcolor=249>，还是选择<内功经验/fcolor=249>？\ \
选择<修炼经验/@修炼经验>         选择<修炼内功经验/@修炼内功经验>
#elsesay
你没有足够的灵符！
[@修炼经验]
#if
check [555] 0
#act
SET [554] 1
set [556] 0
SetOnTimer 8 10
sendmsg 7 自动修炼经验已开启！
close
break
[@修炼内功经验]
#if
check [554] 0
#act
SET [555] 1
set [556] 0
SetOnTimer 10 10
sendmsg 7 自动修炼内功经验已开启！
close
break
[@360次]
#if
CHECKHEROONLINE
#act
goto @360次1
#elsesay
请您召唤出您的英雄之后再来申请修炼。
[@360次1]
#if
CHECKGAMEGIRD > 3599
#act
#say
确认使用3600张灵符兑换360次修炼次数? \ \ \
<确定/@换360>         <我再考虑考虑/@exit>
#elsesay
你没有足够的灵符！
[@换360]
#if
CHECKGAMEGIRD > 3599
#act
GAMEGIRD - 3600
CALCVAR HUMAN 灵符修炼 + 360
SaveVar HUMAN 灵符修炼 ..\QuestDiary\数据文件\灵符修炼.txt
sendmsg 7 兑换成功，修炼次数增加360次！
sendmsg 0 恭喜[<$USERNAME>]：在灵符解封师处用3600张灵符兑换360次修炼次数！
#say
兑换成功，您当前总修炼次数为<$HUMAN(灵符修炼)>！\ \
您是选择修炼<经验/fcolor=249>，还是选择<内功经验/fcolor=249>？\ \
选择<修炼经验/@修炼经验>         选择<修炼内功经验/@修炼内功经验>
#elsesay
你没有足够的灵符！
[@取消]
#if
CHECKVAR HUMAN 灵符修炼 = 0
#say
您的修炼次数为0，无法完成本次操作！
#elseact
goto @取消1
break
[@取消1]
#if
check [556] 0
#act
set [556] 1
SET [554] 0
SET [555] 0
SETOFFTIMER 8
SETOFFTIMER 10
#say
取消自动修炼成功！
#elsesay
你当前的修炼状态为取消。
[@开启]
#if
CHECKVAR HUMAN 灵符修炼 = 0
#say
您的修炼次数为0，无法完成本次操作！
#elseact
goto @开启1
break
[@开启1]
#if
check [556] 1
#act
set [556] 0
#say
开启自动修炼成功！您要开启哪种修炼方式? \ \
<修炼经验/@修炼经验>            <修炼内功经验/@修炼内功经验>
#elsesay
你当前的修炼状态为开启。
[@查询]
你的自动修炼次数为：\ \
<$HUMAN(灵符修炼)> \ \
<返回/@main>

;了解更多游戏脚本、传奇一条龙技术文章、传奇服务端、传奇论坛登陆器等游戏工具，加入 红颜科技gm基地

论坛一条龙

勤奋灌水，天天向上！

鸟大了，什么林子都敢进啊！

这么好的帖子，应该加精华！

我默默的回帖，从不声张！

很有看点！

信楼主，考试不一条龙科！

学习雷锋，好好回帖！

楼主加油，看好你哦！

楼主给脑残下了定义！