Hỏi về lỗi NPC Chuyển Sinh

[TND.VN]

Mình dùng TSBD 3.0 .Copy cái file chuyensinh của TSBD3.0 Update sang nhưng vẫn bị 1 lỗi như sau. sau khoảng 5 phút chơi tầm 10-20 người connect vào cái npc chuyển sinh thì nó bị lỗi cái gì đó rồi đứng đơ ra luôn. Ai biết cách fix ko chỉ giúp với thankss

Cái thứ 2 là em muốn giảm tỷ lệ đánh quái nhận exp xuống còn 1/10 thì sửa ở đâu? vì sv này lên leve nhanh quá

cảm ơn nhìu

[taizero30]

pm yahoo: [Only registered and activated users can see links. ] or dưa cái code chuyensinh.lua lên đây

[TND.VN]

Include("\\dulieu\\chuyensinhdata.lua")
Include("\\script\\source\\sourcejx49.lua")
Include("\\script\\GetFaction.lua")
--------------------------------------------------------------
-------*******************************************************
-------*******************************************************
-------Author: DNTMaster            --------------------------
-------Script: Chuyen Sinh Nhan Vat --------------------------
-------Edit By Ohishu        --------------------------
--------------------------------------------------------------

iditemcantrongcs = 170
vlmt = 16
ttk = 15

function main()
Say("<color=cyan>Gioi Han Chuyen Sinh Hien Tai:<color> "..GetGlbMissionV(50).."\n<color=yellow>So Lan Chuyen Sinh: "..GetTask(197).."\n<color=red>Cap Chuyen Sinh: "..CSTABLE[GetTask(197)+1][1].."\nTien Chuyen Sinh: "..(CSTABLE[GetTask(197)+1][2]/10000).." Van\nChuyen Sinh Kiep: "..CSTABLE[GetTask(197)+1][3]..".",6,"Ta muon Chuyen Sinh./chuyensinh","Cai Lao Hoan Dong/cailaohd","Mua Chuyen Sinh Kiep/payvpcs","Tim Hieu Phan Thuong/nhanthuongcs","Ho Tro Nang Diem Tiem Nang/supporttiemnang","Thoat./Exit")
end


function nhanthuongcs()
    Talk(1,"","Moi Khi Chuyen Sinh Nguoi Co The Len Dao Luyen Skill De <color=red>Gia Tang Skill 90<color> Them 1 !")        
    end

function payvpcs()
    SayEx({"<color=cyan>Bac Dau Than Tang<color> "..TENVP.." Tri Gia <color=yellow>200<color> Danh Vong Va <color=cyan>800<color> Phuc Duyen Nguoi Muon Mua ?",
            "Vang Ta Mua/paykpt",
            "Thoat/Exit"})
            end

function cailaohd()
    SayEx({"<color=cyan>Bac Dau Than Tang<color> De Cai Lao Hoan Dong Can Cac Dieu Kien Sau\n<color=yellow>Chuyen Sinh 150 Lan\n200kv\n30 Cuon Chuyen Sinh Kiep !",
            "Vang Ta Muon Cai Lao/cailaocond",
            "Loi Ich Khi Cai Lao/loiichcl",
            "Thoat/Exit"})
end

function loiichcl()
        Talk(1,"","Khi Cai Lao Se Nhan Duoc Giu Nguyen Muc Diem Ky Nang Va Tiem Nang O Lan CS 150\n<color=red>Duoc Cong 2 Skill 150 ( Vi Du 20 Len 22 Skill ) !\n1 Mon Trang Suc Vo Danh !")    
end

function cailaocond()
a = GetItemCount(171)
b = GetCash()
c = random(0,3)
    if GetTask(197) >= 150 then
        if GetItemCount(171) >= 10 then
            if GetCash() >= 2000000000 then
        Pay(2000000000)
        for i=1,10 do DelItem(171) end
        if GetItemCount(171) == (a - 10) and GetCash() == (b - 2000000000) then
        SetLevel(10)
        SetTask(198,GetTask(198)+1)        
        diemtn = (CSTABLE[150][4] + (GetTask(ttk) * 5)) * GetTask(198)
        diemkn = (CSTABLE[150][5] + GetTask(vlmt)) * GetTask(198)
        RollPoint()
        AddAll(diemtn,diemkn)        
        Talk(1,"","Day la lan cai lao hoan dong thu: "..GetTask(198).." Cua Ban\n<color=red>Nhap vao bang thong bao nay de bat dau cai lao")    
        SetTask(197,0)
    if c == 0 then
AddItem(0,9,20,1,z,0,10)    
    elseif c == 1 then
