玩家通过元宝购买赞助称号Npc脚本

用于战神引擎的玩家通过元宝购买赞助称号Npc脚本，脚本默认支持四种称号，当然明文版的脚本，可以任意添加自己想要的数量，只要GM技术到家，帮助把脚本文件，牵扯的套装文件还有素材都一并提前出来了，喜欢的自行研究。

称号素材帮主提取的时候，路径是在：rs\pic\bzmir\fenghao这个文件夹里面。

玩家通过元宝购买赞助称号Npc脚本

部分脚本

function GetSWNum(Zlv : integer) : integer;      //声望
begin
    case Zlv of
        1 : result := 100;
        2 : result := 200;
        3 : result := 300;
	    4 : result := 400;
       // 5 : result := 700;
       // 6 : result := 800;
       // 7 : result := 1000;			
    end;
end; 
function GetJBNum(Zlv : integer) : integer;      //金币
begin
    case Zlv of
        1 : result := 500000;
        2 : result := 1000000;
        3 : result := 1500000;
	    4 : result := 2000000;
      //  5 : result := 1500000;
      //  6 : result := 2000000;
      //  7 : result := 3000000;			
    end;
end; 
function GetBLSNum(Zlv : integer) : integer;      //金币
begin
    case Zlv of
        1 : result := 5;
        2 : result := 10;
        3 : result := 15;
	    4 : result := 20;
      //  5 : result := 1500000;
      //  6 : result := 2000000;
      //  7 : result := 3000000;			
    end;
end; 
procedure _zanzhus1(str:string);                      //1 - 5 赞助   
var nums:integer;
begin
nums := StrToIntDef(str,0);                          //转类型
if This_Player.GetV(14,4) = (nums - 1) then        //官职变量
begin
if This_Player.YBNum >= GetYBNum(nums) then      //查询元宝数量
begin
This_Player.SetV(163,2,GetDMSNum(nums));  //攻击
This_Player.SetV(164,2,GetDMSNum(nums));  //魔法
This_Player.SetV(165,2,GetDMSNum(nums));  //道士
This_Player.SetV(166,2,GetDMSNum(nums));  //防御
This_Player.SetV(167,2,GetDMSNum(nums));  //魔御
This_Player.SetV(169,2,GetBLSNum(nums));  //打怪暴率  下限
This_Player.ScriptRequestSubYBNum(GetYBNum(nums)); 
This_Player.Give('声望',GetSWNum(nums));    //奖励声望
This_Player.AddGold(GetJBNum(nums));        //奖励金币
This_Player.SetV(14,4,nums);	            //官职变量
This_Player.SetV(69,9, 11 + nums)           //给予称号
GET_SX;                                     //加载属性
fenghao;                                    //封号
ServerSay('玩家【' + This_Player.Name + '】在土城开启了'+GetZUNum(nums)+'赞助称号！！', 2);
_domain;
end else
This_NPC.NpcDialog(This_Player,
+'|<晋升失败！你元宝不足'+inttostr(GetYBNum(nums))+'个！/c=249>\'
+'|{cmd}<返回/@domain>	^<关闭/@Exit>');	
end else
This_NPC.NpcDialog(This_Player,
+'|<晋升失败！请先完成'+GetZUNum(nums - 1)+'赞助在来晋升！或已经是'+GetZUNum(nums - 1)+'赞助了/c=249>\'
+'|{cmd}<返回/@domain>	^<关闭/@Exit>');
end;
begin
if This_Player.GetV(14,4) < 0 then This_Player.SetV(14,4,0);
	_domain;
end.

分享到：

赞(0)