四格附魔Npc脚本(支持勋章、斗笠、玉佩、盾牌)

用于战神引擎的四格附魔Npc脚本，支持勋章、斗笠、玉佩、盾牌这四件装备额外附加属性，脚本需要配合盘古插件上的设置才行，这个在盘古插件上面有对应的功能。脚本为单文件，添加起来非常的简单。

部分脚本

procedure _xilian(id:string);
var str:string;
begin
	if id='1' then str:='攻击';
	if id='2' then str:='魔法';
	if id='3' then str:='道术';
	
	This_Npc.NpcDialog(This_Player,
	'你选择了【<'+str+'/fcolor=251>】属性(<1~20点/fcolor=242>)进行附魔！'
	+'|<其他极品属性可以保留!/fcolor=254>'
	+'|每次附魔需要 <'+inttostr(BGOLD)+'元宝/fcolor=249> + <'+inttostr(LGOLD)+'充值点/fcolor=249>'
	+'|{cmd}<开始附魔/@kaishi~'+id+'>^<返回首页/@main>'
	);
end;
procedure _kaishi(id:string);
begin
    This_Npc.Click_CommitItem(This_Player, strtoint(id), '请放入你要附魔的装备：');
end;
procedure CommitItem(AType:word);
var
zb,lx,sx,jb :string;
i,t,sxnum:integer;
begin
		zb :=  getitemlist(This_Item.ItemName);
		if zb = '' then 
		begin 
		This_NPC.NpcDialog(This_Player,'此装备不可附魔或类型错误！|{cmd}<返回/@main>');
		This_Player.NotifyClientCommitItem(0, '此装备不可附魔或类型错误！');
		end else 
		begin 
			lx := getf(getitemlist(This_Item.ItemName));
			sx := getb(getb(getitemlist(This_Item.ItemName)));
			sxnum := StrtoIntDef(sx,0);
			if (This_Player.YBNum >= BGOLD) and (This_Player.MyLFNum >= LGOLD) then
			begin 
				This_Player.ScriptRequestSubYBNum(BGOLD); //扣元宝
				This_Player.DecLF(0,LGOLD,false); //扣灵符
				zbxx2(AType,sxnum); //调用增加属性  调用zbxx不清理其他极品 调用zbxx2则清理其他属性（攻魔道）
				This_Player.NotifyClientCommitItem(0, '附魔完成：请查看' + This_Item.ItemName +'附魔后属性！');
				This_Npc.NotifyClientUPdBagItem(This_Player, This_Item); 				
			end else 
			begin
				This_NPC.NpcDialog(This_Player,'条件不足!,附魔需要<'+inttostr(BGOLD)+'元宝>和<'+inttostr(LGOLD)+'充值点>');
				This_Player.NotifyClientCommitItem(0, '材料不足！无法附魔！');
			end;
		end;
end;
begin
    _domain;
end.

分享到：

赞(0)