战神引擎元宝领取+充值奖励一体Npc脚本

用于战神引擎的元宝领取+充值奖励一体Npc脚本，这种脚本很常见，但在之前看到的，都是2个NPC，分开的，今天这个做的很好，做到一体化了，玩家无论是要领取元宝还是充值奖励。直接在一个NPC上完成，而且NPC上还带了充值奖励物品的清单，让玩家知道充值以后除了获得对应的货币以外，还能额外的到什么装备物品，一目了然。

部分脚本

begin 
if This_Player.MyLFnum >= 1000 then 
begin 
if This_Player.GetV(15,16) <> 1 then 
begin
if This_Player.FreeBagNum >= 3 then
begin 
This_Player.Give('羽翼梦幻(男)',1);
This_Player.Give('霸皇邪剑',1);
This_Player.MyShengwan := This_Player.MyShengwan + 7;
ServerSay('玩家<'+This_Player.Name+'>领取了1000元充值奖励！', 3);
This_Player.SetV(15,16,1);
This_NPC.NpcDialog(This_Player,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格') 
end else
This_NPC.NpcDialog(This_Player,'你已领取过奖励了');
end else
This_NPC.NpcDialog(This_Player,'你充值没到1000元！');
end;
/////////元宝领取/////////
Procedure _GetYB;
var
today , num: integer; 
d2,d3 : integer;
s1 , td : double;
begin
	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.QueryAwardCode(This_Player.Name);
		This_Npc.CloseDialog(This_Player);
	end else
	   This_Npc.NpcDialog(This_Player,
	   '你操作太快，连续领取3次没有成功，将锁定5分钟！请' + inttostr(300 - d3) + '秒后再次尝试！'
	   );
end;
begin 
sum := This_Player.MyLFnum;
This_Npc.NpcDialog(This_Player,
   '|您当前有：<'+inttostr(sum)+'/c=red> 充值点。1元=1充值点\'+ 
   '|<注：散人玩家可以打怪爆出红包兑换充值点。/c=224>\'+    
   '|您可领取以下奖励：\'+    
   '|<累计充值10 元：/fcolor=red>青铜斗笠+青铜盾牌+会员宝箱\'+    
   '|<累计充值50 元：/fcolor=red>白银斗笠+白银盾牌+双倍勋章\'+ 
   '|<累计充值100元：/fcolor=red>黄金斗笠+黄金盾牌+上帝套装\'+
   '|<累计充值300元：/fcolor=red>钻石斗笠+钻石盾牌+耶稣套装\'+
   '|<累计充值500元：/fcolor=red>至尊斗笠+至尊盾牌+荣誉套装\'+
   '|<累计充值800元：/fcolor=red>昔日斗笠+昔日盾牌+纪念套装\'+  
   '|<累计充值1000元：/fcolor=red>散件终极武器+散件终极衣服\'+   
   '|{cmd}<充值10元/@1> ^<充值50元/@2>	^<充值100元/@3>\'+ 
   '|{cmd}<充值300元/@4> ^<充值500元/@5>	^<充值800元/@6>\'+ 
   '|{cmd}<充值1000元/@7> <充值元宝领取/@GetYB>\');
end.

分享到：

赞(0)