传奇世界中州_五彩仙子

[@main]
　　活动期间，众英雄可在我这里购买<color=green 五彩礼包>。五彩礼包
价值10元宝，包含<color=green 1个精制兽粮和1个随机五彩道具>。五彩道
具包括红色晶球、黄色晶球、绿色晶球、紫色晶球、蓝色晶
球五种。五彩道具详情见介绍。
    <COLOR=GREEN 本活动在每个星期一00:00点生成奖励>
　　<购买五彩礼包/@goumai>        <五彩道具介绍/@shuoming>
　　<我有单个五彩道具/@dangewuxing>    <我有整套五彩道具/@yitaowuxing>
　　<查看全服排名/@paihang>        <领取奖励/@lingjiang>
　　<离开/@exit>

[@goumai]
#IF
CHECKGAMEGOLD > 9
#ACT
ReadRandomStr ..QuestDiary奖励设置五彩礼包.txt S15
GIVE $STR(S15) 1
GIVE 精制兽粮 1
GAMEGOLD - 10
CollectPoint + 10
SENDMSG 7 恭喜你购买了1个五彩礼包，获得了<$STR(S15)>和精制兽粮，消费了10元宝。
#ELSESAY
　　你根本没有那么多元宝！！
　　<知道了/@exit>

[@shuoming]
　　五彩道具包括红色晶球、黄色晶球、绿色晶球、紫色晶
球、蓝色晶球。<color=green 单个五彩道具的作用>：可以增加灵兽经验。
<color=green 一套五彩道具的作用>：二转前灵兽使用，则灵兽等级必直升
一级；二转后的灵兽使用，则必增加1点资质，同时还有几
率灵兽等级直升一级，没能直升1级则增加经验。
　　<知道了/@main>

[@dangewuxing]
#IF
CHECKPETFOLLOW
#SAY
　　你有单个五彩道具吗？那快把它交给我吧，并且<color=green 请让你>
<color=green 的灵兽处于跟随状态>，五彩道具可为灵兽增加经验。\
　　<我再考虑一下/@exit>
#ACT
ShowSpotDlg 6 请放入五彩道具 @放入五彩道具
break
#ELSESAY
　　您并没有放出灵兽，我怎么帮您为灵兽增加经验？\
　　<稍等，我去准备一下/@exit>

[@放入五彩道具]
#IF
!CHECKVARLIST $PARAM(0) ..QuestDiary奖励设置五彩礼包.txt
#SAY
　　你放入的并不是五彩道具，无法为你的灵兽增加经验！
　　<稍等，我去准备一下/@exit>
#ACT
break

#IF
CHECKPETFOLLOW
#ACT
TakeM $PARAM(1)
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PET.MAKEINDEX 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 1
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩道具灵兽获得了经验增加！！
goto @更新排名榜
break
close
#ELSESAY
　　您并没有放出灵兽，我怎么帮您为灵兽增加经验？\
　　<稍等，我去准备一下/@exit>

[@yitaowuxing]
#IF
!CHECKPETFOLLOW
#SAY
　　您并没有放出灵兽，您叫我怎样帮你呢？\
　　<稍等，我去准备一下/@exit>
#ACT
break
#IF
CHECKPETFOLLOW
#SAY
　　你有整套五彩道具了吗？那请把你的灵兽石给我。二转
前灵兽使用，则灵兽等级必直升一级；二转后的灵兽使用，
必增加1点资质(资质到达100后不再提升)，同时还有几率灵
兽等级直升一级。(没能直升1级则增加经验)
　　<我再考虑一下/@exit>
#ACT
ShowSpotDlg 6 请放入灵兽石 @放入灵兽石
break
#ELSESAY
　　您放上的并不是灵兽石，您叫我怎样帮你呢？\
　　<稍等，我去准备一下/@exit>

