购买系统商铺物品时触发

QF当中增加一个触发：

[@购买系统商铺物品时触发]
#if
#act
sendmsg 6 物品名称=<$str(S$物品名称)>
sendmsg 6 价格=<$str(N$价格)>
sendmsg 6 类别=<$str(N$类别)>
mov N$是否阻止 1
messagebox 本次购买已阻止!