仿盛大主宰者灵兽互换属性完整脚本

使用CALL命令调用，如何加NPC这里就不多讲了，在本站查看教程

[@互换灵兽石]
#IF
ISRIDEON1
#ACT
SENDMSG5本体骑战状态不能使用此功能！
BREAK
#IF
PNEUMARELEASED
$PNEUMANAME.ISRIDEON1
#ACT
SENDMSG5元神骑战状态不能使用此功能！
BREAK
#IF
CHECKPETFOLLOW
#ACT
SENDMSG5互换灵兽石，必须先收回你的灵兽！
BREAK
#IF
CHECK[4]1
#ACT
Showspotdlg6请放入互换的灵兽石@开始互换

[@开始互换]
#IF
!CHECK[4]1
#ACT
SENDMSG5你还不是主宰者，互换灵兽石失败！
break
#IF
EQUAL$ITEMINFO[$PARAM(1)].STDMODE49
EQUAL$ITEMINFO[$PARAM(1)].SHAPE51
#ELSEACT
MESSAGEBOX你放入的不是灵兽石，请检查后操作！
BREAK
#IF
EQUAL$PARAM(1)$PETMAKEINDEX(0)
#ACT
SENDMSG5该灵兽在跟随，无法操作！
BREAK
#IF
EQUAL$PARAM(1)$PETMAKEINDEX(1)
#ACT
SENDMSG5该灵兽在摆摊，无法操作！
BREAK
#IF
EQUAL$PARAM(1)$PETMAKEINDEX(2)
#ACT
SENDMSG5该灵兽在骑乘，无法操作！
BREAK
#IF
EQUAL$PARAM(1)$PETMAKEINDEX(3)
#ACT
SENDMSG5该灵兽在元神骑乘，无法操作！
BREAK
#IF
EQUAL$PARAM(1)$PETMAKEINDEX(4)
#ACT
SENDMSG5该灵兽在凤凰探宝，无法操作！
BREAK
#IF
!CHECKVARLIST$PARAM(1)..QuestDiary数据文件主宰者灵兽石.txt
#ACT
SENDMSG5你放入的<$PARAM(0)>不是主宰者灵兽石，互换失败！
BREAK
#IF
TRUE
#ACT
#SAY
<COLOR=GREEN请选择你要兑换的灵兽石>
;<COLOR=green新的灵兽石将会集成原始灵兽石的除五行属性以外的全部属性!>
#IF
EQUAL$PARAM(0)豹魔石
#SAY
<COLOR=GRAY当前已是豹魔石，无法兑换>
#ELSESAY
<兑换豹魔石/@JY在牛逼也是死&豹魔石>
#IF
EQUAL$PARAM(0)虎魔石
#SAY
<COLOR=GRAY当前已是虎魔石，无法兑换>
#ELSESAY
<兑换虎魔石/@JY在牛逼也是死&虎魔石>

#IF
EQUAL$PARAM(0)凤凰石
#SAY
<COLOR=GRAY当前已是凤凰石，无法兑换>
#ELSESAY
<兑换凤凰石/@JY在牛逼也是死&凤凰石>

#IF
EQUAL$PARAM(0)麒麟石
#SAY
<COLOR=GRAY当前已是麒麟石，无法兑换>
#ELSESAY
<兑换麒麟石/@JY在牛逼也是死&麒麟石>
#IF
EQUAL$PARAM(0)狮魔石
#SAY
<COLOR=GRAY当前已是狮魔石，无法兑换>
#ELSESAY
<兑换狮魔石/@JY在牛逼也是死&狮魔石>


