The King
New member
Đây là Script Thuyền Phu đa năng do mình (thaihoa91) viết ở Ba Lăng huyện nhưng nếu là Thuyền Phu của maps khác thì chỉ cần đổi câu nói lại thui àh ! (Câu nói màu xanh có thể thay đổi) :
Mã:
+ LinkDown Galaxy :
+ LinkDown Mediafire :
Down về giải nén ra --> Copy thư mục Settings vừa giải nén và Paste vào thư mục Server và thư mục Client là OK !
Trong khi hoàn thiện bộ maps Ba Lăng huyện cơ bản này, mình sẽ làm Script Xa Phu đa năng luôn (khác manhtuyen nha ^__^)
Đây là nguyên bản của chú ấy tui chỉ post lại kẻo lại bảo ăn cắp bản quyền + tội edit lung tung nữa
Mã:
Muốn xài Script Xa Phu đa năng này có lựa chọn maps đến đã dc việt hóa thì down Settings này :---Npc Name : Thuyen Phu
---Author : thaihoa91
---Date : 26/08/2009
Include("\\script\\global\\serverlib.lua");
CurWharf = 5;
function main()
if (GetLevel() >= 6) then
Thuyen_Phu_BLH_1()
else
Thuyen_Phu_BLH_2()
end
end;
function Thuyen_Phu_BLH_1()
SayEx({"Ta co biet hieu la 'Lang Ly Bach Dieu', ba doi deu song dua vao song nuoc! Khap Ba Lang huyen nay khong co ai la doi thu! Khach quan muon di dau!","Ngoi thuyen/WharfFunBLH","Khong ngoi/kongoi"})
end;
function Thuyen_Phu_BLH_2()
Talk(1,"","Ben ngoai loan lac, xem nguoi troi ga khong chat! Ra ngoai thon ta e khong giu duoc mang dau!")
end;
function WharfFunBLH()
Count = GetWharfCount(CurWharf);
Num = Count;
WharfB = {};
nValidCount = 1;
for i = 1, Num do
WharfId = GetWharf(CurWharf, i);
if (WharfId ~= 0) then
nPrice = GetWharfPrice(CurWharf, WharfId);
WharfB[nValidCount] = GetWharfName(WharfId) .. "[" .. nPrice .. " luong]" .. "/SelWharf";
nValidCount = nValidCount + 1;
end
end
WharfB[nValidCount] = "Khong ngoi/kongoi";
if (nValidCount == 1) then
Say("Khong tien khong the ngoi thuyen!", 0);
else
Say("Khach quan muon di dau?", nValidCount, WharfB);
end
end;
function SelWharf(nSel)
nWharfId = GetWharf( CurWharf, nSel + 1);
nPrice = 0;
if (nWharfId ~= 0) then
nPrice = GetWharfPrice(CurWharf, nWharfId);
else
return
end
if (Pay(nPrice) == 1 or GetCamp() == 6 ) then
Msg2Player("Ngoi yen chua? Chung ta di "..GetWharfName(nWharfId))
nW , nX, nY = GetWharfPos(nWharfId);
nResult = NewWorld(nW, nX , nY );
if (nResult == 2) then
Msg2Player("Ban bi mat di " ..nPrice.. " luong")
end
if (nResult == 0) then
Msg2Player("Ban bi mat di " ..nPrice.. " luong")
end
end
end;
function kongoi()
Say("Khong tien khong the ngoi thuyen!",0)
end;
+ LinkDown Galaxy :
You must be registered for see links
+ LinkDown Mediafire :
You must be registered for see links
Down về giải nén ra --> Copy thư mục Settings vừa giải nén và Paste vào thư mục Server và thư mục Client là OK !
Trong khi hoàn thiện bộ maps Ba Lăng huyện cơ bản này, mình sẽ làm Script Xa Phu đa năng luôn (khác manhtuyen nha ^__^)
Đây là nguyên bản của chú ấy tui chỉ post lại kẻo lại bảo ăn cắp bản quyền + tội edit lung tung nữa