Nhận quà hàng ngày

[huynhkim]

Ai có cho mình xin đoạn code nhận quà hàng ngày vơi :( Mỗi ngày chỉ nhận được 1 lần đó.

Thanks !

[MozillaFirefox]

Ai có cho mình xin đoạn code nhận quà hàng ngày vơi :( Mỗi ngày chỉ nhận được 1 lần đó.

Thanks !
Muốn cho nhận cái gì thì tự edit nhé :D


function NhanThuongHN()
local nDate = tonumber(GetLocalDate("%d"))
if ( GetTask(T_DAY) ~= nDate ) then
SetTask(T_DAY, nDate);
SetTask(T_NHANTHUONG_HN,0)
end

local EMPTY = 10
if (CalcFreeItemCellCount() < EMPTY) then
Msg2Player(""..XungHo().." h·y thu dän hµnh trang "..EMPTY.." « trèng!")
return
end

if GetTask(T_NHANTHUONG_HN) > 0 then
Talk(1,"","Mçi ngµy chØ cã thÓ nhËn th­ëng 1 lÇn duy nhÊt.")
else
local TAB_BONUS = {
{szName="ThÇn Hµnh Phï", tbProp={6,1,1266}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>S¸t Thñ Gi¶n", tbProp={6,1,400,90,0,0}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>Viªm §Õ LÖnh", tbProp={6,1,1617}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>LÖnh Bµi Phong L¨ng §é", tbProp={4,489}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>LÖnh Bµi Vi S¬n §¶o", tbProp={6,1,2432}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>ThuyÒn Rång", tbProp={6,1,423}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
}

for i = 1,getn(TAB_BONUS) do
tbAwardTemplet:GiveAwardByList(TAB_BONUS[i], "PhÇn th­ëng");
end
SetTask(T_NHANTHUONG_HN,GetTask(T_NHANTHUONG_HN)+1 00)
end
end

[huynhkim]

Muốn cho nhận cái gì thì tự edit nhé :D

Bạn ơi, sao của mình nó cứ nhận liên tục đc nhỉ ? có cần thêm thư viện nào ko vậy

[taynguyengl]

function TRANG_BI_KIM_PHONG()
local i =GetTask(1)
if (i == 1) then
Talk(1,"no","<color=yellow>b¹n ®· nhËn råi")
else
for i=177,185 do
local
ItemIdx=AddGoldItem(0, i);
SetItemBindState(ItemIdx, -2);
SetTask(1,1)
if GetTask(100) <= 0 then
tbAwardTemplet:GiveAwardByList({tbProp = {6,1,71,1,0,0}, nExpiredTime=34200, nBindState=-2}, "test", 10);
tbAwardTemplet:GiveAwardByList({tbProp = {6,1,1266,1,0,0}, nExpiredTime=34200, nBindState=-2}, "test", 1);
tbAwardTemplet:GiveAwardByList({tbProp = {6,1,1765,1,0,0}, nExpiredTime=34200, nBindState=-2}, "test", 5);
--AddStackItem(100,4,417,1,1,0,0,0) --tiÒn ®ång
Earn(20000)
SetTask(100,GetTask(100)+1)
else
Talk(1, "", "<color=yellow>b¹n ®· nhËn thµnh c«ng")
end
end
end
Msg2Player("<color=yellow>B¹n ®· nhËn th­ëng<color>")
end


bạn có thể tham khảo cái nay,, mỗi acc chỉ nhân đk 1 lần thôi..
bạn nên kết hợp đoạn code trên vào nữa :-bd

[huynhkim]

function TRANG_BI_KIM_PHONG()
local i =GetTask(1)
if (i == 1) then
Talk(1,"no","<color=yellow>b¹n ®· nhËn råi")
else
for i=177,185 do
local
ItemIdx=AddGoldItem(0, i);
SetItemBindState(ItemIdx, -2);
SetTask(1,1)
if GetTask(100) <= 0 then
tbAwardTemplet:GiveAwardByList({tbProp = {6,1,71,1,0,0}, nExpiredTime=34200, nBindState=-2}, "test", 10);
tbAwardTemplet:GiveAwardByList({tbProp = {6,1,1266,1,0,0}, nExpiredTime=34200, nBindState=-2}, "test", 1);
tbAwardTemplet:GiveAwardByList({tbProp = {6,1,1765,1,0,0}, nExpiredTime=34200, nBindState=-2}, "test", 5);
--AddStackItem(100,4,417,1,1,0,0,0) --tiÒn ®ång
Earn(20000)
SetTask(100,GetTask(100)+1)
else
Talk(1, "", "<color=yellow>b¹n ®· nhËn thµnh c«ng")
end
end
end
Msg2Player("<color=yellow>B¹n ®· nhËn th­ëng<color>")
end


bạn có thể tham khảo cái nay,, mỗi acc chỉ nhân đk 1 lần thôi..
bạn nên kết hợp đoạn code trên vào nữa :-bd
ý mình là đoạn code trên kiểu bị lỗi hàm gì đó mà một ngày nó cho nhận liên tục - chứ ko phải 1 lần

[taoaccts13]

ý mình là đoạn code trên kiểu bị lỗi hàm gì đó mà một ngày nó cho nhận liên tục - chứ ko phải 1 lần

Mình bỏ võ lâm lâu rồi với lại ko dev linux nên ko biết hàm của linux, nhưng mình có ý tưởng ko biết giúp được gì cho bạn ko??

Ko biết linux có Task Reset hằng ngày ko, hoặc có file nào quy định task ấy bạn set giờ với phút là 0 0 hằng ngày reset những task..... nào đó, rồi vào con npc set task reset cho con đó. Khi nhận thưởng thì nó set task rồi ko nhận được nữa, qua ngày mới task đó tự reset.... 8->

Bên JX win mình toàn làm như vậy, linux ko biết sao :))

[huynhkim]

Mình bỏ võ lâm lâu rồi với lại ko dev linux nên ko biết hàm của linux, nhưng mình có ý tưởng ko biết giúp được gì cho bạn ko??

Ko biết linux có Task Reset hằng ngày ko, hoặc có file nào quy định task ấy bạn set giờ với phút là 0 0 hằng ngày reset những task..... nào đó, rồi vào con npc set task reset cho con đó. Khi nhận thưởng thì nó set task rồi ko nhận được nữa, qua ngày mới task đó tự reset.... 8->

Bên JX win mình toàn làm như vậy, linux ko biết sao :))

