戰(zhàn)神引擎 每日免費(fèi)領(lǐng)取3次經(jīng)驗(yàn)修改手游腳本

zpgame

每個(gè)玩家,，每天免費(fèi)領(lǐng)取三次經(jīng)驗(yàn)?zāi)_本，是從手游服務(wù)端里面提取出來的,，經(jīng)過測(cè)試，領(lǐng)取三次之后，就無法重復(fù)領(lǐng)取,，腳本測(cè)試過程中，沒有發(fā)現(xiàn)任何問題,，領(lǐng)取的經(jīng)驗(yàn)和次數(shù),，都可以在腳本里面修改。



{
*******************************************************************}
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í)切記寫在初始化之后
    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萬點(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;

begin//主函數(shù)入口
    This_NPC.NpcDialog(This_Player,
    '玩家每天可免費(fèi)領(lǐng)取3次經(jīng)驗(yàn),，每次可領(lǐng)取100萬'
    +'|{cmd}<免費(fèi)經(jīng)驗(yàn)領(lǐng)取 getfreeexp="">');
end.

jy003514

謝謝樓主，樓主辛苦了,，好人一生平安,！

haidishayu

語言無法表達(dá)此刻心情，鍵盤敲起66666

小斌

沒有創(chuàng)造的生活不能算生活,，只是活著,！

刀砍頭蓋骨

一切都會(huì)好起來的，即使不會(huì)是在今天,，但總有一天會(huì)的,。

煙花煙花

一切都會(huì)好起來的，即使不會(huì)是在今天,，但總有一天會(huì)的,。

Satan丶楓

微笑，是最美的陽光,。

kokaaa

微笑,，是最美的陽光。

葫蘆哥

戰(zhàn)神引擎 每日免費(fèi)領(lǐng)取3次經(jīng)驗(yàn)修改手游腳

聶何

語言無法表達(dá)此刻心情,，鍵盤敲起66666