千年日本岛任务NPC脚本

在NpcSetting里面加
建两个sdb空白文件名字分别是
护国队长
1,TRUE,,,,扶桑小国正准备入侵我大唐!,,,,,1000,
2,TRUE,,,,要得到护国勋章首先要证明你是我大唐的英雄!,,,,,1285,
3,TRUE,,,,外敌入侵谁都要拿起武器杀敌.你快去杀敌啊!,,,,,1200,
4,TRUE,,,,如果不是我秦朝时期派徐福去找长生不老药.如何能有这帮败累!,,,,,1571,
5,TRUE,,,,真不知道徐福怎么教育这帮畜生的!,,,,,1572,
5,TRUE,,,,沉水匾还有狸灯灰这俩卖国贼不得好死!,,,,,1232,
护国将军5uwl.net
1,TRUE,,,,小小蕃邦居然敢向我大唐挑衅,,,,,1000,
2,TRUE,,,,如果你杀了敌人的首领.并且得到证明我会给你奖励,,,,,1285,
3,TRUE,,,,我已派出精鹰部队去边疆防卫.你不要轻易*近那里否则他们以为你是*细,,,,,1571,
4,TRUE,,,,拿到护国勋章后来找我.,,,,,1500,
5,TRUE,,,,如不是我大唐帝国看在他们是秦朝时期的分支小国早就派大军将之消灭以绝后患!,,,,,1300,
6,TRUE,,,,如果没那洋鬼子撑腰小小寇国也不敢放肆.最可气的是那两个卖国贼啊!,,,,,1200,

在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 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 敌人首级:500');
      if Str = 'false' then begin
         Str := 'say 敌人首级不足500。';
         print (Str);
         exit;
      end;      
      if Str = 'true' then begin
            Str := callfunc ('checkenoughspace');
            if Str = 'false' then begin
               print ('say 物品栏已满~');
               exit;
            end;
            Str := 'getsenderitem 敌人首级:500';
            print (Str);
            Str := 'putsendermagicitem 护国勋章 @护国队长 4';
            print (Str);
            Str := 'say 快去找护国将军吧';
            print (Str);
            exit;
         end;
      end;
      exit;
   end;
end;
end.

护国将军里面内容是
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.

