战神引擎装备 时装双外显NPC脚本代码
{**********************************此脚本需配合盘古插件和明文使用,可独立控制两套外显和时装,
两套外显不分男女600张,时装男女各600张,分别支持五套.
外显一 外显二 时装 分别对应\assets\res\data下 pangu.zip pangu2.zip pangu3.zip 三个素材文件
在其他脚本调用时只需参考此脚本传参即可.
*********************************}
program mir2;
procedure _pangu(pg:Integer);
var sort, index, pg1, pg2, pg3, hair : integer;
begin
sort:= pg / 10;
index := pg mod 10;
This_Player.SetV(66,sort,index); //保存变更外显到变量
pg1:= This_Player.GetV(66,1); //获取外显一当前当前状态
pg2:= This_Player.GetV(66,2); //获取外显二当前当前状态
pg3:= This_Player.GetV(66,3); //获取时装当前当前状态
if pg1 < 0 then pg1 := 0;
if pg2 < 0 then pg2 := 0;
if pg3 < 0 then pg3 := 0;
hair := pg1 + pg2*6 + pg3*36 + 40; //计算出应设置的hair值
This_Player.ChgHair(hair);
end;
procedure domain;
begin
This_NPC.NpcDialog(This_Player,
+'{cmd}<外显一1/@pangu~11> ^<外显二1/@pangu~21> ^<时装1/@pangu~31>|\'
+'{cmd}<外显一2/@pangu~12> ^<外显二2/@pangu~22> ^<时装2/@pangu~32>|\'
+'{cmd}<外显一3/@pangu~13> ^<外显二3/@pangu~23> ^<时装3/@pangu~33>|\'
+'{cmd}<外显一4/@pangu~14> ^<外显二4/@pangu~24> ^<时装4/@pangu~34>|\'
+'{cmd}<外显一5/@pangu~15> ^<外显二5/@pangu~25> ^<时装5/@pangu~35>|\'
+'{cmd}<外显一取消/@pangu~10> ^<外显二取消/@pangu~20> ^<时装取消/@pangu~30>|\'
);
end;
begin
domain;
end. 积分任务
页:
[1]