Share Scripts Xổ Số Kiến Thiết Lúc 16h20 cho A/E Tự Sướng

[cuonghaha]

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 á á á

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

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