妖狐村活动代码.无错版 - 三千论坛

Tgs1000/Init/Item.sdb
. z$ E/ Q+ H1 u0 N1 P6 h
' K3 f( [4 [8 n' B" ]狐狸精华,狐狸精华,4,狐狸精华能治好全村人的病
还不快拿给女村长,,,,,,,TRUE,FALSE,230,,,,,,,,,,200000,200000,,,,,,,,,,,,,,,,,,,,,,,,,,狐王之骨:1:狐狸血:5:梅花夫人玉簪:1:捕盗大将腰牌:3,,,,,,,,,,,,,,,,,,,,,,,
狐王之骨,狐王之骨,5,妖狐王的骨头
加工狐狸精华的材料,,,,,,,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,梅花夫人丢失的玉簪
加工狐狸精华的材料,,,,,,,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,,,,,,,,,,,,,,,,,,
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,,,,,,,,,,,,,,,,,,,
妖狐王,妖狐王,,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,,,,,,,,,,,,,,,,,,,
所用的地图是最早新人村的大地图

( {$ s, V# L2 B% y+ `9 ~; d" a" cTgs1000/Init/Map.sdb* r% D6 F! J9 B& w+ o7 y" g

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,,
Tgs1000/Setting/CreateMonster
XXX
.sdb(注意这个0是对应map.SDB里地图的编号)
1,火妖狐,,86,173,10,20,
2,火妖狐,,71,150,10,20,
3,火妖狐,,61,125,10,20,
4,火妖狐,,64,124,10,20,
5,火妖狐,,37,131,10,20,
6,火妖狐,,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,
15,火妖狐,,71,298,10,20,
16,火妖狐,,91,303,10,20,
17,火妖狐,,101,313,10,20,
18,火妖狐,,114,297,10,20,
19,火妖狐,,126,285,10,20,
20,火妖狐,,147,286,10,20,
21,火妖狐,,160,301,10,20,
22,火妖狐,,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,
28,火妖狐,,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,
35,火妖狐,,88,276,10,20,
36,火妖狐,,126,134,10,20,
37,火妖狐,,144,129,10,20,
38,火妖狐,,162,123,10,20,
39,火妖狐,,183,113,10,20,
40,火妖狐,,205,105,10,20,
41,火妖狐,,225,122,10,20,
42,火妖狐,,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,
49,火妖狐,,279,253,10,20,
50,火妖狐,,263,260,10,20,
51,火妖狐,,257,279,10,20,
52,火妖狐,,267,295,10,20,
53,火妖狐,,285,313,10,20,
54,火妖狐,,293,326,10,20,
55,火妖狐,,265,335,10,20,
56,火妖狐,,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,
62,火妖狐,,216,265,10,20,
63,火妖狐,,208,232,10,20,
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
69,白妖狐,,48,174,10,20,火妖狐:1
70,白妖狐,,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
78,白妖狐,,137,236,10,20,火妖狐:1
79,白妖狐,,122,226,10,20,火妖狐:1
80,白妖狐,,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,
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,
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,
, Y) Q) \! y& j9 B/ ?$ X
Tgs1000/Setting/CreateGate.sdb（XXX为妖狐村地图的编号）
# j+ f8 _- t/ m+ \3 @
187,妖狐村,妖狐村,0,TRUE,69,507,480,35,242,516,480,1,
XXX
,3,,,,,,,,,,,,,,,,,,,,,,,,
Tgs1000/Init/Npc.sdb
, j% {5 P! B+ R& W  o
女村长,女村长,0,,,TRUE,,,,,,,37,56,160,150,30,,,,3500,-15,0,-30,10,,0,,,,,,,,,,,,,,,,
4 L" d5 B" j( n; [4 l
Tgs1000/Script/Script.sdb
; k$ U$ G; ~# }( A
139,女村长.txt,,

( E) b% D/ _* B' xTgs1000/Script/女村长.txt; k+ c7 q( N2 l9 b5 o9 q5 D

unit 女村长;
interface
function  GetToken (aStr, aToken, aSep : String) : String;
function  CompareStr (aStr1, aStr2 : String) : Boolean;
function  callfunc (aText: string): string;
procedure 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;
procedure exit;
procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);
procedure OnApproach (aStr : String);
procedure OnAway (aStr : String);
procedure OnArrival (aStr : String);
var
iCallCount : Integer = 0;
implementation
procedure OnAway (aStr : String);
var
Str : String;
Race : Integer;
begin
Str := callfunc ('getsenderrace');
Race := StrToInt (Str);
if Race = 1 then begin
   print ('say 快把狐狸精华给我吧');
exit;
end;
end;
procedure OnApproach (aStr : String);
var
Str : String;
Race : Integer;
begin
Str := callfunc ('getsenderrace');
Race := StrToInt (Str);
if Race = 1 then begin
   print ('say 欢迎光临龙禧千年');
exit;
end;
end;
procedure OnLeftClick (aStr : String);
var
Str : String;
begin
Str := 'showwindow .\help\女村长.txt 1';
print (Str);
exit;
end;
procedure 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
      Str := 'say 我心急如焚-没有狐狸精华别来见我';
      print (Str);
      exit;
   end;
   Str := callfunc ('checkenoughspace');
   if Str = 'false' then begin
      print ('say 物品栏已满~');
      exit;
   end;

   print ('getsenderitem 狐狸精华:1');

   iKind := Random (15);
   if iKind = 0 then begin
      Str := 'putsendermagicitem 鹰雕手 @女村长 4';
      print (Str);
   end;
   if iKind = 1 then begin
      Str := 'putsendermagicitem 清月天剑 @女村长 4';
      print (Str);
   end;
   if iKind = 2 then begin
      Str := 'putsendermagicitem 天云宝刀 @女村长 4';
      print (Str);
   end;
   if iKind = 3 then begin
      Str := 'putsendermagicitem 白骨魔棒 @女村长 4';
      print (Str);
   end;
   if iKind = 4 then begin
      Str := 'putsendermagicitem 天龙月斧 @女村长 4';
      print (Str);
   end;
   if iKind = 5 then begin
      Str := 'putsendermagicitem 男子英雄头盔 @女村长 4';
      print (Str);
   end;
   if iKind = 6 then begin
      Str := 'putsendermagicitem 女子英雄头盔 @女村长 4';
      print (Str);
   end;
   if iKind = 7 then begin
      Str := 'putsendermagicitem 男子英雄铠甲 @女村长 4';
      print (Str);
   end;
   if iKind = 8 then begin
      Str := 'putsendermagicitem 女子英雄铠甲 @女村长 4';
      print (Str);
   end;
   if iKind = 9 then begin
      Str := 'putsendermagicitem 男子英雄护腕 @女村长 4';
      print (Str);
   end;
   if iKind = 10 then begin
      Str := 'putsendermagicitem 女子英雄护腕 @女村长 4';
      print (Str);
   end;
   if iKind = 11 then begin
      Str := 'putsendermagicitem 男子英雄战靴 @女村长 4';
      print (Str);
   end;
   if iKind = 12 then begin
      Str := 'putsendermagicitem 女子英雄战靴 @女村长 4';
      print (Str);
   end;
   if iKind = 13 then begin
      Str := 'putsendermagicitem 大脉神弓 @女村长 4';
      print (Str);
   end;
   if iKind = 14 then begin
      Str := 'putsendermagicitem 归魂斗甲 @女村长 4';
      print (Str);
   end;
   Str := 'say 你拯救了全村人这些东西就拿去吧!';
   print (str);
   end;
  end;
end.
6 B' |$ E* U# E0 d) [3 e
Tgs1000/Help/女村长.txt
8 ]& N) F+ |3 O: `5 \
女村长
英雄如果你能找到狐狸精华,就能救活全村人的性命!
关闭
给予狐狸精华!
# ^, ?6 G& f1 w5 W$ ^
Tgs1000/Setting/CreateNpc1.sdb(请注意下面的编号139这个和Script.sdb的139对应); g: d' m) S/ Y) C5 Y9 G0 l

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