[@JY在牛逼也是死]
#IF
CHECK[4]1
CHECKVARHUMAN主宰币100
#ACT
CALCVARHUMAN主宰币-100
SAVEVARHUMAN主宰币..QuestDiary数据文件主宰币.txt
GIVE$SCRIPTPARAM(1)1
UPGRADEUSERITEM$PARAM(10)88=1;避水
UPGRADEUSERITEM$PARAM(10)4=$ITEMINFO[$PARAM(1)].PET.LEVEL;等级
UPGRADEUSERITEM$PARAM(10)8=1;颜色
UPGRADEUSERITEM$PARAM(10)9=2;二转
UPGRADEUSERITEM$PARAM(10)59=1;绑定
SETPETATTRIBUTE$PARAM(10)1=$ITEMINFO[$PARAM(1)].PET.EVOLUTION;幻化
SETPETATTRIBUTE$PARAM(10)2=$ITEMINFO[$PARAM(1)].PET.APTITUDE;资质
SETPETATTRIBUTE$PARAM(10)3=$ITEMINFO[$PARAM(1)].PET.HP;HP
SETPETATTRIBUTE$PARAM(10)4=$ITEMINFO[$PARAM(1)].PET.MP;MP
SETPETATTRIBUTE$PARAM(10)5=$ITEMINFO[$PARAM(1)].PET.ANTIPOISON;中毒躲避
SETPETATTRIBUTE$PARAM(10)6=$ITEMINFO[$PARAM(1)].PET.MAC1;魔防下线
SETPETATTRIBUTE$PARAM(10)7=$ITEMINFO[$PARAM(1)].PET.MAC2;魔防上线
SETPETATTRIBUTE$PARAM(10)8=$ITEMINFO[$PARAM(1)].PET.MAGICNICETY;魔法命中
SETPETATTRIBUTE$PARAM(10)9=$ITEMINFO[$PARAM(1)].PET.EVADET;躲避
SETPETATTRIBUTE$PARAM(10)10=$ITEMINFO[$PARAM(1)].PET.AC1;防下线
SETPETATTRIBUTE$PARAM(10)11=$ITEMINFO[$PARAM(1)].PET.AC2;防上线
SETPETATTRIBUTE$PARAM(10)12=$ITEMINFO[$PARAM(1)].PET.ANTIMAGIC;魔法躲避
SETPETATTRIBUTE$PARAM(10)13=$ITEMINFO[$PARAM(1)].PET.POISONNICETY;中毒命中
SETPETATTRIBUTE$PARAM(10)14=$ITEMINFO[$PARAM(1)].PET.SAVVY;顿悟
SETPETATTRIBUTE$PARAM(10)17=$ITEMINFO[$PARAM(1)].PET.EXP;经验
SETPETATTRIBUTE$PARAM(10)19=$ITEMINFO[$PARAM(1)].PET.MC1;魔攻下线
SETPETATTRIBUTE$PARAM(10)20=$ITEMINFO[$PARAM(1)].PET.MC2;魔攻上线
SETPETATTRIBUTE$PARAM(10)21=$ITEMINFO[$PARAM(1)].PET.SC1;道术下线
SETPETATTRIBUTE$PARAM(10)22=$ITEMINFO[$PARAM(1)].PET.SC2;道术上线
SETPETATTRIBUTE$PARAM(10)23=$ITEMINFO[$PARAM(1)].PET.DC1;攻击下线
SETPETATTRIBUTE$PARAM(10)24=$ITEMINFO[$PARAM(1)].PET.DC2;攻击上线
SETPETATTRIBUTE$PARAM(10)25=$ITEMINFO[$PARAM(1)].PET.NICETY;命中
SETPETATTRIBUTE$PARAM(10)26=$ITEMINFO[$PARAM(1)].PET.LUCK;幸运
SETPETATTRIBUTE$PARAM(10)27=$ITEMINFO[$PARAM(1)].PET.SPEED;骑战速度
SETPETATTRIBUTE$PARAM(10)15$ITEMINFO[$PARAM(1)].PET.FELEMENT1=$ITEMINFO[$PARAM(1)].PET.FELEMENTPOINT1;五行属性
SETPETATTRIBUTE$PARAM(10)16$ITEMINFO[$PARAM(1)].PET.FELEMENT2=$ITEMINFO[$PARAM(1)].PET.FELEMENTPOINT2;五行属性
ADDVARLIST$PARAM(10)..QuestDiary数据文件主宰者灵兽石.txt
TAKEM$PARAM(1)
SENDMSG5灵兽石互换成功，新的灵兽石已经集成原来灵兽石的全部属性！
CLOSE
break