Hỏi về event trồng cây jx ATN

[lzlsky301]

Cái đó mình cũng biết làm, cùng lắm sửa cái sky kia thành 1000 cũng đc ko cần thêm dấu -- vào :3

Qua ngày mới nó ko update, cái đó mới là vấn đề

--- Chế độ gộp bài viết ---



Chỉ em với mod .

Thì tìm hảm Update ngày mới

[Sesshomaru]

Một cách là tìm hàm update ngày của hệ thống.
Cách khác là đặt thêm 1 task nữa.Ví dụ task trồng cây là 250.Đặt thêm 1 task là 251.
Task này dùng để đếm ngày

local nToDay = Hàm lấy ngày trong jx
if GetTask(251) < nToDay then --nToDay là hàm lấy ngày theo jx(cái này mình ko biết nên tự tìm)

SetTask(251,nToDay);
SetTask(250,0);
end 

Đặt đoạn trên sau cái function main() là được

Hàm trên có nghĩa là khi bạn khởi động main()
nó sẽ kiểm tra giá trị Task 251.Nếu Task nhỏ hơn ngày hôm nay thì sẽ Set lại task 251 giá trị ngày hôm nay.Đồng thời set task trồng cây về giá trị 0.
Ví dụ hôm nay có giá trị 1000.
Khi qua ngày mai thì giá trị ToDay sẽ là 1001.
Task 251 = 1000 < 1001 nên sẽ tiếp tục vòng lặp Set Task 251 giá trị 1001. SetTask 250 giá trị 0.
Qua ngày mai giá trị ngày là 1002 thì nó lại thực hiện hàm này.Nếu trong ngày thì ko thực hiện

[MinYeuVy]

Cái đó mình cũng biết làm, cùng lắm sửa cái sky kia thành 1000 cũng đc ko cần thêm dấu -- vào :3

Qua ngày mới nó ko update, cái đó mới là vấn đề

--- Chế độ gộp bài viết ---



Chỉ em với mod .

Ý bạn muốn làm sao nhỉ? Nếu muốn qua ngày nó tự reset thì thêm vô timerserver

function updateNgay()
local nNgay_Thang_Nam = tonumber(date("%d%m%y"))
if (GetTask(T_LuuNgayThangNam) ~= nNgay_Thang_Nam) then
SetTask(T_TrongCayTN,0)
SetTask(T_LuuNgayThangNam, nNgay_Thang_Nam)
end
end

[HoangTVT]

Tới đó thì chưa đủ, cần thêm check ngày ở script online nhân vật nữa, bởi vì timer kia chỉ tác dụng vs player đang online thôi.

[taoaccts13]

Cảm ơn mấy bạn + mod nha, nhiệt tình quá :X để mình thêm vô rồi chờ qua 12h xem sao ^m^

[taoaccts13]

Mình làm theo hướng dẫn của mod, ko biết viết như vậy đúng ko nhỉ

-- Author: ATNTem
-- Date: TienThaoLo/01/13
-- Script vat pham tien thao lo 1
Include("\\script\\global\\sourceatn.lua")
Include("\\script\\global\\tasklist.lua")


