妖狐村活动代码.无错版

Tgs1000/Init/Item.sdb
: ~; `# ]3 f& {6 g; d, O* A( q
3 z+ G& m% E) Y6 _狐狸精华,狐狸精华,4,狐狸精华能治好全村人的病
还不快拿给女村长,,,,,,,TRUE,FALSE,230,,,,,,,,,,200000,200000,,,,,,,,,,,,,,,,,,,,,,,,,,狐王之骨:1:狐狸血:5:梅花夫人玉簪:1:捕盗大将腰牌:3,,,,,,,,,,,,,,,,,,,,,,,
狐王之骨,狐王之骨,5,妖狐王的骨头
" S% M7 Z, \0 r% J加工狐狸精华的材料,,,,,,,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,梅花夫人丢失的玉簪
3 {$ v. }, k' c* h7 Y加工狐狸精华的材料,,,,,,,TRUE,FALSE,578,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
捕盗大将腰牌,捕盗大将腰牌,5,捕盗大将丢失的腰牌
6 B  Z& q  ~3 E2 ~$ n7 g加工狐狸精华的材料,,,,,,,TRUE,FALSE,571,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
+ v0 |, P9 f( ~' f$ z% v+ yTgs1000/Init/Monster.sdb
6 V8 N( W, D7 `( z  T火妖狐,火妖狐,,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,,,,,,,,,,,,,,,,,,,
0 Y! ]& J7 E. P% Y妖狐王,妖狐王,,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,,,,,,,,,,,,,,,,,,,
所用的地图是最早新人村的大地图

