{
*******************************************************************}
Program Mir2;
Procedure _doexit;
begin
This_NPC.CloseDialog(This_Player);
end;
//==============================================================新手任務(wù)
procedure _GetFreeExp;
var today , num: integer;
begin
today := GetDateNum(GetNow);// 獲取當前日期
if This_Player.GetV(13,1) <> today then
begin
This_Player.SetV(13,1,today);
This_Player.SetV(13,2,0);
end;
//初始化變量值，每天首次觸發(fā)，將領(lǐng)取變量設(shè)置為0
num := This_Player.GetV(13,2); //獲取已領(lǐng)取次數(shù)，**取值時切記寫在初始化之后
if num < 3 then
begin
This_Player.Give('經(jīng)驗',1000000);
This_Player.SetV(13,2, num + 1); //領(lǐng)取變量每領(lǐng)取一次加一
This_NPC.NpcDialog(This_Player,
'恭喜你獲得100萬點經(jīng)驗值'
+'|{cmd}<繼續(xù)領(lǐng)取經(jīng)驗 getfreeexp="">');
end else
This_NPC.NpcDialog(This_Player,'你今天已領(lǐng)取了3次經(jīng)驗');
end;