function main()
	local nToDay = nNgay
	if GetTask(T_TrongCayN) < nToDay then
	SetTask(T_TrongCayN,nToDay)
	SetTask(T_TrongCayTN,0)
	end
	local T_TrongCay = 9
	local ThungNuoc = 130
	local eHeo = GetEventItemCount(ThungNuoc)
	local aHeo = GetTaskTemp(TMP_TRONGCAY)
	if (aHeo == 0) and (GetLevel() < 200) then
		if (GetFightState() == 0) then
			SetTask(T_TrongCayTN,GetTask(T_TrongCayTN) + 1)
			local aSky = GetTask(T_TrongCayTN)
			if (aSky < 10) then
				if (eHeo >= 1) then
						DelEventItem(ThungNuoc)
						if (GetEventItemCount(ThungNuoc) == (eHeo - 1)) then
							local nW, nX, nY = GetWorldPos()
							npcmapindex= SubWorldID2Idx(nW)  
							local nPosx = nX * 32
							local nPosy = nY * 32
							SetTaskTemp(TMP_TOADOX,nX)
							SetTaskTemp(TMP_TOADOY,nY)
							local HatHoaHong = AddObj(470, npcmapindex, nPosx, nPosy,32, 1, "\\script\\event\\trongcay\\mamcay.lua");
							SetTaskTemp(TMP_GiaiDoan,1)
							SetTaskTemp(TMP_TRONGCAY,1)
							SetTaskTemp(TMP_INDEXTC,HatHoaHong)
							SetTimer(18*5,T_TrongCay)
							return
						end
				end
			else
				Msg2Player("H«m nay b¹n ®· trång 10 c©y råi, ngµy mai h·y tiÕp tôc")
				return
			end
		else
			Msg2Player("Khu vùc chiÕn ®Êu kh«ng thÓ trång c©y")
			return
		end
	else
		Msg2Player("B¹n ®ang trång v©y råi, h·y ch¨m sãc cho thËt tèt.")
		return
	end
end

[azurciel79]

Sửa chút như này nhé

-- Author: ATNTem
-- Date: TienThaoLo/01/13
-- Script vat pham tien thao lo 1
Include("\\script\\global\\sourceatn.lua")
Include("\\script\\global\\tasklist.lua")


function main()
	local nToDay = tonumber(date("%d%m%y"))
	if GetTask(T_TrongCayN) ~= nToDay then
	       SetTask(T_TrongCayN,nToDay)
	       SetTask(T_TrongCayTN,0)
	end
	local T_TrongCay = 9
	local ThungNuoc = 130
	local eHeo = GetEventItemCount(ThungNuoc)
	local aHeo = GetTaskTemp(TMP_TRONGCAY)
	if (aHeo == 0) and (GetLevel() < 200) then
		if (GetFightState() == 0) then
			SetTask(T_TrongCayTN,GetTask(T_TrongCayTN) + 1)
			local aSky = GetTask(T_TrongCayTN)
			if (aSky < 10) then
				if (eHeo >= 1) then
						DelEventItem(ThungNuoc)
						if (GetEventItemCount(ThungNuoc) == (eHeo - 1)) then
							local nW, nX, nY = GetWorldPos()
							npcmapindex= SubWorldID2Idx(nW)  
							local nPosx = nX * 32
							local nPosy = nY * 32
							SetTaskTemp(TMP_TOADOX,nX)
							SetTaskTemp(TMP_TOADOY,nY)
							local HatHoaHong = AddObj(470, npcmapindex, nPosx, nPosy,32, 1, "\\script\\event\\trongcay\\mamcay.lua");
							SetTaskTemp(TMP_GiaiDoan,1)
							SetTaskTemp(TMP_TRONGCAY,1)
							SetTaskTemp(TMP_INDEXTC,HatHoaHong)
							SetTimer(18*5,T_TrongCay)
							return
						end
				end
			else
				Msg2Player("H«m nay b¹n ®· trång 10 c©y råi, ngµy mai h·y tiÕp tôc")
				return
			end
		else
			Msg2Player("Khu vùc chiÕn ®Êu kh«ng thÓ trång c©y")
			return
		end
	else
		Msg2Player("B¹n ®ang trång v©y råi, h·y ch¨m sãc cho thËt tèt.")
		return
	end
end

[taoaccts13]

Sửa chút như này nhé

Thanks ạ ^^ , mình mới tập tành dev VL đc gần 2 tháng thôi nên còn gà mờ

Tạm thời hết lỗi nhưng chưa biết có reset đc chưa nữa, đợi qua 12h vậy

[taoaccts13]

@azurciel79 : thanks bác, chuẩn luôn )

[azurciel79]

@azurciel79 : thanks bác, chuẩn luôn )

Trong script sourceatn.lua hình như có hàm UpdateNgay đó thớt