战神引擎法师宝宝寄存/领取Npc脚本

用于战神引擎的法师宝宝寄存/领取Npc脚本，前几天总有兄弟问帮主有没有这个脚本，之前测试版本经常看到，但没有提取，感觉作用不大，今天帮主在测试荣耀复古里面看到了，脚本支持寄存和领回还有杀死宝宝的功能，脚本为明文版，牵扯到的变量比较多。单文件。可以任何修改里面的内容。

战神引擎法师宝宝寄存/领取Npc脚本

部分脚本

procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
if This_Player.GMLevel > 4  then
begin
    This_Npc.NpcDialog(This_Player,
    '<(GM后台宠物管理功能)/SCOLOR=223>||\ \' +
    +'|{cmd}<开启领取/@kaiqi>   ^<关闭领取/@guanbi>^<进入主界面/@domainn>'
    );
end  else
begin	
	 This_Npc.NpcDialog(This_Player,
    '|<>      <◇/fcolor=70><品/fcolor=69><牌/fcolor=68><好/fcolor=67><服/fcolor=131><◇/fcolor=94><旭/fcolor=149><东/fcolor=149><传/fcolor=149><奇/fcolor=149><◇/fcolor=94><独/fcolor=131><家/fcolor=67><手/fcolor=68><游/fcolor=69><◇/fcolor=70>|\'
    +'|<【特别提示】：/fcolor=242>本次登记将覆盖之前登记数据\ \'  
    +'|<【特别提示】：/fcolor=242>领回宝宝需要花费10元宝\ \' 	
	+'|<【登记提示】：/fcolor=242>你之前登记的宝宝数量：\ \'   
   // +'|<【宠物名字】：/fcolor=242><半兽勇士/fcolor=254> ：     <' + inttostr(This_Player.GetV(886,2)) + '/fcolor=250>  只\ \'
    +'|<【宠物名字】：/fcolor=242>      <虎卫/fcolor=254> ：     <' + inttostr(This_Player.GetV(886,3)) + '/fcolor=250>  只\ \'
    +'|<【宠物名字】：/fcolor=242>  <半兽勇士/fcolor=254> ：     <' + inttostr(This_Player.GetV(886,4)) + '/fcolor=250>  只\ \'
    +'|{cmd}<宝宝登记/@sign>   ^<领回宝宝/@get>^<杀死宝宝/@get123>'
    );
end;
end;
procedure _sign; 
begin
if GetG(886,1) = 1 then
begin
This_NPC.NpcDialog(This_Player,'登记功能已关闭，请等待管理开启！！|' 
 +'| {cmd}<返回上页/@main>  ^<关闭此页/@DoExit>') ; 
end  else 
begin
if This_Player.Job = 1 then 
begin
if This_Player.GetSlaveCount('') < 6 then begin if This_Player.GetSlaveCount('') > 0 then 
begin
//This_Player.SetV(886,2,This_Player.GetSlaveCount('半兽勇士')); 
This_Player.SetV(886,3,This_Player.GetSlaveCount('虎卫')); 
This_Player.SetV(886,4,This_Player.GetSlaveCount('半兽勇士1'));
 This_Npc.NpcDialog(This_Player,
    '|<>      <◇/fcolor=70><品/fcolor=69><牌/fcolor=68><好/fcolor=67><服/fcolor=131><◇/fcolor=94><旭/fcolor=149><东/fcolor=149><传/fcolor=149><奇/fcolor=149><◇/fcolor=94><独/fcolor=131><家/fcolor=67><手/fcolor=68><游/fcolor=69><◇/fcolor=70>|\'
    +'|<【特别提示】：/fcolor=242>本次登记将覆盖上次登记数据\ \'   
	    +'|<【特别提示】：/fcolor=242>领回宝宝需要花费10元宝\ \' 
	+'|<【登记提示】：/fcolor=242>  <本次登记成功/fcolor=250>\ \'   
   // +'|<【宠物名字】：/fcolor=242><半兽勇士/fcolor=254> ：     <' + inttostr(This_Player.GetV(886,2)) + '/fcolor=250>  只\ \'
   +'|<【宠物名字】：/fcolor=242>            <虎卫/fcolor=254> ：     <' + inttostr(This_Player.GetV(886,3)) + '/fcolor=250>  只\ \'
    +'|<【宠物名字】：/fcolor=242>    <半兽勇士/fcolor=254> ：     <' + inttostr(This_Player.GetV(886,4)) + '/fcolor=250>  只\ \'
    +'|{cmd}<返回首页/@main>   ^<关闭此页/@DoExit>'
    );
This_Player.SetV(886,5,1);

分享到：

赞(0)