千年五大灵珠与蜀山任务系统

Help
蜀山大师兄.txt




师弟炼制成[圣灵珠]了吗？

关闭
递上圣灵珠


蜀山弟子.txt




这位少侠你可以帮我的忙吗？
当你凑齐雷,风,水,土,火灵珠的时候再来找我!

关闭
交换圣灵珠



Init
Item.sdb
火灵珠,火灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,5,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
水灵珠,水灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,2,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
土灵珠,土灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,85,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
风灵珠,风灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,30,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
雷灵珠,雷灵珠,4,,,,,,,,FALSE,TRUE,88,,,,,,7,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
圣灵珠,圣灵珠,4,,,,,,,,TRUE,FALSE,586,,,,,,,,,,8000,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,


NpcSetting
蜀山大师兄.sdb
1,TRUE,,,,希望小师弟早日炼制成[圣灵珠],,,,,1000,
2,TRUE,,,,到时...嘿嘿!!!,,,,,1300,

蜀山弟子.sdb
1,TRUE,,,,怎么办呢?怎么办呢?....,,,,,1000,
2,TRUE,,,,五大灵珠什么时候才可以凑齐呢?,,,,,1285,
3,TRUE,,,,有了五大灵珠就可以炼制大师兄需要的[圣灵珠]了!,,,,,1472,
4,TRUE,,,,圣灵珠可是好东西啊!,,,,,1672,


Script
Script.sdb
153,蜀山大师兄.txt,,
154,蜀山弟子.txt,,

蜀山大师兄.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 = 'changeweapon' then begin
      Str := callfunc ('getsenderitemexistence 圣灵珠:1');
      if Str = 'false' then begin
         print ('say 你有圣灵珠?');
         exit;
      end;
      Str := callfunc ('checkenoughspace');
      if Str = 'false' then begin
         print ('say 您的物品栏已满~');
         exit;
      end;
      print ('getsenderitem 圣灵珠:1');
      iKind:= Random (33);
      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;
      if iKind = 15 then begin
         Str := 'putsendermagicitem 三界妖灵 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 16 then begin
         Str := 'putsendermagicitem 拜月神弓 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 17 then begin
         Str := 'putsendermagicitem 男子百炼血魔护腕 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 18 then begin
         Str := 'putsendermagicitem 女子百炼血魔护腕 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 19 then begin
         Str := 'putsendermagicitem 后羿神弓 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind =20 then begin
         Str := 'putsendermagicitem 天罡战气 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 21 then begin
         Str := 'putsendermagicitem 男子百炼血魔护腕 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 22 then begin
         Str := 'putsendermagicitem 冰咆哮 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 23 then begin
         Str := 'putsendermagicitem 男子婚袍 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 24 then begin
         Str := 'putsendermagicitem 女子婚袍 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 25 then begin
         Str := 'putsendermagicitem 阿修罗神弓 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 26 then begin
         Str := 'putsendermagicitem 诸神黄昏 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 27 then begin
         Str := 'putsendermagicitem 百炼梅雨弓 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 28 then begin
         Str := 'putsendermagicitem 百炼血狱斗甲 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 29 then begin
         Str := 'putsendermagicitem 女子百炼血魔道袍 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 30 then begin
         Str := 'putsendermagicitem 女子百炼血魔头盔 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 31 then begin
         Str := 'putsendermagicitem 百炼血魔神刀 @蜀山大师兄 4';
         print (Str);
      end;
      if iKind = 32 then begin
         Str := 'putsendermagicitem 百炼噬血魔神枪 @蜀山大师兄 4';
         print (Str);
      end;
      print ('say 太好了,我终于得到这玩意儿了!');
   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 1';
      print (Str);
      exit;
   end;
end;
end.


蜀山弟子.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 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 = 'make' then begin
      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 水灵珠: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 ('checkenoughspace');
            if Str = 'false' then begin
               print ('say 物品栏已满');
               exit;
            end;

      print ('getsenderitem 雷灵珠:1');
      print ('getsenderitem 风灵珠:1');
      print ('getsenderitem 水灵珠:1');
      print ('getsenderitem 土灵珠:1');
      print ('getsenderitem 火灵珠:1');
            Str := 'putsendermagicitem 圣灵珠 @蜀山弟子 4';
        print (Str);
         print ('say 拿着圣灵珠去找我大师兄吧!');
            exit;
         end;
      end;
end;

end.



Setting
CreateNpc1.sdb
107,蜀山大师兄,743,963,1,3,153,蜀山大师兄.sdb,
108,蜀山弟子,502,479,1,3,154,蜀山弟子.sdb,