传奇世界中州_五彩仙子

来源: 作者: 点击:
[@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>