妖狐村活动代码.无错版

Tgs1000/Init/Item.sdb
4 Y  w/ j* }9 V" J7 W0 M7 {
狐狸精华,狐狸精华,4,狐狸精华能治好全村人的病
还不快拿给女村长,,,,,,,TRUE,FALSE,230,,,,,,,,,,200000,200000,,,,,,,,,,,,,,,,,,,,,,,,,,狐王之骨:1:狐狸血:5:梅花夫人玉簪:1:捕盗大将腰牌:3,,,,,,,,,,,,,,,,,,,,,,,
狐王之骨,狐王之骨,5,妖狐王的骨头
加工狐狸精华的材料,,,,,,,TRUE,FALSE,563,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
  p2 J# ^8 f$ C狐狸血,狐狸血,5,装满妖狐血的瓶子
' |! M1 P0 C; {- u. t- j8 ~$ m加工狐狸精华的材料,,,,,,,TRUE,FALSE,306,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
梅花夫人玉簪,梅花夫人玉簪,5,梅花夫人丢失的玉簪
3 n  l  D* c" A2 S2 q6 j加工狐狸精华的材料,,,,,,,TRUE,FALSE,578,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
% {1 [. Y8 N/ F, \# ~8 `, T捕盗大将腰牌,捕盗大将腰牌,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,,,,,,,,,,,,,,,,,,,
! N- ^/ H& b6 G! Z# S* ^1 H( O白妖狐,白妖狐,,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,,,,,,,,,,,,,,,,,,,
所用的地图是最早新人村的大地图

! \) u1 u+ |: @8 d& {6 p6 jTgs1000/Init/Map.sdb

- P0 o  l  V3 |2 yXXX
& p* m7 D; y: k/ ~7 X,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
! }4 d5 x3 ~8 \/ x; ^: y8 i. m.sdb(注意这个0是对应map.SDB里地图的编号)
1,火妖狐,,86,173,10,20,
2 u* i* u# G% a) w0 G2,火妖狐,,71,150,10,20,
3,火妖狐,,61,125,10,20,
( K' |$ _" F, b  I, J8 V: [# l* D4,火妖狐,,64,124,10,20,
% u) g# \# L; l5,火妖狐,,37,131,10,20,
6,火妖狐,,36,150,10,20,
7,火妖狐,,35,168,10,20,
) S( l  E, R8 b5 S8,火妖狐,,48,174,10,20,
; N: b( _% P, B* ^% S9,火妖狐,,63,192,10,20,
% _. U2 w1 x8 D. t. i! _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,
, t. ~& r0 R0 C' h19,火妖狐,,126,285,10,20,
- W" @0 h; S# V$ y& j" ~" ~20,火妖狐,,147,286,10,20,
21,火妖狐,,160,301,10,20,
# E1 A$ E& g' a- A2 p22,火妖狐,,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,
* W3 H7 K, @: K28,火妖狐,,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,
. Z% [: e' h4 q" U; S8 R+ M4 B3 E35,火妖狐,,88,276,10,20,
36,火妖狐,,126,134,10,20,
3 _0 {6 o4 y+ Q9 g& r0 i37,火妖狐,,144,129,10,20,
" |1 @7 D% V/ f+ U' H; {* _( {38,火妖狐,,162,123,10,20,
39,火妖狐,,183,113,10,20,
40,火妖狐,,205,105,10,20,
41,火妖狐,,225,122,10,20,
  N. @8 ^8 |4 T' c% C42,火妖狐,,244,146,10,20,
* z: L, H0 F+ ]0 ~" O% i43,火妖狐,,262,136,10,20,
3 D* q- J7 K! U& H3 g- z6 g7 |44,火妖狐,,265,154,10,20,
45,火妖狐,,233,170,10,20,
( c$ c: g/ N" ^8 q46,火妖狐,,243,187,10,20,
# U) i. F) X8 k6 L5 e' O47,火妖狐,,258,203,10,20,
48,火妖狐,,282,231,10,20,
' m" I+ S: b& e6 R4 m% q. g) [49,火妖狐,,279,253,10,20,
50,火妖狐,,263,260,10,20,
51,火妖狐,,257,279,10,20,
. |: G. t: ~5 l3 t% @9 c52,火妖狐,,267,295,10,20,
" X+ h; T: z# t" U, j' G: V- C' J6 K$ S53,火妖狐,,285,313,10,20,
# B) u( e: T& z# Q54,火妖狐,,293,326,10,20,
55,火妖狐,,265,335,10,20,
, `! L" V4 }$ h; W7 y1 I56,火妖狐,,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,
0 z$ h9 n$ Y% Y' X0 f62,火妖狐,,216,265,10,20,
6 c& f7 b4 y- O6 }4 u63,火妖狐,,208,232,10,20,
64,火妖狐,,181,222,10,20,
5 P( a' h5 P8 W& j65,火妖狐,,142,75,10,20,
66,白妖狐,,86,173,10,20,火妖狐:1
2 b8 x4 ^' i  i! G# _$ W9 L67,白妖狐,,64,124,10,20,火妖狐:1
2 T- b, o2 E! U0 V68,白妖狐,,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
9 Q: }8 _* V& R( I6 V! |: A73,白妖狐,,80,241,10,20,火妖狐:1
74,白妖狐,,91,303,10,20,火妖狐:1
5 C+ u# e# t7 ?6 ?2 r75,白妖狐,,160,301,10,20,火妖狐:1
% L: s, B5 ~. o1 g. ]8 Q76,白妖狐,,170,313,10,20,火妖狐:1
77,白妖狐,,163,268,10,20,火妖狐:1
# P$ A7 u# q  _) v9 ?78,白妖狐,,137,236,10,20,火妖狐:1
79,白妖狐,,122,226,10,20,火妖狐:1
80,白妖狐,,888,276,10,20,火妖狐:1
81,妖狐首领,,131,233,1,3,
2 ^- P) D2 o, c6 g4 P/ y8 X/ ~2 V82,妖狐首领,,203,302,1,3,
83,妖狐首领,,147,232,1,3,
0 a, I7 G" t& a7 u1 Q85,妖狐首领,,887,276,1,3,
5 h- n! C! U7 N* H" D6 @: ~86,妖狐首领,,143,75,1,3,
( Q  W. }! E4 L& n$ r87,妖狐首领,,222,341,1,3,
88,妖狐首领,,241,146,1,3,
; I% T- i9 G/ m$ p& j2 s89,妖狐王,,131,231,1,30,
90,妖狐王,,203,302,1,30,
91,妖狐王,,887,278,1,30,
% T9 o. |! o) A4 E: r- @3 f6 @92,妖狐王,,241,146,1,30,
: t1 G! c& D) ~* G93,妖狐王,,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,
; D: }/ [5 P; k( L; ]1 j" J, H4 B* `XXX
,3,,,,,,,,,,,,,,,,,,,,,,,,
Tgs1000/Init/Npc.sdb
7 C# m9 @% a0 G" @' Z7 G
女村长,女村长,0,,,TRUE,,,,,,,37,56,160,150,30,,,,3500,-15,0,-30,10,,0,,,,,,,,,,,,,,,,

Tgs1000/Script/Script.sdb

0 ?2 Q! b  P% r4 ~139,女村长.txt,,

Tgs1000/Script/女村长.txt
- p$ \7 P5 _* U1 u  z& F9 f
7 V; }" f# I+ u2 O7 M5 Uunit 女村长;
1 D8 Q) x, w- z3 v( O- [inte**ce
1 b  I' p$ m& |+ O% R/ p( ~7 Rfunction  GetToken (aStr, aToken, aSep : String) : String;
" \4 R: [" E  d9 L4 Jfunction  CompareStr (aStr1, aStr2 : String) : Boolean;
9 ]! S* p. u  s2 Efunction  callfunc (aText: string): string;
procedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
, m1 x/ \5 u# s2 D) bprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
function  IntToStr (aInt: integer): string;
% M; b9 |, Y' N+ m% }! ^procedure exit;
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
procedure OnApproach (aStr : String);
procedure OnAway (aStr : String);
" `6 f. U( ^# n/ H! o, d% d0 gprocedure OnArrival (aStr : String);
' C7 E) r. [4 Bvar
, e- D( }0 i% L9 a5 OiCallCount : Integer = 0;
implementation
+ G' [7 t7 ^& Q" i( Eprocedure OnAway (aStr : String);
, `; l4 m. D  r# e& y9 vvar
   Str : String;
   Race : Integer;
begin
8 }/ V  u6 L* m2 ?( d$ g& Q6 k1 D$ G   Str := callfunc ('getsenderrace');
9 Y3 J+ f+ Z; H, e: I   Race := StrToInt (Str);
0 e/ a, e+ s% o: @: r   if Race = 1 then begin
% J! Y" \6 I5 U7 u: ?: O7 u      print ('say 快把狐狸精华给我吧');
- t6 L. i. F' }) e2 E; T3 p0 k' |   exit;
0 s7 x! N! X" j2 Y. F   end;
' e# u% ]& l( D* ]end;
procedure OnApproach (aStr : String);
3 Z" l0 d% X9 n7 kvar
   Str : String;
   Race : Integer;
1 Z$ S2 I, Z% w# v2 }begin
$ U4 e% M& T1 n3 Q   Str := callfunc ('getsenderrace');
. D/ V; Y* _: L" f   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('say 欢迎光临龙禧千年');
   exit;
' h  j2 ]$ D. p# }4 q   end;
end;
procedure OnLeftClick (aStr : String);
. w6 g- ~7 Q0 g6 N1 Bvar
" u7 |" }, Q8 |; p" R   Str : String;
begin
   Str := 'showwindow .\help\女村长.txt 1';
   print (Str);
   exit;
end;
" I8 w1 p; R7 d  `. pprocedure OnGetResult (aStr : String);
var
   Str, Name : String;
' x, V  b# M# O. m' v   iRandom, iKind : Integer;
begin
   if aStr = 'taozi' then begin
      Str := callfunc ('getsenderitemexistence 狐狸精华:1');
* s/ L0 ?3 |' W9 s) b/ ~# u! x* B/ g      if Str = 'false' then begin
  i. }4 o' `4 s% r1 \# D7 N         Str := 'say 我心急如焚-没有狐狸精华别来见我';
         print (Str);
' `- ^$ z/ a8 o, x  g         exit;
/ B* N3 C" P" C& m, i      end;
      Str := callfunc ('checkenoughspace');
1 {" q: {, j! j9 Y% g" I      if Str = 'false' then begin
: q0 j( Y- M5 U3 r8 x         print ('say 物品栏已满~');
         exit;
: d5 P6 O4 b) J5 M) D# d1 F. |      end;
) L; j  @, Z/ W& y      
4 c5 z$ J) D+ a6 Q) D/ B      print ('getsenderitem 狐狸精华:1');
, I& P* M' M1 ]5 W6 X) Z      
) ^8 I0 O9 E* K9 N$ d( ?      iKind := Random (15);
/ U7 V! u( f# z  O      if iKind = 0 then begin
& N$ K! h3 I9 W0 z  q1 K+ q+ a          Str := 'putsendermagicitem 鹰雕手 @女村长 4';
+ ~* B, w) A$ w$ H          print (Str);
5 `) h6 `9 u! K       end;
      if iKind = 1 then begin
3 |! E. X% M9 f, G1 _- \* m          Str := 'putsendermagicitem 清月天剑 @女村长 4';
          print (Str);
       end;
      if iKind = 2 then begin
6 j' ^1 l# X# v6 o5 `) `          Str := 'putsendermagicitem 天云宝刀 @女村长 4';
          print (Str);
       end;
6 J5 Y. P0 B, ~) C# [* ?      if iKind = 3 then begin
' i/ Z7 S2 w2 R# @0 W8 V0 u; Q          Str := 'putsendermagicitem 白骨魔棒 @女村长 4';
$ Z; i3 ~, L, |9 b& e          print (Str);
* N" T% a& s7 f' z; g. a% v) z       end;
6 n. |. \1 y/ W% n7 O: t      if iKind = 4 then begin
          Str := 'putsendermagicitem 天龙月斧 @女村长 4';
