[JX] Script Sách kỹ năng 90...
Hello & Welcome to our community. Is this your first visit? Đăng Ký
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 7 của 7
  1. #1
    Thành Viên cuongvh93's Avatar
    Ngày tham gia
    Aug 2015
    Đang ở
    Thiếu Lâm Phái
    Bài viết
    589
    Thanks
    72
    Thanked 453 Times in 183 Posts

    Script Sách kỹ năng 90...

    Chào anh em forum, chả là em mới tập tành viết script game, viết ra được cái scrip sách kỹ năng 90. Nhưng do trình còn gà nên viết còn dài lắm. Và bị 1 tình huống là click vào nhận xong không bị mất vật phẩm, ae nào khắc phục giùm em với

    Code:
    Include("\\script\\task\\system\\task_string.lua")
    function main()
     dofile("script/global/sachkynang90.lua")
     local n_fac = GetLastFactionNumber(); 
    if (n_fac < 0) then 
    Talk(1, "","Gièng nh­ quyÓn s¸ch nµy miªu t¶ chÝnh lµ c¸c m«n ph¸i cao cÊp vâ c«ng , ng­¬i kh«ng cã m«n ph¸i nªn sÏ kh«ng hiÓu ®­îc. "); 
    return 1; 
    end
     mp = GetFaction()
     if mp == "shaolin" then
    local tbSay = {}
    tinsert(tbSay,"ThiÕu L©m §ao Ph¸p./thieulamdao")
    tinsert(tbSay,"ThiÕu L©m C«n Ph¸p./thieulamcon")
    tinsert(tbSay,"ThiÕu L©m QuyÒn Ph¸p./thieulamquyen")
    tinsert(tbSay,"KÕt thóc ®èi tho¹i./no")
    Say("Xin chµo <color=yellow>"..GetName().."<color>, H·y chän vâ c«ng mµ b¹n muèn !", getn(tbSay), tbSay)
    return 1
    
    elseif mp == "tianwang" then
    local tbSay = {}
    tinsert(tbSay,"Thiªn V­¬ng §ao./thienvuongdao")
    tinsert(tbSay,"Thiªn V­¬ng Chïy./thienvuongchuy")
    tinsert(tbSay,"Thiªn V­¬ng Th­¬ng./thienvuongthuong")
    tinsert(tbSay,"KÕt thóc ®èi tho¹i./no")
    Say("Xin chµo <color=yellow>"..GetName().."<color>, H·y chän vâ c«ng mµ b¹n muèn !", getn(tbSay), tbSay)
    return 1
    
    elseif mp == "tangmen" then
    local tbSay = {}
    tinsert(tbSay,"B¹o Vò Lª Hoa./baovulehoa")
    tinsert(tbSay,"NhiÕp Hån NguyÖt ¶nh./nhiephontuyetanh")
    tinsert(tbSay,"H·m TÜnh Lo¹n Hoµn KÝch./loanhoankich")
    tinsert(tbSay,"C÷u Cung Phi Tinh./cuucungphitinh")
    tinsert(tbSay,"KÕt thóc ®èi tho¹i./no")
    Say("Xin chµo <color=yellow>"..GetName().."<color>, H·y chän vâ c«ng mµ b¹n muèn !", getn(tbSay), tbSay)
    return 1
    
    elseif mp == "wudu" then
    local tbSay = {}
    tinsert(tbSay,"Ngò §«c §ao./ngudocdao")
    tinsert(tbSay,"Ngò §éc Ch­ëng./ngudocchuong")
    tinsert(tbSay,"Ngò §éc Bïa./ngudocbua")
    tinsert(tbSay,"KÕt thóc ®èi tho¹i./no")
    Say("Xin chµo <color=yellow>"..GetName().."<color>, H·y chän vâ c«ng mµ b¹n muèn !", getn(tbSay), tbSay)
    return 1
    
    elseif mp == "emei" then
    local tbSay = {}
    tinsert(tbSay,"Nga Mi KiÕm./ngamikiem")
    tinsert(tbSay,"Nga Mi Ch­ëng./ngamichuong")
    tinsert(tbSay,"Nga Mi Buff./ngamibuff")
    tinsert(tbSay,"KÕt thóc ®èi tho¹i./no")
    Say("Xin chµo <color=yellow>"..GetName().."<color>, H·y chän vâ c«ng mµ b¹n muèn !", getn(tbSay), tbSay)
    return 1
    
    elseif mp == "cuiyan" then
    local tbSay = {}
    tinsert(tbSay,"Thóy Yªn §ao./thuyyendao")
    tinsert(tbSay,"Thóy Yªn Song §ao./thuyyensongdao")
    tinsert(tbSay,"KÕt thóc ®èi tho¹i./no")
    Say("Xin chµo <color=yellow>"..GetName().."<color>, H·y chän vâ c«ng mµ b¹n muèn !", getn(tbSay), tbSay)
    return 1
    
    elseif mp == "gaibang" then
    local tbSay = {}
    tinsert(tbSay,"C¸i Bang Bçng./caibangbong")
    tinsert(tbSay,"C¸i Bang Rång./caibangrong")
    tinsert(tbSay,"KÕt thóc ®èi tho¹i./no")
    Say("Xin chµo <color=yellow>"..GetName().."<color>, H·y chän vâ c«ng mµ b¹n muèn !", getn(tbSay), tbSay)
    return 1
    
    elseif mp == "tianren" then
    local tbSay = {}
    tinsert(tbSay,"Thiªn NhÉn §ao./thiennhandao")
    tinsert(tbSay,"Thiªn NhÉn KÝch./thiennhankich")
    tinsert(tbSay,"Thiªn NhÉn Bïa./thiennhanbua")
    tinsert(tbSay,"KÕt thóc ®èi tho¹i./no")
    Say("Xin chµo <color=yellow>"..GetName().."<color>, H·y chän vâ c«ng mµ b¹n muèn !", getn(tbSay), tbSay)
    return 1
    
    elseif mp == "wudang" then
    local tbSay = {}
    tinsert(tbSay,"Vâ §ang QuyÒn./vodangquyen")
    tinsert(tbSay,"Vâ §ang KiÕm./vodangkiem")
    tinsert(tbSay,"KÕt thóc ®èi tho¹i./no")
    Say("Xin chµo <color=yellow>"..GetName().."<color>, H·y chän vâ c«ng mµ b¹n muèn !", getn(tbSay), tbSay)
    return 1
    
    elseif mp == "kunlun" then
    tinsert(tbSay,"C«n L«n §ao./conlondao")
    tinsert(tbSay,"C«n L«n KiÕm./conlonkiem")
    tinsert(tbSay,"C«n L«n Bïa./conlonbua")
    tinsert(tbSay,"KÕt thóc ®èi tho¹i./no")
    Say("Xin chµo <color=yellow>"..GetName().."<color>, H·y chän vâ c«ng mµ b¹n muèn !", getn(tbSay), tbSay)
    return 1
    end
    end
    function ngudocchuong()
    AddItem(6,1,47,0,0,0,0)
    end
    function ngudocdao()
    AddItem(6,1,48,0,0,0,0)
    end
    function ngudocbua()
    AddItem(6,1,49,0,0,0,0)
    end
    function thieulamdao()
    AddItem(6,1,58,0,0,0,0)
    end
    function thieulamcon()
    AddItem(6,1,57,0,0,0,0)
    end
    function thieulamquyen()
    AddItem(6,1,56,0,0,0,0)
    end
    function thienvuongdao()
    AddItem(6,1,39,0,0,0,0)
    end
    function thienvuongchuy()
    AddItem(6,1,37,0,0,0,0)
    end
    function thienvuongthuong()
    AddItem(6,1,38,0,0,0,0)
    end
    function baovulehoa()
    AddItem(6,1,27,0,0,0,0)
    end
    function  cuucungphitinh()
    AddItem(6,1,46,0,0,0,0)
    end
    function  loanhoankich()
    AddItem(6,1,28,0,0,0,0)
    end
    function  nhiephontuyetanh()
    AddItem(6,1,28,0,0,0,0)
    end
    function  ngamikiem()
    AddItem(6,1,42,0,0,0,0)
    end
    function  ngamichuong()
    AddItem(6,1,43,0,0,0,0)
    end
    function  ngamibuff()
    AddItem(6,1,59,0,0,0,0)
    end
    function  thuyyendao()
    AddItem(6,1,40,0,0,0,0)
    end
    function  thuyyensongdao()
    AddItem(6,1,41,0,0,0,0)
    end
    function  caibangbong()
    AddItem(6,1,55,0,0,0,0)
    end
    function  caibangrong()
    AddItem(6,1,54,0,0,0,0)
    end
    
    function  thiennhandao()
    AddItem(6,1,36,0,0,0,0)
    end
    function  thiennhankich()
    AddItem(6,1,35,0,0,0,0)
    end
    function  thiennhanbua()
    AddItem(6,1,53,0,0,0,0)
    end
    function  vodangquyen()
    AddItem(6,1,33,0,0,0,0)
    end
    function  vodangkiem()
    AddItem(6,1,34,0,0,0,0)
    end
    function  conlondao()
    AddItem(6,1,50,0,0,0,0)
    end
    function  conlonkiem()
    AddItem(6,1,51,0,0,0,0)
    end
    function  conlonbua()
    AddItem(6,1,52,0,0,0,0)
    end
    Khách viếng thăm hãy cùng cuongvh93 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. Các thành viên gởi lời cảm ơn đến cuongvh93 vì bài viết này !

    f-fantasy (29-04-16)

  3. #2
    Thành Viên hoangcungclub's Avatar
    Ngày tham gia
    Aug 2011
    Bài viết
    346
    Thanks
    24
    Thanked 410 Times in 115 Posts

    Ðề: Script Sách kỹ năng 90...

    cho hàm DelItem (ID item) vào cuốn kỹ năng mà AddMagic(ID kỹ năng) là được nha bạn.

    Trường hợp sách kỹ năng thì tương tự thì dùng Hàm (Ví dụ) DelItem (6,1,52,0,0,0,0) ID item là số 52 thay vào là được.
    Lần sửa cuối bởi hoangcungclub, ngày 03-09-15 lúc 01:54 PM.
    Khách viếng thăm hãy cùng hoangcungclub xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  4. Các thành viên gởi lời cảm ơn đến hoangcungclub vì bài viết này !

    gakfc1993 (21-10-15)

  5. #3
    Thành Viên cuongvh93's Avatar
    Ngày tham gia
    Aug 2015
    Đang ở
    Thiếu Lâm Phái
    Bài viết
    589
    Thanks
    72
    Thanked 453 Times in 183 Posts

    Ðề: Script Sách kỹ năng 90...

    Trích dẫn Gửi bởi hoangcungclub [Only registered and activated users can see links. ]
    cho hàm DelItem (ID item) vào cuốn kỹ năng mà AddMagic(ID kỹ năng) là được nha bạn.

    Trường hợp sách kỹ năng thì tương tự thì dùng Hàm (Ví dụ) DelItem (6,1,52,0,0,0,0) ID item là số 52 thay vào là được.
    Mình có làm cách đó rồi, nhưng nó không chịu delitem @@...
    Khách viếng thăm hãy cùng cuongvh93 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  6. #4
    Thành Viên Tâm Huyết tvnnam's Avatar
    Ngày tham gia
    Apr 2014
    Đang ở
    Hưng Yên
    Bài viết
    1,692
    Thanks
    488
    Thanked 979 Times in 521 Posts

    Ðề: Script Sách kỹ năng 90...

    Trích dẫn Gửi bởi cuongvh93 [Only registered and activated users can see links. ]
    Mình có làm cách đó rồi, nhưng nó không chịu delitem @@...
    bạn tham khảo code này mình đang dùng: đổi 1 cái truy công lệnh lấy ngẫu nhiên từ 10 đến 15 danh vọng:
    Code:
    function doitcl()
    local nCount = CalcEquiproomItemCount(6,1,2015,-1)
    local nRepute = random(10,15)
    if nCount < 1 then
    Say("Ng­¬i kh«ng cã Truy C«ng LÖnh!",0)
    return
    end
    ConsumeEquiproomItem(1,6,1,2015,-1)
    AddRepute(nRepute)
    Msg2Player("Ng­¬i nhËn ®­îc ".. nRepute .." ®iÓm danh väng")
    end


    và cái kia áp dụng tương tự nhé
    CTV- GIẢI ĐÁP THẮC MẮC JX LINUX OFF

  7. Các thành viên gởi lời cảm ơn đến tvnnam vì bài viết này !

    gakfc1993 (21-10-15)

  8. #5
    Thành Viên cuongvh93's Avatar
    Ngày tham gia
    Aug 2015
    Đang ở
    Thiếu Lâm Phái
    Bài viết
    589
    Thanks
    72
    Thanked 453 Times in 183 Posts

    Ðề: Script Sách kỹ năng 90...

    Trích dẫn Gửi bởi tvnnam [Only registered and activated users can see links. ]
    bạn tham khảo code này mình đang dùng: đổi 1 cái truy công lệnh lấy ngẫu nhiên từ 10 đến 15 danh vọng:
    Code:
    function doitcl()
    local nCount = CalcEquiproomItemCount(6,1,2015,-1)
    local nRepute = random(10,15)
    if nCount < 1 then
    Say("Ng­¬i kh«ng cã Truy C«ng LÖnh!",0)
    return
    end
    ConsumeEquiproomItem(1,6,1,2015,-1)
    AddRepute(nRepute)
    Msg2Player("Ng­¬i nhËn ®­îc ".. nRepute .." ®iÓm danh väng")
    end


    và cái kia áp dụng tương tự nhé
    Cho mình hỏi hàm CalcEquiproomItemCount có ý nghĩa như nào vậy?
    Khách viếng thăm hãy cùng cuongvh93 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  9. #6
    Thành Viên Tâm Huyết tvnnam's Avatar
    Ngày tham gia
    Apr 2014
    Đang ở
    Hưng Yên
    Bài viết
    1,692
    Thanks
    488
    Thanked 979 Times in 521 Posts

    Ðề: Script Sách kỹ năng 90...

    Trích dẫn Gửi bởi cuongvh93 [Only registered and activated users can see links. ]
    Cho mình hỏi hàm CalcEquiproomItemCount có ý nghĩa như nào vậy?
    Xóa xyz cuốn Mật Đồ Thần Bí
    Code:
    ConsumeEquiproomItem(xyz,6,1,196,-1) đến đây tự hiểu nhé bạn
    CTV- GIẢI ĐÁP THẮC MẮC JX LINUX OFF

  10. #7
    Thành Viên cuongvh93's Avatar
    Ngày tham gia
    Aug 2015
    Đang ở
    Thiếu Lâm Phái
    Bài viết
    589
    Thanks
    72
    Thanked 453 Times in 183 Posts

    Ðề: Script Sách kỹ năng 90...

    Trích dẫn Gửi bởi tvnnam [Only registered and activated users can see links. ]
    Xóa xyz cuốn Mật Đồ Thần Bí
    Code:
    ConsumeEquiproomItem(xyz,6,1,196,-1) đến đây tự hiểu nhé bạn
    Mình làm được rồi. Tks tvnam nhiều nha. hun cái coi ^0^
    Khách viếng thăm hãy cùng cuongvh93 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

Các Chủ đề tương tự

  1. [KT] Help-Script tính năng QUẢ HUY HOÀNG, QUẢ HOÀNG KIM
    Bởi nguyenhophuc87 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 15-01-13, 02:21 PM
  2. [JX] Cần giúp đỡ về Script tẩy điểm kỹ năng
    Bởi ngchienthang trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 2
    Bài viết cuối: 29-04-12, 09:50 PM
  3. ai biết viết script chức năng nhận đồ chỉ dùm em
    Bởi lostter1 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 1
    Bài viết cuối: 01-08-11, 07:47 AM
  4. 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ầu
    Trả lời: 0
    Bài viết cuối: 05-06-11, 11:41 AM
  5. Script nâng cấp chức năng GM
    Bởi banynavy trong diễn đàn Scripts
    Trả lời: 46
    Bài viết cuối: 07-08-10, 09:25 AM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 09:47 PM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.