仿盛大主宰者灵兽互换属性完整脚本
使用CALL命令调用，如何加NPC这里就不多讲了，在本站查看教程[@互换灵兽石]
#IF
ISRIDEON 1
#ACT
SENDMSG 5 本体骑战状态不能使用此功能！
BREAK
#IF
PNEUMARELEASED
$PNEUMANAME.ISRIDEON 1
#ACT
SENDMSG 5 元神骑战状态不能使用此功能！
BREAK
#IF
CHECKPETFOLLOW
#ACT
SENDMSG 5 互换灵兽石，必须先收回你的灵兽！
BREAK
#IF
CHECK 1
#ACT
Showspotdlg 6 请放入互换的灵兽石 @开始互换
[@开始互换]
#IF
!CHECK 1
#ACT
SENDMSG 5 你还不是主宰者，互换灵兽石失败！
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].STDMODE 49
EQUAL $ITEMINFO[$PARAM(1)].SHAPE 51
#ELSEACT
MESSAGEBOX 你放入的不是灵兽石，请检查后操作！
BREAK
#IF
EQUAL $PARAM(1) $PETMAKEINDEX(0)
#ACT
SENDMSG 5 该灵兽在跟随，无法操作！
BREAK
#IF
EQUAL $PARAM(1) $PETMAKEINDEX(1)
#ACT
SENDMSG 5 该灵兽在摆摊，无法操作！
BREAK
#IF
EQUAL $PARAM(1) $PETMAKEINDEX(2)
#ACT
SENDMSG 5 该灵兽在骑乘，无法操作！
BREAK
#IF
EQUAL $PARAM(1) $PETMAKEINDEX(3)
#ACT
SENDMSG 5 该灵兽在元神骑乘，无法操作！
BREAK
#IF
EQUAL $PARAM(1) $PETMAKEINDEX(4)
#ACT
SENDMSG 5 该灵兽在凤凰探宝，无法操作！5uwl.net
BREAK
#IF
!CHECKVARLIST $PARAM(1) ..QuestDiary数据文件主宰者灵兽石.txt
#ACT
SENDMSG 5 你放入的<$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 1
CHECKVAR HUMAN 主宰币 100
#ACT
CALCVAR HUMAN 主宰币 - 100
SAVEVAR HUMAN 主宰币 ..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)
SENDMSG 5 灵兽石互换成功，新的灵兽石已经集成原来灵兽石的全部属性！
CLOSE
break
真是被感动的痛哭流涕…… 无回帖，不论坛，这才是人道。 强烈支持楼主ing…… 真是被感动的痛哭流涕…… 看到这帖子真是高兴！ 看到这帖子真是高兴！ 激动人心，无法言表！ 太生气了，无法HOLD啦 >_<...... 淡定，淡定，淡定……