【千年服务端】千年宝宝脚本

千年宝宝脚本－－呕血奉献

NPC的名称和NPC判断的名称自己改。。
NPC名称是’老胡的儿子‘
自己改
所有的
if namea <> '老胡' then begin
把老胡改成自己的名称

可以输入命令攻击的宝宝。。
杀怪路上不在独单。。。
人物要自己加，，只是脚本，，不会加的看了白看。。。。
看了不顶是狗，，，最好来我的服务器玩玩。。。
记住命令”号不输入。。
“攻击+空格+玩家名称”
“停止攻击”
”跟我来“
点击浏览该文件

文字解说一下

有什么不对的地方 请大家指出来

首先在script文件夹内新建一个文档文件 名字随意 最好使用你将给宝宝取的名字做为文件名

然后把下面代码复制到内

1. unit 老泊;
   
2. 
   
3. interface
   
4. 
   
5. function  GetToken (aStr, aToken, aSep : String) : String;
   
6. function  CompareStr (aStr1, aStr2 : String) : Boolean;
   
7. function  callfunc (aText: string): string;
   
8. procedure print (aText: string);
   
9. function  Random (aScope: integer): integer;
   
10. function  Length (aText: string): integer;
    
11. procedure Inc (aInt: integer);
    
12. procedure Dec (aInt: integer);
    
13. function  StrToInt (astr: string): integer;
    
14. function  IntToStr (aInt: integer): string;
    
15. procedure exit;
    
16. 
    
17. procedure OnDblClick(aStr : String);
    
18. procedure OnGetResult (aStr : String);
    
19. procedure OnHear (aStr : String);
    
20. procedure OnDie (aStr : String);
    
21. procedure OnAway (aStr : String);
    
22. 
    
23. var
    
24. yidong :string;
    
25. name :string;
    
26. implementation
    
27. 
    
28. procedure OnHear (aStr : String);
    
29. var
    
30.   namea, pstr, Str, rdStr, xStr, yStr : String;
    
31.    x, y, xx, yy : Integer;
    
32.    Race : Integer;
    
33.    cuan, detu : String;
    
34.    detua : Integer;
    
35. begin
    
36. namea := callfunc ('getsendername');
    
37. if namea <> 'GM玫瑰小姐' then begin
    
38. exit;
    
39. end;
    
40. if astr = '停止攻击' then begin
    
41. str := 'say ' + 'Yes-老大!停止攻击〔';
    
42. str := str + pstr;
    
43. str := str + '〕';
    
44. print (str);
    
45. print ('attack 狗日')
    
46. yidong := '停';
    
47. exit;
    
48. end;
    
49. 
    
50. rdstr := GetToken (astr, yStr, '_');
    
51. if ystr = '攻击' then begin
    
52. rdstr := 'say ' + astr;
    
53. print (rdstr);
    
54. pstr := GetToken (astr, xStr, '_');
    
55. str := 'say ' + 'Yes-老大!攻击〔';
    
56. str := str + pstr;
    
57. str := str + '〕';
    
58. print (str);
    
59. str :='findobjectbyname '+ pstr;
    
60. str := callfunc (str) ;
    
61. str := 'attack ' + str;
    
62. print (str);
    
63. yidong := '停';
    
64. exit;
    
65. end;
    
66. 
    
67. if astr = '跟我来' then begin
    
68. yidong := '走';
    
69. 
    
70. print ('attack 狗日');
    
71. detu := callfunc ('getsenderserverid');
    
72. str := callfunc ('getsenderposition');
    
73. 
    
74.    Str := GetToken (Str, xStr, '_');
    
75.    x := StrToInt (xStr);
    
76.    Str := GetToken (Str, yStr, '_');
    
77.    y := StrToInt (yStr);
    
78. 
    
79.    rdStr := 'getnearxy ' + xStr;
    
80.    rdStr := rdStr + ' ';
    
81.    rdStr := rdStr  + yStr;
    
82.    Str := callfunc (rdStr);
    
83. 
    
84. 
    
85.    Str := GetToken (Str, xStr, '_');
    
86.    xx := StrToInt (xStr);
    
87.    Str := GetToken (Str, yStr, '_');
    
88.    yy := StrToInt (yStr);
    
89. 
    
90.    if x = xx then begin
    
91.       if y = yy then begin
    
92.          exit;
    
93.       end;
    
94.    end;
    
95. 
    
96. if yidong <> '走' then exit;
    
97. cuan := 'directmovespace 老泊 npc ';
    
98. str :=cuan + detu;
    
99. str :=str + ' ';
    
100. str :=str + xstr;
     
101. str :=str + ' ';
     
102. str :=str + ystr;
     
103. print (str);
     
104. str := 'say ' + '老大抱我! 100';
     
105. print (str);
     
106. exit;
     
107. end;
     
108. end;
     
109. 
     
110. end;
     
111. 
     
112. 
     
113. procedure OnAway (aStr : String);
     
114. var
     
115.    namea, Str, rdStr, xStr, yStr : String;
     
