Kết quả 1 đến 4 của 4
Chủ đề: Một script nho nhỏ
-
19-07-12, 07:22 AM #1
- Ngày tham gia
- Feb 2012
- Bài viết
- 45
- Thanks
- 0
- Thanked 38 Times in 15 Posts
Một script nho nhỏ
Một script nho nhỏ dùng talk và say hiển thị số tiền trong hành trang:
link: [Only registered and activated users can see links. ]
[IMG][Only registered and activated users can see links. ][/IMG]
[IMG][Only registered and activated users can see links. ][/IMG]
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...
Code:----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 }
Lần sửa cuối bởi DarkOfTheMoon, ngày 21-08-12 lúc 12:19 PM.
Khách viếng thăm hãy cùng DarkOfTheMoon xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
The Following 11 Users Say Thank You to DarkOfTheMoon For This Useful Post:
0kazaki(19-07-12), ahoo125 (20-07-12), assaa (20-07-12), billbin0506199 (06-09-14), duynguyenjx (20-07-12), Edward_Newgate (20-07-12), heocon246 (19-07-12), KingMax (19-07-12),Linh_JX(19-07-12), nhoxmap_b7 (19-07-12), thaihoa91 (19-07-12)
-
20-07-12, 01:06 PM #2
-
20-07-12, 01:10 PM #3
Ðề: Một script nho nhỏ
nhể. .
Sao? Như nào? Nói luôn.
-
20-07-12, 01:31 PM #4
Ðề: Một script nho nhỏ
hàng ngon thank 30charrrrrrrrrrrrrrrr
Khách viếng thăm hãy cùng assaa xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
Các Chủ đề tương tự
-
Một số script trong thư mục script Vina (unpack)
Bởi sangpronhat trong diễn đàn ScriptsTrả lời: 19Bài viết cuối: 26-11-11, 08:12 AM -
Về script cường hóa !!
Bởi meokoi trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 0Bài viết cuối: 30-07-11, 03:33 PM -
Script Ủy Thác Rời Mạng
Bởi Mr.Rezo™ trong diễn đàn ScriptsTrả lời: 24Bài viết cuối: 10-06-10, 11:49 AM