当前位置：传奇游戏服务端下载站传奇站长论坛资源网站程序技术文章 → 文章资讯 → 游戏架设教程 → 千年技术

千年三国盛世续狐狸洞任务脚本与数据

减小字体

增大字体作者：佚名来源：本站整理发布时间：2014-10-04 10:30:10

打开：TgsServer\Init\Monster.sdb
妖华变身,妖华变身,4,6200,9300,8000,,,,,,0,16,53,73,20,7000,,,,700,50000,-20,30,-70,,10,10,TRUE,,,TRUE,,,,,0,10,TRUE,,,,,,,TRUE,,9110,9112,,9113,,,,,,,,,,TRUE,15,,,,,,,,,558,,,,,,,,,,,,,,,,9998,,
洞穴神灵,洞穴神灵,,5494,,7000,,1200000,,,,0,0,56,76,300,1800,,,,600,40000,-30,10,-70,,10,,TRUE,TRUE,,,TRUE,,,,0,12,,,,,,,,TRUE,,9122,9124,9123,9142,,,,,,,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,

打开：TgsServer\Init\Item.sdb
妖华内丹,妖华内丹,4,打死妖华变身可以获得,,,,,,,TRUE,FALSE,711,,,,,,1,,,,1000000,,,,,,,,,,,,,,,,,,,,,,,,15,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
寒光剑,寒光剑[狐狸洞],37,狐狸洞任务物品
乃金钢打造,,,,,,,,FALSE,126,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,,
空瓶1,空瓶,34,可以装取狐狸精华,,,,,,空瓶1:1,TRUE,FALSE,307,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,,,
空瓶2,狐狸精华,34,打造寒光剑任务物品之一,,,,,,空瓶2:1,TRUE,FALSE,305,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,,,
狐狸精华,狐狸精华,34,,,,空瓶1:1,,空瓶1:1,空瓶2:1,,FALSE,218,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,,,
信物,信物,56,将此信物交给铁匠可以获得帮助
『双击可获得任务流程』,,,,,,,,FALSE,526,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,TRUE,TRUE,TRUE,,,,,XXX,,
注意XXX跟TgsServer\Script\Script.SDB的XXX,信物.txt,,号码对应.狐狸精华补丁请下载小雨千年《三国盛世》补丁内item里面包含补丁文件

打开：TgsServer\Init\Monster.sdb
火狐狸,火狐狸,,523,,3800,,,,,,0,8,30,49,25,550,,,,400,8300,-40,0,-40,,10,10,TRUE,TRUE,,TRUE,,,,,100,9,TRUE,,,,,,医病术:搜集术,TRUE,,8925,8927,,8926,,,,,,火石:1:2:狐狸指甲一:2:5:风满长空:1:600:狐狸精华:1:10,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,
火狐狸2,火狐狸,,523,,3800,,,,,,0,8,30,49,35,600,,,,400,8500,-20,15,-20,,10,10,TRUE,TRUE,,TRUE,,,,,100,7,TRUE,,,,,,医病术:搜集术,TRUE,,8925,8927,,8926,,,,,,火石:1:3:狐狸指甲一:2:5:风满长空:1:600:狐狸精华:1:10,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,
火狐狸3,火狐狸,,523,,3800,,,,,,0,8,30,49,45,700,,,,400,8700,0,30,0,,10,10,TRUE,TRUE,,TRUE,,,,,100,6,TRUE,,,,,,医病术:搜集术,TRUE,,8925,8927,,8926,,,,,,火石:1:3:狐狸指甲一:2:5:风满长空:1:600:狐狸精华:1:10,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,
白狐狸,白狐狸,,658,1316,4000,,,,,,0,8,31,50,50,750,,,,450,9000,-10,0,-40,,10,20,TRUE,TRUE,,TRUE,,,,,0,10,TRUE,,,,,,变身术:医病术:搜集术,TRUE,,8928,8930,,8929,,,,,,狐狸尾巴:1:10:狐狸裘一:1:4:狐狸精华:1:10,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,
死狼女实像,死狼女,,3054,6108,6200,,30000,,,,0,8,32,51,10,1000,,,,750,25000,-30,70,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,10,TRUE,,,,,百鬼夜行术:10000,隐身术:医病术,TRUE,,8938,8941,,8940,,,,月之流:1:4,20,玫瑰脱色药:10:1:金元:1:5,,,TRUE,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,
死狼女虚像,死狼女,,3054,6108,6200,,,,,,0,8,33,52,70,0,,,,500,10000,0,70,-70,,10,,TRUE,,,TRUE,,,,,0,10,,,,,,,再生术,TRUE,,,8937,,,,,,,,红玫瑰一:10:1:潜行术:1:2:狐狸精华:1:3,,,,,15,,,,,,,,,,,,,,,,,,,,,,,,,,,

