妖狐村活动代码.无错版

Tgs1000/Init/Item.sdb

狐狸精华,狐狸精华,4,狐狸精华能治好全村人的病
还不快拿给女村长,,,,,,,TRUE,FALSE,230,,,,,,,,,,200000,200000,,,,,,,,,,,,,,,,,,,,,,,,,,狐王之骨:1:狐狸血:5:梅花夫人玉簪:1:捕盗大将腰牌:3,,,,,,,,,,,,,,,,,,,,,,,
狐王之骨,狐王之骨,5,妖狐王的骨头
% M% e8 u* b' A7 n, ~' E! E加工狐狸精华的材料,,,,,,,TRUE,FALSE,563,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
  \# L$ ?, w. u9 M* Y7 j8 v狐狸血,狐狸血,5,装满妖狐血的瓶子
加工狐狸精华的材料,,,,,,,TRUE,FALSE,306,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
) V+ t! G4 }9 J! V' G3 p3 f梅花夫人玉簪,梅花夫人玉簪,5,梅花夫人丢失的玉簪
  ^8 H; `  s' Z; E/ {' w! ]' Y加工狐狸精华的材料,,,,,,,TRUE,FALSE,578,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
捕盗大将腰牌,捕盗大将腰牌,5,捕盗大将丢失的腰牌
4 ^% B- L$ t$ D4 F2 H6 A3 D加工狐狸精华的材料,,,,,,,TRUE,FALSE,571,0,0,,0,0,1,,0,,,,,,,,4429,4828,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
  H6 Z: ]; ^5 Z' E: f9 r% T$ a% KTgs1000/Init/Monster.sdb
$ M) ^. R( Q; R$ {4 `火妖狐,火妖狐,,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,,
# j7 _5 V. a  S' T0 F# M妖狐首领,妖狐首领,,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,,,,,,,,,,,,,,,,,,,
  I3 f6 v, ^4 k$ {3 f# i" x所用的地图是最早新人村的大地图

Tgs1000/Init/Map.sdb
- r9 {3 E9 S( @: a* f0 d3 a
/ M$ @1 M  B( X) W& j8 X3 G1 \; y! UXXX
,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里地图的编号)
; U8 K& K4 g( [' X1 p- D1,火妖狐,,86,173,10,20,
$ |0 l$ N% I( A2 q! G( k5 U' V# w! W1 ]2,火妖狐,,71,150,10,20,
0 R; {( |; A+ f* b$ \4 f# p7 U3,火妖狐,,61,125,10,20,
2 m  W& l3 @6 G( C& I- m4,火妖狐,,64,124,10,20,
# o) `6 a7 ?; V/ @4 u5,火妖狐,,37,131,10,20,
8 z. r, g+ @" k( i% H) a6,火妖狐,,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,
8 e, l. S& Q4 a9 }1 f$ e; w& D! O15,火妖狐,,71,298,10,20,
16,火妖狐,,91,303,10,20,
17,火妖狐,,101,313,10,20,
18,火妖狐,,114,297,10,20,
19,火妖狐,,126,285,10,20,
' u4 \4 n, T; t: S5 }: {% F20,火妖狐,,147,286,10,20,
$ p/ `; p$ t# z3 Y21,火妖狐,,160,301,10,20,
22,火妖狐,,170,313,10,20,
23,火妖狐,,163,282,10,20,
24,火妖狐,,163,268,10,20,
( O  v6 L1 a2 H) \8 Z3 L25,火妖狐,,157,253,10,20,
26,火妖狐,,146,242,10,20,
27,火妖狐,,137,236,10,20,
. _7 C' r1 e+ \9 G1 h& X1 b28,火妖狐,,128,234,10,20,
5 x, u- J5 x0 M9 Q29,火妖狐,,122,226,10,20,
! O; N5 _+ ]5 E5 x30,火妖狐,,114,216,10,20,
& L* Z$ M- u$ z9 C3 c  K7 Y31,火妖狐,,102,228,10,20,
32,火妖狐,,105,245,10,20,
" I- j9 r9 p8 s+ J1 C7 V33,火妖狐,,113,265,10,20,
34,火妖狐,,102,280,10,20,
35,火妖狐,,88,276,10,20,
. F- W$ M' u- W- M1 i, J; c36,火妖狐,,126,134,10,20,
! m/ F! q  y  ]+ }7 s37,火妖狐,,144,129,10,20,
38,火妖狐,,162,123,10,20,
4 N2 U/ B3 ~4 w3 Q39,火妖狐,,183,113,10,20,
40,火妖狐,,205,105,10,20,
9 u8 K1 _) B# O5 [/ j; D, H41,火妖狐,,225,122,10,20,
/ [, B/ B7 n6 J% D& a42,火妖狐,,244,146,10,20,
& @2 a2 f4 R9 w) ?% c! j8 o- I0 d43,火妖狐,,262,136,10,20,
* x9 ~' _# D6 B+ I44,火妖狐,,265,154,10,20,
3 ?/ ^6 y5 b9 p0 N45,火妖狐,,233,170,10,20,
46,火妖狐,,243,187,10,20,
9 i: a' s8 x: n; W6 q, P6 @47,火妖狐,,258,203,10,20,
7 u5 u6 _" a" d0 K/ L' Y48,火妖狐,,282,231,10,20,
, H7 J/ N( r$ d7 r49,火妖狐,,279,253,10,20,
. j2 z8 `# Z8 Q5 @, _50,火妖狐,,263,260,10,20,
4 c5 j/ y3 I: I% b6 v51,火妖狐,,257,279,10,20,
% r0 C9 x) l" s4 Q52,火妖狐,,267,295,10,20,
+ }, r, V# V+ y6 h1 M( o, L53,火妖狐,,285,313,10,20,
54,火妖狐,,293,326,10,20,
& y3 e% H4 o  Q55,火妖狐,,265,335,10,20,
56,火妖狐,,253,346,10,20,
7 }6 G, |$ m, T57,火妖狐,,235,359,10,20,
58,火妖狐,,221,341,10,20,
- G$ F8 i- j  L6 O7 V' w59,火妖狐,,195,332,10,20,
60,火妖狐,,193,307,10,20,
61,火妖狐,,202,280,10,20,
% e5 _' v$ k3 f4 H( Z% U7 L62,火妖狐,,216,265,10,20,
5 {, {$ X/ G5 u9 [' V. @63,火妖狐,,208,232,10,20,
  t7 N6 K1 s/ c64,火妖狐,,181,222,10,20,
65,火妖狐,,142,75,10,20,
3 n( q! H  Z1 u# g0 |66,白妖狐,,86,173,10,20,火妖狐:1
0 @  p% r) M# d1 _8 ]0 H: G67,白妖狐,,64,124,10,20,火妖狐:1
68,白妖狐,,36,150,10,20,火妖狐:1
6 d4 X, b" p  [' g4 X8 G69,白妖狐,,48,174,10,20,火妖狐:1
70,白妖狐,,63,192,10,20,火妖狐:1
71,白妖狐,,74,209,10,20,火妖狐:1
* K5 g+ F# ^( y4 C" a, U1 b: D% \72,白妖狐,,72,227,10,20,火妖狐:1
73,白妖狐,,80,241,10,20,火妖狐:1
74,白妖狐,,91,303,10,20,火妖狐:1
75,白妖狐,,160,301,10,20,火妖狐:1
  \3 O1 H+ g9 l# O4 A76,白妖狐,,170,313,10,20,火妖狐:1
+ _4 d# l. U0 \77,白妖狐,,163,268,10,20,火妖狐:1
# W- g5 F) j" G0 d78,白妖狐,,137,236,10,20,火妖狐:1
! u( b1 M: \% v- y, V79,白妖狐,,122,226,10,20,火妖狐:1
" L3 U2 V. W! q6 N: s80,白妖狐,,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,
! W8 U7 E" B' M0 h. j% A% F" J86,妖狐首领,,143,75,1,3,
7 {  T$ X7 Q( B7 F87,妖狐首领,,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,
1 R8 t" l/ E4 n93,妖狐王,,222,342,1,30,
94,火妖狐,,242,255,10,20,
95,白妖狐,,242,256,10,20,火妖狐:1
2 Q6 g' ~  ^$ ]0 W6 n; K5 @, s7 p& K96,妖狐首领,,242,257,1,3,
6 \+ a' t1 D: }4 H% j& X% M97,妖狐王,,242,259,1,30,
8 i4 P' n7 `1 f. X# Y+ X- _7 `98,妖狐王,,147,232,1,30,
93,妖狐王,,143,76,1,30,
/ z; J$ |: P; [* E: P7 L. c
Tgs1000/Setting/CreateGate.sdb（XXX为妖狐村地图的编号）

. R; c% }; \& p2 _3 a' A' K* [187,妖狐村,妖狐村,0,TRUE,69,507,480,35,242,516,480,1,
3 E) w1 G7 g: N: ]1 `* W2 hXXX
,3,,,,,,,,,,,,,,,,,,,,,,,,
Tgs1000/Init/Npc.sdb

6 s9 n8 ^. }! L7 z4 I& q7 h女村长,女村长,0,,,TRUE,,,,,,,37,56,160,150,30,,,,3500,-15,0,-30,10,,0,,,,,,,,,,,,,,,,

6 r$ \+ A9 w1 P' g3 iTgs1000/Script/Script.sdb
6 _8 i) k+ }9 C$ j' Q5 U, h
% B$ T( v5 y* a- _7 I3 U( s6 g% D139,女村长.txt,,

Tgs1000/Script/女村长.txt
, ^; R+ |* C& T' E* @  U
# `0 z  _5 O4 a; K; i! M+ Tunit 女村长;
inte**ce
function  GetToken (aStr, aToken, aSep : String) : String;
1 q2 H$ W4 u& N/ H; o+ [3 ]function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
' @6 o; N( _3 U, |1 B: eprocedure print (aText: string);
function  Random (aScope: integer): integer;
function  Length (aText: string): integer;
procedure Inc (aInt: integer);
* m: S. s: J5 D9 y+ @( mprocedure Dec (aInt: integer);
function  StrToInt (astr: string): integer;
' B' d( q6 S$ [$ H; Q( |# U6 Gfunction  IntToStr (aInt: integer): string;
procedure exit;
procedure OnGetResult (aStr : String);
0 Q6 z- Q" y. @0 d3 o* e! v" {procedure OnLeftClick (aStr : String);
! N7 g* b& F6 r7 Lprocedure OnApproach (aStr : String);
$ J/ y! o. x; i  x. zprocedure OnAway (aStr : String);
procedure OnArrival (aStr : String);
var
iCallCount : Integer = 0;
implementation
procedure OnAway (aStr : String);
var
" N6 ~# G+ h) m/ d* I# Q   Str : String;
   Race : Integer;
begin
" e! C; W. b; }; G$ r$ s: E   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      print ('say 快把狐狸精华给我吧');
6 i( N! G& F  M% F/ t% S   exit;
/ Y. L! r9 D+ B; J: d4 ~+ M   end;
end;
procedure OnApproach (aStr : String);
var
   Str : String;
   Race : Integer;
begin
% I8 A( A+ v$ r) Z$ m4 Z   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
0 |9 I# d6 f) V( O8 \* S   if Race = 1 then begin
      print ('say 欢迎光临龙禧千年');
8 [1 f' {+ m, |# f7 l   exit;
  Z+ [- y' q+ H2 ^+ {# F   end;
end;
procedure OnLeftClick (aStr : String);
var
   Str : String;
( p6 v  X* M; H) n; Mbegin
4 b: m% c! T' {! w- S0 J' D   Str := 'showwindow .\help\女村长.txt 1';
& K) m' F/ Q' @) E( X   print (Str);
, \8 F/ C, V0 X% j9 }, m0 y   exit;
end;
procedure OnGetResult (aStr : String);
var
   Str, Name : String;
* F2 _5 Y* E: t" S9 x$ }4 F   iRandom, iKind : Integer;
3 L& @/ ?# V0 ^5 R7 K: t% sbegin
5 U% V# i' b6 A/ g, a, _   if aStr = 'taozi' then begin
  Y. y* {) J" d/ a& b      Str := callfunc ('getsenderitemexistence 狐狸精华:1');
      if Str = 'false' then begin
         Str := 'say 我心急如焚-没有狐狸精华别来见我';
# c2 `! L  R! ]$ I* ~3 K, O         print (Str);
         exit;
      end;
8 S( R# C0 `& h4 H. M4 ?      Str := callfunc ('checkenoughspace');
- d* X8 A1 W5 A& T% h- `      if Str = 'false' then begin
         print ('say 物品栏已满~');
* \' b3 `# l; m  h         exit;
      end;
) K, T/ c3 \+ M7 K1 j      
2 }6 C- u& v' P! C. U      print ('getsenderitem 狐狸精华:1');
; U, }' E5 T/ ?$ F      
      iKind := Random (15);
      if iKind = 0 then begin
          Str := 'putsendermagicitem 鹰雕手 @女村长 4';
' @. u0 ?% h6 |  H. t" ]          print (Str);
! h% @! t7 I' C2 K       end;
      if iKind = 1 then begin
. Q( l" t! L. J- Z+ A          Str := 'putsendermagicitem 清月天剑 @女村长 4';
          print (Str);
       end;
      if iKind = 2 then begin
          Str := 'putsendermagicitem 天云宝刀 @女村长 4';
          print (Str);
       end;
2 O" Q2 c" O" {$ X- Z/ J      if iKind = 3 then begin
$ O  Y  e+ p( M7 u3 s; D$ C; |2 R          Str := 'putsendermagicitem 白骨魔棒 @女村长 4';
1 p7 Q0 I' ]& z          print (Str);
       end;
3 M1 o' Q5 O/ t9 @  b4 }      if iKind = 4 then begin
          Str := 'putsendermagicitem 天龙月斧 @女村长 4';
. Q, J# j; ~& `6 m! n          print (Str);
       end;
) x; v+ w1 w' t" Q* V4 S; z      if iKind = 5 then begin
          Str := 'putsendermagicitem 男子英雄头盔 @女村长 4';
0 O9 E- z6 B  Q) ~          print (Str);
6 p: v, j$ a$ g* |9 |) F+ V       end;
5 U3 C3 G8 q. {. i" G/ ?      if iKind = 6 then begin
3 v7 E8 r1 i! {8 C  z" u) N! e: z          Str := 'putsendermagicitem 女子英雄头盔 @女村长 4';
          print (Str);
0 X! ?7 N1 L. b" q& d/ ]; \       end;
$ K6 [0 N' B- y1 B      if iKind = 7 then begin
          Str := 'putsendermagicitem 男子英雄铠甲 @女村长 4';
          print (Str);
7 i2 U! A. F( _) X       end;
4 s3 b; W4 [7 K! e/ G/ R      if iKind = 8 then begin
8 E- K4 [/ \$ s) }9 C- B6 B          Str := 'putsendermagicitem 女子英雄铠甲 @女村长 4';
* B4 ~9 M9 n" Z3 I0 F4 u          print (Str);
1 \+ S  F/ @; C% W% o, w( D       end;
1 j/ n$ u9 B. G/ h2 W' ?! |& M' i      if iKind = 9 then begin
          Str := 'putsendermagicitem 男子英雄护腕 @女村长 4';
1 G0 F7 f/ Q1 y2 K# M% p          print (Str);
       end;
" j& d5 q9 o2 t+ D      if iKind = 10 then begin
" C/ S) b$ r1 q7 D3 I1 R          Str := 'putsendermagicitem 女子英雄护腕 @女村长 4';
9 ~) N7 T6 U' c! X          print (Str);
       end;
4 x/ D5 ?6 }4 N$ S      if iKind = 11 then begin
6 V- c* @- n4 w) R4 q          Str := 'putsendermagicitem 男子英雄战靴 @女村长 4';
          print (Str);
       end;
      if iKind = 12 then begin
          Str := 'putsendermagicitem 女子英雄战靴 @女村长 4';
! u. l( j) s; K- {9 c# w          print (Str);
8 V8 j9 i! n7 Y5 D       end;
      if iKind = 13 then begin
% }" Q2 ^' F: Z8 x0 ~          Str := 'putsendermagicitem 大脉神弓 @女村长 4';
& [! [! B* n1 B( E          print (Str);
; e3 t) [/ a2 Y$ ]3 r* I% Q* _       end;
      if iKind = 14 then begin
# a* |- h' ]9 f& {) p4 d          Str := 'putsendermagicitem 归魂斗甲 @女村长 4';
          print (Str);
       end;
      Str := 'say 你拯救了全村人 这些东西就拿去吧!';
9 M# o8 O8 a$ t  N! J      print (str);
     end;
! {9 U6 y5 ^9 e7 V* ?  end;
end.
3 J4 n" t1 H3 l5 ^1 j
Tgs1000/Help/女村长.txt

女村长
英雄如果你能找到狐狸精华,就能救活全村人的性命!
关闭
给予狐狸精华!

Tgs1000/Setting/CreateNpc1.sdb(请注意下面的编号139这个和Script.sdb的139对应)

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

& u/ |" U& H) j# v( @6 \