在Script.SDB里加入(序号自己改)
153,护国将军.txt,,
154,护国队长.txt,,
在monstr里加入
小泉,小泉,,944,,4400,,25000,,,,0,8,,,70,6000,800,800,800,900,300000,-40,80,-70,800,10,10,TRUE,TRUE,TRUE,TRUE,TRUE,,,,0,12,TRUE,,TRUE,,,,,TRUE,,9158,3211,,3210,,,,玉露丸:1:1:金元:20:4,1,生死梦幻丹:1:20:大丸丹:1:1:千年山参:1:100:诸神黄昏:1:100:血魔弓术:1:100:敌人首级:1:1,,,,,,22222,44444,55555,66666,,77777,77777,77777,77777,,1,TRUE,,男子手套:45,男子上衣:45,男子皮鞋:45,男子束裤:45,男子妖华袍:45,男子束发:45,,忍者剑,日本狗头,1257,,,,
家奴,家奴,,944,,4400,,25000,,,,0,8,,,70,4000,800,800,800,700,300000,-40,80,-70,800,10,10,TRUE,TRUE,TRUE,TRUE,TRUE,,,,0,12,TRUE,,TRUE,,,,,TRUE,,9158,3211,,3210,,,,玉露丸:1:1:金元:20:4,1,生死梦幻丹:1:20:大丸丹:1:1:千年山参:1:100:敌人首级:1:1,,,,,,22222,44444,55555,66666,,77777,77777,77777,77777,,1,TRUE,,男子手套:65,男子上衣:65,男子皮鞋:65,男子束裤:65,男子战斗服:65,男子束发:65,男子帽,日本刀,日本兵团,1257,,,,
狸灯灰,狸灯灰,,944,,4400,,25000,,,,0,8,,,70,7000,800,800,800,800,300000,-40,80,-70,800,10,10,TRUE,TRUE,TRUE,TRUE,TRUE,,,,0,12,TRUE,,TRUE,,,,,TRUE,,9158,3211,,3210,,,,玉露丸:1:1:金元:20:4,1,生死梦幻丹:1:20:大丸丹:1:1:千年山参:1:100:诸神黄昏:1:100:血魔弓术:1:100:敌人首级:1:1,,,,,,22222,44444,55555,66666,,77777,77777,77777,77777,,1,TRUE,,男子手套:35,男子上衣:35,男子皮鞋:35,男子束裤:35,男子将军铠甲:35,男子短发:35,,桂林竹枪,卖国贼,1257,,,,
小布申,小布申,,944,,4400,,25000,,,,0,8,,,70,6000,800,800,800,800,300000,-40,80,-70,800,10,10,TRUE,TRUE,TRUE,TRUE,TRUE,,,,0,12,TRUE,,TRUE,,,,,TRUE,,9158,3211,,3210,,,,玉露丸:1:1:金元:20:4,1,生死梦幻丹:1:20:大丸丹:1:1:千年山参:1:100:敌人首级:1:1:诸神黄昏:1:100:血魔弓术:1:100,,,,,,22222,44444,55555,66666,,77777,77777,77777,77777,,1,TRUE,,男子手套:75,男子上衣:75,男子皮鞋:75,男子束裤:75,男子牛俊弓服:75,男子中长发:75,,白龙拳套,没事找抽,1257,,,,
沉水匾,沉水匾,,944,,4400,,25000,,,,0,8,,,70,6000,800,800,800,800,300000,-40,80,-70,800,10,10,TRUE,TRUE,TRUE,TRUE,TRUE,,,,0,12,TRUE,,TRUE,,,,,TRUE,,9158,3211,,3210,,,,玉露丸:1:1:金元:20:4,1,生死梦幻丹:1:20:大丸丹:1:1:千年山参:1:100:诸神黄昏:1:100:血魔弓术:1:100:敌人首级:1:1,,,,,,22222,44444,55555,66666,,77777,77777,77777,77777,,1,TRUE,,男子手套:25,男子上衣:25,男子皮鞋:25,男子束裤:25,男子桂林弓服:25,男子平头:25,,白龙斧,卖国贼,1257,,,,
扶桑岛影武者,影武者,,2220,6000,6000,,,,,,0,8,26,45,50,3025,,,,700,216000,-10,0,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,8,TRUE,,,,,,透视,TRUE,,3303,3306,,,,,,,300,玉露丸:1:1:金元:20:4,1,生死梦幻丹:1:20:大丸丹:1:1:千年山参:1:100:敌人首级:1:1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
扶桑岛忍者,忍者,,2220,6000,6000,,,,,,0,8,6,20,70,3350,,,,700,215000,-10,-20,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,8,TRUE,,,,,,透视,TRUE,,3201,3205,,3202,,,,,300,玉露丸:1:1:金元:20:4,1,生死梦幻丹:1:20:大丸丹:1:1:千年山参:1:100:敌人首级:1:1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
扶桑岛分身,分身忍者,,2220,6000,6000,,,,,,0,8,25,44,70,3100,,,,700,215000,-20,0,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,8,TRUE,,,,,,分身术:透视,TRUE,,3209,3211,,3210,,,,,300,玉露丸:1:1:金元:20:4,1,生死梦幻丹:1:20:大丸丹:1:1:千年山参:1:100:敌人首级:1:10,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
扶桑岛隐忍者,隐忍者,,2220,6000,6000,,,,,,0,8,29,48,0,3680,,,,700,215000,-5,0,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,8,TRUE,,,,,,透视,TRUE,,3212,3214,,3213,,,,,300,玉露丸:1:1:金元:20:4,1,生死梦幻丹:1:20:大丸丹:1:1:千年山参:1:100:敌人首级:1:1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
扶桑岛赤风,赤风,,2220,6000,6000,,,,,,0,8,19,38,70,2680,,,,700,115000,10,0,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,10,TRUE,,,,,迷宫标枪术:10000,透视,TRUE,,3215,3218,,3216,,,,,300,玉露丸:1:1:金元:20:4,1,生死梦幻丹:1:20:大丸丹:1:1:千年山参:1:100:敌人首级:1:1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
扶桑岛忍王,忍王,,6175,12350,7400,,25000,,,,0,8,22,41,0,7500,,,,700,385000,-30,-20,-70,,10,,TRUE,TRUE,,TRUE,,,,,0,8,TRUE,,,,,,透视,TRUE,,3206,3208,,3207,,,,,5,千年山参:1:100:诸神黄昏:1:100:血魔弓术:1:100:敌人首级:1:1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

在item 里加入
护国勋章,护国勋章,4,保护国家的证明.可以向护国将军换取血魔或英雄装备一件,,,,,,,TRUE,FALSE,192,,,,,,1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
敌人首级,敌人首级,28,500个可以向护国将军换取护国勋章,,,,,,,TRUE,FALSE,287,,,,,,1,,,,100,100,,,,,9223,9221,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,,,,
在npc里加
护国队长,护国队长,0,,护国队长.txt,TRUE,,TRUE,TRUE,,,TRUE,8,24,144,9999,6000,,,,10000,0,0,0,0,,4,,,,,,,,,,,,,,,,
护国将军,护国将军,0,,护国将军.txt,TRUE,,TRUE,TRUE,,,TRUE,8,24,144,9999,6000,,,,10000,0,0,0,0,,4,,,,,,,,,,,,,,,,
基本就设置完了！还有不懂的可以跟帖提出来


在help里加
护国队长


护国将军