116.    x, y, xx, yy : Integer;
     
117.    cuan, detu : String;
     
118.    detua : Integer;
     
119. begin
     
120. name := 'GM玫瑰小姐';
     
121. namea := callfunc ('getsendername');
     
122. if namea = name then begin
     
123.    Str := callfunc ('getsenderrace');
     
124.    if Str <> '1' then exit;
     
125.    print ('say 哈哈...');
     
126. 
     
127. detu := callfunc ('getsenderserverid');
     
128. str := callfunc ('getsenderposition');
     
129. 
     
130.    Str := GetToken (Str, xStr, '_');
     
131.    x := StrToInt (xStr);
     
132.    Str := GetToken (Str, yStr, '_');
     
133.    y := StrToInt (yStr);
     
134. 
     
135.    rdStr := 'getnearxy ' + xStr;
     
136.    rdStr := rdStr + ' ';
     
137.    rdStr := rdStr  + yStr;
     
138.    Str := callfunc (rdStr);
     
139. 
     
140. 
     
141.    Str := GetToken (Str, xStr, '_');
     
142.    xx := StrToInt (xStr);
     
143.    Str := GetToken (Str, yStr, '_');
     
144.    yy := StrToInt (yStr);
     
145. 
     
146.    if x = xx then begin
     
147.       if y = yy then begin
     
148.          exit;
     
149.       end;
     
150.    end;
     
151. 
     
152. if yidong <> '走' then exit;
     
153. cuan := 'directmovespace 老泊 npc ';
     
154. str :=cuan + detu;
     
155. str :=str + ' ';
     
156. str :=str + xstr;
     
157. str :=str + ' ';
     
158. str :=str + ystr;
     
159. print (str);
     
160. end;
     
161. exit;
     
162. end;
     
163. end;
     
164. procedure OnDblClick (aStr : String);
     
165. var
     
166.    name, namea, Str, rdStr, xStr, yStr : String;
     
167.    x, y, xx, yy : Integer;
     
168.    cuan, detu : String;
     
169.    detua : Integer;
     
170. begin
     
171. print ('attack 狗日');
     
172. detu := callfunc ('getsenderserverid');
     
173. str := callfunc ('getsenderposition');
     
174. 
     
175.    Str := GetToken (Str, xStr, '_');
     
176.    x := StrToInt (xStr);
     
177.    Str := GetToken (Str, yStr, '_');
     
178.    y := StrToInt (yStr);
     
179. 
     
180.    rdStr := 'getnearxy ' + xStr;
     
181.    rdStr := rdStr + ' ';
     
182.    rdStr := rdStr  + yStr;
     
183.    Str := callfunc (rdStr);
     
184. 
     
185. 
     
186.    Str := GetToken (Str, xStr, '_');
     
187.    xx := StrToInt (xStr);
     
188.    Str := GetToken (Str, yStr, '_');
     
189.    yy := StrToInt (yStr);
     
190. 
     
191.    if x = xx then begin
     
192.       if y = yy then begin
     
193.          exit;
     
194.       end;
     
195.    end;
     
196. cuan := 'directmovespace 老泊 npc ';
     
197. str :=cuan + detu;
     
198. str :=str + ' ';
     
199. str :=str + xstr;
     
200. str :=str + ' ';
     
201. str :=str + ystr;
     
202.    if x = xx then begin
     
203.       if y = yy then begin
     
204.          exit;
     
205.       end;
     
206.    end;
     
207. print (str);
     
208. 
     
209. end;
     
210. 
     
211. end.

复制代码

注意上面有的地方 是宝宝将有的名字 宝宝将得到命令以后的对话  宝宝的主人名称  使用宝宝的命令 注意不需要使用@
第二
我们在相同的文件夹中找到Script.SDB
在文件内加入          XXX（这里是排列顺序号）,老泊.txt,,
第三步
在init文件夹内找到NPC.SDB
在里面编写宝宝（其实就是一个NPC）属性代码
第四步
打开setting文件夹找到刷出NPC的文件 根据地图添加
例如长城以南刷个宝宝在中央 就找到CreateNpc1.sdb
在里面添加宝宝NPC
102（这里是我的排列号改为你自己的）,老泊,533,475,1,2,XXX（对应上面Script.SDB
的号码）,,
好了这样就添加完成了
你可以上你的服务器到中央市场位置 533 475找到你的宝宝 键入口令“跟我来”这样狗狗就听你的话了 注意脚本里面要改好你自己的名字
如果还有什么不懂的 哪个朋友有空间 我可以发个屏录教程 这个脚本其实就是根据守门派石卒兵改变 不是原创 写的不好请不要骂我 扔扔砖头就可以了

下载地址

千年宝宝脚本－－呕血奉献.doc

网盘失效？举报有奖

立即下载

免费

您已购买

金币

【年费VIP仅需28元】   【购买VIP会员】  
【充值金币】  【免费领取金币】 
【解压密码在此下载文档内，请仔细阅读！】