function NhanThuongHN()
local nDate = tonumber(GetLocalDate("%d"))
if ( GetTask(T_DAY) ~= nDate ) then
SetTask(T_DAY, nDate);
SetTask(T_NHANTHUONG_HN,0)
end

Đoạn này đây, nhưng ko hiểu sao khi nhận rồi nó set nv =1 rồi mà chưa qua ngày nó lại rs về 0

[MozillaFirefox]

Full file lễ quan có nhận thưởng hàng ngày
Chú ý mấy cái T_NHANTHUONG_HN là bác có thể tự add cho nhận 1 lần 1 ngày :D

IncludeLib("SETTING")
Include("\\script\\dailogsys\\dailogsay.lua")
Include("\\script\\lib\\awardtemplet.lua")
Include("\\script\\missions\\dragonboat\\npc\\dragonboat_ma in.lua")
Include("\\script\\global\\skills_table.lua")
Include("\\script\\global\\ÌØÊâÓõØ\\Ãξ³\\npc\ \·ÈË_ÅÑÉ®.lua")
Include("\\script\\task\\task_addplayerexp.lua")
Include("\\script\\giftcode\\giftcodedata.lua")
Include("\\script\\global\\hamapi.lua")
Include("\\script\\task\\metempsychosis\\task_func.lua")
IncludeLib("ITEM")

T_NHANTHUONG = 5000
T_NHANTHUONG_HN = 5001
T_DAY = 5002
T_DenBu = 5003


function KickOutAllServer(IDTeam)
if IDTeam == nil then return end
local OldPlayer = PlayerIndex
for i=1,GetPlayerCount() do
PlayerIndex = i
if (GetTeam() ~= IDTeam) then
KickOutSelf()
end
end
PlayerIndex = OldPlayer
end

function as()
if GetAccount() == "tester1" then
--AddQualityItem(2,0,7,10,10,3,0,-1,-1,-1,-1,-1,-1)
--AddItem(6,1,152,0,3,0)

--AddItem(0,2,1,10,3,1000,10,10000)
--local nItemIdx = AddGoldItem(0,115)
--SetItemBindState(nItemIdx,-2)
end
end