[@放入灵兽石]
#IF
checkitem 红色晶球 1
checkitem 黄色晶球 1
checkitem 绿色晶球 1
checkitem 紫色晶球 1
checkitem 蓝色晶球 1
#ACT
TAKE 红色晶球 1
TAKE 黄色晶球 1
TAKE 绿色晶球 1
TAKE 紫色晶球 1
TAKE 蓝色晶球 1
GOTO @Game_Start
break
#ELSESAY
　　你并没有整套五彩道具，无法帮助你的灵兽增加经验！
　　<稍等，我去准备一下/@exit>

[@Game_Start]
#IF
EQUAL $PET.RELIVE 2
#ACT
MOV S0 $RANDOMX(10)
MOV S0 @Game_Level
INC S0 $str(D0)
GOTO $str(S0)
break
#IF
SMALL $PET.RELIVE 1
#ACT
UPGRADEUSERITEM $PARAM(1) 4 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包一转灵兽获得了直升一级！！
goto @更新排名榜
break
#IF
SMALL $PET.RELIVE 1
EQUAL $PET.LEVEL 7
#ACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩道具灵兽获得了经验增加！！
goto @更新排名榜
break

[@Game_Level0]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
SETPETATTRIBUTE $PARAM(1) 2 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close
#ELSEACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close

[@Game_Level1]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
SETPETATTRIBUTE $PARAM(1) 2 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close
#ELSEACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close

[@Game_Level2]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
SETPETATTRIBUTE $PARAM(1) 2 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close
#ELSEACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close

[@Game_Level3]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
SETPETATTRIBUTE $PARAM(1) 2 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close
#ELSEACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close

[@Game_Level4]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
SETPETATTRIBUTE $PARAM(1) 2 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close
#ELSEACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close

[@Game_Level5]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
SETPETATTRIBUTE $PARAM(1) 2 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close
#ELSEACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close

[@Game_Level6]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
UPGRADEUSERITEM $PARAM(1) 4 + 1
SETPETATTRIBUTE $PARAM(1) 2 + 1
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了直升一级！！
goto @更新排名榜
break
close
#ELSEACT
UPGRADEUSERITEM $PARAM(1) 4 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了直升一级！！
goto @更新排名榜
break
close

[@Game_Level7]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
SETPETATTRIBUTE $PARAM(1) 2 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close
#ELSEACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close

[@Game_Level8]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
UPGRADEUSERITEM $PARAM(1) 4 + 1
SETPETATTRIBUTE $PARAM(1) 2 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了直升一级！！
goto @更新排名榜
break
close
#ELSEACT
UPGRADEUSERITEM $PARAM(1) 4 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了直升一级！！
goto @更新排名榜
break
close

[@Game_Level9]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
SETPETATTRIBUTE $PARAM(1) 2 + 1
TAKE 红色晶球 1
TAKE 黄色晶球 1
TAKE 绿色晶球 1
TAKE 紫色晶球 1
TAKE 蓝色晶球 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close
#ELSEACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close

[@Game_Level10]
#IF
SMALL $ITEMINFO[$PARAM(1)].APTITUDE 100
#ACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
SETPETATTRIBUTE $PARAM(1) 2 + 1
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close
#ELSEACT
MOVR P1 10
INC P1 1
SETPETATTRIBUTE $PARAM(1) 17 + $STR(P1)
CALCVAR HUMAN 五彩积分 + 10
SAVEVAR HUMAN 五彩积分 ..QuestDiary数据文件五彩仙子.txt
SENDMSG 10 恭喜%S在中州五彩仙子使用五彩礼包二转灵兽获得了经验增加！！
goto @更新排名榜
break
close

[@更新排名榜]
#IF
PosInList $USERNAME ..QuestDiary无限排行五彩排名.txt S0
#ACT
DELVARLIST $STR(S0) ..QuestDiary无限排行五彩排名.txt

#IF
large P0 9
#ACT
break

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 $STR(P0)
mov P1

#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 P1

#IF
CHECKVAR HUMAN 五彩积分 > $STR(P1)
#ACT
FORMATSTR S0 %s|%s <$USERNAME>|<$HUMAN(五彩积分)>
INSERTVARLIST $STR(P0) $STR(S0) ..QuestDiary无限排行五彩排名.txt
#ELSEACT
inc P0 1
goto @更新排名榜

