Kết quả 1 đến 10 của 22
-
08-03-11, 02:55 PM #1
- Ngày tham gia
- May 2009
- Đang ở
- TP HCM
- Bài viết
- 344
- Thanks
- 76
- Thanked 317 Times in 73 Posts
[Share Script nhỏ] Vài chức năng cho các bạn !
Cái này mình tự làm, lấy code từ server TSBĐ v2.0 và 3.0 edit và chế ra thêm thôi. Làm có 2 ngày (mà có vài tiếng) nên test không hết, share cho các bạn xài test và ý kiến, hoặc cùng nhau dev tốt hơn
Mình có để file Hướng dẫn trong đó (file huongdan.lua) rồi. Có gì các bạn xem thêm nha.
Sơ sơ chức năng script là :
- Bán ngựa theo kiểu Sale() (Hiện ra shop cho từng loại ngựa, giá cả chỉnh ở các file *.txt), mình thì thích dùng dạng nì hơn là AddItem, mặc dù cực hơn
- Kỳ Trân Các (Bán các món đồ dành cho tên nhân vật không phải admin, cày tiền Vạn đổi xu là mua được. Giá có thể tự chỉnh lại cho chuẩn theo ý các bạn).
- Nạp Card : (dành cho chơi LAN, ONL gì đó , code gồm 12 chữ số, được random tạo ra, nạp xong được 1000 xu (có thể thay đổi lại tùy thích) ). Mình làm cái này chủ yếu test kỹ năng lập trình mình thôi, chứ k fải mở onl để donate đâu nha). Giống như để dành mở chơi LAN, đứa nào đấm lưng vài cái cho cái CODE vô nạp xu chẳng hạn )
P/S: Nói rồi, làm có 2 ngày (vài tiếng trong ngày à) nên chắc chắn là không tốt, pro nào cay đắng thì miễn bàn , newbie có ý kiến thì comment, thanks để mình cố gắng hoàn thiện hơn. Để "Develop" chứ không có để "Download" hay "Release" đâu nhé Thanks các bạn ủng hộ
------------------------------------------------------------
[down].[/down]
Link :[Only registered and activated users can see links. ]
Thấy hay thì nhấn nút Thanks nhá
------------------------------------------------------------
Mình gom gọn lại những thứ chỉnh sửa cho dễ xem nhé
Lưu ý : Dùng cho server TSBĐ v3.0 của ohishu. Ai dùng cái khác tự config lại cho đúng !
NEW : Edit lại file taocodemoi.lua nha :
[sp]
Ban đầu :
function main()
a,b,c,d,e,f,g,h,i,j,k,l = random(0,9) --Xóa dòng này đi
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
if (gio == 0) and (phut == 0) and (giay == 0) then
for i=1,siso do
DANH_SACH_CODE[getn(DANH_SACH_CODE)+1] = {a,b,c,d,e,f,g,h,i,j,k,l}
danhsachcode = TaoBang(DANH_SACH_CODE,"DANH_SACH_CODE","")
SaveData("script/giavinh/napcard/datacode.lua",danhsachcode)
end
end
nhapcode()
end
function main()
gio = tonumber(date("%H"))
phut = tonumber(date("%M"))
giay = tonumber(date("%S"))
if (gio == 0) and (phut == 0) and (giay == 0) then
for i=1,siso do
a,b,c,d,e,f,g,h,i,j,k,l = random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9) --Thêm vào tại đây
DANH_SACH_CODE[getn(DANH_SACH_CODE)+1] = {a,b,c,d,e,f,g,h,i,j,k,l}
danhsachcode = TaoBang(DANH_SACH_CODE,"DANH_SACH_CODE","")
SaveData("script/giavinh/napcard/datacode.lua",danhsachcode)
end
end
nhapcode()
end
Mình chưa test file này vì làm biếng chỉnh giờ với ngồi chờ 12h, các bạn siêng chỉnh lại nha , (chủ yếu là file nhapcode.lua thôi), nhưng đọc lại thấy kì kì, vì như cũ nó sẽ tạo ra 20 CODE giống nhau do a,b,c,...,l chưa thay đổi trong hàm for.
[/sp]
NEW : Thêm vào cuối file questkey.txt trong Settings ( nhớ đồng bộ sang Client ) dòng sau để được KNB :
[sp]
Code:Kim Nguyen Bao 4 234 \spr\item\questkey\obj_item_cardg.spr 340 1 1 Kim Nguyen Bao 1
[/sp]
Chân thành xin lỗi các bạn Để cáo lỗi, mình share sẵn luôn cái hàm và tọa độ add npc cho newbie luôn hen
- Các bạn chèn thêm hàm này vào file Get_NPC.lua ở \script\Global\Get_NPC.lua nhé
[sp]
Hàm thêm NPC bán ngựa : (Lấy hình ảnh NPC Ban Ngua, muốn sửa lại tên NPC vô file NPCS.txt trong settings dòng 199 mở = Excel)
Code:AddNPCEx(197,1,53,196,196,8,8,"\\script\\giavinh\\banngua.lua",6)
Code:AddNPCEx(742,1,53,204,198,2.5,2.5,"\\script\\giavinh\\kytrancac\\kytrancac.lua",6)
Code:AddNPCEx(515,1,53,203,202,9.5,7,"\\script\\giavinh\\napcard\\taocodemoi.lua",6)
Màu xanh lá : ID NPC.
Màu xanh dương : Tọa độ NPC.
Màu đỏ : độ lệch của NPC.
[/sp]
NEW : File chuyensinh.lua trong \script\Global\chuyensinh.lua cò dòng :
"Ho Tro Nang Diem Tiem Nang/supporttiemnang" <-- Chỗ này chưa có hàm supporttiemnang . Mình chưa biết ý tác giả muốn làm gì hàm này, nên mình thêm đại hỗ trợ nâng nhanh tiềm năng. Ai muốn xài đỡ thêm hàm này vào cuối file nhé :"
[sp]
Code:function supporttiemnang() SayEx({"<color=cyan>Bac Dau Than Tang<color>: Xin chao ! Ta se giup nguoi cong nhanh diem tiem nang.\nNguoi hien co <color=red>"..GetProp().."<color> diem tiem nang !\nNguoi co chac chan chua ?", "Ta chac chan./chacchanroi", "Ta chua chuan bi./Exit"}) end function chacchanroi() SayEx({"<color=cyan>Bac Dau Than Tang<color>: Co 4 loai, moi loai 50 diem, nguoi hay chon di !", "Suc Manh 50 diem./tangtn", "Than Phap 50 diem./tangtn", "Sinh Luc 50 diem./tangtn", "Noi Luc 50 diem./tangtn", "Thoat./Exit"}) end function tangtn(sel) diemtnht = GetProp() -- Diem tiem nang hien tai sm = GetStrg() tp = GetDex() sl = GetVit() nl = GetEng() id = sel + 1 if diemtnht >= 50 then if id == 1 then AddProp(-50) ResetBaseAttrib(0,sm+50) Msg2Player("Ban nhan duoc 50 diem suc manh !") elseif id == 2 then AddProp(-50) ResetBaseAttrib(1,tp+50) Msg2Player("Ban nhan duoc 50 diem than phap !") elseif id == 3 then AddProp(-50) ResetBaseAttrib(2,sl+50) Msg2Player("Ban nhan duoc 50 diem sinh luc !") else AddProp(-50) ResetBaseAttrib(3,nl+50) Msg2Player("Ban nhan duoc 50 diem noi luc !") end else Msg2Player("Ban khong du 50 diem tiem nang !") end end
File caymai.lua trong \script\Global\caymai.lua có 1 lỗi là khi file timerserver.lua đc kích hoạt, cây mai xuất hiện là các bạn có thể nhấp vào nhận thưởng không ngừng. Các bạn có thể xóa hoặc thêm chú thích giống mình trong phần sau trong file timerserver.lua :
[sp]
Code:-- if (gio >= 21) or ((gio >= 0) and (gio < 7)) then -- if phut == 10 or phut == 20 or phut == 30 or phut == 40 or phut == 50 or phut == 0 then --Msg2SubWorld("Cay Mai Truong Tho Da Xuat Hien Tai 201/198 Tai Maps BLH Mau Ve Tham Gia Event !") -- end -- if (GetGlbMissionV(88)) == 0 then -- caymai=AddNpc(921,99,SubWorldID2Idx(53),201*8*32,198*16*32) -- SetNpcScript(caymai,"\\script\\global\\caymai.lua") -- SetGlbMissionV(32,1) -- end -- else -- DelNpc(caymai) -- SetGlbMissionV(32,0) -- end
[/sp]
[sp]Mình cũng chỉ là newbie mà thôi [/sp]
P/S : Các phần mình sai các bạn tự coi comment ở dưới chỉnh lại và thông cảm cho mình nhé, tạo acc lâu chứ mới tìm hiểu hơn tháng à . Các điều trên mình vẫn giữ nguyên bản quyền tác giả ohishu nhé, chỉ là thêm, bớt, chế thui, và chỉ thích hợp cho newbie giống mình, pro k chém
--THE END--
Chém gió vài pic chơi
[sp]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]
[/sp]
-
The Following 16 Users Say Thank You to kidcrazy187 For This Useful Post:
anhtuan0650 (09-03-11), chaoban6 (26-02-13), chungthanhphuo (28-09-11),
chuongga2vn(14-03-11), hoivegame (16-05-11), icydream35 (01-07-11), KingMax (09-03-11), nguyentrunghbl (08-03-11), ococ13 (01-07-11), quangken (03-07-11), rainyway8x (03-04-11), TaeYen (09-03-11), thaihoa91 (08-03-11), tieudieuphong (13-03-11), trieu.design (09-03-11), tungok (15-03-11)
-
09-03-11, 11:40 AM #2
Ðề: [Share Script nhỏ] Vài chức năng cho các bạn !
Khách viếng thăm hãy cùng anhtuan0650 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
09-03-11, 01:27 PM #3
- Ngày tham gia
- May 2009
- Đang ở
- TP HCM
- Bài viết
- 344
- Thanks
- 76
- Thanked 317 Times in 73 Posts
Ðề: [Share Script nhỏ] Vài chức năng cho các bạn !
Cái này không sao hết bạn. Tại mình dùng "[[" để chú thích nên bị lỗi thôi. Bạn chép file InfoKTC đó ra chỗ khác (ra khỏi cái thư mục script là đc). File đó chỉ là thông tin thôi bạn
Thanks bạn đã test
-
09-03-11, 07:32 PM #4
Ðề: [Share Script nhỏ] Vài chức năng cho các bạn !
ố ối hiểu ròi mình tưởng khi đang nhập cần pass roi mới vào gỏ ma code
Khách viếng thăm hãy cùng anhtuan0650 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
09-03-11, 07:44 PM #5
- Ngày tham gia
- May 2009
- Đang ở
- TP HCM
- Bài viết
- 344
- Thanks
- 76
- Thanked 317 Times in 73 Posts
Ðề: [Share Script nhỏ] Vài chức năng cho các bạn !
Bạn k hiểu nhiều về Script à ? . Mình có để sẵn file huongdan.lua rồi mà.
Cấu trúc nạp card như sau :
- Mỗi ngày tạo ra siso = 20 mã CODE lưu vào file datacode.lua (Pass nhập NPC chính là CODE nạp card trong file này nè, đọc từ trên xuống gồm 12 chữ số) . Nạp xong cái CODE đó nó sẽ lưu vào datacodeold.lua và sẽ không dùng được nữa.
- Vấn đề mua KNB = tiền vạn mình quên share file questkey.txt , sorry nó nè :
Thêm vào mấy dòng cuối của file nhé :
Code:Kim Nguyen Bao 4 234 \spr\item\questkey\obj_item_cardg.spr 340 1 1 Kim Nguyen Bao 1
-
Các thành viên gởi lời cảm ơn đến kidcrazy187 vì bài viết này !
anhtuan0650 (09-03-11)
-
09-03-11, 07:55 PM #6
- Ngày tham gia
- Jul 2009
- Đang ở
- TP HCM
- Bài viết
- 1,349
- Thanks
- 62
- Thanked 101 Times in 48 Posts
Ðề: [Share Script nhỏ] Vài chức năng cho các bạn !
for i=1,siso do
a,b,c,d,e,f,g,h,i,j,k,l = random(0,9) --Thêm vào tại đây
DANH_SACH_CODE[getn(DANH_SACH_CODE)+1] = {a,b,c,d,e,f,g,h,i,j,k,l}
danhsachcode = TaoBang(DANH_SACH_CODE,"DANH_SACH_CODE","")
SaveData("script/giavinh/napcard/datacode.lua",danhsachcode)
end
còn để danhsachcode = TaoBang(DANH_SACH_CODE,"DANH_SACH_CODE","")
SaveData("script/giavinh/napcard/datacode.lua",danhsachcode)
trong vòng lặp for thì cực kì nguy hiểm, mỗi lần chạy for là phải save mảng lại lại 1 lần ko cần thiết, điều này ta nên hạn chế
Chúc 4rum ngày càng phát triển
-
Các thành viên gởi lời cảm ơn đến Čħīċķėň vì bài viết này !
kidcrazy187 (09-03-11)
-
09-03-11, 08:03 PM #7
- Ngày tham gia
- May 2009
- Đang ở
- TP HCM
- Bài viết
- 344
- Thanks
- 76
- Thanked 317 Times in 73 Posts
Ðề: [Share Script nhỏ] Vài chức năng cho các bạn !
- Dòng màu xanh : Tại mình đọc ngôn ngữ LUA trên mạng, nên cứ nghĩ nó sẽ gán như vậy , vậy thì giải quyết tạm thời để từng dòng hoặc for để gán cho các biến.
- Vấn đề 2 để mình tìm cách lại. Hiện tại mình đang bận, nên chưa sửa đc, tạm thời thế nhé
THANKS
P/S: Ai sửa rùi post lên cũng đc
@mod : cái thẻ [sp][/sp] Lúc nhấn thì hiện ra, lúc k hiện ra, bực ghê Có khi edit bài lại lưu k thay đổi =,=
-
11-03-11, 09:36 PM #8
- Ngày tham gia
- Apr 2008
- Đang ở
- HCM
- Bài viết
- 546
- Thanks
- 9
- Thanked 82 Times in 27 Posts
Ðề: [Share Script nhỏ] Vài chức năng cho các bạn !
a,b,c,d,e,f,g,h,i,j,k,l = random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9),random(0,9)
for i=1,12 do
CODE[i]=random(0,9)
end
DANH_SACH_CODE[getn(DANH_SACH_CODE)+1] = {a,b,c,d,e,f,g,h,i,j,k,l}DANH_SACH_CODE[getn(DANH_SACH_CODE)+1] = CODE
-
Các thành viên gởi lời cảm ơn đến sangpronhat vì bài viết này !
kidcrazy187 (11-03-11)
-
11-03-11, 11:34 PM #9
-
13-03-11, 03:08 PM #10
Ðề: [Share Script nhỏ] Vài chức năng cho các bạn !
cho mình hõi mún làm 1 hàm kiễm tra xu thì phãi làm như thế nào dzi ? ? ?? ? ??
Khách viếng thăm hãy cùng benop001 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
Các Chủ đề tương tự
-
Ai sửa giúp mình Script này với (Tẩy Tiềm năng)
Bởi jxonline94 trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 0Bài viết cuối: 05-06-11, 11:41 AM -
[Share nhỏ] Map Pos của minimap
Bởi kidcrazy187 trong diễn đàn Võ Lâm Truyền Kỳ (Jx Server)Trả lời: 0Bài viết cuối: 27-02-11, 03:18 PM -
Script nâng cấp chức năng GM
Bởi banynavy trong diễn đàn ScriptsTrả lời: 46Bài viết cuối: 07-08-10, 09:25 AM