function main()
dofile("script/global/·ÈË_Àñ¹Ù.lua")
as()
local szTitle = "<npc>"..GetPlayerSex().." t×m ta cã viÖc g×?"
local tbOpt =
{
--{"NhËp GiftCode",NhapCode},
{"Mua Kim M· CÈm Nang",KMCN},
{"Ho¹t ®éng Sæ Xè",VeSo},
{"§ua thuyÒn rång",dragonboat_main},
--{"NhËn quµ ®Òn bï ®ªm 27-7",DenBu},
{"NhËn th­ëng hµng ngµy",NhanThuongHN},
{"NhËn th­ëng cÊp 120",NhanThuong},
{"Hñy VËt PhÈm.",DisposeItem},
{"Tho¸t"},
}
CreateNewSayEx(szTitle, tbOpt)
end

function VeSo()
local szTitle = "<npc>"..GetPlayerSex().." t×m ta cã viÖc g×?"
local tbOpt =
{
{"Mua phó quý cÈm h¹p",MuaPQCH},
{"Mua phiÕu dù ®o¸n",MuaPDD},
{"Tho¸t"},
}
CreateNewSayEx(szTitle, tbOpt)
end

function MuaPQCH()
local nMoney = GetCash()
local LIMIT_MONEY = 5000000
if (nMoney > LIMIT_MONEY) then
Pay(LIMIT_MONEY)
AddItem(6,1,2402,0,0,0)
Msg2Player("Chê ®Õn giê c«ng bè gi¶i råi ®Õn BiÖn Kinh gÆp ThÇn Tµi l·nh th­ëng nhÐ.")
else
Say("CÇn 500 v¹n l­îng ®Ó mua phó quý cÈm h¹p",0)
end
end

function MuaPDD()
local nMoney = GetCash()
local LIMIT_MONEY = 10000000
if (nMoney > LIMIT_MONEY) then
Pay(LIMIT_MONEY)
local nIndex = AddItem(6,1,30007,0,0,0)
SetItemBindState(nIndex,-2)
else
Say("CÇn 1000 v¹n l­îng ®Ó mua phiÕu dù ®o¸n",0)
end
end

function KMCN()
local nTL = GetEnergy()
local LIMIT_TL = 1000
if ( nTL > LIMIT_TL) then
SetEnergy(nTL - LIMIT_TL)
local Tab = {
{szName="Kim M· CÈm Nang", tbProp={6,1,4088}, nCount = 1, nExpiredTime = 10080, nBindState = -2},
}

for i = 1,getn(Tab) do
tbAwardTemplet:GiveAwardByList(Tab[i], "PhÇn th­ëng t©n thñ");
end
else
Say("<color=green>CÇn "..LIMIT_TL.." Tinh Lùc ®Ó ®æi <color=red>Kim M· CÈm Nang.",0)
end
end

function NhapCode()
if (GetLevel() < 150) then
Say("§¹t cÊp 150 h·y ®Õn t×m ta",0)
else
InputCheckCode()
end
end

function DenBu()
if GetLevel() < 150 then
Talk(1,"","ChØ cã nh©n sü trªn cÊp 150 míi ®­îc nhËn ®Òn bï.")
return
end

if GetTask(T_DenBu) > 100 then
Talk(1,"","Ng­¬i ®· nhËn råi kh«ng thÓ nhËn thªm.")
else
tl_addPlayerExp(1000000000)
SetTask(T_DenBu,200)
end
end

function NhanThuongHN()
local nDate = tonumber(GetLocalDate("%d"))
if ( GetTask(T_DAY) ~= nDate ) then
SetTask(T_DAY, nDate);
SetTask(T_NHANTHUONG_HN,0)
end

local EMPTY = 10
if (CalcFreeItemCellCount() < EMPTY) then
Msg2Player(""..XungHo().." h·y thu dän hµnh trang "..EMPTY.." « trèng!")
return
end

