【千年服务端】妖狐村活动代码.无错版

妖狐村活动代码.无错版

Tgs1000/Init/Item.sdb

狐狸精华,狐狸精华,4,狐狸精华能治好全村人的病
还不快拿给女村长,,,,,,,TRUE,FALSE,230,,,,,,,,,,200000,200000,,,,,,,,,,,,,,,,,,,,,,,,,,狐王之骨:1:狐狸血:5:梅花夫人玉簪:1:捕盗大将腰牌:3,,,,,,,,,,,,,,,,,,,,,,,
狐王之骨,狐王之骨,5,妖狐王的骨头
加工狐狸精华的材料,,,,,,,TRUE,FALSE,563,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
狐狸血,狐狸血,5,装满妖狐血的瓶子
加工狐狸精华的材料,,,,,,,TRUE,FALSE,306,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
梅花夫人玉簪,梅花夫人玉簪,5,梅花夫人丢失的玉簪
加工狐狸精华的材料,,,,,,,TRUE,FALSE,578,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
捕盗大将腰牌,捕盗大将腰牌,5,捕盗大将丢失的腰牌
加工狐狸精华的材料,,,,,,,TRUE,FALSE,571,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
Tgs1000/Init/Monster.sdb
火妖狐,火妖狐,,523,6000,3800,,360000,,,,0,8,30,49,70,3200,,,,750,30000,-10,0,-40,,10,10,TRUE,TRUE,,TRUE,,,,,100,9,TRUE,,,,,,,TRUE,,8925,8927,,8926,,,,,,真珠10:1:30:男子太极道袍:1:100:女子太极道袍:1:99:狐狸血:1:60:男子太极道冠:1:40:女子太极道冠:1:35:白酒:10:1,,,,,15,1,1,1,1,1,1,1,1,,,,,,,,,,,,,,,,,,,
白妖狐,白妖狐,,658,6000,4000,,360000,,,,0,8,31,50,70,3400,,,,750,30000,-10,0,-50,,10,20,TRUE,TRUE,,TRUE,,,,,0,10,TRUE,,,,,,,TRUE,,8928,8930,,8929,,,,,,真珠10:1:30:太极斧:1:80:太极日剑:1:70:太极月刀:1:60:太极神枪:1:50:太极手套:1:40:捕盗大将腰牌:1:50:白酒:10:1,,,,,15,1,1,1,1,1,1,1,1,,,,,,,,,,,,,,,,,,,
妖狐王,妖狐王,,6200,6000,8000,,360000,,,,0,16,53,73,70,6000,,,,2000,100000,-30,30,-70,,10,10,TRUE,TRUE,,TRUE,,,,,0,10,TRUE,,,,,,,TRUE,,9110,9112,,9113,,,,白酒:10:5,1,天王刀:1:150:霸王剑:1:60:帝王槌:1:20:西域魔人枪:1:50:金丝斗甲:1:10:真珠100:1:10:北海连环弓:1:40:狐王之骨:1:300,,,,,15,1,1,1,1,1,1,1,1,,,,,,,,,,,,,,,,,9998,,
妖狐首领,妖狐首领,,4719,6000,6700,,360000,,,,0,8,42,61,70,4000,,,,2000,100000,-30,30,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,12,TRUE,,,,,童颜鬼术:10000,,TRUE,,9119,9120,,9121,,,,白酒:10:5,1,男子魔人道袍:1:70:女子魔人道袍:1:60:男子魔人护腕:1:20:女子魔人护腕:1:20:男子魔人帽:1:30:女子魔人帽:1:30:真珠100:1:10:男子魔人战靴:1:40:女子魔人战靴:1:39:梅花夫人玉簪:1:20,,,,,15,1,1,1,1,1,1,1,1,,,,,,,,,,,,,,,,,,,
所用的地图是最早新人村的大地图
Tgs1000/Init/Map.sdb