打开：TgsServer\Init\Map.sdb
XXX,m3mineMonBS.smp,m3mineMonBS.map,m3mineMontil.til,m3mineMonobj.Obj,m3mineMonobj.Obj,8956,,洞穴密室,TRUE,TRUE,TRUE,TRUE,,TRUE,TRUE,TRUE,TRUE,,TRUE,TRUE,TRUE,TRUE,TRUE,,TRUE,,TRUE,,,,,,,,18000,3000,1,127,237,,,,,,,,TRUE,109,,,,,,,,,,,,,,,,,,,,,

打开：TgsServer\Setting
新建立文件CreateMonsterXXX.sdb XXX号码对应第四部地图对应号码！
Name,MonsterName,X,Y,Count,Width,Member,Script
1,妖华变身,20,17,1,1,,XXX
说明：XXX此号码对应TgsServer\Script\Script.SDB的：XXX,妖华变身.txt,,号码

打开：TgsServer\Init\Script\Script.sdb文件
XXX,死狼女.txt,,
XXX,洞穴神灵.txt,,
XXX,妖华变身.txt,,
XXX,信物.txt,,
说明：XXX根据自己的服务端添加，注意对应代码！

打开：TgsServer\Init\Script
添加洞穴神灵.txt文件
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 OnLeftClick (aStr : String);
procedure OnGetResult (aStr : String);

implementation

procedure OnGetResult (aStr : String);
var
   Str, Name : String;
   iCount, iKind : Integer;
begin
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'go' then begin
      Str := callfunc ('getsenderitemexistence 寒光剑:1');
      if Str = 'false' then begin
         print ('say 没有寒光剑....去沙漠找铁匠打造吧！');
         exit;
      end;
      Str := callfunc ('getusercount 111');
      iCount := StrToInt (Str);
      if iCount > 0 then begin
         print ('say 里面好象有人...稍等片刻');
         exit;
      end;
      Str := callfunc ('checkalivemopcount 111 monster 妖华变身');
      iCount := StrToInt (Str);
      if iCount = 0 then begin
         print ('say 里面好象有人...稍等片刻');
         exit;
      end;

print ('mapregen 111');

      print ('getsenderitem 寒光剑:1');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 111 15 24';
      print (Str);

print ('boMapEnter 111 false');
end;
end;
end;

procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\洞穴神灵.txt 0';
      print (Str);
      exit;
   end;
end;

end.

添加死狼女.txt文件
unit 死狼女;

interface

procedure OnDblClick(aStr : String);
procedure OnGetResult (aStr : String);

var
num : string;

implementation

procedure OnDie (aStr : String);
var
rdStr, xStr, yStr : String;
x, y, xx,yy,i : Integer;
Str : String;
Race : Integer;
cuan, detu ,zhen: String;
ComStr : String = 'mapaddobjbyname monster ';
monstername : String = '洞穴神灵';
s:integer;
begin
str := callfunc ('getposition');

   Str := GetToken (Str, xStr, '_');
   x := StrToInt (xStr);
   Str := GetToken (Str, yStr, '_');
   y := StrToInt (yStr);

   rdStr := 'getnearxy ' + xStr;
   rdStr := rdStr + ' ';
   rdStr := rdStr + yStr;
   Str := callfunc (rdStr);

   Str := GetToken (Str, xStr, '_');
   xx := StrToInt (xStr);
   Str := GetToken (Str, yStr, '_');
   yy := StrToInt (yStr);

for s:=1 to 1 do
begin
      Str := ComStr + monstername;
      Str := Str + ' ';
      Str := Str + xStr;
      Str := Str + ' ';
      Str := Str + yStr;
      Str := Str + ' 10 137 false';
      print (Str);
end;
end;
end.

添加妖华变身.txt文件
unit 妖华变身;

interface

procedure OnCreate (aStr : String);
procedure OnDie (aStr : String);
procedure OnChangeState (aStr : String);
procedure OnGetResult (aStr : String);

implementation

procedure OnGetResult (aStr : String);
var
   Str, Name : String;
   iCount : Integer;
begin
   if aStr = 'kaishi' then begin
      Str := callfunc ('getsenderserverid');
      if Str <> '111' then exit;

