[JX] Xem giùm em đoạn code này lổi sao vậy ạ
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 2 của 2
  1. #1
    Thành Viên
    Ngày tham gia
    May 2014
    Bài viết
    19
    Thanks
    2
    Thanked 2 Times in 2 Posts

    Xem giùm em đoạn code này lổi sao vậy ạ

    xem giùm em lổi này là sao vậy ạ

    Game Sever báo thế này đây ạ
    [Only registered and activated users can see links. ]

    [Only registered and activated users can see links. ]

    --------------------------------------------------
    Include("\\dulieu\\chuyensinhdata.lua")
    Include("\\script\\source\\sourcejx49.lua");
    Include("\\script\\GetFaction.lua")



    --================== [Only registered and activated users can see links. ] ===================

    iditemcantrongcs = 110
    vlmt = 16
    ttk = 15
    gioihancs = 5
    capsaukhics = 10
    TENVP = "Trïng Sinh KiÕp"

    --==================== sky.light9530 =======================

    function main()
    if NPC3S(2) == 1 then return end
    SetGlbMissionV(50,gioihancs)
    ktcss=GetTask(197)+1
    Say("<color=cyan>Giíi h¹n chuyÓn sinh hiÖn t¹i:<color> "..GetGlbMissionV(50).."\n<color=yellow>Sè lÇn chuyÓn sinh: "..GetTask(197).."\n<color=water>CÊp chuyÓn sinh: "..CSTABLE[GetTask(197)+1][1].."\n<color=wood>TiÒn cÇn chuyÓn sinh: "..(CSTABLE[GetTask(197)+1][2]/10000).." V¹n",4,
    "ChuyÓn sinh lÇn ["..ktcss.."]./chuyensinh",
    "Mua Bé T©m Ph¸p Thiªn (5,000 v¹n)./MuaTamPhapThien",
    --"NhËn skill hç trî/nhanskill",
    "T×m hiÓu vÒ chuyÓn sinh./TimHieuTrungSinh",
    "Tho¸t./Exit");
    end;

    as={
    {35,25,25,15}, -- kim
    {20,35,20,25}, -- moc
    {25,25,25,25}, -- thuy
    {30,20,30,20}, -- hoa
    {20,15,25,40}, -- tho
    }

    function MuaTamPhapThien()
    tongcash = GetCash()
    if GetCash() >= 50000000 then
    Pay(50000000)
    if GetCash() ~= tongcash - 50000000 then
    Talk(1,"","Hack h¶!")
    logWrite(""..GetIP().." ---- "..GetName().." --- chuyen sinh "..GetTask(197).." --- Lever "..GetLevel().."")
    return
    end

    AddEventItem(110)
    MsgEx("<color=green>B¾c §Èu L·o Nh©n:<color> B¹n ®· mua <color=yellow><B¾c §Èu Tr­êng Sinh ThuËt - T©m Ph¸p Thiªn><color>.",1);
    else
    MsgEx("<color=green>B¾c §Èu L·o Nh©n:<color> B¹n kh«ng cã ®ñ <color=yellow>5,000 v¹n l­îng<color>.",1);
    end
    end;

    function TimHieuTrungSinh()
    SayEx({"<color=green>B¾c §Èu L·o Nh©n:<color> Khi ®· Tu luyÖn B¾c §Èu Tr­êng Sinh ThuËt xong, cÊp bËc cña ®¹i hiÖp sÏ thµnh cÊp 10, tÊt c¶ c¸c kü n¨ng vâ c«ng sÏ bÞ phÕ, ®¹t ®Õn cÊp bËc t­¬ng øng míi cã thÓ håi phôc. Ngoµi ra sÏ b¶o l­u tÊt c¶ c¸c ®iÓm kü n¨ng vµ tiÒm n¨ng cña ®¹i hiÖp.",
    "TiÕp theo./TimHieuTrungSinhTiepTheo",
    "Tho¸t./Exit"});
    end;

    function TimHieuTrungSinhTiepTheo()
    SayEx({"<color=green>B¾c §Èu L·o Nh©n:<color> ViÖc tu luyÖn còng gióp ®¹i hiÖp ®¶ th«ng kinh m¹ch, t¨ng c­êng tiÒm n¨ng (100 ®iÓm) vµ kü n¨ng (20 ®iÓm), kh¸ng tÊt c¶ cña nh©n vËt t¨ng thªm 5%, c¸c kü n¨ng cÊp 90 vµ 120 còng ®­îc th¨ng cÊp bËc.",
    "Tho¸t./Exit"});
    end



    function chuyensinh()
    cs = GetTask(197)
    if cs == nil then cs = 0 end
    cs = cs +1
    if GetTask(197) < GetGlbMissionV(50) then
    if GetLevel() >= CSTABLE[cs][1] then
    if GetCash() >= CSTABLE[cs][2] then
    if GetItemCount(iditemcantrongcs) >= CSTABLE[cs][3] then
    if GetTask(200) == 1 then
    if GetTask(60) == 1 then
    SetTask(200,0)
    SetTask(60,0)
    Pay(CSTABLE[cs][2])
    SetLevel(capsaukhics)
    SetTask(197,GetTask(197)+1)
    log = logWrite(""..GetName().." chuyen sinh "..GetTask(197).." lever "..GetLevel().."")
    diemtn = CSTABLE[cs][4] + (GetTask(ttk) * 5) + (CSTABLE[150][4]*GetTask(198))
    player_series = GetSeries() + 1;
    SetBasePoint(as[player_series][1],as[player_series][2],as[player_series][3],as[player_series][4]); --tiem nang mac dinh
    AddProp(-GetProp())
    if diemtn == nil then diemtn = 0 end
    if GetFaction() == "Vâ §ang Ph¸i" then
    AddProp(diemtn)
    else
    AddProp(diemtn)
    end
    themskillcs()
    MsgEx("<color=green>B¾c §Èu L·o Nh©n:<color> B¹n ®· ®¨ng ký chuyÓn sinh nh©n vËt thµnh c«ng.",1)
    Talk(1,"","§©y lµ lÇn chuyÓn sinh thø: <color=metal>"..GetTask(197).."<color>!")
    else
    MsgEx("<color=green>B¾c §Èu L·o Nh©n:<color> Ng­¬i ch­a l·nh ngé <color=yellow><B¾c §Èu Tr­êng Sinh ThuËt - T©m Ph¸p Thiªn><color>, kh«ng thÓ tiÕn hµnh chuyÓn sinh.",1);
    end
    else
    MsgEx("<color=green>B¾c §Èu L·o Nh©n:<color> Ng­¬i ch­a l·nh ngé <color=yellow><B¾c §Èu Tr­êng Sinh ThuËt - C¬ Së Thiªn><color>, kh«ng thÓ tiÕn hµnh chuyÓn sinh.",1);
    end
    else
    Talk(1,"","B¹n cÇn cã <color=red>"..CSTABLE[cs][3].."<color> "..TENVP.." ®Ó chuyÓn sinh !")
    end
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn cã "..(CSTABLE[cs][2]/10000).." v¹n l­îng")
    end
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn ®¹t "..CSTABLE[cs][1].." cÊp")
    end
    cs = 0
    diemtn = 0
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n ®· v­ît qu¸ giíi h¹n chuyÓn sinh lµ "..GetGlbMissionV(50).."lÇn !")
    end
    end

    function themskillcs()
    for i=459,468 do DelMagic(i) end
    id = GetTask(197)
    if id >= 8 then
    AddMagic(466,20)
    else
    AddMagic(458+id,20)
    end
    end


    function LuuTrungSinhThanhCong()
    file_IP = "dulieu/trungsinh.txt"
    local IPData = openfile(file_IP, "a");
    write(IPData, date("%y-%m-%d_%H:%M:%S").."\tNhan vat: "..GetName().." chuyen sinh lan ... thanh cong.\n");
    closefile(IPData);
    end;





    function SetLevel(nLevel)
    if(nLevel<1 or nLevel >200) then
    --error
    return 0;
    end
    local a=GetNpcIdx ();
    a=setx (a,nLevel);
    ktcss=GetTask(197)+1
    if(a==1) then
    KickOutSelf()
    Msg2SubWorld("Ng­êi ch¬i ["..GetName().."] ®· chuyÓn sinh lÇn thø ["..ktcss.."]")
    print("|>> "..GetName().." Chuyen Sinh Thanh Cong Lan Thu "..ktcss.." ! <<|")
    else
    Msg2Player("<color=metal>Lçi khi chuyÓn sinh");
    print("|>> "..GetName().." Chuyen Sinh Loi ??????????????? <<|")
    end
    end

    --================================================
    function nhanskill()
    SayEx({"Chän ngùa",
    "Vßng s¸ng 1 ./v1",
    "Vßng s¸ng 2./v2",
    "Vßng s¸ng 3./v3",
    "Vßng s¸ng 4./v4",
    "Vßng s¸ng 5./v5",
    "Vßng s¸ng 6./v6",
    "Vßng s¸ng 7./v7",
    "Vßng s¸ng 8./v8",
    "Vßng s¸ng 9./v9",
    "Vßng s¸ng 10./v10",
    "Vßng s¸ng 11./v11",
    "Vßng s¸ng 12./v12",
    "Del vßng s¸ng./dvs",
    "Tho¸t./Exit"});
    end;

    function dvs()
    if GetTask(197) >=2 then
    for i=459,472 do
    DelMagic(i)
    end
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 2")
    end
    end;

    function v1()
    if GetTask(197) >=1 then
    AddMagic(463,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 1")
    end
    end;

    function v2()
    if GetTask(197) >=2 then
    AddMagic(464,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 2")
    end
    end;

    function v3()
    if GetTask(197) >= 3 then
    AddMagic(465,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 3")
    end
    end;

    function v4()
    if GetTask(197) >= 4 then
    AddMagic(466,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 4")
    end
    end;

    function v5()
    if GetTask(197) >=5 then
    AddMagic(467,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 5")
    end
    end;

    function v6()
    if GetTask(197) >=6 then
    AddMagic(468,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 6")
    end
    end;

    function v7()
    if GetTask(197) >=7 then
    AddMagic(469,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 7")
    end
    end;

    function v8()
    if GetTask(197) >=8 then
    AddMagic(470,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 8")
    end
    end;

    function v9()
    if GetTask(197) >=9 then
    AddMagic(471,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 9")
    end
    end;

    function v10()
    if GetTask(197) >= 10 then
    AddMagic(472,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 10")
    end
    end;


    function v11()
    if GetTask(197) >=11 then
    AddMagic(459,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 11")
    end
    end;

    function v12()
    if GetTask(197) >=12 then
    AddMagic(460,1)
    else
    Talk(1,"","<color=cyan>Lçi:<color> B¹n cÇn chuyÓn sinh 12")
    end
    end;

    function logWrite(str)
    local gm_Log = "dulieu/trungsinh.txt"
    local fs_log = openfile(gm_Log, "a+");
    write(fs_log, "\t"..str.."\n");
    closefile(fs_log);
    end
    Khách viếng thăm hãy cùng 66sac66 xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

  2. #2
    Thành Viên
    Ngày tham gia
    Mar 2010
    Bài viết
    430
    Thanks
    30
    Thanked 182 Times in 81 Posts

    Ðề: Xem giùm em đoạn code này lổi sao vậy ạ

    Code:
    function main()
    if NPC3S(2) == 1 then return end
    SetGlbMissionV(50,gioihancs)
    ktcss=GetTask(197)+1
    Say("<color=cyan>Giíi h¹n chuyÓn sinh hiÖn t¹i:<color> "..GetGlbMissionV(50).."\n<color=yellow>Sè lÇn chuyÓn sinh: "..GetTask(197).."\n<color=water>CÊp chuyÓn sinh: "..CSTABLE[GetTask(197)+1][1].."\n<color=wood>TiÒn cÇn chuyÓn sinh: "..(CSTABLE[GetTask(197)+1][2]/10000).." V¹n",4,
    "ChuyÓn sinh lÇn ["..ktcss.."]./chuyensinh",
    "Mua Bé T©m Ph¸p Thiªn (5,000 v¹n)./MuaTamPhapThien",
    --"NhËn skill hç trî/nhanskill",
    "T×m hiÓu vÒ chuyÓn sinh./TimHieuTrungSinh",
    "Tho¸t./Exit");
    end;
    cái hàm mà mình tô đỏ bạn gọi nó ra mà không include đường dẫn đến hàm đó nên gsv bị lỗi. Kiềm hàm đó nó nằm đâu thì include nó vào là được
    Khách viếng thăm hãy cùng hoivegame xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!

 

 

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

  1. [JX] cần xin code auto backup của PTTk bác nào có code autoit đó share giúp thanks
    Bởi Olala trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 18-10-14, 12:49 AM
  2. [Gunny] Xin Code Web Chuyển xu Game thành Cash Web Với code xóa pet 5 sao với ...
    Bởi vinateam trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 5
    Bài viết cuối: 14-07-14, 01:04 PM
  3. [BÁN] Code nạp thẻ VTC 2013 , fix new bảo hành 1 tháng FULL CODE
    Bởi katterkelly trong diễn đàn CHUYÊN ĐỀ WEB GAMES
    Trả lời: 6
    Bài viết cuối: 12-03-13, 01:23 PM
  4. [KT] Code gift code
    Bởi canh_2009 trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 0
    Bài viết cuối: 01-12-12, 10:51 PM
  5. [MU] Làm ơn Giúp mình tìm code Hộp Kundun, code rồng vàng cho các map!!!!!!!!!!!!!!!!
    Bởi lethanhbptv trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 4
    Bài viết cuối: 16-07-12, 10:19 PM

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à 06:56 AM.
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ệ.