千年服务端加入江湖等级的脚本

第1次看脚本 我模仿的某个服做的 他说独家脚本。呵呵   

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 0';
      print (Str);
      exit;
   end;
end;

procedure OnGetResult (aStr : String);
var
   Str, Name : String;
   nValue : Integer;
begin
   if aStr = 'close' then begin
      exit;
   end;
   if aStr = 'zhuangbei' then begin
      Str := 'showwindow .\help\江湖老人1.txt 0';
      print (Str);
      exit;
   end;

   if aStr = 'jianghudengji1' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:50');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:100');
         if Str = 'false' then begin
            Str := 'say 有没有100金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级:1');
         if Str = 'false' then begin
            Str := 'say 没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:50';
            print (Str);
            Str := 'getsenderitem 金元:100';
            print (Str);
            Str := 'getsenderitem 江湖等级:1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(1级):1 @江湖老人 4';

            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到一级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji2' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:100');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:200');
         if Str = 'false' then begin
            Str := 'say 没有200金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(1级):1');
         if Str = 'false' then begin
            Str := 'say 没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:100';
            print (Str);
            Str := 'getsenderitem 金元:100';
            print (Str);
            Str := 'getsenderitem 江湖等级(1级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(2级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到二级!';
            print (Str);
         exit;
        end;

   if aStr = 'jianghudengji3' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:150');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:300');
         if Str = 'false' then begin
            Str := 'say 没有300金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(2级):1');
         if Str = 'false' then begin
            Str := 'say 没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:150';
            print (Str);
            Str := 'getsenderitem 金元:300';
            print (Str);
            Str := 'getsenderitem 江湖等级(2级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(3级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到三级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji4' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:200');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:400');
         if Str = 'false' then begin
            Str := 'say 没有300金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(3级):1');
         if Str = 'false' then begin
            Str := 'say 没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:200';
            print (Str);
            Str := 'getsenderitem 金元:400';
            print (Str);
            Str := 'getsenderitem 江湖等级(3级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(4级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到四级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji5' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:400');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:600');
         if Str = 'false' then begin
            Str := 'say 没有金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(4级):1');

         if Str = 'false' then begin
            Str := 'say 没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:400';
            print (Str);
            Str := 'getsenderitem 金元:600';
            print (Str);
            Str := 'getsenderitem 江湖等级(4级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(5级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到五级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji6' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:600');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:800');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(5级):1');

         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:600';
            print (Str);
            Str := 'getsenderitem 金元:800';
            print (Str);
            Str := 'getsenderitem 江湖等级(5级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(6级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到六级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji7' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:900');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:1000');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(6级):1');

         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:900';
            print (Str);
            Str := 'getsenderitem 金元:1000';
            print (Str);
            Str := 'getsenderitem 江湖等级(6级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(7级):1 @江湖老人 4';

            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到七级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji8' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:1200');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:1200');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(7级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:1200';
            print (Str);
            Str := 'getsenderitem 金元:1200';
            print (Str);
            Str := 'getsenderitem 江湖等级(7级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(8级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到八级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji9' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:1500');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:1500');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(8级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:1500';
            print (Str);
            Str := 'getsenderitem 金元:1500';
            print (Str);
            Str := 'getsenderitem 江湖等级(8级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(9级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到九级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji10' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:1800');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:1800');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(9级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:1800';
            print (Str);
            Str := 'getsenderitem 金元:1800';
            print (Str);
            Str := 'getsenderitem 江湖等级(9级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(10级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到十级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji11' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:2100');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:2100');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(10级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:2100';
            print (Str);
            Str := 'getsenderitem 金元:2100';
            print (Str);
            Str := 'getsenderitem 江湖等级(10级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(11级):1 @江湖老人 4';

            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到十一级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji12' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:2400');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:2400');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(11级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:2400';
            print (Str);
            Str := 'getsenderitem 金元:2400';
            print (Str);
            Str := 'getsenderitem 江湖等级(11级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(12级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到十二级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji13' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:2700');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:2700');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(12级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:2700';
            print (Str);
            Str := 'getsenderitem 金元:2700';
            print (Str);
            Str := 'getsenderitem 江湖等级(12级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(13级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到十三级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji14' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:3200');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:3200');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(13级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:3200';
            print (Str);
            Str := 'getsenderitem 金元:3200';
            print (Str);
            Str := 'getsenderitem 江湖等级(13级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(14级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到十四级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji15' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:3500');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:3500');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(14级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:3500';
            print (Str);
            Str := 'getsenderitem 金元:3500';
            print (Str);
            Str := 'getsenderitem 江湖等级(14级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(15级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到十五级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji16' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:4000');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:4000');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(15级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:4000';
            print (Str);
            Str := 'getsenderitem 金元:4000';
            print (Str);
            Str := 'getsenderitem 江湖等级(15级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(16级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到十六级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji17' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:5000');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:5000');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(16级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:5000';
            print (Str);
            Str := 'getsenderitem 金元:5000';
            print (Str);
            Str := 'getsenderitem 江湖等级(16级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(17级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到十七级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji18' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:6000');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:6000');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(17级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:6000';
            print (Str);
            Str := 'getsenderitem 金元:6000';
            print (Str);
            Str := 'getsenderitem 江湖等级(17级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(18级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到十八级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji19' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:7000');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:7000');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(18级):1');
         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:7000';
            print (Str);
            Str := 'getsenderitem 金元:7000';
            print (Str);
            Str := 'getsenderitem 江湖等级(18级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(19级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到十九级!';
            print (Str);
            exit;
         end;

   if aStr = 'jianghudengji20' then begin
      Str := callfunc ('getsenderitemexistence 江湖经验:8000');
      if Str = 'false' then begin
         Str := 'say 你没有足够的江湖经验';
         print (Str);
         exit;
      end;
         Str := callfunc ('getsenderitemexistence 金元:8000');
         if Str = 'false' then begin
            Str := 'say 你没有足够的金元';
            print (Str);
            exit;
         end;
         Str := callfunc ('getsenderitemexistence 江湖等级(19级):1');

         if Str = 'false' then begin
            Str := 'say 你没有等级牌子';
            print (Str);
            exit;
         end;
            Str := 'getsenderitem 江湖经验:8000';
            print (Str);
            Str := 'getsenderitem 金元:8000';
            print (Str);
            Str := 'getsenderitem 江湖等级(19级):1';
            print (Str);
            Str := 'putsendermagicitem 江湖等级(20级):1 @江湖老人 4';
            print (Str);
            print ('say 江湖等级提升了!');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '恭喜【';
            Str := Str + Name;
            Str := Str + '】江湖等级升级到二十级!';
            print (Str);
            exit;
         end;
      end;
      exit;
   end;
   if aStr = 'zhuangbei' then begin
      print ('showwindow .\help\江湖老人.txt 0');

      exit;
   end;
end;

end.

商业版发布站程序下载：发布站程序下载：

Tags：

作者：佚名