AddItem(0,4,20,1,z,0,10)    
    elseif c == 2 then
AddItem(0,3,21,1,z,0,10)
    elseif c == 3 then
AddItem(0,3,21,2,z,0,10)    
    end
        KickOutSelf()
        else
        Msg2Player("Da Chet Me Hack !")
        end
            else
        Msg2Player("Ban Khong Co Du 200kv !")
            end
        else
        Msg2Player("Ban Khong Co Du 30 CSK !")
        end
    else
    Msg2Player("Ban Chua Dat Duoc 150 Lan CS !")
    end
end

function paykpt()
d = GetTask(12)
e = GetRepute()
        if GetTask(12) >= 800 and GetRepute() >= 200 then
    SetTask(12,GetTask(12)-800)
    AddRepute(-200)
            if GetTask(12) == d - 800 and GetRepute() == e - 200 then
            AddEventItem(iditemcantrongcs)
            Msg2Player("Nhan Duoc "..TENVP.." Xin Chuc Mung ! ")
            else
            Msg2Player("Hack A Cung Yeu")
            end
        else
    Msg2Player("Chua Du Phuc Duyen Hoac Danh Vong De Mua "..TENVP.." ! ")
        end
end

function AddAll(Xdnt,Ydnt)
if Xdnt == nil then Xdnt = 0 end
if Ydnt == nil then Ydnt = 0 end
AddProp(Xdnt)
AddMagicPoint(Ydnt)
Msg2Player("Ban nhan duoc "..Xdnt.." diem tiem nang");
Msg2Player("Ban nhan duoc "..Ydnt.." diem ky nang");
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         
                for i=1,CSTABLE[cs][3] do DelItem(iditemcantrongcs) end
                Pay(CSTABLE[cs][2])
                SetLevel(10)
                SetTask(197,GetTask(197)+1)
                Msg2Player("Bat dau chuyen Sinh Nhan Vat")
                diemtn = CSTABLE[cs][4] + (GetTask(ttk) * 5) + (CSTABLE[150][4]*GetTask(198))
                diemkn = CSTABLE[cs][5] + GetTask(vlmt) + (CSTABLE[150][5]*GetTask(198))
                RollPoint()
                AddAll(diemtn,diemkn)
                checkvongsang()
                Talk(1,"","Day la lan Chuyen Sinh Thu: "..GetTask(197).." Cua Ban\n<color=red>Nhap vao bang thong bao nay de bat dau Chuyen Sinh")    
                KickOutSelf()    
            else
            Talk(1,"","Ban Can Co <color=red>"..CSTABLE[cs][3].."<color> "..TENVP.." De Chuyen Sinh !")    
            end
        else
        Talk(1,"","<color=cyan>Chuyen Sinh Dai Su:<color> Ban can co "..(CSTABLE[cs][2]/10000).." van de chuyen sinh")
        end
    else
    Talk(1,"","<color=cyan>Chuyen Sinh Dai Su:<color> Ban can dat "..CSTABLE[cs][1].." cap de chuyen sinh")
    end
cs = 0
diemtn = 0
diemkn = 0
        else
Talk(1,"","<color=cyan>Chuyen Sinh Dai Su:<color> Gioi han chuyen sinh hien tai la "..GetGlbMissionV(50).." khong the tiep tuc chuyen sinh !")    
        end
end

function checkvongsang()
for i=457,465 do DelMagic(i) end
cs = GetTask(197)
    if cs >= 10 and cs < 20 then
skill = 457
    elseif cs >= 20 and cs < 30 then
skill = 458
    elseif cs >= 30 and cs < 40 then
skill = 459    
    elseif cs >= 40 and cs < 50 then
skill = 460
    elseif cs >= 50 and cs < 60 then
skill = 461    
    elseif cs >= 60 and cs < 70 then
skill = 462        
    elseif cs >= 70 and cs < 100 then
skill = 463
    elseif cs >= 100 and cs < 130 then
skill = 464            
    elseif cs >= 130 then
skill = 465
    end
AddMagic(skill,20)
end

function RollPoint()
SucManh =     {35,20,25,30,20}
ThanPhap =     {25,35,25,20,15}
SinhLuc =     {25,20,25,30,25}
NoiLuc =     {15,25,25,20,40}
NguHanh = GetSeries() + 1
ResetBaseAttrib(0,SucManh[NguHanh]);
ResetBaseAttrib(1,ThanPhap[NguHanh]);
ResetBaseAttrib(2,SinhLuc[NguHanh]);
ResetBaseAttrib(3,NoiLuc[NguHanh]);
AddProp(-GetProp())
skilltaytuy()
AddMagicPoint(-GetMagicPoint())
end

