PROGRAM Mir2;
procedure domain;
begin
This_Npc.NpcDialog(This_Player,
+'|<领取提示：/c=218><充值单笔达到以下金额即可领取/c=253>\'
+'|─────────────────────\'
+'|<福利青铜：/@099> <充值金额需要/c=254><9/c=249><元即可领取/c=254>\'
+'|<白银赞助：/@199> <充值金额需要/c=254><199/c=249><元即可领取/c=254>\'
+'|<黄金赞助：/@299> <充值金额需要/c=254><299/c=249><元即可领取/c=254>\'
+'|<钻石赞助：/@399> <充值金额需要/c=254><399/c=249><元即可领取/c=254>\'
+'|<王者赞助：/@499> <充值金额需要/c=254><499/c=249><元即可领取/c=254>\'
+'|<至尊赞助：/@599> <充值金额需要/c=254><599/c=249><元即可领取/c=254>\'
+'|─────────────────────\'
+'|<当前累计充值：/c=250><'+inttostr(This_Player.GetV(88,88))+'/c=249><元/c=250> <今日充值：/c=250><'+inttostr(This_Player.GetV(88,88))+'/c=249><元/c=250> \'
);
end;
procedure _099;
begin
if This_Player.GetV(88,88) >= 9 then
begin
This_Npc.NpcDialog(This_Player,
+'|<青铜赞助奖励：/c=218><需要单笔充值9元/c=230>\|'
+'|<青铜斗笠+青铜勋章+青铜玉佩+盛世凭证X3+转生碎片X3+300声望/c=70>\'
+'|{cmd}<领取奖励/@lq99>\'
);
end else
This_Npc.NpcDialog(This_Player,
+'|<青铜赞助奖励：/c=218><需要单笔充值9元/c=230>\|'
+'|<青铜斗笠+青铜勋章+青铜玉佩+盛世凭证X3+转生碎片X3+300声望/c=70>\'
+'|{cmd}<领取奖励/@aote>\'
);
end;
procedure _lq99;
begin
if This_Player.GetV(31,12) <> 12 then
begin
if This_Player.FreeBagNum >= 8 then
begin
This_Player.Give('青铜勋章', 1);
This_Player.Give('青铜玉佩', 1);
This_Player.Give('青铜斗笠', 1);
This_Player.Give('盛世凭证', 3);
This_Player.Give('转生碎片', 3);
This_Player.MyShengwan := This_Player.MyShengwan + 300;
This_Player.SetV(31,12,12);
ServerSay('玩家<' + This_Player.Name + '>领取了青铜赞助奖励！', 2);
end else
This_NPC.NpcDialog(This_Player,'你背包不够8个空格');
end else
This_NPC.NpcDialog(This_Player,'你已经领取过了！')
end;
procedure _199;
begin
if This_Player.GetV(88,88) >= 199 then
begin
This_Npc.NpcDialog(This_Player,
+'|<白银赞助奖励：/c=218><需要单笔充值199元/c=230>\|'
+'|<白银斗笠+白银勋章+白银玉佩+盛世凭证X5+转生碎片X5+400声望/c=70>\'
+'|{cmd}<领取奖励/@lq199>\'
);
end else
This_Npc.NpcDialog(This_Player,
+'|<白银赞助奖励：/c=218><需要单笔充值199元/c=230>\|'
+'|<白银斗笠+白银勋章+白银玉佩+盛世凭证X5+转生碎片X5+400声望/c=70>\'
+'|{cmd}<领取奖励/@aote>\'
);
end;
procedure _lq199;
begin
if This_Player.GetV(31,13) <> 13 then
begin
if This_Player.FreeBagNum >= 8 then
begin
This_Player.Give('白银玉佩', 1);
This_Player.Give('白银勋章', 1);
This_Player.Give('白银斗笠', 1);
This_Player.Give('盛世凭证', 5);
This_Player.Give('转生碎片', 5);
This_Player.MyShengwan := This_Player.MyShengwan + 400;
This_Player.SetV(31,13,13);
ServerSay('玩家<' + This_Player.Name + '>领取了白银赞助奖励！', 2);
end else
This_NPC.NpcDialog(This_Player,'你背包不够8个空格');
end else
This_NPC.NpcDialog(This_Player,'你已经领取过了！')
end;
procedure _299;
begin
if This_Player.GetV(88,88) >= 299 then
begin
This_Npc.NpcDialog(This_Player,
+'|<黄金赞助奖励：/c=218><需要单笔充值299元/c=230>\|'
+'|<黄金斗笠+黄金勋章+黄金玉佩+盛世凭证X5+转生碎片X5+500声望/c=70>\'
+'|{cmd}<领取奖励/@lq399>\'
);
end else
This_Npc.NpcDialog(This_Player,
+'|<黄金赞助奖励：/c=218><需要单笔充值299元/c=230>\|'
+'|<黄金斗笠+黄金勋章+黄金玉佩+盛世凭证X5+转生碎片X5+500声望/c=70>\'
+'|{cmd}<领取奖励/@aote>\'
);
end;
procedure _lq299;
begin
if This_Player.GetV(31,14) <> 14 then
begin
if This_Player.FreeBagNum >= 8 then
begin
This_Player.Give('黄金勋章', 1);
This_Player.Give('黄金玉佩', 1);
This_Player.Give('黄金斗笠', 1);
This_Player.Give('盛世凭证', 5);
This_Player.Give('转生碎片', 5);
This_Player.MyShengwan := This_Player.MyShengwan + 500;
This_Player.SetV(31,14,14);
ServerSay('玩家<' + This_Player.Name + '>领取了黄金赞助奖励！', 2);
end else
This_NPC.NpcDialog(This_Player,'你背包不够8个空格');
end else
This_NPC.NpcDialog(This_Player,'你已经领取过了！')
end;
procedure _399;
begin
if This_Player.GetV(88,88) >= 399 then
begin
This_Npc.NpcDialog(This_Player,
+'|<钻石赞助奖励：/c=218><需要单笔充值399元/c=230>\|'
+'|<黄金斗笠+黄金玉佩+黄金勋章+盛世凭证X10+转生碎片X10+800声望/c=70>\'
+'|{cmd}<领取奖励/@lq399>\'
);
end else
This_Npc.NpcDialog(This_Player,
+'|<钻石赞助奖励：/c=218><需要单笔充值399元/c=230>\|'
+'|<黄金斗笠+黄金玉佩+黄金勋章+盛世凭证X10+转生碎片X10+800声望c=70>\'
+'|{cmd}<领取奖励/@aote>\'
);
end;
procedure _lq399;
begin
if This_Player.GetV(31,15) <> 15 then
begin
if This_Player.FreeBagNum >= 8 then
begin
This_Player.Give('黄金勋章', 2);
This_Player.Give('黄金玉佩', 2);
This_Player.Give('黄金斗笠', 2);
This_Player.Give('盛世凭证', 10);
This_Player.Give('转生碎片', 10);
This_Player.MyShengwan := This_Player.MyShengwan + 800;
This_Player.SetV(31,15,15);
ServerSay('玩家<' + This_Player.Name + '>领取了黄金赞助奖励！', 2);
end else
This_NPC.NpcDialog(This_Player,'你背包不够8个空格');
end else
This_NPC.NpcDialog(This_Player,'你已经领取过了！')
end;
procedure _499;
begin
if This_Player.GetV(88,88) >= 499 then
begin
This_Npc.NpcDialog(This_Player,
+'|<王者赞助奖励：/c=218><需要单笔充值499元/c=230>\|'
+'|<钻石斗笠X1+钻石勋章X1+钻石玉佩X1+盛世凭证X10+转生碎片X10+1000声望/c=70>\'
+'|{cmd}<领取奖励/@lq499>\'
);
end else
This_Npc.NpcDialog(This_Player,
+'|<王者赞助奖励：/c=218><需要单笔充值499元/c=230>\|'
+'|<钻石斗笠X1+钻石勋章X1+钻石玉佩X1+盛世凭证X10+转生碎片X10+1000声望/c=70>\'
+'|{cmd}<领取奖励/@aote>\'
);
end;
procedure _lq499;
begin
if This_Player.GetV(31,16) <> 16 then
begin
if This_Player.FreeBagNum >= 8 then
begin
This_Player.Give('钻石勋章', 1);
This_Player.Give('钻石玉佩', 1);
This_Player.Give('钻石斗笠', 1);
This_Player.Give('盛世凭证', 10);
This_Player.Give('转生碎片', 10);
This_Player.MyShengwan := This_Player.MyShengwan + 1000;
This_Player.SetV(31,16,16);
ServerSay('玩家<' + This_Player.Name + '>领取了王者赞助奖励！', 2);
end else
This_NPC.NpcDialog(This_Player,'你背包不够8个空格');
end else
This_NPC.NpcDialog(This_Player,'你已经领取过了！')
end;
procedure _599;
begin
if This_Player.GetV(88,88) >= 599 then
begin
This_Npc.NpcDialog(This_Player,
+'|<至尊赞助奖励：/c=218><需要单笔充值599元/c=230>\|'
+'|<钻石斗笠X2+钻石勋章X2+钻石玉佩X2+盛世凭证X20+转生碎片X20+2000声望/c=70>\'
+'|{cmd}<领取奖励/@lq599>\'
);
end else
This_Npc.NpcDialog(This_Player,
+'|<至尊赞助奖励：/c=218><需要单笔充值599元/c=230>\|'
+'|<钻石斗笠X2+钻石勋章X2+钻石玉佩X2+盛世凭证X20+转生碎片X20+2000声望/c=70>\'
+'|{cmd}<领取奖励/@aote>\'
);
end;
procedure _lq599;
begin
if This_Player.GetV(31,17) <> 17 then
begin
if This_Player.FreeBagNum >= 8 then
begin
This_Player.Give('钻石玉佩', 2);
This_Player.Give('钻石勋章', 2);
This_Player.Give('钻石斗笠', 2);
This_Player.Give('盛世凭证', 20);
This_Player.Give('转生碎片', 20);
This_Player.MyShengwan := This_Player.MyShengwan + 2000;
This_Player.SetV(31,17,17);
ServerSay('玩家<' + This_Player.Name + '>领取了至尊赞助奖励！', 2);
end else
This_NPC.NpcDialog(This_Player,'你背包不够8个空格');
end else
This_NPC.NpcDialog(This_Player,'你已经领取过了！')
end;
procedure _aote;
begin
This_Npc.NpcDialog(This_Player,
+'|<你充值金额暂未达到此赞助要求/c=70>\'
);
end;
Begin
domain;
end.
