Gom引擎脚本-宝石摘除

GM版本库

[@main]

　\
　　<摘除/SCOLOR=243><武器已镶嵌的宝石/@武器>　　<摘除/SCOLOR=243><左戒已镶嵌的宝石/@左戒>\
　　<摘除/SCOLOR=243><衣服已镶嵌的宝石/@衣服>　　<摘除/SCOLOR=243><右戒已镶嵌的宝石/@右戒>\
　　<摘除/SCOLOR=243><头盔已镶嵌的宝石/@头盔>　　<摘除/SCOLOR=243><左手已镶嵌的宝石/@左手>\
　　<摘除/SCOLOR=243><项链已镶嵌的宝石/@项链>　　<摘除/SCOLOR=243><右手已镶嵌的宝石/@右手>\
　　<摘除/SCOLOR=243><腰带已镶嵌的宝石/@腰带>　　<摘除/SCOLOR=243><勋章已镶嵌的宝石/@勋章>\
　　<摘除/SCOLOR=243><靴子已镶嵌的宝石/@靴子>　　<摘除/SCOLOR=243><斗笠已镶嵌的宝石/@斗笠>\
　　<摘除/SCOLOR=243><宝石已镶嵌的宝石/@宝石>　　<摘取宝石时需要将装备佩带在身上/SCOLOR=253>\
　　<摘除/SCOLOR=243><盾牌已镶嵌的宝石/@盾牌>




[@右手]
#IF
CHECKSOCKETABLEITEM 5 0 N1 S1
#act
SOCKETABLEITEM * * * * 5 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 右手第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 5 1 N2 S2
#act
SOCKETABLEITEM * * * * 5 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 右手第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 5 2 N3 S3
#act
SOCKETABLEITEM * * * * 5 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 右手第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.

#IF
CHECKSOCKETABLEITEM 5 3 N4 S4
#act
SOCKETABLEITEM * * * * 5 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 右手第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.
[@斗笠]
#IF
CHECKSOCKETABLEITEM 13 0 N1 S1
#act
SOCKETABLEITEM * * * * 13 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 斗笠第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 13 1 N2 S2
#act
SOCKETABLEITEM * * * * 13 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 斗笠第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 13 2 N3 S3
#act
SOCKETABLEITEM * * * * 13 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 斗笠第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.


[@勋章]
#IF
CHECKSOCKETABLEITEM 2 0 N1 S1
#act
SOCKETABLEITEM * * * * 2 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 勋章第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 2 1 N2 S2
#act
SOCKETABLEITEM * * * * 2 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 勋章第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 2 2 N3 S3
#act
SOCKETABLEITEM * * * * 2 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 勋章第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.

#IF
CHECKSOCKETABLEITEM 2 3 N4 S4
#act
SOCKETABLEITEM * * * * 2 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 勋章第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.




[@宝石]
#IF
CHECKSOCKETABLEITEM 12 0 N1 S1
#act
SOCKETABLEITEM * * * * 12 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 宝石第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 12 1 N2 S2
#act
SOCKETABLEITEM * * * * 12 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 宝石第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 12 2 N3 S3
#act
SOCKETABLEITEM * * * * 12 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 宝石第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 12 3 N4 S4
#act
SOCKETABLEITEM * * * * 12 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 宝石第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.








[@靴子]
#IF
CHECKSOCKETABLEITEM 11 0 N1 S1
#act
SOCKETABLEITEM * * * * 11 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 靴子第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 11 1 N2 S2
#act
SOCKETABLEITEM * * * * 11 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 靴子第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 11 2 N3 S3
#act
SOCKETABLEITEM * * * * 11 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 靴子第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.

#IF
CHECKSOCKETABLEITEM 11 3 N4 S4
#act
SOCKETABLEITEM * * * * 11 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 靴子第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.





[@腰带]
#IF
CHECKSOCKETABLEITEM 10 0 N1 S1
#act
SOCKETABLEITEM * * * * 10 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 腰带第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 10 1 N2 S2
#act
SOCKETABLEITEM * * * * 10 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 腰带第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 10 2 N3 S3
#act
SOCKETABLEITEM * * * * 10 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 腰带第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.

#IF
CHECKSOCKETABLEITEM 10 3 N4 S4
#act
SOCKETABLEITEM * * * * 10 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 腰带第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.




[@盾牌]
#IF
CHECKSOCKETABLEITEM 16 0 N1 S1
#act
SOCKETABLEITEM * * * * 16 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 盾牌第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 16 1 N2 S2
#act
SOCKETABLEITEM * * * * 16 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 盾牌第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 16 2 N3 S3
#act
SOCKETABLEITEM * * * * 16 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 盾牌第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.





