DarkOfTheMoon
19-07-12, 07:22 AM
Một script nho nhỏ dùng talk và say hiển thị số tiền trong hành trang:
link: <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>
<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>
Include file và dùng func call.showmoneyMsg() để gọi nó ra khi sử dụng.
1 hàm nho nhỏ ép trang bị huyền tinh, config cho phù hợp với server...
----ep do tim
---call
--7/31/12
epdo_huyentinh = function()
Say(Menu_epdo_ht.doi_thoai(),4,
Menu_epdo_ht.option(),
Menu_epdo_ht.option1(),
Menu_epdo_ht.option2(),
Menu_epdo_ht.option8())
end
next = function()
Say(Menu_epdo_ht.doi_thoai(),4,
Menu_epdo_ht.option3(),
Menu_epdo_ht.option4(),
Menu_epdo_ht.option5(),
Menu_epdo_ht.option9())
end
next1 = function()
Say(Menu_epdo_ht.doi_thoai(),3,
Menu_epdo_ht.option6(),
Menu_epdo_ht.option7(),
Menu_epdo_ht.optioncancel())
end
function no()
end
ren_ao = function()
SetTaskTemp(50,1)
accept_vatlieu()
end
ren_non = function()
SetTaskTemp(50,2)
accept_vatlieu()
end
ren_baotay = function()
SetTaskTemp(50,3)
accept_vatlieu()
end
ren_dailung = function()
SetTaskTemp(50,4)
accept_vatlieu()
end
ren_daychuyen = function()
SetTaskTemp(50,5)
accept_vatlieu()
end
ren_ngocboi = function()
SetTaskTemp(50,6)
accept_vatlieu()
end
ren_giay = function()
SetTaskTemp(50,7)
accept_vatlieu()
end
ren_nhan = function()
SetTaskTemp(50,8)
accept_vatlieu()
end
gointo = function()
if check_task() == 1 then --ao
del_all_vatlieu()
give_ao()
elseif check_task() == 2 then -- non
del_all_vatlieu()
give_non()
elseif check_task() == 3 then --bao tay
del_all_vatlieu()
give_baotay()
elseif check_task() == 4 then --dai lung
del_all_vatlieu()
give_dailung()
elseif check_task() == 5 then --day chuyen
del_all_vatlieu()
give_daychuyen()
elseif check_task() == 6 then --ngoc boi
del_all_vatlieu()
give_ngocboi()
elseif check_task() == 7 then --giay
del_all_vatlieu()
give_giay()
elseif check_task() == 8 then -- nhan
del_all_vatlieu()
give_nhan()
else
return nil
end
end
accept_vatlieu = function()
if check_vatlieu(1) >= 1 then
if check_vatlieu(2) >= 1 then
if check_vatlieu(3) >= 1 then
if check_vatlieu(4) >= 1 then
if check_vatlieu(5) >= 1000000 then
if check_vatlieu(6) >= 3 then
if check_vatlieu(7) >= 5 then
if check_vatlieu(8) >= 7 then
gointo()
else
Talk(1,"","Ng¬i kh«ng cã ®ñ 7 lä phóc duyªn.")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 5 viªn thÇn bÝ kho¸ng th¹ch.")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 3 viªn thiªn th¹ch ®¹i")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 100 v¹n lîng.")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 1 viªn lôc thñy tinh.")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 1 viªn tö thñy tinh")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 1 viªn lam thñy tinh")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 1 viªn huyÒn tinh cÊp 3 trong hµnh trang.")
SetTaskTemp(50,0)
end
end
del_all_vatlieu = function()
del_vatlieu(1)
del_vatlieu(2)
del_vatlieu(3)
del_vatlieu(4)
del_vatlieu(5)
del_vatlieu(6)
del_vatlieu(7)
del_vatlieu(8)
end
del_vatlieu = function(number)
if number == 1 then
DelItem(6)
elseif number == 2 then
DelItem(28)
elseif number == 3 then
DelItem(29)
elseif number == 4 then
DelItem(30)
elseif number == 5 then
Pay(1000000)
elseif number == 6 then
for i = 1 , 3 do
DelItem(77)
end
elseif number == 7 then
for i=1,5 do
DelItem(78)
end
elseif number == 8 then
for i=1,7 do
DelItem(80)
end
else
return nil
end
end
check_vatlieu = function(number)
if number == 1 then
return GetItemCount(6) --huyen tinh cap 3
elseif number == 2 then
return GetItemCount(28) -- lam thuy tinh
elseif number == 3 then
return GetItemCount(29) -- tu thuy tinh
elseif number == 4 then
return GetItemCount(30) ---luc thuy tinh
elseif number == 5 then
return GetCash() --check so tien
elseif number == 6 then
return GetItemCount(77)--thien thach dai
elseif number == 7 then
return GetItemCount(78) -- than bi khoang thach
elseif number == 8 then
return GetItemCount(80) -- phuc duyen ep do
else
return nil
end
end
check_task = function()
check_id = GetTaskTemp(50)
if check_id == 1 then
return 1
elseif check_id == 2 then
return 2
elseif check_id == 3 then
return 3
elseif check_id == 4 then
return 4
elseif check_id == 5 then
return 5
elseif check_id == 6 then
return 6
elseif check_id == 7 then
return 7
elseif check_id == 8 then
return 8
else
return nil
end
end
--nhan
give_nhan= function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,3,25,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nhÉn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nhÉn huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,3,25,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nhÉn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nhÉn huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,3,25,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nhÉn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nhÉn huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,3,25,1,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nhÉn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nhÉn huyÒn tinh.")
else
AddItem(0,3,25,series,0,100,100,100)
Msg2Player("Ðp thµnh c«ng nhÉn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nhÉn huyÒn tinh.")
end
end
---giay
give_giay = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,5,22,7,series,100,100)
Msg2Player("Ðp thµnh c«ng giµy huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng giµy huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,5,22,6,series,100,100)
Msg2Player("Ðp thµnh c«ng giµy huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng giµy huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,5,22,5,series,100,100)
Msg2Player("Ðp thµnh c«ng giµy huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng giµy huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,5,22,4,series,100,100)
Msg2Player("Ðp thµnh c«ng giµy huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng giµy huyÒn tinh.")
else
AddItem(0,5,22,3,series,100,100)
Msg2Player("Ðp thµnh c«ng giµy huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng giµy huyÒn tinh.")
end
end
--ngoc boi
give_ngocboi= function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,9,15,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ngäc béi huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ngäc béi huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,9,15,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ngäc béi huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ngäc béi huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,9,15,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ngäc béi huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ngäc béi huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,9,15,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ngäc béi huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ngäc béi huyÒn tinh.")
else
AddItem(0,9,15,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ngäc béi huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ngäc béi huyÒn tinh.")
end
end
----day chuyen
give_daychuyen = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >=1 and radnum < 10 then
AddItem(0,4,12,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
elseif radnum >=10 and radnum < 15 then
AddItem(0,4,12,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
elseif radnum >=15 and radnum < 20 then
AddItem(0,4,12,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
elseif radnum >=20 and radnum < 25 then
AddItem(0,4,12,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
else
AddItem(0,4,12,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
end
end
--dai lung
give_dailung = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,6,25,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai lng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai lng huyÒn tinh.")
elseif radnum >= 10 and radnum <15 then
AddItem(0,6,25,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai lng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai lng huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,6,25,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai lng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai lng huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,6,25,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai lng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai lng huyÒn tinh.")
else
AddItem(0,6,25,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai lng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai lng huyÒn tinh.")
end
end
--bao tay
give_baotay = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,8,19,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng bao tay huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng bao tay huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,8,19,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng bao tay huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng bao tay huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,8,19,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng bao tay huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng bao tay huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,8,19,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng bao tay huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng bao tay huyÒn tinh.")
else
AddItem(0,8,19,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng bao tay huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng bao tay huyÒn tinh.")
end
end
--non
give_non = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,7,38,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nãn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nãn huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,7,38,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nãn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nãn huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,7,38,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nãn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nãn huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,7,38,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nãn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nãn huyÒn tinh.")
else
AddItem(0,7,38,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nãn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nãn huyÒn tinh.")
end
end
---ao
give_ao = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,2,46,7,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ¸o huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ¸o huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,2,46,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ¸o huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ¸o huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,2,46,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ¸o huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ¸o huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,2,46,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ¸o huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ¸o huyÒn tinh.")
else
AddItem(0,2,46,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ¸o huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ¸o huyÒn tinh.")
end
end
Menu_epdo_ht =
{
doi_thoai = function()
str = "<color=green>Thiªn Th¹ch §¹i + ThÇn BÝ + Phóc Duyªn: 3-5-7<enter><color=green>HuyÒn Tinh 3: 1 viªn<color><enter><color=green>Thñy tinh: 3 viªn<color><enter><color=green>TiÒn v¹n: 100 v¹n"
return str
end,
option = function()
str = "ChÕ t¹o ¸o huyÒn tinh/ren_ao"
return str
end,
option1 = function()
str = "ChÕ t¹o nãn huyÒn tinh/ren_non"
return str
end,
option2 = function()
str = "ChÕ t¹o bao tay huyÒn tinh/ren_baotay"
return str
end,
option3 = function()
str = "ChÕ t¹o ®ai lng huyÒn tinh/ren_dailung"
return str
end,
option4 = function()
str = "ChÕ t¹o d©y chuyÒn huyÒn tinh/ren_daychuyen"
return str
end,
option5 = function()
str = "ChÕ t¹o ngäc béi huyÒn tinh/ren_ngocboi"
return str
end,
option6 = function()
str = "ChÕ t¹o giµy huyÒn tinh/ren_giay"
return str
end,
option7 = function()
str = "ChÕ t¹o nhÉn huyÒn tinh/ren_nhan"
return str
end,
option8 = function()
str = "Trang tiÕp theo/next"
return str
end,
option9 = function()
str = "Trang tiÕp theo/next1"
return str
end,
optioncancel = function()
str = "KÕt thóc ®èi tho¹i/no"
return str
end
}
link: <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>
<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>
Include file và dùng func call.showmoneyMsg() để gọi nó ra khi sử dụng.
1 hàm nho nhỏ ép trang bị huyền tinh, config cho phù hợp với server...
----ep do tim
---call
--7/31/12
epdo_huyentinh = function()
Say(Menu_epdo_ht.doi_thoai(),4,
Menu_epdo_ht.option(),
Menu_epdo_ht.option1(),
Menu_epdo_ht.option2(),
Menu_epdo_ht.option8())
end
next = function()
Say(Menu_epdo_ht.doi_thoai(),4,
Menu_epdo_ht.option3(),
Menu_epdo_ht.option4(),
Menu_epdo_ht.option5(),
Menu_epdo_ht.option9())
end
next1 = function()
Say(Menu_epdo_ht.doi_thoai(),3,
Menu_epdo_ht.option6(),
Menu_epdo_ht.option7(),
Menu_epdo_ht.optioncancel())
end
function no()
end
ren_ao = function()
SetTaskTemp(50,1)
accept_vatlieu()
end
ren_non = function()
SetTaskTemp(50,2)
accept_vatlieu()
end
ren_baotay = function()
SetTaskTemp(50,3)
accept_vatlieu()
end
ren_dailung = function()
SetTaskTemp(50,4)
accept_vatlieu()
end
ren_daychuyen = function()
SetTaskTemp(50,5)
accept_vatlieu()
end
ren_ngocboi = function()
SetTaskTemp(50,6)
accept_vatlieu()
end
ren_giay = function()
SetTaskTemp(50,7)
accept_vatlieu()
end
ren_nhan = function()
SetTaskTemp(50,8)
accept_vatlieu()
end
gointo = function()
if check_task() == 1 then --ao
del_all_vatlieu()
give_ao()
elseif check_task() == 2 then -- non
del_all_vatlieu()
give_non()
elseif check_task() == 3 then --bao tay
del_all_vatlieu()
give_baotay()
elseif check_task() == 4 then --dai lung
del_all_vatlieu()
give_dailung()
elseif check_task() == 5 then --day chuyen
del_all_vatlieu()
give_daychuyen()
elseif check_task() == 6 then --ngoc boi
del_all_vatlieu()
give_ngocboi()
elseif check_task() == 7 then --giay
del_all_vatlieu()
give_giay()
elseif check_task() == 8 then -- nhan
del_all_vatlieu()
give_nhan()
else
return nil
end
end
accept_vatlieu = function()
if check_vatlieu(1) >= 1 then
if check_vatlieu(2) >= 1 then
if check_vatlieu(3) >= 1 then
if check_vatlieu(4) >= 1 then
if check_vatlieu(5) >= 1000000 then
if check_vatlieu(6) >= 3 then
if check_vatlieu(7) >= 5 then
if check_vatlieu(8) >= 7 then
gointo()
else
Talk(1,"","Ng¬i kh«ng cã ®ñ 7 lä phóc duyªn.")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 5 viªn thÇn bÝ kho¸ng th¹ch.")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 3 viªn thiªn th¹ch ®¹i")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 100 v¹n lîng.")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 1 viªn lôc thñy tinh.")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 1 viªn tö thñy tinh")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 1 viªn lam thñy tinh")
SetTaskTemp(50,0)
end
else
Talk(1,"","Ng¬i kh«ng cã 1 viªn huyÒn tinh cÊp 3 trong hµnh trang.")
SetTaskTemp(50,0)
end
end
del_all_vatlieu = function()
del_vatlieu(1)
del_vatlieu(2)
del_vatlieu(3)
del_vatlieu(4)
del_vatlieu(5)
del_vatlieu(6)
del_vatlieu(7)
del_vatlieu(8)
end
del_vatlieu = function(number)
if number == 1 then
DelItem(6)
elseif number == 2 then
DelItem(28)
elseif number == 3 then
DelItem(29)
elseif number == 4 then
DelItem(30)
elseif number == 5 then
Pay(1000000)
elseif number == 6 then
for i = 1 , 3 do
DelItem(77)
end
elseif number == 7 then
for i=1,5 do
DelItem(78)
end
elseif number == 8 then
for i=1,7 do
DelItem(80)
end
else
return nil
end
end
check_vatlieu = function(number)
if number == 1 then
return GetItemCount(6) --huyen tinh cap 3
elseif number == 2 then
return GetItemCount(28) -- lam thuy tinh
elseif number == 3 then
return GetItemCount(29) -- tu thuy tinh
elseif number == 4 then
return GetItemCount(30) ---luc thuy tinh
elseif number == 5 then
return GetCash() --check so tien
elseif number == 6 then
return GetItemCount(77)--thien thach dai
elseif number == 7 then
return GetItemCount(78) -- than bi khoang thach
elseif number == 8 then
return GetItemCount(80) -- phuc duyen ep do
else
return nil
end
end
check_task = function()
check_id = GetTaskTemp(50)
if check_id == 1 then
return 1
elseif check_id == 2 then
return 2
elseif check_id == 3 then
return 3
elseif check_id == 4 then
return 4
elseif check_id == 5 then
return 5
elseif check_id == 6 then
return 6
elseif check_id == 7 then
return 7
elseif check_id == 8 then
return 8
else
return nil
end
end
--nhan
give_nhan= function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,3,25,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nhÉn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nhÉn huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,3,25,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nhÉn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nhÉn huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,3,25,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nhÉn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nhÉn huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,3,25,1,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nhÉn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nhÉn huyÒn tinh.")
else
AddItem(0,3,25,series,0,100,100,100)
Msg2Player("Ðp thµnh c«ng nhÉn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nhÉn huyÒn tinh.")
end
end
---giay
give_giay = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,5,22,7,series,100,100)
Msg2Player("Ðp thµnh c«ng giµy huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng giµy huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,5,22,6,series,100,100)
Msg2Player("Ðp thµnh c«ng giµy huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng giµy huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,5,22,5,series,100,100)
Msg2Player("Ðp thµnh c«ng giµy huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng giµy huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,5,22,4,series,100,100)
Msg2Player("Ðp thµnh c«ng giµy huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng giµy huyÒn tinh.")
else
AddItem(0,5,22,3,series,100,100)
Msg2Player("Ðp thµnh c«ng giµy huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng giµy huyÒn tinh.")
end
end
--ngoc boi
give_ngocboi= function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,9,15,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ngäc béi huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ngäc béi huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,9,15,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ngäc béi huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ngäc béi huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,9,15,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ngäc béi huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ngäc béi huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,9,15,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ngäc béi huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ngäc béi huyÒn tinh.")
else
AddItem(0,9,15,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ngäc béi huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ngäc béi huyÒn tinh.")
end
end
----day chuyen
give_daychuyen = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >=1 and radnum < 10 then
AddItem(0,4,12,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
elseif radnum >=10 and radnum < 15 then
AddItem(0,4,12,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
elseif radnum >=15 and radnum < 20 then
AddItem(0,4,12,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
elseif radnum >=20 and radnum < 25 then
AddItem(0,4,12,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
else
AddItem(0,4,12,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng d©y chuyÒn huyÒn tinh.")
end
end
--dai lung
give_dailung = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,6,25,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai lng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai lng huyÒn tinh.")
elseif radnum >= 10 and radnum <15 then
AddItem(0,6,25,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai lng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai lng huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,6,25,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai lng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai lng huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,6,25,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai lng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai lng huyÒn tinh.")
else
AddItem(0,6,25,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai lng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai lng huyÒn tinh.")
end
end
--bao tay
give_baotay = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,8,19,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng bao tay huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng bao tay huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,8,19,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng bao tay huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng bao tay huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,8,19,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng bao tay huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng bao tay huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,8,19,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng bao tay huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng bao tay huyÒn tinh.")
else
AddItem(0,8,19,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng bao tay huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng bao tay huyÒn tinh.")
end
end
--non
give_non = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,7,38,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nãn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nãn huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,7,38,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nãn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nãn huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,7,38,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nãn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nãn huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,7,38,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nãn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nãn huyÒn tinh.")
else
AddItem(0,7,38,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng nãn huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng nãn huyÒn tinh.")
end
end
---ao
give_ao = function()
radnum = random(1,50)
series = random(0,4)
SetTaskTemp(50,0)
if radnum >= 1 and radnum < 10 then
AddItem(0,2,46,7,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ¸o huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ¸o huyÒn tinh.")
elseif radnum >= 10 and radnum < 15 then
AddItem(0,2,46,6,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ¸o huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ¸o huyÒn tinh.")
elseif radnum >= 15 and radnum < 20 then
AddItem(0,2,46,5,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ¸o huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ¸o huyÒn tinh.")
elseif radnum >= 20 and radnum < 25 then
AddItem(0,2,46,4,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ¸o huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ¸o huyÒn tinh.")
else
AddItem(0,2,46,3,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ¸o huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ¸o huyÒn tinh.")
end
end
Menu_epdo_ht =
{
doi_thoai = function()
str = "<color=green>Thiªn Th¹ch §¹i + ThÇn BÝ + Phóc Duyªn: 3-5-7<enter><color=green>HuyÒn Tinh 3: 1 viªn<color><enter><color=green>Thñy tinh: 3 viªn<color><enter><color=green>TiÒn v¹n: 100 v¹n"
return str
end,
option = function()
str = "ChÕ t¹o ¸o huyÒn tinh/ren_ao"
return str
end,
option1 = function()
str = "ChÕ t¹o nãn huyÒn tinh/ren_non"
return str
end,
option2 = function()
str = "ChÕ t¹o bao tay huyÒn tinh/ren_baotay"
return str
end,
option3 = function()
str = "ChÕ t¹o ®ai lng huyÒn tinh/ren_dailung"
return str
end,
option4 = function()
str = "ChÕ t¹o d©y chuyÒn huyÒn tinh/ren_daychuyen"
return str
end,
option5 = function()
str = "ChÕ t¹o ngäc béi huyÒn tinh/ren_ngocboi"
return str
end,
option6 = function()
str = "ChÕ t¹o giµy huyÒn tinh/ren_giay"
return str
end,
option7 = function()
str = "ChÕ t¹o nhÉn huyÒn tinh/ren_nhan"
return str
end,
option8 = function()
str = "Trang tiÕp theo/next"
return str
end,
option9 = function()
str = "Trang tiÕp theo/next1"
return str
end,
optioncancel = function()
str = "KÕt thóc ®èi tho¹i/no"
return str
end
}