留言版有GM回覆但是用了卻沒有顯示出來

aa9700566

我設置了一個留言版玩家留言GM可以回覆
但是我回覆了之後回覆的話卻沒有出現在視窗裡面..
意思就是說..
[某玩家名稱](No.1)
留言內容
我點選GM回覆之後..跑出問我要回第幾封我打1按下確認之後
會顯示出回覆內容 打完之後又按下確認一次
但是卻沒有出現在留言版裡面
想請問各位大大這問題是發生在哪裡..
以下是腳本內容

1. 
   
2. 
   
3. 
   
4. payon,156,239,4 script Goddameit-留言板 46,{
   
5. 
   
6. if(!$n){ set ghj,0; }
   
7. 
   
8. menu "[留言]",savq,"[全部的留言]",resd,"[自己的留言]",resd1,( getgmlevel()== 99 ?"[清除所有留言]":""),Chang,( getgmlevel()== 99 ?"[GM回覆]":""),GMreply;
   
9. 
   
10. GMreply:
    
11. 
    
12. mes "No.?";
    
13. 
    
14. input .@m;
    
15. 
    
16. if( getd("$n"+.@m+"$") == "" ){ mes "(nothing...)"; close; }
    
17. 
    
18. mes "回覆內容?";
    
19. 
    
20. input .@m$;
    
21. 
    
22. set $Mb,$Mb+1;
    
23. 
    
24. set $m[$Mb],.@m;
    
25. 
    
26. setd "$GMreply"+.@m+getcharid(0)+"$","^FF0000["+$GMname$[GMname]+"GM]:"+.@m$;
    
27. 
    
28. close;
    
29. 
    
30. Chang:
    
31. 
    
32. if( .@n < $n ){
    
33. 
    
34. set .@n,.@n+1;
    
35. 
    
36. setd "$nt"+.@n+"$","";
    
37. 
    
38. setd "$n"+.@n+"$","";
    
39. 
    
40. goto Chang; }
    
41. 
    
42. set $n,0;
    
43. 
    
44. Chang2:
    
45. 
    
46. while( .@q < $Mb ){
    
47. 
    
48.   set .@q,.@q+1;
    
49. 
    
50.   setd "$GMreply"+$m[.@q]+$AID[1]+"$","";
    
51. 
    
52.   setd "$GMreply"+$m[.@q]+$AID[2]+"$","";
    
53. 
    
54.   setd "$GMreply"+$m[.@q]+$AID[3]+"$","";
    
55. 
    
56.   setd "$GMreply"+$m[.@q]+$AID[4]+"$","";
    
57. 
    
58.   setd "$GMreply"+$m[.@q]+$AID[5]+"$","";
    
59. 
    
60.   setd "$GMreply"+$m[.@q]+$AID[6]+"$","";
    
61. 
    
62.   setd "$GMreply"+$m[.@q]+$AID[7]+"$","";
    
63. 
    
64.   setd "$GMreply"+$m[.@q]+$AID[8]+"$","";
    
65. 
    
66.   setd "$GMreply"+$m[.@q]+$AID[9]+"$","";
    
67. 
    
68.   setd "$GMreply"+$m[.@q]+$AID[10]+"$","";
    
69. 
    
70. }
    
71. 
    
72. set $Mb,0;
    
73. 
    
74. close;
    
75. 
    
76. 
    
77. 
    
78. 
    
79. 
    
80. resd:
    
81. 
    
82. if( .@n < $n ){
    
83. 
    
84. set .@n,.@n+1;
    
85. 
    
86. mes getd("$nt"+.@n+"$");
    
87. 
    
88. mes getd("$n"+.@n+"$");
    
89. 
    
90. for( set .@i, 1; .@i <= 10; set .@i, .@i +1 ){
    
91. 
    
92. if( getd( "$GMreply"+.@n+$AID[.@i]+"$" ) != ""  && getd( "$GMreply"+.@n+$AID[.@i]+"$" ) != getd( "$GMreply"+.@n+$AID[.@i+1]+"$")
    
93. 
    
94. && getd( "$GMreply"+.@n+$AID[.@i]+"$" ) != getd( "$GMreply"+.@n+$AID[.@i+2]+"$" )
    
95. 
    
96. && getd( "$GMreply"+.@n+$AID[.@i]+"$" ) != getd( "$GMreply"+.@n+$AID[.@i+3]+"$" )
    
97. 
    
98. && getd( "$GMreply"+.@n+$AID[.@i]+"$" ) != getd( "$GMreply"+.@n+$AID[.@i+4]+"$" )  )
    
99. 
    
100. mes getd( "$GMreply"+.@n+$AID[.@i]+"$" )+"^000000"; }
     
101. 
     
102. if( .@n % 5 == 0 ){ next; }
     
103. 
     
104. goto resd; }
     
105. 
     
106. if( getd("$n"+.@n+"$") == "" ){ mes "(nothing...)"; close; }
     
107. 
     
108. close;
     
109. 
     
110. savq:
     
111. 
     
112. input .@t$;
     
113. 
     
114. set $n,$n+1;
     
115. 
     
116. setd "$nt"+$n+"$","^000088["+strcharinfo(0)+"]^000000^660000(No."+$n+")^000000";
     
117. 
     
118. setd "$n"+$n+"$",.@t$;
     
119. 
     
120. set ghj,ghj+1;
     
121. 
     
122. setd "dfg"+ghj,$n; close;
     
123. 
     
124. 
     
125. 
     
126. resd1:
     
127. 
     
128. for( set .@o, 1; .@o <= ghj; set .@o, .@o +1 ){
     
129. 
     
130. mes "^660000["+.@o+"]^000000";
     
131. 
     
132. mes getd("$n"+getd("dfg"+.@o)+"$");
     
133. 
     
134. for( set .@i, 1; .@i <= 10; set .@i, .@i +1 ){
     
135. 
     
136.   if( getd( "$GMreply"+.@o+$AID[.@i]+"$" ) != ""  && getd( "$GMreply"+.@o+$AID[.@i]+"$" ) != getd( "$GMreply"+.@o+$AID[.@i+1]+"$")
     
137. 
     
138.   && getd( "$GMreply"+.@o+$AID[.@i]+"$" ) != getd( "$GMreply"+.@o+$AID[.@i+2]+"$" )
     
139. 
     
140.   && getd( "$GMreply"+.@o+$AID[.@i]+"$" ) != getd( "$GMreply"+.@o+$AID[.@i+3]+"$" )
     
141. 
     
142.   && getd( "$GMreply"+.@o+$AID[.@i]+"$" ) != getd( "$GMreply"+.@o+$AID[.@i+4]+"$" )  )
     
143. 
     
144.    mes getd( "$GMreply"+.@o+$AID[.@i]+"$" )+"^000000"; }
     
145. 
     
146. }
     
147. 
     
148. close;
     
149. 
     
150. }
     