Str := callfunc ('getsenderrace');
if Str <> '1' then exit;

print ('directmovespace 妖华变身 monster 111 20 17 0');

print ('commandicebyname 妖华变身 monster 500');
print ('setallowhitbytick true 500');

      Name := callfunc ('getsendername');
      Str := 'commandicebyname ' + Name;
      Str := Str + ' user 500';
      print (Str);

print ('senderrefill');

      print ('say 小子能进来很不错了!!!');
      exit;
   end;
end;

procedure OnCreate (aStr : String);
var
   Str : String;
begin
   Str := callfunc ('getsenderrace');
   if Str <> '1' then begin
      exit;
   end;

   Str := 'showwindow .\help\妖华变身.txt 0';
   print (Str);
   exit;
end;

procedure OnDie (aStr : String);
var
   Str, Name : String;
begin
   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;

print ('say 厉害啊_看来做人很难啊');

   Str := callfunc ('checkenoughspace');
   if Str = 'false' then begin
      print ('say 物品栏已满...');
      Name := callfunc ('getsendername');
      Str := 'movespace ' + Name;
      Str := Str + ' user 1 127 273 600';
      print (Str);
      exit;
   end;

   print ('putsendermagicitem 妖华内丹:1 @妖华变身 4');
   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 1 127 273 600';
   print (Str);
   Str := 'sendsendertopmsg ' + '恭喜【';
   Str := Str + Name;
   Str := Str + '】完成了重返狐狸洞任务';
   print (Str);
   exit;
end;

procedure OnChangeState (aStr : String);
var
Str, Name : String;
begin
if aStr <> 'die' then exit;

Str := callfunc ('getsenderrace');
if Str <> '1' then exit;

print ('say 还想杀我_哈哈哈哈 50');

   Name := callfunc ('getsendername');
   Str := 'movespace ' + Name;
   Str := Str + ' user 1 127 273 600';
   print (Str);
end;

end.

添加信物.txt文件
unit 信物;

interface

procedure OnDblClick(aStr : String);
procedure OnGetResult (aStr : String);

implementation

procedure OnDblClick(aStr : String);
begin
   print ('showwindow .\help\信物.txt 0');
end;
   end;
   end;
end.

打开官方原脚本九尾狐酒母.txt文件
unit 九尾狐酒母;

interface

procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

implementation

procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race = 1 then begin
      Str := 'showwindow .\help\九尾狐酒母.txt 1';
      print (Str);
      exit;
   end;
end;

procedure OnGetResult (aStr : String);
var
   Str, Name : String;
begin
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'sell' then begin
      Name := callfunc ('getsendername');
      Str := 'tradewindow ' + Name;
      Str := Str + ' 0';
      print (Str);
      exit;
   end;
   if aStr = 'make' then begin
      Str := callfunc ('getsenderitemexistence 白玫瑰一:99');
      if Str = 'false' then begin
         Str := 'say 白玫瑰不足99朵。';
         print (Str);
         exit;
      end;
      if Str = 'true' then begin
         Str := callfunc ('getsenderitemexistence 妖华尾巴:1');
         if Str = 'false' then begin
            Str := 'say 没有妖华尾巴。';
            print (Str);
            exit;
         end;
         if Str = 'true' then begin
            Str := callfunc ('checkenoughspace');
            if Str = 'false' then begin
               print ('say 物品栏已满~');
               exit;
            end;

            Str := 'getsenderitem 白玫瑰一:99';
            print (Str);
            Str := 'getsenderitem 妖华尾巴:1';
            print (Str);
            Str := 'putsendermagicitem 狐狸内丹三:1 @九尾狐酒母 4';
            print (Str);
            Str := 'say 换走狐狸内丹';
            print (Str);
            exit;
         end;
       end;
    end;
   if aStr = 'renwu' then begin
      Str := callfunc ('getsenderitemexistence 空瓶1:1');

      if Str = 'true' then begin
         print ('say 还没杀死妖华找我干什么？');
         print (Str);
         exit;
      end;

         Str := callfunc ('getsenderitemexistence 信物:1');
         if Str = 'true' then begin
            print ('say 还没杀死妖华找我干什么？');
            print (Str);
            exit;
         end;

         Str := callfunc ('getsenderitemexistence 寒光剑:1');
         if Str = 'true' then begin
            print ('say 还没杀死妖华找我干什么？');
            print (Str);
            exit;
         end;

         Str := callfunc ('getsenderitemexistence 红玫瑰一:1');
         if Str = 'false' then begin
            print ('say 我女儿最喜欢红玫瑰..看来你没有一点诚意。');
            print (Str);
            exit;
         end;

            Str := callfunc ('checkenoughspace');
            if Str = 'false' then begin
               print ('say 物品栏已满~');
               exit;
            end;

            print ('getsenderitem 红玫瑰一:1');
            print ('putsendermagicitem 空瓶1:20 @九尾狐酒母 4');
            print ('putsendermagicitem 信物:1 @九尾狐酒母 4');
            print ('say 双击信物可以获得任务信息！');
            print (Str);
            exit;
         end;
       end;
    end;
   end;
