Kết quả 1 đến 1 của 1
-
07-03-13, 05:46 PM #1
- Ngày tham gia
- May 2011
- Bài viết
- 92
- Thanks
- 17
- Thanked 64 Times in 9 Posts
Share Scripts Xổ Số Kiến Thiết Lúc 16h20 cho A/E Tự Sướng
Hi Cái này mình làm từ sever DUONGDAICA nhe qua mấy sever khác fix lại tí xíu không bị lổi á á á
Code:Include("\\script\\source\\sourcejx49.lua") Include("\\script\\taikhoan\\veso.lua") function stt() for k=1,getn(VESO) do if GetUUID() == VESO[k][2] then return k end end end function main() if GetTask(209) == 0 then SayEx({"Cty Xæ Sè CÇn B¹n KÝch Ho¹t míi ®îc tham gia phÝ kÝch ho¹t lµ 5 XU : <enter> <color=red>B¹n cã "..GetTask(92).." XU ", "KÝch Ho¹t Tham Gia Xæ Sè 1 lÇn th«i ch¬i m·i m·i/kichhoatxs", "Th«i/no"}) elseif GetTask(209) == 1 then SayEx({"Cty Xæ Sè CÇn B¹n KÝch Ho¹t míi ®îc tham gia phÝ kÝch ho¹t lµ 5 XU : <enter> <color=red>B¹n cã "..GetTask(92).." XU ", "B¾t ®Çu mua vÐ sè/batdaumuave", "Ta tróng sè råi cho ta l·nh gi¶i th«i/lanhgiaitrungso", "Th«i/no"}) end end function kichhoatxs() if GetTask(92) >= 5 then SetTask(92,GetTask(92) - 5) SetTask(209,1) Msg2Player("KÝch ho¹t thµnh c«ng b¾t ®Çu tham gia ch¬i vÐ sè ") VESO[getn(VESO)+1] = {GetInfo(),GetTask(92),GetTask(209),0,0} BANG3 = TaoBang(VESO,"VESO") LuuBang("script/taikhoan/veso.lua",BANG3) else Talk(1,"","B¹n kh«ng cã 5 Xu xin OUT ") end end function batdaumuave() SayEx({"Thêi gian nµy cho phÐp anh em mua vÐ sè chø sau 16 h 5 lµ b¾t ®Çu chê kÕt qu¶ xæ sè ®óng 16 h 21 sÏ cã kÕt qu¶ vµ 17 h 30 anh em míi l·nh gi¶i ®îc ", "Ok ta hiÓu råi cho ta mua sè th«i nµo håi hép qu¸ hahaha/muavebatdauso"}) end function muavebatdauso() gio = tonumber(date("%H")) phut = tonumber(date("%M")) if gio < 16 then SayEx({"<color=yellow>C«ng Ty Xæ Sè TrÇn Cêng Xin Chµo Anh Em : <enter>Sè XU hiÖn t¹i cña b¹n lµ ".. GetTask(92).." Xu ", "ThÓ lÖ tham gia/huongdanxs", "B¸n cho ta mét tê vÐ sè ®i ngêi anh em...§îc 10 XU ®©y haha/uhkiemtracoi", "Cho ta xem sè ta võa chän/xemlaiso", "Bá sè håi n·y mua v× ta thÊy nã xÊu qu¸ haha/bosocu", "Byre bye/no"}) else Talk(1,"","vÐ sè chØ mua ®îc khi tríc 16h bye bye ") end end function uhkiemtracoi() if GetTask(208) == 0 then SayEx({"Gi¸ vÐ sè lµ 10XU ®ã nha anh em ","Ta cã tiÒn råi nÌ hahahaha/muaveso"}) else Talk(1,"","B¹n cÇm vÐ trªn tay råi cßn la c¸i g× n÷a hahaha ko th× bá vÐ ®ã ®i mua c¸i kh¸c ") end end function muaveso() if GetTask(92) >= 10 then SetTaskTemp(40,0) SayEx({"<color=red>Xæ Sè §iÖn To¸n : b¹n chän sè mÊy th× chän ®i sè hµng chôc tríc nha chØ cã 2 sè mµ th«i : ","0/number1","1/number1","2/number1","3/number1","4/number1","5/number1","6/number1","7/number1","8/number1","9/number1"}) else Talk(1,"","<color=red>Tµi kho¶n cña b¹n kh«ng ®ñ 10 xu nªn kh«ng thÓ mua vÐ sè bye ") end end function number1(nsel) if GetTaskTemp(40) <= 2 then SetTaskTemp(40,GetTaskTemp(40) + 1) callnumber1(nsel + 0) end end; function callnumber1(id) if GetTaskTemp(40) == 1 then SetTask(172,GetTask(172) + (10*id)) Talk(1,"tieptuc","<color=green>Cty nãi<color>: Sè hµng chôc lµ : "..id..". ") Msg2Player("Cty nãi : Sè hµng chôc lµ : "..id..". ") elseif GetTaskTemp(40) == 2 then SetTask(172,GetTask(172) + id) SetTask(92,GetTask(92) - 10) SetTask(208,1) Msg2Player("Trõ 10 Xu Trong ViÖc mua vÐ sè THANK ....H·y xem l¹i sè b¹n võa mua ®i ") Msg2SubWorld("B¹n "..GetName().." §· mua sè "..GetTask(172).." anh em chó ý mua vÐ sè ®i ") end end; function tieptuc() SayEx({"<color=red>Xæ Sè §iÖn To¸n : b¹n chän sè mÊy th× chän ®i sè hµng chôc tríc nha chØ cã 2 sè mµ th«i : ","0/number1","1/number1","2/number1","3/number1","4/number1","5/number1","6/number1","7/number1","8/number1","9/number1"}) end; function Exit1() SetTaskTemp(40,0) end function xemlaiso() if GetTask(172) >= 1 then VESO = {GetInfo(),GetTask(92),GetTask(209),GetTask(172),GetTask(208),GetMissionV(50)} BANG3 = TaoBang(VESO,"VESO") LuuBang("script/taikhoan/veso.lua",BANG3) SayEx({"<color=water>Sè b¹n võa chän lµ "..GetTask(172).." ","C¶m ¬n ta nhí råi/no"}) else VESO = {GetInfo(),GetTask(92),GetTask(209),GetTask(172),GetTask(208),GetMissionV(50)} BANG3 = TaoBang(VESO,"VESO") LuuBang("script/taikhoan/veso.lua",BANG3) Talk(1,"","Qóy kh¸ch cha mua sè cña CTy chóng t«i bye bye ") end end function bosocu() if GetTask(172) >= 1 then SetTask(172,0) SetTask(208,0) Talk(1,"","Qóy kh¸ch ®· hñy vÐ sè thµnh c«ng cã thÓ chän sè kh¸c thank ") else Talk(1,"","VÐ ®©u ®©u ®©u mµ bã xÝ xÝ xÝ xÝ ...... biÕn lõa ®¶o <pic=56> ") end end function huongdanxs() Talk(1,"","<color=green>A/E mua vÐ sè xong th× ®îi tíi 17h th× hÖ thèng th«ng b¸o sè nÕu tróng th× l¹i ®©y l·nh gi¶i.NÕu muèn ®æi sè kh¸c th× bá sè cñ chän sè míi....TØ lÖ tróng 1 ¨n 75 ..Gi¸ vÐ lµ 10 Xu .Lu ý mua 00 sÏ mÊt tiÒn ") end function lanhgiaitrungso() VESO = {GetInfo(),GetTask(92),GetTask(209),GetTask(172),GetTask(208),GetMissionV(50)} BANG3 = TaoBang(VESO,"VESO") LuuBang("script/taikhoan/veso.lua",BANG3) SayEx({"Chóc mõng "..GetName().." ®· tróng gi¶i nÕu b¹n thËt sù tróng th× l·nh kh«ng tróng mµ nhÊn l·nh sÏ bÞ trõ 100 XU r¸ng chÞu nha kh«ng ai thêng ®©u : ", "Ta lµ ngêi tróng gi¶i thËt xin kiÓm tra kh«ng th«i cø trõ 100XU/ohtrungroibanoi", "Sorry ta kh«ng ph¶i bye/no"}) end function ohtrungroibanoi() if GetTask(172) == GetMissionV(50) then SetTask(92,GetTask(92) + 750) Msg2SubWorld("C¶ SERVER h·y chóc mõng "..GetName().." tróng 750 XU ®i anh em ¬i hehehehehe") SetTask(172,0) SetTask(280,0) elseif GetTask(172) == 0 then Msg2Player("B¹n cã mua ®©u mµ tróng nÕu mua 00 th× m·i m·i ko tróng hehe .B¹n l·nh gi¶i tróng roµi th× th«i m¬ g× n÷a ... ") else SetTask(92,GetTask(92) - 100) Msg2SubWorld("B¹n "..GetName().." kh«ng tróng mµ nãi l·nh gi¶i nªn bÞ trõ 100 XU c¶nh c¸o ") end end function no() Talk(1,"","TÊn Tµi TÊn Léc <pic=35> ") end
Tiếp cái là bên timeserver.lua bạn viết thêm 1 đoạn code như vậy thì đúng 16h21 nó sẽ thông báo số mà nó sổ random
Code:function xosodientoan() gio = tonumber(date("%H")) phut = tonumber(date("%M")) n = random(1,99) if gio == 16 then if phut == 21 then if GetGlbMissionV(90) == 0 then SetMissionV(50,n) Msg2SubWorld("KÕt qu¶ xæ sè ®iÖn to¸n lµ "..GetMissionV(50).." .Ai mua tróng sè trªn xin mêi tíi lÜnh gi¶i thëng nha anh em .... ") Msg2SubWorld("KÕt qu¶ xæ sè ®iÖn to¸n lµ "..GetMissionV(50).." .Ai mua tróng sè trªn xin mêi tíi lÜnh gi¶i thëng nha anh em .... ") Msg2SubWorld("KÕt qu¶ xæ sè ®iÖn to¸n lµ "..GetMissionV(50).." .Ai mua tróng sè trªn xin mêi tíi lÜnh gi¶i thëng nha anh em .... ") SetGlbMissionV(90,1) end end end if phut == 30 then SetGlbMissionV(90,0) Msg2SubWorld("Ai Tróng Gi¶i th× ®i l·nh nhanh lªn kh«ng th× khãa sæ µ hahahahahahahaha ") end end
Cuối cùng tạo file lua theo đường dẩn script\taikhoan\veso.lua
Nội dung veso.lua : VESO={} vậy là xong nha
Kiếm con NPC nào gán vào là có mini game chơi vui trong JX roài bye bye
Mình không giải thích thêm nha mà anh em có thể lấy những code ấy mà thêm mắm muối cho sever DUONGDAICA ..............................Khách viếng thăm hãy cùng cuonghaha xây dựng diễn đàn CLBGAMESVN vững mạnh nhé!
-
The Following 8 Users Say Thank You to cuonghaha For This Useful Post:
assaa (08-03-13), chaoban6 (07-03-13), dovietthai (09-09-16), huutuanbmtt (06-04-14), kakashi43 (07-03-13), kuroo123 (27-04-16), satthupro95 (28-05-13), tieudieuphong (07-03-13)
Các Chủ đề tương tự
-
Share bộ maps Thiếu Lâm đã hoàn thiện cơ bản !
Bởi thaihoa91 trong diễn đàn Guides - Kho Lưu trữTrả lời: 16Bài viết cuối: 01-01-18, 08:12 PM -
[KT] Share Scripts 12x 1 số phái hoàn chỉnh
Bởi 253569 trong diễn đàn ScriptsTrả lời: 19Bài viết cuối: 29-08-12, 05:32 PM -
[KT] Share skill 120 Kiếm Thế ( + thêm scripts và settings )
Bởi longvhs trong diễn đàn ReleasesTrả lời: 10Bài viết cuối: 03-04-12, 07:18 AM -
[TLBB] Share việt hóa obj bản 4 lỗ hoàn thiện 95%
Bởi tandat102 trong diễn đàn ReleasesTrả lời: 4Bài viết cuối: 11-02-12, 01:13 AM -
Cần Share Scripts Tống Kim
Bởi hihahihuc trong diễn đàn Hỏi Đáp/ Yêu CầuTrả lời: 3Bài viết cuối: 21-08-10, 11:26 AM