战神引擎装备 时装双外显NPC脚本代码

夜游神

{**********************************
此脚本需配合盘古插件和明文使用,可独立控制两套外显和时装,
两套外显不分男女600张,时装男女各600张,分别支持五套.
外显一 外显二 时装 分别对应\assets\res\data下 pangu.zip pangu2.zip pangu3.zip 三个素材文件
在其他脚本调用时只需参考此脚本传参即可.
*********************************}  

1. program mir2;
   
2. 
   
3. procedure _pangu(pg:Integer);
   
4. var sort, index, pg1, pg2, pg3, hair : integer;
   
5. begin
   
6.         sort  := pg / 10;
   
7.         index := pg mod 10;
   
8.         This_Player.SetV(66,sort,index);        //保存变更外显到变量
   
9.         pg1  := This_Player.GetV(66,1);                //获取外显一当前当前状态
   
10.         pg2  := This_Player.GetV(66,2);                //获取外显二当前当前状态
    
11.         pg3  := This_Player.GetV(66,3);                //获取时装当前当前状态
    
12.         if pg1 < 0 then pg1 := 0;
    
13.         if pg2 < 0 then pg2 := 0;
    
14.         if pg3 < 0 then pg3 := 0;
    
15.         hair := pg1 + pg2*6 + pg3*36 + 40;         //计算出应设置的hair值
    
16.         This_Player.ChgHair(hair);
    
17. end;
    
18. 
    
19. procedure domain;
    
20. begin
    
21.   This_NPC.NpcDialog(This_Player,
    
22.            +'{cmd}<外显一1/@pangu~11>                ^<外显二1/@pangu~21>                ^<时装1/@pangu~31>|\'  
    
23.            +'{cmd}<外显一2/@pangu~12>                ^<外显二2/@pangu~22>                ^<时装2/@pangu~32>|\'
    
24.            +'{cmd}<外显一3/@pangu~13>                ^<外显二3/@pangu~23>                ^<时装3/@pangu~33>|\'
    
25.            +'{cmd}<外显一4/@pangu~14>                ^<外显二4/@pangu~24>                ^<时装4/@pangu~34>|\'
    
26.            +'{cmd}<外显一5/@pangu~15>                ^<外显二5/@pangu~25>                ^<时装5/@pangu~35>|\'  
    
27.            +'{cmd}<外显一取消/@pangu~10>        ^<外显二取消/@pangu~20>                ^<时装取消/@pangu~30>|\'
    
28.                 );
    
29. end;
    
30. 
    
31. begin  
    
32. domain;
    
33. end.

复制代码

Chinese.Doll

积分任务