bes_zensuri1

function ruletka()
    loadItems2(spisok, multyplier)
    Label23.caption = ""
    Label23:redraw()
    y = 11
    for i = 1, 26 do
        name = spisok[1].item
        y = y + 1 
        for x = i,y do
            name = spisok[x].item
            Label23.caption = Label23.caption.."\n"..name
            Label23:redraw()
        end
        os.sleep(0.1)
        Label23.caption = " "
        Label23:redraw()
    end
    for x = 27,y+1 do
    name = spisok[x].item
    Label23.caption = Label23.caption.."\n"..name
    Label23:redraw()
    end
    for i = 1, #spisok do
        table.remove(spisok)
    end
end

Label23=Form2:addLabel(44,7,"")
Label23.color = 0x000000
 

Button1=Form2:addButton(6,14,"ПОПОЛНИТЬ", function() Form3:setActive() end)

function my_fynction(self,name)
        Form3:setActive()    
end
Button2=Form2:addButton(6,18,"ПРИЗЫ", my_fynction)

forms=require("forms")
require("component").gpu.setResolution(80, 25)
local lUser = ("bes_zensuri") 
money = 1000
local computer = require("computer")
local component = require("component")
local event=require("event")
local pim = component.proxy("89416d95-d129-4b4e-b3f1-51672446e900")
local me = component.proxy("c407cada-c80d-441d-933e-f78faa413262")
logUser = pim.getInventoryName()
local color = {
    pattern = "%[0x(%x%x%x%x%x%x)]",
    background = 0x000000,
    pim = 0x46c8e3,
 
    gray = 0x303030,
    lightGray = 0x999999,
    blackGray = 0x1a1a1a,
    lime = 0x68f029,
    blackLime = 0x4cb01e,
    orange = 0xf2b233,
    blackOrange = 0xc49029,
    blue = 0x4260f5,
    blackBlue = 0x273ba1,
    red = 0xff0000
}

local me_side = "DOWN"
local pim_side = "UP"
local items = {}
local emLost = 0
local ironLost = 0
local fileName = "items.txt"
 -----------------------------------------------------------------------

Form1=forms.addForm()
Form1.border = 2
Form1.W=80
Form1.H=25
Frame1=Form1:addFrame(27.5,7,0)
Frame1.W = 28
Frame1.H = 14
Frame1.color = 0x68f029
Frame2=Form1:addFrame(29,8,0)
Frame2.W = 24
Frame2.H = 12
Frame2.color = 0x999999
Label1=Form1:addLabel(27,5,"Встаньте на PIM, чтобы войти")
Label1.centered = true 
Label1.fontColor = 0x4cb01e
Label2=Form1:addLabel(26.5,3," Добро пожаловать в PIMcasino")
Label2.fontColor = 0x4cb01e
Label2.centered = true
Label3=Form1:addLabel(20,23,"Разработал ReiVanSTR, доработал bes_zensuri")
Label3.centered = true
Label3.fontColor = 0xf2b233

---------------------------------------------------------------------------
Form2=forms.addForm()
Form2.border = 0
Form2.W=80
Form2.H=25
Form2.color= 0x303030
Frame3=Form2:addFrame(1,1,1)
Frame3.H=25
Frame3.W=25
Frame3.color= 0x1a1a1a
Frame4=Form2:addFrame(26,1,1)
Frame4.H=25
Frame4.W=55
Frame4.color= 0x1a1a1a
Label4=Frame4:addLabel(15,3,"ПРИВЕТСТВУЕМ ... !")
Label4.color= 0x1a1a1a
Label4.fontColor = 0xf2b233
Label5=Frame3:addLabel(2,3," ВАШ БАЛАНС: "..money.."$")
Label5.color= 0x1a1a1a
Label5.fontColor = 0xf2b233
Label6=Frame3:addLabel(2,5," СТОИМОСТЬ ИГРЫ:")
Label6.color= 0x1a1a1a
Label6.fontColor = 0xf2b233
Label7=Frame3:addLabel(2,7," ОДНА ПОПЫТКА - 1$")
Label7.color= 0x1a1a1a
Label7.fontColor = 0xf2b233
Label8=Frame3:addLabel(2,9," 1$ = 3 ЖБ")
Label8.color= 0x1a1a1a
Label8.fontColor = 0xf2b233
Label9=Frame3:addLabel(2,11," 1$ = 1 ЭМ")
Label9.color= 0x1a1a1a
Label9.fontColor = 0xf2b233
Frame5=Form2:addFrame(30,5,1)
Frame5.H=17
Frame5.W=47
Frame5.color= 0x000000
Label10=Frame4:addLabel(52,13,"<<")
Label10.color= 0x1a1a1a
Label10.fontColor = 0x999999
Label11=Frame4:addLabel(3,13,">>")
Label11.color= 0x1a1a1a
Label11.fontColor = 0x999999
-----------------------------------------------------------------------------------------

WinLabel19=Frame5:addLabel(18,9,"Драконий посох")
WinLabel19.fontColor = 0xff0000
WinLabel19.centered = true 

-----------------------------------------------------------------------------------------
function login()
    while true do
        e, nick, uuid, adr  = event.pull()
        if e == 'player_on' then
                Label4.caption = "ПРИВЕТСТВУЕМ, "..nick.." !"
                Form2:setActive() 
        elseif e == 'player_off' then
            Form1:setActive() 
        end
    end
end

function onClick(self,name)
        Form3:setActive()    
end

-----------------------------------------------------------------------------------------

Button1=Form2:addButton(6,14,"ПОПОЛНИТЬ", onClick)
Button1.W = 15
Button1.H = 3
Button1.border = 1
Button1.color = 0x303030
Button1.fontColor = 0x4cb01e
Button2=Form2:addButton(6,18,"ПРИЗЫ", onClick)
Button2.W = 15
Button2.H = 3
Button2.border = 1
Button2.color = 0x303030
Button2.fontColor = 0x4cb01e
Button3=Form2:addButton(6,22,"ПОМОЩЬ", onClick)
Button3.W = 15
Button3.H = 3
Button3.border = 1
Button3.color = 0x303030
Button3.fontColor = 0x4cb01e
Button4=Form2:addButton(38,22,"НАЖМИТЕ, ЧТОБЫ НАЧАТЬ ИГРАТЬ", onClick)
Button4.W = 30
Button4.H = 3
Button4.border = 1
Button4.color = 0x303030
Button4.fontColor = 0x4cb01e

---------------------------------------------------------------------------
Form3=forms.addForm()
Form3.border = 2
Form3.W=80
Form3.H=25
---------------------------------------------------------------------------

login()
forms.run(Form1)

local function stop()
forms.stop()
end

-----------------------------------------------------------------------------------------

Button1=Form2:addButton(6,14,"ВЫЙТИ", stop)
Button1.W = 15
Button1.H = 3
Button1.border = 1
Button1.color = 0x303030
Button1.fontColor = 0x4cb01e

while true do
    e, nick, uuid, adr  = event.pull('player_off')
    Form1:setActive()
end

while true do
    e, nick, uuid, adr  = event.pull('player_on')
    Form2:setActive()
end

forms.run(Form1)