API tools faq
paste
Advertisement
mrWhiskasss

Main.lua

mrWhiskasss
Dec 8th, 2021 (edited)
180
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 22.73 KB | None | 0 0
raw download clone embed print report
  1. -- pastebin run XbFrPdLE
  2. local component = require("component")
  3. local computer=require("computer")
  4. local event = require("event")
  5. local term = require("term")
  6. local shell = require("shell")
  7. local fs = require("filesystem")
  8. local unicode= require("unicode")
  9. local serial = require("serialization")
  10. local serialization = require('serialization')
  11. local sky = require("sky")
  12. local gml = require('gml')
  13. local utf8 = require('unicode')
  14. g = component.gpu
  15.  
  16. --event.shouldInterrupt = function () return false end
  17. --------------------Настройки--------------------
  18. local WIDTH, HEIGHT = 60, 25 --Разрешение моника 146/112 x 42
  19. H = HEIGHT
  20. W = WIDTH
  21. hW = WIDTH/2
  22. AUTOEXIT = 59 --Автовыход через n сек.
  23. local PRICE = 16 --Цена одной игры в эмах (Целое число)
  24. local COLOR1 = 0xffffff --Рамка
  25. local COLOR2 = 0x0000ff --Цвет кнопок
  26. local TONE = 600 --Тональность звука
  27. local RED = 0 --Сторона редстоун блока
  28. N = 110 --настроение
  29. lastCollor = 0x0000ff
  30. isFirst = true
  31. isActive_1 = false
  32. ticket_value = 16.00
  33. count_games = 0
  34. ---------------------------------------------------
  35. --Файлик Chest.lua
  36. --Максимум 27 предметов, иначае спсиок заедет на кнопку, а прокрутку делать лень чота \(^o^)/
  37. --[1] - Кол-во, [2] - Название, [3] - Шанс, [4] - Цвет, [5] - id:meta
  38. --Шанс - это сколько раз указанный предмет встретится в списке(Например Земли будет в списке 30шт. Гравик 2 шт. и т.д.)
  39. print("Запуск программы...")
  40.  
  41. file = io.open(shell.getWorkingDirectory() .. "/images.lua", "r")
  42. images = serial.unserialize("{" .. file:read(9999999) .. "}")
  43. file:close()
  44.  
  45.  
  46. my_file = io.open(shell.getWorkingDirectory() .. "/loots.lua", "r")
  47. ITEMS = serial.unserialize("{" .. my_file:read(9999999) .. "}")
  48. my_file:close()
  49.  
  50. SELL_ITEMS ={
  51. { "minecraft:iron_ingot", 0, 0.2},
  52. { "ThermalFoundation:material", 64, 0.1},
  53. { "customnpcs:npcMoney", 0, 1},
  54. { "dwcity:Vis_materia", 0, 1.5}
  55. }
  56.  
  57.  
  58. -------------------------------------------------------------------------------------
  59.  
  60. local chest_sell = component.proxy("56ca4078-6b53-401c-acc1-e69fe96e5dcd")
  61. local me_interface_sell = component.proxy("980aa4fb-319a-4472-b511-bec0e2f16ed2")
  62. local chest_loot = component.proxy("3ce68a6a-bf9b-4a9a-bfc1-afb884370e89")
  63. local me_interface_loot = component.proxy("22940377-fdcf-430d-992f-1d48596d1531")
  64.  
  65.  
  66. local mid = (WIDTH-32)/2+32
  67. local login = false
  68. local timer = 0
  69. timer_2 = 0
  70. local items_all = {}
  71. local summa = 0
  72. local smile = false
  73. local summa_money
  74.  
  75. g.setResolution(WIDTH, HEIGHT)
  76. sky.logo("", COLOR1, COLOR2, WIDTH+1, HEIGHT)
  77. g.setForeground(COLOR2)
  78. for i = 1, HEIGHT do
  79. g.set(22, i, "█")
  80. end
  81. function drawImage(x,y,img) --Отрисовка картинок
  82. local back, font = g.getBackground(), g.getForeground()
  83. local start_x = x
  84. local image = img
  85. for i = 1, #image / 2 do
  86. x = start_x
  87. for j = 1, #image[i] do
  88. g.setBackground(image[i * 2 - 1][j])
  89. g.setForeground(image[i * 2][j])
  90. g.set(x,y,"▄")
  91. x = x + 1
  92. end
  93. y = y + 1
  94. end
  95.  
  96. g.setBackground(back)
  97. g.setForeground(font)
  98. end
  99.  
  100. function word(x,y,text,ramka) --Шрифт
  101. text = unicode.lower(text)
  102. for i = 1, unicode.len(text) do
  103. sky.symbol(i*5 -5 + x, y, string.sub(text,i,i), ramka)
  104. end
  105. end
  106.  
  107. function Login(w,h,nick)
  108. if w>=7 and w<=24 and h>=16 and h<=17 then -- x x y y (2) поиск нажатия кнопки старт - выход
  109. if login == false then
  110. computer.addUser(nick)
  111. isActive_1 =true
  112. login = true
  113. sky.clearR(WIDTH,HEIGHT)
  114. g.setForeground(COLOR2)
  115. sky.midL(WIDTH,30,"Добро пожаловать")
  116. g.setForeground(COLOR1)
  117. sky.midL(WIDTH,31,nick)
  118. sky.midL(WIDTH,32,"Недостаточно эмов")
  119. sky.midL(WIDTH,33,"для покупки кейса:")
  120. sky.midL(WIDTH,34," [ " .. ticket_value.. " ] ")
  121. for l = 15, 26 do
  122. sky.midL(WIDTH,l," ")
  123. end
  124. sky.button(7,15,18,3,COLOR1,COLOR2," Выход ")
  125. sky.button(7,18,18,3,COLOR1,COLOR2," Купить кейс ")
  126.  
  127. --Game()
  128. sky.drawImage(40,12, shell.getWorkingDirectory() .. "/" .. "v2" .. ".lua")
  129. sky.drawImage(73,19, shell.getWorkingDirectory() .. "/i_2.lua")
  130. else
  131. Exit()
  132. isActive_1 = false
  133. end
  134. end
  135. if w>=7 and w<=24 and h>=19 and h<=20 then -- шансы
  136. if login == false then
  137. computer.addUser(nick)
  138. for l = 15, 26 do
  139. sky.midL(WIDTH,l," ")
  140. end
  141. sky.button(7,15,18,3,COLOR1,COLOR2," Выход ")
  142. login = true
  143. sky.clearR(WIDTH,HEIGHT)
  144. g.setForeground(COLOR2)
  145. sky.midL(WIDTH,30,"Добро пожаловать")
  146. --sky.midL(WIDTH,31,"Ваш баланс:")
  147. --sky.midL(WIDTH,29," ")
  148. g.setForeground(COLOR1)
  149. sky.midL(WIDTH,31,nick)
  150. Game()
  151.  
  152. autoExit()
  153. --Exit()
  154. end
  155. end
  156. if w>=7 and w<=24 and h>=22 and h<=23 then
  157. if login == false then
  158. computer.addUser(nick)
  159. for l = 15, 26 do
  160. sky.midL(WIDTH,l," ")
  161. end
  162. sky.button(7,15,18,3,COLOR1,COLOR2," Выход ")
  163. login = true
  164. sky.clearR(WIDTH,HEIGHT)
  165. g.setForeground(COLOR2)
  166. sky.midL(WIDTH,30,"Добро пожаловать")
  167. g.setForeground(COLOR1)
  168. sky.midL(WIDTH,31,nick)
  169. sky.midR(WIDTH,12, "mrWhiskasss , пожилой человек 1981 года рождения, гражданин республики Новороссия, ")
  170. sky.midR(WIDTH,13, "ветеран второй чеченской войны , служил в 17-й Батальонно-тактической группе")
  171. sky.midR(WIDTH,14, "отдельной мотострелковой бригаде , награжден В. В. Путиным")
  172. sky.midR(WIDTH,15, "за успешное выполнение поставленных задач - земельным участком (под гараж)")
  173. sky.midR(WIDTH,16, "На сегодняшний день пенсионер. Соло игрок, как и в жизни, начавший свое развите с 1 сек вайпа,")
  174. sky.midR(WIDTH,17, "построил казино и весь приват своими руками. Выживает на этом сервере с 2018 года. Мудрый человек,")
  175. sky.midR(WIDTH,18, "знающийся на ВСЕХ модах. Внимательный, воспитанный, гений, перфекционист, бережливый, карьерист ,")
  176. sky.midR(WIDTH,19, "трудяга, с виду скользкий но в душе настоящий. Курит мануал, играет на маке, носит шляпу и")
  177. sky.midR(WIDTH,20, "серый двубортный плащ, рассматривает все предметы через wiki. Ведёт себя уравновешенно,")
  178. sky.midR(WIDTH,21, "задумчиво и хладнокровно; всегда спокоен и невозмутим; характер общительный, не женат.")
  179. autoExit()
  180. end
  181. end
  182. if w>=7 and w<=24 and h>=25 and h<=26 then
  183. if login == false then
  184. computer.addUser(nick)
  185. for l = 15, 26 do
  186. sky.midL(WIDTH,l," ")
  187. end
  188. sky.button(7,15,18,3,COLOR1,COLOR2," Выход ")
  189. login = true
  190. sky.clearR(WIDTH,HEIGHT)
  191. g.setForeground(COLOR2)
  192. sky.midL(WIDTH,30,"Добро пожаловать")
  193. g.setForeground(COLOR1)
  194. sky.midL(WIDTH,31,nick)
  195. sky.midR(WIDTH,3, " Игроки, выбившие предметы:")
  196. for i = 1, #ITEMS do
  197. if i==1 then
  198. g.setForeground(ITEMS[i][4])
  199. sky.midR(WIDTH,i+5, ITEMS[i][11] .." - Самый везучий человек на этом сервере, сорвал : ".. ITEMS[i][2] )
  200. elseif i<=7 and i~=1 then
  201. g.setForeground(ITEMS[i][4])
  202. sky.midR(WIDTH,i+5, ITEMS[i][11] .. " - Повезло, повезло : ".. ITEMS[i][2] )
  203. else
  204. g.setForeground(ITEMS[i][4])
  205. sky.midR(WIDTH,i+5, ITEMS[i][11] .. " : " .. ITEMS[i][2] )
  206. end
  207. end
  208. g.setForeground(COLOR1)
  209.  
  210. autoExit()
  211. end
  212. end
  213. end
  214.  
  215. function Check(w,h,nick)
  216. if w>=7 and w<=24 and h>=19 and h<=20 and isActive_1 then
  217. g.setForeground(COLOR1)
  218. computer.beep(TONE, 0.05)
  219. while timer_2 < 9 do
  220. sky.midL(WIDTH,35," высовываю ресурсы ")
  221. os.sleep(0.01)
  222. sky.midL(WIDTH,35," высовываю ресурсы. ")
  223. os.sleep(0.01)
  224. chest_sell.condenseItems() --сортировка борохла
  225. for slot = 1, chest_sell.getInventorySize() do
  226. local item = chest_sell.getStackInSlot(slot)
  227. if item then
  228. for i = 1, #SELL_ITEMS do
  229. if item.id == SELL_ITEMS[i][1] and item.dmg == SELL_ITEMS[i][2] then
  230. for p = 1,item.qty do
  231. me_interface_sell.pullItem(2, slot,1)
  232. ticket_value = sky.mathRound((ticket_value - SELL_ITEMS[i][3]),2)
  233. g.setForeground(COLOR1)
  234. sky.midL(WIDTH,34," [ " .. ticket_value.. " ] ")
  235. if ticket_value <= 0 then
  236. ticket_value = ticket_value + 16
  237. sky.clearR(WIDTH,HEIGHT)
  238. Start(nick)
  239. g.setForeground(COLOR1)
  240. sky.midL(WIDTH,34," [ " .. ticket_value.. " ] ")
  241. timer_2 = 0
  242. return end
  243. end
  244. end
  245. end
  246. end
  247. end
  248. g.setForeground(COLOR1)
  249. timer_2= timer_2 + 1
  250. sky.midL(WIDTH,35," высовываю ресурсы.. ")
  251. os.sleep(0.01)
  252. sky.midL(WIDTH,35," высовываю ресурсы... ")
  253. end
  254. timer_2 = 0
  255. end
  256. end
  257.  
  258. function autoExit()
  259. timer = timer - 1
  260. g.setForeground(COLOR2)
  261. sky.midL(WIDTH,35, "Авто выход через: ")
  262. g.setForeground(COLOR1)
  263. g.set(24, 35, timer .. " ")
  264. if (smile) then
  265. sky.midL(WIDTH,29, "( o_0)")
  266. smile = false
  267. else
  268. sky.midL(WIDTH,29, "(0_o )")
  269. smile = true
  270. end
  271. end
  272.  
  273. local function exportstring( s )
  274. return string.format("%q", s)
  275. end
  276.  
  277. function save( tbl,filename,size )
  278. local tmp_bool = 0
  279. local charS,charE = " ","\n"
  280. local file,err = io.open( filename, "wb" )
  281. local tab_size = size + 1
  282.  
  283. if err then return err end
  284. -- initiate variables for save procedure
  285. local tables,lookup = { tbl },{ [tbl] = 1 }
  286.  
  287. for idx,t in ipairs( tables ) do
  288. if tmp_bool ~= 0 then
  289. file:write( "{" )
  290. end
  291. local thandled = {}
  292.  
  293. for i,v in ipairs( t ) do
  294. thandled[i] = true
  295. local stype = type( v )
  296. -- only handle value
  297. if stype == "table" then
  298. if not lookup[v] then
  299. table.insert( tables, v )
  300. lookup[v] = #tables
  301. end
  302. elseif stype == "string" then
  303. file:write( charS..exportstring( v ).."," )
  304. elseif stype == "number" then
  305. file:write( charS..tostring( v ).."," )
  306. end
  307.  
  308. end
  309. for i,v in pairs( t ) do
  310. -- escape handled values
  311. if (not thandled[i]) then
  312.  
  313. local str = ""
  314. local stype = type( i )
  315. -- handle index
  316. if stype == "table" then
  317. if not lookup[i] then
  318. table.insert( tables,i )
  319. lookup[i] = #tables
  320. end
  321. str = charS.."[{"..lookup[i].."}]="
  322. elseif stype == "string" then
  323. str = charS.."["..exportstring( i ).."]="
  324. elseif stype == "number" then
  325. str = charS.."["..tostring( i ).."]="
  326. end
  327.  
  328. if str ~= "" then
  329. stype = type( v )
  330. -- handle value
  331. if stype == "table" then
  332. if not lookup[v] then
  333. table.insert( tables,v )
  334. lookup[v] = #tables
  335. end
  336. --file:write( str.."{"..lookup[v].."}," )
  337. elseif stype == "string" then
  338. file:write( str..exportstring( v ).."," )
  339. elseif stype == "number" then
  340.  
  341. file:write( str..tostring( v ).."," )
  342.  
  343. end
  344. end
  345. end
  346.  
  347. end
  348. if tmp_bool ~= 0 then
  349. file:write( "}")
  350. end
  351. tab_size = tab_size - 1
  352. if tab_size ~= size and tab_size ~= 0 then
  353. file:write(",")
  354. else
  355.  
  356. end
  357. if tab_size ~= size then
  358. file:write(charE )
  359. end
  360.  
  361. tmp_bool =1000
  362. end
  363. file:close()
  364. end
  365.  
  366. function autoExit_2()
  367. timer = timer - 1
  368. g.setForeground(COLOR2)
  369. sky.midL(WIDTH,35, "Авто выход через: ")
  370. g.setForeground(COLOR1)
  371. g.set(24, 35, timer .. " ")
  372. if (smile) then
  373. sky.midL(WIDTH,29, "( o_0)")
  374. smile = false
  375. else
  376. sky.midL(WIDTH,29, "(0_o )")
  377. smile = true
  378.  
  379. end
  380.  
  381. end
  382.  
  383. function Rules()
  384. g.setForeground(COLOR1)
  385. sky.midL(WIDTH,2, " Общая инфа: ")
  386. sky.midL(WIDTH,3, " Цена кейса - 16 эм ")
  387. sky.midL(WIDTH,4, " Погода в сервере = "..N)
  388. --sky.midL(WIDTH,4, " открытых кейсов = "..count_games)
  389. sky.midL(WIDTH,5, " Также купить кейс ")
  390. sky.midL(WIDTH,6, " можно за ресурсы ")
  391. sky.midL(WIDTH,7, " Железо = 0.2 эма ")
  392. sky.midL(WIDTH,8, " Медь = 0.1 эма ")
  393. sky.midL(WIDTH,9, " Наличка = 1 эм ")
  394. sky.midL(WIDTH,10," Вис = 1.5 эма ")
  395. sky.midL(WIDTH,11," Слево пополнение <-- ")
  396. sky.midL(WIDTH,12," Справо получение --> ")
  397.  
  398. sky.button(7,15,18,3,COLOR1,COLOR2,"Старт")
  399. sky.button(7,18,18,3,COLOR1,COLOR2,"Шансы")
  400. sky.button(7,21,18,3,COLOR1,COLOR2,"Об авторе")
  401. sky.button(7,24,18,3,COLOR1,COLOR2,"Победители")
  402. sky.midL(WIDTH,27,"▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄")
  403. sky.midL(WIDTH,14,"▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀")
  404. end
  405.  
  406. function Game()
  407. g.setForeground(COLOR1)
  408. sky.midR(WIDTH,3, " Предметы, которые могут выпасть:")
  409. --sky.button(mid - 15,37,30,3,COLOR1,COLOR2, " Открыть кейс ")
  410. for i = 1, #ITEMS do
  411. g.setForeground(ITEMS[i][4])
  412. sky.midR(WIDTH,i+5, "&3" .. ITEMS[i][1] .. "x&r -- " .. ITEMS[i][2] .. " -- &3".. ITEMS[i][6] .. " ".. sky.mathRound(ITEMS[i][3] / summa * 100, 3) .. "%" )
  413. --sky.midR(WIDTH,i+5, "&3" .. ITEMS[i][1] .. "x&r -- " .. ITEMS[i][2] .. " -- &3".. ITEMS[i][6] )
  414. end
  415. end
  416.  
  417. function midle(y, text) --Fast Render for Table \/
  418. len=unicode.len(text)
  419. x=52-(len/2)
  420. g.set(x, y, text)
  421. end
  422.  
  423. function Table(rand)
  424. local win
  425. for j = 1, #ITEMS do
  426. midle(j+5, "")
  427. if j == sky.mathRound(#ITEMS / 2, 0) then
  428. win = rand
  429. --g.setForeground(COLOR1)
  430. g.setForeground(items_all[rand][3])
  431. --midle(j+5, ">>>>> " .. items_all[rand][2] .. " <<<<<")
  432. midle(19, items_all[rand][2] )
  433. drawImage(87,17, images[tonumber(ITEMS[tonumber(items_all[rand][6])][8])] )
  434. -- sky.drawImage(73,19, shell.getWorkingDirectory() "/"..items_all[rand][8] ..".lua")
  435. end
  436. g.setForeground(items_all[rand][3])
  437. midle(j+5, items_all[rand][2])
  438. if rand == #items_all then
  439. rand = 1
  440. else
  441. rand = rand + 1
  442. end
  443. end
  444.  
  445. return win
  446. end
  447.  
  448. function Start(nick)
  449.  
  450. --if w>=mid-15 and w<=mid+14 and h>=37 and h<=39 then
  451.  
  452. computer.beep(TONE, 0.05)
  453. summa_money = 0
  454.  
  455. g.setForeground(COLOR1)
  456.  
  457. sky.drawImage(79,7, shell.getWorkingDirectory() .. "/i_3.lua")
  458. midle(19, "▷▷▷ " .. " ".. " ◁◁◁")
  459. sky.midL(WIDTH,35," Идёт игра... ")
  460. sky.midR(WIDTH,35, " Открываем кейсик... ")
  461. local rand, win = math.random(1, #items_all)
  462. for i = 1, 90 do
  463. --os.sleep(0.16)
  464. win = Table(rand)
  465.  
  466. if i < 75 then
  467. os.sleep(0.01)
  468. elseif i < 85 then
  469. elseif i < 90 then
  470. computer.beep(TONE, 0.1)
  471. else
  472. computer.beep(TONE, 1)
  473. end
  474. if rand == #items_all then
  475. rand = 1
  476. else
  477. rand = rand + 1
  478. end
  479. end
  480. count_games = count_games + 1
  481. ITEMS[tonumber(items_all[win][6])][11] = nick
  482. local fingerprint_2 = {id = ITEMS[tonumber(items_all[win][6])][9], dmg = ITEMS[tonumber(items_all[win][6])][10]}
  483. me_interface_loot.exportItem(fingerprint_2, 2, ITEMS[tonumber(items_all[win][6])][1])
  484. --погода
  485. N = (N + PRICE) - tonumber(items_all[win][5])
  486. g.setForeground(COLOR1)
  487. sky.midL(WIDTH,4, " ")
  488. sky.midL(WIDTH,4, "Погода в сервере "..N)
  489. --sky.midL(WIDTH,4, " открытых кейсов = "..count_games)
  490.  
  491.  
  492. while (N <= -114) do
  493. N = N + 114
  494. for k = 13, 27 do
  495. local tmp = tonumber(ITEMS[k][3])
  496. tmp = tmp + 1
  497. ITEMS[k][3] = tmp
  498. end
  499. fs.remove(shell.getWorkingDirectory() .. "/loots.lua", "r")
  500. save(ITEMS,"loots.lua",27)
  501. end
  502.  
  503. while (N >= 114) do
  504. N = N - 114
  505. for k = 13, 27 do
  506. local tmp = tonumber(ITEMS[k][3])
  507. tmp = tmp - 1
  508. ITEMS[k][3] = tmp
  509. end
  510. fs.remove(shell.getWorkingDirectory() .. "/loots.lua", "r")
  511. save(ITEMS,"loots.lua",27)
  512. end
  513.  
  514. g.setForeground(items_all[win][3])
  515. sky.midR(WIDTH,35, " ")
  516. sky.midR(WIDTH +1,35, items_all[win][2])
  517.  
  518.  
  519.  
  520. end
  521.  
  522. function create_items()
  523. --от 1 до 27
  524. for i = 1, #ITEMS do
  525. for j = 1, ITEMS[i][3] do
  526. -- от 1 до числа шанса айтема
  527. summa = summa + 1
  528. items_all[summa] = {ITEMS[i][1], ITEMS[i][2], ITEMS[i][4], ITEMS[i][5], ITEMS[i][7], ITEMS[i][8]}
  529. end
  530. end
  531. sky.shake(items_all)
  532. --save(ITEMS,"loots_v2.lua",27)
  533. end
  534.  
  535. function Exit()
  536. login = false
  537. sky.clearL(HEIGHT)
  538. sky.clearR(WIDTH,HEIGHT)
  539. g.setResolution(WIDTH, HEIGHT)
  540. sky.logo("", COLOR1, COLOR2, WIDTH, HEIGHT)
  541. g.setForeground(COLOR2)
  542. for i = 1, HEIGHT do
  543. g.set(29, i, "█")
  544. end
  545. Rules()
  546. --sky.drawImage(mid - 21,7, shell.getWorkingDirectory() .. "/LogoChest.lua")
  547. -- text = unicode.lower("mr-whiskas")
  548. -- for i = 1, unicode.len(text) do
  549. -- sky.symbol(i*8-8 + 45, 7, string.sub(text,i,i), 0x00000)
  550. -- end
  551. --text = unicode.lower("-ke+c")
  552. -- for i = 1, unicode.len(text) do
  553. -- sky.symbol(i*8-8 + 65, 14, string.sub(text,i,i), 0x00000)
  554. -- end
  555. sky.drawImage(32,2, shell.getWorkingDirectory() .. "/i_1.lua")
  556. local users={computer.users()}
  557. for i=1, #users do
  558. computer.removeUser(users[i])
  559. end
  560. end
  561.  
  562. --create_items()
  563. --Exit()
  564.  
  565. while false do
  566. local e,_,w,h,_,nick = event.pull(1, "touch")
  567. if e == "touch" then
  568. Login(w,h,nick)
  569. Check(w,h,nick)
  570. --if (login) then
  571. -- Start(w,h,nick)
  572. --end
  573. timer = AUTOEXIT
  574. end
  575. if (login) then
  576. autoExit()
  577. -- if isFirst then
  578. -- for i = 1, 31 do
  579. -- g.set(67,1 + i, " ")
  580. -- end
  581. --end
  582. if timer == 0 then
  583.  
  584. Exit()
  585. end
  586. end
  587. end
  588.  
  589. function MyButton(x,y,w,h,col1,col2,text) -- Кнопка
  590. g.setForeground(col1)
  591. g.set(x + w/2 - unicode.len(text)/2, y+h/2, text)
  592. g.setForeground(col2)
  593. for i = 1, w-2 do
  594. g.set(x+i,y+h-1,"▀")
  595. end
  596. --for i = 1, h-1 do
  597. -- g.set(x,y+i,"│")
  598. -- g.set(x+w-1,y+i,"│")
  599. -- end
  600. -- g.set(x,y,"┌")
  601. -- g.set(x+w-1,y,"┐")
  602. -- g.set(x,y+h-1,"└")
  603. --g.set(x+w-1,y+h-1,"┘")
  604. end
  605. MyButton(1,1,22,3,COLOR1,COLOR2,"Applied Energistics ")
  606. MyButton(1,3,22,3,COLOR1,COLOR2,"BuildCraft ")
  607. MyButton(1,5,22,3,COLOR1,COLOR2,"Draconic Evolution ")
  608. MyButton(1,7,22,3,COLOR1,COLOR2,"Forestry ")
  609. MyButton(1,9,22,3,COLOR1,COLOR2,"IndustrialCraft ")
  610. MyButton(1,11,22,3,COLOR1,COLOR2,"Minecraft ")
  611. MyButton(1,13,22,3,COLOR1,COLOR2,"MineFactory Reloaded")
  612. MyButton(1,15,22,3,COLOR1,COLOR2,"OpenComputers ")
  613. MyButton(1,17,22,3,COLOR1,COLOR2,"Thermal Expansion ")
  614. MyButton(1,19,22,3,COLOR1,COLOR2,"Другие моды ")
  615. sky.button(7,22,9,3,COLOR1,0x00ff00," cтарт ")
  616.  
  617.  
  618. while true do
  619. os.sleep(1)
  620. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!