妖狐村活动代码.无错版

Tgs1000/Init/Item.sdb
0 H2 A) t& u4 m- |
狐狸精华,狐狸精华,4,狐狸精华能治好全村人的病
还不快拿给女村长,,,,,,,TRUE,FALSE,230,,,,,,,,,,200000,200000,,,,,,,,,,,,,,,,,,,,,,,,,,狐王之骨:1:狐狸血:5:梅花夫人玉簪:1:捕盗大将腰牌:3,,,,,,,,,,,,,,,,,,,,,,,
  e" b2 |$ Q( y狐王之骨,狐王之骨,5,妖狐王的骨头
8 v+ Z9 F' w2 X6 e加工狐狸精华的材料,,,,,,,TRUE,FALSE,563,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
6 b# w7 ]4 ?& _% K7 c狐狸血,狐狸血,5,装满妖狐血的瓶子
2 N6 J; a  I9 k0 i. O加工狐狸精华的材料,,,,,,,TRUE,FALSE,306,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
" ~( S7 T" \2 B梅花夫人玉簪,梅花夫人玉簪,5,梅花夫人丢失的玉簪
' }% G& ~/ J4 E8 C加工狐狸精华的材料,,,,,,,TRUE,FALSE,578,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
: i( e7 V% p, v3 S捕盗大将腰牌,捕盗大将腰牌,5,捕盗大将丢失的腰牌
8 C2 d1 e1 p# r  n+ B* D加工狐狸精华的材料,,,,,,,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,,,,,,,,,,,,,,,,,,,
( u- {! Q. G& G. N2 Z. [3 J妖狐王,妖狐王,,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,,
, L8 L/ ?8 P2 X/ L& c  ~妖狐首领,妖狐首领,,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,,,,,,,,,,,,,,,,,,,
所用的地图是最早新人村的大地图

5 f& ?1 N" W5 A2 r4 A7 cTgs1000/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,,
4 P, n3 Z9 s. ?Tgs1000/Setting/CreateMonster
XXX
% c% y9 T. M) b.sdb(注意这个0是对应map.SDB里地图的编号)
: K) @7 K$ o( q1,火妖狐,,86,173,10,20,
1 q( b' ], C# X% F9 S3 b, U9 W2,火妖狐,,71,150,10,20,
3,火妖狐,,61,125,10,20,
4,火妖狐,,64,124,10,20,
" v' K$ q9 D% W* b$ p5,火妖狐,,37,131,10,20,
6,火妖狐,,36,150,10,20,
7,火妖狐,,35,168,10,20,
8,火妖狐,,48,174,10,20,
6 C% _- z4 Q6 q2 S( w7 ]" d6 |; q9,火妖狐,,63,192,10,20,
% E3 j* p7 `9 V0 y+ s) H10,火妖狐,,74,209,10,20,
5 k! W  h$ |. f11,火妖狐,,72,227,10,20,
12,火妖狐,,80,241,10,20,
13,火妖狐,,58,265,10,20,
14,火妖狐,,57,285,10,20,
15,火妖狐,,71,298,10,20,
  }0 [, w% x3 P0 V16,火妖狐,,91,303,10,20,
) x8 g" `: c, x2 m' W0 P1 O! u8 \, G/ J17,火妖狐,,101,313,10,20,
18,火妖狐,,114,297,10,20,
19,火妖狐,,126,285,10,20,
# V2 U8 u5 ~- A/ g( K9 ]20,火妖狐,,147,286,10,20,
( f/ \  H: w! X% w21,火妖狐,,160,301,10,20,
9 o6 r* X/ O/ B( g! _' U0 o22,火妖狐,,170,313,10,20,
& U: k4 J& }0 q! j( N4 G2 z3 b23,火妖狐,,163,282,10,20,
# b0 P- p2 o! g3 P+ P" r; V; y24,火妖狐,,163,268,10,20,
* P7 k! L+ H0 ~$ Y% y25,火妖狐,,157,253,10,20,
( w* N6 ]4 T3 a* }( D26,火妖狐,,146,242,10,20,
* o/ T% a( c$ Z; ~1 l' F27,火妖狐,,137,236,10,20,
28,火妖狐,,128,234,10,20,
# J4 |( Z* M0 `9 g29,火妖狐,,122,226,10,20,
: y% H/ R! D0 E& b" U) x' G0 y30,火妖狐,,114,216,10,20,
31,火妖狐,,102,228,10,20,
. [* v# h+ J$ w32,火妖狐,,105,245,10,20,
9 W0 Q  m+ R" b, |$ Y6 H7 \) a33,火妖狐,,113,265,10,20,
34,火妖狐,,102,280,10,20,
' Q  b; y0 |& v2 y. \35,火妖狐,,88,276,10,20,
& ^* A1 k; i( b: W/ R# J: `36,火妖狐,,126,134,10,20,
1 ?, e8 _, H; L) X% x0 Y8 k37,火妖狐,,144,129,10,20,
; n! e% f# a0 \+ u9 m4 b38,火妖狐,,162,123,10,20,
1 g4 d- d% w8 p6 U8 h+ Y" }39,火妖狐,,183,113,10,20,
# [& \8 Q/ _9 ], B) k9 {# C40,火妖狐,,205,105,10,20,
41,火妖狐,,225,122,10,20,
  k9 w5 l& p9 \* j42,火妖狐,,244,146,10,20,
1 g. I, W3 p# v4 h43,火妖狐,,262,136,10,20,
44,火妖狐,,265,154,10,20,
45,火妖狐,,233,170,10,20,
/ g4 k3 W$ q5 ~7 b  ?& D$ @0 p0 O46,火妖狐,,243,187,10,20,
! [5 |9 b: b! q$ J4 C6 s47,火妖狐,,258,203,10,20,
0 {  k& l+ f* k& C( c; t48,火妖狐,,282,231,10,20,
49,火妖狐,,279,253,10,20,
9 D( l% A+ W, ^; _50,火妖狐,,263,260,10,20,
51,火妖狐,,257,279,10,20,
52,火妖狐,,267,295,10,20,
8 m( _; f- m6 C1 s: j53,火妖狐,,285,313,10,20,
* F4 z2 r5 ?/ M; f# T54,火妖狐,,293,326,10,20,
55,火妖狐,,265,335,10,20,
56,火妖狐,,253,346,10,20,
57,火妖狐,,235,359,10,20,
" ]. x4 ~8 @* O$ ]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,
7 k) ]& |1 h! _$ u  Y7 H0 ~; G63,火妖狐,,208,232,10,20,
, C/ u1 P0 l" h. |' X# }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
4 @7 N4 g+ }4 N  ?/ O6 F4 B69,白妖狐,,48,174,10,20,火妖狐:1
; ?1 v# U# C  N1 D2 |- r) t* T70,白妖狐,,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
9 `# {/ j) L% I: i78,白妖狐,,137,236,10,20,火妖狐:1
79,白妖狐,,122,226,10,20,火妖狐:1
: x! O4 a9 u1 z4 O4 e80,白妖狐,,888,276,10,20,火妖狐:1
, t# J5 \3 o" U& T0 C& S81,妖狐首领,,131,233,1,3,
, L8 L% ]$ q* x! D, Y0 t0 I82,妖狐首领,,203,302,1,3,
83,妖狐首领,,147,232,1,3,
85,妖狐首领,,887,276,1,3,
9 \6 |0 x7 J! N8 O4 o: n7 v: G9 q86,妖狐首领,,143,75,1,3,
87,妖狐首领,,222,341,1,3,
+ O. O& x% N4 Q" `% Q# V: m88,妖狐首领,,241,146,1,3,
) z- q8 B# y& z) o1 l& M7 l89,妖狐王,,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为妖狐村地图的编号）
& l# N$ r- V9 B- i" I) k
8 t3 i/ U* ~: M1 ~2 Y; b187,妖狐村,妖狐村,0,TRUE,69,507,480,35,242,516,480,1,
XXX
,3,,,,,,,,,,,,,,,,,,,,,,,,
Tgs1000/Init/Npc.sdb
$ S8 G  h- v+ K- ?% W, g& \
女村长,女村长,0,,,TRUE,,,,,,,37,56,160,150,30,,,,3500,-15,0,-30,10,,0,,,,,,,,,,,,,,,,
& U  ]& j+ w* D; e, R$ o
' B8 w2 C0 N/ H. |6 H* yTgs1000/Script/Script.sdb

139,女村长.txt,,
) g; ~! x  W1 x/ |) t
3 |/ S/ U4 T$ {; G7 U3 }Tgs1000/Script/女村长.txt
- [/ X' B# J4 C- f: m; P! g
unit 女村长;
4 B5 o* S5 J1 E' g3 ?% b$ ainterface
/ Y. {- k$ @) i! j, Dfunction  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
1 f4 L; g7 s2 |3 W* e' yprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
1 y1 `$ z) r% a5 h+ g, }1 wprocedure exit;
/ b2 N! v" K% o% h' q4 ~7 V! p" Uprocedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
1 n( F  z+ Q& [) R4 Vprocedure OnApproach (aStr : String);
' Z: S  Z( m" V( x4 c+ Gprocedure OnAway (aStr : String);
. Q9 I3 D/ B1 t/ Wprocedure OnArrival (aStr : String);
var
iCallCount : Integer = 0;
implementation
procedure OnAway (aStr : String);
var
0 W8 a: d* V2 I4 W   Str : String;
" C+ q- M* {7 F! ^1 Y: ]   Race : Integer;
begin
4 ?# R) Z5 m7 l+ e0 e   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
& \2 N# I; h8 R0 ?      print ('say 快把狐狸精华给我吧');
4 W+ P' _2 v8 p1 N% x) b5 D   exit;
   end;
end;
procedure OnApproach (aStr : String);
var
; h) E5 F+ n& U, n8 S/ Z   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
% r; q& s5 p3 P3 q      print ('say 欢迎光临龙禧千年');
- b! k5 }8 ?' a% J6 p- F   exit;
  p( \$ e% S/ i9 f   end;
end;
procedure OnLeftClick (aStr : String);
var
, _* A/ z) v5 [8 o, V* N   Str : String;
begin
# V% L' H7 A* V) @6 h7 N   Str := 'showwindow .\help\女村长.txt 1';
   print (Str);
   exit;
end;
procedure OnGetResult (aStr : String);
var
   Str, Name : String;
* M0 u2 r% @( k  j! L1 W/ u3 n8 t   iRandom, iKind : Integer;
begin
   if aStr = 'taozi' then begin
" j$ r5 x$ D! ?- w) U& k      Str := callfunc ('getsenderitemexistence 狐狸精华:1');
      if Str = 'false' then begin
         Str := 'say 我心急如焚-没有狐狸精华别来见我';
. E. ^# o' h' r: n. e) M         print (Str);
         exit;
! w$ ]+ g/ w1 Z2 e      end;
$ o5 C& t/ t1 c5 D; K& \, y" g      Str := callfunc ('checkenoughspace');
+ z# j2 f5 _) }- U  V9 T" y& O      if Str = 'false' then begin
         print ('say 物品栏已满~');
2 Y' Y# g" n0 x         exit;
      end;
9 D6 N% J1 [; R; w6 K0 ~* _# ]      
      print ('getsenderitem 狐狸精华:1');
      
6 Q( K* ]$ I% V# y, _, {      iKind := Random (15);
      if iKind = 0 then begin
          Str := 'putsendermagicitem 鹰雕手 @女村长 4';
          print (Str);
       end;
      if iKind = 1 then begin
          Str := 'putsendermagicitem 清月天剑 @女村长 4';
  P1 J/ H4 B9 y* W          print (Str);
: E  a! z% n2 X* _/ y, C$ W" h       end;
      if iKind = 2 then begin
  X0 K* `5 \; {+ J4 D          Str := 'putsendermagicitem 天云宝刀 @女村长 4';
; u! N" J5 Q. r1 r' H4 `# U- c          print (Str);
       end;
; S' m0 g' o8 Y1 P      if iKind = 3 then begin
          Str := 'putsendermagicitem 白骨魔棒 @女村长 4';
  j3 F( @1 L* l  P/ _9 J* G7 V          print (Str);
% R. T: a3 \* r5 p& R0 B) F" C' _       end;
      if iKind = 4 then begin
' i1 @" a2 X* m& l          Str := 'putsendermagicitem 天龙月斧 @女村长 4';
          print (Str);
       end;
: H  B# \1 V7 R, ]2 B: `7 t/ S" N+ \      if iKind = 5 then begin
          Str := 'putsendermagicitem 男子英雄头盔 @女村长 4';
2 B2 G' p0 d, Z) ~; M5 i          print (Str);
       end;
      if iKind = 6 then begin
& {* B# Z6 \, o( U% }5 p          Str := 'putsendermagicitem 女子英雄头盔 @女村长 4';
          print (Str);
5 L/ e/ A6 Y9 |; u3 Q! k- U       end;
6 I6 E& S' Z, ]4 ~      if iKind = 7 then begin
          Str := 'putsendermagicitem 男子英雄铠甲 @女村长 4';
          print (Str);
4 E. f  O3 ?+ L: w8 ]; U$ p, Y+ ~       end;
      if iKind = 8 then begin
1 M. a5 w7 [: t$ x' X+ `          Str := 'putsendermagicitem 女子英雄铠甲 @女村长 4';
          print (Str);
* t/ E3 S$ b: l( E       end;
      if iKind = 9 then begin
/ ]* C+ Z( g, U3 |2 e0 H1 ]9 m          Str := 'putsendermagicitem 男子英雄护腕 @女村长 4';
! n* ^5 C; K4 v2 c/ j( Y" K6 }: a          print (Str);
% f- g5 z, z! L7 ^! ^       end;
/ \; C1 j. ?  G- i7 p      if iKind = 10 then begin
          Str := 'putsendermagicitem 女子英雄护腕 @女村长 4';
          print (Str);
       end;
# c8 n. H: L) p( O3 x      if iKind = 11 then begin
( {1 `$ u0 }0 \2 h1 o          Str := 'putsendermagicitem 男子英雄战靴 @女村长 4';
          print (Str);
" V) X" \2 z/ n! ^       end;
, I! x1 ~/ K! t8 c: f* [( N      if iKind = 12 then begin
* s/ d' I% L: G2 k6 q          Str := 'putsendermagicitem 女子英雄战靴 @女村长 4';
/ K+ t/ \" p0 M  U" `, [& r          print (Str);
! F! x7 r# n, \& G       end;
& g7 e! j" E; Y7 W! j      if iKind = 13 then begin
4 A8 y" F% L5 q' o- _/ f) p$ K' B: Z& M# C: v          Str := 'putsendermagicitem 大脉神弓 @女村长 4';
' J  M/ D5 M% n          print (Str);
  {  N0 x( w- i* z1 ]; R) I8 b/ V       end;
6 C3 w3 m  A. v) D. j& h1 h      if iKind = 14 then begin
7 ~: a' T+ c* X          Str := 'putsendermagicitem 归魂斗甲 @女村长 4';
; C( J5 s; ~  n6 c2 m* M, M          print (Str);
       end;
+ k! A) n8 t: m0 U! Z5 e& h      Str := 'say 你拯救了全村人 这些东西就拿去吧!';
6 P9 O0 @+ D/ v' w0 h2 E% c7 T) [      print (str);
     end;
8 B5 j% f0 D7 F+ F7 c  end;
end.

, L$ g3 w& S8 m" p0 t6 b6 ~Tgs1000/Help/女村长.txt

女村长
6 ^- W8 A1 }6 x) r: ~英雄如果你能找到狐狸精华,就能救活全村人的性命!
关闭
) `) H3 s- |' O% Z; q给予狐狸精华!
. C4 [2 x1 N  u6 c  @
# j/ r1 a+ C7 x/ P4 eTgs1000/Setting/CreateNpc1.sdb(请注意下面的编号139这个和Script.sdb的139对应)
9 O' R. C, ]- k" Z+ ?1 ~; Q5 \
98,女村长,504,480,1,2,139,,

0 A2 d2 E* |& r# p