Server Hùng Bá Thiên Hạ Version2.0

**quangken** · 09-07-11, 08:12 PM

đồng bộ đầy đủ đi

..................

**Mr.Rezo** · 09-07-11, 09:12 PM

để hum nay về test.............

**quangken** · 09-07-11, 09:15 PM

ai đw về rồi up lên mediafire hộ mình với

**nongdan12** · 09-07-11, 09:51 PM

đây là hình gameserver của mình
[Only registered and activated users can see links. ]
còn đây là script trungsinh.lua các bạn xem hộ có sai chỗ nào không vậy

Code:

Include("\\Script\\global\\sourcejx49.lua");
Include("\\script\\cacsukien\\banghoi\\tong.lua")
Include("\\Data\\danhsachtrungsinh.lua")
Include("\\Data\\dangcaptrungsinh.lua")
Include("\\script\\两湖区\\巴陵县\\npc\\resetpl.lua");

IDKEYTRUNGSINH = 128
LEVELGOTWHENRESET = 1    --Level nhan duoc sau khi Chuyen Sinh
CASHTORESETPLAYER = 200    --So tien dung de Chuyen Sinh.Gia Tri: Van
MAXCHUYENSINH = 1    --Tat/Mo Chuyen Sinh Vo Han.Mac Dinh: 1
RESETKEEPSTART = 0    --Tat/mo Trung Sinh co giu diem.
FileDataTrungSinh = "Data/danhsachtrungsinh.lua"


function main()
    lapdanhsach_main()
end;


function trungsinh_npc()
solan,diemdu,info = ThongTinNhanVat(GetName())
SayEx({"<color="..colorS()..">Chuyen Sinh Lao Nhan<color>:\nThong Tin:\nChuyen Sinh: "..GetTask(TaskTrungSinh).." lan.\nYeu Cau Ke Tiep:\nLevel: "..LISTFORTS[info][1].." Cap.\t\tDanh Vong: "..LISTFORTS[info][2].." Diem.\nPhuc Duyen:"..LISTFORTS[info][3].." diem.\t\tChuyen Sinh Kiep: "..LISTFORTS[info][6].." Cai.",
        "Chuyen Sinh Nhan Vat./chuyensinhZ",
        "Huong Dan Ve Chuyen Sinh./hdcs",
        "Nhan Danh Hieu Chuyen Sinh./danhhieuchuyensinh",
        "Cai Lao Hoan Dong./clhd",
        "Thoat./Exit"})
end;


function clhd()
Msg2Player("Chuc Nang nay se cap nhat sau")
end

function phanthuongcs()
Msg2Player("Ra mat trong thoi gian som nhat")
end;
function danhhieuchuyensinh()
if GetTask(TaskTrungSinh) >= 1 and GetTask(TaskTrungSinh) < 10 then
    if HaveMagic(457) <= 0 then
        SetRank(25)
        AddMagic(457,1)
        Msg2Player("Ban nhan duoc Danh Hieu [Sieu Pham]")
    else
    Talk(1,"addrank","Nguoi da nhan <color=fire>Danh Hieu Sieu Pham<color> khong the nhan duoc nua")
    end
elseif GetTask(TaskTrungSinh) >= 10 and GetTask(TaskTrungSinh) < 20 then
    if HaveMagic(458) <= 0 then
        DelMagic(457)
        SetRank(26)
        AddMagic(458,1)
        Msg2Player("Ban nhan duoc Danh Hieu [Xuat Tran]")
    else
    Talk(1,"addrank","Nguoi da nhan <color=fire>Danh Hieu Xuat Tran<color> khong the nhan duoc nua")
    end
elseif GetTask(TaskTrungSinh) >= 20 and GetTask(TaskTrungSinh) < 30 then
    if HaveMagic(459) <= 0 then
        DelMagic(458)
        DelMagic(457)
        SetRank(27)
        AddMagic(459,1)
        Msg2Player("Ban nhan duoc Danh Hieu [Lang Tuyet]")
    else
    Talk(1,"addrank","Nguoi da nhan <color=fire>Danh Hieu Lang Tuyet<color> khong the nhan duoc nua")
    end
