一个简单的装备加星与取消的脚本

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

复制代码

确实不错，顶先

楼主呀，，，您太有才了。。。

沙发？？？

学习下

不知该说些什么。。。。。。就是谢谢

呵呵，低调，低调！

众里寻他千百度，蓦然回首在这里！