API tools faq
paste
Advertisement
Guest User

CopenB cloud mod

a guest
Dec 31st, 2016
175
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 16.36 KB | None | 0 0
raw download clone embed print report
  1. --[[ element: Cloud ]]
  2. local clod = elem.allocate("BAUER", "CLOD")
  3. elem.element(elem.BAUER_PT_CLOD, elem.element(elem.DEFAULT_PT_WTRV))
  4. elem.property(elem.BAUER_PT_CLOD, "Name", "CLOD")
  5. elem.property(elem.BAUER_PT_CLOD, "Description", "Cloud - produces water")
  6. elem.property(elem.BAUER_PT_CLOD, "Colour", 0x708090)
  7. elem.property(elem.BAUER_PT_CLOD, "MenuSection", 6)
  8. elem.property(elem.BAUER_PT_CLOD, "MenuVisible", 0)
  9. elem.property(elem.BAUER_PT_CLOD, "Loss", 0.1)
  10. elem.property(elem.BAUER_PT_CLOD, "AirLoss", 0.3)
  11. elem.property(elem.BAUER_PT_CLOD, "Advection", 1)
  12. elem.property(elem.BAUER_PT_CLOD, "Diffusion", 0.3)
  13. elem.property(elem.BAUER_PT_CLOD, "Temperature", 273.15)
  14. elem.property(elem.BAUER_PT_CLOD, "Gravity", 0)
  15.  
  16. local function CLODUpdate(i,x,y,s,n)
  17. local w=math.random(0,2000)
  18. if w==1000 then
  19. tpt.parts[i].type=tpt.el.watr.id
  20. end
  21. end
  22.  
  23. tpt.element_func(CLODUpdate,clod)
  24.  
  25. local scld = elem.allocate("BAUER", "SCLD")
  26. elem.element(elem.BAUER_PT_SCLD, elem.element(elem.DEFAULT_PT_WTRV))
  27. elem.property(elem.BAUER_PT_SCLD, "Name", "SCLD")
  28. elem.property(elem.BAUER_PT_SCLD, "Description", "Cloud - produces snow")
  29. elem.property(elem.BAUER_PT_SCLD, "Colour", 0xC0C0C0)
  30. elem.property(elem.BAUER_PT_SCLD, "MenuSection", 6)
  31. elem.property(elem.BAUER_PT_SCLD, "MenuVisible", 0)
  32. elem.property(elem.BAUER_PT_SCLD, "Loss", 0.1)
  33. elem.property(elem.BAUER_PT_SCLD, "AirLoss", 0.3)
  34. elem.property(elem.BAUER_PT_SCLD, "Advection", 1)
  35. elem.property(elem.BAUER_PT_SCLD, "Diffusion", 0.3)
  36. elem.property(elem.BAUER_PT_SCLD, "Temperature", -273.15)
  37. elem.property(elem.BAUER_PT_SCLD, "Gravity", 0)
  38.  
  39. local function SCLDUpdate(i,x,y,s,n)
  40. local w=math.random(0,2000)
  41. if w==1000 then
  42. tpt.parts[i].type=tpt.el.snow.id
  43. end
  44. end
  45.  
  46. tpt.element_func(SCLDUpdate,scld)
  47.  
  48. local tcld = elem.allocate("BAUER", "TCLD")
  49. elem.element(elem.BAUER_PT_TCLD, elem.element(elem.DEFAULT_PT_WTRV))
  50. elem.property(elem.BAUER_PT_TCLD, "Name", "TCLD")
  51. elem.property(elem.BAUER_PT_TCLD, "Description", "Cloud - produces thunderstorms")
  52. elem.property(elem.BAUER_PT_TCLD, "Colour", 0x1f1f1f)
  53. elem.property(elem.BAUER_PT_TCLD, "MenuSection", 6)
  54. elem.property(elem.BAUER_PT_TCLD, "MenuVisible", 0)
  55. elem.property(elem.BAUER_PT_TCLD, "Loss", 0.1)
  56. elem.property(elem.BAUER_PT_TCLD, "AirLoss", 0.3)
  57. elem.property(elem.BAUER_PT_TCLD, "Advection", 0)
  58. elem.property(elem.BAUER_PT_TCLD, "Diffusion", 0.3)
  59. elem.property(elem.BAUER_PT_TCLD, "Temperature", 1273.15)
  60. elem.property(elem.BAUER_PT_TCLD, "Gravity", 0)
  61.  
  62. function TCLDUpdate(i,x,y,s,n)
  63.     if math.random(0,7000) == 20 then
  64.                 tpt.create(x + math.random(-1,1), y + math.random(-1,1), 'ligh')
  65.    
  66.         end  
  67. end
  68. tpt.element_func(TCLDUpdate,tcld)
  69.  
  70. local ccld = elem.allocate("BAUER", "CCLD")
  71. elem.element(elem.BAUER_PT_CCLD, elem.element(elem.DEFAULT_PT_WTRV))
  72. elem.property(elem.BAUER_PT_CCLD, "Name", "CCLD")
  73. elem.property(elem.BAUER_PT_CCLD, "Description", "Cloud - produces concrete")
  74. elem.property(elem.BAUER_PT_CCLD, "Colour", 0x00FFFFFF)
  75. elem.property(elem.BAUER_PT_CCLD, "MenuSection", 6)
  76. elem.property(elem.BAUER_PT_CCLD, "MenuVisible", 0)
  77. elem.property(elem.BAUER_PT_CCLD, "Loss", 0.1)
  78. elem.property(elem.BAUER_PT_CCLD, "AirLoss", 0.3)
  79. elem.property(elem.BAUER_PT_CCLD, "Advection", 1)
  80. elem.property(elem.BAUER_PT_CCLD, "Diffusion", 0.3)
  81. elem.property(elem.BAUER_PT_CCLD, "Temperature", 273.15)
  82. elem.property(elem.BAUER_PT_CCLD, "Gravity", 0)
  83.  
  84. local function CCLDUpdate(i,x,y,s,n)
  85. local w=math.random(0,2000)
  86. if w==1000 then
  87. tpt.parts[i].type=tpt.el.cnct.id
  88. end
  89. end
  90.  
  91. tpt.element_func(CCLDUpdate,ccld)
  92.  
  93. local lcld = elem.allocate("BAUER", "LCLD")
  94. elem.element(elem.BAUER_PT_LCLD, elem.element(elem.DEFAULT_PT_WTRV))
  95. elem.property(elem.BAUER_PT_LCLD, "Name", "LCLD")
  96. elem.property(elem.BAUER_PT_LCLD, "Description", "Cloud - produces lava")
  97. elem.property(elem.BAUER_PT_LCLD, "Colour", 0xFF4500)
  98. elem.property(elem.BAUER_PT_LCLD, "MenuSection", 6)
  99. elem.property(elem.BAUER_PT_LCLD, "MenuVisible", 0)
  100. elem.property(elem.BAUER_PT_LCLD, "Loss", 0.1)
  101. elem.property(elem.BAUER_PT_LCLD, "AirLoss", 0.3)
  102. elem.property(elem.BAUER_PT_LCLD, "Advection", 1)
  103. elem.property(elem.BAUER_PT_LCLD, "Diffusion", 0.3)
  104. elem.property(elem.BAUER_PT_LCLD, "Temperature", 1273.15)
  105. elem.property(elem.BAUER_PT_LCLD, "Gravity", 0)
  106.  
  107. local function LCLDUpdate(i,x,y,s,n)
  108. local w=math.random(0,2000)
  109. if w==1000 then
  110. tpt.parts[i].type=tpt.el.lava.id
  111. end
  112. end
  113.  
  114. tpt.element_func(LCLDUpdate,lcld)
  115.  
  116. local gcld = elem.allocate("BAUER", "GCLD")
  117. elem.element(elem.BAUER_PT_GCLD, elem.element(elem.DEFAULT_PT_WTRV))
  118. elem.property(elem.BAUER_PT_GCLD, "Name", "GCLD")
  119. elem.property(elem.BAUER_PT_GCLD, "Description", "Cloud - produces gel")
  120. elem.property(elem.BAUER_PT_GCLD, "Colour", 0xff8d1a)
  121. elem.property(elem.BAUER_PT_GCLD, "MenuSection", 6)
  122. elem.property(elem.BAUER_PT_GCLD, "MenuVisible", 0)
  123. elem.property(elem.BAUER_PT_GCLD, "Loss", 0.1)
  124. elem.property(elem.BAUER_PT_GCLD, "AirLoss", 0.3)
  125. elem.property(elem.BAUER_PT_GCLD, "Advection", 1)
  126. elem.property(elem.BAUER_PT_GCLD, "Diffusion", 0.3)
  127. elem.property(elem.BAUER_PT_GCLD, "Temperature", 273.15)
  128. elem.property(elem.BAUER_PT_GCLD, "Gravity", 0)
  129.  
  130. local function GCLDUpdate(i,x,y,s,n)
  131. local w=math.random(0,2000)
  132. if w==1000 then
  133. tpt.parts[i].type=tpt.el.gel.id
  134. end
  135. end
  136.  
  137. tpt.element_func(GCLDUpdate,gcld)
  138.  
  139. local sncd = elem.allocate("BAUER", "SNCD")
  140. elem.element(elem.BAUER_PT_SNCD, elem.element(elem.DEFAULT_PT_WTRV))
  141. elem.property(elem.BAUER_PT_SNCD, "Name", "SNCD")
  142. elem.property(elem.BAUER_PT_SNCD, "Description", "Cloud - produces sand")
  143. elem.property(elem.BAUER_PT_SNCD, "Colour", 0xffb853)
  144. elem.property(elem.BAUER_PT_SNCD, "MenuSection", 6)
  145. elem.property(elem.BAUER_PT_SNCD, "MenuVisible", 0)
  146. elem.property(elem.BAUER_PT_SNCD, "Loss", 0.1)
  147. elem.property(elem.BAUER_PT_SNCD, "AirLoss", 0.3)
  148. elem.property(elem.BAUER_PT_SNCD, "Advection", 1)
  149. elem.property(elem.BAUER_PT_SNCD, "Diffusion", 0.3)
  150. elem.property(elem.BAUER_PT_SNCD, "Temperature", 273.15)
  151. elem.property(elem.BAUER_PT_SNCD, "Gravity", 0)
  152.  
  153. local function SNCDUpdate(i,x,y,s,n)
  154. local w=math.random(0,2000)
  155. if w==1000 then
  156. tpt.parts[i].type=tpt.el.sand.id
  157. end
  158. end
  159.  
  160. tpt.element_func(SNCDUpdate,sncd)
  161.  
  162. local ncld = elem.allocate("BAUER", "NCLD")
  163. elem.element(elem.BAUER_PT_NCLD, elem.element(elem.DEFAULT_PT_WTRV))
  164. elem.property(elem.BAUER_PT_NCLD, "Name", "NCLD")
  165. elem.property(elem.BAUER_PT_NCLD, "Description", "Cloud - produces nitroglycerin")
  166. elem.property(elem.BAUER_PT_NCLD, "Colour", 0x00ff00)
  167. elem.property(elem.BAUER_PT_NCLD, "MenuSection", 6)
  168. elem.property(elem.BAUER_PT_NCLD, "MenuVisible", 0)
  169. elem.property(elem.BAUER_PT_NCLD, "Loss", 0.1)
  170. elem.property(elem.BAUER_PT_NCLD, "AirLoss", 0.3)
  171. elem.property(elem.BAUER_PT_NCLD, "Advection", 1)
  172. elem.property(elem.BAUER_PT_NCLD, "Diffusion", 0.3)
  173. elem.property(elem.BAUER_PT_NCLD, "Temperature", 273.15)
  174. elem.property(elem.BAUER_PT_NCLD, "Gravity", 0)
  175. elem.property(elem.BAUER_PT_NCLD, "Flammable", 1000)
  176. elem.property(elem.BAUER_PT_NCLD, "Explosive", 2)
  177.  
  178. local function NCLDUpdate(i,x,y,s,n)
  179. local w=math.random(0,2000)
  180. if w==1000 then
  181. tpt.parts[i].type=tpt.el.nitr.id
  182. end
  183. end
  184.  
  185. tpt.element_func(NCLDUpdate,ncld)
  186.  
  187. local acld = elem.allocate("BAUER", "ACLD")
  188. elem.element(elem.BAUER_PT_ACLD, elem.element(elem.DEFAULT_PT_OXYG))
  189. elem.property(elem.BAUER_PT_ACLD, "Name", "ACLD")
  190. elem.property(elem.BAUER_PT_ACLD, "Description", "Cloud - produces acid")
  191. elem.property(elem.BAUER_PT_ACLD, "Colour", 0xFF0066)
  192. elem.property(elem.BAUER_PT_ACLD, "MenuSection", 6)
  193. elem.property(elem.BAUER_PT_ACLD, "MenuVisible", 0)
  194. elem.property(elem.BAUER_PT_ACLD, "Loss", 0.1)
  195. elem.property(elem.BAUER_PT_ACLD, "AirLoss", 0.3)
  196. elem.property(elem.BAUER_PT_ACLD, "Advection", 0)
  197. elem.property(elem.BAUER_PT_ACLD, "Gravity", 0)
  198. elem.property(elem.BAUER_PT_ACLD, "Explosive", 0)
  199. elem.property(elem.BAUER_PT_ACLD, "Weight", 1)
  200. elem.property(elem.BAUER_PT_ACLD, "Diffusion", 0.3)
  201. elem.property(elem.BAUER_PT_ACLD, "Hardness", 0)
  202.  
  203. function ACLDUpdate(i,x,y,s,n)
  204.          if math.random(1,750) == 10 then
  205.                 tpt.create(x + math.random(-1,1), y + math.random(-1,1), 'acid')
  206.         end
  207. end
  208. tpt.element_func(ACLDUpdate,acld)
  209.  
  210. local ocld = elem.allocate("BAUER", "OCLD")
  211. elem.element(elem.BAUER_PT_OCLD, elem.element(elem.DEFAULT_PT_WTRV))
  212. elem.property(elem.BAUER_PT_OCLD, "Name", "OCLD")
  213. elem.property(elem.BAUER_PT_OCLD, "Description", "Cloud - produces oil")
  214. elem.property(elem.BAUER_PT_OCLD, "Colour", 0xe6e600)
  215. elem.property(elem.BAUER_PT_OCLD, "MenuSection", 6)
  216. elem.property(elem.BAUER_PT_OCLD, "MenuVisible", 0)
  217. elem.property(elem.BAUER_PT_OCLD, "Loss", 0.1)
  218. elem.property(elem.BAUER_PT_OCLD, "AirLoss", 0.3)
  219. elem.property(elem.BAUER_PT_OCLD, "Advection", 1)
  220. elem.property(elem.BAUER_PT_OCLD, "Diffusion", 0.3)
  221. elem.property(elem.BAUER_PT_OCLD, "Temperature", 273.15)
  222. elem.property(elem.BAUER_PT_OCLD, "Gravity", 0)
  223.  
  224. local function OCLDUpdate(i,x,y,s,n)
  225. local w=math.random(0,2000)
  226. if w==1000 then
  227. tpt.parts[i].type=tpt.el.oil.id
  228. end
  229. end
  230.  
  231. tpt.element_func(OCLDUpdate,ocld)
  232.  
  233. local icld = elem.allocate("BAUER", "ICLD")
  234. elem.element(elem.BAUER_PT_ICLD, elem.element(elem.DEFAULT_PT_WTRV))
  235. elem.property(elem.BAUER_PT_ICLD, "Name", "ICLD")
  236. elem.property(elem.BAUER_PT_ICLD, "Description", "Cloud - produces isoz")
  237. elem.property(elem.BAUER_PT_ICLD, "Colour", 0x8000ff)
  238. elem.property(elem.BAUER_PT_ICLD, "MenuSection", 6)
  239. elem.property(elem.BAUER_PT_ICLD, "MenuVisible", 0)
  240. elem.property(elem.BAUER_PT_ICLD, "Loss", 0.1)
  241. elem.property(elem.BAUER_PT_ICLD, "AirLoss", 0.3)
  242. elem.property(elem.BAUER_PT_ICLD, "Advection", 1)
  243. elem.property(elem.BAUER_PT_ICLD, "Diffusion", 0.3)
  244. elem.property(elem.BAUER_PT_ICLD, "Temperature", 273.15)
  245. elem.property(elem.BAUER_PT_ICLD, "Gravity", 0)
  246.  
  247. local function ICLDUpdate(i,x,y,s,n)
  248. local w=math.random(0,2000)
  249. if w==1000 then
  250. tpt.parts[i].type=tpt.el.isoz.id
  251. end
  252. end
  253.  
  254. tpt.element_func(ICLDUpdate,icld)
  255.  
  256. local bcld = elem.allocate("BAUER", "BCLD")
  257. elem.element(elem.BAUER_PT_BCLD, elem.element(elem.DEFAULT_PT_WTRV))
  258. elem.property(elem.BAUER_PT_BCLD, "Name", "BCLD")
  259. elem.property(elem.BAUER_PT_BCLD, "Description", "Cloud - produces broken vibranium")
  260. elem.property(elem.BAUER_PT_BCLD, "Colour", 0x59b300)
  261. elem.property(elem.BAUER_PT_BCLD, "MenuSection", 6)
  262. elem.property(elem.BAUER_PT_BCLD, "MenuVisible", 0)
  263. elem.property(elem.BAUER_PT_BCLD, "Loss", 0.1)
  264. elem.property(elem.BAUER_PT_BCLD, "AirLoss", 0.3)
  265. elem.property(elem.BAUER_PT_BCLD, "Advection", 1)
  266. elem.property(elem.BAUER_PT_BCLD, "Diffusion", 0.3)
  267. elem.property(elem.BAUER_PT_BCLD, "Temperature", 273.15)
  268. elem.property(elem.BAUER_PT_BCLD, "Gravity", 0)
  269.  
  270. local function BCLDUpdate(i,x,y,s,n)
  271. local w=math.random(0,2000)
  272. if w==1000 then
  273. tpt.parts[i].type=tpt.el.bvbr.id
  274. end
  275. end
  276.  
  277. tpt.element_func(BCLDUpdate,bcld)
  278.  
  279. local dcld = elem.allocate("BAUER", "DCLD")
  280. elem.element(elem.BAUER_PT_DCLD, elem.element(elem.DEFAULT_PT_WTRV))
  281. elem.property(elem.BAUER_PT_DCLD, "Name", "DCLD")
  282. elem.property(elem.BAUER_PT_DCLD, "Description", "Cloud - produces dust")
  283. elem.property(elem.BAUER_PT_DCLD, "Colour", 0xffffb3)
  284. elem.property(elem.BAUER_PT_DCLD, "MenuSection", 6)
  285. elem.property(elem.BAUER_PT_DCLD, "MenuVisible", 0)
  286. elem.property(elem.BAUER_PT_DCLD, "Loss", 0.1)
  287. elem.property(elem.BAUER_PT_DCLD, "AirLoss", 0.3)
  288. elem.property(elem.BAUER_PT_DCLD, "Advection", 1)
  289. elem.property(elem.BAUER_PT_DCLD, "Diffusion", 0.3)
  290. elem.property(elem.BAUER_PT_DCLD, "Temperature", 273.15)
  291. elem.property(elem.BAUER_PT_DCLD, "Gravity", 0)
  292.  
  293. local function DCLDUpdate(i,x,y,s,n)
  294. local w=math.random(0,2000)
  295. if w==1000 then
  296. tpt.parts[i].type=tpt.el.dust.id
  297. end
  298. end
  299.  
  300. tpt.element_func(DCLDUpdate,dcld)
  301.  
  302. local mcld = elem.allocate("BAUER", "MCLD")
  303. elem.element(elem.BAUER_PT_MCLD, elem.element(elem.DEFAULT_PT_WTRV))
  304. elem.property(elem.BAUER_PT_MCLD, "Name", "MCLD")
  305. elem.property(elem.BAUER_PT_MCLD, "Description", "Cloud - produces broken metal")
  306. elem.property(elem.BAUER_PT_MCLD, "Colour", 0x2f4f4f)
  307. elem.property(elem.BAUER_PT_MCLD, "MenuSection", 6)
  308. elem.property(elem.BAUER_PT_MCLD, "MenuVisible", 0)
  309. elem.property(elem.BAUER_PT_MCLD, "Loss", 0.1)
  310. elem.property(elem.BAUER_PT_MCLD, "AirLoss", 0.3)
  311. elem.property(elem.BAUER_PT_MCLD, "Advection", 1)
  312. elem.property(elem.BAUER_PT_MCLD, "Diffusion", 0.3)
  313. elem.property(elem.BAUER_PT_MCLD, "Temperature", 273.15)
  314. elem.property(elem.BAUER_PT_MCLD, "Gravity", 0)
  315.  
  316. local function MCLDUpdate(i,x,y,s,n)
  317. local w=math.random(0,2000)
  318. if w==1000 then
  319. tpt.parts[i].type=tpt.el.brmt.id
  320. end
  321. end
  322.  
  323. tpt.element_func(MCLDUpdate,mcld)
  324.  
  325. local cncd = elem.allocate("BAUER", "CNCD")
  326. elem.element(elem.BAUER_PT_CNCD, elem.element(elem.DEFAULT_PT_WTRV))
  327. elem.property(elem.BAUER_PT_CNCD, "Name", "CNCD")
  328. elem.property(elem.BAUER_PT_CNCD, "Description", "Cloud - produces element of its ctype")
  329. elem.property(elem.BAUER_PT_CNCD, "Colour", 0xD2691E)
  330. elem.property(elem.BAUER_PT_CNCD, "MenuSection", 6)
  331. elem.property(elem.BAUER_PT_CNCD, "MenuVisible", 0)
  332. elem.property(elem.BAUER_PT_CNCD, "Loss", 0.1)
  333. elem.property(elem.BAUER_PT_CNCD, "AirLoss", 0.3)
  334. elem.property(elem.BAUER_PT_CNCD, "Advection", 0)
  335. elem.property(elem.BAUER_PT_CNCD, "Diffusion", 0.3)
  336. elem.property(elem.BAUER_PT_CNCD, "Temperature", 273.15)
  337. elem.property(elem.BAUER_PT_CNCD, "Gravity", 0)
  338.  
  339. local function CNCDUpdate(i,x,y,s,n)
  340. local ctype = tpt.get_property("ctype",i)
  341. local w=math.random(0,2000)
  342. if w==1000 then
  343. tpt.parts[i].type=ctype
  344. end
  345. end
  346.  
  347. tpt.element_func(CNCDUpdate,cncd)
  348.  
  349. local backtab = elem.allocate("BAUER", "BACK") -- The BACK button, defined before all for a good effect :P
  350.  
  351. -- Buttons code
  352. local cloudtab = elem.allocate("BAUER", "CLDS")
  353.  
  354. elem.element(cloudtab, elem.element(elem.DEFAULT_PT_DUST))
  355. elem.property(cloudtab, "Name", "CLDS")
  356. elem.property(cloudtab, "Description", "Click to open the 'Clouds' tab.")
  357. elem.property(cloudtab, "Colour", 0xFFFFFF)
  358. elem.property(cloudtab, "MenuSection", elem.SC_GAS)
  359. elem.property(cloudtab, "Properties", elem.PROP_LIFE_DEC+elem.PROP_LIFE_KILL)
  360.  
  361. elem.element(backtab, elem.element(elem.DEFAULT_PT_DUST))
  362. elem.property(backtab, "Name", "BACK")
  363. elem.property(backtab, "Description", "Click to go back to the normal menu.")
  364. elem.property(backtab, "Colour", 0xFFFFFF)
  365. elem.property(backtab, "MenuSection", elem.SC_GAS)
  366. elem.property(backtab, "MenuVisible", 0)
  367. elem.property(backtab, "Properties", elem.PROP_LIFE_DEC+elem.PROP_LIFE_KILL)
  368.  
  369. local cloud = {}
  370. for i = 1, 255 do
  371.     pcall(function()
  372.         if elem.property(i, "MenuVisible") == 1 and elem.property(i, "MenuSection") == 6 then
  373.             cloud[i] = true
  374.         end
  375.     end)
  376. end
  377.  
  378. local function switch(n)
  379.     if n == 1 then
  380.         elem.property(clod, "MenuVisible", 1)
  381.         elem.property(ccld, "MenuVisible", 1)        
  382.         elem.property(scld, "MenuVisible", 1)
  383.         elem.property(lcld, "MenuVisible", 1)
  384.         elem.property(tcld, "MenuVisible", 1)
  385.         elem.property(gcld, "MenuVisible", 1)
  386.         elem.property(sncd, "MenuVisible", 1)
  387.         elem.property(ncld, "MenuVisible", 1)
  388.         elem.property(acld, "MenuVisible", 1)
  389.         elem.property(ocld, "MenuVisible", 1)
  390.         elem.property(icld, "MenuVisible", 1)
  391.         elem.property(bcld, "MenuVisible", 1)
  392.         elem.property(dcld, "MenuVisible", 1)
  393.         elem.property(mcld, "MenuVisible", 1)
  394.         elem.property(cncd, "MenuVisible", 1)
  395.         elem.property(backtab, "MenuVisible", 1)
  396.         for i in pairs(cloud) do
  397.             elem.property(i, "MenuVisible", 0)
  398.         end
  399.     elseif n == 0 then
  400.         elem.property(clod, "MenuVisible", 0)
  401.         elem.property(ccld, "MenuVisible", 0)        
  402.         elem.property(scld, "MenuVisible", 0)
  403.         elem.property(lcld, "MenuVisible", 0)
  404.         elem.property(tcld, "MenuVisible", 0)
  405.         elem.property(gcld, "MenuVisible", 0)
  406.         elem.property(sncd, "MenuVisible", 0)
  407.         elem.property(ncld, "MenuVisible", 0)
  408.         elem.property(acld, "MenuVisible", 0)
  409.         elem.property(ocld, "MenuVisible", 0)
  410.         elem.property(icld, "MenuVisible", 0)
  411.         elem.property(bcld, "MenuVisible", 0)
  412.         elem.property(dcld, "MenuVisible", 0)
  413.         elem.property(mcld, "MenuVisible", 0)
  414.         elem.property(cncd, "MenuVisible", 0)
  415.         elem.property(backtab, "MenuVisible", 0)
  416.         for i in pairs(cloud) do
  417.             elem.property(i, "MenuVisible", 1)
  418.         end
  419.     end
  420. end
  421.  
  422. local function buttons()
  423.     if tpt.selectedl == elem.property(cloudtab, "Identifier") then
  424.         switch(1)
  425.         tpt.selectedl = "BAUER_PT_CLOD"  
  426.     elseif tpt.selectedl == elem.property(backtab, "Identifier") then
  427.         switch(0)
  428.         tpt.selectedl = "BAUER_PT_CLOD"
  429.     end
  430. end
  431. tpt.register_step(buttons)
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!