利用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 = $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