[JX] Share Scripts Xổ Số Kiến Thiết Lúc 16h20 cho A/E Tự Sướng
Follow us on
Follow us on Facebook Follow us on Twitter Linked In Flickr Watch us on YouTube My Space Blogger
 
Kết quả 1 đến 1 của 1
  1. #1
    Thành Viên
    Ngày tham gia
    May 2011
    Bài viết
    92
    Thanks
    17
    Thanked 64 Times in 9 Posts

    Icon10 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 ch­a 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 .L­u ý 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
    Cái trên bạn đặt tên file nào .LUA cũng OK
    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
    Nhớ là khúc đầu của timeserver.lua bạn thêm cái hàm này xosodientoan() thế thì nó mới chạy
    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é!

  2. 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ự

  1. 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: 16
    Bài viết cuối: 01-01-18, 08:12 PM
  2. [KT] Share Scripts 12x 1 số phái hoàn chỉnh
    Bởi 253569 trong diễn đàn Scripts
    Trả lời: 19
    Bài viết cuối: 29-08-12, 05:32 PM
  3. [KT] Share skill 120 Kiếm Thế ( + thêm scripts và settings )
    Bởi longvhs trong diễn đàn Releases
    Trả lời: 10
    Bài viết cuối: 03-04-12, 07:18 AM
  4. [TLBB] Share việt hóa obj bản 4 lỗ hoàn thiện 95%
    Bởi tandat102 trong diễn đàn Releases
    Trả lời: 4
    Bài viết cuối: 11-02-12, 01:13 AM
  5. Cần Share Scripts Tống Kim
    Bởi hihahihuc trong diễn đàn Hỏi Đáp/ Yêu Cầu
    Trả lời: 3
    Bài viết cuối: 21-08-10, 11:26 AM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •  
Múi giờ GMT +7. Bây giờ là 06:19 AM.
vBulletin®, Copyright ©2000-2011, Jelsoft Enterprises Ltd.
CLBGamesVN không chịu trách nhiệm về Luật Bản Quyền của các tài liệu, bài viết v.v...được đăng tải trên diễn đàn này.
Diễn đàn phát triển dưới sự đóng góp của tất cả thành viên. BQT chỉ là những người thành lập ra sân chơi, quản lý và duy trì về mặt kỹ thuật, nội dung khi hợp lệ.