战神引擎手游沙城捐献脚本(用充值点)

帮主在之前测试了无数个战神引擎手游版本，看到的沙城捐献脚本都非常的普通，都是玩家使用元宝捐献，得到一些属性，跟沙巴克没啥关系，但今天看到的这个，真心不错，终于跟沙巴克扯上关系了，捐献的条件也换成了充值点，玩家没有充值是无法捐献的，当然，脚本是明文版的，你们要换成元宝金币等其他的条件也可以。脚本牵扯到了ActiveValidateCom.pas文件，需要单独植入。

战神引擎手游沙城捐献脚本(用充值点)

部分脚本

program Mir2;
{$I ActiveValidateCom.pas}
var
today , juanxian: integer; 
d2,d3,ActiveParam : integer;
s1 , td : double;
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
function UseYB(nType, nNum: Integer): Boolean;
begin
  Result := True;
end;
function UseLF(nType, nNum: Integer): Boolean;
begin
  Result := True;
end; 
Procedure _GetYB;
var
today , num: integer; 
d2,d3 : integer;
s1 , td : double;
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);
   end;
	s1 := GetNow;
	d2 := This_Player.GetS(23,1);
    td := ConvertDBToDateTime(d2);
	d3 := minusDataTime(s1,td);
	if (d3 >= 300) or (This_Player.GetS(23,2) < 3) then
	begin
		This_Player.setV(23,23,1);
		This_Player.QueryAwardCode(This_Player.Name);
		This_Npc.CloseDialog(This_Player);
	end else
	   This_Npc.NpcDialog(This_Player,
	   '你操作太快，连续领取3次没有成功，将锁定5分钟！请' + inttostr(300 - d3) + '秒后再次尝试！'
	   );
end;
Procedure _lingqu;
begin
	if This_Player.GetV(23,25) = 1 then
	begin
		This_Player.AddPlayerAbil(0,50, 65535); 
		This_Player.AddPlayerAbil(1,50, 65535); 
		This_Player.AddPlayerAbil(2,50, 65535); 
	end else
	   This_Npc.NpcDialog(This_Player,
	   '走开，你没有捐献！'
	   );
end;
Procedure _1;
begin
SetG(23,24,0);
end;
procedure domain;
begin
juanxian := GetG(23,24);
if juanxian < 0 then 
begin
juanxian := 0; 
SetG(23,24,juanxian);
end;
    This_NPC.NpcDialog(This_Player,
   '|<捐献说明:/c=249><沙巴克攻城捐献领取超级属性/c=250>\'+   
   // '|<奖励分配:/c=249><胜方40%RMB.败方30%RMB.30%运营/c=253>\'+   
   '|<捐献属性:/c=249><魔攻道50-50/c=254>\'+
   '|<捐献方式:/c=249><单次且充值金额(正好50元)/c=254>\'+   
   '|<注意事项:/c=249><切勿领取成充值元宝/c=254>\'+
   '|<注意事项:/c=249><捐献属性到时间可免费重新领取/c=250>\'+
   '|<本区所有捐献:/c=249><[' + inttostr(juanxian) + ']/c=250>元充值\'+
   '|<沙城归属可得:/c=249><[' + inttostr(juanxian/2) + ']/c=253>元充值\'+
  +'|{cmd}<捐献50元充值/@GetYB>		<领取捐献属性/@lingqu>	\'
);
end;
begin
  domain;    
end.

分享到：

赞(1)