妖狐村活动代码.无错版

Tgs1000/Init/Item.sdb

狐狸精华,狐狸精华,4,狐狸精华能治好全村人的病
0 F6 u' E! ^1 D1 t. z% r  {还不快拿给女村长,,,,,,,TRUE,FALSE,230,,,,,,,,,,200000,200000,,,,,,,,,,,,,,,,,,,,,,,,,,狐王之骨:1:狐狸血:5:梅花夫人玉簪:1:捕盗大将腰牌:3,,,,,,,,,,,,,,,,,,,,,,,
; g+ W: O0 |8 k6 {2 ]狐王之骨,狐王之骨,5,妖狐王的骨头
; K0 u: S2 \  ~6 G6 Z加工狐狸精华的材料,,,,,,,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,梅花夫人丢失的玉簪
- l  q& `. `9 r加工狐狸精华的材料,,,,,,,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,,,,,,,,,,,,,,,,,,
- s0 O0 X( H. s' o9 V3 ETgs1000/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,,,,,,,,,,,,,,,,,,,
1 l  T5 X& S3 ^% Y/ J白妖狐,白妖狐,,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,,,,,,,,,,,,,,,,,,,
  f& {& D$ [3 n3 a- M& s2 S妖狐王,妖狐王,,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,,,,,,,,,,,,,,,,,,,
$ L: ^1 O! X7 I" w所用的地图是最早新人村的大地图

Tgs1000/Init/Map.sdb
8 a- x$ ?+ s% ?$ M
# S5 a- A# q" a8 x4 \7 @XXX
; i9 A  o: c' Q. q  ]7 b, g9 e,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,,
% x! p; c1 V. B( i8 |/ wTgs1000/Setting/CreateMonster
XXX
.sdb(注意这个0是对应map.SDB里地图的编号)
1,火妖狐,,86,173,10,20,
2,火妖狐,,71,150,10,20,
3,火妖狐,,61,125,10,20,
' G8 o1 ]+ r$ X- G4,火妖狐,,64,124,10,20,
5,火妖狐,,37,131,10,20,
  N* `3 V: ?6 x( P! M  q6,火妖狐,,36,150,10,20,
" E, {+ I: Z" d" e! U" T4 Q7,火妖狐,,35,168,10,20,
8,火妖狐,,48,174,10,20,
9,火妖狐,,63,192,10,20,
10,火妖狐,,74,209,10,20,
& l% v+ z8 \3 e0 T; k% w11,火妖狐,,72,227,10,20,
12,火妖狐,,80,241,10,20,
13,火妖狐,,58,265,10,20,
14,火妖狐,,57,285,10,20,
/ B& {4 B4 t% k  c8 A1 ^15,火妖狐,,71,298,10,20,
9 k% O/ c9 u8 s16,火妖狐,,91,303,10,20,
17,火妖狐,,101,313,10,20,
18,火妖狐,,114,297,10,20,
19,火妖狐,,126,285,10,20,
! Y% J5 T' G2 B( `20,火妖狐,,147,286,10,20,
21,火妖狐,,160,301,10,20,
3 u0 `( u. t; }22,火妖狐,,170,313,10,20,
7 g) _9 h7 z/ V8 g& M# h' I! x# b  n& W23,火妖狐,,163,282,10,20,
* H" o: l" J7 R. J24,火妖狐,,163,268,10,20,
: v% [, y* X5 G: I: {25,火妖狐,,157,253,10,20,
26,火妖狐,,146,242,10,20,
27,火妖狐,,137,236,10,20,
28,火妖狐,,128,234,10,20,
3 t8 r1 j" B% C6 b) q4 X29,火妖狐,,122,226,10,20,
2 Z- o- c- O2 d$ s- M* @$ q30,火妖狐,,114,216,10,20,
7 Z0 a% S: K0 L$ n1 c31,火妖狐,,102,228,10,20,
32,火妖狐,,105,245,10,20,
33,火妖狐,,113,265,10,20,
34,火妖狐,,102,280,10,20,
+ O' v3 y3 S0 ^2 a8 @: Z6 t# K35,火妖狐,,88,276,10,20,
36,火妖狐,,126,134,10,20,
8 [4 ?; [! k7 B0 Z+ Q! o37,火妖狐,,144,129,10,20,
) h* f% U$ M4 d: g% Q38,火妖狐,,162,123,10,20,
3 z; o( Q% v3 J/ e* C39,火妖狐,,183,113,10,20,
40,火妖狐,,205,105,10,20,
: C& |' `2 g0 y; p7 Q# \41,火妖狐,,225,122,10,20,
+ j" s4 ^4 q& G4 P; G42,火妖狐,,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,
/ }. K% Q" e% a$ M8 o49,火妖狐,,279,253,10,20,
50,火妖狐,,263,260,10,20,
51,火妖狐,,257,279,10,20,
52,火妖狐,,267,295,10,20,
53,火妖狐,,285,313,10,20,
; }- L" T* l6 z* n2 T$ Y1 P0 Z" g54,火妖狐,,293,326,10,20,
; d+ `) `, h: b9 [/ }4 H9 {55,火妖狐,,265,335,10,20,
56,火妖狐,,253,346,10,20,
. A4 H/ A/ ]! Z4 O8 k57,火妖狐,,235,359,10,20,
58,火妖狐,,221,341,10,20,
59,火妖狐,,195,332,10,20,
60,火妖狐,,193,307,10,20,
; D( C. K, Q# P6 X; \61,火妖狐,,202,280,10,20,
62,火妖狐,,216,265,10,20,
/ W  @4 l  P% [8 A! x/ |63,火妖狐,,208,232,10,20,
64,火妖狐,,181,222,10,20,
* ^! x! ^/ y6 }+ h65,火妖狐,,142,75,10,20,
, Q* F% K9 a: x2 Y7 R# P66,白妖狐,,86,173,10,20,火妖狐:1
8 Y( n9 Y0 ?: P( U67,白妖狐,,64,124,10,20,火妖狐:1
68,白妖狐,,36,150,10,20,火妖狐:1
69,白妖狐,,48,174,10,20,火妖狐:1
( t& t3 k3 q9 J. s70,白妖狐,,63,192,10,20,火妖狐:1
71,白妖狐,,74,209,10,20,火妖狐:1
' s. N: q5 h- V, u72,白妖狐,,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
7 S8 U: |, v% x7 \4 N78,白妖狐,,137,236,10,20,火妖狐:1
8 A  t2 t! k" Q$ y79,白妖狐,,122,226,10,20,火妖狐:1
* @" ]: j7 E5 `: |80,白妖狐,,888,276,10,20,火妖狐:1
81,妖狐首领,,131,233,1,3,
) b" a1 Y0 o$ G8 T: E# R82,妖狐首领,,203,302,1,3,
$ P0 m  O5 L: ^+ X6 P$ d! Y83,妖狐首领,,147,232,1,3,
85,妖狐首领,,887,276,1,3,
86,妖狐首领,,143,75,1,3,
87,妖狐首领,,222,341,1,3,
  y4 s- O+ g" u$ k1 @) C88,妖狐首领,,241,146,1,3,
9 q. O  M% {" y: i' e4 a7 a8 |! b89,妖狐王,,131,231,1,30,
90,妖狐王,,203,302,1,30,
91,妖狐王,,887,278,1,30,
$ A7 n8 z# U. t1 h0 p92,妖狐王,,241,146,1,30,
93,妖狐王,,222,342,1,30,
1 J. h: }" O7 d1 K2 P  D7 N94,火妖狐,,242,255,10,20,
95,白妖狐,,242,256,10,20,火妖狐:1
96,妖狐首领,,242,257,1,3,
97,妖狐王,,242,259,1,30,
  ]  `6 g$ r5 T" ~) w3 |6 m98,妖狐王,,147,232,1,30,
$ F2 c7 O- ?0 W- u: r4 ?93,妖狐王,,143,76,1,30,
# N; w+ N; m4 K' e: L  w& \9 ~* l
' J/ t5 G  T) r  x' H+ r: O8 |Tgs1000/Setting/CreateGate.sdb（XXX为妖狐村地图的编号）
, M) b) W/ f3 N3 B+ n' P; f% [" K
187,妖狐村,妖狐村,0,TRUE,69,507,480,35,242,516,480,1,
/ s, b9 l4 a) R1 F! gXXX
,3,,,,,,,,,,,,,,,,,,,,,,,,
Tgs1000/Init/Npc.sdb
+ S( ~" k# E3 j$ O4 z4 _; l& r
女村长,女村长,0,,,TRUE,,,,,,,37,56,160,150,30,,,,3500,-15,0,-30,10,,0,,,,,,,,,,,,,,,,

Tgs1000/Script/Script.sdb

139,女村长.txt,,

Tgs1000/Script/女村长.txt
, b- I$ e) ^2 ~+ O- H$ K
unit 女村长;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
( k6 C4 C" \* P  q# W+ [, B) ffunction  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
8 A7 C, k5 ]: G) Y4 Xprocedure print (aText: string);
function  Random (aScope: integer): integer;
; F! W# t! a3 j) p9 h$ x# `function  Length (aText: string): integer;
! r% H1 J6 \7 |" Gprocedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
" W/ _% u4 X  O5 k6 a0 E  Jfunction  IntToStr (aInt: integer): string;
procedure exit;
4 s$ l! o1 [4 P+ i$ e5 }$ nprocedure OnGetResult (aStr : String);
5 ^# o1 x/ h' z3 J; i4 Q1 hprocedure OnLeftClick (aStr : String);
procedure OnApproach (aStr : String);
procedure OnAway (aStr : String);
1 O$ h% b& b( l" b$ zprocedure OnArrival (aStr : String);
var
iCallCount : Integer = 0;
" ~5 e' ^% C+ w( n; n0 Wimplementation
* I. R5 x" \' C5 T3 p& L7 ^procedure OnAway (aStr : String);
var
   Str : String;
8 L0 [# G9 ^! N4 x0 Y" w   Race : Integer;
5 ~# `# [: I4 ]3 `1 h+ Qbegin
   Str := callfunc ('getsenderrace');
: q/ {2 U3 E7 u4 i- U2 R- S   Race := StrToInt (Str);
. Q, V. ~- U( c& e   if Race = 1 then begin
* T4 N" G) y) n) L7 x2 v( j/ y; \      print ('say 快把狐狸精华给我吧');
   exit;
3 W# `* z# ]3 w2 J   end;
end;
. Z1 h* R/ u& ^) Aprocedure OnApproach (aStr : String);
) o2 @8 S( A' [var
, S, }. V' o- ?+ H" e   Str : String;
+ I; g% F/ s0 M6 r4 M& x' f; j9 j   Race : Integer;
+ n* T  Q- I) h8 Y! ^. Ibegin
   Str := callfunc ('getsenderrace');
; s  x: n1 P; `5 m8 W2 |+ L. [   Race := StrToInt (Str);
, }! d* Z, h4 B   if Race = 1 then begin
' `  P$ I. r2 _# y0 Z      print ('say 欢迎光临龙禧千年');
   exit;
1 Q, `0 T# U7 ?   end;
. M' m3 P# v0 P& pend;
$ J% _6 o: I5 p' M. aprocedure OnLeftClick (aStr : String);
1 h; \- C+ z* P6 H% n$ dvar
+ F$ C3 r, E8 i0 H# A% x   Str : String;
! u, O8 v! T4 @4 \. Y% fbegin
6 U0 Z8 w# k' I   Str := 'showwindow .\help\女村长.txt 1';
, I8 A3 K5 L$ g9 F   print (Str);
% J! l: ?8 K2 ^6 _, d2 Z   exit;
end;
. z4 m! X2 g' f( y4 K" [+ g$ _/ Rprocedure OnGetResult (aStr : String);
var
   Str, Name : String;
   iRandom, iKind : Integer;
begin
   if aStr = 'taozi' then begin
      Str := callfunc ('getsenderitemexistence 狐狸精华:1');
      if Str = 'false' then begin
( _) W; O1 z, c4 y4 C         Str := 'say 我心急如焚-没有狐狸精华别来见我';
         print (Str);
6 {) ?2 C* `+ a, |         exit;
      end;
; \6 W  \" H. o      Str := callfunc ('checkenoughspace');
0 e; y) ]  l6 \  G+ ~      if Str = 'false' then begin
         print ('say 物品栏已满~');
, m; k  y) p; Z# A7 a. O5 \         exit;
      end;
$ A. t7 {: H2 d8 C      
      print ('getsenderitem 狐狸精华:1');
9 d+ D' x& s  a( B      
0 K0 c, v, U6 g4 t; \' j      iKind := Random (15);
      if iKind = 0 then begin
$ `" u: l5 ^: b6 B          Str := 'putsendermagicitem 鹰雕手 @女村长 4';
          print (Str);
, {) E5 z1 S  X9 m7 m5 Y       end;
      if iKind = 1 then begin
          Str := 'putsendermagicitem 清月天剑 @女村长 4';
          print (Str);
       end;
; s' q$ L5 T+ i      if iKind = 2 then begin
( M/ \( q; w# p+ a5 G          Str := 'putsendermagicitem 天云宝刀 @女村长 4';
: e" m' n6 R7 n5 }" G7 Z* E          print (Str);
9 D) P6 f7 h( o! [% |" w  d       end;
* G5 R2 i7 ]8 F* h: V      if iKind = 3 then begin
3 U& v9 m9 o( f+ |          Str := 'putsendermagicitem 白骨魔棒 @女村长 4';
) Z! {1 C+ F+ l8 J4 S          print (Str);
       end;
      if iKind = 4 then begin
, z) ?3 W) u( D0 x          Str := 'putsendermagicitem 天龙月斧 @女村长 4';
7 S( ^1 {& g* m7 o$ o          print (Str);
0 e8 ?9 T1 F2 [5 D, q5 F1 N       end;
      if iKind = 5 then begin
          Str := 'putsendermagicitem 男子英雄头盔 @女村长 4';
          print (Str);
% y$ u: h3 G1 ^. x, y4 A5 S& W       end;
      if iKind = 6 then begin
& u! u* y7 I9 `) C          Str := 'putsendermagicitem 女子英雄头盔 @女村长 4';
. V9 v! L$ I( t+ o( ~! J' ]1 ~: {          print (Str);
8 F8 b* d+ O( C: B       end;
      if iKind = 7 then begin
: a! \6 ^: Q& S' ]8 _8 Q. @# L          Str := 'putsendermagicitem 男子英雄铠甲 @女村长 4';
8 t  ]. s8 `  j. p0 c  u7 c          print (Str);
% R8 a7 b4 a; |) g$ m$ U; T) C       end;
      if iKind = 8 then begin
          Str := 'putsendermagicitem 女子英雄铠甲 @女村长 4';
          print (Str);
       end;
" _) Z/ o5 W% a$ s# _      if iKind = 9 then begin
          Str := 'putsendermagicitem 男子英雄护腕 @女村长 4';
          print (Str);
       end;
2 ]# v7 i4 v6 n; }      if iKind = 10 then begin
          Str := 'putsendermagicitem 女子英雄护腕 @女村长 4';
          print (Str);
1 ?0 E: m( o) ~" q       end;
      if iKind = 11 then begin
3 l  Z3 A3 i: P6 Z          Str := 'putsendermagicitem 男子英雄战靴 @女村长 4';
          print (Str);
       end;
      if iKind = 12 then begin
          Str := 'putsendermagicitem 女子英雄战靴 @女村长 4';
& y3 }6 ^; Y9 g+ M1 _: @          print (Str);
; \9 B( E8 y1 [8 l( A6 t* i       end;
) @% Z; c7 `, g" e      if iKind = 13 then begin
8 ~. ?* ?! W' m0 P( m: u" w( k          Str := 'putsendermagicitem 大脉神弓 @女村长 4';
1 O% A6 z# u2 F- o+ B; G          print (Str);
       end;
2 o/ A" ]% w8 {' D# v, `      if iKind = 14 then begin
# R0 d1 T/ L4 ~% _% t$ m  ?, O. W, }          Str := 'putsendermagicitem 归魂斗甲 @女村长 4';
          print (Str);
       end;
7 z+ h) h$ K$ M( m      Str := 'say 你拯救了全村人 这些东西就拿去吧!';
2 q" ^% S- j9 Z9 E' U9 R, O+ j, Z! g      print (str);
     end;
4 O1 Q( L& z9 H% s  end;
end.

5 t8 j& o6 n' a. i6 X8 q3 O+ GTgs1000/Help/女村长.txt
* B2 F7 |' [: H! ^
女村长
英雄如果你能找到狐狸精华,就能救活全村人的性命!
关闭
# g: H$ x1 Q+ h2 U给予狐狸精华!

Tgs1000/Setting/CreateNpc1.sdb(请注意下面的编号139这个和Script.sdb的139对应)
5 H$ g" F3 P* S. Q4 M
* t8 A4 g  q4 ?/ @4 {98,女村长,504,480,1,2,139,,