[@检测开奖]
#IF
#ACT
MOV S3 <Color=orange#32王者骑战技能>

[@paihang]
#ACT
mov S10
mov S11
mov S12
mov S13
mov S14

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 0
#IF
!equal S0
#ACT
MOV S3 　
GOTO @检测开奖
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S10 %-10s%-18s%-12s%s 第#321名|<$STR(S1)>|<$STR(S2)>|<$STR(S3)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 1
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S11 %-10s%-18s%s 第#322名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 2
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S12 %-10s%-18s%s 第#323名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 3
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S13 %-10s%-18s%s 第#324名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 4
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S14 %-10s%-18s%s 第#325名|<$STR(S1)>|<$STR(S2)>
#IF
#SAY
你目前已拥有积分：{Color=Green <$HUMAN(五彩积分)>}点。
　　            <Color=Green 本服排行榜>
<Color=Green 名次      角色名            积分        当前奖励>
<$STR(S10)>
<$STR(S11)>
<$STR(S12)>
<$STR(S13)>
<$STR(S14)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 5
#IF
!equal S0
#SAY
<下一页/@paihang2>　　

#IF
random 1
#SAY
<关闭/@exit>

[@paihang2]
#ACT
mov S10
mov S11
mov S12
mov S13
mov S14

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 5
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S10 %-10s%-18s%s 第#326名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 6
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S11 %-10s%-18s%s 第#327名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 7
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S12 %-10s%-18s%s 第#328名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 8
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S13 %-10s%-18s%s 第#329名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..QuestDiary无限排行五彩排名.txt S0 9
#IF
!equal S0
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S14 %-10s%-18s%s 第10名|<$STR(S1)>|<$STR(S2)>

#IF
#SAY
　　            <Color=Green 本服排行榜>
<Color=Green 名次      角色名            积分        当前奖励>
<$STR(S10)>
<$STR(S11)>
<$STR(S12)>
<$STR(S13)>
<$STR(S14)>
<关闭/@exit>

[@lingjiang]
#IF
EQUAL G0 0
#ACT
GOTO @可以开启
break
#ELSESAY
领取失败，原因如下：\
1、您没有参加五彩积分活动或已领取奖励。
2、五彩积分活动每星期一重新计算积分。
3、领取时间为正式开区后每星期一。\
<没事/@exit>

[@可以开启]
#IF
checknamelist ..QuestDiary数据文件五彩积分第一名.txt
Checkjob warrior
#ACT
GIVE 翱风斩(王者级) 1
CLEARNAMELIST ..QuestDiary数据文件五彩积分第一名.txt
SENDMSG 10 恭喜%s五彩积分排名获得第一，获得了王者骑战技能的奖励！
break
#IF
checknamelist ..QuestDiary数据文件五彩积分第一名.txt
Checkjob wizard
#ACT
GIVE 纵雷诀(王者级) 1
CLEARNAMELIST ..QuestDiary数据文件五彩积分第一名.txt
SENDMSG 10 恭喜%s五彩积分排名获得第一，获得了王者骑战技能的奖励！
break
#IF
checknamelist ..QuestDiary数据文件五彩积分第一名.txt
Checkjob taoist
#ACT
GIVE 毒凌波(王者级) 1
CLEARNAMELIST ..QuestDiary数据文件五彩积分第一名.txt
SENDMSG 10 恭喜%s五彩积分排名获得第一，获得了王者骑战技能的奖励！
break
#IF
checknamelist ..QuestDiary数据文件五彩积分第一名.txt
checkjob Goblin
#ACT
GIVE 王者终极连击 1
CLEARNAMELIST ..QuestDiary数据文件五彩积分第一名.txt
SENDMSG 10 恭喜%s五彩积分排名获得第一，获得了王者骑战技能的奖励！
break
#ELSESAY
　　你不是第1名，无法领取奖励。\
　　<离开/@exit>