1. [@星星]
2. #act
3. ShowspotDlg 6 请放入装备: @加星星
4. [@加星星]
5. #IF
6. large $ITEMINFO[$PARAM(1)].SEAL 13
7. #act
8. messagebox 已到最大限制!
9. close
10. break
11. #IF
12. CHECKVARlist $PARAM(0) ..\QuestDiary\游戏数据\禁止加星.txt
13. #act
14. SetItemSeal $PARAM(1) + 1
15. #say
16. 成功了!\\
17. <离 开/@exit>
18. #elsesay
19. {color=green <$PARAM(0)>}这件物品不允许加星!\\
20. <离开/@exit>
21.
22. [@取消星]
23. #ACT
24. ShowspotDlg 6 请放入装备: @取消加星
25. [@取消加星]
26. #IF
27. large $ITEMINFO[$PARAM(1)].SEAL 0
28. #ACT
29. SetItemSeal $PARAM(1) = 0
30. SENDMSG 7 您的<$PARAM(0)>加星清除成功!
31. close
32. #ELSEACT
33. messagebox 请不要重复操作!
34. close
