f-fantasy
09-09-15, 05:48 AM
Mình viết 2 cái item dùng để sửa đồ đang mặc trên người. Kết hợp cùng auto VLBS thì các bác có cắm trian không lo hỏng đồ phù về cắm tẹt ga tẹt bô. Để 30 phút nó tự động sử dụng 1 lần item sẽ tự kiểm tra đồ đang đeo cái nào tụt độ bền nó sẽ sửa. Có 2 item 1 loại sủa theo số lần tức là mỗi lần sửa nó tiêu hao 1 lần sử dụng. 1 loại sửa tiêu hao lượng độ bền ví dụ kiếm tụt 10 độ bền thì sau khi sửa cái item tiêu hao mất 10 điểm.
Item 1 - Sửa theo số lần
ItemID = 4393
function main(nItemIndex)
dofile("script/ff/thientinhthach.lua")
local tbEquip = GetAllEquipment()
for i=1, getn(tbEquip) do
local nCountRepair = GetItemParam(nItemIndex, 1); --Sè lÇn cßn cã thÓ söa ch÷a
local nG, nD, nP = GetItemProp(tbEquip[i])
if nD == 0 or nD == 1 or nD == 2 or nD == 5 or nD == 6 or nD == 7 or nD == 8 then --NÕu lµ vò khÝ cËn chiÕn, vò khÝ tÇm xa, ao, giÇy, ®ai lng, mò, bao tay.
if nCountRepair > 0 then --NÕu sè lÇn söa ch÷a lín h¬n 0
local CurDur = GetCurDurability(tbEquip[i])
local MaxDur = GetMaxDurability(tbEquip[i])
local ItemName = GetItemName(tbEquip[i])
if CurDur < MaxDur then
SetCurDurability(tbEquip[i],MaxDur)
SetSpecItemParam(nItemIndex, 1, nCountRepair-1)
SyncItem(nItemIndex)
Msg2Player("Söa ch÷a thµnh c«ng trang bÞ "..ItemName.." §é bÒn hiÖn t¹i: "..GetCurDurability(tbEquip[i]).."/"..GetMaxDurability(tbEquip[i]))
end
else
ConsumeItemCount(1,6,1,ItemID,-1)
Msg2Player("Thiªn th¹ch ®· hÕt sè lÇn söa ch÷a tù ®éng biÕn mÊt.")
end
end
end
return 1
end
function GetDesc(nItemIndex)
local nCount= GetItemParam(nItemIndex, 1);
return format("<color=green>Sè lÇn söa ch÷a cßn cã thÓ thùc hiÖn<color>: <color=yellow>%d<color> lÇn", nCount)
end
Item 2 - sửa theo lượng độ bền
ItemID = 4394
function main(nItemIndex)
dofile("script/ff/banlongthach.lua")
local nCount = GetItemParam(nItemIndex, 1); --Sè ®é bÒn cßn cã thÓ dïng ®Ó phôc håi
local tbEquip = GetAllEquipment()
for i=1, getn(tbEquip) do
local nCount = GetItemParam(nItemIndex, 1); --Sè ®é bÒn cßn cã thÓ dïng ®Ó phôc håi
local nG, nD, nP = GetItemProp(tbEquip[i])
if nD == 0 or nD == 1 or nD == 2 or nD == 5 or nD == 6 or nD == 7 or nD == 8 then --NÕu lµ vò khÝ cËn chiÕn, vò khÝ tÇm xa, ao, giÇy, ®ai lng, mò, bao tay.
local CurDur = GetCurDurability(tbEquip[i]) --§é bÒn hiÖn t¹i
local MaxDur = GetMaxDurability(tbEquip[i]) --§é bÒn lín nhÊt
local NeedCur = MaxDur - CurDur --§é bÒn cÇn ®Ó phôc håi
if CurDur < MaxDur then
if nCount > NeedCur then
local ItemName = GetItemName(tbEquip[i])
SetCurDurability(tbEquip[i],MaxDur)
SetSpecItemParam(nItemIndex, 1, nCount-NeedCur)
SyncItem(nItemIndex)
Msg2Player("Söa ch÷a thµnh c«ng trang bÞ "..ItemName.." §é bÒn hiÖn t¹i: "..GetCurDurability(tbEquip[i]).."/"..GetMaxDurability(tbEquip[i]))
end
end
end
end
return 1
end
function GetDesc(nItemIndex)
local nCount= GetItemParam(nItemIndex, 1);
return format("<color=green>Lîng ®é bÒn cßn cã thÓ dïng<color>: <color=yellow>%d<color> ®é bÒn", nCount)
end
Chú ý sửa cái dòng dofile theo đường dẫn các bác đặt script, IDItem sửa thành IDItem của các bác khi thêm vào Magicscript.txt. Em đặt tên item là Thiên Tinh Thạch với Bàn Long Thạch (Lúc đầu định đặt Tru Tiên Thạch với Luân Hồi Thạch =))).
Script chép cả vào client và server với cùng đường dẫn để client load function GetDesc nhé.
Khi add item với 2 item này thì là
AddItem(6,1,4393,0,0,0,10000) --Có thể sửa chữa 10k lần
AddItem(6,1,4394,0,0,0,100000) --Lượng độ bền có thể phục hồi là 100k
Thay Id Item cho phù hợp
Nó sửa mọi loại đồ Đồ tím, đồ bạch kim, hoàng kim, xanh. Miễn là đeo trên người.Chúc các bác cắm chuột zui zẻ
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b> (<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>)
Item 1 - Sửa theo số lần
ItemID = 4393
function main(nItemIndex)
dofile("script/ff/thientinhthach.lua")
local tbEquip = GetAllEquipment()
for i=1, getn(tbEquip) do
local nCountRepair = GetItemParam(nItemIndex, 1); --Sè lÇn cßn cã thÓ söa ch÷a
local nG, nD, nP = GetItemProp(tbEquip[i])
if nD == 0 or nD == 1 or nD == 2 or nD == 5 or nD == 6 or nD == 7 or nD == 8 then --NÕu lµ vò khÝ cËn chiÕn, vò khÝ tÇm xa, ao, giÇy, ®ai lng, mò, bao tay.
if nCountRepair > 0 then --NÕu sè lÇn söa ch÷a lín h¬n 0
local CurDur = GetCurDurability(tbEquip[i])
local MaxDur = GetMaxDurability(tbEquip[i])
local ItemName = GetItemName(tbEquip[i])
if CurDur < MaxDur then
SetCurDurability(tbEquip[i],MaxDur)
SetSpecItemParam(nItemIndex, 1, nCountRepair-1)
SyncItem(nItemIndex)
Msg2Player("Söa ch÷a thµnh c«ng trang bÞ "..ItemName.." §é bÒn hiÖn t¹i: "..GetCurDurability(tbEquip[i]).."/"..GetMaxDurability(tbEquip[i]))
end
else
ConsumeItemCount(1,6,1,ItemID,-1)
Msg2Player("Thiªn th¹ch ®· hÕt sè lÇn söa ch÷a tù ®éng biÕn mÊt.")
end
end
end
return 1
end
function GetDesc(nItemIndex)
local nCount= GetItemParam(nItemIndex, 1);
return format("<color=green>Sè lÇn söa ch÷a cßn cã thÓ thùc hiÖn<color>: <color=yellow>%d<color> lÇn", nCount)
end
Item 2 - sửa theo lượng độ bền
ItemID = 4394
function main(nItemIndex)
dofile("script/ff/banlongthach.lua")
local nCount = GetItemParam(nItemIndex, 1); --Sè ®é bÒn cßn cã thÓ dïng ®Ó phôc håi
local tbEquip = GetAllEquipment()
for i=1, getn(tbEquip) do
local nCount = GetItemParam(nItemIndex, 1); --Sè ®é bÒn cßn cã thÓ dïng ®Ó phôc håi
local nG, nD, nP = GetItemProp(tbEquip[i])
if nD == 0 or nD == 1 or nD == 2 or nD == 5 or nD == 6 or nD == 7 or nD == 8 then --NÕu lµ vò khÝ cËn chiÕn, vò khÝ tÇm xa, ao, giÇy, ®ai lng, mò, bao tay.
local CurDur = GetCurDurability(tbEquip[i]) --§é bÒn hiÖn t¹i
local MaxDur = GetMaxDurability(tbEquip[i]) --§é bÒn lín nhÊt
local NeedCur = MaxDur - CurDur --§é bÒn cÇn ®Ó phôc håi
if CurDur < MaxDur then
if nCount > NeedCur then
local ItemName = GetItemName(tbEquip[i])
SetCurDurability(tbEquip[i],MaxDur)
SetSpecItemParam(nItemIndex, 1, nCount-NeedCur)
SyncItem(nItemIndex)
Msg2Player("Söa ch÷a thµnh c«ng trang bÞ "..ItemName.." §é bÒn hiÖn t¹i: "..GetCurDurability(tbEquip[i]).."/"..GetMaxDurability(tbEquip[i]))
end
end
end
end
return 1
end
function GetDesc(nItemIndex)
local nCount= GetItemParam(nItemIndex, 1);
return format("<color=green>Lîng ®é bÒn cßn cã thÓ dïng<color>: <color=yellow>%d<color> ®é bÒn", nCount)
end
Chú ý sửa cái dòng dofile theo đường dẫn các bác đặt script, IDItem sửa thành IDItem của các bác khi thêm vào Magicscript.txt. Em đặt tên item là Thiên Tinh Thạch với Bàn Long Thạch (Lúc đầu định đặt Tru Tiên Thạch với Luân Hồi Thạch =))).
Script chép cả vào client và server với cùng đường dẫn để client load function GetDesc nhé.
Khi add item với 2 item này thì là
AddItem(6,1,4393,0,0,0,10000) --Có thể sửa chữa 10k lần
AddItem(6,1,4394,0,0,0,100000) --Lượng độ bền có thể phục hồi là 100k
Thay Id Item cho phù hợp
Nó sửa mọi loại đồ Đồ tím, đồ bạch kim, hoàng kim, xanh. Miễn là đeo trên người.Chúc các bác cắm chuột zui zẻ
<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b> (<b><font color=red>[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]</font></b>)