每日签到NPC脚本文件，用于战神手游引擎，玩家每天签到一次，可以领取对应的奖励，签到次数越多，奖品越丰厚，当然，关键是看GM的设置，因为每一个版本不一样，奖品肯定也不一样，脚本是明文版的，gm可以根据自己的要求，任意修改里面的内容。
部分脚本
program Mir2;
{$I TaoZhuang.pas}
var
shuru : string;
BYB: integer;
GameTime,q1,q2,today,today1: integer;
procedure _exit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure loadPlayer;
var count:integer; Uname:string;
begin
count:=0;
This_DB.ExecuteQuery('select ChrName from mir3.user_index where level >= 0 order by level desc;');
while not(This_DB.PsEof()) do
begin
Uname:=This_DB.PsFieldByName('ChrName');
if This_Player.FindPlayer(Uname) then
begin
count:=count+1;
WriteIniSectionStr('loadPlayer.txt','PlayerList',inttostr(count),Uname);
WriteIniSectionStr('loadPlayer.txt','PlayerList','reloadtime',inttostr(GetMin));
end
This_DB.PsNext();
end;
end;
procedure reloadplayer;
var settime:integer;
begin
settime:=strtointdef(ReadIniSectionStr('loadPlayer.txt','PlayerList','reloadtime'),-1);
settime:=settime;
if GetMin <> settime then
loadPlayer;
end;
function addSpace( s : string; needLen : Integer ) : string;
var
i, j : Integer;
begin
i := Length(s);
if i < needLen then
begin
j := needLen - i;
for i:=0 to j do
begin
s := s + ' ';
end;
end;
Result := s;
end;
function xColor:String;
var temp_str : string; i : integer;
begin
for i:=1 to 2 do
begin
temp_str := temp_str + '<☆/fcolor='+inttostr(random(255)+1)+'>';
end
temp_str := temp_str+ addSpace('', 2) + '<180热血版. 精心打造，值得体验/fcolor='+inttostr(random(14)+242)+'>'+temp_str;
Result := temp_str;
end;
procedure xianshi;
var
GameTime,q1,q2,q10,today,today1: integer;
begin
GameTime := (GetDateNum(GetNow) - GetDateNum(GetOpenGameTime)) + 1
today := GetDateNum(GetNow);// 获取当前日期
if This_Player.GetV(158,1) <> today1 then
begin
This_Player.SetV(158,1,today1);
This_Player.SetV(158,2,0);
end;
if This_Player.GetV(150,1) <> today1 then
begin
This_Player.SetV(150,1,today1);
This_Player.SetV(150,2,0);
end;
if This_Player.GetV(151,1) <> today then
begin
This_Player.SetV(151,1,today);
This_Player.SetV(151,2,0);
end;
q10 := This_Player.GetV(158,2);
q1 := This_Player.GetV(150,2);
q2 := This_Player.GetV(151,2);
if q1 < 7 then
if GetDayOfWeek = 1 then
begin
This_Npc.NpcDialog(This_Player,
xColor+
'|<连续签到7天赠送100声望+2000元宝/fcolor='+inttostr(random(14)+242)+'>'+
'|<【当前开服第】:/c=103><'+inttostr(GameTime)+' /SCOLOR=254>天\'+
'|<【您当前灵符】:/c=103><'+inttostr(This_Player.MyLFnum)+' /SCOLOR=254>\'+
'|<【您当前声望】:/c=103><'+inttostr(This_Player.MyShengwan)+' /SCOLOR=254>\'+
'|<【您连续签到】:/c=103><'+inttostr(q1)+' /SCOLOR=254>天\'
+'|{cmd}<点击签到/@Libaoma1>\'
+'|{cmd}<灵符商城/@bangdin>\'
);
end;
if GetDayOfWeek = 2 then
begin
This_Npc.NpcDialog(This_Player,
xColor+
'|<连续签到7天赠送100声望+2000元宝/fcolor='+inttostr(random(14)+242)+'>'+
'|<【当前开服第】:/c=103><'+inttostr(GameTime)+' /SCOLOR=254>天\'+
'|<【您当前灵符】:/c=103><'+inttostr(This_Player.MyLFnum)+' /SCOLOR=254>\'+
'|<【您当前声望】:/c=103><'+inttostr(This_Player.MyShengwan)+' /SCOLOR=254>\'+
'|<【您连续签到】:/c=103><'+inttostr(q1)+' /SCOLOR=254>天\'
+'|{cmd}<点击签到/@Libaoma2>\'
+'|{cmd}<灵符商城/@bangdin>\'
);
end;
if GetDayOfWeek = 3 then
begin
This_Npc.NpcDialog(This_Player,
xColor+
'|<连续签到7天赠送100声望+2000元宝/fcolor='+inttostr(random(14)+242)+'>'+
'|<【当前开服第】:/c=103><'+inttostr(GameTime)+' /SCOLOR=254>天\'+
'|<【您当前灵符】:/c=103><'+inttostr(This_Player.MyLFnum)+' /SCOLOR=254>\'+
'|<【您当前声望】:/c=103><'+inttostr(This_Player.MyShengwan)+' /SCOLOR=254>\'+
'|<【您连续签到】:/c=103><'+inttostr(q1)+' /SCOLOR=254>天\'
+'|{cmd}<点击签到/@Libaoma3>\'
+'|{cmd}<灵符商城/@bangdin>\'
);
end;
if GetDayOfWeek = 4 then
begin
This_Npc.NpcDialog(This_Player,
xColor+
'|<连续签到7天赠送100声望+2000元宝/fcolor='+inttostr(random(14)+242)+'>'+
'|<【当前开服第】:/c=103><'+inttostr(GameTime)+' /SCOLOR=254>天\'+
'|<【您当前灵符】:/c=103><'+inttostr(This_Player.MyLFnum)+' /SCOLOR=254>\'+
'|<【您当前声望】:/c=103><'+inttostr(This_Player.MyShengwan)+' /SCOLOR=254>\'+
'|<【您连续签到】:/c=103><'+inttostr(q1)+' /SCOLOR=254>天\'
+'|{cmd}<点击签到/@Libaoma4>\'
+'|{cmd}<灵符商城/@bangdin>\'
);
end;
if GetDayOfWeek = 5 then
begin
This_Npc.NpcDialog(This_Player,
xColor+
'|<连续签到7天赠送100声望+2000元宝/fcolor='+inttostr(random(14)+242)+'>'+
'|<【当前开服第】:/c=103><'+inttostr(GameTime)+' /SCOLOR=254>天\'+
'|<【您当前灵符】:/c=103><'+inttostr(This_Player.MyLFnum)+' /SCOLOR=254>\'+
'|<【您当前声望】:/c=103><'+inttostr(This_Player.MyShengwan)+' /SCOLOR=254>\'+
'|<【您连续签到】:/c=103><'+inttostr(q1)+' /SCOLOR=254>天\'
+'|{cmd}<点击签到/@Libaoma5>\'
+'|{cmd}<灵符商城/@bangdin>\'
);
end;
if GetDayOfWeek = 6 then
begin
This_Npc.NpcDialog(This_Player,
xColor+
'|<连续签到7天赠送100声望+2000元宝/fcolor='+inttostr(random(14)+242)+'>'+
'|<【当前开服第】:/c=103><'+inttostr(GameTime)+' /SCOLOR=254>天\'+
'|<【您当前灵符】:/c=103><'+inttostr(This_Player.MyLFnum)+' /SCOLOR=254>\'+
'|<【您当前声望】:/c=103><'+inttostr(This_Player.MyShengwan)+' /SCOLOR=254>\'+
'|<【您连续签到】:/c=103><'+inttostr(q1)+' /SCOLOR=254>天\'
+'|{cmd}<点击签到/@Libaoma6>\'
+'|{cmd}<灵符商城/@bangdin>\'
);
end;
if GetDayOfWeek = 7 then
begin
This_Npc.NpcDialog(This_Player,
xColor+
'|<连续签到7天赠送100声望+2000元宝/fcolor='+inttostr(random(14)+242)+'>'+
'|<【当前开服第】:/c=103><'+inttostr(GameTime)+' /SCOLOR=254>天\'+
'|<【您当前灵符】:/c=103><'+inttostr(This_Player.MyLFnum)+' /SCOLOR=254>\'+
'|<【您当前声望】:/c=103><'+inttostr(This_Player.MyShengwan)+' /SCOLOR=254>\'+
'|<【您连续签到】:/c=103><'+inttostr(q1)+' /SCOLOR=254>天\'
+'|{cmd}<点击签到/@Libaoma7>\'
+'|{cmd}<灵符商城/@bangdin>\'
);
end;
if q1 >=7 then
begin
This_Npc.NpcDialog(This_Player,
xColor+
'|<连续签到7天赠送100声望+2000元宝/fcolor='+inttostr(random(14)+242)+'>'+
'|<【当前开服第】:/c=103><'+inttostr(GameTime)+' /SCOLOR=254>天\'+
'|<【您当前灵符】:/c=103><'+inttostr(This_Player.MyLFnum)+' /SCOLOR=254>\'+
'|<【您当前声望】:/c=103><'+inttostr(This_Player.MyShengwan)+' /SCOLOR=254>\'+
'|<【您连续签到】:/c=103><'+inttostr(q1)+' /SCOLOR=254>天\'
+'|{cmd}<连续签到7天领取奖励/@Libaoma9>\'
+'|{cmd}<点击签到/@Libaoma8>\'
+'|{cmd}<灵符商城/@bangdin>\'
);
end ;
end;
procedure _bangdin;
begin
This_Npc.NpcDialog(This_Player,
'您的当前灵符:<'+inttostr(This_Player.MyLFnum)+' /SCOLOR=254>\'
+'|您可以使用灵符购买下列物品'
+'|{cmd}<50灵符购买烟花/@b1> \'
+'|{cmd}<100灵符购买千里传音(大)/@b2>\'
+'|{cmd}<100灵符购买两倍卷轴/@b3>\'
+'|{cmd}<50灵符购买太阳水捆药绳/@b4>\'
+'|{cmd}<50灵符购买召唤强化卷/@b5>\'
+'|{cmd}<返回/@main>\'
);
end;