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

整理千年私服新人help里加入奖品兑换员

减小字体

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

我是奖品兑换员负责为新人换取装备

关闭
合成天桃汁儿
兑换装备

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 = 'hecheng' then begin
      Str := callfunc ('getsenderitemexistence 金元:10');
      if Str = 'false' then begin
         Str := 'say 拿10金元来?';
         print (Str);
         exit;
      end;
      if Str = 'true' then begin
         Str := callfunc ('getsenderitemexistence 天桃:30');
         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 金元:10';
            print (Str);
            Str := 'getsenderitem 天桃:30';
            print (Str);
            Str := 'putsendermagicitem 天桃汁儿:1 @天桃老人 4';
            print (Str);
            Str := 'say 去换你的东西吧';
            print (Str);

            exit;
         end;
   if aStr = 'duihuan' 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 (30);
      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;
      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.

说明：
为新人村的一个小任务

打到天桃后去找兑换员在拿10个金子和30个天桃合成天桃汁儿

在进行兑换兑换为百分之百给予一个装备

随即兑换新手的基本装备

具体兑换物品请在脚本中设置
商业版发布站程序下载：发布站程序下载：