Gom引擎脚本-自助改名

2020

1. [free]<div class="blockcode"><blockquote>(@@InPutInteger @@InPutString )
   
2. [@main]
   
3. #IF
   
4. CHECKLEVELEX > 0
   
5. #ACT
   
6. #say
   
7. 　　　<◆◆◆◆◆　玛法情缘自助改名系统　◆◆◆◆◆/AUTOCOLOR=249>\
   
8. 　\
   
9. <查询名称是否可用/@@InputString11(请输入新的名称：)>（<重复角色名、系统禁用关键字不能使用/AUTOCOLOR=250>）\　
   
10. <改名前一定要查询好是否能用，否则改名失败扣除费用后果自负！/AUTOCOLOR=253>\
    
11. <我要开始改角色名/@@InputString21(请输入新的名称：)>（<为防止骗子频繁换名字，每次收费2000情缘币/AUTOCOLOR=255>）\　\
    
12. 
    
13. <改名系统需注意：/AUTOCOLOR=249>\
    
14. <改名后行会、累积充值等数据会跟着角色名变化，天下第一需重新申请/AUTOCOLOR=254>\
    
15. 
    
16. 
    
17. 
    
18. 
    
19. [@InputString11]
    
20. #IF
    
21. Equal S11
    
22. #ACT
    
23. Messagebox 请输入一个正确的名称
    
24. Break
    
25. 
    
26. #OR
    
27. CheckStringlength S11 > 14
    
28. CheckStringlength S11 < 3
    
29. #ACT
    
30. Messagebox 输入名称长度不正确
    
31. Break
    
32. 
    
33. #IF
    
34. #ACT
    
35. QUERYHUMNAMEEXIST <$STR(S11)>
    
36. 
    
37. [@InputString21]
    
38. #IF
    
39. Equal S21
    
40. #ACT
    
41. Messagebox 请输入一个正确的名称
    
42. Break
    
43. 
    
44. #OR
    
45. CheckStringlength S21 > 14
    
46. CheckStringlength S21 < 3
    
47. #ACT
    
48. Messagebox 名字长度不正确，请输入2-7个汉字！
    
49. Break
    
50. 
    
51. #IF
    
52. CHECKGAMEDIAMOND > 1999
    
53. #ACT
    
54. GAMEDIAMOND - 2000
    
55. CHANGEHUMNAME S21
    
56. messagebox 你的名字修改成功，旧名：<$USERNAME>，新名：<$USERNEWNAME>
    
57. close
    
58. break
    
59. #ELSEACT
    
60. MessageBox 提示：你的情缘币不足2000，无法改名！
    
61. break
    
62. 
    
63. 
    
64. 
    
65. 
    
66. 
    
67. [@土豪更换]
    
68. #if
    
69. equal A8 <$USERNAME>
    
70. #act
    
71. mov A8 <$USERNEWNAME>
    
72. break
    
73. 
    
74. #if
    
75. equal A9 <$USERNAME>
    
76. #act
    
77. mov A9 <$USERNEWNAME>
    
78. break
    
79. 
    
80. #if
    
81. equal A10 <$USERNAME>
    
82. #act
    
83. mov A10 <$USERNEWNAME>
    
84. break
    
85. 
    

复制代码

[/free]