元宝领取Npc脚本带今日充值+累积充值+客服微信+赞助领取

用于战神引擎的元宝领取NPC脚本文件，单文件，但充值金额需要读取RunQuest.pas里面对应的变量名称，否则无法生效，脚本的功能比较丰富，自带了今日充值、玩家累积充值、客户微信和对应的赞助金额领取物品，脚本是明文版，可以任意修改里面的内容。

部分脚本

function xColor:String;
var temp_str : string; i : integer;
begin	
	for i:=1 to 3 do
	begin
		temp_str := temp_str + '<☆/fcolor='+inttostr(random(255)+1)+'>';			
	end
	temp_str := temp_str+ addSpace('', 2) + '<热血巅峰. 精心打造，值得体验/fcolor='+inttostr(random(14)+242)+'>';	
	Result := temp_str;		
end;
Begin 
  today := GetDateNum(GetNow);// 获取当前日期        //
   if This_Player.GetV(99,98) <> today then     // 初始化 
   begin
    This_Player.SetV(99,98,today);     // 
    This_Player.SetV(99,99,0);
          // 每日 初始化 将  充值的 数变为 0 次初始化  不会 初始总 充值数 
    end;
    mei:= This_Player.getV(99,99);
	 if  This_Player.GetV(88,88)< 1
    then  
   begin 
   This_Player.setV(88,88,0)
   sum := This_Player.getV(88,88);
   end else
   sum := This_Player.getV(88,88);
    //       This_Player.setV(88,88,sum + 100); 
	if sum < 100  then 
	begin
     	GameTime := (GetDateNum(GetNow) - GetDateNum(GetOpenGameTime)) + 1
    This_Npc.NpcDialog(This_Player,
		xColor+	
    '|<【客服微信：CQGM1987 】/c=251>\ '+
	'|<【您当前总充值】:/c=103><'+inttostr(sum)+'/c=red>元\' + 
	'|<【今日充值金额】:/c=103><'+inttostr(mei)+'/c=red>元\' + //获取 每日 充值 数量  显示    inttostr(mei)  
	'|<【元宝充值比例】:/c=103><1比50/c=253> \ '+
	'|充值请点击<菜单/c=red>,在弹出的按钮中点击<充值/c=254>\ '+
	'|{cmd}<累计 100赞助/@libao1>  {cmd}<累计299赞助/@libao2> \ \ '+
	'|{cmd}<累计500赞助/@libao3>  {cmd}<累计999赞助/@libao4> \ \ '+
    '|{cmd}<领取充值元宝/@GetYB>\ '  
	);
	end   else 
		begin
		GameTime := (GetDateNum(GetNow) - GetDateNum(GetOpenGameTime)) + 1
    This_Npc.NpcDialog(This_Player,
		xColor+	
    '|<【客服微信：1078080188 】/c=251>\ '+
	'|<【您当前总充值】:/c=103><'+inttostr(sum)+'/c=red>元\' + 
	'|<【今日充值金额】:/c=103><'+inttostr(mei)+'/c=red>元\' + //获取 每日 充值 数量  显示    inttostr(mei)  
	'|<【元宝充值比例】:/c=103><1比50/c=253> \ '+
	'|充值请点击<菜单/c=red>,在弹出的按钮中点击<充值/c=254>\ '+
	'|{cmd}<累计 100赞助/@libao1>  {cmd}<累计299赞助/@libao2> \ \ '+
	'|{cmd}<累计500赞助/@libao3>  {cmd}<累计999赞助/@libao4> \ \ '+
    '|{cmd}<领取充值元宝/@GetYB>\ '  
	);
end 
end.

分享到：

赞(0)