战神引擎元宝抽奖得技能书Npc脚本(有次数限制)

用于战神引擎的战神引擎元宝抽奖得技能书Npc脚本。脚本带了次数限制，可以现在单个人和全服所有人的次数，脚本默认可以抽取技能书，明文版，可以任意修改脚本里面单次抽取的元宝要求和奖品内容。

部分脚本

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(1000-Snum);//全服剩余抽奖次数
    num0 :=inttostr(100-Snum);//个人剩余抽奖次数
    This_NPC.NpcDialog(This_Player,
       '☆☆☆欢迎光临【元宝抽奖】抽奖中心☆☆☆\|'
      +'                   '+'每抽奖一次需要<188元宝/c=red>！|\'
	+'            '+'全服每天限制为900次'+' '+'<还剩/C=red>'+snum0+'<个/C=red>\|'
    +'            '+'个人一天只能抽100次'+' '+'<还剩/C=red>'+num0+'<个/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 < 1000 then//可以更改全服抽奖次数上限，上面的显示项目最好同时修改
    begin 
        if num < 100 then//更改个人抽奖次数上限

分享到：

赞(0)