千年宝宝脚本+神武年龄限制的修改方法

内容介绍

神武年龄限制的修改方法：用UltraEdit 打开tgs1000.exe
找到 000cd450h 这个地址 下面的这个数值是原版的
a1 0f 00=表示40.01岁的才能学
如果想改成小于40岁就能学，参阅下面的改法

1. <font color="#006400">把a1 0f 00改成ad 0d 00 = 35.01岁能学
   
2. 把a1 0f 00改成b9 0b 00 = 25.01岁能学
   
3. 把a1 0f 00改成c5 09 00 = 25.01岁能学
   
4. 把a1 0f 00改成d1 07 00 = 20.01岁能学
   
5. 把a1 0f 00改成dd 05 00 = 15.01岁能学
   
6. 把a1 0f 00改成e9 03 00 = 10.01岁能学
   
7. 把a1 0f 00改成00 00 00 =就取消了年龄限制了</font>

复制代码

注意上面的英文字母用大写的字母书写就可以了

宝宝脚本：
NPC的名称和NPC判断的名称自己改。
NPC名称是’老胡的儿子‘
自己改，所有的

1. if namea <> '老胡' then begin

复制代码

把老胡改成自己的名称


可以输入命令攻击的宝宝。杀怪路上不在独单。人物要自己加，只是脚本，不会加的看了白看。
记住命令”号不输入。

1. “攻击+空格+玩家名称”
   
2. “停止攻击”
   
3. ”跟我来“

复制代码

首先在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
在文件内加入

1. XXX（这里是排列顺序号）,老泊.txt,,

复制代码

第三步
在init文件夹内找到NPC.SDB
在里面编写宝宝（其实就是一个NPC）属性代码


第四步
打开setting文件夹找到刷出NPC的文件。根据地图添加，例如长城以南刷个宝宝在中央，就找到CreateNpc1.sdb在里面添加宝宝NPC

1. 102（这里是我的排列号改为你自己的）,老泊,533,475,1,2,XXX

复制代码

（对应上面Script.SDB的号码）




这样就添加完成了，可以上你的服务器到中央市场位置 533 475找到你的宝宝 键入口令“跟我来”这样狗狗就听你的话了，

游客，如果您要查看本帖隐藏内容请回复

内容截图

附件下载   (如果本资源侵犯到您的权益，请联系在线管理员QQ：1589479632处理！)

规划和空间

学习，希望不要坑

谢谢分享！！！！

学习下  谢谢分享

非常棒的脚本啊！

好东西 正好需要

哒哒哒哒哒哒多多多多多多多多多多多多多

新手来学习了谢谢

感谢分享，学习了。

感谢分享，楼主辛苦~！！！

额特特特让他

很好的解释，谢谢！！

学习下  谢谢分享