打卡签到增强版Npc脚本(可以用元宝补签)

用于战神引擎的打卡签到增强版Npc脚本，比之前更新的那个功能更丰富一些，支持通过元宝购买原先忘记签到的日期，奖品也是非常的丰富，脚本是明文版的，可以任意修改里面的奖品内容。

部分脚本

program mir2;
var
buka,yuefen: integer;
str1,str2,str3,str4,str5,str6,str,str7,str8,str9,str10:String;
str11,str12,str13,str14,str15,str16,str17,str18,str19,str20:String;
str21,str22,str23,str24,str25,str26,str27,str28,str29,str30,str31:String;
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
Procedure _exit;
begin
   This_Npc.CloseDialog(This_Player);
end;
function getbqYBNum(Zlv : integer) : integer; //补签所需元宝
begin
    case Zlv of
        1 : result := 10;                   // 1号补签所需 100 元宝   自行脑补
        2 : result := 20;
        3 : result := 30;
        4 : result := 40;
        5 : result := 50;
        6 : result := 60;
        7 : result := 70;
        8 : result := 80;
        9 : result := 90;
        10 : result := 100;
        11 : result := 110;
        12 : result := 120;
        13 : result := 130;
        14 : result := 140;
        15 : result := 150;
        16 : result := 160;
        17 : result := 170;	
        18 : result := 180; 
        19 : result := 190;
        20 : result := 200;
        21 : result := 210;
        22 : result := 220;
        23 : result := 230;
        24 : result := 240;
        25 : result := 250;
        26 : result := 260;
        27 : result := 270; 
        28 : result := 280;
        29 : result := 290;	
        30 : result := 300;		            
    end;
end;
function getYbNum(Zlv : integer) : integer;  //7.15.30天签到元宝奖励
begin
    case Zlv of
         7 : result := 800;                 //  7天打卡元宝奖励
        15 : result := 1500;                 // 15天打卡元宝奖励
        30 : result := 3500;                // 30天打卡元宝奖励   
    end;
end;
function getExpNum(Zlv : integer) : integer;  //7.15.30天签到经验奖励
begin
    case Zlv of
         7 : result := 2000000;                 //  7天打卡经验奖励
        15 : result := 5000000;                 // 15天打卡经验奖励
        30 : result := 10000000;                // 30天打卡经验奖励   
    end;
end;
function getZBnameById(ZBid : integer) : string;   ////7.15.30天签到随机装备抽取
begin
            case ZBid of
        1 : result := '绿色项链';
        2 : result := '骑士手镯';
        3 : result := '力量戒指';
        4 : result := '恶魔铃铛';
        5 : result := '龙之手镯';
        6 : result := '紫碧螺';
        7 : result := '灵魂项链';
        8 : result := '三眼手镯';
        9 : result := '泰坦戒指';
        10 : result := '黑铁头盔';
        11 : result := '青铜腰带';
        12 : result := '紫绸靴';
        13 : result := '阎罗手套';
        14 : result := '龙纹剑';
        15 : result := '骨玉权杖';
        16 : result := '裁决之杖';
        17 : result := '圣战头盔';
        18 : result := '圣战项链';
        19 : result := '圣战手镯';
        20 : result := '圣战戒指';
        21 : result := '法神头盔';
        22 : result := '法神项链';
        23 : result := '法神手镯';
        24 : result := '法神戒指';
        25 : result := '天尊头盔';
        26 : result := '天尊项链';
        27 : result := '天尊手镯';
        28 : result := '天尊戒指';
        29 : result := '钢铁腰带';
        30 : result := '避魂靴';
        31 : result := '霸者之刃';
        32 : result := '怒斩';
        33 : result := '龙牙';
        34 : result := '圣战宝甲';
        35 : result := '天魔神甲';
        36 : result := '霓裳羽衣';
        37 : result := '法神披风';
        38 : result := '天师长袍';
        39 : result := '天尊道袍';
        40 : result :='雷霆腰带';
        41 : result :='雷霆战靴';
        42 : result :='雷霆项链';
        43 : result :='雷霆护腕';
        44 : result :='雷霆战戒';
        45 : result :='雷霆战盔';
        46 : result :='烈焰腰带';
        47 : result :='烈焰魔靴';
        48 : result :='烈焰项链';
        49 : result :='烈焰护腕';
        50 : result :='烈焰魔戒';
        51 : result :='烈焰魔盔';
        52 : result :='光芒腰带';
        53 : result :='光芒道靴';
        54 : result :='光芒项链';
        55 : result :='光芒护腕';
        56 : result :='光芒道戒';
        57 : result :='光芒道盔';
        58 : result :='屠龙';
        59 : result :='逍遥扇';
        60 : result :='嗜魂法杖';
        61 : result :='战神腰带';
        62 : result :='战神靴子';
        63 : result :='战神项链';
        64 : result :='战神手镯';
        65 : result :='战神戒指';
        66 : result :='战神头盔';
        67 : result :='圣魔腰带';
        68 : result :='圣魔靴子';
        69 : result :='圣魔项链';
        70 : result :='圣魔手镯';
        71 : result :='圣魔戒指';
        72 : result :='圣魔头盔';
        73 : result :='真魂腰带';
        74 : result :='真魂靴子';
        75 : result :='真魂项链';
        76 : result :='真魂手镯';
        77 : result :='真魂戒指';
        78 : result :='真魂头盔';
            end;
        end;
procedure domain;
begin
if This_Player.GetV(199,1) > 0 then
begin
  str1 := '<01/fcolor=250>';
  end else 
  begin
  str1 := '<01/@SetAbil~1>';
  end;
if This_Player.GetV(199,2) > 0 then
begin
  str2 := '<02/fcolor=250>';
  end else 
  begin
  str2 := '<02/@SetAbil~2>';
  end;  
if This_Player.GetV(199,3) > 0 then
begin
  str3 := '<03/fcolor=250>';
  end else 
  begin
  str3 := '<03/@SetAbil~3>';
  end;   
if This_Player.GetV(199,4) > 0 then
begin
  str4 := '<04/fcolor=250>';
  end else 
  begin
  str4 := '<04/@SetAbil~4>';
  end;   
 if This_Player.GetV(199,5) > 0 then
begin
  str5 := '<05/fcolor=250>';
  end else 
  begin
  str5 := '<05/@SetAbil~5>';
  end;  
if This_Player.GetV(199,6) > 0 then

分享到：

赞(0)