仿盛大主成龙谈代言农产品宰者灵兽互换属性完整脚本

使用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 [4] 1 #ACT Showspotdlg 6 请放入互换的灵兽石 @开始互换 [@开始互换] #IF !CHECK [4] 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 [4] 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 = $ITEM今日新开合击私服INFO[$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 ;命中 SET猎天传奇私服PETATTRIBUTE $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 ;五行属性 A网通传奇3DDVARLIST $PARAM(10) ..QuestDiary数据文件主宰者灵兽石.txt TAKEM $PARAM(1) SENDMSG 5 灵兽石互换成功，新的灵兽石已经集成原来灵兽石的全部属性！ CLOSE break