赞助服务Npc脚本(有白金+黄金+钻石+至尊四种)

用于战神引擎版本的自定义赞助Npc脚本，脚本默认支持四种赞助类型，分别是白金、黄金、钻石、至尊四种类型，对应的脚本和Npc对话框帮主都已经提取出来了，要添加之前，必须要确定客户端使用了/裤衩登陆器插件，否则不支持。

部分脚本

procedure _zuanshi2;
var today , nun5: integer;
begin
    today := GetDateNum(GetNow);      // 获取当前日期
    if This_Player.GetV(31,8) <> today then     
    begin
    This_Player.SetV(31,8,today);
    This_Player.SetV(32,8,0);
    end;
    if This_Player.GetV(124,24) >= 3 then  
    begin  	
    nun5 := This_Player.GetV(32,8);  //获取已领取次数 
    if nun5 < 1 then begin This_Player.Give('精力神石', 3); This_Player.Give('热血结晶', 1); This_Player.SetV(32,8, nun5 + 1); ServerSay('钻石赞助玩家【' + This_Player.Name + '】领取了每日奖励！',2); end else This_Player.PlayerNotice('你今天已经领取过了，明天再来了！',2); end else This_Player.PlayerNotice('你不是钻石赞助玩家！',2); end; procedure _zan4; var AA,AB,AC,AD,AE,AF,AG,AK : String; begin if This_Player.GetV(26,2) > 0 then 
begin
   AA := '√';
   end else begin 
   AA := '';
   end;
if This_Player.GetV(26,3) > 0 then 
begin
   AB := '√';
   end else begin 
   AB := '';
   end;
if This_Player.GetV(26,4) > 0 then 
begin
   AC := '√';
   end else begin 
   AC := '';
   end;
if This_Player.GetV(26,5) > 0 then 
begin
   AD := '√';
   end else begin 
   AD := '';
   end;
if This_Player.GetV(26,6) > 0 then 
begin
   AE := '√';
   end else begin 
   AE := '';
   end;  
if This_Player.GetV(26,7) > 0 then 
begin
   AF := '√';
   end else begin 
   AF := '';
   end;    
if This_Player.GetV(26,8) > 0 then 
begin
   AG := '√';
   end else begin 
   AG := '';
   end; 
if This_Player.GetV(26,9) > 0 then 
begin
   AK := '√';
   end else begin 
   AK := '';
   end;    
 This_NPC.NpcDialog(This_Player,
'Bg:zanzu:4|'+
'Exit:zhuan:0:0:525:30|'+	
'1:Text:133:30:18:赞助服务@250|'+
'1:RBtn:zanzu:8:101:67:白金赞助@main:18:160|'+
'1:RBtn:zanzu:8:101:102:黄金赞助@zan2:18:160|'+
'1:RBtn:zanzu:8:101:137:钻石赞助@zan3:18:160|'+
'1:RBtn:zanzu:8:101:172:至尊赞助@zan4:18:161|'+
'1:Text:263:67:18:一次性奖励@250|'+
'1:Item:白银斗笠:8802:1:197:107|'+
'1:Item:黄金●盾牌:8708:1:263:107|'+
'1:Item:1.9倍爆率腰牌:8607:1.2:333:107|'+
'1:RBtn:zanzu:8:263:170:领取奖励@ziz1:18:250|'+
'1:Text:500:67:18:每日奖励@250|'+
'1:Item:精力神石:1372:1:466:107|'+
'1:Item:热血结晶:1375:1.2:534:107|'+
'1:Text:481:122:16:5@250|'+
'1:Text:549:122:16:2@250|'+
'1:RBtn:zanzu:8:500:170:领取奖励@ziz2:18:250|'+
'1:Text:210:240:20:赤月装备@249|'+
'1:RBtn:zanzu:6@6:270:240:' + AA + '@kg1:18:250|'+
'1:Text:360:240:20:魔龙装备@249|'+
'1:RBtn:zanzu:6@6:420:240:' + AB + '@kg2:18:250|'+
'1:Text:510:240:20:强化装备@249|'+
'1:RBtn:zanzu:6@6:570:240:' + AC + '@kg3:18:250|'+
'1:Text:210:282:20:战神装备@250|'+
'1:RBtn:zanzu:6@6:270:282:' + AD + '@kg4:18:250|'+
'1:Text:360:282:20:火龙装备@250|'+
'1:RBtn:zanzu:6@6:420:282:' + AE + '@kg5:18:250|'+
'1:Text:510:282:20:赤月剑甲@250|'+
'1:RBtn:zanzu:6@6:570:282:' + AF + '@kg6:18:250|'+
'1:Text:210:324:20:魔龙剑甲@250|'+
'1:RBtn:zanzu:6@6:270:324:' + AG + '@kg7:18:250|'+
//'1:Text:360:324:20:战神剑甲@250|'+
//'1:RBtn:zanzu:6@6:420:324:' + AK + '@kg8:18:250|'+
'1:Text:440:339:16:提示：装备名绿色回收元宝红色回收经验@70|'+
'1:Text:325:380:18:单笔充值1500元RMB。享受至尊特权@100|'+	   //10转
'1:RBtn:zanzu:10:520:380:开启赞助@zankq1500:18:250|'+
'|{cmd}</@main></@zan2></@zan3></@zan4></@11></@ziz1></@ziz2></@zankq1500>'+ 
'|{cmd}</@kg1></@kg2></@kg3></@kg4></@kg5></@kg6></@kg7></@kg8>'    	
    );
    ZDGN_FU; ; 	
end;
procedure _kg1;
begin
if This_Player.GetV(124,24) = 4 then 
begin
if This_Player.GetV(26,2) <> 1 then 
begin
  This_Player.SetV(26,2,1);
  This_Player.SetV(26,15,1);   
  This_Player.PlayerNotice('开启了赤月装备自动回收',2);	
  _zan4
end else 
begin
 This_Player.SetV(26,2,0);
  This_Player.PlayerNotice('关闭了赤月装备自动回收',0);	
  _zan4  
end
end else
 This_Player.PlayerNotice('你还不是至尊赞助玩家！',2);	
end;
procedure _kg2;
begin
if This_Player.GetV(124,24) = 4 then 
begin
if This_Player.GetV(26,3) <> 1 then 
begin
  This_Player.SetV(26,3,1);
  This_Player.SetV(26,15,1);  
  This_Player.PlayerNotice('开启了魔龙装备自动回收',2);	
  _zan4  
end else 
begin
 This_Player.SetV(26,3,0);
  This_Player.PlayerNotice('关闭了魔龙装备自动回收',0);	
  _zan4  
end
end else
 This_Player.PlayerNotice('你还不是至尊赞助玩家！',2);	
end;
procedure _kg3;
begin
if This_Player.GetV(124,24) = 4 then 
begin
if This_Player.GetV(26,4) <> 1 then 
begin
  This_Player.SetV(26,4,1);
  This_Player.SetV(26,15,1);   
  This_Player.PlayerNotice('开启了强化装备自动回收',2);	
  _zan4  
end else 
begin
 This_Player.SetV(26,4,0);
  This_Player.PlayerNotice('关闭了强化装备自动回收',0);	
  _zan4  
end
end else
 This_Player.PlayerNotice('你还不是至尊赞助玩家！',2);	
end;
procedure _kg4;
begin
if This_Player.GetV(124,24) = 4 then 
begin
if This_Player.GetV(26,5) <> 1 then 
begin
  This_Player.SetV(26,5,1);
  This_Player.SetV(26,15,1);  
  This_Player.PlayerNotice('开启了战神装备自动回收',2);	
  _zan4  
end else

分享到：

赞(0)