战神引擎元宝抽奖Npc脚本(随机8个奖品)

用于战神引擎元宝抽奖Npc脚本，脚本默认支持随机8个奖品，有一等奖到参与奖，帮主经过3次测试，得奖率是非常的高的，抽到了麻痹戒指，这个脚本不带后台控制奖品几率的控制，网站上还要其他带控制的，根据自己的版本情况，选择对应的脚本。脚本是明文版的，可以任何修改里面的奖品内容。

部分脚本

PROGRAM Mir2;
{$I common.pas}
var
today:integer; 
num:integer;
Snum :integer; 
Snum0 :string ;
num0 :string ;
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
    Snum0 :=inttostr(99999-Snum);//全服剩余抽奖次数
    num0 :=inttostr(99999-Snum);//个人剩余抽奖次数
    This_NPC.NpcDialog(This_Player,
       '☆☆☆欢迎光临【追忆合击】抽奖中心☆☆☆\|'
      +'                   '+'每抽奖一次需要<8888元宝/c=red>！|\'
	 +'            '+'<一等奖>：<首充神卷>(可进首充地图)\|'
     +'            '+'<二等奖>：随机<真*刺影装备>一件\|'
	 +'            '+'<三等奖>：随机<神*倚天装备>一件\|'
	 +'            '+'<四等奖>：随机<魔*火龙装备>一件\|'
	 +'            '+'<五等奖>：<芙蓉王>一包\|'
	 +'            '+'<六等奖>：<打火机>一个\|'
	 +'            '+'<七等奖>：随机<特戒>一枚\|'
	 +'            '+'<参与奖>：<神兵水晶片>一个\|'
     +'               '+'{cmd}<我要抽奖/@cj>\');
end;
procedure _cj;
var 
Rdm_int : integer; 
WpName : string;
begin
    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);
    if Snum < 99999 then//可以更改全服抽奖次数上限，上面的显示项目最好同时修改
    begin 
        if num < 99999 then//更改个人抽奖次数上限

分享到：

赞(0)