用于战神引擎客户端插件魂骨通用版Npc脚本。脚本可以赋予随机暴击属性。

部分脚本

procedure _jhhungu(id:integer);
var lv,templv:integer; cl:string;
begin
	case id of
	1 :cl:='魂骨碎片';
	2 :cl:='魂骨碎片';
	3 :cl:='魂骨碎片';
	4 :cl:='魂骨碎片';
	5 :cl:='魂骨碎片';
	6 :cl:='魂骨碎片';
	7 :cl:='魂骨碎片';
	8 :cl:='魂骨碎片';
	9 :cl:='魂骨碎片';
	10 :cl:='魂骨碎片';
	end;
	lv:=This_Player.GetS(444,id);
if lv >=6 then
 begin
 This_Player.PlayerNotice('激活失败，已经满级!',2);
 exit; 
end
if (This_Player.GetBagItemCount(cl) <= 0) or (This_Player.YBNum  < 50) then 
	begin
		This_Player.PlayerNotice('激活失败，需要 <'+cl+'> 5个，需要50易币!',2);
		exit;
	end
	This_Player.Take(cl,5);
	//This_Player.ScriptRequestSubYBNum(1000);
	 This_Player.ScriptRequestSubYBNum(50);
	templv:=lv+1;
	if templv > lv then
	begin
		This_Player.SetS(444,id,templv);
		HunGuMenu;
          GetAbil;
		//GetLVSTR(templv);
	end
	else	This_Player.PlayerNotice('低于原有魂骨，系统自动忽略！',0);
end;
procedure _hungu;
begin
	HunGuMenu;
end;