盘古插件属性公式+HP+攻魔道属性文件(第1版)

用于战神引擎和盘古插件的属性公式+HP+攻魔道属性文件，由黑墨编写而成，喜欢研究和懂的人可以下载来研究一下。

部分脚本

procedure SetAbil(AbilType, value:Integer);
//SetAbil函数内代码尽量不要修改,直接调用即可;
var H8, L8,fmax : Integer;
begin
	if AbilType <= 4 then
	begin
		fmax:=255;
	end else
	if AbilType <= 11 then
	begin
		fmax:=65535;	
	end else
	if (AbilType <= 16) then begin fmax:=255; end else if (AbilType = 17) then begin fmax:=65535; end else begin fmax:=255; end if value >= fmax then value := fmax - 1;
	H8 := value / 256;
	L8 := value mod 256;
	//下面这行是调试输出语句,正式使用时可屏蔽;
	case AbilType of
		1://倍攻
		begin
		This_Player.AuthByHelped(6212 + 0,L8);
		end;
		2://备用1
		begin
		This_Player.AuthByHelped(6212 + 1,L8);	
		end;
		3://备用2
		begin
		This_Player.AuthByHelped(6212 + 2,L8);
		end;
		4://备用3
		begin
		This_Player.AuthByHelped(6212 + 3,L8);
		end;
		5://MAXHP
		begin
		This_Player.AuthByHelped(6212 + 4,L8);
		This_Player.AuthByHelped(6212 + 5,H8);
		end;
		6://MAXMP
		begin
		This_Player.AuthByHelped(6212 + 6,L8);
		This_Player.AuthByHelped(6212 + 7,H8);
		end;
		7://MAX攻击
		begin
		This_Player.AuthByHelped(6212 + 8,L8);
		This_Player.AuthByHelped(6212 + 20,H8);
		end;
		8://MAX魔法
		begin
		This_Player.AuthByHelped(6212 + 9,L8);
		This_Player.AuthByHelped(6212 + 21,H8);
		end;
		9://MAX道术
		begin
		This_Player.AuthByHelped(6212 + 10,L8);
		This_Player.AuthByHelped(6212 + 22,H8);
		end;
		10://MAX防御
		begin
		This_Player.AuthByHelped(6212 + 11,L8);
		This_Player.AuthByHelped(6212 + 23,H8);
		end;
		11://MAX魔御
		begin
		This_Player.AuthByHelped(6212 + 12,L8);
		This_Player.AuthByHelped(6212 + 13,H8);
		end;
		12://备用4
		begin
		This_Player.AuthByHelped(6212 + 14,L8);
		end;
		13://备用5
		begin
		This_Player.AuthByHelped(6212 + 15,L8);
		end;
		14://刺术上限
		begin
		This_Player.AuthByHelped(6212 + 16,L8);
		This_Player.AuthByHelped(6212 + 17,H8);
		end;
		15://刺术下限
		begin
		This_Player.AuthByHelped(6212 + 18,L8);
		This_Player.AuthByHelped(6212 + 19,H8);
		end;
		16://百分比免伤
		begin
		This_Player.AuthByHelped(1400 + 0,L8);
		end;			
		17://死亡防爆(小退属性消失,需要每次重新设置)
		begin
		This_Player.AuthByHelped(396 + 0,L8);
		This_Player.AuthByHelped(396 + 1,H8);
		end;
		18://杀人爆率(小退属性消失,需要每次重新设置)
		begin
		This_Player.AuthByHelped(1401 + 0,L8);
		end;
	end; 
end;
procedure shuxing2(); //
var j8, K8,zy,fy: Integer;

分享到：

赞(0)