* C. ?/ a5 y! M3 L; rTgs1000/Init/Map.sdb
/ W# @1 O' G' b! {% `7 @
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,,
* e; ]. D: ~5 R8 [  y$ i; XTgs1000/Setting/CreateMonster
XXX
( O7 |: a6 q# k* p' j.sdb(注意这个0是对应map.SDB里地图的编号)
1,火妖狐,,86,173,10,20,
1 o4 C! X% I# q* w- @# ^9 Z& f2,火妖狐,,71,150,10,20,
1 h$ r, K4 X' K7 Q6 S3,火妖狐,,61,125,10,20,
3 p" X" Q9 h! v4,火妖狐,,64,124,10,20,
5,火妖狐,,37,131,10,20,
* j5 U% w! u# m6,火妖狐,,36,150,10,20,
! D' ?. y1 w5 `: l7,火妖狐,,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,
, X3 N( j, |4 d& }7 C9 u16,火妖狐,,91,303,10,20,
+ {$ ^! S. ?* i4 x5 u17,火妖狐,,101,313,10,20,
18,火妖狐,,114,297,10,20,
9 W# f# p$ G- Z8 j19,火妖狐,,126,285,10,20,
" Z& ]% C4 M; t$ Z5 G' J20,火妖狐,,147,286,10,20,
; g6 V7 X! t. \4 T! g' M0 \21,火妖狐,,160,301,10,20,
' Y2 S+ J: t' j22,火妖狐,,170,313,10,20,
" x( i0 s  _5 ]8 W23,火妖狐,,163,282,10,20,
24,火妖狐,,163,268,10,20,
25,火妖狐,,157,253,10,20,
* P1 z/ b7 w# y. L* ?" a; S26,火妖狐,,146,242,10,20,
% @, f+ }  S/ u" ?& F27,火妖狐,,137,236,10,20,
% Z3 r5 p$ Z4 h, }% Z2 [9 j1 a28,火妖狐,,128,234,10,20,
29,火妖狐,,122,226,10,20,
4 F- x: L3 g$ E, g* C30,火妖狐,,114,216,10,20,
* _7 {. L; n0 Z/ b31,火妖狐,,102,228,10,20,
32,火妖狐,,105,245,10,20,
( r' |& A7 n& D' q6 k% \33,火妖狐,,113,265,10,20,
# w9 r4 ^  Y* F! c34,火妖狐,,102,280,10,20,
' h& ^5 |9 N. w# J) f5 u35,火妖狐,,88,276,10,20,
* m% y: J- R$ p  V& u) e% I36,火妖狐,,126,134,10,20,
37,火妖狐,,144,129,10,20,
: X- M, H  h2 b4 N4 l0 r38,火妖狐,,162,123,10,20,
$ J5 H: ^# K9 v; p0 c39,火妖狐,,183,113,10,20,
40,火妖狐,,205,105,10,20,
41,火妖狐,,225,122,10,20,
42,火妖狐,,244,146,10,20,
43,火妖狐,,262,136,10,20,
5 w" H8 R; A8 U% v. v! x44,火妖狐,,265,154,10,20,
4 j; p7 X9 b2 a3 U! U  ^; R2 z! y4 ~45,火妖狐,,233,170,10,20,
46,火妖狐,,243,187,10,20,
6 Y$ I2 L) ]6 m, `: e- B$ \47,火妖狐,,258,203,10,20,
48,火妖狐,,282,231,10,20,
, U4 z. ~+ C3 c49,火妖狐,,279,253,10,20,
50,火妖狐,,263,260,10,20,
; ]  o4 A. r; V/ Z+ E$ o  n51,火妖狐,,257,279,10,20,
52,火妖狐,,267,295,10,20,
# P5 B1 b& ~. ?5 n2 k% ^- G* U53,火妖狐,,285,313,10,20,
( A6 S6 D$ s" q9 g54,火妖狐,,293,326,10,20,
55,火妖狐,,265,335,10,20,
0 A  H, p* U  Y; J8 m1 ~56,火妖狐,,253,346,10,20,
57,火妖狐,,235,359,10,20,
58,火妖狐,,221,341,10,20,
% w% B0 z1 ^* S. r6 t" V59,火妖狐,,195,332,10,20,
60,火妖狐,,193,307,10,20,
61,火妖狐,,202,280,10,20,
62,火妖狐,,216,265,10,20,
: i, c0 X) a  |  N: L63,火妖狐,,208,232,10,20,
64,火妖狐,,181,222,10,20,
65,火妖狐,,142,75,10,20,
2 Z+ S+ @% P# r1 Y; Z( v# K3 _66,白妖狐,,86,173,10,20,火妖狐:1
6 I& i% H& u( Y' ?: @) v/ Q67,白妖狐,,64,124,10,20,火妖狐:1
. F3 _- T- \& Q9 D0 N68,白妖狐,,36,150,10,20,火妖狐:1
/ q% S8 U8 r; T$ k69,白妖狐,,48,174,10,20,火妖狐:1
. f/ C/ X: |4 K1 m: \; m70,白妖狐,,63,192,10,20,火妖狐:1
71,白妖狐,,74,209,10,20,火妖狐:1
72,白妖狐,,72,227,10,20,火妖狐:1
+ [4 y# x* J; s  j73,白妖狐,,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
; Q5 q8 A' I0 |$ y' R" K80,白妖狐,,888,276,10,20,火妖狐:1
81,妖狐首领,,131,233,1,3,
9 N. g; I& Z. J9 P% z82,妖狐首领,,203,302,1,3,
83,妖狐首领,,147,232,1,3,
, P3 e- V1 e) g! a85,妖狐首领,,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,
: D4 Z: l5 w5 T- p; ^91,妖狐王,,887,278,1,30,
92,妖狐王,,241,146,1,30,
2 z1 ^' Y8 b2 K! u: j5 f93,妖狐王,,222,342,1,30,
94,火妖狐,,242,255,10,20,
( x" \1 c. k" }# o95,白妖狐,,242,256,10,20,火妖狐:1
$ R6 w6 W# k& g+ P96,妖狐首领,,242,257,1,3,
97,妖狐王,,242,259,1,30,
98,妖狐王,,147,232,1,30,
+ h; P1 G# ^% ^% m8 D9 F% _93,妖狐王,,143,76,1,30,
: Q. u& N4 b; I( l9 L& n
* p1 L# Q# _4 x6 mTgs1000/Setting/CreateGate.sdb（XXX为妖狐村地图的编号）

/ B; o/ Y3 ~$ P; e. k/ d187,妖狐村,妖狐村,0,TRUE,69,507,480,35,242,516,480,1,
XXX
2 X2 j+ C* Z, e, k,3,,,,,,,,,,,,,,,,,,,,,,,,
( P( X) [7 m* l; y7 P1 K2 K% z$ oTgs1000/Init/Npc.sdb
1 [) p. U) H+ @  ~' O+ A7 a6 v
女村长,女村长,0,,,TRUE,,,,,,,37,56,160,150,30,,,,3500,-15,0,-30,10,,0,,,,,,,,,,,,,,,,
2 ]( ]* ~  I, }) P! |/ q9 i
. b. h) M+ ~' S7 v9 @5 YTgs1000/Script/Script.sdb

139,女村长.txt,,

Tgs1000/Script/女村长.txt
3 ?5 y9 _4 n# M$ \
unit 女村长;
interface
2 ?. K; u! w3 [& t6 ]function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure print (aText: string);
% C8 ]5 e& ?' z+ rfunction  Random (aScope: integer): integer;
3 o& D$ N) _8 o! k$ lfunction  Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
. N  y5 i1 M, Y% ]- Jfunction  StrToInt (astr: string): integer;
; ]5 e2 W: `8 S( U* W- v  j; ?function  IntToStr (aInt: integer): string;
/ m4 b- b9 L  S( F0 n9 R4 `3 Mprocedure exit;
. D9 O9 i3 J1 v7 o3 r" {! L' y5 uprocedure OnGetResult (aStr : String);
9 C% m+ Q, a1 c1 ?1 U  _; Qprocedure OnLeftClick (aStr : String);
7 l" i" i2 d* p( s" n/ ]procedure OnApproach (aStr : String);
! X, ~3 H# {- |# oprocedure OnAway (aStr : String);
procedure OnArrival (aStr : String);
var
9 P, n3 Y! o5 @/ liCallCount : Integer = 0;
9 M0 _. C) b3 F/ R8 T1 simplementation
procedure OnAway (aStr : String);
var
   Str : String;
   Race : Integer;
begin
6 L  J) S- J6 u3 y   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
8 W4 W5 L, l+ z/ O% P' z      print ('say 快把狐狸精华给我吧');
6 i! }5 X) g6 [9 e, e! B   exit;
   end;
  b! i, ]) f4 h, @* Mend;
procedure OnApproach (aStr : String);
* E3 l  u$ \/ ~, q0 V9 h1 Lvar
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
/ `$ q0 f+ d& Z" g' o* C8 z+ q$ E   Race := StrToInt (Str);
1 M, W5 _7 g: R* J) d   if Race = 1 then begin
9 K$ l" B( [% c      print ('say 欢迎光临龙禧千年');
4 ]$ Z- a: i1 A0 Q   exit;
4 A+ m9 R) q: a$ A. u- V   end;
3 x- o$ ]( o) O# g" Cend;
procedure OnLeftClick (aStr : String);
var
   Str : String;
