Một script nho nhỏ

[DarkOfTheMoon]

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 l­ng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai l­ng 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 l­ng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai l­ng 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 l­ng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai l­ng 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 l­ng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai l­ng huyÒn tinh.")
else
AddItem(0,6,25,2,series,100,100,100)
Msg2Player("Ðp thµnh c«ng ®ai l­ng huyÒn tinh.")
Msg2SubWorld(""..GetName().." Ðp thµnh c«ng ®ai l­ng 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 l­ng 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
}

[DNTmaster]

Sao xài tên con mình nhể :)) hãnh diện ghê.
Code này cấu trúc theo LUA mới ;;) chắc này từng làm Kiếm Thế phải hem

[Learning]

nhể. :)) .

[assaa]

hàng ngon thank 30charrrrrrrrrrrrrrrr