elseif GetTask(TaskTrungSinh) >= 30 and GetTask(TaskTrungSinh) < 40 then
    if HaveMagic(460) <= 0 then
        DelMagic(459)
        DelMagic(458)
        DelMagic(457)
        SetRank(28)
        AddMagic(460,1)
        Msg2Player("Ban nhan duoc Danh Hieu [Kinh The]")
    else
    Talk(1,"addrank","Nguoi da nhan <color=fire>Danh Hieu Kinh The<color> khong the nhan duoc nua")
    end
elseif GetTask(TaskTrungSinh) >= 40 then
    if HaveMagic(461) <= 0 then
        SetRank(29)
        DelMagic(460)
        DelMagic(458)
        DelMagic(457)
        DelMagic(459)
        AddMagic(461,1)
        Msg2Player("Ban nhan duoc Danh Hieu [Hon Thien]")
    else
    Talk(1,"addrank","Nguoi da nhan <color=fire>Danh Hieu Hon Thien<color> khong the nhan duoc nua")
    end

else
    Msg2Player("So lan trung sinh cua ban la : "..GetTask(TaskTrungSinh).." khong the nhan thuong")
end
end


function addrank()
if GetTask(TaskTrungSinh) >= 1 and GetTask(TaskTrungSinh) < 10 then
        SetRank(25)
elseif GetTask(TaskTrungSinh) >= 10 and GetTask(TaskTrungSinh) < 20 then
        SetRank(26)
elseif GetTask(TaskTrungSinh) >= 20 and GetTask(TaskTrungSinh) < 30 then
        SetRank(27)
elseif GetTask(TaskTrungSinh) >= 30 and GetTask(TaskTrungSinh) < 40 then
        SetRank(28)
elseif GetTask(TaskTrungSinh) >= 40 then
        SetRank(29)

end
end


function hdcs()
Talk(4,"Exit","Chuyen Sinh giup gia tang cong luc, hoi sinh nguyen khi",
"Chuyen Sinh nhieu lan se co uu dai nhu gia tang diem <color=fire>Trang Phai<color> va luyen them duoc skill Mon Phai",
"Cap Bac:\n1 -> 10 : Sieu Pham\t\t10 -> 20 : Xuat Tran\n20 -> 30 : Lang Tuyet\t\t30 -> 40 : Hon Thien\n40 -> 50 : Hon Thien\t\t50 >> : Vo Song",
"Moi lan trung sinh se nhan duoc diem ky nang, tiem nang va dac biet la skill ho tro danh hieu kem theo")
end;



function lapdanhsach_main()
    if timkiemtennhanvat(GetName()) == 1 then
    trungsinh_npc()
    else
    LISTRESET[getn(LISTRESET)+1] = {GetName(),GetTask(TaskTrungSinh),0,GetTask(TaskTrungSinh)+1,0}
    lammoidanhsach = TaoBang(LISTRESET,"LISTRESET","")
    SaveData(FileDataTrungSinh,lammoidanhsach)
    trungsinh_npc()
    end
end;

function updatetablecs()
    if timkiemtennhanvat(GetName()) == nil then
    LISTRESET[getn(LISTRESET)+1] = {GetName(),0,0,1,0}
    lammoidanhsach = TaoBang(LISTRESET,"LISTRESET","")
    SaveData(FileDataTrungSinh,lammoidanhsach)
    end
end;

function timkiemtennhanvat(ten)
    for i = 1,getn(LISTRESET) do
        if LISTRESET[i][1] == ten then
        return 1
        end
    end
end;

