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,23) = 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.
dadalianlian.serv00.net