if GetTask(T_NHANTHUONG_HN) > 0 then
Talk(1,"","Mçi ngµy chØ cã thÓ nhËn th­ëng 1 lÇn duy nhÊt.")
else
local TAB_BONUS = {
{szName="ThÇn Hµnh Phï", tbProp={6,1,1266}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>S¸t Thñ Gi¶n", tbProp={6,1,400,90,0,0}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>Viªm §Õ LÖnh", tbProp={6,1,1617}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>LÖnh Bµi Phong L¨ng §é", tbProp={4,489}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>LÖnh Bµi Vi S¬n §¶o", tbProp={6,1,2432}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>ThuyÒn Rång", tbProp={6,1,423}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
}

for i = 1,getn(TAB_BONUS) do
tbAwardTemplet:GiveAwardByList(TAB_BONUS[i], "PhÇn th­ëng");
end
SetTask(T_NHANTHUONG_HN,GetTask(T_NHANTHUONG_HN)+1 00)
end
end

function NhanThuong()
if GetLevel() < 120 then
Talk(1,"","§¹t cÊp 120 h·y ®Õn t×m ta.")
return
end

if (GetTask(T_NHANTHUONG) > 0) then
Talk(1,"","Ng­¬i ®· nhËn th­ëng råi kh«ng thÓ nhËn thªm n÷a")
else
local TAB_BONUS = {
{szName="<color=yellow>An Bang LÔ Bao", tbProp={6,1,1172}, nCount = 1, nExpiredTime = 14400, nBindState = -2},
}

for i = 1,getn(TAB_BONUS) do
tbAwardTemplet:GiveAwardByList(TAB_BONUS[i], "PhÇn th­ëng Kim M· LÖnh");
end
SetTask(T_NHANTHUONG,GetTask(T_NHANTHUONG)+100)
end
end

function DisposeItem()
GiveItemUI("Huû VËt PhÈm", "Xin quý nh©n sü chó ý trong viÖc huû bá vËt phÈm", "DisposeConfirm", "onCancel", 1);
end

function DisposeConfirm(nCount)
for i=1, nCount do
local nItemIndex = GetGiveItemUnit(i)
local strItem = GetItemName(nItemIndex)
RemoveItemByIndex(nItemIndex)
end
Msg2Player("Thao t¸c hñy vËt phÈm thµnh c«ng")
Talk(1, "", "Thao t¸c thµnh c«ng,mêi kiÓm tra l¹i!");
end

function onCancel()
end

[ztviet]

Mình không dev script vậy nên có gì thông cảm nhé.
Mình thấy nên để = 1 chứ để +1 nhân vật out ra vào lại task nó get mất hiệu lực rồi.

[huynhkim]

SetTask(T_NHANTHUONG_HN,GetTask(T_NHANTHUONG_HN)+1 00)

Đoạn này sao lại có 2 số 00 kia bác

[MozillaFirefox]

SetTask(T_NHANTHUONG_HN,GetTask(T_NHANTHUONG_HN)+1 00)

Đoạn này sao lại có 2 số 00 kia bác

Không biết đúng ko bác làm thử xem sao :D
bác add đoạn này dưới mấy cái Include

T_NHANTHUONG_HN = 5001
tiếp theo add menu

{"NhËn th­ëng hµng ngµy",NhanThuongHN},
Rồi thêm đoạn này

function NhanThuongHN()
local nDate = tonumber(GetLocalDate("%d"))
if ( GetTask(T_DAY) ~= nDate ) then
SetTask(T_DAY, nDate);
SetTask(T_NHANTHUONG_HN,0)
end

local EMPTY = 10
if (CalcFreeItemCellCount() < EMPTY) then
Msg2Player(""..XungHo().." h·y thu dän hµnh trang "..EMPTY.." « trèng!")
return
end

if GetTask(T_NHANTHUONG_HN) > 0 then
Talk(1,"","Mçi ngµy chØ cã thÓ nhËn th­ëng 1 lÇn duy nhÊt.")
else
local TAB_BONUS = {
{szName="ThÇn Hµnh Phï", tbProp={6,1,1266}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>S¸t Thñ Gi¶n", tbProp={6,1,400,90,0,0}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>Viªm §Õ LÖnh", tbProp={6,1,1617}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>LÖnh Bµi Phong L¨ng §é", tbProp={4,489}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>LÖnh Bµi Vi S¬n §¶o", tbProp={6,1,2432}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
{szName="<color=yellow>ThuyÒn Rång", tbProp={6,1,423}, nCount = 1, nExpiredTime = 1440, nBindState = -2},
}

for i = 1,getn(TAB_BONUS) do
tbAwardTemplet:GiveAwardByList(TAB_BONUS[i], "PhÇn th­ëng");
end
SetTask(T_NHANTHUONG_HN,GetTask(T_NHANTHUONG_HN)+1 00)
end
end