战神引擎-沙巴克奖池充值捐献

program Mir2;

var GetNum:integer;

procedure _DoExit;

begin

  This_Npc.CloseDialog(This_Player);

end;

Procedure _jiancechongzhi;

begin

This_DB.ExecuteQuery('SELECT AwardCodeType FROM gamedata.awardcodes WHERE '+

'AwardCodeType = 48000 and ActiveParam = 1 and AwardCode = "' + This_Player.Name + '";');

if This_DB.PsEof() then

begin

This_Npc.NpcDialog(This_Player,'你都没充值(只有充值正好48元才可以捐献),瞎捐献个鸡毛！|\请充值好再试！'); //

end else

begin

    This_Npc.CloseDialog(This_Player);

SetG(45,15,GetG(45,15)+48);

This_Player.SetV(187,187,1);

This_DB.ExecuteScript('update gamedata.awardcodes set' +

' ActiveParam = -1,OwnerChrName = "' + This_Player.Name + '", ModifyDate=NOW() '+

' where AwardCode = "' + This_Player.Name + '";');

ServerSay('土豪<' + This_Player.Name + '>成功给为沙巴克捐献，本服累计沙巴克捐献：' + inttostr(getG(45,15))+'元', 3);

This_Player.PlayerNotice('捐献成功!',0);

This_Npc.NpcDialog(This_Player,'成功为沙巴克捐献了48块人民币.!');

end;

end;

procedure _resetSubmit;

begin

SetG(45,15,0);

This_NPC.NpcDialog(This_Player,'清零成功');

end;

procedure _lqsx;

begin

GetNum := This_Player.GetV(187,187);

if GetNum >= 1 then

begin 

//================ 这里添加赠送属性

This_Player.AddPlayerAbil(24,30,65535);

This_Player.AddHeroAbil(24,30,65535);

//This_Player.AddPlayerAbil(24,30,65535);// 100 攻击力

//=============

ServerSay('玩家【' + This_Player.Name + '】开启了嗜血杀戮属性！',3);

This_Npc.NpcDialog(This_Player,'属性开启成功.!');

end else 

This_Npc.NpcDialog(This_Player,'没捐献你点个几把啊.!');

end;

procedure _lqsx5;

begin

GetNum := This_Player.GetV(187,187);

if GetNum >= 1 then

   begin 

   This_Player.RandomFlyTo('h010~1');

  //This_Player.CallOut(This_Npc, 1, 'MFBG24');

   ServerSay('捐献玩家【' + This_Player.Name + '】进入了捐献专署地图！！',3);

   end else 

   This_NPC.NpcDialog(This_Player,

   '你沙捐不够48元!');

   end;

procedure MFBG24;

   begin

   if CompareText(This_Player.MapName,'hd1~1') = 0 then

   begin

  // This_Player.CallOut(This_Npc, 1, 'MFBG24');

   This_Player.Give('经验',20000); 

end; 

end;

Begin

if getg(45,15) < 0 then setg(45,15,0);

if(This_Player.GMLevel>=5)then

begin

    This_Npc.NpcDialog(This_Player,

    +'<捐献说明/c=red>'+'为沙巴克攻城所捐献金额<获胜方获得50%RMB/fcolor=250>.

<失败方获得20%RMB/fcolor=242>.另外30%为服务器运营费.|<攻沙人民币奖励,绝不跑路,

合区后必须重新开启！/fcolor=242>|\'+

+'<捐献属性/c=red>'+'一次捐献<48元>充值,可享受：30攻击,魔法,道术加强属性丶进沙捐专属地图|\'+

+'<捐献方式/c=red>'+'单次充值正好<48元>后点击此处捐献.<切勿领取成充值元宝,若无激情奖励累计

下次发放!/fcolor=250>|\'+

+'<本区总捐献金额/c=red><['+inttostr(getG(45,15))+']/fcolor=250>元.|\'+

   +'<沙城胜利方/c=red><['+inttostr(getG(45,15) div 2)+']/fcolor=242>元.|\'+

   +'<沙城失败方/c=red><['+inttostr(getG(45,15) div 5)+']/fcolor=242>元.|\'+

   +'<服务器维护/c=red><['+inttostr(getG(45,15) div 3)+']/fcolor=242>元.\'+

    +'|{cmd}<捐献48元充值/@jiancechongzhi>^<领取捐献属性/@lqsx>\'+

+'|{cmd}<沙捐地图/@lqsx5>^<清除数据/@resetSubmit>\'

    );

end else

    This_Npc.NpcDialog(This_Player,

    +'<捐献说明/c=red>'+'为沙巴克攻城所捐献金额|<获胜方获得50%RMB/fcolor=250>.

<失败方获得20%RMB/fcolor=242>.另外30%为服务器运营费.|<攻沙人民币奖励,绝不跑路,

合区后必须重新开启！/fcolor=242>|\'+

+'<捐献属性/c=red>'+'一次捐献<48元>充值,可享受：30攻击,魔法,道术加强属性丶进沙捐专属地图|\'+

+'<捐献方式/c=red>'+'单次充值正好<48元>后点击此处捐献.<切勿领取成充值元宝,

若无激情奖励累计下次发放!/fcolor=250>|\'+

+'<本区总捐献金额/c=red><['+inttostr(getG(45,15))+']/fcolor=250>元.|\'+

    +'<沙城胜利方/c=red><['+inttostr(getG(45,15) div 2)+']/fcolor=242>元.|\'+

    +'<沙城失败方/c=red><['+inttostr(getG(45,15) div 5)+']/fcolor=242>元.|\'+

    +'<服务器维护/c=red><['+inttostr(getG(45,15) div 3)+']/fcolor=242>元.\'+

+'|{cmd}<沙捐地图/@lqsx5>\'+

    +'|{cmd}<捐献48元充值/@jiancechongzhi>^<领取捐献属性/@lqsx>\'

    );

end.