元宝抽奖Npc脚本带素材

用于战神引擎元宝抽奖Npc脚本带素材，通过NPC脚本，把牵扯到的素材都提取出来了，希望没有遗漏，脚本只提取了NPC文件和一份common.pas文件，其他的需要GM自行研究了，脚本作者：开心就好。

元宝抽奖Npc脚本带素材

部分脚本

procedure _cj22;
begin
 if This_Player.GetV(68,1)>= 100 then
begin
This_Player.setV(68,1, this_Player.getV(68,1) - 100);
This_Player.Give('超级祝福油',1);
ServerSay('恭喜玩家['+This_Player.Name+']使用100宝藏积分兑换一个吸血符文！！', 3);
 end else
        This_NPC.NpcDialog(This_Player,
        '你的积分不够400!\|'
        +'{cmd}<返回/@main>');
end;
procedure _cj23;
begin
 if This_Player.GetV(68,1)>= 300 then
begin
This_Player.setV(68,1, this_Player.getV(68,1) - 300);
This_Player.Give('暴击符文',1);
ServerSay('恭喜玩家['+This_Player.Name+']使用300宝藏积分兑换一个神秘礼物！！', 3);
 end else
        This_NPC.NpcDialog(This_Player,
        '你的积分不够200!\|'
        +'{cmd}<返回/@main>');
end;
procedure _cj21;
begin
 if This_Player.GetV(68,1)>= 50 then
begin
This_Player.setV(68,1, this_Player.getV(68,1) - 50);
This_Player.Give('生肖挑战令',5);
ServerSay('恭喜玩家['+This_Player.Name+']使用50宝藏积分兑换生肖挑战令*5！！', 3);
 end else
        This_NPC.NpcDialog(This_Player,
        '你的积分不够50!\|'
        +'{cmd}<返回/@main>');
end;
procedure _cj;
var 
Rdm_int : integer; 
WpName : string;
begin
if  This_Player.GetV(38,1)>= 0 then
    today := GetDateNum(GetNow);
    if This_Player.GetV(63,3) <> today then
    begin
       This_Player.SetV(63,3,today);
       This_Player.SetV(63,4,0);
    end;
   if GetG(65,1) <> today then
   begin
       SetG(65,1,today);
       SetG(65,2,0);
   end;
   Snum := GetG(65,2)
   num := This_Player.GetV(63,4);
    //Snum1 := This_Player.GetV(68,1);
    if Snum < 100 then//可以更改全服抽奖次数上限，上面的显示项目最好同时修改
    begin 
        if num < 3 then//更改个人抽奖次数上限

分享到：

赞(0)