end;
end.

打开官方原脚本帝王石谷铁匠.txt文件
unit 帝王石谷铁匠;

interface

procedure OnGetResult (aStr : String);
procedure OnLeftClick (aStr : String);

implementation

procedure OnLeftClick (aStr : String);
var
   Str : String;
   Race : Integer;
   CompleteQuest : Integer;
   CurrentQuest : Integer;

begin
   Str := callfunc ('getsenderrace');
   Race := StrToInt (Str);
   if Race <> 1 then begin
      exit;
   end;

Str := callfunc ('getsendercompletequest');
CompleteQuest := StrToInt (Str);

Str := callfunc ('getsendercurrentquest');
CurrentQuest := StrToInt (Str);

   if CurrentQuest < 1450 then begin
      print ('showwindow .\help\狐狸洞.txt 1');
      exit;
   end;

   if CurrentQuest = 1450 then begin
      print ('showwindow .\help\帝王石谷铁匠.txt 1');
      exit;
   end;

   if CurrentQuest = 1500 then begin
      print ('say 事情进行得还顺利吗?');
      exit;
   end;

   if CurrentQuest = 1550 then begin
      print ('say 抱歉_小人有眼无珠没认清大人');
      exit;
   end;

   if CurrentQuest > 1550 then begin
      print ('showwindow .\help\狐狸洞.txt 1');
      exit;
   end;

end;

procedure OnGetResult (aStr : String);
var
   Str, Name : String;
   nCur, nDura : Integer;
begin
   if aStr = 'close' then begin
      print ('say 你这人别浪费我时间，该干什么干什么去吧~');
      exit;
   end;

   if aStr = 'about' then begin
      print ('showwindow .\help\帝王石谷铁匠2.txt 1');
      exit;
   end;

   if aStr = 'before' then begin
      print ('showwindow .\help\帝王石谷铁匠.txt 1');
      exit;
   end;

   if aStr = 'make' then begin
      Str := callfunc ('checkenoughspace 1');
      if Str = 'false' then begin
         print ('say 行囊满了');
         exit;
      end;

      Str := callfunc ('getsenderitemexistence 石谷钥匙:1');
      if Str = 'true' then begin
         print ('say 身上不是有石谷钥匙吗_别太贪心啦');
         exit;
      end;

      Str := callfunc ('getsenderitemexistence 金毛狮甲:1');
      if Str = 'false' then begin
         print ('say 巧妇难为无米之炊_什么都不拿让我拿什么做呀');
         exit;
      end;

      Str := callfunc ('getsenderitemexistence 蝎子尾巴:1');
      if Str = 'false' then begin
         print ('say 巧妇难为无米之炊_什么都不拿让我拿什么做呀');
         exit;
      end;

      print ('getsenderitem 蝎子尾巴:1');
      print ('getsenderitem 金毛狮甲:1');
      print ('putsendermagicitem 石谷钥匙:1 @帝王石谷铁匠 4');

      Str := callfunc ('getsenderitemexistence 降魔符:1');
      if Str = 'true' then begin
         print ('changesendercurrentquest 1500');
         print ('changesendercompletequest 1450');
      end;

      print ('say 请妥善保管');
      exit;
   end;

   if aStr = 'hgj' then begin
      Str := callfunc ('checkenoughspace 1');
      if Str = 'false' then begin
         print ('say 行囊满了');
         exit;
      end;

      Str := callfunc ('getsenderitemexistence 信物:1');
      if Str = 'false' then begin
         print ('say 酒母让你带来的信物呢？');
         exit;
      end;

      Str := callfunc ('getsenderitemexistence 金刚石:1');
      if Str = 'false' then begin
         print ('say 巧妇难为无米之炊_需要金刚石和狐狸精华');
         exit;
      end;

      Str := callfunc ('getsenderitemexistence 空瓶2:20');
      if Str = 'false' then begin
         print ('say 你好象还没有下定决心降住妖华？');
         exit;
      end;

      print ('getsenderitem 金刚石:1');
      print ('getsenderitem 空瓶2:20');
      print ('getsenderitem 信物:1');
      print ('putsendermagicitem 寒光剑:1 @帝王石谷铁匠 4');
      print ('say 请妥善保管');
      exit;
   end;