XXX
,small02.smp,small02.map,southtil.til,southobj.obj,southrof.obj,1301,,妖狐村,TRUE,TRUE,TRUE,TRUE,,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,TRUE,,TRUE,TRUE,TRUE,,,,,,,,,,1,520,478,,,,,,,,,,,,,,,,,,,,,,,,,,,,aa:bb,,
Tgs1000/Setting/CreateMonster
XXX
.sdb(注意这个0是对应map.SDB里地图的编号)
1,火妖狐,,86,173,10,20,
2,火妖狐,,71,150,10,20,
3,火妖狐,,61,125,10,20,
4,火妖狐,,64,124,10,20,
5,火妖狐,,37,131,10,20,
6,火妖狐,,36,150,10,20,
7,火妖狐,,35,168,10,20,
8,火妖狐,,48,174,10,20,
9,火妖狐,,63,192,10,20,
10,火妖狐,,74,209,10,20,
11,火妖狐,,72,227,10,20,
12,火妖狐,,80,241,10,20,
13,火妖狐,,58,265,10,20,
14,火妖狐,,57,285,10,20,
15,火妖狐,,71,298,10,20,
16,火妖狐,,91,303,10,20,
17,火妖狐,,101,313,10,20,
18,火妖狐,,114,297,10,20,
19,火妖狐,,126,285,10,20,
20,火妖狐,,147,286,10,20,
21,火妖狐,,160,301,10,20,
22,火妖狐,,170,313,10,20,
23,火妖狐,,163,282,10,20,
24,火妖狐,,163,268,10,20,
25,火妖狐,,157,253,10,20,
26,火妖狐,,146,242,10,20,
27,火妖狐,,137,236,10,20,
28,火妖狐,,128,234,10,20,
29,火妖狐,,122,226,10,20,
30,火妖狐,,114,216,10,20,
31,火妖狐,,102,228,10,20,
32,火妖狐,,105,245,10,20,
33,火妖狐,,113,265,10,20,
34,火妖狐,,102,280,10,20,
35,火妖狐,,88,276,10,20,
36,火妖狐,,126,134,10,20,
37,火妖狐,,144,129,10,20,
38,火妖狐,,162,123,10,20,
39,火妖狐,,183,113,10,20,
40,火妖狐,,205,105,10,20,
41,火妖狐,,225,122,10,20,
42,火妖狐,,244,146,10,20,
43,火妖狐,,262,136,10,20,
44,火妖狐,,265,154,10,20,
45,火妖狐,,233,170,10,20,
46,火妖狐,,243,187,10,20,
47,火妖狐,,258,203,10,20,
48,火妖狐,,282,231,10,20,
49,火妖狐,,279,253,10,20,
50,火妖狐,,263,260,10,20,
51,火妖狐,,257,279,10,20,
52,火妖狐,,267,295,10,20,
53,火妖狐,,285,313,10,20,
54,火妖狐,,293,326,10,20,
55,火妖狐,,265,335,10,20,
56,火妖狐,,253,346,10,20,
57,火妖狐,,235,359,10,20,
58,火妖狐,,221,341,10,20,
59,火妖狐,,195,332,10,20,
60,火妖狐,,193,307,10,20,
61,火妖狐,,202,280,10,20,
62,火妖狐,,216,265,10,20,
63,火妖狐,,208,232,10,20,
64,火妖狐,,181,222,10,20,
65,火妖狐,,142,75,10,20,
66,白妖狐,,86,173,10,20,火妖狐:1
67,白妖狐,,64,124,10,20,火妖狐:1
68,白妖狐,,36,150,10,20,火妖狐:1
69,白妖狐,,48,174,10,20,火妖狐:1
70,白妖狐,,63,192,10,20,火妖狐:1
71,白妖狐,,74,209,10,20,火妖狐:1
72,白妖狐,,72,227,10,20,火妖狐:1
73,白妖狐,,80,241,10,20,火妖狐:1
74,白妖狐,,91,303,10,20,火妖狐:1
75,白妖狐,,160,301,10,20,火妖狐:1
76,白妖狐,,170,313,10,20,火妖狐:1
77,白妖狐,,163,268,10,20,火妖狐:1
78,白妖狐,,137,236,10,20,火妖狐:1
79,白妖狐,,122,226,10,20,火妖狐:1
80,白妖狐,,888,276,10,20,火妖狐:1
81,妖狐首领,,131,233,1,3,
82,妖狐首领,,203,302,1,3,
83,妖狐首领,,147,232,1,3,
85,妖狐首领,,887,276,1,3,
86,妖狐首领,,143,75,1,3,
87,妖狐首领,,222,341,1,3,
88,妖狐首领,,241,146,1,3,
89,妖狐王,,131,231,1,30,
90,妖狐王,,203,302,1,30,
91,妖狐王,,887,278,1,30,
92,妖狐王,,241,146,1,30,
93,妖狐王,,222,342,1,30,
94,火妖狐,,242,255,10,20,
95,白妖狐,,242,256,10,20,火妖狐:1
96,妖狐首领,,242,257,1,3,
97,妖狐王,,242,259,1,30,
98,妖狐王,,147,232,1,30,
93,妖狐王,,143,76,1,30,
Tgs1000/Setting/CreateGate.sdb（XXX为妖狐村地图的编号）

