Kết quả 1 đến 10 của 22
Chủ đề: Script ủy thác rời mạng.
-
23-03-09, 06:44 PM #1
Script ủy thác rời mạng.
Spit ủy thác rời mạng:
Code:function main(sel) Say("<color=green>Uy Thac<color> co the doi mang, hoac o tren mang van nhan duoc <color=yellow>Thoi Gian Tich Luy Uy Thac.",5,"1.Bat dau Uy Thac/bdut","2.Dung Uy Thac/dut","3.Kiem tra thoi gian tich luy Uy Thac/kttgtlut","4.Doi kinh nghiem, diem uy thac/dkndut","Ta chi ghe tham thoi/no") end end; function bdut() x = { {1,{0}}, {2,{0,31}}, {3,{0,31,29}}, {4,{0,31,29,31}}, {5,{0,31,29,31,30}}, {6,{0,31,29,31,30,31}}, {7,{0,31,29,31,30,31,30}}, {8,{0,31,29,31,30,31,30,31}}, {9,{0,31,29,31,30,31,30,31,31}}, {10,{0,31,29,31,30,31,30,31,31,30}}, {11,{0,31,29,31,30,31,30,31,31,30,31}}, {12,{0,31,29,31,30,31,30,31,31,30,31,30}}, } if (GetTask(60) == 0) then SetTask(60,100000) ngay = tonumber(date("%d")) thang = tonumber(date("%m")) gio = tonumber(date("%H")) phut = tonumber(date("%M")) y = 0 for i=1,thang do y =(x[thang][2][i] * 24 * 60) + y end batdau = phut + (gio * 60) + (ngay * 24 * 60) + y SetTask(61,batdau) Msg2Player("Ban da bat dau thoi gian Uy Thac") else Talk(1,"","Ban dang trong trang thai <color=red>Uy Thac<color>, khong the lua chon bat dau uy thac") end end; function dut() x = { {1,{0}}, {2,{0,31}}, {3,{0,31,29}}, {4,{0,31,29,31}}, {5,{0,31,29,31,30}}, {6,{0,31,29,31,30,31}}, {7,{0,31,29,31,30,31,30}}, {8,{0,31,29,31,30,31,30,31}}, {9,{0,31,29,31,30,31,30,31,31}}, {10,{0,31,29,31,30,31,30,31,31,30}}, {11,{0,31,29,31,30,31,30,31,31,30,31}}, {12,{0,31,29,31,30,31,30,31,31,30,31,30}}, } if (GetTask(60) == 100000) then SetTask(60,0) ngay = tonumber(date("%d")) thang = tonumber(date("%m")) gio = tonumber(date("%H")) phut = tonumber(date("%M")) y = 0 for i=1,thang do y = (x[thang][2][i] * 24 * 60) + y end batdau = GetTask(61) ketthuc = phut + (gio * 60) + (ngay * 24 * 60) + y tgtlut = ketthuc - batdau SetTask(62,GetTask(62)+tgtlut) SetTask(61,0) Msg2Player("Ban da ket thuc thoi gian Uy Thac") else Talk(1,"","Ban khong o trong trang thai <color=red>Uy Thac<color>, khong the chon dung Uy Thac") end end; function no() end; function kttgtlut() tgtlut = GetTask(62) Msg2Player("Thoi gian Uy Thac tich luy Uy Thac cua ban hien gio la "..tgtlut.." phut") end; function dkndut() Say("De doi kinh nghiem, diem tu thoi gian <color=green>Tich Luy Uy Thac<color> ban can co <color= yellow>Lenh Bai Uy Thac<color>, tuy lenh bai se nhan duoc kinh nghiem, diem khac nhau",3,"Lenh Bai Uy Thac Thuong/lbutt","Lenh Bai Uy Thac Sieu Cap/lbutsc","Ta chi ghe tham thoi/no") end; function lbutsc() Say("<color=green>Lenh Bai Uy Thac Sieu Cap<color> ban <color=yellow>Intem",1,"Ta biet roi/no") end; function lbutt() Say("Su dung moi <color=green>Lenh Bai Uy Thac Thuong<color>, ban co the doi duoc 8 gio tich luy uy thac ra diem, kinh nghiem, nguoi <color=yellow>Mua Intem cua sever<color> se nhan duoc kinh nghiem, diem gap 1,5 lan",2,"Su dung lenh bai/sdlb1","Ta chi ghe tham thoi/no") end; function sdlb1() lvknnd = { {60,300000}, {80,600000}, {100,800000}, {120,1000000}, {150,2400000}, {160,3600000}, {180,4500000}, {200,6000000}, } if (GetLevel() >= 50) then if (GetTask(62) >= 480) then if (HaveItem(235) == 1) then if (GetTask(237) == 100000) then utit = 3/2 else utit = 1 end if (GetLevel() <= lvknnd[1][1]) then SetTask(62,GetTask(62) - 480) DelItem(235) knyt = lvknnd[1][2] * utit for i=1,480 do AddOwnExp(knyt) end elseif (GetLevel() <= lvknnd[2][1]) then SetTask(62,GetTask(62) - 480) DelItem(235) knyt = lvknnd[2][2] * utit for i=1,480 do AddOwnExp(knyt) end elseif (GetLevel() <= lvknnd[3][1]) then SetTask(62,GetTask(62) - 480) DelItem(235) knyt = lvknnd[3][2] * utit for i=1,480 do AddOwnExp(knyt) end elseif (GetLevel() <= lvknnd[4][1]) then SetTask(62,GetTask(62) - 480) DelItem(235) knyt = lvknnd[4][2] * utit for i=1,480 do AddOwnExp(knyt) end elseif (GetLevel() <= lvknnd[5][1]) then SetTask(62,GetTask(62) - 480) DelItem(235) knyt = lvknnd[5][2] * utit for i=1,480 do AddOwnExp(knyt) end elseif (GetLevel() <= lvknnd[6][1]) then SetTask(62,GetTask(62) - 480) DelItem(235) knyt = lvknnd[6][2] * utit for i=1,480 do AddOwnExp(knyt) end elseif (GetLevel() <= lvknnd[7][1]) then SetTask(62,GetTask(62) - 480) DelItem(235) knyt = lvknnd[7][2] * utit for i=1,480 do AddOwnExp(knyt) end elseif (GetLevel() <= lvknnd[8][1]) then SetTask(62,GetTask(62) - 480) DelItem(235) knyt = lvknnd[8][2] * utit for i=1,480 do AddOwnExp(knyt) end end else Talk(1,"","Ban khong co <color=red>Lenh Bai Uy Thac Thuong<color>") end else Talk(1,"","Ban khong du <color=red>8 gio Tich Luy Uy Thac<color>") end else Talk(1,"","Ban khong du <color=red>dang cap 50<color>") end end;
Mấy cái vật phẩm Lệnh Bài các bạn add ra là được, cho vào 1 con NPC bán lệnh bài luôn.
Mình viết cái này chỉ ủy thác trong năm thôi còn nếu thích ủy thác qua năm khác thì viết thêm năm nữa là ok thôi (cái này nếu để NV ủy thác qua gia thừa là lỗi ngay đó)Lần sửa cuối bởi Se7eN747, ngày 29-05-09 lúc 04:48 PM.
VLTK, huyền thoại sẽ trở lại...
-
23-03-09, 06:58 PM #2
-
24-03-09, 01:35 AM #3
Ðề: Spit ủy thác rời mạng.
lâu ngày , giờ anh em cũng phát triển đến cái này lun, bái phục
Khách viếng thăm hãy cùng SaoPaulo1 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
24-03-09, 10:53 AM #4
Ðề: Spit ủy thác rời mạng.
Thực ra không có gì đâu bạn, tính thời gian bạt đầu ủy thác, và thời gian chọn kết thúc ủy thác thôi, vì thời gian ở máy tính có giờ, phút ,giây, ngày, tháng, năm, để cho đòng nhất thì đổi thời gian ra phút thôi, 1 năm có tầm 12*30*24*60 phút. Thực ra không biết nhiều lệnh phải lươn lẹo cách này.
Cho hỏi có lệnh nào khiến khi mình giết ai đó là tăng điểm gì đó không, giờ chỉ biết spit đơn giản thôi. Biết chỉ mình nhé.VLTK, huyền thoại sẽ trở lại...
-
24-03-09, 11:35 AM #5
- Ngày tham gia
- Jun 2008
- Đang ở
- the library of jx & mu
- Bài viết
- 257
- Thanks
- 29
- Thanked 17 Times in 11 Posts
Ðề: Spit ủy thác rời mạng.
Cái này mình thấy na ná sciprt cắn cháo lạp bát ấy nhỉ ( nhưng là rời mạng ). Đã test thử
-
24-03-09, 11:38 AM #6
Ðề: Spit ủy thác rời mạng.
x = {
{1,{0}},
{2,{0,31}},
{3,{0,31,29}},
{4,{0,31,29,31}},
{5,{0,31,29,31,30}},
{6,{0,31,29,31,30,31}},
{7,{0,31,29,31,30,31,30}},
{8,{0,31,29,31,30,31,30,31}},
{9,{0,31,29,31,30,31,30,31,31}},
{10,{0,31,29,31,30,31,30,31,31,30}},
{11,{0,31,29,31,30,31,30,31,31,30,31}},
{12,{0,31,29,31,30,31,30,31,31,30,31,30}},
}
x={{},{},{}} thì mình ko hiểu lắmKhách viếng thăm hãy cùng hongtu1 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
24-03-09, 05:50 PM #7
- Ngày tham gia
- Sep 2006
- Bài viết
- 71
- Thanks
- 2
- Thanked 38 Times in 8 Posts
Ðề: Spit ủy thác rời mạng.
Sau khi mình chọn ủy thác rồi có thể out ra được hả. Hay là phải online mới nhận được điểm kinh nghiệm.
Khách viếng thăm hãy cùng bacnam7287 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
24-03-09, 06:57 PM #8
Ðề: Spit ủy thác rời mạng.
Out ra ban à vẫn được còn khác xa spit cắn cháo bạn à.Cắn cháo cơ bản nhất là settimer, còn cái này chỉ là tính toán đơn thuần không có gì phức tạp đâu, có chăng chỉ là ý tưởng thôi bạn à.
Còn :
abcd={{2,3},{4,5}}
Là cách viết tắt chút thôi, cũng có nhiều ưu điểm riêng nữa theo mình hiểu có ngiax là gán cho abcd các giá trị.
abcd[1] tức là chỉ gái trị vị trí 1 ở đây là {2,3}
abcd[2] tức là chỉ gái trị vị trí 1 ở đây là {4,5}
abcd[1][1] tức là giá trị ở vị trí 1 , 1 (có thể hiểu là giá trị ở vị trí 1 của abcd[1]) ở đây là giá trị 2
abcd[1][2] ,abcd[2][1], abcd[2][2] cũng tương tự.
Có thể lồng thêm nhiều ngoặc vào trong nữa, thì các giá trị sẽ là abcd[1][1][x][y].....
Có thể ở trong ngoạc là 1 sâu kí tụ không hẳn cần là số mĩ, nhớ hi trong dấu " ",
ví dụ
abcd ={{"vua meo vua chuot"},{"la ta"}}VLTK, huyền thoại sẽ trở lại...
-
27-03-09, 01:27 PM #9
- Ngày tham gia
- Apr 2007
- Đang ở
- Hà Nội
- Bài viết
- 36
- Thanks
- 1
- Thanked 22 Times in 1 Post
Ðề: Spit ủy thác rời mạng.
ái chà!!!!
very good!!!!!
lâu lâu không vào 4rum.giờ xuất hiện thêm nhiều pro ghê ta
trình độ viết script tiến bộ vượt bậc rùi đó.
good good!!!Khách viếng thăm hãy cùng manhtuyen xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
27-03-09, 04:02 PM #10
- Ngày tham gia
- Sep 2006
- Bài viết
- 71
- Thanks
- 2
- Thanked 38 Times in 8 Posts
Ðề: Spit ủy thác rời mạng.
Khách viếng thăm hãy cùng bacnam7287 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
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 cắn cháo lạc bát !
Bởi Mr.Rezo™ trong diễn đàn ScriptsTrả lời: 15Bài viết cuối: 13-01-11, 02:00 AM -
Cách Thức Thêm Script cho NPC!
Bởi Mr.Rezo™ trong diễn đàn ScriptsTrả lời: 15Bài viết cuối: 08-08-10, 07:12 PM