function ThongTinNhanVat(ten)
for i = 1,getn(LISTRESET) do
    if LISTRESET[i][1] == ten then
        a = GetTask(TaskTrungSinh) + 1
        if a == LISTRESET[i][4] then
        return LISTRESET[i][2],LISTRESET[i][3],LISTRESET[i][4]
        else
        LISTRESET[i][2] = GetTask(TaskTrungSinh)
        LISTRESET[i][4] = GetTask(TaskTrungSinh)+1
        lammoidanhsach = TaoBang(LISTRESET,"LISTRESET","")
        SaveData(FileDataTrungSinh,lammoidanhsach)
        return LISTRESET[i][2],LISTRESET[i][3],LISTRESET[i][4]
        end
    end
end
end;



function SOLANTRUNGSINH(ten)
    for i = 1,getn(LISTRESET) do
        if LISTRESET[i][1] == ten then
            return LISTRESET[i][2]
        end
    end
end;

function PHANTHUONGCHUYENSINH(ten)
    for i = 1,getn(LISTRESET) do
        if LISTRESET[i][1] == ten then
            return LISTRESET[i][5]
        end
    end
end;

function SUMALLREWAR()
        for i=1,getn(LISTRESET) do
        if LISTRESET[i][1] == GetName() then
            LISTRESET[i][5] = LISTRESET[i][5]+1
            lammoidanhsach = TaoBang(LISTRESET,"LISTRESET","")
            SaveData(FileDataTrungSinh,lammoidanhsach)
        end
    end
end;

function conglantrungsinh()
    for i=1,getn(LISTRESET) do
        if LISTRESET[i][1] == GetName() then
            LISTRESET[i][2] = GetTask(TaskTrungSinh)+1
            LISTRESET[i][4] = LISTRESET[i][4]+1
            lammoidanhsach = TaoBang(LISTRESET,"LISTRESET","")
            SaveData(FileDataTrungSinh,lammoidanhsach)
        end
    end
end;

function LuuExpSauKhiTrungSinh(diemluu)
    for i=1,getn(LISTRESET) do
        if LISTRESET[i][1] == GetName() then
            LISTRESET[i][3] = LISTRESET[i][3]+diemluu
            lammoidanhsach = TaoBang(LISTRESET,"LISTRESET","")
            SaveData(FileDataTrungSinh,lammoidanhsach)
        end
    end
end;

function chuyensinhZ()
solan,diemdu,info = ThongTinNhanVat(GetName())
--if info >= 47 then info = 47 end
    if GetCash() >= Van(CASHTORESETPLAYER)*info then
        if GetLevel() >= LISTFORTS[info][1] then
            if AddDanhVong() >= LISTFORTS[info][2] then
                if GetTask(TaskPhucDuyen) >= LISTFORTS[info][3] then
                    if GetItemCount(IDKEYTRUNGSINH) >= LISTFORTS[info][6] then
                        Pay(Van(CASHTORESETPLAYER)*info)
                        conglantrungsinh()
                            if RESETKEEPSTART == 1 then
                            MsgEx("Chuyen Sinh Giu Lai Toan Bo Diem Tu Cap Truoc.")
                            elseif RESETKEEPSTART == 0 then
                            RollPoint()
                            MsgEx("Chuyen Sinh Khong Giu Lai Toan Bo Diem Tu Cap Truoc.")
                            end
                        now = GetExp()
                            if now <= 0 then now = 0 end
                        LuuExpSauKhiTrungSinh(now)
                            for i =1,LISTFORTS[info][6] do
                            DelItem(IDKEYTRUNGSINH)
                            end;
                        AddOwnExp(-now)
                        a = LISTFORTS[info][2]*(-1)
                        b = LISTFORTS[info][3]
                        AddDanhVong(a)
                        SetTask(TaskPhucDuyen,GetTask(TaskPhucDuyen)-b)
                        z = LISTFORTS[info][4]
                        x = LISTFORTS[info][5]
                        AddAll(z,x)
                        --SetRank(LISTFORTS[info][7])
                        SetTask(TaskTayTuyKinh,0)
                        SetTask(TaskVoLamMatTich,0)
                        SetTask(TaskTrungSinh,GetTask(TaskTrungSinh)+1)
                        SetLevel(LEVELGOTWHENRESET)
                        solan,diemdu,info = ThongTinNhanVat(GetName())
                        MsgEx("Chuyen Sinh Nhan Vat Thanh Cong Lan Thu: "..solan)
                        MsgEx("Chuan bi thoat khoi Game...\n<Dang Cap Nhat Lai Thong Tin Nhan Vat>")
                        KickOutSelf()
                    else
                    MsgEx("<color="..colorS()..">Chuyen Sinh Lao Nhan<color>: Can Co <color=red>"..LISTFORTS[info][6].."<color> Vien Chuyen Sinh Kiep Moi co the Chuyen Sinh",1)
                    end
                else
                MsgEx("<color="..colorS()..">Chuyen Sinh Lao Nhan<color>: Can Phuc Duyen <color=red>"..LISTFORTS[info][3].."<color> Diem Moi co the Chuyen Sinh",1)
                end
            else
            MsgEx("<color="..colorS()..">Chuyen Sinh Lao Nhan<color>: Can Danh Vong <color=red>"..LISTFORTS[info][2].."<color> Diem Moi co the Chuyen Sinh",1)
            end
        else
        MsgEx("<color="..colorS()..">Chuyen Sinh Lao Nhan<color>: Can Dang Cap <color=red>"..LISTFORTS[info][1].."<color> Moi co the Chuyen Sinh",1)
        end
    else
    MsgEx("<color="..colorS()..">Chuyen Sinh Lao Nhan<color>: Can <color=red>"..CASHTORESETPLAYER.."<color> Van moi co the Chuyen Sinh",1)
    end
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())
TaySkill()
AddMagicPoint(-GetMagicPoint())
end;