function skilltaytuy()
cailao = GetTask(198)*2
    if kiemtraft() == 1 then
a = HaveMagic(353)
b = HaveMagic(350)
c = HaveMagic(351)
d = HaveMagic(414)
w = HaveMagic(290)
p = HaveMagic(295)
e = HaveMagic(454)
    elseif kiemtraft() == 2 then
a = HaveMagic(342)
b = HaveMagic(347)
c = HaveMagic(345)
d = HaveMagic(412)
w = HaveMagic(455)
p = HaveMagic(293)
e = HaveMagic(310)
    elseif kiemtraft() == 3 then
a = HaveMagic(302)
b = HaveMagic(355)
c = HaveMagic(358)
d = HaveMagic(416)
w = HaveMagic(286)
p = HaveMagic(288)
e = HaveMagic(299)
    elseif kiemtraft() == 4 then
a = HaveMagic(359)
b = HaveMagic(361)
c = 0
d = HaveMagic(418)
w = HaveMagic(446)
p = HaveMagic(297)
e = 0
    elseif kiemtraft() == 5 then
a = HaveMagic(374)
b = HaveMagic(370)
c = 0
d = HaveMagic(420)
w = HaveMagic(448)
p = 0
e = 0
    elseif kiemtraft() == 6 then
a = HaveMagic(377)
b = HaveMagic(378)
c = 0
d = HaveMagic(422)
w = HaveMagic(448)
p = 0
e = 0
    elseif kiemtraft() == 7 then
a = HaveMagic(362)
b = HaveMagic(389)
c = 0
d = HaveMagic(424)
w = HaveMagic(445)
p = HaveMagic(300)
e = 0
    elseif kiemtraft() == 8 then
a = HaveMagic(365)
b = HaveMagic(367)
c = 0
d = HaveMagic(426)
w = HaveMagic(443)
p = HaveMagic(285)
e = 0
    elseif kiemtraft() == 9 then
a = HaveMagic(382)
b = HaveMagic(380)
c = 0
d = HaveMagic(428)
w = HaveMagic(442)
p = 0
e = 0
    elseif kiemtraft() == 10 then
a = HaveMagic(385)
b = HaveMagic(384)
c = 0
d = HaveMagic(430)
w = HaveMagic(439)
p = 0
e = 0
    elseif kiemtraft() == 11 then
a = 0
b = 0
c = 0
d = 0
w = 0
p = 0
e = 0
    end
n = RollbackSkill()
x = 0
i = HaveMagic(210)
j = HaveMagic(471)
if (a ~= -1) then x = x + a end
if (b ~= -1) then x = x + b end
if (c ~= -1) then x = x + c end
if (d ~= -1) then x = x + d end
if (w ~= -1) then x = x + w end
if (p ~= -1) then x = x + p end
if (e ~= -1) then x = x + e end
if (i ~= -1) then x = x + i end
if (j ~= -1) then x = x + j end
rollback = n - x
    if ( rollback + GetMagicPoint() < 0 ) then
rollback = -1 * GetMagicPoint()
    end