end;

end.

说明：所需要官方原脚本只是在NPC脚本添加新项目，不会影响官方原任务，大家可以直接复制以上脚本部分覆盖原脚本！

打开：TgsServer\Help

添加洞穴神灵.txt文件

去沙漠找铁匠，他会给你打造一把护身
用的"寒光剑"拿着它会杀死妖华变身...
来拯救整个村庄

[杀死妖华]

添加妖华变身.txt文件

900年了...我已经等了900年了...
谁惹我都是一个字—"死"...
这么多年来不知道有多少人死在我的手下

[开始]

添加狐狸洞.txt文件

哦？你就是去降妖华的？
不知多少人在我这里拿走了寒光剑~~

关闭
打造 [寒光剑]

添加信物.txt文件

关闭

1. 拿到酒母的信物以后和空瓶以后需要
    到[黄金沙漠]找到铁匠打造[寒光剑]
    寒光剑由[金刚石1个]与[狐狸精华20]
    提炼所成...

2. 必获得20个狐狸精华,狐狸洞的狐狸
可以获得，如果没有空瓶将无法拾取

3. 拿到[寒光剑]后进入狐狸洞杀死死狼女
    变可以看到[洞穴神灵]，将此剑交给神
    灵进入狐狸密室杀死妖华变身可获得
    妖华内丹.

4. 拿到妖华内丹变可以在妖华处换取百炼
狐狸装备

打开官方原HELP文件九尾狐酒母.txt文件修改

拿99朵白玫瑰与妖华尾巴可以换狐狸内丹
我女儿最喜欢红玫瑰...

关闭
换取狐狸内丹
发誓杀死妖狐拯救村民

说明：所需要官方原HELP添加新项目，不会影响官方原任务，大家可以直接复制以上脚本部分覆盖原HELP！

打开：TgsServer\NpcSetting

打开官方原文件妖华.txt文件

@SELFSPEECH
INTERVAL=300
SAY=我快要不行了
SAY=去找九尾狐，把狐狸内丹带过来给我
SAY=送给她99朵白玫瑰与妖华尾巴就可以获得狐狸内丹
SAY=如果我死了，会发生不可收拾的事情，千万……
@DRAGDROPEVENT
ITEM=狐狸内丹三:1
RANDOM=TRUE
GIVEITEM=男子妖华袍:1
SAY=这是从我用灵魂吸取了火的精华而制炼的甲衣。
GIVEITEM=女子妖华袍:1
SAY=这是从我用灵魂吸取了火的精华而制炼的甲衣。
GIVEITEM=男子利齿靴:1
SAY=...
GIVEITEM=女子利齿靴:1
SAY=...
GIVEITEM=驱魔烈火弓:1
SAY=...
GIVEITEM=炎帝火灵斧:1
SAY=...
GIVEITEM=狼牙戟:1
SAY=...
GIVEITEM=月光刀:1
SAY=...
GIVEITEM=龙光剑:1
SAY=...
GIVEITEM=四季甲胄:1
SAY=...
GIVEITEM=狐狸手套:1
SAY=...
ITEM=仙豆一:5
GIVEITEM=妖华尾巴:1
SAY=把这个和99朵白玫瑰送给九尾狐
ITEM=妖华内丹:1
RANDOM=TRUE
GIVEITEM=男子百炼妖华袍:1
SAY=看来我还是要继续修炼...但是我不会放弃..
GIVEITEM=女子百炼妖华袍:1
SAY=看来我还是要继续修炼...但是我不会放弃..
GIVEITEM=男子百炼利齿靴:1
SAY=...
GIVEITEM=女子百炼利齿靴:1
SAY=...
GIVEITEM=百炼驱魔烈火弓:1
SAY=...
GIVEITEM=百炼炎帝火灵斧:1
SAY=...
GIVEITEM=百炼狼牙戟:1
SAY=...
GIVEITEM=百炼月光刀:1
SAY=...
GIVEITEM=百炼龙光剑:1
SAY=...
GIVEITEM=百炼四季甲胄:1
SAY=...
GIVEITEM=百炼狐狸手套:1
SAY=...
@END