Advertisement
Guest User

P135API.cr.lua

a guest
Dec 14th, 2015
183
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 2.04 KB | None | 0 0
  1. local g,h,l,m,n,o,p,q,t,w,x,y,D,E,F="isAvailable",p135,"data","modem",modem,print,"setBackground",require," ",math,"setForeground",data_card,16777215,"auto","index out of bounds"local
  2. d=q"component"local
  3. B=q"unicode"local
  4. C=q"event"local
  5. u=q"serialization"local
  6. c=d.gpu
  7. if
  8. d[g](m)then
  9. n=d[m]end
  10. if
  11. d[g](l)then
  12. y=d[l]end
  13. local
  14. v,z=c.getResolution()h={}local
  15. function
  16. A(b,a,e,f)if
  17. b==E
  18. then
  19. b=w.floor(v/2-e/2)end
  20. if
  21. a==E
  22. then
  23. a=w.ceil(z/2-f/2)end
  24. return
  25. b,a
  26. end
  27. function
  28. h.setProgressBar(b,a,e,f,j,i)if
  29. e>v
  30. then
  31. error(F)end
  32. c[p](j)c.fill(b,a,e,1,t)if
  33. f>e
  34. then
  35. error(F)else
  36. c[p](i)c.fill(b,a,f,1,t)end
  37. end
  38. function
  39. h.addWindow(b,a,e,f,j,i,r)local
  40. k,s=A(b,a,e,f)c[p](j)c.fill(k,s,e,f,t)c[p](i)c.fill(k,s,e,1,t)c[x](D)c.set(k,s,r)end
  41. function
  42. h.addText(b,a,e,f,j)c[x](f)c[p](e)c.set(b,a,j)end
  43. function
  44. h.reset()c[p](0)c[x](D)q"term".clear()end
  45. function
  46. h.generate(b)local
  47. a=""for
  48. e=1,b
  49. do
  50. local
  51. f=w.random(65,126)local
  52. j=B.char(f)a=a..j
  53. end
  54. return
  55. a
  56. end
  57. if
  58. d[g](m)and
  59. d[g](l)then
  60. function
  61. h.sendSecuredMessage(...)local
  62. b=36813
  63. n.open(b)local
  64. a=table.pack(...)a=u.serialize(a)a=y.encode64(a)n.broadcast(b,a)n.close(b)end
  65. function
  66. h.getSecuredMessage()local
  67. b=36813
  68. n.open(b)local
  69. i,i,i,i,i,r=C.pull"modem_message"local
  70. k=y.decode64(r)k=u.unserialize(k)n.close(b)return
  71. table.unpack(k)end
  72. end
  73. function
  74. h.getState()if
  75. d[g](m)and
  76. not
  77. d[g](l)then
  78. o"Модем подключен, но не подключена дата-карта. Функции защищенных сообщений недоступны."elseif
  79. d[g](l)and
  80. not
  81. d[g](m)then
  82. o"Дата-карта подключена, но не подключен модем. Функции защищенных сообщений недоступны."elseif
  83. not
  84. d[g](m)and
  85. not
  86. d[g](l)then
  87. o"Не подключены ни дата-карта, ни модем. Функции защищенных сообщений недоступны."elseif
  88. d[g](m)and
  89. d[g](l)then
  90. o"Дата-карта подключена."o"Модем подключен."o"Вы можете использовать библиотеку на все сто! :)"end
  91. end
  92. return
  93. h
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement