斗笠升级属性+切割Npc脚本带自定义素材

用于战神引擎斗笠升级属性+切割的NPC脚本，脚本使用了自定义，帮主把脚本和素材文件全部提取出来了，素材默认来自3.0的版本，升级的过程中需要元宝和斗笠碎片，脚本是明文版的，这2个升级条件可以任意修改，切割属性必须要额外的插件来支持，没有插件升级了也无法获得真是的切割属性，其他的方面喜欢研究脚本的兄弟自行添加测试。

部分脚本

procedure _dn;
begin
getdlbl;
 This_NPC.NpcDialog(This_Player,
'Bg:doul:1|'+
'Exit:sxsl:0:0:770:30|'+	
'1:RBtn:doul:2:250:580:@js~'+inttostr(xx)+':18:70|'+ 
'1:Spr:doul-'+inttostr(xx)+':0:17:255:400:0.1:1.3|'+
'1:Img:doul:3:630:200:'+getdoulwz(xx)+'@245|'+
'1:Img:doul:3:630:450:元宝'+inttostr(getdoulyb(xx))+'@251\'+getdoulsuipian(xx)+'@251\'+getdouljs(xx)+'@245|'+
'|{cmd}</@main></@js~0></@js~1></@js~2></@js~3></@js~4></@js~5></@js~6></@js~7></@js~8>'  	
    );
end;
procedure _js(id:integer);  
begin
if This_Player.GetV(114,50) >= 9 then
begin
OKKK('失败','斗笠已经全部激活');
Exit;
end;
if id = 0 then
begin
 if (This_Player.YBNum >= getdoulyb(id)) and (This_Player.GetBagItemCount('斗笠碎片') >= getdoulsuis(id))then
begin
 This_Player.ScriptRequestSubYBNum(getdoulyb(id));
 This_Player.Take('斗笠碎片',getdoulsuis(id));  
 This_Player.Give(getdouljs1(id), 1);
 This_Player.SetV(114,50,id+1);
 _dn;
 NOTICE('恭喜你','成功打造'+getdouljs1(id)+'');
end else
begin
OKKK('失败','元宝不足或材料不足');
end;
end else
begin
if This_Player.GetBagItemCount(getdouljs(id)) >= 1 then
begin
if (This_Player.YBNum >= getdoulyb(id)) and (This_Player.GetBagItemCount('斗笠碎片') >= getdoulsuis(id)) then
begin
 This_Player.Take(getdouljs(id),1);
 This_Player.ScriptRequestSubYBNum(getdoulyb(id)); 
 This_Player.Take('斗笠碎片',getdoulsuis(id));
 This_Player.Give(getdouljs1(id), 1);
 This_Player.SetV(114,50,id+1);
 _dn;
 NOTICE('恭喜你','成功打造'+getdouljs1(id)+'');
end else
begin
OKKK('失败','元宝不足或材料不足');
end;
end else
begin
OKKK('失败','请把'+getdouljs(id)+'放在背包');
end;
end;
end;
begin
	domain;
end.

分享到：

赞(0)