用于战神引擎的打卡签到增强版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