151. 
     
152. - script 123 -1,{
     
153. 
     
154. OnPCLoginEvent:
     
155. 
     
156.    if( getcharid(0) == 150003 ){ set GMname,3; }
     
157. 
     
158.    if( getcharid(0) == 150004 ){ set GMname,1; }
     
159. 
     
160. setarray $GMname$[1],"[總]","[腳本]","[管理]";
     
161. 
     
162. if( getgmlevel() > 90 ){
     
163. 
     
164. while( .@P < 10 ){
     
165. 
     
166. set .@P,.@P+1;
     
167. 
     
168.   if( $AID[.@P] == 0 && $AID[.@P] != getcharid(0)  ){ set $AID[.@P],getcharid(0);
     
169. 
     
170.    end; }
     
171. 
     
172. } }
     
173. 
     
174. 
     
175. 
     
176. }
     
177. 
     

複製代碼

goddameit

http://www.okayro.com/thread-187110-1-1.html

aa9700566

回復 2# goddameit

這位大大 這是我按照您的方式轉後的內容 謝謝..

1. payon,156,239,4 script Goddameit-留言板 46,{
   
2. if(!$n){ set ghj,0; }
   
3. menu "[留言]",savq,"[全部的留言]",resd,"[自己的留言]",resd1,( getgmlevel()== 99 ?"[清除所有留言]":""),Chang,( getgmlevel()== 99 ?"[GM回覆]":""),GMreply;
   
4. 
   
5. GMreply:
   
6. mes "No.?";
   
7. input .@m;
   
8. if( getd("$n"+.@m+"$") == "" ){ mes "(nothing...)"; close; }
   
9. mes "回覆內容?";
   
10. input .@m$;
    
11. set $Mb,$Mb+1;
    
12. set $m[$Mb],.@m;
    
13. setd "$GMreply"+.@m+getcharid(0)+"$","^FF0000["+$GMname$[GMname]+"GM]:"+.@m$;
    
14. close;
    
15. 
    
16. Chang:
    
17. if( .@n < $n ){
    
18. set .@n,.@n+1;
    
19. setd "$nt"+.@n+"$","";
    
20. setd "$n"+.@n+"$","";
    
21. goto Chang; }
    
22. set $n,0;
    
23. Chang2:
    
24. 
    
25. while( .@q < $Mb ){
    
26. set .@q,.@q+1;
    
27. setd "$GMreply"+$m[.@q]+$AID[1]+"$","";
    
28. setd "$GMreply"+$m[.@q]+$AID[2]+"$","";
    
29. setd "$GMreply"+$m[.@q]+$AID[3]+"$","";
    
30. setd "$GMreply"+$m[.@q]+$AID[4]+"$","";
    
31. setd "$GMreply"+$m[.@q]+$AID[5]+"$","";
    
32. setd "$GMreply"+$m[.@q]+$AID[6]+"$","";
    
33. setd "$GMreply"+$m[.@q]+$AID[7]+"$","";
    
34. setd "$GMreply"+$m[.@q]+$AID[8]+"$","";
    
35. setd "$GMreply"+$m[.@q]+$AID[9]+"$","";
    
36. setd "$GMreply"+$m[.@q]+$AID[10]+"$","";
    
37. }
    
38. 
    
39. set $Mb,0;
    
40. close;
    
41. 
    
42. 
    
43. 
    
44. resd:
    
45. if( .@n < $n ){
    
46. set .@n,.@n+1;
    
47. mes getd("$nt"+.@n+"$");
    
48. mes getd("$n"+.@n+"$");
    
49. for( set .@i, 1; .@i <= 10; set .@i, .@i +1 ){
    
50. if( getd( "$GMreply"+.@n+$AID[.@i]+"$" ) != "" && getd( "$GMreply"+.@n+$AID[.@i]+"$" ) != getd( "$GMreply"+.@n+$AID[.@i+1]+"$")
    
51. && getd( "$GMreply"+.@n+$AID[.@i]+"$" ) != getd( "$GMreply"+.@n+$AID[.@i+2]+"$" )
    
52. && getd( "$GMreply"+.@n+$AID[.@i]+"$" ) != getd( "$GMreply"+.@n+$AID[.@i+3]+"$" )
    
53. && getd( "$GMreply"+.@n+$AID[.@i]+"$" ) != getd( "$GMreply"+.@n+$AID[.@i+4]+"$" ) )
    
54. mes getd( "$GMreply"+.@n+$AID[.@i]+"$" )+"^000000"; }
    
55. if( .@n % 5 == 0 ){ next; }
    
56. goto resd; }
    
57. if( getd("$n"+.@n+"$") == "" ){ mes "(nothing...)"; close; }
    
58. close;
    
59. 
    
60. savq:
    
61. input .@t$;
    
62. set $n,$n+1;
    
63. setd "$nt"+$n+"$","^000088["+strcharinfo(0)+"]^000000^660000(No."+$n+")^000000";
    
64. setd "$n"+$n+"$",.@t$;
    
65. set ghj,ghj+1;
    
66. setd "dfg"+ghj,$n; close;
    
67. 
    
68. resd1:
    
69. for( set .@o, 1; .@o <= ghj; set .@o, .@o +1 ){
    
70. mes "^660000["+.@o+"]^000000";
    
71. mes getd("$n"+getd("dfg"+.@o)+"$");
    
72. for( set .@i, 1; .@i <= 10; set .@i, .@i +1 ){
    
73. if( getd( "$GMreply"+.@o+$AID[.@i]+"$" ) != "" && getd( "$GMreply"+.@o+$AID[.@i]+"$" ) != getd( "$GMreply"+.@o+$AID[.@i+1]+"$")
    
74. && getd( "$GMreply"+.@o+$AID[.@i]+"$" ) != getd( "$GMreply"+.@o+$AID[.@i+2]+"$" )
    
75. && getd( "$GMreply"+.@o+$AID[.@i]+"$" ) != getd( "$GMreply"+.@o+$AID[.@i+3]+"$" )
    
76. && getd( "$GMreply"+.@o+$AID[.@i]+"$" ) != getd( "$GMreply"+.@o+$AID[.@i+4]+"$" ) )
    
77. mes getd( "$GMreply"+.@o+$AID[.@i]+"$" )+"^000000"; }
    
78. }
    
79. close;
    
80. }
    
81. - script 123 -1,{
    
82. OnPCLoginEvent:
    
83. if( getcharid(0) == 150003 ){ set GMname,3; }
    
84. if( getcharid(0) == 150004 ){ set GMname,1; }
    
85. setarray $GMname$[1],"[總]","[腳本]","[管理]";
    
86. if( getgmlevel() > 90 ){
    
87. while( .@P < 10 ){
    
88. set .@P,.@P+1;
    
89. if( $AID[.@P] == 0 && $AID[.@P] != getcharid(0) ){ set $AID[.@P],getcharid(0);
    
90. end; }
    
91. } }
    
92. 
    
93. 
    
94. }

複製代碼