战神自定义购买宝宝Npc脚本+素材

用于战神引擎的自定义购买宝宝Npc脚本+素材，脚本默认使用金币，购买的宝宝类型可以通过脚本自行修改。

战神自定义购买宝宝Npc脚本+素材

部分脚本

if This_Player.GetSlaveCount('') = 0 then 
begin
 This_Npc.NpcDialog(This_Player,
	   '你并没有携带宠物！'
	   );
end else
begin
This_Player.SetV(886,2,This_Player.GetSlaveCount('巨型多角虫1')); 
This_Player.SetV(886,3,This_Player.GetSlaveCount('虎卫')); 
This_Player.SetV(886,4,This_Player.GetSlaveCount('半兽勇士1'));
This_Player.SetV(886,7,This_Player.GetSlaveCount('花吻蜘蛛'));
x := This_Player.GetV(886,2); 
y := This_Player.GetV(886,3); 
z := This_Player.GetV(886,4);
v := This_Player.GetV(886,7);
if x+y+z+v > 5 then 
begin
 This_Npc.NpcDialog(This_Player,
	   '每人最多只能登记5只宠物！'
	   );
end else	 
This_Player.SetV(886,5,1);  
 This_Npc.NpcDialog(This_Player,
    '|只有以下<4种>宝宝才能进行登记：\ \'
   +'|你目前携带的宝宝数量：\ \'
   +'|巨型多角虫：<' + inttostr(x) + '>\ \'
   +'|虎卫：      <' + inttostr(y) + '>\ \'
   +'|半兽勇士：  <' + inttostr(z) + '>\ \'
   +'|花吻蜘蛛：  <' + inttostr(v) + '>\ \'
   +'||<登记成功！/fcolor=250>\ \|'
    );
end;
end;
end;
{
黑墨声明:近期发现有人诋毁我 
本身郑重声明从未坑过任何一 
个人，请你拿出证据说话!如果 
谁再诋毁我，诅咒你S全家!一辈子 
吃不上4个菜~不怕诅咒的继续 .
黑墨唯一QQ1797962565
版本制作 定制UI 脚本修复
}
procedure _get;
begin            
x := This_Player.GetV(886,2); 
y := This_Player.GetV(886,3); 
z := This_Player.GetV(886,4);
v := This_Player.GetV(886,7);
if This_Player.Job <> 1 then 
begin
 This_Npc.NpcDialog(This_Player,
'只有法师才能在我这里领回宠物！'
);
end  else 
begin	   
if This_Player.GetV(886,5) <> 1 then
begin
 This_Npc.NpcDialog(This_Player,
'你并没有进行登记！'
);
end  else
begin	   
if This_Player.GetV(886,1) = 2 then
begin
 This_Npc.NpcDialog(This_Player,
'每次上线只能领取两次宝宝！'
);
end  else 
begin	   
if This_Player.GetSlaveCount('') <> 0 then
begin
 This_Npc.NpcDialog(This_Player,
'你的宠物并没有走失！'
);
end  else
begin
if This_Player.YBNum < 0 then
begin
 This_Npc.NpcDialog(This_Player,
'你必须给我0元宝看养费才能领回你的宝宝！'
); 
end  else
begin
//This_Player.ScriptRequestSubYBNum(100);
This_Player.MakeSlaveEx('巨型多角虫1', x ,7);
This_Player.MakeSlaveEx('虎卫', y ,7);
This_Player.MakeSlaveEx('半兽勇士1', z ,7);
This_Player.MakeSlaveEx('花吻蜘蛛', v ,7);
This_Player.SetV(886,1,1); 
This_Npc.NpcDialog(This_Player,
'你已领回你心爱的宠物！'
);
end;
end;
end;
end;
end;
end;
///////////////////////////////////
begin
a := This_Player.GetV(886,1); 
x := This_Player.GetV(886,2); 
y := This_Player.GetV(886,3); 
z := This_Player.GetV(886,4); 
v := This_Player.GetV(886,7); 
if a < 0 then This_Player.SetV(886,1,0); 
if x < 0 then This_Player.SetV(886,2,0); 
if y < 0 then This_Player.SetV(886,3,0); 
if z < 0 then This_Player.SetV(886,4,0); 
if v < 0 then This_Player.SetV(886,7,0); 
domain;
end.

分享到：

赞(0)