Ai sửa cái script dùm mình

[benop001]

function main()
pt = random(1,250)
if (pt == 101) then
c = random(0,100)
if c == 0 then
AddItem(0,9,20,1,z,0,10)
Msg2Player("Chuc Mung Ban Nhan Duoc 1 Mon Trang Bi Vo Danh !")
elseif c == 1 then
AddItem(0,4,20,1,z,0,10)
Msg2Player("Chuc Mung Ban Nhan Duoc 1 Mon Trang Bi Vo Danh !")
elseif c == 2 then
AddItem(0,3,21,1,z,0,10)
Msg2Player("Chuc Mung Ban Nhan Duoc 1 Mon Trang Bi Vo Danh !")
elseif c == 3 then
AddItem(0,3,21,2,z,0,10)
Msg2Player("Chuc Mung Ban Nhan Duoc 1 Mon Trang Bi Vo Danh !")
else
AddOwnExp(500000)
Msg2Player("Chuc Mung Ban Nhan Duoc 500k EXP !")
end
elseif (pt == 200) then
z = random(0,31)
AddEventItem(z)
Msg2Player("Ban Nhan Duoc 1 Vat Pham Xin Chuc Mung !")
else
Earn(10000)
AddOwnExp(500000)
Msg2Player("Ban Nhan Duoc 1 Van Va 500k Exp Xin Chuc Mung !")
end
end



Pro nào giúp mình cái này 15' nói chuyện 1 lần dc ko :(

[kidcrazy187]

Cái nì dùng auto click thế nào cũng ra trang bị Vô Danh =)) , không thì lên cấp và tiền vù vù ;)) ... k có hàm liên quan thời gian sao chặn 15' đc ;))
P/S: SetTimer chạy file *.lua này cho đơn giản. Không thì dùng mảng thời gian ( => dài )

[benop001]

k ai giúp hết à :(

[kidcrazy187]

k ai giúp hết à :(
Xài hàm SetTimer hoặc là tonumber chuyển giờ,phút,giây gì đó rồi tạo 1 cái mảng (mảng dài hoặc rút gọn tùy cách lập trình) kết hợp với if ... then ...
P/S : Xem thêm mấy cái trong script tống kim của mấy server share đó, rùi chế ra :T

[sangpronhat]

Không cần dùng SetTimer đâu :) chỉ tiêu tiết kiệm mà ^^ !!
Theo tôi thì bạn cho 1 cái hàm cộng giờ giống của Ủy thác nhé

phut=tonumber(date("%M"))
ìf GetMissionV(ID)<>0 then
if phut-GetMissionV(ID) >= 15 then
SetMissionV(ID,0)
end
else
--Thực hiện lện main
SetMissionV(ID,phut)
end

[kidcrazy187]

Không cần dùng SetTimer đâu :) chỉ tiêu tiết kiệm mà ^^ !!
Theo tôi thì bạn cho 1 cái hàm cộng giờ giống của Ủy thác nhé

phut=tonumber(date("%M"))
ìf GetMissionV(ID)<>0 then
if phut-GetMissionV(ID) >= 15 then
SetMissionV(ID,0)
end
else
--Thực hiện lện main
SetMissionV(ID,phut)
end
Cái này mình thấy vẫn chưa ổn, SetMissionV(ID,phut) nằm đó thì cái Get với cái phút cứ tăng theo nhau ko >= 15 đc => chạy main hoài. (Tui sai thì bỏ qua nha :| )
-- Dùng While ... do ... đi, chắc gọn hơn nữa á :D

[kidcrazy187]

Hôm nay rãnh đc vài fút viết dùm nè :


TaskNhanThuong = 70 -- Thí dụ 70 chẳng hạn

function main()
tgnt = 15 -- Thời gian nhận thưởng tính bằng phút
phut = tonumber(date("%M"))
tam = mod(phut,tgnt)
pcl = abs(tgnt - tam)
if tam == 0 then
if GetTask(TaskNhanThuong) == 0 then
nhanquatang() -- Tui lấy đại tên ví dụ
else Say("<color="..colorS()..">Nhan Thuong<color> : Ban da nhan thuong roi nen khong the nhan thuong duoc nua !",0,"")
end
else
Say("<color="..colorS()..">Nhan Thuong<color> : Sau <color=red>"..pcl.."<color> phut hay quay lai nhe !",0,"")
SetTask(TaskNhanThuong,0)
end
end

function nhanquatang() -- Cái này là cái hàm main của chủ topic đó
SetTask(TaskNhanThuong,1) -- Trước khi vào hàm thêm dòng này
-- Thực hiện hàm
endVề test thử coi :)

[benop001]

TaskNhanThuong = 70 -- Thí dụ 70 chẳng hạn

function main()
tgnt = 15 -- Thời gian nhận thưởng tính bằng phút
phut = tonumber(date("%M"))
tam = mod(phut,tgnt)
pcl = abs(tgnt - tam)
if tam == 0 then
if GetTask(TaskNhanThuong) == 0 then
nhanquatang() -- Tui lấy đại tên ví dụ
else Say("<color="..colorS()..">Nhan Thuong<color> : Ban da nhan thuong roi nen khong the nhan thuong duoc nua !",0,"")
end
else
Say("<color="..colorS()..">Nhan Thuong<color> : Sau <color=red>"..pcl.."<color> phut hay quay lai nhe !",0,"")
SetTask(TaskNhanThuong,0)
end
end

function nhanquatang() -- Cái này là cái hàm main của chủ topic đó
SetTask(TaskNhanThuong,1) -- Trước khi vào hàm thêm dòng này
-- Thực hiện hàm
end

cái này đễ Include ra à hay thêm vào ~_~

[kidcrazy187]

Trời =,=
- Include thêm cái file sourcejx49.lua là đc rồi.
- Cái mình viết là theo yêu cầu của bạn là 15' thực hiện hàm của bạn đó. Bạn thích để vào đâu tùy bạn chứ =,= Mình chú thích, đổi màu mè tùm lum cho dễ nhìn rùi đó =,=
Xài đc thì Thanks cái :D