Kết quả 1 đến 9 của 9
Chủ đề: Ai sửa cái script dùm mình
-
06-03-11, 03:15 PM #1
Ai sửa cái script dùm mình
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
Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
07-03-11, 06:27 AM #2
- Ngày tham gia
- May 2009
- Đang ở
- TP HCM
- Bài viết
- 344
- Thanks
- 76
- Thanked 317 Times in 73 Posts
Ðề: Ai sửa cái script dùm mình
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 )
-
07-03-11, 04:14 PM #3
Ðề: Ai sửa cái script dùm mình
k ai giúp hết à
Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
07-03-11, 10:14 PM #4
- Ngày tham gia
- May 2009
- Đang ở
- TP HCM
- Bài viết
- 344
- Thanks
- 76
- Thanked 317 Times in 73 Posts
Ðề: Ai sửa cái script dùm mình
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
-
11-03-11, 09:50 PM #5
- Ngày tham gia
- Apr 2008
- Đang ở
- HCM
- Bài viết
- 546
- Thanks
- 9
- Thanked 82 Times in 27 Posts
Ðề: Ai sửa cái script dùm mình
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
-
11-03-11, 11:45 PM #6
- Ngày tham gia
- May 2009
- Đang ở
- TP HCM
- Bài viết
- 344
- Thanks
- 76
- Thanked 317 Times in 73 Posts
Ðề: Ai sửa cái script dùm mình
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 á
-
13-03-11, 01:48 PM #7
- Ngày tham gia
- May 2009
- Đang ở
- TP HCM
- Bài viết
- 344
- Thanks
- 76
- Thanked 317 Times in 73 Posts
Ðề: Ai sửa cái script dùm mình
Hôm nay rãnh đc vài fút viết dùm nè :
Code: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ác thành viên gởi lời cảm ơn đến kidcrazy187 vì bài viết này !
benop001 (13-03-11)
-
13-03-11, 02:57 PM #8
Ðề: Ai sửa cái script dùm mình
Code: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
Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
13-03-11, 03:07 PM #9
- Ngày tham gia
- May 2009
- Đang ở
- TP HCM
- Bài viết
- 344
- Thanks
- 76
- Thanked 317 Times in 73 Posts
Ðề: Ai sửa cái script dùm mình
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
-
Các thành viên gởi lời cảm ơn đến kidcrazy187 vì bài viết này !
benop001 (13-03-11)
Các Chủ đề tương tự
-
Một số script trong thư mục script Vina (unpack)
Bởi sangpronhat trong diễn đàn ScriptsTrả lời: 19Bài viết cuối: 26-11-11, 08:12 AM -
Script Ủy Thác Rời Mạng
Bởi Mr.Rezo™ trong diễn đàn ScriptsTrả lời: 24Bài viết cuối: 10-06-10, 11:49 AM