# ~" z' J+ {  d. W9 r- o          print (Str);
       end;
      if iKind = 5 then begin
          Str := 'putsendermagicitem 男子英雄头盔 @女村长 4';
          print (Str);
       end;
# z; q: S# t8 D6 k/ f      if iKind = 6 then begin
. _2 F  Q% F: [6 C! c  t9 @          Str := 'putsendermagicitem 女子英雄头盔 @女村长 4';
: t% T# B9 ]' j) T4 \          print (Str);
       end;
      if iKind = 7 then begin
5 d/ q5 q+ k1 Y( q# J( E7 p, k% M          Str := 'putsendermagicitem 男子英雄铠甲 @女村长 4';
- @" \* n' @/ u9 [; @; V3 p          print (Str);
       end;
      if iKind = 8 then begin
7 g7 U% C; V% ?4 |3 |5 {          Str := 'putsendermagicitem 女子英雄铠甲 @女村长 4';
          print (Str);
       end;
      if iKind = 9 then begin
          Str := 'putsendermagicitem 男子英雄护腕 @女村长 4';
" W! y! o- w1 V) p          print (Str);
       end;
      if iKind = 10 then begin
% r5 h) \, M( ~7 H          Str := 'putsendermagicitem 女子英雄护腕 @女村长 4';
          print (Str);
       end;
      if iKind = 11 then begin
          Str := 'putsendermagicitem 男子英雄战靴 @女村长 4';
( e- n# F  l; J- b3 |          print (Str);
       end;
      if iKind = 12 then begin
          Str := 'putsendermagicitem 女子英雄战靴 @女村长 4';
+ L) e. y3 ~. n7 M2 `          print (Str);
       end;
' i6 ^) ?" v3 c* [      if iKind = 13 then begin
$ c* Z) q* E. I2 m2 z$ l; g          Str := 'putsendermagicitem 大脉神弓 @女村长 4';
( k0 S& U3 g$ O+ g& ^7 O$ ]          print (Str);
* b$ w8 b2 U9 O       end;
      if iKind = 14 then begin
. t% B9 v1 T( k; c          Str := 'putsendermagicitem 归魂斗甲 @女村长 4';
- x9 h1 b) q1 b# L# A- G. V3 J          print (Str);
       end;
      Str := 'say 你拯救了全村人 这些东西就拿去吧!';
4 F% |) {$ m2 k7 ~      print (str);
     end;
  end;
( F* `" x) u) O0 [: J( X9 Kend.

  [" W  G% n& mTgs1000/Help/女村长.txt
" |9 C% H3 e( p* l+ n6 `, ?! R
女村长
* U" e8 \" f* G( l8 c英雄如果你能找到狐狸精华,就能救活全村人的性命!
+ o* D: D8 h; u  S关闭
: p: i1 Q' L0 f* F* z给予狐狸精华!
" _# `+ Y8 d# O
Tgs1000/Setting/CreateNpc1.sdb(请注意下面的编号139这个和Script.sdb的139对应)

! q: f2 M/ L: ]4 i5 f/ P98,女村长,504,480,1,2,139,,