187,妖狐村,妖狐村,0,TRUE,69,507,480,35,242,516,480,1,
XXX
,3,,,,,,,,,,,,,,,,,,,,,,,,
Tgs1000/Init/Npc.sdb

女村长,女村长,0,,,TRUE,,,,,,,37,56,160,150,30,,,,3500,-15,0,-30,10,,0,,,,,,,,,,,,,,,,
Tgs1000/Script/Script.sdb

139,女村长.txt,,
Tgs1000/Script/女村长.txt

1. unit 女村长;
   
2. interface
   
3. function  GetToken (aStr, aToken, aSep : String) : String;
   
4. function  CompareStr (aStr1, aStr2 : String) : Boolean;
   
5. function  callfunc (aText: string): string;
   
6. procedure print (aText: string);
   
7. function  Random (aScope: integer): integer;
   
8. function  Length (aText: string): integer;
   
9. procedure Inc (aInt: integer);
   
10. procedure Dec (aInt: integer);
    
11. function  StrToInt (astr: string): integer;
    
12. function  IntToStr (aInt: integer): string;
    
13. procedure exit;
    
14. procedure OnGetResult (aStr : String);
    
15. procedure OnLeftClick (aStr : String);
    
16. procedure OnApproach (aStr : String);
    
17. procedure OnAway (aStr : String);
    
18. procedure OnArrival (aStr : String);
    
19. var
    
20. iCallCount : Integer = 0;
    
21. implementation
    
22. procedure OnAway (aStr : String);
    
23. var
    
24.    Str : String;
    
25.    Race : Integer;
    
26. begin
    
27.    Str := callfunc ('getsenderrace');
    
28.    Race := StrToInt (Str);
    
29.    if Race = 1 then begin
    
30.       print ('say 快把狐狸精华给我吧');
    
31.    exit;
    
32.    end;
    
33. end;
    
34. procedure OnApproach (aStr : String);
    
35. var
    
36.    Str : String;
    
37.    Race : Integer;
    
38. begin
    
39.    Str := callfunc ('getsenderrace');
    
40.    Race := StrToInt (Str);
    
41.    if Race = 1 then begin
    
42.       print ('say 欢迎光临龙禧千年');
    
43.    exit;
    
44.    end;
    
45. end;
    
46. procedure OnLeftClick (aStr : String);
    
47. var
    
48.    Str : String;
    
49. begin
    
50.    Str := 'showwindow .\help\女村长.txt 1';
    
51.    print (Str);
    
52.    exit;
    
53. end;
    
54. procedure OnGetResult (aStr : String);
    
55. var
    
56.    Str, Name : String;
    
57.    iRandom, iKind : Integer;
    
58. begin
    