function testdiemdu()
diemdu = kiemtradiemdu(GetName())
strings = "Rut "..diemdu.." diem./rutexp"
SayEx({"<color="..colorS()..">Chuyen Sinh Lao Nhan<color>: Hien tai nguoi dang co "..diemdu.." diem Kinh Nghiem du chua su dung.","Rut 500k diem./rutexp","Rut 1 Trieu diem./rutexp",strings,"Thoat./Exit"})
end;

function rutexp(nsel)
diemdu = kiemtradiemdu(GetName())
id = nsel+1
    if id == 1 then
        if diemdu >= 500000 then
            for i=1,10 do
            AddOwnExp(50000)
            end
            UseDiemExpDu(GetName(),-500000)
        else
        MsgEx("<color="..colorS()..">Chuyen Sinh Lao Nhan<color>: Nguoi khong co du diem de rut ra...",1)
        end
    elseif id == 2 then
        if diemdu >= 1000000 then
            for i=1,20 do
            AddOwnExp(50000)
            end
            UseDiemExpDu(GetName(),-1000000)
        else
        MsgEx("<color="..colorS()..">Chuyen Sinh Lao Nhan<color>: Nguoi khong co du diem de rut ra...",1)
        end
    elseif id == 3 then
        if diemdu > 0 then
        diemduz = floor(diemdu/500000)
        diemdut = mod(diemdu,500000)
            for j=1,diemduz do
                AddOwnExp(500000)
            end
        AddOwnExp(diemdut)
        UseDiemExpDu(GetName(),-diemdu)
        else
        MsgEx("<color="..colorS()..">Chuyen Sinh Lao Nhan<color>: Nguoi khong co diem nao de rut ra ca...",1)
        end
    end
end;

function kiemtravonglap(sodiem)
    if sodiem > 0 and sodiem < 500000 then
    return 10,floor(sodiem/10),1
    elseif sodiem >= 500000 then
    return 10,50000,1
    elseif sodiem >= 1000000 then
    return 20,50000,1
    elseif sodiem >= 10000000 then
    return 10,1000000,1
    elseif sodiem >= 100000000 then
    return 100,1000000,1
    elseif sodiem >= 1000000000 then
    return 100,1000000,10
    elseif sodiem >= 2000000000 then
    return 100,2000000,10
    elseif sodiem >= 3000000000 then
    return 100,3000000,10
    end
