天下第一雕像(外显角色)脚本

admin

这套脚本相对于传统的天下第一职业的脚本多了外显角色名称，还可以领取附加属性。
部分代码展示：

1. procedure _reqname;
   
2. var
   
3. reqnameType:integer;
   
4. reqnameStr:string;
   
5. begin
   
6.   if This_Npc.GetCelebName = This_Player.Name then
   
7.   begin
   
8.     reqnameType := This_Npc.ReqBecomeCeleb(This_Player);
   
9.     case reqnameType of
   
10.       0:                                                               
    
11.       begin
    
12.       reqnameStr:='申请成功，你成功更新了雕像等级！';
    
13.       end;
    
14.       -1:reqnameStr:='改天再来尝试吧!';
    
15.       -2:reqnameStr:='继续修炼，你的等级不够35!';
    
16.       -3:reqnameStr:='你似乎找错申请对象了吧！';
    
17.       -4:reqnameStr:='前一个勇士成功申请还不到10分钟，你过几分钟再来....';
    
18.       -5:reqnameStr:='继续修炼，你只差一点点就可以上榜了!';
    
19.     end;  
    
20.   end else
    
21.   begin
    
22.     reqnameType := This_Npc.ReqBecomeCeleb(This_Player);
    
23.     case reqnameType of
    
24.       0:
    
25.       begin
    
26. 
    
27.       reqnameStr:='申请成功！';
    
28.       end;
    
29.       -1:reqnameStr:='改天再来尝试吧!';
    
30.       -2:reqnameStr:='继续修炼，你的等级不够35!';
    
31.       -3:reqnameStr:='你似乎找错申请对象了吧！';
    
32.       -4:reqnameStr:='前一个勇士成功申请还不到10分钟，你过几分钟再来....';
    
33.       -5:reqnameStr:='继续修炼，你只差一点点就可以上榜了!';
    
34.     end;         
    
35.   end;
    
36.   This_Npc.NpcDialog(This_Player,reqnameStr);
    
37. end;
    

复制代码

游客，如果您要查看本帖隐藏内容请回复