59.    if aStr = 'taozi' then begin
    
60.       Str := callfunc ('getsenderitemexistence 狐狸精华:1');
    
61.       if Str = 'false' then begin
    
62.          Str := 'say 我心急如焚-没有狐狸精华别来见我';
    
63.          print (Str);
    
64.          exit;
    
65.       end;
    
66.       Str := callfunc ('checkenoughspace');
    
67.       if Str = 'false' then begin
    
68.          print ('say 物品栏已满~');
    
69.          exit;
    
70.       end;
    
71.       
    
72.       print ('getsenderitem 狐狸精华:1');
    
73.       
    
74.       iKind := Random (15);
    
75.       if iKind = 0 then begin
    
76.           Str := 'putsendermagicitem 鹰雕手 @女村长 4';
    
77.           print (Str);
    
78.        end;
    
79.       if iKind = 1 then begin
    
80.           Str := 'putsendermagicitem 清月天剑 @女村长 4';
    
81.           print (Str);
    
82.        end;
    
83.       if iKind = 2 then begin
    
84.           Str := 'putsendermagicitem 天云宝刀 @女村长 4';
    
85.           print (Str);
    
86.        end;
    
87.       if iKind = 3 then begin
    
88.           Str := 'putsendermagicitem 白骨魔棒 @女村长 4';
    
89.           print (Str);
    
90.        end;
    
91.       if iKind = 4 then begin
    
92.           Str := 'putsendermagicitem 天龙月斧 @女村长 4';
    
93.           print (Str);
    
94.        end;
    
95.       if iKind = 5 then begin
    
96.           Str := 'putsendermagicitem 男子英雄头盔 @女村长 4';
    
97.           print (Str);
    
98.        end;
    
99.       if iKind = 6 then begin
    
100.           Str := 'putsendermagicitem 女子英雄头盔 @女村长 4';
     
101.           print (Str);
     
102.        end;
     
103.       if iKind = 7 then begin
     
104.           Str := 'putsendermagicitem 男子英雄铠甲 @女村长 4';
     
105.           print (Str);
     
106.        end;
     
107.       if iKind = 8 then begin
     
108.           Str := 'putsendermagicitem 女子英雄铠甲 @女村长 4';
     
109.           print (Str);
     
110.        end;
     
111.       if iKind = 9 then begin
     
112.           Str := 'putsendermagicitem 男子英雄护腕 @女村长 4';
     
113.           print (Str);
     
114.        end;
     
115.       if iKind = 10 then begin
     
116.           Str := 'putsendermagicitem 女子英雄护腕 @女村长 4';
     
117.           print (Str);
     
118.        end;
     
119.       if iKind = 11 then begin
     
120.           Str := 'putsendermagicitem 男子英雄战靴 @女村长 4';
     
121.           print (Str);
     
122.        end;
     
123.       if iKind = 12 then begin
     
124.           Str := 'putsendermagicitem 女子英雄战靴 @女村长 4';
     
125.           print (Str);
     
126.        end;
     
127.       if iKind = 13 then begin
     
128.           Str := 'putsendermagicitem 大脉神弓 @女村长 4';
     
129.           print (Str);
     
130.        end;
     
131.       if iKind = 14 then begin
     
132.           Str := 'putsendermagicitem 归魂斗甲 @女村长 4';
     
133.           print (Str);
     
134.        end;
     
135.       Str := 'say 你拯救了全村人 这些东西就拿去吧!';
     
136.       print (str);
     
137.      end;
     
138.   end;
     
139. end.

复制代码

Tgs1000/Help/女村长.txt

女村长
英雄如果你能找到狐狸精华,就能救活全村人的性命!
关闭
给予狐狸精华!
Tgs1000/Setting/CreateNpc1.sdb(请注意下面的编号139这个和Script.sdb的139对应)

98,女村长,504,480,1,2,139,,

下载地址

妖狐村活动代码.无错版...doc

网盘失效？举报有奖

立即下载

免费

您已购买

金币

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