战神引擎赞助充值奖励脚本修改-战神引擎-手游源码下载私服手游开发私服手游服务器搭建手游私服资源分享手游私服开服教程免费手游源码下载热门手游私服全新手游私服版本手游私服技术支持手游私服社区手游私服活动与福利手游私服服务器推荐手游私服插件与工具

创始人Lv11
战神引擎赞助充值奖励脚本修改游戏教程
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.
0 已被阅读了20次楼主 2023-11-19 23:22:27
回复列表
默认热门正序倒序
登录之后更精彩~
登录注册