无错的新人接待员代码 - 三千论坛

Init下--Npc处添加

新人接待员,新人接待员,0,,新人接待员.txt,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,

Help处添加新人接待员.txt

<trade>

<title>新人接待员</title>

<image name=z81 value=235>

<text>

把新人证明交给我.我给你发装备

</text>

<command send='close'>关闭</command>

<command send="changeweapon">给新人证明</command>

</trade>

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 = 'changeweapon' then begin

   Str := callfunc ('getsenderitemexistence 新人证明:1 1');

   if Str = 'false' then begin

      Str := 'say 想欺瞒老子～！！哪里有新手证？';

      print (Str);

      exit;

   end;

   if Str = 'true' then begin

      print ('getsenderitem2 新人证明:1');

      print ('putsendermagicitem 金元:100 @新人接待员 4');

      print ('putsendermagicitem 传送戒指:1 @新人接待员 4');

      print ('putsendermagicitem 狐狸手套:1 @新人接待员 4');

      print ('putsendermagicitem 龙光剑:1 @新人接待员 4');

      print ('putsendermagicitem 月光刀:1 @新人接待员 4');

      print ('putsendermagicitem 狼牙戟:1 @新人接待员 4');

      print ('putsendermagicitem 炎帝火灵斧:1 @新人接待员 4');

      print ('putsendermagicitem 男子黑龙战甲:1 @新人接待员 4');

      print ('putsendermagicitem 女子黑龙战甲:1 @新人接待员 4');

      print ('putsendermagicitem 男子龙云帽:1 @新人接待员 4');

      print ('putsendermagicitem 女子龙云帽:1 @新人接待员 4');

      print ('putsendermagicitem 驱魔烈火弓:1 @新人接待员 4');

      print ('putsendermagicitem 四季甲胄:1 @新人接待员 4');

      print ('say 小意思不用感谢HOHO!!_小伙子!_祝你愉快!!');

      exit;

   end;

   exit;

end;

end;

end.

点击浏览该文件

Script下的 Script文件添加

133,新人接待员.txt,,       133是我这里的，你要按照自己的修改！