begin
, H4 I$ K5 j& r$ A2 _   Str := 'showwindow .\help\女村长.txt 1';
* E& D; f$ }  I) `' x4 m   print (Str);
   exit;
end;
procedure OnGetResult (aStr : String);
var
& M5 @8 o* V7 a   Str, Name : String;
6 Q/ g6 \1 |3 Q! J6 g0 H! L   iRandom, iKind : Integer;
2 f5 T. o6 Z3 Q% ]begin
/ b+ L# l& u; L  T" a5 L% O8 P# @: `   if aStr = 'taozi' then begin
" G+ ?6 l" V/ @' ^# d* ~      Str := callfunc ('getsenderitemexistence 狐狸精华:1');
7 `- N5 b8 T& ~( j: b5 t9 `" B  l      if Str = 'false' then begin
, a" j; \# c' N  Z8 z2 E& b; k         Str := 'say 我心急如焚-没有狐狸精华别来见我';
6 m9 K( G  C  U! |9 ?7 W0 n1 T6 W         print (Str);
         exit;
# [) E1 |/ t; S7 f      end;
4 j* I. f0 N9 F" u# Z1 ?      Str := callfunc ('checkenoughspace');
      if Str = 'false' then begin
         print ('say 物品栏已满~');
         exit;
) h! Q2 b; J+ }. z      end;
      
8 T  Q: c' H8 e* P8 Z      print ('getsenderitem 狐狸精华:1');
      
/ }9 B2 e3 ?$ v& c: V      iKind := Random (15);
! b" E3 y$ m+ w8 ]      if iKind = 0 then begin
          Str := 'putsendermagicitem 鹰雕手 @女村长 4';
          print (Str);
% T# Q. y. b2 E       end;
      if iKind = 1 then begin
          Str := 'putsendermagicitem 清月天剑 @女村长 4';
