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

zpgame

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



{
*******************************************************************}
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;

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

jy003514

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

haidishayu

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

小斌

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

刀砍頭蓋骨

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

煙花煙花

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

Satan丶楓

微笑，是最美的陽光,。

kokaaa

微笑,，是最美的陽光。

葫蘆哥

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

聶何

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