end;

function UseDiemExpDu(tennguoirut,sodiem)
    if sodiem == nil then
        return
    end
    for i = 1,getn(LISTRESET) do
        if tennguoirut == LISTRESET[i][1] then
            LISTRESET[i][3] = LISTRESET[i][3] + sodiem
            MsgEx("Hien tai ban con "..LISTRESET[i][3].." diem EXP du.")
            lammoidanhsach = TaoBang(LISTRESET,"LISTRESET","")
            SaveData(FileDataTrungSinh,lammoidanhsach)
            break
        end
    end
end

function kiemtradiemdu(ten)
    for i = 1,getn(LISTRESET) do
        if LISTRESET[i][1] == ten then
            return LISTRESET[i][3]
        end
    end
end;

function ResetDataBaseCS(ten)
    for i = 1,getn(LISTRESET) do
        if ten == LISTRESET[i][1] then
        LISTRESET[i][3] = 0
        LISTRESET[i][2] = 0
        LISTRESET[i][4] = 0
        lammoidanhsach = TaoBang(LISTRESET,"LISTRESET","")
        SaveData(FileDataTrungSinh,lammoidanhsach)
        MsgEx("Bay gio ban co the chuyen sinh lai tu dau.")
        end
    end
end;

giúp mình xem với nha

**quangken** · 10-07-11, 11:35 AM

Thế này nhé .
Bạn Hãy Thử 1 Trong 2 Cách Sau Đây :
1. : bạn viết thử lại spicrts trungsinh.lua hoặc lấy tạm sv khác chép đè vào nếu viết lại vẫn bị add luôn npc mới

2. : bạn xóa hết đi cài lại từ đầu làm từng bước 1 để đc sv và client thống nhất

**montersghost** · 10-07-11, 03:44 PM

sv này sao max lv là 150 hả bác quang bác xem giúp em với nha

**quangken** · 10-07-11, 04:28 PM

đâu max là 200 bạn à bạn nhận kinh nhiệm từ chức năng admin ấy còn bạn nào .. thấy thực sự cần giúp đỡ pm mình qua yahoo

**tungpro102** · 10-07-11, 10:29 PM

Gửi bởi -Funny- [Only registered and activated users can see links. ]

thấy 2 số 72 kìa

còn anhhaijx là nghe thèng mít tê tom nói

Kệ nó đi pa. anti nó hả

.......................

**montersghost** · 11-07-11, 09:47 PM

up cho bác mong bác cố gắng hoàn thiện ver 3.0 share lên cho anh em test chơi

**buitam1501** · 12-07-11, 01:04 PM

Bạn ơi mình down thử server về và cài đặt thành công nhưng cũng bị các lỗi như các comment ở trên đã nói vậy, lỗi NPC Bắc đẩu (Chuyển sinh), hiệu thuốc, và xa phu đi thành thị khác. Bạn xem lại sv giúp được không

Chủ đề: Server Hùng Bá Thiên Hạ Version2.0

Công cụ Chủ đề

Ðề: Share Sv Hùng bá thiên hạ

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

Ðề: Share Sv Hùng bá thiên hạ

Ðề: Share Sv Hùng bá thiên hạ

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

Ðề: Share Sv Hùng bá thiên hạ

Ðề: Share Sv Hùng bá thiên hạ

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

Ðề: Share Sv Hùng bá thiên hạ

Ðề: Share Sv Hùng bá thiên hạ

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

Ðề: Share Sv Hùng bá thiên hạ

Ðề: Share Sv Hùng bá thiên hạ

Ðề: Share Sv Hùng bá thiên hạ

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

Cần giúp về ranking webNBB version2.

Thiên Giới Server

Cách thiết đặt phần cứng để Server của bạn đc mạnh nhất

server 10.03.15 của Thiệu Vân

hỏi về server của thiên vân

Quyền viết bài