{
*******************************************************************}
Program Mir2;
Procedure _doexit;
begin
This_NPC.CloseDialog(This_Player);
end;
//==============================================================新手任務(wù)
procedure _GetFreeExp;
var today , num: integer;
begin
today := GetDateNum(GetNow);// 獲取當(dāng)前日期
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ù),，**取值時(shí)切記寫(xiě)在初始化之后
if num < 3 then
begin
This_Player.Give('經(jīng)驗(yàn)',1000000);
This_Player.SetV(13,2, num + 1); //領(lǐng)取變量每領(lǐng)取一次加一
This_NPC.NpcDialog(This_Player,
'恭喜你獲得100萬(wàn)點(diǎn)經(jīng)驗(yàn)值'
+'|{cmd}<繼續(xù)領(lǐng)取經(jīng)驗(yàn) getfreeexp="">');
end else
This_NPC.NpcDialog(This_Player,'你今天已領(lǐng)取了3次經(jīng)驗(yàn)');
end;