wysokibetinfo = 50000
tabela={}
-- tworzenie listy
for i=1,6 do
table.insert(tabela,{0,0,200,0,"zielone","x12"})
table.insert(tabela,{1,255,0,0,"czerwone","x2"})
table.insert(tabela,{2,0,0,0,"czarne","x2"})
table.insert(tabela,{3,255,0,0,"czerwone","x2"})
table.insert(tabela,{4,0,0,0,"czarne","x2"})
table.insert(tabela,{5,255,0,0,"czerwone","x2"})
table.insert(tabela,{6,0,0,0,"czarne","x2"})
table.insert(tabela,{7,255,0,0,"czerwone","x2"})
table.insert(tabela,{8,0,0,0,"czarne","x2"})
table.insert(tabela,{9,255,0,0,"czerwone","x2"})
table.insert(tabela,{10,0,0,0,"czarne","x2"})
table.insert(tabela,{11,255,0,0,"czerwone","x2"})
table.insert(tabela,{12,0,0,0,"czarne","x2"})
table.insert(tabela,{13,255,0,0,"czerwone","x2"})
table.insert(tabela,{14,0,0,0,"czarne","x2"})
end -- do listy
betyr={}
betyb={}
betyg={}
----outputChatBox("wylosowales = "..tabela[random][1].." "..tabela[random][5].."$ ( "..random.." okienko )")
function infowygrana (osoba,kolor,ilosc)
if ilosc >= wysokibetinfo then
outputChatBox("#ff5000[Ruletka]#ffffff Gracz "..getPlayerName(osoba).." postawi? na "..kolor.."#ffffff i wygra? "..ilosc.."$ !", all,255,255,255, true)
end
end
function rollowanie ()
losowaliczba = math.random(45,75)
triggerClientEvent ( "losowanieliczb",root,losowaliczba )
setTimer(function()
if tabela[losowaliczba][5] == "czerwone" then
for i,v in pairs(betyr) do
wygrana = betyr[i][2]*2
local gracz = getPlayerFromName (betyr[i][1])
if gracz then
givePlayerMoney ( gracz, wygrana)
infowygrana (gracz,"#ff0000czerwone", wygrana)
end
end
betyr={}
betyb={}
betyg={}
end -- do koloru wygranego
if tabela[losowaliczba][5] == "czarne" then
for i,v in pairs(betyb) do
wygrana = betyb[i][2]*2
local gracz = getPlayerFromName (betyb[i][1])
if gracz then
givePlayerMoney ( gracz, wygrana)
infowygrana (gracz,"#6d6d6dczarne", wygrana)
end
end
betyr={}
betyb={}
betyg={}
end -- do koloru wygranego
if tabela[losowaliczba][5] == "zielone" then
for i,v in pairs(betyg) do
wygrana = betyg[i][2]*14
local gracz = getPlayerFromName (betyg[i][1])
if gracz then
givePlayerMoney ( gracz, wygrana)
infowygrana (gracz,"#00c800zielone", wygrana)
--outputChatBox(""..betyg[i][1].." wygrywa "..wygrana.."")
end
end
betyr={}
betyb={}
betyg={}
end -- do koloru wygranego
end, 4000,1 )
--outputChatBox("wylosowales = "..tabela[losowaliczba][1].." "..tabela[losowaliczba][5].."$ ( "..losowaliczba.." okienko )")
end
setTimer (rollowanie, 14000,0 )
function betowanie (kolor, kwota)
local kasa = getPlayerMoney ( source)
if tonumber(kwota)<= kasa then
takePlayerMoney ( source,kwota )
ilosc = 0
if kolor == "red" then
for i,v in pairs(betyr) do
if betyr[i][1] == getPlayerName(source) then
ilosc = betyr[i][2]
table.remove (betyr,i)
end
end
table.insert ( betyr,{""..getPlayerName(source).."", tonumber(kwota+ilosc)})
triggerClientEvent ( "betowanietoc",source,kolor,kwota)
end
if kolor == "black" then
for i,v in pairs(betyb) do
if betyb[i][1] == getPlayerName(source) then
ilosc = betyb[i][2]
table.remove (betyb,i)
end
end
table.insert ( betyb,{""..getPlayerName(source).."", tonumber(kwota+ilosc)})
triggerClientEvent ( "betowanietoc",source,kolor,kwota)
end
if kolor == "green" then
for i,v in pairs(betyg) do
if betyg[i][1] == getPlayerName(source) then
ilosc = betyg[i][2]
table.remove (betyg,i)
end
end
table.insert ( betyg,{""..getPlayerName(source).."", tonumber(kwota+ilosc)})
triggerClientEvent ( "betowanietoc",source,kolor,kwota)
end
end
end
addEvent( "betowanietos", true )
addEventHandler( "betowanietos", getRootElement(), betowanie )
c.lua
[.lua]
local sx,sy = guiGetScreenSize()
local xres,yres = (sx/1920), (sy/1080)
local font = dxCreateFont("archivo_narrow.ttf", 18)
tabela={}
local sw,sh = guiGetScreenSize()
show = false
function showgui( hitPlayer, matchingDimension )
if getElementData ( source, "kasynomarker") then
if hitPlayer == localPlayer then
show = true
guiSetVisible ( edit, true )
showCursor ( true, false)
end
end
end
addEventHandler ( "onClientMarkerHit", getRootElement(), showgui)
function hidegui (leavingPlayer)
if getElementData ( source, "kasynomarker") then
if leavingPlayer == localPlayer then
show = false
guiSetVisible ( edit, false)
showCursor ( false )
end
end
end
addEventHandler ( "onClientMarkerLeave", getRootElement(), hidegui )
function isMouseInPosition(x, y, w, h)
if not isCursorShowing() then return end
local mouse = {getCursorPosition()}
local myX, myY = (mouse[1] * sw), (mouse[2] * sh)
if (myX >= x and myX <= (x + w)) and (myY >= y and myY <= (y + h)) then
return true
end
return false
end
local click = false
function onClick(x, y, w, h, called)
if(isMouseInPosition(x, y, w, h) and not click and getKeyState("mouse1"))then
click = true
called()
elseif(not getKeyState("mouse1") and click)then
click = false
end
end
-- tworzenie listy
for i=1,6 do
table.insert(tabela,{0,0,200,0,"zielone","x14"})
table.insert(tabela,{1,255,0,0,"czerwone","x2"})
table.insert(tabela,{2,0,0,0,"czarne","x2"})
table.insert(tabela,{3,255,0,0,"czerwone","x2"})
table.insert(tabela,{4,0,0,0,"czarne","x2"})
table.insert(tabela,{5,255,0,0,"czerwone","x2"})
table.insert(tabela,{6,0,0,0,"czarne","x2"})
table.insert(tabela,{7,255,0,0,"czerwone","x2"})
table.insert(tabela,{8,0,0,0,"czarne","x2"})
table.insert(tabela,{9,255,0,0,"czerwone","x2"})
table.insert(tabela,{10,0,0,0,"czarne","x2"})
table.insert(tabela,{11,255,0,0,"czerwone","x2"})
table.insert(tabela,{12,0,0,0,"czarne","x2"})
table.insert(tabela,{13,255,0,0,"czerwone","x2"})
table.insert(tabela,{14,0,0,0,"czarne","x2"})
end -- do listy
betyr={}
betyb={}
betyg={}
iloscokienek=75
czas = 4000
kolejnelosowanie = 0
kolejnelosowaniestart= 0
--kolejnelosowanie = getTickCount()+10000
function roundedRectangle(x, y, w, h, borderColor, bgColor, postGUI)
if (x and y and w and h) then
if (not borderColor) then
borderColor = tocolor(0, 0, 0, 200);
end
if (not bgColor) then
bgColor = borderColor;
end
--- Background
dxDrawRectangle(x, y, w, h, bgColor, postGUI);
--- Border
dxDrawRectangle(x + 2, y - 1, w - 4, 1, borderColor, postGUI); -- top
dxDrawRectangle(x + 2, y + h, w - 4, 1, borderColor, postGUI); -- bottom
dxDrawRectangle(x - 1, y + 2, 1, h - 4, borderColor, postGUI); -- left
dxDrawRectangle(x + w, y + 2, 1, h - 4, borderColor, postGUI); -- right
end
end
function betowanie ()
local kwota = guiGetText ( edit)
if mozliwybet then
if tonumber(kwota) and getPlayerMoney ( localPlayer ) >= tonumber (kwota) and tonumber(kwota) > 0 and not string.find(kwota, "%D") then
if(isMouseInPosition(xres*565, yres*440, xres*260, yres*30)) then
kolor = "red"
end
if(isMouseInPosition(xres*830, yres*440, xres*260, yres*30)) then
kolor = "black"
end
if(isMouseInPosition(xres*1095, yres*440, xres*260, yres*30)) then
kolor = "green"
end
triggerServerEvent ( "betowanietos",localPlayer,kolor,kwota)
end
end
end
function betowaniefroms(kolor,kwota)
ilosc = 0
if kolor == "red" then
for i,v in pairs(betyr) do
if betyr[i][1] == getPlayerName(source) then
ilosc = betyr[i][2]
table.remove (betyr,i)
end
end
table.insert ( betyr,{""..getPlayerName(source).."", tonumber(kwota+ilosc)})
table.sort(betyr, function(a, b) return a[2]>b[2] end)
end
if kolor == "black" then
for i,v in pairs(betyb) do
if betyb[i][1] == getPlayerName(source) then
ilosc = betyb[i][2]
table.remove (betyb,i)
end
end
table.insert ( betyb,{""..getPlayerName(source).."", tonumber(kwota+ilosc)})
table.sort(betyb, function(a, b) return a[2]>b[2] end)
end
if kolor == "green" then
for i,v in pairs(betyg) do
if betyg[i][1] == getPlayerName(source) then
ilosc = betyg[i][2]
table.remove (betyg,i)
end
end
table.insert ( betyg,{""..getPlayerName(source).."", tonumber(kwota+ilosc)})
table.sort(betyg, function(a, b) return a[2]>b[2] end)
end
end
addEvent( "betowanietoc", true )
addEventHandler( "betowanietoc", getRootElement(), betowaniefroms)
ruletkapola = dxCreateRenderTarget(xres*800, yres*70, true)
ruletkabety = dxCreateRenderTarget(xres*800, yres*196, true)
start = getTickCount()
koniec= getTickCount()
random = 15
edit = guiCreateEdit (xres*565, yres*390, xres*790, yres*40,"", false)
guiSetVisible ( edit, false )
function draw ()
if show then
x =70*6.21
roundedRectangle(xres*560,yres*210,xres*800,yres*470,tocolor(0, 0,0, 180))
roundedRectangle(xres*560,yres*210,xres*800,yres*470,tocolor(255, 255,255, 20))
aktualnyczas= getTickCount()
if aktualnyczas > kolejnelosowanie then
text = "Losowanie trwa"
napelnienie = (790/100)*0
else
zailelosowanie = (kolejnelosowanie-aktualnyczas)/1000
zailelosowanie = string.format("%.0f", zailelosowanie )
text = "Kolejne losowanie za "..zailelosowanie..""
napelnienie = (790/100)*(10*zailelosowanie)
end
roundedRectangle(xres*565, yres*250, xres*790.0, yres*20,tocolor(25, 25,25, 190))
local postepodliczania = (aktualnyczas-kolejnelosowaniestart)/(kolejnelosowanie-kolejnelosowaniestart)
odliczaniepasek= interpolateBetween(yres*790,0,0,yres*0,0,0,postepodliczania ,'OutQuad')
if odliczaniepasek > 0 then
roundedRectangle(xres*565, yres*250, xres*odliczaniepasek, yres*20,tocolor(200, 0,0,230)) -- napelnienie\
end
dxDrawText(""..text.."", xres*560+2, yres*215+0.5, xres*1360.0, yres*220+30, tocolor(0, 0, 0,200), yres*0.8, font, "center", "center", true )
dxDrawText(""..text.."", xres*560, yres*215, xres*1360.0, yres*220+30, tocolor(255, 255, 255,255), yres*0.8, font, "center", "center", true )
local postep = (getTickCount()- start)/(koniec- start)
przesuniecie = interpolateBetween(-15*70,0,0,yres*-random*70,0,0,postep ,'OutQuad')
local kasa = getPlayerMoney ( localPlayer )
dxDrawText("Balans : "..kasa.."$", xres*565+2, yres*350+0.5, xres*565+790, yres*350+40, tocolor(0, 0, 0,150), yres*0.7, font, "center", "center", true )
dxDrawText("Balans : "..kasa.."$", xres*565, yres*350, xres*565+790, yres*350+40, tocolor(255, 255, 255,255), yres*0.7, font, "center", "center", true )
--roundedRectangle(xres*565, yres*390, xres*790, yres*40,tocolor(250, 255,255, 30)) -- edit
roundedRectangle(xres*565, yres*440, xres*260, yres*30,tocolor(250, 0,0, 160)) -- bet r
dxDrawText("Czerwone x2", xres*565+2, yres*440+0.5, xres*565+260, yres*440+30, tocolor(0, 0, 0,200), yres*0.7, font, "center", "center", true )
dxDrawText("Czerwone x2", xres*565, yres*440, xres*565+260, yres*440+30, tocolor(255, 255, 255,220), yres*0.7, font, "center", "center", true )
onClick( xres*565, yres*440, xres*260, yres*30, function()
betowanie()
end)
roundedRectangle(xres*830, yres*440, xres*260, yres*30,tocolor(0, 0,0, 160)) -- bet b
dxDrawText("Czarne x2", xres*830+2, yres*440+0.5, xres*830+260, yres*440+30, tocolor(0, 0, 0,200), yres*0.7, font, "center", "center", true )
dxDrawText("Czarne x2", xres*830, yres*440, xres*830+260, yres*440+30, tocolor(255, 255, 255,220), yres*0.7, font, "center", "center", true )
onClick( xres*830, yres*440, xres*260, yres*30, function()
betowanie()
end)
roundedRectangle(xres*1095, yres*440, xres*260, yres*30,tocolor(0, 200,0, 160)) -- bet g
dxDrawText("Zielone x14", xres*1095+2, yres*440+0.5, xres*1095+260, yres*440+30, tocolor(0, 0, 0,200), yres*0.7, font, "center", "center", true )
dxDrawText("Zielone x14", xres*1095, yres*440, xres*1095+260, yres*440+30, tocolor(255, 255, 255,220), yres*0.7, font, "center", "center", true )
onClick( xres*1095, yres*440, xres*260, yres*30, function()
betowanie()
end)
-- bety
dxSetRenderTarget(ruletkabety ,true)
betyx = 5
suma = 0
betyy = 38
for i,v in pairs(betyr) do
suma=suma+betyr[i][2]
dxDrawRectangle ( xres*betyx, yres*betyy, xres*260.0, yres*30, tocolor (0, 0,0, 150))
dxDrawText(""..betyr[i][1].." - "..betyr[i][2].."", xres*betyx+2, yres*betyy+0.5, xres*betyx+260, yres*betyy+30, tocolor(0, 0, 0,120), yres*0.8, font, "center", "center", true )
dxDrawText(""..betyr[i][1].." - "..betyr[i][2].."", xres*betyx, yres*betyy, xres*betyx+260, yres*betyy+30, tocolor(255, 255, 255,250), yres*0.8, font, "center", "center", true )
betyy = betyy+32
end
dxDrawRectangle ( xres*betyx, yres*0, xres*260.0, yres*35, tocolor (255, 0,0, 210))
dxDrawText(""..suma.."", xres*betyx+2, yres*0+0.5, xres*betyx+260.0, yres*35, tocolor(0, 0, 0,150), yres*0.8, font, "center", "center", true )
dxDrawText(""..suma.."", xres*betyx, yres*0, xres*betyx+260.0, yres*35, tocolor(255, 255, 255,255), yres*0.8, font, "center", "center", true )
betyx = 260+10
suma = 0
betyy = 38
for i,v in pairs(betyb) do
suma=suma+betyb[i][2]
dxDrawRectangle ( xres*betyx, yres*betyy, xres*260, yres*30, tocolor (0, 0,0, 150))
dxDrawText(""..betyb[i][1].." - "..betyb[i][2].."", xres*betyx+2, yres*betyy+0.5, xres*betyx+260, yres*betyy+30, tocolor(0, 0, 0,120), yres*0.8, font, "center", "center", true )
dxDrawText(""..betyb[i][1].." - "..betyb[i][2].."", xres*betyx, yres*betyy, xres*betyx+260, yres*betyy+30, tocolor(255, 255, 255,255), yres*0.8, font, "center", "center", true )
betyy = betyy+32
end
dxDrawRectangle ( xres*betyx, yres*0, xres*260.0, yres*35, tocolor (0, 0,0, 210))
dxDrawText(""..suma.."", xres*betyx+2, yres*0+0.5, xres*betyx+260.0, yres*35, tocolor(0, 0, 0,150), yres*0.8, font, "center", "center", true )
dxDrawText(""..suma.."", xres*betyx, yres*0, xres*betyx+260.0, yres*35, tocolor(255, 255, 255,255), yres*0.8, font, "center", "center", true )
betyx = 260+260+15
suma = 0
betyy = 38
for i,v in pairs(betyg) do
suma=suma+betyg[i][2]
dxDrawRectangle ( xres*betyx, yres*betyy, xres*260.0, yres*30, tocolor (0, 0,0, 150))
dxDrawText(""..betyg[i][1].." - "..betyg[i][2].."", xres*betyx+2, yres*betyy+0.5, xres*betyx+260, yres*betyy+30, tocolor(0, 0, 0,120), yres*0.8, font, "center", "center", true )
dxDrawText(""..betyg[i][1].." - "..betyg[i][2].."", xres*betyx, yres*betyy, xres*betyx+260, yres*betyy+30, tocolor(255, 255, 255,255), yres*0.8, font, "center", "center", true )
betyy = betyy+32
end
dxDrawRectangle ( xres*betyx, yres*0, xres*260.0, yres*35, tocolor (0, 200,0, 210))
dxDrawText(""..suma.."", xres*betyx+2, yres*0+0.5, xres*betyx+260.0, yres*35, tocolor(0, 0, 0,150), yres*0.8, font, "center", "center", true )
dxDrawText(""..suma.."", xres*betyx, yres*0, xres*betyx+260.0, yres*35, tocolor(255, 255, 255,255), yres*0.8, font, "center", "center", true )
dxSetRenderTarget()
dxSetRenderTarget(ruletkapola,true)
for i,v in pairs(tabela) do
dxDrawRectangle ( xres*x+przesuniecie, yres*0, xres*70.0, yres*70, tocolor ( v[2], v[3], v[4], 220) )
dxDrawText(""..v[1].."", xres*x+przesuniecie, yres*0+50,xres*x+przesuniecie+70, yres*70, tocolor(255, 255, 255,240), yres*1.0, "default-bold", "center", "center", true )
x=x+70
end
dxSetRenderTarget()
dxDrawImage(xres*560, yres*280, xres*800.0, yres*70, ruletkapola)
dxDrawImage(xres*560, yres*482, xres*800.0, yres*196, ruletkabety)
dxDrawRectangle ( xres*959.6, yres*280, xres*0.8, yres*45, tocolor ( 255,255,255,255) )
end
end
addEventHandler("onClientRender", getRootElement(), draw )
--outputChatBox("wylosowales = "..tabela[random][1].." "..tabela[random][5].."$ ( "..random.." okienko )")
function rollowanie (liczba)
random = liczba
start = getTickCount()
koniec = getTickCount()+czas
mozliwybet = false
setTimer(function()
kolejnelosowaniestart= getTickCount()
kolejnelosowanie = getTickCount()+10000
mozliwybet = true
betyr={}
betyb={}
betyg={}
end, czas,1 )
end
addEvent( "losowanieliczb", true )
addEventHandler( "losowanieliczb", getRootElement(), rollowanie )
mozliwybet = true
Piwa: 1
