CDK领取功能实现

admin

给玩家发一个CDK码，他在游戏中点击一个NPC，输入CDK就可以领取对应的福利，这个在游戏中怎么用脚本实现。@82PC小秘书

82PC小秘书

在NPC脚本中用`CheckVar`验证CDK状态，`#IF`判断有效性：

1. [@main]
   
2. #SAY
   
3. 请输入CDK码：<输入/@@InPutString5>\
   
4. 
   
5. [@InPutString5]
   
6. #IF
   
7. CheckVar HUMAN CDK_<$STR(S5)> = 未使用
   
8. #ACT
   
9. ; 执行奖励
   
10. give 金币 100000
    
11. CHANGEEXP + 10000
    
12. MOV HUMAN CDK_<$STR(S5)> 已使用
    
13. SENDMSG 6 CDK兑换成功！
    
14. #ELSEACT
    
15. SENDMSG 6 CDK无效或已使用。

复制代码

需提前用`MOV`预设CDK变量，或从文本列表读取。禁止修改客户端数据，服务器端变量保证安全。

admin

82PC小秘书 发表于 2026-7-28 15:52
在NPC脚本中用`CheckVar`验证CDK状态，`#IF`判断有效性：

[@main]

建议使用TXT存储CDK，用另一个TXT存储已领取列表，还要做到一个区只能领取一次的功能。@82PC小秘书

82PC小秘书

NPC脚本示例：  

1.   
2. [@main]  
3. #ACT  
4. MOV S1  
5. INPUTSTRING 请输入CDK码  
6. GOTO @CheckCDK
8. [@CheckCDK]  
9. #IF  
10. EQUAL S1  
11. #ACT  
12. MESSAGEBOX 输入不能为空。  
13. BREAK  
14. #IF  
15. CHECKTEXTLIST ..\QuestDiary\CDK\已使用.txt <$STR(S1)>  
16. #ACT  
17. MESSAGEBOX 此CDK已被使用或无效。  
18. BREAK  
19. #ELSEACT  
20. ADDTEXTLIST ..\QuestDiary\CDK\已使用.txt <$STR(S1)>  
21. GIVE 金条 1  
22. SENDMSG 6 CDK领取成功，获得金条x1！  

复制代码

需在QuestDiary\CDK目录下创建“已使用.txt”，CDK预先生成并交给玩家。

admin

@82PC小秘书 你小子还挺可以的，是个合格的技术，有两把刷子，给你加个大鸡腿，好好努力

82PC小秘书

在NPC脚本中通过输入框获取CDK，校验并发放奖励。使用个人标记防止重复领取。

2. [@main]
3. #IF
4. CHECK [200] 0
5. #SAY
6. 输入CDK兑换福利：<输入CDK码/@@InPutString1>
7. #ELSESAY
8. 你已经领取过CDK福利了。
10. [@InPutString1]
11. #IF
12. CHECK [200] 0
13. #ACT
14. MOV S1 <$STR(S1)>
15. ; 假设合法CDK为"2025NEWYEAR"
16. #IF
17. EQUAL S1 2025NEWYEAR
18. #ACT
19. SET [200] 1
20. GIVE 金币 1000000
21. GIVE 祝福油 5
22. SENDMSG 6 CDK兑换成功，请查收背包。
23. BREAK
24. #ELSEACT
25. SENDMSG 6 CDK无效，请检查后重试。
26. BREAK

复制代码

将CDK列表、对应奖励存储在文本中循环校验可实现多CDK支持。

mfkje

82PC小秘书 发表于 2026-7-28 16:52
在NPC脚本中通过输入框获取CDK，校验并发放奖励。使用个人标记防止重复领取。

真的这么厉害吗

82PC小秘书

CDK通过检测文本文件实现，每个CDK一行，已使用则删除或标记。  

[

1.   
2. [@main]  
3. #ACT  
4. MOV S$输入CDK  
5. #SAY  
6. 请输入CDK码：\  
7. <输入CDK码/@@InPutString80>\  
8. <退出/@exit>  
10. [@InPutString80]  
11. #IF  
12. CheckStringlength S80 > 0  
13. #ACT  
14. MOV S$输入CDK <$STR(S80)>  
15. GOTO @CheckCDK  
16. #ELSEACT  
17. MESSAGEBOX 请输入有效CDK码。  
19. [@CheckCDK]  
20. #IF  
21. CheckTextFile CDK列表.txt S$输入CDK  
22. #ACT  
23. #ELSEACT  
24. MESSAGEBOX CDK码无效或已使用。  
25. BREAK  
27. #IF  
28. CheckTextFile CDK已用.txt S$输入CDK  
29. #ACT  
30. MESSAGEBOX 该CDK已被领取。  
31. BREAK  
33. #ACT  
34. AddTextList CDK已用.txt S$输入CDK  
35. DelTextList CDK列表.txt S$输入CDK  
36. GIVE 金条 1  
37. GIVE 祝福油 1  
38. SENDMSG 6 你成功领取了CDK奖励：金条、祝福油。  
39. CLOSE  

复制代码

备好“CDK列表.txt”存放有效CDK，“CDK已用.txt”记录已领取。如需限制单角色，可用个人变量或数据文件记录。