5 U& f' ?) x: q4 z, Q          print (Str);
) V% y/ O1 I) A( B+ `$ g       end;
      if iKind = 2 then begin
          Str := 'putsendermagicitem 天云宝刀 @女村长 4';
) Z7 y6 c4 y  {8 j& U          print (Str);
# z$ X4 j) c9 R5 ^& m5 [       end;
      if iKind = 3 then begin
4 \, c. F) G0 @6 \9 L( |  V9 i$ S/ W          Str := 'putsendermagicitem 白骨魔棒 @女村长 4';
: N4 M4 f* \9 m8 |& {" o" r          print (Str);
       end;
. X8 W, Q: T: M9 L3 v      if iKind = 4 then begin
          Str := 'putsendermagicitem 天龙月斧 @女村长 4';
+ |* O) v  k( R, T- T% i          print (Str);
       end;
      if iKind = 5 then begin
) {4 k4 m( ?5 e          Str := 'putsendermagicitem 男子英雄头盔 @女村长 4';
0 H7 Z7 E8 h! a1 t! w          print (Str);
, h) |) I! j$ Q: E  B8 F. e       end;
# H( d. j" N2 V% I      if iKind = 6 then begin
1 y) V# i  Q4 ]9 r          Str := 'putsendermagicitem 女子英雄头盔 @女村长 4';
/ {: h) V# I# a% {# N+ M6 m          print (Str);
       end;
: o% t, r9 X+ ^0 }      if iKind = 7 then begin
4 L: G) j/ T! _' B  D& o1 R- j6 a          Str := 'putsendermagicitem 男子英雄铠甲 @女村长 4';
; q, m3 ~; j- {3 W) I. W; g3 t          print (Str);
: y* w) j2 W  [; K  y/ B5 K" l       end;
      if iKind = 8 then begin
1 k, S7 ?# J9 ^0 T6 m6 ]+ k/ i          Str := 'putsendermagicitem 女子英雄铠甲 @女村长 4';
1 O* C, v6 \* g, ?          print (Str);
7 k' ~! z4 C& @0 V       end;
. J2 z) [5 u7 }7 T3 r' d" S      if iKind = 9 then begin
          Str := 'putsendermagicitem 男子英雄护腕 @女村长 4';
          print (Str);
& w- F7 q+ X" Q6 N) p9 n6 {' G8 O       end;
6 f% ~$ s$ L4 G" G. Q      if iKind = 10 then begin
          Str := 'putsendermagicitem 女子英雄护腕 @女村长 4';
          print (Str);
$ c# C$ T8 P- s) F6 s" C* E       end;
      if iKind = 11 then begin
4 V! D$ M; y& W# x% @3 R          Str := 'putsendermagicitem 男子英雄战靴 @女村长 4';
% d4 B/ o$ G# T) k          print (Str);
  W1 I# n6 x- o2 u+ P* d       end;
      if iKind = 12 then begin
5 P% u5 c2 j" f$ m# ]/ q$ Y3 `          Str := 'putsendermagicitem 女子英雄战靴 @女村长 4';
          print (Str);
       end;
, h9 j: j/ n+ k/ H3 l      if iKind = 13 then begin
          Str := 'putsendermagicitem 大脉神弓 @女村长 4';
          print (Str);
/ C' m7 M; ^6 m$ Q2 T/ g       end;
      if iKind = 14 then begin
' F1 s- O- F, G8 K% {5 s) j7 i          Str := 'putsendermagicitem 归魂斗甲 @女村长 4';
7 s1 [1 o: q5 ^, v: C          print (Str);
       end;
      Str := 'say 你拯救了全村人 这些东西就拿去吧!';
( Q! y5 Y) T- X( O8 J: P* s  [$ T      print (str);
     end;
  end;
# F' Q6 j( [3 h0 W' p+ ^! a; n2 \end.
5 q8 L- Z- z: ^* c7 I7 g: Z2 O9 H3 f3 `
Tgs1000/Help/女村长.txt

8 q( z( F$ @) ]7 d3 U女村长
英雄如果你能找到狐狸精华,就能救活全村人的性命!
关闭
( {5 o9 d* s( R% U3 z给予狐狸精华!
5 ]7 z8 m/ G2 `6 X* J' y. t1 z- O
Tgs1000/Setting/CreateNpc1.sdb(请注意下面的编号139这个和Script.sdb的139对应)

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

) S1 R; U( c/ W. q  F