天下第一雕像(外显角色)脚本
这套脚本相对于传统的天下第一职业的脚本多了外显角色名称，还可以领取附加属性。
部分代码展示：
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:='申请成功，你成功更新了雕像等级！';
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;
**** Hidden Message *****
谢谢楼主分享 天下第一雕像
页:
[1]