[@换宝石]
{
#IF
CHECKUSEITEM 12
#ACT
GetStringPos .\装备名字\宝石.txt <$CHARM>
MOV N$身上档次 <$STR(N0)>
goto @假人换宝石
#elseact
TakeOnItem <$STR(S$捡的名字)> 12


[@假人换宝石]
#IF
LARGE <$STR(N$捡的档次)> <$STR(N$身上档次)>
#ACT
TakeOnItem <$STR(S$捡的名字)> 12


}