新人接待和武功赠送脚本

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 OnAway (aStr : String);

var

   Str : String;

   Race : Integer;

begin

   Str := callfunc ('getsenderrace');

   Race := StrToInt (Str);

   if Race = 1 then begin

      print ('say 赠送全套1、2层武功秘籍！');

   exit;

   end;

end;

procedure OnApproach (aStr : String);

var

   Str : String;

   Race : Integer;

begin

   Str := callfunc ('getsenderrace');

   Race := StrToInt (Str);

   if Race = 1 then begin

      print ('say 欢迎来到仙剑千年！');

   exit;

   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\d武学夫人.txt 0';

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

      Str := 'showwindow .\help\d武学夫人xc.txt 0';

   print (Str);

      end;

if aStr = 'w1' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

end;

if aStr = 'w2' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    print ('putsendermagicitem 雷剑式:1 @武学夫人 4');

    print ('putsendermagicitem 太极剑结:1 @武学夫人 4');

    print ('putsendermagicitem 壁射剑法:1 @武学夫人 4');

    print ('putsendermagicitem 圣灵21剑:1 @武学夫人 4');

    print ('putsendermagicitem 北马剑法:1 @武学夫人 4');

    print ('putsendermagicitem 闪光剑破解:1 @武学夫人 4');

    print (Str);

    exit;

end;

if aStr = 'w3' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

end;

if aStr = 'w4' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

end;

if aStr = 'w5' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

end;

if aStr = 'sc' then begin

      Str := 'showwindow .\help\d武学夫人sc.txt 0';

   print (Str);

      end;

if aStr = 'w11' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

end;

if aStr = 'w12' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

end;

if aStr = 'w13' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

end;

if aStr = 'w14' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

end;

if aStr = 'w15' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

    end;

if aStr = 'w14' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

end;

if aStr = 'w15' then begin

   Str := callfunc ('checkenoughspace 6');

      if Str = 'false' then begin

         print ('say 需要6个物品栏空格!垃圾丢了!');

          exit;

      end;

    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 (Str);

    exit;

    end;

if aStr = 'jiedai1' 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 5');

         if Str = 'false' then begin

            print ('say 需要5个物品栏空格!垃圾丢了!');

            exit;

         end;

         Str := callfunc ('getsendersex');

         if Str = '1' then begin

            print ('getsenderitem 新手书札:1');

            print ('putsendermagicitem 生药:1000 @新手接待员 4');

            print ('putsendermagicitem 汤药:1000 @新手接待员 4');

            print ('putsendermagicitem 丸药:1000 @新手接待员 4');

            print ('putsendermagicitem 丹药:1000 @新手接待员 4');

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

            print ('say 侠客!初出江湖多加小心!');

            Name := callfunc ('getsendername');

            Str := 'sendsendertopmsg ' + '欢迎侠客【';

            Str := Str + Name;

            Str := Str + '】来到千年!';

            print (Str);

            exit;

         end;

         if Str = '2' then begin

    print ('getsenderitem 新手书札:1');

            print ('putsendermagicitem 生药:1000 @新手接待员 4');

            print ('putsendermagicitem 汤药:1000 @新手接待员 4');

            print ('putsendermagicitem 丸药:1000 @新手接待员 4');

            print ('putsendermagicitem 丹药:1000 @新手接待员 4');

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

            print ('say 侠女!初出江湖多加小心!');

            Name := callfunc ('getsendername');

            Str := 'sendsendertopmsg ' + '欢迎侠女【';

            Str := Str + Name;

            Str := Str + '】来到千年!';

            print (Str);

            exit;

            exit;

         end;

         exit;

      end;

   end;

end;