Advertisement
Guest User

1

a guest
Jan 22nd, 2019
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 3.88 KB | None | 0 0
  1. local component = require("component")
  2. local computer = require("computer")
  3. local term = require("term")
  4. local event = require("event")
  5. local sides = require("sides")
  6. local shell = require("shell")
  7. local fs = require("filesystem")
  8. local g = component.gpu
  9. local w, h = g.maxResolution()
  10. local redstone = component.redstone
  11. --local cb = component.chat_box
  12. local b = 0
  13. local f_path = "games.lua"
  14. local batya_name = "Duno"
  15. local warp_name = "Джой Казино"
  16. --cb.setName("§cBOT§7")
  17. local BOT_NAME = "§8[§6Warp 18+§8] §aКазино§f: "
  18. local COLOR1 = "§b"
  19. local COLOR = "§6"
  20. t=1
  21. function greeting()
  22.   print("Введите шанс выиграша без '%'(вводить нужно не больше 50):")
  23.   b = io.read()
  24.   print("Введите какие будут призы:")
  25.   p = io.read()
  26.   print("Введите что нужно кидать:")
  27.   c = io.read()
  28.   term.clear()
  29.   screen()
  30.   info()
  31. end
  32.  
  33. function screen()
  34.   g.fill(1, 1, w, h, " ")
  35.   g.setResolution(w/3, h/3)
  36.   term.clear()
  37.   g.setForeground(0x66d9ff)
  38.   g.set(1,1,"╔══════════════════════════════════════════════════════╗")
  39.   g.set(1,10,"══════════════════════════════════════════════════════")
  40.   g.set(1,16,"══════════════════════════════════════════════════════")
  41.   g.fill(1,2,1,30,"║")
  42.   g.fill(1,1,1,40,"║")
  43.   g.setForeground(0xff00ff)
  44.   g.set(20,15," By "..batya_name.." Для "..warp_name.." (>.<) ")
  45. end
  46.  
  47. function random()
  48.   r = 100/15
  49.   a = math.random(r)
  50.   --cb.say(BOT_NAME .. COLOR1 .. "Крутим рулетку! Ваше число §k1")
  51.   if a == 1 then
  52.     g.setForeground(0xFFDA00)
  53.     os.sleep(t/2)
  54.     --g.set(1,1,ravno)
  55.     --g.set(1,16,ravno)
  56.     g.fill(53,1,1,30,"║")
  57.     g.fill(1,1,1,40,"║")
  58.     g.setForeground(0xff00ff)
  59.     g.set(7,7,"ВЫ ВЫИГРАЛИ!!! ☺ Выпало число: " .. a)
  60.     --cb.say(BOT_NAME .. COLOR1 .. "Вы выиграли! ☺ Выпало число: ".. COLOR .. a)
  61.     redstone.setOutput(sides.back, 15)
  62.     os.sleep(t)
  63.     redstone.setOutput(sides.back, 0)
  64.     term.clear()
  65.     screen()
  66.     info()
  67.   elseif a >= 2 then
  68.     g.setForeground(0xff00ff)
  69.     os.sleep(1)
  70.     --g.set(1,1,ravno)
  71.     --g.set(1,16,ravno)
  72.     g.fill(53,1,1,30,"║")
  73.     g.fill(1,1,1,40,"║")
  74.     g.setForeground(0x00FFD1)
  75.     g.set(7,7,"Вы проиграли(( Выпало число: " .. a)
  76.     --cb.say(BOT_NAME .. COLOR1 .. "Вы проиграли :с Выпало число: " .. COLOR .. a)
  77.     os.sleep(2)
  78.     term.clear()
  79.     screen()
  80.     info()
  81.   else
  82.     print("Что-то пошло не так")  
  83.   end
  84. end
  85.  
  86. function info()
  87. file = io.open(shell.getWorkingDirectory() .. "/"..f_path, "r")
  88. schet = file:read(9999999)
  89.   term.setCursor(1, 1)
  90.   g.setForeground(0xff00ff)
  91.   g.set(15,2,"     ► Джой Казино ")
  92.   g.set(5,3,"► На основе Рандома! ツ")
  93.   g.set(5,4,"► Бросать в трубу только ставки со стены")
  94.   g.set(5,5,"► Призы разные")
  95.   g.set(5,6,"► /warp bazar ")
  96.   g.set(5,7,"► Шанс выигрыша равен 30%"
  97.   g.set(5,8,"► Счётчик: " .. schet)
  98.   g.set(7,11,"► Если выпадает число 1 вы выиграли")
  99.   g.set(7,12,"► А если выпадет другое, ")
  100.   g.set(7,13," тогда вы проиграли :с")
  101.     while true do
  102.       event.pull("redstone")
  103.       if redstone.getInput(sides.front) >= 1 then
  104.         schet = schet+1
  105.         file = io.open(shell.getWorkingDirectory() .. "/"..f_path, "w")
  106.       file:write(schet)
  107.       file:close()
  108.         print("Поступил приз")
  109.         term.clear()
  110.         random()
  111.       end
  112.   end
  113. end
  114.  
  115. greeting()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement