战神引擎充值给予奖励

领奖条件:等级要求35级+首充给玩家
奖励物品:战神系列.星王系列.屠龙系列
奖励物品:随机获得一件装备
奖励名额:20名额.奖励剩余数量名

脚本内容如下

program mir2;


procedure _GetFreeGold1; 
var today , num1: integer;
Snum1 : integer;
 
begin
  if This_Player.Level >= 35 then
  begin
    if This_Player.GetV(62,3) <> today then
    begin
       This_Player.SetV(62,3,today);
       This_Player.SetV(62,4,0);
    end;

   if GetG(72,1) <> today then
   begin
       SetG(72,1,today);
       SetG(72,2,0);
   end;


   
   Snum1 := GetG(72,2)
   num1 := This_Player.GetV(62,4);
   
    if Snum1 < 20 then
    begin 
        if num1 < 1 then
        begin
            if This_Player.FreeBagNum >= 1 then
            begin 
                This_Player.SysGiveGift('财富宝箱',1,true);
                This_Player.SetV(62,4, num1 + 1);
                SetG(72,2,Snum1 + 1); 
                ServerSay('恭喜[' + This_Player.Name + ']获得奖励:' + inttostr(50 - Snum1) + '/50！！',3);  
            end else
            This_NPC.NpcDialog(This_Player,'你的包裹已满') 
        end else
        This_NPC.NpcDialog(This_Player,'你已经领取过奖励了');
    end else
    This_NPC.NpcDialog(This_Player,'35级奖励名额已经领完！');
  end else
   begin
         
         This_Npc.NpcDialog(This_Player,
        '你的等级不足，请提升实力！！！  ');

     end; 
end;

var Stoday ,Snum1: integer;
Begin
   Snum1 := GetG(72,2)
   This_Npc.NpcDialog(This_Player,
   '   <≡≡/SCOLOR=231><怀/SCOLOR=154><念/SCOLOR=140><合/SCOLOR=95><击/SCOLOR=149><2019/SCOLOR=151><年/SCOLOR=149><独/SCOLOR=125><家/SCOLOR=68><手/SCOLOR=69><游/SCOLOR=70><≡≡/SCOLOR=191>\'+
    '|<领奖条件:/SCOLOR=116>等级要求35级+首充给玩家\'+
    '|<奖励物品:/SCOLOR=116>战神系列.星王系列.屠龙系列\'+
    '|<奖励物品:/SCOLOR=116>随机获得一件装备\'+
    '|<奖励名额:/SCOLOR=116>20名额.奖励剩余数量<' + inttostr(10 - Snum1) + '/c=red>名\'+
    '|      <【领取奖励】/@GetFreeGold1>            \'
   );
end.