充值赞助回馈Npc脚本(充值后领取额外的奖品)

用于战神引擎的充值赞助回馈Npc脚本，玩家充值以后，记录玩家的充值点，然后领取对应的奖品，脚本默认支持从50-3000的7个等级的类型，明文版的脚本，可以根据自己的要求，把里面的奖品和金额换成自己想要的，充值点如果读取不到，那么需要换成自己的版本里面对应的变量名称。

部分脚本

program Mir2;
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure _50;  //方法
begin 
if This_Player.MyLFnum >= 50 then 
begin 
if This_Player.GetV(15,10) <> 1 then 
begin
if This_Player.FreeBagNum >= 3 then
begin 
This_Player.Give('会员服务',1);
ServerSay('玩家<'+This_Player.Name+'>领取了会员服务！', 3);
This_Player.SetV(15,10,1);
This_NPC.NpcDialog(This_Player,'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足1格') 
end else
This_NPC.NpcDialog(This_Player,'你已领取过奖励了');
end else
This_NPC.NpcDialog(This_Player,'你充值没到50元！');
end;
procedure _99;  //方法
begin 
if This_Player.MyLFnum >= 100 then 
begin 
if This_Player.GetV(15,11) <> 1 then 
begin
if This_Player.FreeBagNum >= 3 then
begin 
This_Player.Give('十倍地图入场卷',1);
This_Player.Give('勇者勋章',1);
ServerSay('玩家<'+This_Player.Name+'>领取了十倍地图入场卷+勇者勋章！', 3);
This_Player.SetV(15,11,1);
This_NPC.NpcDialog(This_Player,'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足1格') 
end else
This_NPC.NpcDialog(This_Player,'你已领取过奖励了');
end else
This_NPC.NpcDialog(This_Player,'你充值没到100元！');
end;
 procedure _111;  //方法
begin 
if This_Player.MyLFnum >= 200 then 
begin 
if This_Player.GetV(15,12) <> 1 then 
begin
if This_Player.FreeBagNum >= 3 then
begin 
This_Player.Give('四星血石',1);
This_Player.Give('勇者勋章',1);
This_Player.Give('四阶玉佩',1);
ServerSay('玩家<'+This_Player.Name+'>领取了四星血石和四阶玉佩和勇者勋章！', 3);
This_Player.SetV(15,12,1);
This_NPC.NpcDialog(This_Player,'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足1格') 
end else
This_NPC.NpcDialog(This_Player,'你已领取过奖励了');
end else
This_NPC.NpcDialog(This_Player,'你充值没到200元！');
end; 
 procedure _112;  //方法
begin 
if This_Player.MyLFnum >= 500 then 
begin 
if This_Player.GetV(15,13) <> 1 then 
begin
if This_Player.FreeBagNum >= 3 then
begin 
This_Player.Give('夸父斗笠',1);
This_Player.Give('四阶死神盾牌',1);
ServerSay('玩家<'+This_Player.Name+'>领取了英雄夸父斗笠和四阶死神盾牌！', 3);
This_Player.SetV(15,13,1);
This_NPC.NpcDialog(This_Player,'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足1格') 
end else
This_NPC.NpcDialog(This_Player,'你已领取过奖励了');
end else
This_NPC.NpcDialog(This_Player,'你充值没到500元！');
end; 
procedure _113;  //方法
begin 
if This_Player.MyLFnum >= 1000 then 
begin 
if This_Player.GetV(15,14) <> 1 then 
begin
if This_Player.FreeBagNum >= 3 then
begin 
This_Player.Give('五级神翼守护',1);
This_Player.Give('材料包',2);
ServerSay('玩家<'+This_Player.Name+'>领取了五级神翼守护+材料包2个！', 3);
This_Player.SetV(15,14,1);
This_NPC.NpcDialog(This_Player,'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足1格') 
end else
This_NPC.NpcDialog(This_Player,'你已领取过奖励了');
end else
This_NPC.NpcDialog(This_Player,'你充值没到1000元！');
end; 
procedure _114;  //方法
begin 
if This_Player.MyLFnum >= 2000 then 
begin 
if This_Player.GetV(15,15) <> 1 then 
begin
if This_Player.FreeBagNum >= 3 then
begin 
This_Player.Give('六阶玉佩',1);
This_Player.Give('材料包',5);
ServerSay('玩家<'+This_Player.Name+'>领取了六阶玉佩和夸父斗笠+5个材料包！', 3);
This_Player.SetV(15,15,1);
This_NPC.NpcDialog(This_Player,'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足1格') 
end else
This_NPC.NpcDialog(This_Player,'你已领取过奖励了');
end else
This_NPC.NpcDialog(This_Player,'你充值没到2000元！');
end;

分享到：

赞(1)