ohishu
12-11-10, 07:07 PM
Việc Viết Các Script Nâng Cấp Item Đối Với Các Developer JXP Có Lẽ Là 1 Phần Ngán Nhất Vì Quá Dài !
Nay Tui Xin Trình Bày 1 Cách Viết Ngắn Gọn = Mảng Thông Qua Script Nâng Cấp Huyền Tinh Ở Version 0.3 TSBĐ
Coi Và Hiểu:
Include("\\script\\source\\sourcejx49.lua")
CTHuyenTinh={ -- Chú Thích: Tên Item , Số Item Để Thăng Cấp !
{"Huyen Tinh [1]",3},
{"Huyen Tinh [2]",3},
{"Huyen Tinh [3]",3},
{"Huyen Tinh [4]",4},
{"Huyen Tinh [5]",4},
{"Huyen Tinh [6]",4},
{"Huyen Tinh [7]",5},
{"Huyen Tinh [8]",5},
{"Huyen Tinh [9]",5},
{"Huyen Tinh [10]",5}
}
function thangcap()
SayEx({"<color=cyan>Tiem Tap Hoa:<color> Thang Cap\nHuyen Tinh <color=red>2 --> 4<color> Thi Can 3 Vien Dong Chat. Sac Xuat <color=red>100%<color>\nHuyen Tinh <color=red>5 --> 7<color> Thi Can 4 Vien Dong Chat. Sac Xuat <color=red>75%<color>\nHuyen Tinh <color=red>8 --> 10<color> Thi Can 5 Vien Dong Chat. Sac Xuat <color=red>50%<color> !",
"Thang Cap HT 2/thangcapht",
"Thang Cap HT 3/thangcapht",
"Thang Cap HT 4/thangcapht",
"Thang Cap HT 5/thangcapht",
"Thang Cap HT 6/thangcapht",
"Thang Cap HT 7/thangcapht",
"Thang Cap HT 8/thangcapht",
"Thang Cap HT 9/thangcapht",
"Thang Cap HT 10/thangcapht",
"Thoat/Exit"})
end
function thangcapht(sel)
id = sel + 1
z = GetItemCount(CTHuyenTinh[id][1])
if id >= 1 and id < 4 then
if GetItemCount(CTHuyenTinh[id][1]) >= CTHuyenTinh[id][2] then
for i=1,CTHuyenTinh[id][2] do DelItem(CTHuyenTinh[id][1]) end
if GetItemCount(CTHuyenTinh[id][1]) == z - CTHuyenTinh[id][2] then
AddEventItem(CTHuyenTinh[id+1][1])
Msg2Player("Ban Nhan Duoc 1 Vien Huyen Tinh Cap "..(id+1).." !")
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
elseif id >= 4 and id < 7 then
a = random(1,4) -- Xác Suất
if a > 1 then
if GetItemCount(CTHuyenTinh[id][1]) >= CTHuyenTinh[id][2] then
for i=1,CTHuyenTinh[id][2] do DelItem(CTHuyenTinh[id][1]) end
if GetItemCount(CTHuyenTinh[id][1]) == z - CTHuyenTinh[id][2] then
AddEventItem(CTHuyenTinh[id+1][1])
Msg2Player("Ban Nhan Duoc 1 Vien Huyen Tinh Cap "..(id+1).." !")
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
else
Msg2Player("Thang Cap "..CTHuyenTinh[id+1][1].." That Bai !")
end
elseif id >= 7 and id < 10 then
a = random(1,2) -- Xác Suất
if a == 2 then
if GetItemCount(CTHuyenTinh[id][1]) >= CTHuyenTinh[id][2] then
for i=1,CTHuyenTinh[id][2] do DelItem(CTHuyenTinh[id][1]) end
if GetItemCount(CTHuyenTinh[id][1]) == z - CTHuyenTinh[id][2] then
AddEventItem(CTHuyenTinh[id+1][1])
Msg2Player("Ban Nhan Duoc 1 Vien Huyen Tinh Cap "..(id+1).." !")
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
else
Msg2Player("Thang Cap "..CTHuyenTinh[id+1][1].." That Bai !")
end
end
end
Hay Thì Thanks Phát Nào :D :D
>:D<>:D<>:D<>:D<
Nay Tui Xin Trình Bày 1 Cách Viết Ngắn Gọn = Mảng Thông Qua Script Nâng Cấp Huyền Tinh Ở Version 0.3 TSBĐ
Coi Và Hiểu:
Include("\\script\\source\\sourcejx49.lua")
CTHuyenTinh={ -- Chú Thích: Tên Item , Số Item Để Thăng Cấp !
{"Huyen Tinh [1]",3},
{"Huyen Tinh [2]",3},
{"Huyen Tinh [3]",3},
{"Huyen Tinh [4]",4},
{"Huyen Tinh [5]",4},
{"Huyen Tinh [6]",4},
{"Huyen Tinh [7]",5},
{"Huyen Tinh [8]",5},
{"Huyen Tinh [9]",5},
{"Huyen Tinh [10]",5}
}
function thangcap()
SayEx({"<color=cyan>Tiem Tap Hoa:<color> Thang Cap\nHuyen Tinh <color=red>2 --> 4<color> Thi Can 3 Vien Dong Chat. Sac Xuat <color=red>100%<color>\nHuyen Tinh <color=red>5 --> 7<color> Thi Can 4 Vien Dong Chat. Sac Xuat <color=red>75%<color>\nHuyen Tinh <color=red>8 --> 10<color> Thi Can 5 Vien Dong Chat. Sac Xuat <color=red>50%<color> !",
"Thang Cap HT 2/thangcapht",
"Thang Cap HT 3/thangcapht",
"Thang Cap HT 4/thangcapht",
"Thang Cap HT 5/thangcapht",
"Thang Cap HT 6/thangcapht",
"Thang Cap HT 7/thangcapht",
"Thang Cap HT 8/thangcapht",
"Thang Cap HT 9/thangcapht",
"Thang Cap HT 10/thangcapht",
"Thoat/Exit"})
end
function thangcapht(sel)
id = sel + 1
z = GetItemCount(CTHuyenTinh[id][1])
if id >= 1 and id < 4 then
if GetItemCount(CTHuyenTinh[id][1]) >= CTHuyenTinh[id][2] then
for i=1,CTHuyenTinh[id][2] do DelItem(CTHuyenTinh[id][1]) end
if GetItemCount(CTHuyenTinh[id][1]) == z - CTHuyenTinh[id][2] then
AddEventItem(CTHuyenTinh[id+1][1])
Msg2Player("Ban Nhan Duoc 1 Vien Huyen Tinh Cap "..(id+1).." !")
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
elseif id >= 4 and id < 7 then
a = random(1,4) -- Xác Suất
if a > 1 then
if GetItemCount(CTHuyenTinh[id][1]) >= CTHuyenTinh[id][2] then
for i=1,CTHuyenTinh[id][2] do DelItem(CTHuyenTinh[id][1]) end
if GetItemCount(CTHuyenTinh[id][1]) == z - CTHuyenTinh[id][2] then
AddEventItem(CTHuyenTinh[id+1][1])
Msg2Player("Ban Nhan Duoc 1 Vien Huyen Tinh Cap "..(id+1).." !")
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
else
Msg2Player("Thang Cap "..CTHuyenTinh[id+1][1].." That Bai !")
end
elseif id >= 7 and id < 10 then
a = random(1,2) -- Xác Suất
if a == 2 then
if GetItemCount(CTHuyenTinh[id][1]) >= CTHuyenTinh[id][2] then
for i=1,CTHuyenTinh[id][2] do DelItem(CTHuyenTinh[id][1]) end
if GetItemCount(CTHuyenTinh[id][1]) == z - CTHuyenTinh[id][2] then
AddEventItem(CTHuyenTinh[id+1][1])
Msg2Player("Ban Nhan Duoc 1 Vien Huyen Tinh Cap "..(id+1).." !")
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
else
Msg2Player("Ban Khong Co "..CTHuyenTinh[id][2].." Vien "..CTHuyenTinh[id][1].." !")
end
else
Msg2Player("Thang Cap "..CTHuyenTinh[id+1][1].." That Bai !")
end
end
end
Hay Thì Thanks Phát Nào :D :D
>:D<>:D<>:D<>:D<