【完整实现】月卡、季卡、年卡脚本

高启强

以下是我实现的思路，如果你有更好的思路和解决方案，请做出辩解，兄弟们一起完善它。

NPC部分

1. #if
   
2. #act
   
3. mov P1 <$STR(U1)>
   
4. mov P2 <$UTCNow>
   
5. 
   
6. #if
   
7. LARGE P1 P2
   
8. #act
   
9. dec P1 P2
   
10. inc P1 2592000
    
11. mov P2 <$UTCNow>
    
12. inc P2 P1
    
13. #elseact
    
14. inc P2 2592000
    
15. 
    
16. #if
    
17. #act
    
18. mov U1 <$STR(P2)>
    
19. 
    
20. #if
    
21. #act
    
22. GameGold - 50
    
23. ADDNAMELIST ..\MapQuest_Def\Vip.txt
    
24. ADDNAMELIST ..\MapQuest_Def\Vip月名单.txt
    
25. SendMsg 0 恭喜 <$USERNAME> 成为月卡会员！

复制代码

QM部分

1. [@会员处理]
   
2. {
   
3. #IF
   
4. CHECKNAMELIST ..\MapQuest_Def\Vip月名单.txt
   
5. #ACT
   
6. GOTO @处理月卡
   
7. BREAK
   
8. 
   
9. #IF
   
10. CHECKNAMELIST ..\MapQuest_Def\Vip季名单.txt
    
11. #ACT
    
12. GOTO @处理季卡
    
13. BREAK
    
14. 
    
15. #IF
    
16. CHECKNAMELIST ..\MapQuest_Def\Vip年名单.txt
    
17. #ACT
    
18. GOTO @处理年卡
    
19. BREAK
    
20. 
    
21. #IF
    
22. NOT CHECKNAMELIST ..\MapQuest_Def\Vip.txt
    
23. #ACT
    
24. MOV U1 0
    
25. BREAK
    
26. 
    
27. [@处理月卡]
    
28. #if
    
29. #act
    
30. MOV P1 <$UTCNow>
    
31. MOV P2 <$STR(U1)>
    
32. 
    
33. #if
    
34. LARGE P2 P1
    
35. #act
    
36. UnixToStr <$STR(P2)> S1 0
    
37. DEC P2 <$STR(P1)>
    
38. DIV P2 60
    
39. DIV P2 60
    
40. DIV P2 24
    
41. SendMsg 7 会员到期时间: <$STR(S1)> 剩余<$STR(P2)>天！！！
    
42. #elseact
    
43. DelNameList ..\MapQuest_Def\Vip.txt
    
44. DelNameList ..\MapQuest_Def\Vip月名单.txt
    
45. SendMsg 5 你的月会员已过期！！！
    
46. 
    
47. [@处理季卡]
    
48. #if
    
49. #act
    
50. MOV P1 <$UTCNow>
    
51. MOV P2 <$STR(U1)>
    
52. 
    
53. #if
    
54. LARGE P2 P1
    
55. #act
    
56. UnixToStr <$STR(P2)> S1 0
    
57. DEC P2 <$STR(P1)>
    
58. DIV P2 60
    
59. DIV P2 60
    
60. DIV P2 24
    
61. SendMsg 7 会员到期时间: <$STR(S1)> 剩余<$STR(P2)>天！！！
    
62. #elseact
    
63. DelNameList ..\MapQuest_Def\Vip.txt
    
64. DelNameList ..\MapQuest_Def\Vip季名单.txt
    
65. SendMsg 5 你的季会员已过期！！！
    
66. 
    
67. [@处理年卡]
    
68. #if
    
69. #act
    
70. MOV P1 <$UTCNow>
    
71. MOV P2 <$STR(U1)>
    
72. 
    
73. #if
    
74. LARGE P2 P1
    
75. #act
    
76. UnixToStr <$STR(P2)> S1 0
    
77. DEC P2 <$STR(P1)>
    
78. DIV P2 60
    
79. DIV P2 60
    
80. DIV P2 24
    
81. SendMsg 7 会员到期时间: <$STR(S1)> 剩余<$STR(P2)>天！！！
    
82. #elseact
    
83. DelNameList ..\MapQuest_Def\Vip.txt
    
84. DelNameList ..\MapQuest_Def\Vip年名单.txt
    
85. SendMsg 5 你的年会员已过期！！！
    
86. }

复制代码

传奇千秋

跨不了区和版本。

指定区不如用引擎自带的会员系统。

高启强

传奇千秋 发表于 2024-6-13 10:05
跨不了区和版本。

指定区不如用引擎自带的会员系统。

好像是的，对于有跨区的需求，这个不行。

joner1988

又学习了

wtw120

感谢分享，又学习了，谢谢楼主

传奇客家

引擎自带的会员系统就很方便~！！你这个整麻烦了~！！

hailaojie

感觉没啥用，还是要感谢你的付出

qq142029

感觉没啥用，还是要感谢你的付出 我是小白，不懂

flg888

非常不错，支持一下

103719418

小手一抖金币到手！！