[@左手]
#IF
CHECKSOCKETABLEITEM 6 0 N1 S1
#act
SOCKETABLEITEM * * * * 6 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 左手第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 6 1 N2 S2
#act
SOCKETABLEITEM * * * * 6 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 左手第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 6 2 N3 S3
#act
SOCKETABLEITEM * * * * 6 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 左手第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.

#IF
CHECKSOCKETABLEITEM 6 3 N4 S4
#act
SOCKETABLEITEM * * * * 6 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 左手第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.







[@右戒]
#IF
CHECKSOCKETABLEITEM 7 0 N1 S1
#act
SOCKETABLEITEM * * * * 7 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 右戒第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 7 1 N2 S2
#act
SOCKETABLEITEM * * * * 7 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 右戒第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 7 2 N3 S3
#act
SOCKETABLEITEM * * * * 7 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 右戒第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.

#IF
CHECKSOCKETABLEITEM 7 3 N4 S4
#act
SOCKETABLEITEM * * * * 7 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 右戒第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.



[@左戒]
#IF
CHECKSOCKETABLEITEM 8 0 N1 S1
#act
SOCKETABLEITEM * * * * 8 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 左戒第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 8 1 N2 S2
#act
SOCKETABLEITEM * * * * 8 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 左戒第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 8 2 N3 S3
#act
SOCKETABLEITEM * * * * 8 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 左戒第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.

#IF
CHECKSOCKETABLEITEM 8 3 N4 S4
#act
SOCKETABLEITEM * * * * 8 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 左戒第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.




[@项链]
#IF
CHECKSOCKETABLEITEM 3 0 N1 S1
#act
SOCKETABLEITEM * * * * 3 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 项链第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 3 1 N2 S2
#act
SOCKETABLEITEM * * * * 3 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 项链第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 3 2 N3 S3
#act
SOCKETABLEITEM * * * * 3 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 项链第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.

#IF
CHECKSOCKETABLEITEM 3 3 N4 S4
#act
SOCKETABLEITEM * * * * 3 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 项链第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.


[@头盔]
#IF
CHECKSOCKETABLEITEM 4 0 N1 S1
#act
SOCKETABLEITEM * * * * 4 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 头盔第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 4 1 N2 S2
#act
SOCKETABLEITEM * * * * 4 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 头盔第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 4 2 N3 S3
#act
SOCKETABLEITEM * * * * 4 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 头盔第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.

#IF
CHECKSOCKETABLEITEM 4 3 N4 S4
#act
SOCKETABLEITEM * * * * 4 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 头盔第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.


[@衣服]
#IF
CHECKSOCKETABLEITEM 0 0 N1 S1
#act
SOCKETABLEITEM * * * * 0 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 衣服第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 0 1 N2 S2
#act
SOCKETABLEITEM * * * * 0 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 衣服第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 0 2 N3 S3
#act
SOCKETABLEITEM * * * * 0 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 衣服第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 0 3 N4 S4
#act
SOCKETABLEITEM * * * * 0 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 衣服第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.





[@武器]
#IF
CHECKSOCKETABLEITEM 1 0 N1 S1
#act
SOCKETABLEITEM * * * * 1 0 * * 0 *
give <$STR(S1)> 1
SENDMSG 6 武器第一个位置镶嵌了宝石。宝石名称：<$STR(S1)>,摘除后获得属性消失.


#IF
CHECKSOCKETABLEITEM 1 1 N2 S2
#act
SOCKETABLEITEM * * * * 1 1 * * 0 *
give <$STR(S2)> 1
SENDMSG 6 武器第二个位置镶嵌了宝石。宝石名称：<$STR(S2)>,摘除后获得属性消失.



#IF
CHECKSOCKETABLEITEM 1 2 N3 S3
#act
SOCKETABLEITEM * * * * 1 2 * * 0 *
give <$STR(S3)> 1
SENDMSG 6 武器第三个位置镶嵌了宝石。宝石名称：<$STR(S3)>,摘除后获得属性消失.

#IF
CHECKSOCKETABLEITEM 1 3 N4 S4
#act
SOCKETABLEITEM * * * * 1 3 * * 0 *
give <$STR(S4)> 1
SENDMSG 6 武器第三个位置镶嵌了宝石。宝石名称：<$STR(S4)>,摘除后获得属性消失.