AddMagicPoint(rollback)
    if (i ~= -1) then AddMagic(210,i) end
    if (j ~= -1) then AddMagic(284,j) end
        if kiemtraft() == 1 then
    if a ~= -1 then AddMagic(353,a) end
    if b ~= -1 then AddMagic(350,b) end
    if c ~= -1 then AddMagic(351,c) end
    if d ~= -1 then AddMagic(414,d) end
    if w ~= -1 then AddMagic(290,20+cailao) end
    if p ~= -1 then AddMagic(295,20+cailao) end
    if e ~= -1 then AddMagic(454,20+cailao) end    
        elseif kiemtraft() == 2 then
    if a ~= -1 then AddMagic(342,a) end
    if b ~= -1 then AddMagic(347,b) end
    if c ~= -1 then AddMagic(345,c) end
    if d ~= -1 then AddMagic(412,d) end
    if w ~= -1 then AddMagic(455,20+cailao) end
    if p ~= -1 then AddMagic(293,20+cailao) end
    if e ~= -1 then AddMagic(310,20+cailao) end    
        elseif kiemtraft() == 3 then
    if a ~= -1 then AddMagic(302,a) end
    if b ~= -1 then AddMagic(355,b) end
    if c ~= -1 then AddMagic(358,c) end
    if d ~= -1 then AddMagic(416,d) end    
    if w ~= -1 then AddMagic(286,20+cailao) end
    if p ~= -1 then AddMagic(288,20+cailao) end
    if e ~= -1 then AddMagic(299,20+cailao) end    
        elseif kiemtraft() == 4 then
    if a ~= -1 then AddMagic(359,a) end
    if b ~= -1 then AddMagic(361,b) end
    if d ~= -1 then AddMagic(418,d) end    
    if w ~= -1 then AddMagic(446,20+cailao) end
    if p ~= -1 then AddMagic(297,20+cailao) end
        elseif kiemtraft() == 5 then
    if a ~= -1 then AddMagic(374,a) end
    if b ~= -1 then AddMagic(370,b) end
    if d ~= -1 then AddMagic(420,d) end    
    if w ~= -1 then AddMagic(448,20+cailao) end
        elseif kiemtraft() == 6 then
    if a ~= -1 then AddMagic(377,a) end
    if b ~= -1 then AddMagic(378,b) end
    if d ~= -1 then AddMagic(422,d) end    
    if w ~= -1 then AddMagic(448,20+cailao) end
        elseif kiemtraft() == 7 then
    if a ~= -1 then AddMagic(362,a) end
    if b ~= -1 then AddMagic(389,b) end
    if d ~= -1 then AddMagic(424,d) end    
    if w ~= -1 then AddMagic(445,20+cailao) end
    if p ~= -1 then AddMagic(300,20+cailao) end
        elseif kiemtraft() == 8 then
    if a ~= -1 then AddMagic(365,a) end
    if b ~= -1 then AddMagic(367,b) end
    if d ~= -1 then AddMagic(426,d) end    
    if w ~= -1 then AddMagic(443,20+cailao) end
    if p ~= -1 then AddMagic(285,20+cailao) end
        elseif kiemtraft() == 9 then
    if a ~= -1 then AddMagic(382,a) end
    if b ~= -1 then AddMagic(380,b) end
    if d ~= -1 then AddMagic(428,d) end    
    if w ~= -1 then AddMagic(442,20+cailao) end
        elseif kiemtraft() == 10 then
    if a ~= -1 then AddMagic(385,a) end
    if d ~= -1 then AddMagic(430,d) end    
    if b ~= -1 then AddMagic(384,b) end
    if w ~= -1 then AddMagic(439,20+cailao) end
        end
end

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

Files của em đây bác ơi.Em lắp cái này từ TSBD3.0 Update sang vẫn bị thế

[taizero30]

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    
for i=1,CSTABLE[cs][3] do DelItem(iditemcantrongcs) end
Pay(CSTABLE[cs][2])
SetLevel(10)
SetTask(197,GetTask(197)+1)
Msg2Player("Bat dau chuyen Sinh Nhan Vat")
diemtn = CSTABLE[cs][4] + (GetTask(ttk) * 5) + (CSTABLE[150][4]*GetTask(198))
diemkn = CSTABLE[cs][5] + GetTask(vlmt) + (CSTABLE[150][5]*GetTask(198))
RollPoint()
AddAll(diemtn,diemkn)
checkvongsang()
KickOutSelf()
Talk(1,"","Day la lan Chuyen Sinh Thu: "..GetTask(197).." Cua Ban\n<color=red>Nhap vao bang thong bao nay de bat dau Chuyen Sinh")    
else
Talk(1,"","Ban Can Co <color=red>"..CSTABLE[cs][3].."<color> "..TENVP.." De Chuyen Sinh !")    
end
else
Talk(1,"","<color=cyan>Chuyen Sinh Dai Su:<color> Ban can co "..(CSTABLE[cs][2]/10000).." van de chuyen sinh")
end
else
Talk(1,"","<color=cyan>Chuyen Sinh Dai Su:<color> Ban can dat "..CSTABLE[cs][1].." cap de chuyen sinh")
end
cs = 0
diemtn = 0
diemkn = 0
else
Talk(1,"","<color=cyan>Chuyen Sinh Dai Su:<color> Gioi han chuyen sinh hien tai la "..GetGlbMissionV(50).." khong the tiep tuc chuyen sinh !")    
end

end

của bạn đây. nếu cuyền sinh mà ko disconect or đơ NPC thì bạn lên replay topic này sữa típ.
mình chỉ sữa function chuyensinh() thôi. bạn xem có gì thay cái function chuyensinh() của bạn thành cái của mình là dc

[TND.VN]

trước thì 15 phút là bị giờ thì 30 phút vẫn bị đơ npc ra ank ơi

[taizero30]

bạn bỏ cái checkvongsang() đi phía trên cái kickoutself() đó tại sr dài quá load ko kịp