三职业天下第一申请脚本(支持战神手游版本)

天下第一的脚本在三职业复古、微变版本里面很常见，很多版本会修改获得天下第一的属性，让玩家争先恐后去当第一，今天这个是战神引擎手游里面的，经过帮主亲自测试，没有任何问题。

脚本如下：

{

/*******************************************************************************

}

program Mir2;

procedure _DoExit;

begin

  This_Npc.CloseDialog(This_Player);

end;

procedure _reqname;

var 

reqnameType:integer;

reqnameStr:string;

begin

  if This_Npc.GetCelebName = This_Player.Name then 

  begin

    reqnameType := This_Npc.ReqBecomeCeleb(This_Player);

    case reqnameType of

      0:

      begin

      reqnameStr:='申请成功，你成功更新了雕像等级！';

        ServerSay('玩家<' + This_Player.Name + '>申请了天下第一男法师！', 222);

      end;

      -1:reqnameStr:='改天再来尝试吧!'; 

      -2:reqnameStr:='继续修炼，你的等级不够35!'; 

      -3:reqnameStr:='你似乎找错申请对象了吧！';

      -4:reqnameStr:='前一个勇士成功申请还不到10分钟，你过几分钟再来....';

      -5:reqnameStr:='继续修炼，你只差一点点就可以上榜了!'; 

    end;  

  end else

  begin

    reqnameType := This_Npc.ReqBecomeCeleb(This_Player); 

    case reqnameType of

      0:

      begin

      reqnameStr:='申请成功！';

      end;

      -1:reqnameStr:='改天再来尝试吧!'; 

      -2:reqnameStr:='继续修炼，你的等级不够35!'; 

      -3:reqnameStr:='你似乎找错申请对象了吧！';

      -4:reqnameStr:='前一个勇士成功申请还不到10分钟，你过几分钟再来....';

      -5:reqnameStr:='继续修炼，你只差一点点就可以上榜了!'; 

    end;          

  end; 

  This_Npc.NpcDialog(This_Player,reqnameStr); 

end;

procedure OnInitialize;

begin

  This_Npc.AddNpcProp(8);

  This_Npc.AddNpcProp(13);

  This_Npc.AddNpcProp(2);

end;

begin

  This_Npc.NpcDialog(This_Player,

  '想为自己树立一尊雕像，从此天下扬名？机会来了！\'

  +'如果你对自己的等级和经验值有充分的自信，\'

  +'那就在这里提交申请吧。\'

  +'只要你的等级和经验值比本雕像当前显示的这位英雄高，\'

  +'本雕像就将以你为名！\' 

  +'注意：申请的时候可别搞错职业和性别哦。\ \'

  +'|{cmd}<申请 reqname="">                       ^<退出 doexit="">'

  );

end.