API tools faq
paste
Piorjade

ComputerCraft MMORPG Server

Piorjade
Jun 26th, 2016
804
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 170.27 KB | None | 0 0
raw download clone embed print report
  1. files = {
  2. "startup",
  3. "server/pws.list",
  4. "server/users.list",
  5. "server/maps/editor.lua",
  6. "server/maps/editorlayout.nfp",
  7. "server/maps/np",
  8. "server/maps/house1/data.lvl",
  9. "server/maps/house1/data.lvlDat",
  10. "server/maps/house1/editor",
  11. "server/maps/house2/data.lvl",
  12. "server/maps/house2/data.lvlDat",
  13. "server/maps/house2/editor",
  14. "server/maps/house2/lvl",
  15. }
  16. fileData = {
  17. "--test server\
  18. msgs = {\
  19. \009\"ping\",\
  20. \009\"true\",\
  21. \009\"username\",\
  22. \009\"exists\",\
  23. \009\"new\",\
  24. \009\"wrong pw\",\
  25. \009\"deleteacc\",\
  26. \009\"changepw\",\
  27. \009\"getplayerdata\",\
  28. \009\"spawnplayer\",\
  29. \009\"getworlddata\",\
  30. \009\"uploadplayerdata\",\
  31. \009\"getChat\",\
  32. \009\"sendMessage\"\
  33. }\
  34. \
  35. users = {\
  36. \009\
  37. }\
  38. \
  39. playerData = {\
  40. \009users = {\
  41. \
  42. \009},\
  43. \009inventory = {\
  44. \
  45. \009},\
  46. \009worlds = {\
  47. \
  48. \009},\
  49. \009posX = {\
  50. \
  51. \009},\
  52. \009posY = {\
  53. \
  54. \009}\
  55. }\
  56. z = 0\
  57. \
  58. rednet.open(\"top\")\
  59. \
  60. while true do\
  61. \009id, msg, msg2 = rednet.receive()\
  62. \009if msg == msgs[1] then\
  63. \009\009print(\"Received ping from \"..tostring(id)..\", sending success.\")\
  64. \009\009rednet.send(id, msgs[2])\
  65. \009\009print(\"Success sent.\")\
  66. \009elseif msg == msgs[3] then\
  67. \009\009print(\"Received Username: \"..msg2..\" from \"..tostring(id)..\", searching user...\")\
  68. \009\009local file = fs.open(\"/server/users.list\", \"r\")\
  69. \009\009local found = false\
  70. \009\009users = file.readAll()\
  71. \009\009users = textutils.unserialize(users)\
  72. \009\009file.close()\
  73. \009\009for _, user in ipairs(users) do\
  74. \009\009\009if msg2 == user then\
  75. \009\009\009\009print(\"User found, sending success.\")\
  76. \009\009\009\009rednet.send(id, msgs[4])\
  77. \009\009\009\009found = true\
  78. \009\009\009\009break\
  79. \009\009\009else\
  80. \009\009\009\009found = false\
  81. \009\009\009end\
  82. \009\009end\
  83. \009\009if found == false then\
  84. \009\009\009print(\"User not found, sending register.\")\
  85. \009\009\009rednet.send(id, msgs[5])\
  86. \009\009end\
  87. \009elseif msg == msgs[5] then\
  88. \009\009usrData = textutils.unserialize(msg2)\
  89. \009\009pData = {\
  90. \009\009\009inventory = {\
  91. \
  92. \009\009\009},\
  93. \009\009\009world = \"house1\",\
  94. \009\009\009x = 2,\
  95. \009\009\009y = 2\
  96. \009\009}\
  97. \009\009print(\"Register (\"..tostring(id)..\"): \"..usrData.name..\".\")\
  98. \009\009print(\"Writing to files...\")\
  99. \009\009local file = fs.open(\"/server/users.list\",\"r\")\
  100. \009\009users = file.readAll()\
  101. \009\009users = textutils.unserialize(users)\
  102. \009\009file.close()\
  103. \009\009local file = fs.open(\"/server/users.list\",\"w\")\
  104. \009\009table.insert(users, usrData.name)\
  105. \009\009file.write(textutils.serialize(users))\
  106. \009\009file.close()\
  107. \009\009local file = fs.open(\"/server/pws.list\",\"r\")\
  108. \009\009pws = file.readAll()\
  109. \009\009pws = textutils.unserialize(pws)\
  110. \009\009file.close()\
  111. \009\009local file = fs.open(\"/server/pws.list\",\"w\")\
  112. \009\009table.insert(pws, usrData.encpw)\
  113. \009\009file.write(textutils.serialize(pws))\
  114. \009\009file.close()\
  115. \009\009fs.makeDir(\"/server/saves/\"..usrData.name..\"\")\
  116. \009\009local file = fs.open(\"/server/saves/\"..usrData.name..\"/data\",\"w\")\
  117. \009\009file.write(textutils.serialize(pData))\
  118. \009\009file.close()\
  119. \009\009print(\"Complete, sending success.\")\
  120. \009\009rednet.send(id, msgs[2])\
  121. \009elseif msg == msgs[4] then\
  122. \009\009usrData = textutils.unserialize(msg2)\
  123. \009\009print(\"Login (\"..tostring(id)..\"): \"..usrData.name..\".\")\
  124. \009\009print(\"Checking password....\")\
  125. \009\009local file = fs.open(\"/server/users.list\",\"r\")\
  126. \009\009users = file.readAll()\
  127. \009\009users = textutils.unserialize(users)\
  128. \009\009file.close()\
  129. \009\009local file = fs.open(\"/server/pws.list\",\"r\")\
  130. \009\009pws = file.readAll()\
  131. \009\009pws = textutils.unserialize(pws)\
  132. \009\009file.close()\
  133. \009\009local usrnmbr = 0\
  134. \009\009for _, usr in ipairs(users) do\
  135. \009\009\009if usr == usrData.name then\
  136. \009\009\009\009usrnmbr = _\
  137. \009\009\009\009break\
  138. \009\009\009end\
  139. \009\009end\
  140. \009\009if usrData.encpw == pws[usrnmbr] then\
  141. \009\009\009print(\"Password correct, sending success.\")\
  142. \009\009\009rednet.send(id, msgs[2])\
  143. \009\009else\
  144. \009\009\009print(\"Password incorrect, sending failure.\")\
  145. \009\009\009rednet.send(id, msgs[6])\
  146. \009\009end\
  147. \009elseif msg == msgs[7] then\
  148. \009\009usrData = textutils.unserialize(msg2)\
  149. \009\009print(tostring(id)..\" requested deletion of \"..usrData.name)\
  150. \009\009print(\"Checking password...\")\
  151. \009\009local file = fs.open(\"/server/users.list\",\"r\")\
  152. \009\009users = file.readAll()\
  153. \009\009users = textutils.unserialize(users)\
  154. \009\009file.close()\
  155. \009\009local file = fs.open(\"/server/pws.list\",\"r\")\
  156. \009\009pws = file.readAll()\
  157. \009\009pws = textutils.unserialize(pws)\
  158. \009\009file.close()\
  159. \009\009local usrnmbr = 0\
  160. \009\009for _, usr in ipairs(users) do\
  161. \009\009\009if usr == usrData.name then\
  162. \009\009\009\009usrnmbr = _\
  163. \009\009\009\009break\
  164. \009\009\009end\
  165. \009\009end\
  166. \009\009if usrData.encpw == pws[usrnmbr] then\
  167. \009\009\009shell.run(\"rm /server/saves/\"..usrData.name)\
  168. \009\009\009table.remove(users, usrnmbr)\
  169. \009\009\009table.remove(pws, usrnmbr)\
  170. \009\009\009local file = fs.open(\"/server/users.list\",\"w\")\
  171. \009\009\009file.write(textutils.serialize(users))\
  172. \009\009\009file.close()\
  173. \009\009\009local file = fs.open(\"/server/pws.list\",\"w\")\
  174. \009\009\009file.write(textutils.serialize(pws))\
  175. \009\009\009file.close()\
  176. \009\009\009print(\"Password correct and removed account, sending success.\")\
  177. \009\009\009rednet.send(id, msgs[2])\
  178. \009\009else\
  179. \009\009\009print(\"Password invalid, sending failure.\")\
  180. \009\009\009rednet.send(id, msgs[6])\
  181. \009\009end\
  182. \009elseif msg == msgs[8] then\
  183. \
  184. \009\009c = textutils.unserialize(msg2)\
  185. \009\009print(tostring(id)..\" requested changing password of \"..c.oldData.name..\".\")\
  186. \009\009print(\"Checking password...\")\
  187. \009\009local file = fs.open(\"/server/users.list\",\"r\")\
  188. \009\009users = file.readAll()\
  189. \009\009users = textutils.unserialize(users)\
  190. \009\009file.close()\
  191. \009\009local file = fs.open(\"/server/pws.list\",\"r\")\
  192. \009\009pws = file.readAll()\
  193. \009\009pws = textutils.unserialize(pws)\
  194. \009\009file.close()\
  195. \009\009local usrnmbr = 0\
  196. \009\009for _, usr in ipairs(users) do\
  197. \009\009\009if usr == c.newData.name and usr == c.oldData.name then\
  198. \009\009\009\009usrnmbr = _\
  199. \009\009\009\009break\
  200. \009\009\009end\
  201. \009\009end\
  202. \009\009if c.oldData.encpw == pws[usrnmbr] then\
  203. \
  204. \009\009\009pws[usrnmbr] = c.newData.encpw\
  205. \009\009\009local file = fs.open(\"/server/pws.list\",\"w\")\
  206. \009\009\009file.write(textutils.serialize(pws))\
  207. \009\009\009file.close()\
  208. \009\009\009print(\"Password correct and changed. Sending success.\")\
  209. \009\009\009rednet.send(id, msgs[2])\
  210. \009\009else\
  211. \009\009\009rednet.send(id, msgs[6])\
  212. \009\009end\
  213. \009elseif msg == msgs[10] then\
  214. \009\009print(tostring(id)..\" requested \"..msg2..\" spawn...\")\
  215. \009\009local file = fs.open(\"/server/saves/\"..msg2..\"/data\",\"r\")\
  216. \009\009local pData = file.readAll()\
  217. \009\009pData = textutils.unserialize(pData)\
  218. \009\009file.close()\
  219. \009\009if playerData.users[msg2] ~= nil then\
  220. \009\009\009--[[table.remove(playerData.users, _)\
  221. \009\009\009table.remove(playerData.inventory, _)\
  222. \009\009\009table.remove(playerData.worlds, _)\
  223. \009\009\009table.remove[playerData.posX, _)\
  224. \009\009\009table.remove(playerData.posY, _)]]\
  225. \009\009\009playerData.users[msg2] = nil\
  226. \009\009\009playerData.inventory[msg2] = nil\
  227. \009\009\009playerData.worlds[msg2] = nil\
  228. \009\009\009playerData.posX[msg2] = nil\
  229. \009\009\009playerData.posY[msg2] = nil\
  230. \009\009end\
  231. \009\009--[[table.insert(playerData.users, msg2)\
  232. \009\009table.insert(playerData.inventory, pData.inventory)\
  233. \009\009table.insert(playerData.worlds, pData.world)\
  234. \009\009table.insert(playerData.posX, tostring(pData.x))\
  235. \009\009table.insert(playerData.posY, tostring(pData.y))]]\
  236. \009\009playerData.users[msg2] = msg2\
  237. \009\009playerData.inventory[msg2] = pData.inventory\
  238. \009\009playerData.worlds[msg2] = pData.world\
  239. \009\009playerData.posX[msg2] = pData.x\
  240. \009\009playerData.posY[msg2] = pData.y\
  241. \009\009print(\"Player inserted into world, sending success and players.\")\
  242. \009\009rednet.send(id, msgs[2], textutils.serialize(playerData))\
  243. \009elseif msg == msgs[11] then\
  244. \009\009mapData = {\
  245. \009\009\009layout = nil,\
  246. \009\009\009data = {\
  247. \
  248. \009\009\009}\
  249. \009\009}\
  250. \009\009print(tostring(id)..\" requested map \"..msg2..\".\")\
  251. \009\009local file = fs.open(\"/server/maps/\"..msg2..\"/lvl\",\"r\")\
  252. \009\009mapData.layout = file.readAll()\
  253. \009\009file.close()\
  254. \009\009local file = fs.open(\"/server/maps/\"..msg2..\"/data.lvlDat\",\"r\")\
  255. \009\009local inhalt = file.readAll()\
  256. \009\009mapData.data = textutils.unserialize(inhalt)\
  257. \009\009file.close()\
  258. \009\009print(\"Sending map\")\
  259. \009\009rednet.send(id, msgs[2], textutils.serialize(mapData))\
  260. \009elseif msg == msgs[9] then\
  261. \009\009--[[z = z+1\
  262. \009\009print(\"Requested data \"..tostring(z))\
  263. \009\009for _, usr in ipairs(playerData.users) do\
  264. \009\009\009print(usr)\
  265. \009\009\009print(tostring(playerData.posX[_]))\
  266. \009\009\009print(tostring(playerData.posY[_]))\
  267. \009\009end]]\
  268. \009\009rednet.send(id, msgs[2], textutils.serialize(playerData))\
  269. \009elseif msg == msgs[12] then\
  270. \009\009local changed = textutils.unserialize(msg2)\
  271. \009\009print(\"Move \"..changed.changer.name)\
  272. \009\009\009--print(tostring(playerData.posX[changed.changer.name]))\
  273. \009\009\009--print(tostring(playerData.posY[changed.changer.name]))\
  274. \009\009\009\009playerData.posX[changed.changer.name] = changed.playerData.posX[changed.changer.name]\
  275. \009\009\009\009playerData.posY[changed.changer.name] = changed.playerData.posY[changed.changer.name]\
  276. \009\009\009\009playerData.inventory[changed.changer.name] = changed.playerData.inventory[changed.changer.name]\
  277. \009\009\009\009playerData.worlds[changed.changer.name] = changed.playerData.worlds[changed.changer.name]\
  278. \009\009\009\009--print(usr)\
  279. \009\009\009\009local a = tostring(playerData.posX[changed.changer.name])\
  280. \009\009\009\009local b = tostring(playerData.posY[changed.changer.name])\
  281. \009\009\009\009local c = tostring(playerData.worlds[changed.changer.name])\
  282. \009\009print(tostring(id)..\" moved ->\"..a..\" \"..b..\" \"..c)\
  283. \009\009u = changed.changer.name\
  284. \009\009local file = fs.open(\"/server/saves/\"..u..\"/data\",\"r\")\
  285. \009\009local inhalt = file.readAll()\
  286. \009\009inhalt = textutils.unserialize(inhalt)\
  287. \009\009file.close()\
  288. \009\009\
  289. \009\009inhalt.world = playerData.worlds[changed.changer.name]\
  290. \009\009inhalt.inventory = playerData.inventory[changed.changer.name]\
  291. \009\009inhalt.x = playerData.posX[changed.changer.name]\
  292. \009\009inhalt.y = playerData.posY[changed.changer.name]\
  293. \009\009local file = fs.open(\"/server/saves/\"..u..\"/data\",\"w\")\
  294. \009\009file.write(textutils.serialize(inhalt))\
  295. \009\009file.close()\
  296. \009elseif msg == msgs[13] then\
  297. \009\009local file = fs.open(\"/server/chat\", \"r\")\
  298. \009\009local inhalt = file.readAll()\
  299. \009\009file.close()\
  300. \009\009rednet.send(id, msgs[13], inhalt)\
  301. \009elseif msg == msgs[14] then\
  302. \009\009print(\"Getting message\")\
  303. \009\009rednet.broadcast(msg2, msgs[13])\
  304. \009end\
  305. end",
  306. "{\
  307. }",
  308. "{\
  309. }",
  310. "--[[\
  311. Map maker for my MMORPG\
  312. Intended to be used by gameserver-owners!\
  313. ]]\
  314. \
  315. --Variablen\
  316. \
  317. objects = {\
  318. \009[\"door\"] = true,\
  319. \009[\"ladder\"] = true,\
  320. \009[\"wall\"] = true,\
  321. \009[\"remove\"] = true\
  322. }\
  323. \
  324. mapData = {\
  325. \009blocksX = {\
  326. \
  327. \009},\
  328. \009blocksY = {\
  329. \
  330. \009},\
  331. \009laddersX = {\
  332. \
  333. \009},\
  334. \009laddersY = {\
  335. \
  336. \009},\
  337. \009ladderDestination = {\
  338. \
  339. \009},\
  340. \009doorsX = {\
  341. \
  342. \009},\
  343. \009doorsY = {\
  344. \
  345. \009},\
  346. \009spawnX = 1,\
  347. \009spawnY = 1,\
  348. }\
  349. \
  350. selectedObj = \"\"\
  351. \
  352. --Funktionen\
  353. \
  354. function limitRead(nLimit, replaceChar)\
  355. term.setCursorBlink(true)\
  356. local cX, cY = term.getCursorPos()\
  357. local rString = \"\"\
  358. if replaceChar == \"\" then replaceChar = nil end\
  359. repeat\
  360. local event, p1 = os.pullEventRaw()\
  361. if event == \"char\" then\
  362. -- Character event\
  363. if #rString + 1 <= nLimit then\
  364. rString = rString .. p1\
  365. write(replaceChar or p1)\
  366. end\
  367. elseif event == \"key\" and p1 == keys.backspace and #rString >= 1 then\
  368. -- Backspace\
  369. rString = string.sub(rString, 1, #rString-1)\
  370. xPos, yPos = term.getCursorPos()\
  371. term.setCursorPos(xPos-1, yPos)\
  372. write(\" \")\
  373. term.setCursorPos(xPos-1, yPos)\
  374. end\
  375. until event == \"key\" and p1 == keys.enter\
  376. term.setCursorBlink(false)\
  377. --print() -- Skip to the next line after clicking enter.\
  378. return rString\
  379. end\
  380. \
  381. function clear(bg, fg)\
  382. \009term.setCursorPos(1,1)\
  383. \009term.setBackgroundColor(bg)\
  384. \009term.setTextColor(colors.white)\
  385. \009term.clear()\
  386. end\
  387. \
  388. function editor()\
  389. \009clear(colors.black, colors.white)\
  390. \009editing = true\
  391. \009oldTerm = term.native()\
  392. \009paintutils.drawImage(_layout, 1, 1)\
  393. \009mapWindow = window.create(oldTerm, 1, 1, 25, 9)\
  394. \009term.redirect(mapWindow)\
  395. \009paintutils.drawImage(_map, 1, 1)\
  396. \009maxX = 25\
  397. \009maxY = 9\
  398. \009term.redirect(oldTerm)\
  399. \009searchBox = window.create(oldTerm, 2, 12, 23, 1)\
  400. \009searchBox.setBackgroundColor(colors.gray)\
  401. \009searchBox.setTextColor(colors.lime)\
  402. \009searchBox.clear()\
  403. \009searchBox.write(\"Enter function...\")\
  404. \009while true do\
  405. \009\009local event, button, x, y = os.pullEventRaw()\
  406. \
  407. \009\009if event == \"mouse_click\" and button == 1 and x >= 2 and x <= 24 and y == 12 then\
  408. \009\009\009term.redirect(searchBox)\
  409. \009\009\009term.setCursorPos(1,1)\
  410. \009\009\009term.clear()\
  411. \009\009\009local eingabe = limitRead(23)\
  412. \009\009\009if #eingabe > 0 then\
  413. \009\009\009\009for key, a in pairs(objects) do\
  414. \009\009\009\009\009if eingabe == key then\
  415. \009\009\009\009\009\009selectedObj = eingabe\
  416. \009\009\009\009\009\009term.setCursorPos(1,1)\
  417. \009\009\009\009\009\009term.clear()\
  418. \009\009\009\009\009\009term.write(selectedObj)\
  419. \009\009\009\009\009\009break\
  420. \009\009\009\009\009else\
  421. \009\009\009\009\009\009term.setCursorPos(1,1)\
  422. \009\009\009\009\009\009term.clear()\
  423. \009\009\009\009\009\009term.write(\"Object not found.\")\
  424. \009\009\009\009\009end\
  425. \009\009\009\009end\
  426. \009\009\009end\
  427. \009\009\009term.redirect(oldTerm)\
  428. \009\009elseif event == \"mouse_click\" and button == 1 and x >= 1 and x <= 25 and y >= 1 and y <= 9 then\
  429. \009\009\009if selectedObj ~= \"\" then\
  430. \009\009\009\009if selectedObj == \"wall\" then\
  431. \009\009\009\009\009term.setCursorPos(x, y)\
  432. \009\009\009\009\009term.setBackgroundColor(colors.brown)\
  433. \009\009\009\009\009term.setTextColor(colors.white)\
  434. \009\009\009\009\009term.write(\"W\")\
  435. \009\009\009\009\009table.insert(mapData.blocksX, x)\
  436. \009\009\009\009\009table.insert(mapData.blocksY, y)\
  437. \009\009\009\009\009redrawBlocks()\
  438. \009\009\009\009elseif selectedObj == \"remove\" then\
  439. \009\009\009\009\009for _, a in ipairs(mapData.blocksX) do\
  440. \009\009\009\009\009\009if a == x and y == mapData.blocksY[_] then\
  441. \009\009\009\009\009\009\009table.remove(mapData.blocksX, _)\
  442. \009\009\009\009\009\009\009table.remove(mapData.blocksY, _)\
  443. \009\009\009\009\009\009\009paintutils.drawImage(_map, 1, 1)\
  444. \009\009\009\009\009\009\009redrawBlocks()\
  445. \009\009\009\009\009\009end\
  446. \009\009\009\009\009end\
  447. \009\009\009\009\009for _, a in ipairs(mapData.laddersX) do\
  448. \009\009\009\009\009\009if a == x and y == mapData.laddersY[_] then\
  449. \009\009\009\009\009\009\009table.remove(mapData.laddersX, _)\
  450. \009\009\009\009\009\009\009table.remove(mapData.laddersY, _)\
  451. \009\009\009\009\009\009\009paintutils.drawImage(_map, 1, 1)\
  452. \009\009\009\009\009\009\009redrawBlocks()\
  453. \009\009\009\009\009\009end\
  454. \009\009\009\009\009end\
  455. \009\009\009\009elseif selectedObj == \"ladder\" then\
  456. \009\009\009\009\009term.setCursorPos(x, y)\
  457. \009\009\009\009\009term.setBackgroundColor(colors.brown)\
  458. \009\009\009\009\009term.setTextColor(colors.white)\
  459. \009\009\009\009\009term.write(\"H\")\
  460. \009\009\009\009\009term.redirect(searchBox)\
  461. \009\009\009\009\009term.setCursorPos(1,1)\
  462. \009\009\009\009\009term.clear()\
  463. \009\009\009\009\009term.write(\"Please write destination\")\
  464. \009\009\009\009\009sleep(2)\
  465. \009\009\009\009\009term.setCursorPos(1,1)\
  466. \009\009\009\009\009term.clear()\
  467. \009\009\009\009\009repeat\
  468. \009\009\009\009\009\009local eingabe = limitRead(23)\
  469. \009\009\009\009\009\009term.setCursorPos(1,1)\
  470. \009\009\009\009\009\009term.clear()\
  471. \009\009\009\009\009until #eingabe > 0\
  472. \009\009\009\009\009term.redirect(oldTerm)\
  473. \009\009\009\009\009table.insert(mapData.laddersX, x)\
  474. \009\009\009\009\009table.insert(mapData.laddersY, y)\
  475. \009\009\009\009\009table.insert(mapData.ladderDestination, eingabe)\
  476. \009\009\009\009\009redrawBlocks()\
  477. \009\009\009\009end\
  478. \009\009\009end\
  479. \009\009elseif event == \"key\" and button == keys.delete then\
  480. \009\009\009local file = fs.open(fldr..\"data.lvlDat\",\"w\")\
  481. \009\009\009file.write(textutils.serialize(mapData))\
  482. \009\009\009file.close()\
  483. \
  484. \009\009\009break\
  485. \009\009end\
  486. \009end\
  487. end\
  488. \
  489. function redrawBlocks()\
  490. \009for _, x in ipairs(mapData.blocksX) do\
  491. \009\009term.setCursorPos(x, mapData.blocksY[_])\
  492. \009\009term.setBackgroundColor(colors.brown)\
  493. \009\009term.setTextColor(colors.white)\
  494. \009\009term.write(\"W\")\
  495. \009end\
  496. \009for _, x in ipairs(mapData.laddersX) do\
  497. \009\009term.setCursorPos(x, mapData.laddersY[_])\
  498. \009\009term.setBackgroundColor(colors.black)\
  499. \009\009term.setTextColor(colors.white)\
  500. \009\009term.write(\"L\")\
  501. \009end\
  502. end\
  503. \
  504. \
  505. --Code\
  506. \
  507. local args = {...}\
  508. \
  509. if #args ~= 2 then\
  510. \009print(\"Usage: <thisfile> <pathToMapPicture> <editorLayoutDirectory>\")\
  511. else\
  512. \009if fs.exists(args[1]) then\
  513. \009\009fldr = args[1]\
  514. \009\009_map = paintutils.loadImage(args[1]..\"data.lvl\")\
  515. \009\009_layout = paintutils.loadImage(args[2])\
  516. \009\009editor()\
  517. \009end\
  518. \009--do stuff\
  519. end",
  520. "bbbbb 7 \
  521. bbbbbbbbbbbbbbbbbbbbbbbbb7 \
  522. 7 \
  523. 7 \
  524. 7 \
  525. 7 \
  526. 7 \
  527. 7 \
  528. 7 \
  529. 777777777777777777777777777777777777777777777777777\
  530. 7 \
  531. 7 \
  532. 7 \
  533. 7 \
  534. 7 \
  535. 7 \
  536. 7 \
  537. 7 \
  538. 7 ",
  539. "--[[\
  540. NPaintPro\
  541. By NitrogenFingers\
  542. ]]--\
  543. \
  544. --The screen size\
  545. local w,h = term.getSize()\
  546. --Whether or not the program is currently waiting on user input\
  547. local inMenu = false\
  548. --Whether or not a drop down menu is active\
  549. local inDropDown = false\
  550. --Whether or not animation tools are enabled (use -a to turn them on)\
  551. local animated = false\
  552. --Whether or not the text tools are enabled (use -t to turn them on)\
  553. local textual = false\
  554. --Whether or not \"blueprint\" display mode is on\
  555. local blueprint = false\
  556. --Whether or not the \"layer\" display is on\
  557. local layerDisplay = false\
  558. --Whether or not the interface is presently hidden\
  559. local interfaceHidden = false\
  560. --Whether or not the \"direction\" display is on\
  561. local printDirection = false\
  562. --The tool/mode npaintpro is currently in. Default is \"paint\"\
  563. --For a list of modes, check out the help file\
  564. local state = \"paint\"\
  565. --Whether or not the program is presently running\
  566. local isRunning = true\
  567. --The rednet address of the 3D printer, if one has been attached\
  568. local printer = nil\
  569. \
  570. --The list of every frame, containing every image in the picture/animation\
  571. --Note: nfp files always have the picture at frame 1\
  572. local frames = { }\
  573. --How many frames are currently in the given animation.\
  574. local frameCount = 1\
  575. --The Colour Picker column\
  576. local column = {}\
  577. --The offset of visible colours in the picker column, if the screen cannot fit all 16\
  578. local columnoffset = 0\
  579. --The currently selected left and right colours\
  580. local lSel,rSel = colours.white,nil\
  581. --The amount of scrolling on the X and Y axis\
  582. local sx,sy = 0,0\
  583. --The alpha channel colour\
  584. --Change this to change default canvas colour\
  585. local alphaC = colours.black\
  586. --The currently selected frame. Default is 1\
  587. local sFrame = 1\
  588. --The contents of the image buffer- contains contents, width and height\
  589. local buffer = nil\
  590. --The position, width and height of the selection rectangle\
  591. local selectrect = nil\
  592. \
  593. --Whether or not text tools are enabled for this document\
  594. local textEnabled = false\
  595. --The X and Y positions of the text cursor\
  596. local textCurX, textCurY = 1,1\
  597. \
  598. --The currently calculated required materials\
  599. local requiredMaterials = {}\
  600. --Whether or not required materials are being displayed in the pallette\
  601. local requirementsDisplayed = false\
  602. --A list of the rednet ID's all in-range printers located\
  603. local printerList = { }\
  604. --A list of the names of all in-range printers located. Same as the printerList in reference\
  605. local printerNames = { }\
  606. --The selected printer\
  607. local selectedPrinter = 1\
  608. --The X,Y,Z and facing of the printer\
  609. local px,py,pz,pfx,pfz = 0,0,0,0,0\
  610. --The form of layering used\
  611. local layering = \"up\"\
  612. \
  613. --The animation state of the selection rectangle and image buffer\
  614. local rectblink = 0\
  615. --The ID for the timer\
  616. local recttimer = nil\
  617. --The radius of the brush tool\
  618. local brushsize = 3\
  619. --Whether or not \"record\" mode is activated (animation mode only)\
  620. local record = false\
  621. --The time between each frame when in play mode (animation mode only)\
  622. local animtime = 0.3\
  623. \
  624. --The current \"cursor position\" in text mode\
  625. local cursorTexX,cursorTexY = 1,1\
  626. \
  627. --A list of hexidecimal conversions from numbers to hex digits\
  628. local hexnums = { [10] = \"a\", [11] = \"b\", [12] = \"c\", [13] = \"d\", [14] = \"e\" , [15] = \"f\" }\
  629. --The NPaintPro logo (divine, isn't it?)\
  630. local logo = {\
  631. \"fcc 3 339\";\
  632. \" fcc 9333 33\";\
  633. \" fcc 933 333 33\";\
  634. \" fcc 933 33 33\";\
  635. \" fcc 933 33 33\";\
  636. \" c88 333 93333\";\
  637. \" 888 333 9333\";\
  638. \" 333 3 333 939\";\
  639. }\
  640. --The Layer Up and Layer Forward printing icons\
  641. local layerUpIcon = {\
  642. \"0000000\";\
  643. \"0088880\";\
  644. \"0888870\";\
  645. \"07777f0\";\
  646. \"0ffff00\";\
  647. \"0000000\";\
  648. }\
  649. local layerForwardIcon = {\
  650. \"0000000\";\
  651. \"000fff0\";\
  652. \"00777f0\";\
  653. \"0888700\";\
  654. \"0888000\";\
  655. \"0000000\";\
  656. }\
  657. --The available menu options in the ctrl menu\
  658. local mChoices = {\"Save\",\"Exit\"}\
  659. --The available modes from the dropdown menu- tables indicate submenus (include a name!)\
  660. local ddModes = { { \"paint\", \"brush\", \"pippette\", \"flood\", \"move\", \"clear\", \"select\", name = \"painting\" }, { \"alpha to left\", \"alpha to right\", \"hide interface\", name = \"display\" }, \"help\", { \"print\", \"save\", \"exit\", name = \"file\" }, name = \"menu\" }\
  661. --The available modes from the selection right-click menu\
  662. local srModes = { \"cut\", \"copy\", \"paste\", \"clear\", \"hide\", name = \"selection\" }\
  663. --The list of available help topics for each mode 127\
  664. local helpTopics = {\
  665. [1] = {\
  666. name = \"Paint Mode\",\
  667. key = nil,\
  668. animonly = false,\
  669. textonly = false,\
  670. message = \"The default mode for NPaintPro, for painting pixels.\"\
  671. ..\" Controls here that are not overridden will apply for all other modes. Leaving a mode by selecting that mode \"\
  672. ..\" again will always send the user back to paint mode.\",\
  673. controls = {\
  674. { \"Arrow keys\", \"Scroll the canvas\" },\
  675. { \"Left Click\", \"Paint/select left colour\" },\
  676. { \"Right Click\", \"Paint/select right colour\" },\
  677. { \"Z Key\", \"Clear image on screen\" },\
  678. { \"Tab Key\", \"Hide selection rectangle if visible\" },\
  679. { \"Q Key\", \"Set alpha mask to left colour\" },\
  680. { \"W Key\", \"Set alpha mask to right colour\" },\
  681. { \"Number Keys\", \"Swich between frames 1-9\" },\
  682. { \"</> keys\", \"Move to the next/last frame\" },\
  683. { \"R Key\", \"Removes every frame after the current frame\"}\
  684. }\
  685. },\
  686. [2] = {\
  687. name = \"Brush Mode\",\
  688. key = \"b\",\
  689. animonly = false,\
  690. textonly = false,\
  691. message = \"Brush mode allows painting a circular area of variable diameter rather than a single pixel, working in \"..\
  692. \"the exact same way as paint mode in all other regards.\",\
  693. controls = {\
  694. { \"Left Click\", \"Paints a brush blob with the left colour\" },\
  695. { \"Right Click\", \"Paints a brush blob with the right colour\" },\
  696. { \"Number Keys\", \"Changes the radius of the brush blob from 2-9\" }\
  697. }\
  698. },\
  699. [3] = {\
  700. name = \"Pippette Mode\",\
  701. key = \"p\",\
  702. animonly = false,\
  703. textonly = false,\
  704. message = \"Pippette mode allows the user to click the canvas and set the colour clicked to the left or right \"..\
  705. \"selected colour, for later painting.\",\
  706. controls = {\
  707. { \"Left Click\", \"Sets clicked colour to the left selected colour\" },\
  708. { \"Right Click\", \"Sets clicked colour to the right selected colour\" }\
  709. }\
  710. },\
  711. [4] = {\
  712. name = \"Move Mode\",\
  713. key = \"m\",\
  714. animonly = false,\
  715. textonly = false,\
  716. message = \"Mode mode allows the moving of the entire image on the screen. This is especially useful for justifying\"..\
  717. \" the image to the top-left for animations or game assets.\",\
  718. controls = {\
  719. { \"Left/Right Click\", \"Moves top-left corner of image to selected square\" },\
  720. { \"Arrow keys\", \"Moves image one pixel in any direction\" }\
  721. }\
  722. },\
  723. [5] = {\
  724. name = \"Flood Mode\",\
  725. key = \"f\",\
  726. animonly = false,\
  727. textonly = false,\
  728. message = \"Flood mode allows the changing of an area of a given colour to that of the selected colour. \"..\
  729. \"The tool uses a flood4 algorithm and will not fill diagonally. Transparency cannot be flood filled.\",\
  730. controls = {\
  731. { \"Left Click\", \"Flood fills selected area to left colour\" },\
  732. { \"Right Click\", \"Flood fills selected area to right colour\" }\
  733. }\
  734. },\
  735. [6] = {\
  736. name = \"Select Mode\",\
  737. key = \"s\",\
  738. animonly = false,\
  739. textonly = false,\
  740. message = \"Select mode allows the creation and use of the selection rectangle, to highlight specific areas on \"..\
  741. \"the screen and perform operations on the selected area of the image. The selection rectangle can contain an \"..\
  742. \"image on the clipboard- if it does, the image will flash inside the rectangle, and the rectangle edges will \"..\
  743. \"be light grey instead of dark grey.\",\
  744. controls = {\
  745. { \"C Key\", \"Copy: Moves selection into the clipboard\" },\
  746. { \"X Key\", \"Cut: Clears canvas under the rectangle, and moves it into the clipboard\" },\
  747. { \"V Key\", \"Paste: Copys clipboard to the canvas\" },\
  748. { \"Z Key\", \"Clears clipboard\" },\
  749. { \"Left Click\", \"Moves top-left corner of rectangle to selected pixel\" },\
  750. { \"Right Click\", \"Opens selection menu\" },\
  751. { \"Arrow Keys\", \"Moves rectangle one pixel in any direction\" }\
  752. }\
  753. },\
  754. [7] = {\
  755. name = \"Corner Select Mode\",\
  756. key = nil,\
  757. animonly = false,\
  758. textonly = false,\
  759. message = \"If a selection rectangle isn't visible, this mode is selected automatically. It allows the \"..\
  760. \"defining of the corners of the rectangle- one the top-left and bottom-right corners have been defined, \"..\
  761. \"NPaintPro switches to selection mode. Note rectangle must be at least 2 pixels wide and high.\",\
  762. controls = {\
  763. { \"Left/Right Click\", \"Defines a corner of the selection rectangle\" }\
  764. }\
  765. },\
  766. [8] = {\
  767. name = \"Play Mode\",\
  768. key = \"space\",\
  769. animonly = true,\
  770. textonly = false,\
  771. message = \"Play mode will loop through each frame in your animation at a constant rate. Editing tools are \"..\
  772. \"locked in this mode, and the coordinate display will turn green to indicate it is on.\",\
  773. controls = {\
  774. { \"</> Keys\", \"Increases/Decreases speed of the animation\" },\
  775. { \"Space Bar\", \"Returns to paint mode\" }\
  776. }\
  777. },\
  778. [9] = {\
  779. name = \"Record Mode\",\
  780. key = \"\\\\\",\
  781. animonly = true,\
  782. textonly = false,\
  783. message = \"Record mode is not a true mode, but influences how other modes work. Changes made that modify the \"..\
  784. \"canvas in record mode will affect ALL frames in the animation. The coordinates will turn red to indicate that \"..\
  785. \"record mode is on.\",\
  786. controls = {\
  787. { \"\", \"Affects:\" },\
  788. { \"- Paint Mode\", \"\" },\
  789. { \"- Brush Mode\", \"\" },\
  790. { \"- Cut and Paste in Select Mode\", \"\"},\
  791. { \"- Move Mode\", \"\"}\
  792. }\
  793. },\
  794. \009\009[10] = {\
  795. \009\009\009\009name = \"Hide Interface\",\
  796. \009\009\009\009key = \"~\",\
  797. \009\009\009\009animonly = false,\
  798. \009\009\009\009textonly = false,\
  799. \009\009\009\009message = \"Hides the sidebar and colour picker so only the image is visible.\"..\
  800. \009\009\009\009\" The program can be started with the interface hidden using the -d command line option.\"..\
  801. \009\009\009\009\" When hidden, if a file is animated it will automatically go to play mode.\\n\"..\
  802. \009\009\009\009\"Note that all other input is locked until the display is revealed again in this\"..\
  803. \009\009\009\009\" mode.\",\
  804. \009\009\009\009controls = {\
  805. { \"</> Keys\", \"Increases/Decreases speed of the animation\" },\
  806. \009\009\009\009\009{ \"~ Key\", \"Shows interface\"}\
  807. \009\009\009\009}\
  808. \009\009},\
  809. [11] = {\
  810. name = \"Help Mode\",\
  811. key = \"h\",\
  812. animonly = false,\
  813. textonly = false,\
  814. message = \"Displays this help screen. Clicking on options will display help on that topic. Clicking out of the screen\"..\
  815. \" will leave this mode.\",\
  816. controls = {\
  817. { \"Left/Right Click\", \"Displays a topic/Leaves the mode\" }\
  818. }\
  819. },\
  820. [12] = {\
  821. name = \"File Mode\",\
  822. key = nil,\
  823. animonly = false,\
  824. textonly = false,\
  825. message = \"Clicking on the mode display at the bottom of the screen will open the options menu. Here you can\"..\
  826. \" activate all of the modes in the program with a simple mouse click. Pressing left control will open up the\"..\
  827. \" file menu automatically.\",\
  828. controls = {\
  829. { \"leftCtrl\", \"Opens the file menu\" },\
  830. { \"leftAlt\", \"Opens the paint menu\" }\
  831. }\
  832. },\
  833. [13] = {\
  834. name = \"Text Mode\",\
  835. key = \"t\",\
  836. animonly = false,\
  837. textonly = true,\
  838. message = \"In this mode, the user is able to type letters onto the document for display. The left colour \"..\
  839. \"pallette value determines what colour the text will be, and the right determines what colour the background \"..\
  840. \"will be (set either to nil to keep the same colours as already there).\",\
  841. controls = {\
  842. { \"Backspace\", \"Deletes the character on the previous line\" },\
  843. { \"Arrow Keys\", \"Moves the cursor in any direction\" },\
  844. { \"Left Click\", \"Moves the cursor to beneath the mouse cursor\" }\
  845. }\
  846. },\
  847. [14] = {\
  848. name = \"Textpaint Mode\",\
  849. key = \"y\",\
  850. animonly = false,\
  851. textonly = true,\
  852. message = \"Allows the user to paint any text on screen to the desired colour with the mouse. If affects the text colour\"..\
  853. \" values rather than the background values, but operates identically to paint mode in all other regards.\",\
  854. controls = {\
  855. { \"Left Click\", \"Paints the text with the left colour\" },\
  856. { \"Right Click\", \"Paints the text with the right colour\" }\
  857. }\
  858. },\
  859. [15] = {\
  860. name = \"About NPaintPro\",\
  861. keys = nil,\
  862. animonly = false,\
  863. textonly = false,\
  864. message = \"NPaintPro: The feature-bloated paint program for ComputerCraft by Nitrogen Fingers.\",\
  865. controls = {\
  866. { \"Testers:\", \" \"},\
  867. { \" \", \"Faubiguy\"},\
  868. { \" \", \"TheOriginalBIT\"}\
  869. }\
  870. }\
  871. }\
  872. --The \"bounds\" of the image- the first/last point on both axes where a pixel appears\
  873. local toplim,botlim,leflim,riglim = nil,nil,nil,nil\
  874. --The selected path\
  875. local sPath = nil\
  876. \
  877. \
  878. --Screen Size Parameters- decided dynamically further down the program\
  879. --Whether or not the help screen is available\
  880. local helpAvailable = true\
  881. --Whether or not the main menu is available\
  882. local mainAvailable = true\
  883. --Whether or not selection box dropdowns are available\
  884. local boxdropAvailable = true\
  885. --Whether or not a manual file descriptor option is available (part of the title)\
  886. local filemakerAvailable = true\
  887. \
  888. --[[ \
  889. Section: Helpers \
  890. ]]--\
  891. \
  892. --[[Converts a colour parameter into a single-digit hex coordinate for the colour\
  893. Params: colour:int = The colour to be converted\
  894. Returns:string A string conversion of the colour\
  895. ]]--\
  896. local function getHexOf(colour)\
  897. if not colour or not tonumber(colour) then\
  898. return \" \"\
  899. end\
  900. local value = math.log(colour)/math.log(2)\
  901. if value > 9 then\
  902. value = hexnums[value]\
  903. end\
  904. return value\
  905. end\
  906. \
  907. --[[Converts a hex digit into a colour value\
  908. Params: hex:?string = the hex digit to be converted\
  909. Returns:string A colour value corresponding to the hex, or nil if the character is invalid\
  910. ]]--\
  911. local function getColourOf(hex)\
  912. local value = tonumber(hex, 16)\
  913. if not value then return nil end\
  914. value = math.pow(2,value)\
  915. return value\
  916. end\
  917. \
  918. --[[Finds the largest width and height of the text in a given menu. Should conform to the format\
  919. \009of all standard menus (number indexed values and a 'name' field).\
  920. \009This is done recursively. It's just easier that way.\
  921. \009Params: menu:table = the table being tested for the max width and height\
  922. \009Returns:number,number = the max width and height of the text or names of any menu or submenu.\
  923. ]]--\
  924. local function findMaxWH(menu)\
  925. \009local wmax,hmax = #menu.name, #menu\
  926. \009for _,entry in pairs(menu) do\
  927. \009\009if type(entry) == \"table\" then\
  928. \009\009\009local nw,nh = findMaxWH(entry)\
  929. \009\009\009wmax = math.max(wmax,nw)\
  930. \009\009\009hmax = math.max(hmax,nh)\
  931. \009\009else\
  932. \009\009\009wmax = math.max(wmax,#entry)\
  933. \009\009end\
  934. \009end\
  935. \009return wmax,hmax\
  936. end\
  937. \
  938. --[[Determines what services are available depending on the size of the screen. Certain features\
  939. \009may be disabled with screen real estate does not allow for it.\
  940. \009Params: none\
  941. \009Returns:nil\
  942. ]]--\
  943. local function determineAvailableServices()\
  944. \009--Help files were designed to fit a 'standard' CC screen, of 51 x 19. The height of the screen\
  945. \009--needs to match the number of available options plus white space, but for consistency with\
  946. \009--the files themselves, a natural size of 51 is required for the screen width as well.\
  947. \009if w < 51 or h < #helpTopics+3 then helpAvailable = false end\
  948. \009if not helpAvailable then table.remove(ddModes,3) end\
  949. \009--These hard-coded values mirror the drawLogo values, with extra consideration for the \
  950. \009--additional menu options\
  951. \009if h < 14 or w < 24 then filemakerAvailable = false end\
  952. \009\
  953. \009--Menus can't cover the picker and need 2 spaces for branches. 4 whitespace on X total.\
  954. \009--Menus need a title and can't eclipse the footer. 2 whitespace on Y total.\
  955. \009local wmin,hmin = findMaxWH(ddModes)\
  956. \009if w < wmin+4 or h < hmin+2 then mainAvailable = false end\
  957. \009wmin,hmin = findMaxWH(srModes)\
  958. \009if w < wmin+4 or h < hmin+2 then boxdropAvailable = false end\
  959. end\
  960. \
  961. --[[Finds the biggest and smallest bounds of the image- the outside points beyond which pixels do not appear\
  962. These values are assigned to the \"lim\" parameters for access by other methods\
  963. Params: forAllFrames:bool = True if all frames should be used to find bounds, otherwise false or nil\
  964. Returns:nil\
  965. ]]--\
  966. local function updateImageLims(forAllFrames)\
  967. local f,l = sFrame,sFrame\
  968. if forAllFrames == true then f,l = 1,framecount end\
  969. \
  970. toplim,botlim,leflim,riglim = nil,nil,nil,nil\
  971. for locf = f,l do\
  972. for y,_ in pairs(frames[locf]) do\
  973. if type(y) == \"number\" then\
  974. for x,_ in pairs(frames[locf][y]) do\
  975. if frames[locf][y][x] ~= nil then\
  976. if leflim == nil or x < leflim then leflim = x end\
  977. if toplim == nil or y < toplim then toplim = y end\
  978. if riglim == nil or x > riglim then riglim = x end\
  979. if botlim == nil or y > botlim then botlim = y end\
  980. end\
  981. end\
  982. end\
  983. end\
  984. end\
  985. \
  986. --There is just... no easier way to do this. It's horrible, but necessary\
  987. if textEnabled then\
  988. for locf = f,l do\
  989. for y,_ in pairs(frames[locf].text) do\
  990. for x,_ in pairs(frames[locf].text[y]) do\
  991. if frames[locf].text[y][x] ~= nil then\
  992. if leflim == nil or x < leflim then leflim = x end\
  993. if toplim == nil or y < toplim then toplim = y end\
  994. if riglim == nil or x > riglim then riglim = x end\
  995. if botlim == nil or y > botlim then botlim = y end\
  996. end\
  997. end\
  998. end\
  999. for y,_ in pairs(frames[locf].textcol) do\
  1000. for x,_ in pairs(frames[locf].textcol[y]) do\
  1001. if frames[locf].textcol[y][x] ~= nil then\
  1002. if leflim == nil or x < leflim then leflim = x end\
  1003. if toplim == nil or y < toplim then toplim = y end\
  1004. if riglim == nil or x > riglim then riglim = x end\
  1005. if botlim == nil or y > botlim then botlim = y end\
  1006. end\
  1007. end\
  1008. end\
  1009. end\
  1010. end\
  1011. end\
  1012. \
  1013. --[[Determines how much of each material is required for a print. Done each time printing is called.\
  1014. Params: none\
  1015. Returns:table A complete list of how much of each material is required.\
  1016. ]]--\
  1017. function calculateMaterials()\
  1018. updateImageLims(animated)\
  1019. requiredMaterials = {}\
  1020. for i=1,16 do\
  1021. requiredMaterials[i] = 0\
  1022. end\
  1023. \
  1024. if not toplim then return end\
  1025. \
  1026. for i=1,#frames do\
  1027. for y = toplim, botlim do\
  1028. for x = leflim, riglim do\
  1029. if type(frames[i][y][x]) == \"number\" then\
  1030. requiredMaterials[math.log10(frames[i][y][x])/math.log10(2) + 1] =\
  1031. requiredMaterials[math.log10(frames[i][y][x])/math.log10(2) + 1] + 1\
  1032. end \
  1033. end\
  1034. end\
  1035. end\
  1036. end\
  1037. \
  1038. \
  1039. --[[Updates the rectangle blink timer. Should be called anywhere events are captured, along with a timer capture.\
  1040. Params: nil\
  1041. Returns:nil\
  1042. ]]--\
  1043. local function updateTimer(id)\
  1044. if id == recttimer then\
  1045. recttimer = os.startTimer(0.5)\
  1046. rectblink = (rectblink % 2) + 1\
  1047. end\
  1048. end\
  1049. \
  1050. --[[Constructs a message based on the state currently selected\
  1051. Params: nil\
  1052. Returns:string A message regarding the state of the application\
  1053. ]]--\
  1054. local function getStateMessage()\
  1055. local msg = \" \"..string.upper(string.sub(state, 1, 1))..string.sub(state, 2, #state)..\" mode\"\
  1056. if state == \"brush\" then msg = msg..\", size=\"..brushsize end\
  1057. return msg\
  1058. end\
  1059. \
  1060. --[[Calls the rednet_message event, but also looks for timer events to keep then\
  1061. system timer ticking.\
  1062. Params: timeout:number how long before the event times out\
  1063. Returns:number the id of the sender\
  1064. :number the message send\
  1065. ]]--\
  1066. local function rsTimeReceive(timeout)\
  1067. local timerID\
  1068. if timeout then timerID = os.startTimer(timeout) end\
  1069. \
  1070. local id,key,msg = nil,nil\
  1071. while true do\
  1072. id,key,msg = os.pullEvent()\
  1073. \
  1074. if id == \"timer\" then\
  1075. if key == timerID then return\
  1076. else updateTimer(key) end\
  1077. end\
  1078. if id == \"rednet_message\" then\
  1079. return key,msg\
  1080. end\
  1081. end\
  1082. end\
  1083. \
  1084. --[[Draws a picture, in paint table format on the screen\
  1085. Params: image:table = the image to display\
  1086. xinit:number = the x position of the top-left corner of the image\
  1087. yinit:number = the y position of the top-left corner of the image\
  1088. alpha:number = the color to display for the alpha channel. Default is white.\
  1089. Returns:nil\
  1090. ]]--\
  1091. local function drawPictureTable(image, xinit, yinit, alpha)\
  1092. if not alpha then alpha = 1 end\
  1093. for y=1,#image do\
  1094. for x=1,#image[y] do\
  1095. term.setCursorPos(xinit + x-1, yinit + y-1)\
  1096. local col = getColourOf(string.sub(image[y], x, x))\
  1097. if not col then col = alpha end\
  1098. term.setBackgroundColour(col)\
  1099. term.write(\" \")\
  1100. end\
  1101. end\
  1102. end\
  1103. \
  1104. --[[ \
  1105. Section: Loading \
  1106. ]]--\
  1107. \
  1108. --[[Loads a non-animted paint file into the program\
  1109. Params: path:string = The path in which the file is located\
  1110. Returns:nil\
  1111. ]]--\
  1112. local function loadNFP(path)\
  1113. sFrame = 1\
  1114. frames[sFrame] = { }\
  1115. if fs.exists(path) then\
  1116. local file = io.open(path, \"r\" )\
  1117. local sLine = file:read()\
  1118. local num = 1\
  1119. while sLine do\
  1120. table.insert(frames[sFrame], num, {})\
  1121. for i=1,#sLine do\
  1122. frames[sFrame][num][i] = getColourOf(string.sub(sLine,i,i))\
  1123. end\
  1124. num = num+1\
  1125. sLine = file:read()\
  1126. end\
  1127. file:close()\
  1128. end\
  1129. end\
  1130. \
  1131. --[[Loads a text-paint file into the program\
  1132. Params: path:string = The path in which the file is located\
  1133. Returns:nil\
  1134. ]]--\
  1135. local function loadNFT(path)\
  1136. sFrame = 1\
  1137. frames[sFrame] = { }\
  1138. frames[sFrame].text = { }\
  1139. frames[sFrame].textcol = { }\
  1140. \
  1141. if fs.exists(path) then\
  1142. local file = io.open(path, \"r\")\
  1143. local sLine = file:read()\
  1144. local num = 1\
  1145. while sLine do\
  1146. table.insert(frames[sFrame], num, {})\
  1147. table.insert(frames[sFrame].text, num, {})\
  1148. table.insert(frames[sFrame].textcol, num, {})\
  1149. \
  1150. --As we're no longer 1-1, we keep track of what index to write to\
  1151. local writeIndex = 1\
  1152. --Tells us if we've hit a 30 or 31 (BG and FG respectively)- next char specifies the curr colour\
  1153. local bgNext, fgNext = false, false\
  1154. --The current background and foreground colours\
  1155. local currBG, currFG = nil,nil\
  1156. term.setCursorPos(1,1)\
  1157. for i=1,#sLine do\
  1158. local nextChar = string.sub(sLine, i, i)\
  1159. if nextChar:byte() == 30 then\
  1160. bgNext = true\
  1161. elseif nextChar:byte() == 31 then\
  1162. fgNext = true\
  1163. elseif bgNext then\
  1164. currBG = getColourOf(nextChar)\
  1165. bgNext = false\
  1166. elseif fgNext then\
  1167. currFG = getColourOf(nextChar)\
  1168. fgNext = false\
  1169. else\
  1170. if nextChar ~= \" \" and currFG == nil then\
  1171. currFG = colours.white\
  1172. end\
  1173. frames[sFrame][num][writeIndex] = currBG\
  1174. frames[sFrame].textcol[num][writeIndex] = currFG\
  1175. frames[sFrame].text[num][writeIndex] = nextChar\
  1176. writeIndex = writeIndex + 1\
  1177. end\
  1178. end\
  1179. num = num+1\
  1180. sLine = file:read()\
  1181. end\
  1182. file:close()\
  1183. end\
  1184. end\
  1185. \
  1186. --[[Loads an animated paint file into the program\
  1187. Params: path:string = The path in which the file is located\
  1188. Returns:nil\
  1189. ]]--\
  1190. local function loadNFA(path)\
  1191. frames[sFrame] = { }\
  1192. if fs.exists(path) then\
  1193. local file = io.open(path, \"r\" )\
  1194. local sLine = file:read()\
  1195. local num = 1\
  1196. while sLine do\
  1197. table.insert(frames[sFrame], num, {})\
  1198. if sLine == \"~\" then\
  1199. sFrame = sFrame + 1\
  1200. frames[sFrame] = { }\
  1201. num = 1\
  1202. else\
  1203. for i=1,#sLine do\
  1204. frames[sFrame][num][i] = getColourOf(string.sub(sLine,i,i))\
  1205. end\
  1206. num = num+1\
  1207. end\
  1208. sLine = file:read()\
  1209. end\
  1210. file:close()\
  1211. end\
  1212. framecount = sFrame\
  1213. sFrame = 1\
  1214. end\
  1215. \
  1216. --[[Saves a non-animated paint file to the specified path\
  1217. Params: path:string = The path to save the file to\
  1218. Returns:nil\
  1219. ]]--\
  1220. local function saveNFP(path)\
  1221. local sDir = string.sub(sPath, 1, #sPath - #fs.getName(sPath))\
  1222. if not fs.exists(sDir) then\
  1223. fs.makeDir(sDir)\
  1224. end\
  1225. \
  1226. local file = io.open(path, \"w\")\
  1227. updateImageLims(false)\
  1228. if not toplim then\
  1229. file:close()\
  1230. return\
  1231. end\
  1232. for y=1,botlim do\
  1233. local line = \"\"\
  1234. if frames[sFrame][y] then\
  1235. for x=1,riglim do\
  1236. line = line..getHexOf(frames[sFrame][y][x])\
  1237. end\
  1238. end\
  1239. file:write(line..\"\\n\")\
  1240. end\
  1241. file:close()\
  1242. end\
  1243. \
  1244. --[[Saves a text-paint file to the specified path\
  1245. Params: path:string = The path to save the file to\
  1246. Returns:nil\
  1247. ]]--\
  1248. local function saveNFT(path)\
  1249. local sDir = string.sub(sPath, 1, #sPath - #fs.getName(sPath))\
  1250. if not fs.exists(sDir) then\
  1251. fs.makeDir(sDir)\
  1252. end\
  1253. \
  1254. local file = io.open(path, \"w\")\
  1255. updateImageLims(false)\
  1256. if not toplim then\
  1257. file:close()\
  1258. return\
  1259. end\
  1260. for y=1,botlim do\
  1261. local line = \"\"\
  1262. local currBG, currFG = nil,nil\
  1263. for x=1,riglim do\
  1264. if frames[sFrame][y] and frames[sFrame][y][x] ~= currBG then\
  1265. line = line..string.char(30)..getHexOf(frames[sFrame][y][x])\
  1266. currBG = frames[sFrame][y][x]\
  1267. end\
  1268. if frames[sFrame].textcol[y] and frames[sFrame].textcol[y][x] ~= currFG then\
  1269. line = line..string.char(31)..getHexOf(frames[sFrame].textcol[y][x])\
  1270. currFG = frames[sFrame].textcol[y][x]\
  1271. end\
  1272. if frames[sFrame].text[y] then\
  1273. local char = frames[sFrame].text[y][x]\
  1274. if not char then char = \" \" end\
  1275. line = line..char\
  1276. end\
  1277. end\
  1278. file:write(line..\"\\n\")\
  1279. end\
  1280. file:close()\
  1281. end\
  1282. \
  1283. --[[Saves a animated paint file to the specified path\
  1284. Params: path:string = The path to save the file to\
  1285. Returns:nil\
  1286. ]]--\
  1287. local function saveNFA(path)\
  1288. local sDir = string.sub(sPath, 1, #sPath - #fs.getName(sPath))\
  1289. if not fs.exists(sDir) then\
  1290. fs.makeDir(sDir)\
  1291. end\
  1292. \
  1293. local file = io.open(path, \"w\")\
  1294. updateImageLims(true)\
  1295. if not toplim then\
  1296. file:close()\
  1297. return\
  1298. end\
  1299. for i=1,#frames do\
  1300. for y=1,botlim do\
  1301. local line = \"\"\
  1302. if frames[i][y] then\
  1303. for x=1,riglim do\
  1304. line = line..getHexOf(frames[i][y][x])\
  1305. end\
  1306. end\
  1307. file:write(line..\"\\n\")\
  1308. end\
  1309. if i < #frames then file:write(\"~\\n\") end\
  1310. end\
  1311. file:close()\
  1312. end\
  1313. \
  1314. --[[Runs a special pre-program dialogue to determine the filename and filepath. Done if\
  1315. \009there's room, and a file name hasn't been specified\
  1316. \009Params: none\
  1317. \009Returns:bool= true if file is created; false otherwise\
  1318. ]]--\
  1319. local function runFileMaker()\
  1320. \009local newFName = \"\"\
  1321. \009local fileType = 1\
  1322. \009if animated then fileType = 2\
  1323. \009elseif textEnabled then fileType = 3 end\
  1324. \009\
  1325. \009local tlx,tly = math.floor(w/2 - #logo[1]/2), math.floor(h/2 + #logo/2 + 1)\
  1326. \
  1327. \009--This is done on top of the logo, so it backpedals a bit.\
  1328. \009term.setCursorPos(tlx, tly)\
  1329. \009term.clearLine()\
  1330. \009term.write(\"Name: \")\
  1331. \009term.setCursorPos(tlx, tly + 1)\
  1332. \009term.clearLine()\
  1333. \009term.write(\"Filetype: Sprite\")\
  1334. \009term.setCursorPos(tlx + 12, tly + 2)\
  1335. \009term.write(\"Animation\")\
  1336. \009term.setCursorPos(tlx + 12, tly + 3)\
  1337. \009term.write(\"Text\")\
  1338. \009\
  1339. \009while true do\
  1340. \009\009term.setCursorPos(tlx + 6, tly)\
  1341. \009\009term.setBackgroundColour(colours.lightGrey)\
  1342. \009\009term.setTextColour(colours.grey)\
  1343. \009\009term.write(newFName..string.rep(\" \", 15-#newFName))\
  1344. \009\009term.setBackgroundColour(colours.white)\
  1345. \009\009term.setTextColour(colours.black)\
  1346. \009\009local extension = \".nfp\"\
  1347. \009\009if fileType == 2 then extension = \".nfa\"\
  1348. \009\009elseif fileType == 3 then extension = \".nft\" end\
  1349. \009\009term.write(extension)\
  1350. \009\009\
  1351. \009\009term.setBackgroundColour(colours.lightGrey)\
  1352. \009\009term.setTextColour(colours.grey)\
  1353. \009\009for i=1,3 do\
  1354. \009\009\009term.setCursorPos(tlx + 24, tly + i)\
  1355. \009\009\009if i==fileType then term.write(\"X\")\
  1356. \009\009\009else term.write(\" \") end\
  1357. \009\009end\
  1358. \009\009\
  1359. \009\009local fPath = shell.resolve(newFName..extension)\
  1360. \009\009term.setCursorPos(tlx, tly + 3)\
  1361. \009\009local fileValid = true\
  1362. \009\009if (fs.exists(fPath) and fs.isDir(fPath)) or newFName == \"\" then\
  1363. \009\009\009term.setBackgroundColour(colours.white)\
  1364. \009\009\009term.setTextColour(colours.red)\
  1365. \009\009\009term.write(\"Invalid \")\
  1366. \009\009\009fileValid = false\
  1367. \009\009elseif fs.exists(fPath) then\
  1368. \009\009\009term.setBackgroundColour(colours.grey)\
  1369. \009\009\009term.setTextColour(colours.lightGrey)\
  1370. \009\009\009term.write(\" Edit \")\
  1371. \009\009else\
  1372. \009\009\009term.setBackgroundColour(colours.grey)\
  1373. \009\009\009term.setTextColour(colours.lightGrey)\
  1374. \009\009\009term.write(\" Create \")\
  1375. \009\009end\
  1376. \009\009\
  1377. \009\009term.setTextColour(colours.grey)\
  1378. \009\009term.setCursorPos(tlx + 6 + #newFName, tly)\
  1379. \009\009term.setCursorBlink(true)\
  1380. \009\009\
  1381. \009\009local id,p1,p2,p3 = os.pullEvent()\
  1382. \009\009if id == \"key\" then\
  1383. \009\009\009if p1 == keys.backspace and #newFName > 0 then \
  1384. \009\009\009\009newFName = string.sub(newFName, 1, #newFName-1)\
  1385. \009\009\009elseif p1 == keys.enter and fileValid then\
  1386. \009\009\009\009sPath = fPath\
  1387. \009\009\009\009return true\
  1388. \009\009\009end\
  1389. \009\009elseif id == \"char\" and p1 ~= \".\" and p1 ~= \" \" and #newFName < 15 then\
  1390. \009\009\009newFName = newFName..p1\
  1391. \009\009elseif id == \"mouse_click\" then\
  1392. \009\009\009--The option boxes. Man, hardcoding is ugly...\
  1393. \009\009\009if p2 == tlx + 24 then\
  1394. \009\009\009\009for i=1,3 do \
  1395. \009\009\009\009\009if p3 == tly+i then fileType = i end \
  1396. \009\009\009\009end\
  1397. \009\009\009end\
  1398. \009\009\009if p3 == tly + 3 and p2 >= tlx and p2 <= tlx + 8 and fileValid then\
  1399. \009\009\009\009sPath = fPath\
  1400. \009\009\009\009return true\
  1401. \009\009\009end\
  1402. \009\009end\
  1403. \009end\
  1404. end\
  1405. \
  1406. --[[Initializes the program, by loading in the paint file. Called at the start of each program.\
  1407. Params: none\
  1408. Returns:nil\
  1409. ]]--\
  1410. local function init()\
  1411. if textEnabled then\
  1412. loadNFT(sPath)\
  1413. table.insert(ddModes, 2, { \"text\", \"textpaint\", name = \"text\"})\
  1414. elseif animated then\
  1415. loadNFA(sPath)\
  1416. table.insert(ddModes, #ddModes, { \"record\", \"play\", name = \"anim\" })\
  1417. table.insert(ddModes, #ddModes, { \"go to\", \"remove\", name = \"frames\"})\
  1418. table.insert(ddModes[2], #ddModes[2], \"blueprint on\")\
  1419. table.insert(ddModes[2], #ddModes[2], \"layers on\")\
  1420. else\
  1421. loadNFP(sPath)\
  1422. table.insert(ddModes[2], #ddModes[2], \"blueprint on\")\
  1423. end\
  1424. \009\009\
  1425. for i=0,15 do\
  1426. table.insert(column, math.pow(2,i))\
  1427. end\
  1428. end\
  1429. \
  1430. --[[ \
  1431. Section: Drawing \
  1432. ]]--\
  1433. \
  1434. \
  1435. --[[Draws the rather superflous logo. Takes about 1 second, before user is able to move to the\
  1436. actual program.\
  1437. Params: none\
  1438. Returns:bool= true if the file select ran successfully; false otherwise.\
  1439. ]]--\
  1440. local function drawLogo()\
  1441. term.setBackgroundColour(colours.white)\
  1442. term.clear()\
  1443. \009\009if h >= 12 and w >= 24 then\
  1444. \009\009\009drawPictureTable(logo, w/2 - #logo[1]/2, h/2 - #logo/2, colours.white)\
  1445. \009\009\009term.setBackgroundColour(colours.white)\
  1446. \009\009\009term.setTextColour(colours.black)\
  1447. \009\009\009local msg = \"NPaintPro\"\
  1448. \009\009\009term.setCursorPos(w/2 - #msg/2, h/2 + #logo/2 + 1)\
  1449. \009\009\009term.write(msg)\
  1450. \009\009\009msg = \"By NitrogenFingers\"\
  1451. \009\009\009term.setCursorPos(w/2 - #msg/2, h/2 + #logo/2 + 2)\
  1452. \009\009\009term.write(msg)\
  1453. elseif w >= 15 then\
  1454. \009\009\009local msg = \"NPaintPro\"\
  1455. \009\009\009term.setCursorPos(math.ceil(w/2 - #msg/2), h/2)\
  1456. \009\009\009term.setTextColour(colours.cyan)\
  1457. \009\009\009term.write(msg)\
  1458. \009\009\009msg = \"NitrogenFingers\"\
  1459. \009\009\009term.setCursorPos(math.ceil(w/2 - #msg/2), h/2 + 1)\
  1460. \009\009\009term.setTextColour(colours.black)\
  1461. \009\009\009term.write(msg)\
  1462. \009\009else\
  1463. \009\009\009local msg = \"NPP\"\
  1464. \009\009\009term.setCursorPos(math.ceil(w/2 - #msg/2), math.floor(h/2))\
  1465. \009\009\009term.setTextColour(colours.cyan)\
  1466. \009\009\009term.write(msg)\
  1467. \009\009\009msg = \"By NF\"\
  1468. \009\009\009term.setCursorPos(math.ceil(w/2 - #msg/2), math.ceil(h/2))\
  1469. \009\009\009term.setTextColour(colours.black)\
  1470. \009\009\009term.write(msg)\
  1471. \009\009end\
  1472. os.pullEvent()\
  1473. end\
  1474. \
  1475. --[[Clears the display to the alpha channel colour, draws the canvas, the image buffer and the selection\
  1476. rectanlge if any of these things are present.\
  1477. Params: none\
  1478. Returns:nil\
  1479. ]]--\
  1480. local function drawCanvas()\
  1481. --We have to readjust the position of the canvas if we're printing\
  1482. turtlechar = \"@\"\
  1483. if state == \"active print\" then\
  1484. if layering == \"up\" then\
  1485. if py >= 1 and py <= #frames then\
  1486. sFrame = py\
  1487. end\
  1488. if pz < sy then sy = pz\
  1489. elseif pz > sy + h - 1 then sy = pz + h - 1 end\
  1490. if px < sx then sx = px\
  1491. elseif px > sx + w - 2 then sx = px + w - 2 end\
  1492. else\
  1493. if pz >= 1 and pz <= #frames then\
  1494. sFrame = pz\
  1495. end\
  1496. \
  1497. if py < sy then sy = py\
  1498. elseif py > sy + h - 1 then sy = py + h - 1 end\
  1499. if px < sx then sx = px\
  1500. elseif px > sx + w - 2 then sx = px + w - 2 end\
  1501. end\
  1502. \
  1503. if pfx == 1 then turtlechar = \">\"\
  1504. elseif pfx == -1 then turtlechar = \"<\"\
  1505. elseif pfz == 1 then turtlechar = \"V\"\
  1506. elseif pfz == -1 then turtlechar = \"^\"\
  1507. end\
  1508. end\
  1509. \
  1510. --Picture next\
  1511. local topLayer, botLayer\
  1512. if layerDisplay then\
  1513. topLayer = sFrame\
  1514. botLayer = 1\
  1515. else\
  1516. topLayer,botLayer = sFrame,sFrame\
  1517. end\
  1518. \
  1519. \009 --How far the canvas draws. If the interface is visible, it stops short of that.\
  1520. \009 local wlim,hlim = 0,0\
  1521. \009\009if not interfaceHidden then\
  1522. \009\009\009wlim = 2\
  1523. \009\009\009hlim = 1\
  1524. \009\009end\
  1525. \009 \
  1526. for currframe = botLayer,topLayer,1 do\
  1527. for y=sy+1,sy+h-hlim do\
  1528. if frames[currframe][y] then\
  1529. for x=sx+1,sx+w-wlim do\
  1530. term.setCursorPos(x-sx,y-sy)\
  1531. if frames[currframe][y][x] then\
  1532. term.setBackgroundColour(frames[currframe][y][x])\
  1533. if textEnabled and frames[currframe].textcol[y][x] and frames[currframe].text[y][x] then\
  1534. term.setTextColour(frames[currframe].textcol[y][x])\
  1535. term.write(frames[currframe].text[y][x])\
  1536. else\
  1537. term.write(\" \")\
  1538. end\
  1539. else\
  1540. tileExists = false\
  1541. for i=currframe-1,botLayer,-1 do\
  1542. if frames[i][y][x] then\
  1543. tileExists = true\
  1544. break\
  1545. end\
  1546. end\
  1547. \
  1548. if not tileExists then\
  1549. if blueprint then\
  1550. term.setBackgroundColour(colours.blue)\
  1551. term.setTextColour(colours.white)\
  1552. if x == sx+1 and y % 4 == 1 then\
  1553. term.write(\"\"..((y/4) % 10))\
  1554. elseif y == sy + 1 and x % 4 == 1 then\
  1555. term.write(\"\"..((x/4) % 10))\
  1556. elseif x % 2 == 1 and y % 2 == 1 then\
  1557. term.write(\"+\")\
  1558. elseif x % 2 == 1 then\
  1559. term.write(\"|\")\
  1560. elseif y % 2 == 1 then\
  1561. term.write(\"-\")\
  1562. else\
  1563. term.write(\" \")\
  1564. end\
  1565. else\
  1566. term.setBackgroundColour(alphaC)\
  1567. if textEnabled and frames[currframe].textcol[y][x] and frames[currframe].text[y][x] then\
  1568. term.setTextColour(frames[currframe].textcol[y][x])\
  1569. term.write(frames[currframe].text[y][x])\
  1570. else\
  1571. term.write(\" \")\
  1572. end\
  1573. end\
  1574. end\
  1575. end\
  1576. end\
  1577. else\
  1578. for x=sx+1,sx+w-wlim do\
  1579. term.setCursorPos(x-sx,y-sy)\
  1580. \
  1581. tileExists = false\
  1582. for i=currframe-1,botLayer,-1 do\
  1583. if frames[i][y] and frames[i][y][x] then\
  1584. tileExists = true\
  1585. break\
  1586. end\
  1587. end\
  1588. \
  1589. if not tileExists then\
  1590. if blueprint then\
  1591. term.setBackgroundColour(colours.blue)\
  1592. term.setTextColour(colours.white)\
  1593. if x == sx+1 and y % 4 == 1 then\
  1594. term.write(\"\"..((y/4) % 10))\
  1595. elseif y == sy + 1 and x % 4 == 1 then\
  1596. term.write(\"\"..((x/4) % 10))\
  1597. elseif x % 2 == 1 and y % 2 == 1 then\
  1598. term.write(\"+\")\
  1599. elseif x % 2 == 1 then\
  1600. term.write(\"|\")\
  1601. elseif y % 2 == 1 then\
  1602. term.write(\"-\")\
  1603. else\
  1604. term.write(\" \")\
  1605. end\
  1606. else\
  1607. term.setBackgroundColour(alphaC)\
  1608. term.write(\" \")\
  1609. end\
  1610. end\
  1611. end\
  1612. end\
  1613. end\
  1614. end\
  1615. \
  1616. --Then the printer, if he's on\
  1617. if state == \"active print\" then\
  1618. local bgColour = alphaC\
  1619. if layering == \"up\" then\
  1620. term.setCursorPos(px-sx,pz-sy)\
  1621. if frames[sFrame] and frames[sFrame][pz-sy] and frames[sFrame][pz-sy][px-sx] then\
  1622. bgColour = frames[sFrame][pz-sy][px-sx]\
  1623. elseif blueprint then bgColour = colours.blue end\
  1624. else\
  1625. term.setCursorPos(px-sx,py-sy)\
  1626. if frames[sFrame] and frames[sFrame][py-sy] and frames[sFrame][py-sy][px-sx] then\
  1627. bgColour = frames[sFrame][py-sy][px-sx]\
  1628. elseif blueprint then bgColour = colours.blue end\
  1629. end\
  1630. \
  1631. term.setBackgroundColour(bgColour)\
  1632. if bgColour == colours.black then term.setTextColour(colours.white)\
  1633. else term.setTextColour(colours.black) end\
  1634. \
  1635. term.write(turtlechar)\
  1636. end\
  1637. \
  1638. --Then the buffer\
  1639. if selectrect then\
  1640. if buffer and rectblink == 1 then\
  1641. for y=selectrect.y1, math.min(selectrect.y2, selectrect.y1 + buffer.height-1) do\
  1642. for x=selectrect.x1, math.min(selectrect.x2, selectrect.x1 + buffer.width-1) do\
  1643. if buffer.contents[y-selectrect.y1+1][x-selectrect.x1+1] then\
  1644. term.setCursorPos(x+sx,y+sy)\
  1645. term.setBackgroundColour(buffer.contents[y-selectrect.y1+1][x-selectrect.x1+1])\
  1646. term.write(\" \")\
  1647. end\
  1648. end\
  1649. end\
  1650. end\
  1651. \
  1652. --This draws the \"selection\" box\
  1653. local add = nil\
  1654. if buffer then\
  1655. term.setBackgroundColour(colours.lightGrey)\
  1656. else\
  1657. term.setBackgroundColour(colours.grey)\
  1658. end\
  1659. for i=selectrect.x1, selectrect.x2 do\
  1660. add = (i + selectrect.y1 + rectblink) % 2 == 0\
  1661. term.setCursorPos(i-sx,selectrect.y1-sy)\
  1662. if add then term.write(\" \") end\
  1663. add = (i + selectrect.y2 + rectblink) % 2 == 0\
  1664. term.setCursorPos(i-sx,selectrect.y2-sy)\
  1665. if add then term.write(\" \") end\
  1666. end\
  1667. for i=selectrect.y1 + 1, selectrect.y2 - 1 do\
  1668. add = (i + selectrect.x1 + rectblink) % 2 == 0\
  1669. term.setCursorPos(selectrect.x1-sx,i-sy)\
  1670. if add then term.write(\" \") end\
  1671. add = (i + selectrect.x2 + rectblink) % 2 == 0\
  1672. term.setCursorPos(selectrect.x2-sx,i-sy)\
  1673. if add then term.write(\" \") end\
  1674. end\
  1675. end\
  1676. end\
  1677. \
  1678. --[[Draws the colour picker on the right side of the screen, the colour pallette and the footer with any\
  1679. messages currently being displayed\
  1680. Params: none\
  1681. Returns:nil\
  1682. ]]--\
  1683. local function drawInterface()\
  1684. --Picker\
  1685. \009\009local coffset,ioffset = 0,0\
  1686. \009\009local maxcsize = h-2\
  1687. \009\009if h < #column + 2 then\
  1688. \009\009\009maxcsize = h-4\
  1689. \009\009\009coffset = columnoffset\
  1690. \009\009\009ioffset = 1\
  1691. \009\009\009term.setBackgroundColour(colours.lightGrey)\
  1692. \009\009\009term.setTextColour(colours.grey)\
  1693. \009\009\009term.setCursorPos(w-1,1)\
  1694. \009\009\009term.write(\"^^\")\
  1695. \009\009\009term.setCursorPos(w-1,h-2)\
  1696. \009\009\009term.write(\"VV\")\
  1697. \009\009end\
  1698. for i=1,math.min(#column+1,maxcsize) do\
  1699. \009\009\009term.setCursorPos(w-1, i + ioffset)\
  1700. \009\009\009local ci = i+coffset\
  1701. \009\009\009if ci == #column+1 then\
  1702. \009\009\009\009term.setBackgroundColour(colours.black)\
  1703. \009\009\009\009term.setTextColour(colours.red)\
  1704. \009\009\009\009term.write(\"XX\")\
  1705. \009\009\009elseif state == \"print\" then\
  1706. \009\009\009\009term.setBackgroundColour(column[ci])\
  1707. \009\009\009\009if column[ci] == colours.black then\
  1708. \009\009\009\009\009term.setTextColour(colours.white)\
  1709. \009\009\009\009else term.setTextColour(colours.black) end\
  1710. \009\009\009\009\
  1711. \009\009\009\009if requirementsDisplayed then\
  1712. \009\009\009\009\009\009if requiredMaterials[i] < 10 then term.write(\" \") end\
  1713. \009\009\009\009\009\009term.setCursorPos(w-#tostring(requiredMaterials[i])+1, i)\
  1714. \009\009\009\009\009\009term.write(requiredMaterials[i])\
  1715. \009\009\009\009else\
  1716. \009\009\009\009\009\009if i+coffset < 10 then term.write(\" \") end\
  1717. \009\009\009\009\009\009term.write(i+coffset)\
  1718. \009\009\009\009end\
  1719. \009\009\009else\
  1720. \009\009\009\009term.setBackgroundColour(column[ci])\
  1721. \009\009\009\009term.write(\" \")\
  1722. \009\009\009end\
  1723. end\
  1724. \009\009--Filling the whitespace with... 'greyspace' *shudder*\
  1725. \009\009if h > #column+3 then\
  1726. \009\009\009term.setTextColour(colours.grey)\
  1727. \009\009\009term.setBackgroundColour(colours.lightGrey)\
  1728. \009\009\009for y=#column+2,h-2 do\
  1729. \009\009\009\009term.setCursorPos(w-1,y)\
  1730. \009\009\009\009term.write(\"| \")\
  1731. \009\009\009end\
  1732. \009\009end\
  1733. --Pallette\
  1734. term.setCursorPos(w-1,h-1)\
  1735. if not lSel then\
  1736. term.setBackgroundColour(colours.black)\
  1737. term.setTextColour(colours.red)\
  1738. term.write(\"X\")\
  1739. else\
  1740. term.setBackgroundColour(lSel)\
  1741. term.setTextColour(lSel)\
  1742. term.write(\" \")\
  1743. end\
  1744. if not rSel then\
  1745. term.setBackgroundColour(colours.black)\
  1746. term.setTextColour(colours.red)\
  1747. term.write(\"X\")\
  1748. else\
  1749. term.setBackgroundColour(rSel)\
  1750. term.setTextColour(rSel)\
  1751. term.write(\" \")\
  1752. end\
  1753. --Footer\
  1754. if inMenu then return end\
  1755. \
  1756. term.setCursorPos(1, h)\
  1757. term.setBackgroundColour(colours.lightGrey)\
  1758. term.setTextColour(colours.grey)\
  1759. term.clearLine()\
  1760. \009\009if mainAvailable then\
  1761. \009\009\009if inDropDown then\
  1762. \009\009\009\009\009term.write(string.rep(\" \", #ddModes.name + 2))\
  1763. \009\009\009else\
  1764. \009\009\009\009\009term.setBackgroundColour(colours.grey)\
  1765. \009\009\009\009\009term.setTextColour(colours.lightGrey)\
  1766. \009\009\009\009\009term.write(ddModes.name..\" \")\
  1767. \009\009\009end\
  1768. \009\009end\
  1769. term.setBackgroundColour(colours.lightGrey)\
  1770. term.setTextColour(colours.grey)\
  1771. term.write(getStateMessage())\
  1772. \
  1773. local coords=\"X:\"..sx..\" Y:\"..sy\
  1774. if animated then coords = coords..\" Frame:\"..sFrame..\"/\"..framecount..\" \" end\
  1775. term.setCursorPos(w-#coords+1,h)\
  1776. if state == \"play\" then term.setBackgroundColour(colours.lime)\
  1777. elseif record then term.setBackgroundColour(colours.red) end\
  1778. term.write(coords)\
  1779. \
  1780. if animated then\
  1781. term.setCursorPos(w-1,h)\
  1782. term.setBackgroundColour(colours.grey)\
  1783. term.setTextColour(colours.lightGrey)\
  1784. term.write(\"<>\")\
  1785. end\
  1786. end\
  1787. \
  1788. --[[Runs an interface where users can select topics of help. Will return once the user quits the help screen.\
  1789. Params: none\
  1790. Returns:nil\
  1791. ]]--\
  1792. local function drawHelpScreen()\
  1793. local selectedHelp = nil\
  1794. while true do\
  1795. term.setBackgroundColour(colours.lightGrey)\
  1796. term.clear()\
  1797. if not selectedHelp then\
  1798. term.setCursorPos(4, 1)\
  1799. term.setTextColour(colours.brown)\
  1800. term.write(\"Available modes (click for info):\")\
  1801. for i=1,#helpTopics do\
  1802. term.setCursorPos(2, 2 + i)\
  1803. term.setTextColour(colours.black)\
  1804. term.write(helpTopics[i].name)\
  1805. if helpTopics[i].key then\
  1806. term.setTextColour(colours.red)\
  1807. term.write(\" (\"..helpTopics[i].key..\")\")\
  1808. end\
  1809. end\
  1810. term.setCursorPos(4,h)\
  1811. term.setTextColour(colours.black)\
  1812. term.write(\"Press any key to exit\")\
  1813. else\
  1814. term.setCursorPos(4,1)\
  1815. term.setTextColour(colours.brown)\
  1816. term.write(helpTopics[selectedHelp].name)\
  1817. if helpTopics[selectedHelp].key then\
  1818. term.setTextColour(colours.red)\
  1819. term.write(\" (\"..helpTopics[selectedHelp].key..\")\")\
  1820. end\
  1821. term.setCursorPos(1,3)\
  1822. term.setTextColour(colours.black)\
  1823. print(helpTopics[selectedHelp].message..\"\\n\")\
  1824. for i=1,#helpTopics[selectedHelp].controls do\
  1825. term.setTextColour(colours.brown)\
  1826. term.write(helpTopics[selectedHelp].controls[i][1]..\" \")\
  1827. term.setTextColour(colours.black)\
  1828. print(helpTopics[selectedHelp].controls[i][2])\
  1829. end\
  1830. end\
  1831. \
  1832. local id,p1,p2,p3 = os.pullEvent()\
  1833. \
  1834. if id == \"timer\" then updateTimer(p1)\
  1835. elseif id == \"key\" then\
  1836. if selectedHelp then selectedHelp = nil\
  1837. else break end\
  1838. elseif id == \"mouse_click\" then\
  1839. if not selectedHelp then\
  1840. if p3 >=3 and p3 <= 2+#helpTopics then\
  1841. selectedHelp = p3-2\
  1842. else break end\
  1843. else\
  1844. selectedHelp = nil\
  1845. end\
  1846. end\
  1847. end\
  1848. end\
  1849. \
  1850. --[[Draws a message in the footer bar. A helper for DrawInterface, but can be called for custom messages, if the\
  1851. inMenu paramter is set to true while this is being done (remember to set it back when done!)\
  1852. Params: message:string = The message to be drawn\
  1853. Returns:nil\
  1854. ]]--\
  1855. local function drawMessage(message)\
  1856. term.setCursorPos(1,h)\
  1857. term.setBackgroundColour(colours.lightGrey)\
  1858. term.setTextColour(colours.grey)\
  1859. term.clearLine()\
  1860. term.write(message)\
  1861. end\
  1862. \
  1863. --[[\
  1864. Section: Generic Interfaces\
  1865. ]]--\
  1866. \
  1867. \
  1868. --[[One of my generic text printing methods, printing a message at a specified position with width and offset.\
  1869. No colour materials included.\
  1870. Params: msg:string = The message to print off-center\
  1871. height:number = The starting height of the message\
  1872. width:number = The limit as to how many characters long each line may be\
  1873. offset:number = The starting width offset of the message\
  1874. Returns:number the number of lines used in printing the message\
  1875. ]]--\
  1876. local function wprintOffCenter(msg, height, width, offset)\
  1877. local inc = 0\
  1878. local ops = 1\
  1879. while #msg - ops > width do\
  1880. local nextspace = 0\
  1881. while string.find(msg, \" \", ops + nextspace) and\
  1882. string.find(msg, \" \", ops + nextspace) - ops < width do\
  1883. nextspace = string.find(msg, \" \", nextspace + ops) + 1 - ops\
  1884. end\
  1885. local ox,oy = term.getCursorPos()\
  1886. term.setCursorPos(width/2 - (nextspace)/2 + offset, height + inc)\
  1887. inc = inc + 1\
  1888. term.write(string.sub(msg, ops, nextspace + ops - 1))\
  1889. ops = ops + nextspace\
  1890. end\
  1891. term.setCursorPos(width/2 - #string.sub(msg, ops)/2 + offset, height + inc)\
  1892. term.write(string.sub(msg, ops))\
  1893. \
  1894. return inc + 1\
  1895. end\
  1896. \
  1897. --[[Draws a message that must be clicked on or a key struck to be cleared. No options, so used for displaying\
  1898. generic information.\
  1899. Params: ctitle:string = The title of the confirm dialogue\
  1900. msg:string = The message displayed in the dialogue\
  1901. Returns:nil\
  1902. ]]--\
  1903. local function displayConfirmDialogue(ctitle, msg)\
  1904. local dialogoffset = 8\
  1905. --We actually print twice- once to get the lines, second time to print proper. Easier this way.\
  1906. local lines = wprintOffCenter(msg, 5, w - (dialogoffset+2) * 2, dialogoffset + 2)\
  1907. \
  1908. term.setCursorPos(dialogoffset, 3)\
  1909. term.setBackgroundColour(colours.grey)\
  1910. term.setTextColour(colours.lightGrey)\
  1911. term.write(string.rep(\" \", w - dialogoffset * 2))\
  1912. term.setCursorPos(dialogoffset + (w - dialogoffset * 2)/2 - #ctitle/2, 3)\
  1913. term.write(ctitle)\
  1914. term.setTextColour(colours.grey)\
  1915. term.setBackgroundColour(colours.lightGrey)\
  1916. term.setCursorPos(dialogoffset, 4)\
  1917. term.write(string.rep(\" \", w - dialogoffset * 2))\
  1918. for i=5,5+lines do\
  1919. term.setCursorPos(dialogoffset, i)\
  1920. term.write(\" \"..string.rep(\" \", w - (dialogoffset) * 2 - 2)..\" \")\
  1921. end\
  1922. wprintOffCenter(msg, 5, w - (dialogoffset+2) * 2, dialogoffset + 2)\
  1923. \
  1924. --In the event of a message, the player hits anything to continue\
  1925. while true do\
  1926. local id,key = os.pullEvent()\
  1927. if id == \"timer\" then updateTimer(key);\
  1928. elseif id == \"key\" or id == \"mouse_click\" or id == \"mouse_drag\" then break end\
  1929. end\
  1930. end\
  1931. \
  1932. --[[Produces a nice dropdown menu based on a table of strings. Depending on the position, this will auto-adjust the position\
  1933. of the menu drawn, and allows nesting of menus and sub menus. Clicking anywhere outside the menu will cancel and return nothing\
  1934. Params: x:int = the x position the menu should be displayed at\
  1935. y:int = the y position the menu should be displayed at\
  1936. options:table = the list of options available to the user, as strings or submenus (tables of strings, with a name parameter)\
  1937. Returns:string the selected menu option.\
  1938. ]]--\
  1939. local function displayDropDown(x, y, options)\
  1940. inDropDown = true\
  1941. --Figures out the dimensions of our thing\
  1942. local longestX = #options.name\
  1943. for i=1,#options do\
  1944. local currVal = options[i]\
  1945. if type(currVal) == \"table\" then currVal = currVal.name end\
  1946. \
  1947. longestX = math.max(longestX, #currVal)\
  1948. end\
  1949. local xOffset = math.max(0, longestX - ((w-2) - x) + 1)\
  1950. local yOffset = math.max(0, #options - ((h-1) - y))\
  1951. \
  1952. local clickTimes = 0\
  1953. local tid = nil\
  1954. local selection = nil\
  1955. while clickTimes < 2 do\
  1956. drawCanvas()\
  1957. drawInterface()\
  1958. \
  1959. term.setCursorPos(x-xOffset,y-yOffset)\
  1960. term.setBackgroundColour(colours.grey)\
  1961. term.setTextColour(colours.lightGrey)\
  1962. term.write(options.name..string.rep(\" \", longestX-#options.name + 2))\
  1963. \
  1964. for i=1,#options do\
  1965. term.setCursorPos(x-xOffset, y-yOffset+i)\
  1966. if i==selection and clickTimes % 2 == 0 then\
  1967. term.setBackgroundColour(colours.grey)\
  1968. term.setTextColour(colours.lightGrey)\
  1969. else\
  1970. term.setBackgroundColour(colours.lightGrey)\
  1971. term.setTextColour(colours.grey)\
  1972. end\
  1973. local currVal = options[i]\
  1974. if type(currVal) == \"table\" then\
  1975. term.write(currVal.name..string.rep(\" \", longestX-#currVal.name + 1))\
  1976. term.setBackgroundColour(colours.grey)\
  1977. term.setTextColour(colours.lightGrey)\
  1978. term.write(\">\")\
  1979. else\
  1980. term.write(currVal..string.rep(\" \", longestX-#currVal + 2))\
  1981. end\
  1982. end\
  1983. \
  1984. local id, p1, p2, p3 = os.pullEvent()\
  1985. if id == \"timer\" then\
  1986. if p1 == tid then\
  1987. clickTimes = clickTimes + 1\
  1988. if clickTimes > 2 then\
  1989. break\
  1990. else\
  1991. tid = os.startTimer(0.1)\
  1992. end\
  1993. else\
  1994. updateTimer(p1)\
  1995. drawCanvas()\
  1996. drawInterface()\
  1997. end\
  1998. elseif id == \"mouse_click\" then\
  1999. if p2 >=x-xOffset and p2 <= x-xOffset + longestX + 1 and p3 >= y-yOffset+1 and p3 <= y-yOffset+#options then\
  2000. selection = p3-(y-yOffset)\
  2001. tid = os.startTimer(0.1)\
  2002. else\
  2003. selection = \"\"\
  2004. break\
  2005. end\
  2006. end\
  2007. end\
  2008. \
  2009. if type(selection) == \"number\" then\
  2010. selection = options[selection]\
  2011. end\
  2012. \
  2013. if type(selection) == \"string\" then\
  2014. inDropDown = false\
  2015. return selection\
  2016. elseif type(selection) == \"table\" then\
  2017. return displayDropDown(x, y, selection)\
  2018. end\
  2019. end\
  2020. \
  2021. --[[A custom io.read() function with a few differences- it limits the number of characters being printed,\
  2022. waits a 1/100th of a second so any keys still in the event library are removed before input is read and\
  2023. the timer for the selectionrectangle is continuously updated during the process.\
  2024. Params: lim:int = the number of characters input is allowed\
  2025. Returns:string the inputted string, trimmed of leading and tailing whitespace\
  2026. ]]--\
  2027. local function readInput(lim)\
  2028. term.setCursorBlink(true)\
  2029. \
  2030. local inputString = \"\"\
  2031. if not lim or type(lim) ~= \"number\" or lim < 1 then lim = w - ox end\
  2032. local ox,oy = term.getCursorPos()\
  2033. --We only get input from the footer, so this is safe. Change if recycling\
  2034. term.setBackgroundColour(colours.lightGrey)\
  2035. term.setTextColour(colours.grey)\
  2036. term.write(string.rep(\" \", lim))\
  2037. term.setCursorPos(ox, oy)\
  2038. --As events queue immediately, we may get an unwanted key... this will solve that problem\
  2039. local inputTimer = os.startTimer(0.01)\
  2040. local keysAllowed = false\
  2041. \
  2042. while true do\
  2043. local id,key = os.pullEvent()\
  2044. \
  2045. if keysAllowed then\
  2046. if id == \"key\" and key == 14 and #inputString > 0 then\
  2047. inputString = string.sub(inputString, 1, #inputString-1)\
  2048. term.setCursorPos(ox + #inputString,oy)\
  2049. term.write(\" \")\
  2050. elseif id == \"key\" and key == 28 and inputString ~= string.rep(\" \", #inputString) then\
  2051. break\
  2052. elseif id == \"key\" and key == keys.leftCtrl then\
  2053. return \"\"\
  2054. elseif id == \"char\" and #inputString < lim then\
  2055. inputString = inputString..key\
  2056. end\
  2057. end\
  2058. \
  2059. if id == \"timer\" then\
  2060. if key == inputTimer then\
  2061. keysAllowed = true\
  2062. else\
  2063. updateTimer(key)\
  2064. drawCanvas()\
  2065. drawInterface()\
  2066. term.setBackgroundColour(colours.lightGrey)\
  2067. term.setTextColour(colours.grey)\
  2068. end\
  2069. end\
  2070. term.setCursorPos(ox,oy)\
  2071. term.write(inputString)\
  2072. term.setCursorPos(ox + #inputString, oy)\
  2073. end\
  2074. \
  2075. while string.sub(inputString, 1, 1) == \" \" do\
  2076. inputString = string.sub(inputString, 2, #inputString)\
  2077. end\
  2078. while string.sub(inputString, #inputString, #inputString) == \" \" do\
  2079. inputString = string.sub(inputString, 1, #inputString-1)\
  2080. end\
  2081. term.setCursorBlink(false)\
  2082. \
  2083. return inputString\
  2084. end\
  2085. \
  2086. --[[ \
  2087. Section: Image tools\
  2088. ]]--\
  2089. \
  2090. \
  2091. --[[Copies all pixels beneath the selection rectangle into the image buffer. Empty buffers are converted to nil.\
  2092. Params: removeImage:bool = true if the image is to be erased after copying, false otherwise\
  2093. Returns:nil\
  2094. ]]--\
  2095. local function copyToBuffer(removeImage)\
  2096. buffer = { width = selectrect.x2 - selectrect.x1 + 1, height = selectrect.y2 - selectrect.y1 + 1, contents = { } }\
  2097. \
  2098. local containsSomething = false\
  2099. for y=1,buffer.height do\
  2100. buffer.contents[y] = { }\
  2101. local f,l = sFrame,sFrame\
  2102. if record then f,l = 1, framecount end\
  2103. \
  2104. for fra = f,l do\
  2105. if frames[fra][selectrect.y1 + y - 1] then\
  2106. for x=1,buffer.width do\
  2107. buffer.contents[y][x] = frames[sFrame][selectrect.y1 + y - 1][selectrect.x1 + x - 1]\
  2108. if removeImage then frames[fra][selectrect.y1 + y - 1][selectrect.x1 + x - 1] = nil end\
  2109. if buffer.contents[y][x] then containsSomething = true end\
  2110. end\
  2111. end\
  2112. end\
  2113. end\
  2114. --I don't classify an empty buffer as a real buffer- confusing to the user.\
  2115. if not containsSomething then buffer = nil end\
  2116. end\
  2117. \
  2118. --[[Replaces all pixels under the selection rectangle with the image buffer (or what can be seen of it). Record-dependent.\
  2119. Params: removeBuffer:bool = true if the buffer is to be emptied after copying, false otherwise\
  2120. Returns:nil\
  2121. ]]--\
  2122. local function copyFromBuffer(removeBuffer)\
  2123. if not buffer then return end\
  2124. \
  2125. for y = 1, math.min(buffer.height,selectrect.y2-selectrect.y1+1) do\
  2126. local f,l = sFrame, sFrame\
  2127. if record then f,l = 1, framecount end\
  2128. \
  2129. for fra = f,l do\
  2130. if not frames[fra][selectrect.y1+y-1] then frames[fra][selectrect.y1+y-1] = { } end\
  2131. for x = 1, math.min(buffer.width,selectrect.x2-selectrect.x1+1) do\
  2132. frames[fra][selectrect.y1+y-1][selectrect.x1+x-1] = buffer.contents[y][x]\
  2133. end\
  2134. end\
  2135. end\
  2136. \
  2137. if removeBuffer then buffer = nil end\
  2138. end\
  2139. \
  2140. --[[Moves the entire image (or entire animation) to the specified coordinates. Record-dependent.\
  2141. Params: newx:int = the X coordinate to move the image to\
  2142. newy:int = the Y coordinate to move the image to\
  2143. Returns:nil\
  2144. ]]--\
  2145. local function moveImage(newx,newy)\
  2146. if not leflim or not toplim then return end\
  2147. if newx <=0 or newy <=0 then return end\
  2148. local f,l = sFrame,sFrame\
  2149. if record then f,l = 1,framecount end\
  2150. \
  2151. for i=f,l do\
  2152. local newlines = { }\
  2153. for y=toplim,botlim do\
  2154. local line = frames[i][y]\
  2155. if line then\
  2156. newlines[y-toplim+newy] = { }\
  2157. for x,char in pairs(line) do\
  2158. newlines[y-toplim+newy][x-leflim+newx] = char\
  2159. end\
  2160. end\
  2161. end\
  2162. --Exceptions that allow us to move the text as well\
  2163. if textEnabled then\
  2164. newlines.text = { }\
  2165. for y=toplim,botlim do\
  2166. local line = frames[i].text[y]\
  2167. if line then\
  2168. newlines.text[y-toplim+newy] = { }\
  2169. for x,char in pairs(line) do\
  2170. newlines.text[y-toplim+newy][x-leflim+newx] = char\
  2171. end\
  2172. end\
  2173. end\
  2174. \
  2175. newlines.textcol = { }\
  2176. for y=toplim,botlim do\
  2177. local line = frames[i].textcol[y]\
  2178. if line then\
  2179. newlines.textcol[y-toplim+newy] = { }\
  2180. for x,char in pairs(line) do\
  2181. newlines.textcol[y-toplim+newy][x-leflim+newx] = char\
  2182. end\
  2183. end\
  2184. end\
  2185. end\
  2186. \
  2187. frames[i] = newlines\
  2188. end\
  2189. end\
  2190. \
  2191. --[[Prompts the user to clear the current frame or all frames. Record-dependent.,\
  2192. Params: none\
  2193. Returns:nil\
  2194. ]]--\
  2195. local function clearImage()\
  2196. inMenu = true\
  2197. if not animated then\
  2198. drawMessage(\"Clear image? Y/N: \")\
  2199. elseif record then\
  2200. drawMessage(\"Clear ALL frames? Y/N: \")\
  2201. else\
  2202. drawMessage(\"Clear current frame? Y/N :\")\
  2203. end\
  2204. if string.find(string.upper(readInput(1)), \"Y\") then\
  2205. local f,l = sFrame,sFrame\
  2206. if record then f,l = 1,framecount end\
  2207. \
  2208. for i=f,l do\
  2209. frames[i] = { }\
  2210. end\
  2211. end\
  2212. inMenu = false\
  2213. end\
  2214. \
  2215. --[[A recursively called method (watch out for big calls!) in which every pixel of a set colour is\
  2216. changed to another colour. Does not work on the nil colour, for obvious reasons.\
  2217. Params: x:int = The X coordinate of the colour to flood-fill\
  2218. y:int = The Y coordinate of the colour to flood-fill\
  2219. targetColour:colour = the colour that is being flood-filled\
  2220. newColour:colour = the colour with which to replace the target colour\
  2221. Returns:nil\
  2222. ]]--\
  2223. local function floodFill(x, y, targetColour, newColour)\
  2224. if not newColour or not targetColour then return end\
  2225. local nodeList = { }\
  2226. \
  2227. table.insert(nodeList, {x = x, y = y})\
  2228. \
  2229. while #nodeList > 0 do\
  2230. local node = nodeList[1]\
  2231. if frames[sFrame][node.y] and frames[sFrame][node.y][node.x] == targetColour then\
  2232. frames[sFrame][node.y][node.x] = newColour\
  2233. table.insert(nodeList, { x = node.x + 1, y = node.y})\
  2234. table.insert(nodeList, { x = node.x, y = node.y + 1})\
  2235. if x > 1 then table.insert(nodeList, { x = node.x - 1, y = node.y}) end\
  2236. if y > 1 then table.insert(nodeList, { x = node.x, y = node.y - 1}) end\
  2237. end\
  2238. table.remove(nodeList, 1)\
  2239. end\
  2240. end\
  2241. \
  2242. --[[ \
  2243. Section: Animation Tools \
  2244. ]]--\
  2245. \
  2246. --[[Enters play mode, allowing the animation to play through. Interface is restricted to allow this,\
  2247. and method only leaves once the player leaves play mode.\
  2248. Params: none\
  2249. Returns:nil\
  2250. ]]--\
  2251. local function playAnimation()\
  2252. state = \"play\"\
  2253. selectedrect = nil\
  2254. \
  2255. local animt = os.startTimer(animtime)\
  2256. repeat\
  2257. drawCanvas()\
  2258. drawInterface()\
  2259. \
  2260. local id,key,_,y = os.pullEvent()\
  2261. \
  2262. if id==\"timer\" then\
  2263. if key == animt then\
  2264. animt = os.startTimer(animtime)\
  2265. sFrame = (sFrame % framecount) + 1\
  2266. else\
  2267. updateTimer(key)\
  2268. end\
  2269. elseif id==\"key\" then\
  2270. if key == keys.comma and animtime > 0.1 then animtime = animtime - 0.05\
  2271. elseif key == keys.period and animtime < 0.5 then animtime = animtime + 0.05\
  2272. elseif key == keys.space then state = \"paint\" end\
  2273. elseif id==\"mouse_click\" and y == h then\
  2274. state = \"paint\"\
  2275. end\
  2276. until state ~= \"play\"\
  2277. os.startTimer(0.5)\
  2278. end\
  2279. \
  2280. --[[Changes the selected frame (sFrame) to the chosen frame. If this frame is above the framecount,\
  2281. additional frames are created with a copy of the image on the selected frame.\
  2282. Params: newframe:int = the new frame to move to\
  2283. Returns:nil\
  2284. ]]--\
  2285. local function changeFrame(newframe)\
  2286. inMenu = true\
  2287. if not tonumber(newframe) then\
  2288. term.setCursorPos(1,h)\
  2289. term.setBackgroundColour(colours.lightGrey)\
  2290. term.setTextColour(colours.grey)\
  2291. term.clearLine()\
  2292. \
  2293. term.write(\"Go to frame: \")\
  2294. newframe = tonumber(readInput(2))\
  2295. if not newframe or newframe <= 0 then\
  2296. inMenu = false\
  2297. return\
  2298. end\
  2299. elseif newframe <= 0 then return end\
  2300. \
  2301. if newframe > framecount then\
  2302. for i=framecount+1,newframe do\
  2303. frames[i] = {}\
  2304. for y,line in pairs(frames[sFrame]) do\
  2305. frames[i][y] = { }\
  2306. for x,v in pairs(line) do\
  2307. frames[i][y][x] = v\
  2308. end\
  2309. end\
  2310. end\
  2311. framecount = newframe\
  2312. end\
  2313. sFrame = newframe\
  2314. inMenu = false\
  2315. end\
  2316. \
  2317. --[[Removes every frame leading after the frame passed in\
  2318. Params: frame:int the non-inclusive lower bounds of the delete\
  2319. Returns:nil\
  2320. ]]--\
  2321. local function removeFramesAfter(frame)\
  2322. inMenu = true\
  2323. if frame==framecount then return end\
  2324. drawMessage(\"Remove frames \"..(frame+1)..\"/\"..framecount..\"? Y/N :\")\
  2325. local answer = string.upper(readInput(1))\
  2326. \
  2327. if string.find(answer, string.upper(\"Y\")) ~= 1 then\
  2328. inMenu = false\
  2329. return\
  2330. end\
  2331. \
  2332. for i=frame+1, framecount do\
  2333. frames[i] = nil\
  2334. end\
  2335. framecount = frame\
  2336. inMenu = false\
  2337. end\
  2338. \
  2339. --[[\
  2340. Section: Printing Tools\
  2341. ]]--\
  2342. \
  2343. --[[Constructs a new facing to the left of the current facing\
  2344. Params: curx:number = The facing on the X axis\
  2345. curz:number = The facing on the Z axis\
  2346. hand:string = The hand of the axis (\"right\" or \"left\")\
  2347. Returns:number,number = the new facing on the X and Z axis after a left turn\
  2348. ]]--\
  2349. local function getLeft(curx, curz)\
  2350. local hand = \"left\"\
  2351. if layering == \"up\" then hand = \"right\" end\
  2352. \
  2353. if hand == \"right\" then\
  2354. if curx == 1 then return 0,-1 end\
  2355. if curx == -1 then return 0,1 end\
  2356. if curz == 1 then return 1,0 end\
  2357. if curz == -1 then return -1,0 end\
  2358. else\
  2359. if curx == 1 then return 0,1 end\
  2360. if curx == -1 then return 0,-1 end\
  2361. if curz == 1 then return -1,0 end\
  2362. if curz == -1 then return 1,0 end\
  2363. end\
  2364. end\
  2365. \
  2366. --[[Constructs a new facing to the right of the current facing\
  2367. Params: curx:number = The facing on the X axis\
  2368. curz:number = The facing on the Z axis\
  2369. hand:string = The hand of the axis (\"right\" or \"left\")\
  2370. Returns:number,number = the new facing on the X and Z axis after a right turn\
  2371. ]]--\
  2372. local function getRight(curx, curz)\
  2373. local hand = \"left\"\
  2374. if layering == \"up\" then hand = \"right\" end\
  2375. \
  2376. if hand == \"right\" then\
  2377. if curx == 1 then return 0,1 end\
  2378. if curx == -1 then return 0,-1 end\
  2379. if curz == 1 then return -1,0 end\
  2380. if curz == -1 then return 1,0 end\
  2381. else\
  2382. if curx == 1 then return 0,-1 end\
  2383. if curx == -1 then return 0,1 end\
  2384. if curz == 1 then return 1,0 end\
  2385. if curz == -1 then return -1,0 end\
  2386. end\
  2387. end\
  2388. \
  2389. \
  2390. --[[Sends out a rednet signal requesting local printers, and will listen for any responses. Printers found are added to the\
  2391. printerList (for ID's) and printerNames (for names)\
  2392. Params: nil\
  2393. Returns:nil\
  2394. ]]--\
  2395. local function locatePrinters()\
  2396. printerList = { }\
  2397. printerNames = { name = \"Printers\" }\
  2398. local oldState = state\
  2399. state = \"Locating printers, please wait... \"\
  2400. drawCanvas()\
  2401. drawInterface()\
  2402. state = oldState\
  2403. \
  2404. local modemOpened = false\
  2405. for k,v in pairs(rs.getSides()) do\
  2406. if peripheral.isPresent(v) and peripheral.getType(v) == \"modem\" then\
  2407. rednet.open(v)\
  2408. modemOpened = true\
  2409. break\
  2410. end\
  2411. end\
  2412. \
  2413. if not modemOpened then\
  2414. displayConfirmDialogue(\"Modem not found!\", \"No modem peripheral. Must have network modem to locate printers.\")\
  2415. return false\
  2416. end\
  2417. \
  2418. rednet.broadcast(\"$3DPRINT IDENTIFY\")\
  2419. \
  2420. while true do\
  2421. local id, msg = rsTimeReceive(1)\
  2422. \
  2423. if not id then break end\
  2424. if string.find(msg, \"$3DPRINT IDACK\") == 1 then\
  2425. msg = string.gsub(msg, \"$3DPRINT IDACK \", \"\")\
  2426. table.insert(printerList, id)\
  2427. table.insert(printerNames, msg)\
  2428. end\
  2429. end\
  2430. \
  2431. if #printerList == 0 then\
  2432. displayConfirmDialogue(\"Printers not found!\", \"No active printers found in proximity of this computer.\")\
  2433. return false\
  2434. else\
  2435. return true\
  2436. end\
  2437. end\
  2438. \
  2439. --[[Sends a request to the printer. Waits on a response and updates the state of the application accordingly.\
  2440. Params: command:string the command to send\
  2441. param:string a parameter to send, if any\
  2442. Returns:nil\
  2443. ]]--\
  2444. local function sendPC(command,param)\
  2445. local msg = \"$PC \"..command\
  2446. if param then msg = msg..\" \"..param end\
  2447. rednet.send(printerList[selectedPrinter], msg)\
  2448. \
  2449. while true do\
  2450. local id,key = rsTimeReceive()\
  2451. if id == printerList[selectedPrinter] then\
  2452. if key == \"$3DPRINT ACK\" then\
  2453. break\
  2454. elseif key == \"$3DPRINT DEP\" then\
  2455. displayConfirmDialogue(\"Printer Empty\", \"The printer has exhasted a material. Please refill slot \"..param..\
  2456. \", and click this message when ready to continue.\")\
  2457. rednet.send(printerList[selectedPrinter], msg)\
  2458. elseif key == \"$3DPRINT OOF\" then\
  2459. displayConfirmDialogue(\"Printer Out of Fuel\", \"The printer has no fuel. Please replace the material \"..\
  2460. \"in slot 1 with a fuel source, then click this message.\")\
  2461. rednet.send(printerList[selectedPrinter], \"$PC SS 1\")\
  2462. id,key = rsTimeReceive()\
  2463. rednet.send(printerList[selectedPrinter], \"$PC RF\")\
  2464. id,key = rsTimeReceive()\
  2465. rednet.send(printerList[selectedPrinter], msg)\
  2466. end\
  2467. end\
  2468. end\
  2469. \
  2470. --Changes to position are handled after the event has been successfully completed\
  2471. if command == \"FW\" then\
  2472. px = px + pfx\
  2473. pz = pz + pfz\
  2474. elseif command == \"BK\" then\
  2475. px = px - pfx\
  2476. pz = pz - pfz\
  2477. elseif command == \"UP\" then\
  2478. if layering == \"up\" then\
  2479. py = py + 1\
  2480. else\
  2481. py = py - 1\
  2482. end\
  2483. elseif command == \"DW\" then\
  2484. if layering == \"up\" then\
  2485. py = py - 1\
  2486. else \
  2487. py = py + 1\
  2488. end\
  2489. elseif command == \"TL\" then\
  2490. pfx,pfz = getLeft(pfx,pfz)\
  2491. elseif command == \"TR\" then\
  2492. pfx,pfz = getRight(pfx,pfz)\
  2493. elseif command == \"TU\" then\
  2494. pfx = -pfx\
  2495. pfz = -pfz\
  2496. end\
  2497. \
  2498. drawCanvas()\
  2499. drawInterface()\
  2500. end\
  2501. \
  2502. --[[A printing function that commands the printer to turn to face the desired direction, if it is not already doing so\
  2503. Params: desx:number = the normalized x direction to face\
  2504. desz:number = the normalized z direction to face\
  2505. Returns:nil\
  2506. ]]--\
  2507. local function turnToFace(desx,desz)\
  2508. if desx ~= 0 then\
  2509. if pfx ~= desx then\
  2510. local temppfx,_ = getLeft(pfx,pfz)\
  2511. if temppfx == desx then\
  2512. sendPC(\"TL\")\
  2513. elseif temppfx == -desx then\
  2514. sendPC(\"TR\")\
  2515. else\
  2516. sendPC(\"TU\")\
  2517. end\
  2518. end\
  2519. else\
  2520. print(\"on the z axis\")\
  2521. if pfz ~= desz then\
  2522. local _,temppfz = getLeft(pfx,pfz)\
  2523. if temppfz == desz then\
  2524. sendPC(\"TL\")\
  2525. elseif temppfz == -desz then\
  2526. sendPC(\"TR\")\
  2527. else\
  2528. sendPC(\"TU\")\
  2529. end\
  2530. end\
  2531. end\
  2532. end\
  2533. \
  2534. --[[Performs the print\
  2535. Params: nil\
  2536. Returns:nil\
  2537. ]]--\
  2538. local function performPrint()\
  2539. state = \"active print\"\
  2540. if layering == \"up\" then\
  2541. --An up layering starts our builder bot on the bottom left corner of our build\
  2542. px,py,pz = leflim, 0, botlim + 1\
  2543. pfx,pfz = 0,-1\
  2544. \
  2545. --We move him forward and up a bit from his original position.\
  2546. sendPC(\"FW\")\
  2547. sendPC(\"UP\")\
  2548. --For each layer that needs to be completed, we go up by one each time\
  2549. for layers=1,#frames do\
  2550. --We first decide if we're going forwards or back, depending on what side we're on\
  2551. local rowbot,rowtop,rowinc = nil,nil,nil\
  2552. if pz == botlim then\
  2553. rowbot,rowtop,rowinc = botlim,toplim,-1\
  2554. else\
  2555. rowbot,rowtop,rowinc = toplim,botlim,1\
  2556. end\
  2557. \
  2558. for rows = rowbot,rowtop,rowinc do\
  2559. --Then we decide if we're going left or right, depending on what side we're on\
  2560. local linebot,linetop,lineinc = nil,nil,nil\
  2561. if px == leflim then\
  2562. --Facing from the left side has to be easterly- it's changed here\
  2563. turnToFace(1,0)\
  2564. linebot,linetop,lineinc = leflim,riglim,1\
  2565. else\
  2566. --Facing from the right side has to be westerly- it's changed here\
  2567. turnToFace(-1,0)\
  2568. linebot,linetop,lineinc = riglim,leflim,-1\
  2569. end\
  2570. \
  2571. for lines = linebot,linetop,lineinc do\
  2572. --We move our turtle forward, placing the right material at each step\
  2573. local material = frames[py][pz][px]\
  2574. if material then\
  2575. material = math.log10(frames[py][pz][px])/math.log10(2) + 1\
  2576. sendPC(\"SS\", material)\
  2577. sendPC(\"PD\")\
  2578. end\
  2579. if lines ~= linetop then\
  2580. sendPC(\"FW\")\
  2581. end\
  2582. end\
  2583. \
  2584. --The printer then has to do a U-turn, depending on which way he's facing and\
  2585. --which way he needs to go\
  2586. local temppfx,temppfz = getLeft(pfx,pfz)\
  2587. if temppfz == rowinc and rows ~= rowtop then\
  2588. sendPC(\"TL\")\
  2589. sendPC(\"FW\")\
  2590. sendPC(\"TL\")\
  2591. elseif temppfz == -rowinc and rows ~= rowtop then\
  2592. sendPC(\"TR\")\
  2593. sendPC(\"FW\")\
  2594. sendPC(\"TR\")\
  2595. end\
  2596. end\
  2597. --Now at the end of a run he does a 180 and moves up to begin the next part of the print\
  2598. sendPC(\"TU\")\
  2599. if layers ~= #frames then\
  2600. sendPC(\"UP\")\
  2601. end\
  2602. end\
  2603. --All done- now we head back to where we started.\
  2604. if px ~= leflim then\
  2605. turnToFace(-1,0)\
  2606. while px ~= leflim do\
  2607. sendPC(\"FW\")\
  2608. end\
  2609. end\
  2610. if pz ~= botlim then\
  2611. turnToFace(0,-1)\
  2612. while pz ~= botlim do\
  2613. sendPC(\"BK\")\
  2614. end\
  2615. end\
  2616. turnToFace(0,-1)\
  2617. sendPC(\"BK\")\
  2618. while py > 0 do\
  2619. sendPC(\"DW\")\
  2620. end\
  2621. else\
  2622. --The front facing is at the top-left corner, facing south not north\
  2623. px,py,pz = leflim, botlim, 1\
  2624. pfx,pfz = 0,1\
  2625. --We move the printer to the last layer- he prints from the back forwards\
  2626. while pz < #frames do\
  2627. sendPC(\"FW\")\
  2628. end\
  2629. \
  2630. --For each layer in the frame we build our wall, the move back\
  2631. for layers = 1,#frames do\
  2632. --We first decide if we're going left or right based on our position\
  2633. local rowbot,rowtop,rowinc = nil,nil,nil\
  2634. if px == leflim then\
  2635. rowbot,rowtop,rowinc = leflim,riglim,1\
  2636. else\
  2637. rowbot,rowtop,rowinc = riglim,leflim,-1\
  2638. end\
  2639. \
  2640. for rows = rowbot,rowtop,rowinc do\
  2641. --Then we decide if we're going up or down, depending on our given altitude\
  2642. local linebot,linetop,lineinc = nil,nil,nil\
  2643. if py == botlim then\
  2644. linebot,linetop,lineinc = botlim,toplim,-1\
  2645. else\
  2646. linebot,linetop,lineinc = toplim,botlim,1\
  2647. end\
  2648. \
  2649. for lines = linebot,linetop,lineinc do\
  2650. --We move our turtle up/down, placing the right material at each step\
  2651. local material = frames[pz][py][px]\
  2652. if material then\
  2653. material = math.log10(frames[pz][py][px])/math.log10(2) + 1\
  2654. sendPC(\"SS\", material)\
  2655. sendPC(\"PF\")\
  2656. end\
  2657. if lines ~= linetop then\
  2658. if lineinc == 1 then sendPC(\"DW\")\
  2659. else sendPC(\"UP\") end\
  2660. end\
  2661. end\
  2662. \
  2663. if rows ~= rowtop then\
  2664. turnToFace(rowinc,0)\
  2665. sendPC(\"FW\")\
  2666. turnToFace(0,1)\
  2667. end\
  2668. end\
  2669. \
  2670. if layers ~= #frames then\
  2671. sendPC(\"TU\")\
  2672. sendPC(\"FW\")\
  2673. sendPC(\"TU\")\
  2674. end\
  2675. end\
  2676. --He's easy to reset\
  2677. while px ~= leflim do\
  2678. turnToFace(-1,0)\
  2679. sendPC(\"FW\")\
  2680. end\
  2681. turnToFace(0,1)\
  2682. end\
  2683. \
  2684. sendPC(\"DE\")\
  2685. \
  2686. displayConfirmDialogue(\"Print complete\", \"The 3D print was successful.\")\
  2687. end\
  2688. \
  2689. --[[ \
  2690. Section: Interface \
  2691. ]]--\
  2692. \
  2693. --[[Runs the printing interface. Allows users to find/select a printer, the style of printing to perform and to begin the operation\
  2694. Params: none\
  2695. Returns:boolean true if printing was started, false otherwse\
  2696. ]]--\
  2697. local function runPrintInterface()\
  2698. calculateMaterials()\
  2699. --There's nothing on canvas yet!\
  2700. if not botlim then\
  2701. displayConfirmDialogue(\"Cannot Print Empty Canvas\", \"There is nothing on canvas that \"..\
  2702. \"can be printed, and the operation cannot be completed.\")\
  2703. return false\
  2704. end\
  2705. --No printers nearby\
  2706. if not locatePrinters() then\
  2707. return false\
  2708. end\
  2709. \
  2710. layering = \"up\"\
  2711. requirementsDisplayed = false\
  2712. selectedPrinter = 1\
  2713. while true do\
  2714. drawCanvas()\
  2715. term.setBackgroundColour(colours.lightGrey)\
  2716. for i=1,10 do\
  2717. term.setCursorPos(1,i)\
  2718. term.clearLine()\
  2719. end\
  2720. drawInterface()\
  2721. term.setBackgroundColour(colours.lightGrey)\
  2722. term.setTextColour(colours.black)\
  2723. \
  2724. local msg = \"3D Printing\"\
  2725. term.setCursorPos(w/2-#msg/2 - 2, 1)\
  2726. term.write(msg)\
  2727. term.setBackgroundColour(colours.grey)\
  2728. term.setTextColour(colours.lightGrey)\
  2729. if(requirementsDisplayed) then\
  2730. msg = \"Count:\"\
  2731. else\
  2732. msg = \" Slot:\"\
  2733. end\
  2734. term.setCursorPos(w-3-#msg, 1)\
  2735. term.write(msg)\
  2736. term.setBackgroundColour(colours.lightGrey)\
  2737. term.setTextColour(colours.black)\
  2738. \
  2739. term.setCursorPos(7, 2)\
  2740. term.write(\"Layering\")\
  2741. drawPictureTable(layerUpIcon, 3, 3, colours.white)\
  2742. drawPictureTable(layerForwardIcon, 12, 3, colours.white)\
  2743. if layering == \"up\" then\
  2744. term.setBackgroundColour(colours.red)\
  2745. else\
  2746. term.setBackgroundColour(colours.lightGrey)\
  2747. end\
  2748. term.setCursorPos(3, 9)\
  2749. term.write(\"Upwards\")\
  2750. if layering == \"forward\" then\
  2751. term.setBackgroundColour(colours.red)\
  2752. else\
  2753. term.setBackgroundColour(colours.lightGrey)\
  2754. end\
  2755. term.setCursorPos(12, 9)\
  2756. term.write(\"Forward\")\
  2757. \
  2758. term.setBackgroundColour(colours.lightGrey)\
  2759. term.setTextColour(colours.black)\
  2760. term.setCursorPos(31, 2)\
  2761. term.write(\"Printer ID\")\
  2762. term.setCursorPos(33, 3)\
  2763. if #printerList > 1 then\
  2764. term.setBackgroundColour(colours.grey)\
  2765. term.setTextColour(colours.lightGrey)\
  2766. else\
  2767. term.setTextColour(colours.red)\
  2768. end\
  2769. term.write(\" \"..printerNames[selectedPrinter]..\" \")\
  2770. \
  2771. term.setBackgroundColour(colours.grey)\
  2772. term.setTextColour(colours.lightGrey)\
  2773. term.setCursorPos(25, 10)\
  2774. term.write(\" Cancel \")\
  2775. term.setCursorPos(40, 10)\
  2776. term.write(\" Print \")\
  2777. \
  2778. local id, p1, p2, p3 = os.pullEvent()\
  2779. \
  2780. if id == \"timer\" then\
  2781. updateTimer(p1)\
  2782. elseif id == \"mouse_click\" then\
  2783. --Layering Buttons\
  2784. if p2 >= 3 and p2 <= 9 and p3 >= 3 and p3 <= 9 then\
  2785. layering = \"up\"\
  2786. elseif p2 >= 12 and p2 <= 18 and p3 >= 3 and p3 <= 9 then\
  2787. layering = \"forward\"\
  2788. --Count/Slot\
  2789. elseif p2 >= w - #msg - 3 and p2 <= w - 3 and p3 == 1 then\
  2790. requirementsDisplayed = not requirementsDisplayed\
  2791. --Printer ID\
  2792. elseif p2 >= 33 and p2 <= 33 + #printerNames[selectedPrinter] and p3 == 3 and #printerList > 1 then\
  2793. local chosenName = displayDropDown(33, 3, printerNames)\
  2794. for i=1,#printerNames do\
  2795. if printerNames[i] == chosenName then\
  2796. selectedPrinter = i\
  2797. break;\
  2798. end\
  2799. end\
  2800. --Print and Cancel\
  2801. elseif p2 >= 25 and p2 <= 32 and p3 == 10 then\
  2802. break\
  2803. elseif p2 >= 40 and p2 <= 46 and p3 == 10 then\
  2804. rednet.send(printerList[selectedPrinter], \"$3DPRINT ACTIVATE\")\
  2805. ready = false\
  2806. while true do\
  2807. local id,msg = rsTimeReceive(10)\
  2808. \
  2809. if id == printerList[selectedPrinter] and msg == \"$3DPRINT ACTACK\" then\
  2810. ready = true\
  2811. break\
  2812. end\
  2813. end\
  2814. if ready then\
  2815. performPrint()\
  2816. break\
  2817. else\
  2818. displayConfirmDialogue(\"Printer Didn't Respond\", \"The printer didn't respond to the activation command. Check to see if it's online\")\
  2819. end\
  2820. end\
  2821. end\
  2822. end\
  2823. state = \"paint\"\
  2824. end\
  2825. \
  2826. --[[Performs a legacy save. When the dropdown menu is unavailable, it requests the user to save\
  2827. \009or exit using keyboard shortcuts rather than selecting a menu option from the dropdown.\
  2828. \009Pressing the control key again will cancel the save operation.\
  2829. \009Params: none\
  2830. \009Returns:string = the selection made\
  2831. ]]--\
  2832. local function performLegacySaveExit()\
  2833. \009local saveMsg = \"(S)ave/(E)xit?\"\
  2834. \009if w < #saveMsg then saveMsg = \"S/E?\" end\
  2835. \009\
  2836. \009term.setCursorPos(1,h)\
  2837. \009term.setBackgroundColour(colours.lightGrey)\
  2838. \009term.setTextColour(colours.grey)\
  2839. \009term.clearLine()\
  2840. \009term.write(saveMsg)\
  2841. \009\
  2842. \009while true do\
  2843. \009\009local id,val = os.pullEvent()\
  2844. \009\009if id == \"timer\" then updateTimer(val)\
  2845. \009\009elseif id == \"key\" then\
  2846. \009\009\009if val == keys.s then return \"save\" \
  2847. \009\009\009elseif val == keys.e then\
  2848. \009\009\009\009--Get rid of the extra event\
  2849. \009\009\009\009os.pullEvent(\"char\")\
  2850. \009\009\009\009return \"exit\"\
  2851. \009\009\009elseif val == keys.leftCtrl then return nil\
  2852. \009\009\009end\
  2853. \009\009end\
  2854. \009end\
  2855. end\
  2856. \
  2857. --[[This function changes the current paint program to another tool or mode, depending on user input. Handles\
  2858. any necessary changes in logic involved in that.\
  2859. Params: mode:string = the name of the mode to change to\
  2860. Returns:nil\
  2861. ]]--\
  2862. local function performSelection(mode)\
  2863. if not mode or mode == \"\" then return\
  2864. \
  2865. elseif mode == \"help\" and helpAvailable then\
  2866. drawHelpScreen()\
  2867. \
  2868. elseif mode == \"blueprint on\" then\
  2869. blueprint = true\
  2870. \009\009\009\009for i=1,#ddModes[2] do if ddModes[2][i] == \"blueprint on\" then\
  2871. \009\009\009\009\009ddModes[2][i] = \"blueprint off\"\
  2872. \009\009\009\009end end\
  2873. \
  2874. elseif mode == \"blueprint off\" then\
  2875. blueprint = false\
  2876. \009\009\009\009for i=1,#ddModes[2] do if ddModes[2][i] == \"blueprint off\" then\
  2877. \009\009\009\009\009ddModes[2][i] = \"blueprint on\"\
  2878. \009\009\009\009end end\
  2879. \
  2880. elseif mode == \"layers on\" then\
  2881. layerDisplay = true\
  2882. \009\009\009\009for i=1,#ddModes[2] do if ddModes[2][i] == \"layers on\" then\
  2883. \009\009\009\009\009ddModes[2][i] = \"layers off\"\
  2884. \009\009\009\009end end\
  2885. \
  2886. elseif mode == \"layers off\" then\
  2887. layerDisplay = false\
  2888. \009\009\009\009for i=1,#ddModes[2] do if ddModes[2][i] == \"layers off\" then\
  2889. \009\009\009\009\009ddModes[2][i] = \"layers on\"\
  2890. \009\009\009\009end end\
  2891. \
  2892. elseif mode == \"direction on\" then\
  2893. printDirection = true\
  2894. \009\009\009\009for i=1,#ddModes[2] do if ddModes[2][i] == \"direction on\" then\
  2895. \009\009\009\009\009ddModes[2][i] = \"direction off\"\
  2896. \009\009\009\009end end\
  2897. \
  2898. elseif mode == \"direction off\" then\
  2899. printDirection = false\
  2900. \009\009\009\009for i=1,#ddModes[2] do if ddModes[2][i] == \"direction off\" then\
  2901. \009\009\009\009\009ddModes[2][i] = \"direction on\"\
  2902. \009\009\009\009end end\
  2903. \009\009\
  2904. \009\009elseif mode == \"hide interface\" then\
  2905. \009\009\009\009interfaceHidden = true\
  2906. \009\009\009\
  2907. \009\009elseif mode == \"show interface\" then\
  2908. \009\009\009\009interfaceHidden = false\
  2909. \
  2910. elseif mode == \"go to\" then\
  2911. changeFrame()\
  2912. \
  2913. elseif mode == \"remove\" then\
  2914. removeFramesAfter(sFrame)\
  2915. \
  2916. elseif mode == \"play\" then\
  2917. playAnimation()\
  2918. \
  2919. elseif mode == \"copy\" then\
  2920. if selectrect and selectrect.x1 ~= selectrect.x2 then\
  2921. copyToBuffer(false)\
  2922. end\
  2923. \
  2924. elseif mode == \"cut\" then\
  2925. if selectrect and selectrect.x1 ~= selectrect.x2 then\
  2926. copyToBuffer(true)\
  2927. end\
  2928. \
  2929. elseif mode == \"paste\" then\
  2930. if selectrect and selectrect.x1 ~= selectrect.x2 then\
  2931. copyFromBuffer(false)\
  2932. end\
  2933. \
  2934. elseif mode == \"hide\" then\
  2935. selectrect = nil\
  2936. if state == \"select\" then state = \"corner select\" end\
  2937. \009\009\009 \
  2938. elseif mode == \"alpha to left\" then\
  2939. if lSel then alphaC = lSel end\
  2940. \
  2941. elseif mode == \"alpha to right\" then\
  2942. if rSel then alphaC = rSel end\
  2943. \
  2944. elseif mode == \"record\" then\
  2945. record = not record\
  2946. \
  2947. elseif mode == \"clear\" then\
  2948. if state==\"select\" then buffer = nil\
  2949. else clearImage() end\
  2950. \
  2951. elseif mode == \"select\" then\
  2952. if state==\"corner select\" or state==\"select\" then\
  2953. state = \"paint\"\
  2954. elseif selectrect and selectrect.x1 ~= selectrect.x2 then\
  2955. state = \"select\"\
  2956. else\
  2957. state = \"corner select\"\
  2958. end\
  2959. \
  2960. elseif mode == \"print\" then\
  2961. state = \"print\"\
  2962. runPrintInterface()\
  2963. state = \"paint\"\
  2964. \
  2965. elseif mode == \"save\" then\
  2966. if animated then saveNFA(sPath)\
  2967. elseif textEnabled then saveNFT(sPath)\
  2968. else saveNFP(sPath) end\
  2969. \
  2970. elseif mode == \"exit\" then\
  2971. isRunning = false\
  2972. \
  2973. elseif mode ~= state then state = mode\
  2974. else state = \"paint\"\
  2975. end\
  2976. end\
  2977. \
  2978. --[[The main function of the program, reads and handles all events and updates them accordingly. Mode changes,\
  2979. painting to the canvas and general selections are done here.\
  2980. Params: none\
  2981. Returns:nil\
  2982. ]]--\
  2983. local function handleEvents()\
  2984. recttimer = os.startTimer(0.5)\
  2985. while isRunning do\
  2986. drawCanvas()\
  2987. if not interfaceHidden then drawInterface() end\
  2988. \
  2989. if state == \"text\" then\
  2990. term.setCursorPos(textCurX - sx, textCurY - sy)\
  2991. term.setCursorBlink(true)\
  2992. end\
  2993. \
  2994. local id,p1,p2,p3 = os.pullEvent()\
  2995. term.setCursorBlink(false)\
  2996. if id==\"timer\" then\
  2997. updateTimer(p1)\
  2998. elseif (id==\"mouse_click\" or id==\"mouse_drag\") and not interfaceHidden then\
  2999. if p2 >=w-1 and p3 < #column+1 then\
  3000. \009\009\009\009\009\009\009\009local off = 0\
  3001. \009\009\009\009\009\009\009\009local cansel = true\
  3002. \009\009\009\009\009\009\009\009if h < #column + 2 then\
  3003. \009\009\009\009\009\009\009\009\009if p3 == 1 then \
  3004. \009\009\009\009\009\009\009\009\009\009if columnoffset > 0 then columnoffset = columnoffset-1 end\
  3005. \009\009\009\009\009\009\009\009\009\009cansel = false\
  3006. \009\009\009\009\009\009\009\009\009elseif p3 == h-2 then\
  3007. \009\009\009\009\009\009\009\009\009\009if columnoffset < #column-(h-4)+1 then columnoffset = columnoffset+1 end\
  3008. \009\009\009\009\009\009\009\009\009\009cansel = false\
  3009. \009\009\009\009\009\009\009\009\009else\
  3010. \009\009\009\009\009\009\009\009\009\009off = columnoffset - 1\
  3011. \009\009\009\009\009\009\009\009\009end\
  3012. \009\009\009\009\009\009\009\009end\
  3013. \009\009\009\009\009\009\009\009--This rather handily accounts for the nil case (p3+off=#column+1)\
  3014. \009\009\009\009\009\009\009\009if p1==1 and cansel then lSel = column[p3+off]\
  3015. elseif p1==2 and cansel then rSel = column[p3+off] end\
  3016. elseif p2 >=w-1 and p3==#column+1 then\
  3017. if p1==1 then lSel = nil\
  3018. else rSel = nil end\
  3019. elseif p2==w-1 and p3==h and animated then\
  3020. changeFrame(sFrame-1)\
  3021. elseif p2==w and p3==h and animated then\
  3022. changeFrame(sFrame+1)\
  3023. elseif p2 <= #ddModes.name + 2 and p3==h and mainAvailable then\
  3024. local sel = displayDropDown(1, h-1, ddModes)\
  3025. performSelection(sel)\
  3026. elseif p2 < w-1 and p3 <= h-1 then\
  3027. if state==\"pippette\" then\
  3028. if p1==1 then\
  3029. if frames[sFrame][p3+sy] and frames[sFrame][p3+sy][p2+sx] then\
  3030. lSel = frames[sFrame][p3+sy][p2+sx]\
  3031. end\
  3032. elseif p1==2 then\
  3033. if frames[sFrame][p3+sy] and frames[sFrame][p3+sy][p2+sx] then\
  3034. rSel = frames[sFrame][p3+sy][p2+sx]\
  3035. end\
  3036. end\
  3037. elseif state==\"move\" then\
  3038. updateImageLims(record)\
  3039. moveImage(p2,p3)\
  3040. elseif state==\"flood\" then\
  3041. if p1 == 1 and lSel and frames[sFrame][p3+sy] then\
  3042. floodFill(p2,p3,frames[sFrame][p3+sy][p2+sx],lSel)\
  3043. elseif p1 == 2 and rSel and frames[sFrame][p3+sy] then\
  3044. floodFill(p2,p3,frames[sFrame][p3+sy][p2+sx],rSel)\
  3045. end\
  3046. elseif state==\"corner select\" then\
  3047. if not selectrect then\
  3048. selectrect = { x1=p2+sx, x2=p2+sx, y1=p3+sy, y2=p3+sy }\
  3049. elseif selectrect.x1 ~= p2+sx and selectrect.y1 ~= p3+sy then\
  3050. if p2+sx<selectrect.x1 then selectrect.x1 = p2+sx\
  3051. else selectrect.x2 = p2+sx end\
  3052. \
  3053. if p3+sy<selectrect.y1 then selectrect.y1 = p3+sy\
  3054. else selectrect.y2 = p3+sy end\
  3055. \
  3056. state = \"select\"\
  3057. end\
  3058. elseif state==\"textpaint\" then\
  3059. local paintCol = lSel\
  3060. if p1 == 2 then paintCol = rSel end\
  3061. if frames[sFrame].textcol[p3+sy] then\
  3062. frames[sFrame].textcol[p3+sy][p2+sx] = paintCol\
  3063. end\
  3064. elseif state==\"text\" then\
  3065. textCurX = p2 + sx\
  3066. textCurY = p3 + sy\
  3067. elseif state==\"select\" then\
  3068. if p1 == 1 then\
  3069. local swidth = selectrect.x2 - selectrect.x1\
  3070. local sheight = selectrect.y2 - selectrect.y1\
  3071. \
  3072. selectrect.x1 = p2 + sx\
  3073. selectrect.y1 = p3 + sy\
  3074. selectrect.x2 = p2 + swidth + sx\
  3075. selectrect.y2 = p3 + sheight + sy\
  3076. elseif p1 == 2 and p2 < w-2 and p3 < h-1 and boxdropAvailable then\
  3077. inMenu = true\
  3078. local sel = displayDropDown(p2, p3, srModes)\
  3079. inMenu = false\
  3080. performSelection(sel)\
  3081. end\
  3082. else\
  3083. local f,l = sFrame,sFrame\
  3084. if record then f,l = 1,framecount end\
  3085. local bwidth = 0\
  3086. if state == \"brush\" then bwidth = brushsize-1 end\
  3087. \
  3088. for i=f,l do\
  3089. for x = math.max(1,p2+sx-bwidth),p2+sx+bwidth do\
  3090. for y = math.max(1,p3+sy-bwidth), p3+sy+bwidth do\
  3091. if math.abs(x - (p2+sx)) + math.abs(y - (p3+sy)) <= bwidth then\
  3092. if not frames[i][y] then frames[i][y] = {} end\
  3093. if p1==1 then frames[i][y][x] = lSel\
  3094. else frames[i][y][x] = rSel end\
  3095. \
  3096. if textEnabled then\
  3097. if not frames[i].text[y] then frames[i].text[y] = { } end\
  3098. if not frames[i].textcol[y] then frames[i].textcol[y] = { } end\
  3099. end\
  3100. end\
  3101. end\
  3102. end\
  3103. end\
  3104. end\
  3105. end\
  3106. elseif id==\"char\" then\
  3107. if state==\"text\" then\
  3108. if not frames[sFrame][textCurY] then frames[sFrame][textCurY] = { } end\
  3109. if not frames[sFrame].text[textCurY] then frames[sFrame].text[textCurY] = { } end\
  3110. if not frames[sFrame].textcol[textCurY] then frames[sFrame].textcol[textCurY] = { } end\
  3111. \
  3112. if rSel then frames[sFrame][textCurY][textCurX] = rSel end\
  3113. if lSel then\
  3114. frames[sFrame].text[textCurY][textCurX] = p1\
  3115. frames[sFrame].textcol[textCurY][textCurX] = lSel\
  3116. else\
  3117. frames[sFrame].text[textCurY][textCurX] = \" \"\
  3118. frames[sFrame].textcol[textCurY][textCurX] = rSel\
  3119. end\
  3120. \
  3121. textCurX = textCurX+1\
  3122. if textCurX > w + sx - 2 then sx = textCurX - w + 2 end\
  3123. elseif tonumber(p1) then\
  3124. if state==\"brush\" and tonumber(p1) > 1 then\
  3125. brushsize = tonumber(p1)\
  3126. elseif animated and tonumber(p1) > 0 then\
  3127. changeFrame(tonumber(p1))\
  3128. end\
  3129. end\
  3130. elseif id==\"key\" then\
  3131. \009\009\009\009\009\009--All standard interface methods are locked when the interface is hidden\
  3132. \009\009\009\009\009\009if interfaceHidden then\
  3133. \009\009\009\009\009\009\009if p1==keys.grave then\
  3134. \009\009\009\009\009\009\009\009performSelection(\"show interface\") \
  3135. \009\009\009\009\009\009\009end\
  3136. --Text needs special handlers (all other keyboard shortcuts are of course reserved for typing)\
  3137. elseif state==\"text\" then\
  3138. if p1==keys.backspace and textCurX > 1 then\
  3139. textCurX = textCurX-1\
  3140. if frames[sFrame].text[textCurY] then\
  3141. frames[sFrame].text[textCurY][textCurX] = nil\
  3142. frames[sFrame].textcol[textCurY][textCurX] = nil\
  3143. end\
  3144. if textCurX < sx then sx = textCurX end\
  3145. elseif p1==keys.left and textCurX > 1 then\
  3146. textCurX = textCurX-1\
  3147. if textCurX-1 < sx then sx = textCurX-1 end\
  3148. elseif p1==keys.right then\
  3149. textCurX = textCurX+1\
  3150. if textCurX > w + sx - 2 then sx = textCurX - w + 2 end\
  3151. elseif p1==keys.up and textCurY > 1 then\
  3152. textCurY = textCurY-1\
  3153. if textCurY-1 < sy then sy = textCurY-1 end\
  3154. elseif p1==keys.down then\
  3155. textCurY = textCurY+1\
  3156. if textCurY > h + sy - 1 then sy = textCurY - h + 1 end\
  3157. end\
  3158. \
  3159. elseif p1==keys.leftCtrl then\
  3160. local sel = nil\
  3161. \009\009\009\009\009\009\009\009if mainAvailable then \
  3162. \009\009\009\009\009\009\009\009\009sel = displayDropDown(1, h-1, ddModes[#ddModes])\
  3163. \009\009\009\009\009\009\009\009else sel = performLegacySaveExit() end\
  3164. performSelection(sel)\
  3165. elseif p1==keys.leftAlt then\
  3166. local sel = displayDropDown(1, h-1, ddModes[1])\
  3167. performSelection(sel)\
  3168. elseif p1==keys.h then\
  3169. performSelection(\"help\")\
  3170. elseif p1==keys.x then\
  3171. performSelection(\"cut\")\
  3172. elseif p1==keys.c then\
  3173. performSelection(\"copy\")\
  3174. elseif p1==keys.v then\
  3175. performSelection(\"paste\")\
  3176. elseif p1==keys.z then\
  3177. performSelection(\"clear\")\
  3178. elseif p1==keys.s then\
  3179. performSelection(\"select\")\
  3180. elseif p1==keys.tab then\
  3181. performSelection(\"hide\")\
  3182. elseif p1==keys.q then\
  3183. performSelection(\"alpha to left\")\
  3184. elseif p1==keys.w then\
  3185. performSelection(\"alpha to right\")\
  3186. elseif p1==keys.f then\
  3187. performSelection(\"flood\")\
  3188. elseif p1==keys.b then\
  3189. performSelection(\"brush\")\
  3190. elseif p1==keys.m then\
  3191. performSelection(\"move\")\
  3192. elseif p1==keys.backslash and animated then\
  3193. performSelection(\"record\")\
  3194. elseif p1==keys.p then\
  3195. performSelection(\"pippette\")\
  3196. elseif p1==keys.g and animated then\
  3197. performSelection(\"go to\")\
  3198. \009\009\009\009\009\009elseif p1==keys.grave then \
  3199. \009\009\009\009\009\009\009\009performSelection(\"hide interface\")\
  3200. elseif p1==keys.period and animated then\
  3201. changeFrame(sFrame+1)\
  3202. elseif p1==keys.comma and animated then\
  3203. changeFrame(sFrame-1)\
  3204. elseif p1==keys.r and animated then\
  3205. performSelection(\"remove\")\
  3206. elseif p1==keys.space and animated then\
  3207. performSelection(\"play\")\
  3208. elseif p1==keys.t and textEnabled then\
  3209. performSelection(\"text\")\
  3210. sleep(0.01)\
  3211. elseif p1==keys.y and textEnabled then\
  3212. performSelection(\"textpaint\")\
  3213. elseif p1==keys.left then\
  3214. if state == \"move\" and toplim then\
  3215. updateImageLims(record)\
  3216. if toplim and leflim then\
  3217. moveImage(leflim-1,toplim)\
  3218. end\
  3219. elseif state==\"select\" and selectrect.x1 > 1 then\
  3220. selectrect.x1 = selectrect.x1-1\
  3221. selectrect.x2 = selectrect.x2-1\
  3222. elseif sx > 0 then sx=sx-1 end\
  3223. elseif p1==keys.right then\
  3224. if state == \"move\" then\
  3225. updateImageLims(record)\
  3226. if toplim and leflim then\
  3227. moveImage(leflim+1,toplim)\
  3228. end\
  3229. elseif state==\"select\" then\
  3230. selectrect.x1 = selectrect.x1+1\
  3231. selectrect.x2 = selectrect.x2+1\
  3232. else sx=sx+1 end\
  3233. elseif p1==keys.up then\
  3234. if state == \"move\" then\
  3235. updateImageLims(record)\
  3236. if toplim and leflim then\
  3237. moveImage(leflim,toplim-1)\
  3238. end\
  3239. elseif state==\"select\" and selectrect.y1 > 1 then\
  3240. selectrect.y1 = selectrect.y1-1\
  3241. selectrect.y2 = selectrect.y2-1\
  3242. elseif sy > 0 then sy=sy-1 end\
  3243. elseif p1==keys.down then\
  3244. if state == \"move\" then\
  3245. updateImageLims(record)\
  3246. if toplim and leflim then\
  3247. moveImage(leflim,toplim+1)\
  3248. end\
  3249. elseif state==\"select\" then\
  3250. selectrect.y1 = selectrect.y1+1\
  3251. selectrect.y2 = selectrect.y2+1\
  3252. else sy=sy+1 end\
  3253. end\
  3254. end\
  3255. end\
  3256. end\
  3257. \
  3258. --[[\
  3259. Section: Main \
  3260. ]]--\
  3261. \
  3262. --The first thing done is deciding what features we actually have, given the screen size\
  3263. if w < 7 or h < 4 then\
  3264. \009--NPaintPro simply doesn't work at certain configurations\
  3265. \009shell.run(\"clear\")\
  3266. \009print(\"Screen too small\")\
  3267. \009os.pullEvent(\"key\")\
  3268. \009return\
  3269. end\
  3270. --And reduces the number of features in others.\
  3271. determineAvailableServices()\
  3272. \
  3273. --There is no b&w support for NPP.\
  3274. if not term.isColour() then\
  3275. \009shell.run(\"clear\")\
  3276. \009print(\"NPaintPro\\nBy NitrogenFingers\\n\\nNPaintPro can only be run on advanced \"..\
  3277. \009\"computers. Please reinstall on an advanced computer.\")\
  3278. return\
  3279. end\
  3280. \
  3281. --Taken almost directly from edit (for consistency)\
  3282. local tArgs = {...}\
  3283. \
  3284. --Command line options can appear before the file path to specify the file format\
  3285. local ca = 1\
  3286. while ca <= #tArgs do\
  3287. \009if tArgs[ca] == \"-a\" then animated = true\
  3288. \009elseif tArgs[ca] == \"-t\" then textEnabled = true\
  3289. \009elseif tArgs[ca] == \"-d\" then interfaceHidden = true\
  3290. \009elseif string.sub(tArgs[ca], 1, 1) == \"-\" then\
  3291. \009\009print(\"Unrecognized option: \"..tArgs[ca])\
  3292. \009\009return\
  3293. \009else break end\
  3294. \009ca = ca + 1\
  3295. end\
  3296. \
  3297. --Presently, animations and text files are not supported\
  3298. if animated and textEnabled then\
  3299. print(\"No support for animated text files- cannot have both -a and -t\")\
  3300. \009return\
  3301. end\
  3302. \
  3303. --Filepaths must be added if the screen is too small\
  3304. if #tArgs < ca then\
  3305. \009if not filemakerAvailable then\
  3306. \009\009print(\"Usage: npaintpro [-a,-t,-d] <path>\")\
  3307. \009\009return\
  3308. \009else\
  3309. \009\009--Otherwise do the logo draw early, to determine the file.\
  3310. \009\009drawLogo()\
  3311. \009\009if not runFileMaker() then return end\
  3312. \009end\
  3313. else\
  3314. \009if not interfaceHidden then drawLogo() end\
  3315. \009sPath = shell.resolve(tArgs[ca])\
  3316. end\
  3317. \
  3318. if fs.exists(sPath) then\
  3319. if fs.isDir(sPath) then\
  3320. print(\"Cannot edit a directory.\")\
  3321. return\
  3322. elseif string.find(sPath, \".nfp\") ~= #sPath-3 and string.find(sPath, \".nfa\") ~= #sPath-3 and\
  3323. string.find(sPath, \".nft\") ~= #sPath-3 then\
  3324. print(\"Can only edit .nfp, .nft and .nfa files:\",string.find(sPath, \".nfp\"),#sPath-3)\
  3325. return\
  3326. end\
  3327. \
  3328. if string.find(sPath, \".nfa\") == #sPath-3 then\
  3329. animated = true\
  3330. end\
  3331. \
  3332. if string.find(sPath, \".nft\") == #sPath-3 then\
  3333. textEnabled = true\
  3334. end \
  3335. \
  3336. if string.find(sPath, \".nfp\") == #sPath-3 and animated then\
  3337. print(\"Convert to nfa? Y/N\")\
  3338. if string.find(string.lower(io.read()), \"y\") then\
  3339. local nsPath = string.sub(sPath, 1, #sPath-1)..\"a\"\
  3340. fs.move(sPath, nsPath)\
  3341. sPath = nsPath\
  3342. else\
  3343. animated = false\
  3344. end\
  3345. end\
  3346. \
  3347. --Again this is possible, I just haven't done it. Maybe I will?\
  3348. if textEnabled and (string.find(sPath, \".nfp\") == #sPath-3 or string.find(sPath, \".nfa\") == #sPath-3) then\
  3349. print(\"Cannot convert to nft\")\
  3350. end\
  3351. else\
  3352. if not animated and not textEnabled and string.find(sPath, \".nfp\") ~= #sPath-3 then\
  3353. sPath = sPath..\".nfp\"\
  3354. elseif animated and string.find(sPath, \".nfa\") ~= #sPath-3 then\
  3355. sPath = sPath..\".nfa\"\
  3356. elseif textEnabled and string.find(sPath, \".nft\") ~= #sPath-3 then\
  3357. sPath = sPath..\".nft\"\
  3358. end\
  3359. end\
  3360. \
  3361. init()\
  3362. handleEvents()\
  3363. \
  3364. term.setBackgroundColour(colours.black)\
  3365. shell.run(\"clear\")",
  3366. "7777777777777777777777777\
  3367. 7ccccccccccccccccccccccc7\
  3368. 7ccccccccccccccccccccccc7\
  3369. 7ccccccccccccccccccccccc7\
  3370. 7ccccccccccccccccccccccc7\
  3371. 7ccccccccccccccccccccccc7\
  3372. 7ccccccccccccccccccccccc7\
  3373. 7ccccccccccccccccccccccc7\
  3374. 7777777777777777777777777",
  3375. "{\
  3376. blocksY = {\
  3377. 9,\
  3378. 9,\
  3379. 9,\
  3380. 9,\
  3381. 9,\
  3382. 9,\
  3383. 9,\
  3384. 9,\
  3385. 9,\
  3386. 8,\
  3387. 7,\
  3388. 5,\
  3389. 6,\
  3390. 4,\
  3391. 3,\
  3392. 2,\
  3393. 1,\
  3394. 1,\
  3395. 1,\
  3396. 1,\
  3397. 1,\
  3398. 1,\
  3399. 1,\
  3400. 1,\
  3401. 1,\
  3402. 1,\
  3403. 1,\
  3404. 1,\
  3405. 1,\
  3406. 9,\
  3407. 9,\
  3408. 9,\
  3409. 9,\
  3410. 9,\
  3411. 9,\
  3412. 9,\
  3413. 9,\
  3414. 9,\
  3415. 9,\
  3416. 9,\
  3417. 9,\
  3418. 9,\
  3419. 9,\
  3420. 9,\
  3421. 9,\
  3422. 9,\
  3423. 8,\
  3424. 7,\
  3425. 6,\
  3426. 5,\
  3427. 3,\
  3428. 4,\
  3429. 2,\
  3430. 1,\
  3431. 1,\
  3432. 1,\
  3433. 1,\
  3434. 1,\
  3435. 1,\
  3436. 1,\
  3437. 1,\
  3438. 1,\
  3439. 1,\
  3440. 1,\
  3441. 1,\
  3442. },\
  3443. blocksX = {\
  3444. 1,\
  3445. 2,\
  3446. 3,\
  3447. 4,\
  3448. 6,\
  3449. 5,\
  3450. 7,\
  3451. 9,\
  3452. 8,\
  3453. 1,\
  3454. 1,\
  3455. 1,\
  3456. 1,\
  3457. 1,\
  3458. 1,\
  3459. 1,\
  3460. 1,\
  3461. 2,\
  3462. 3,\
  3463. 4,\
  3464. 6,\
  3465. 7,\
  3466. 5,\
  3467. 8,\
  3468. 9,\
  3469. 11,\
  3470. 12,\
  3471. 10,\
  3472. 13,\
  3473. 10,\
  3474. 11,\
  3475. 13,\
  3476. 12,\
  3477. 14,\
  3478. 16,\
  3479. 15,\
  3480. 17,\
  3481. 18,\
  3482. 20,\
  3483. 21,\
  3484. 19,\
  3485. 22,\
  3486. 24,\
  3487. 25,\
  3488. 22,\
  3489. 23,\
  3490. 25,\
  3491. 25,\
  3492. 25,\
  3493. 25,\
  3494. 25,\
  3495. 25,\
  3496. 25,\
  3497. 25,\
  3498. 24,\
  3499. 23,\
  3500. 22,\
  3501. 21,\
  3502. 20,\
  3503. 19,\
  3504. 18,\
  3505. 17,\
  3506. 16,\
  3507. 15,\
  3508. 14,\
  3509. },\
  3510. doorsX = {},\
  3511. spawnY = 1,\
  3512. spawnX = 1,\
  3513. laddersX = {\
  3514. 7,\
  3515. },\
  3516. doorsY = {},\
  3517. laddersY = {\
  3518. 8,\
  3519. },\
  3520. ladderDestination = {\
  3521. \"house2\",\
  3522. },\
  3523. }",
  3524. "--Editor (yaay make your own levels based on this \"engine\")\
  3525. --Again, written by me c:\
  3526. --(I know, I'm shit at programming but hey why not C:)\
  3527. \
  3528. --Variablen\
  3529. _ver = 0.1\
  3530. _verstr = \"0.1\"\
  3531. pfad = \"\"\
  3532. \
  3533. lvlData = {\
  3534. \009spawnPosX=\"1\",\
  3535. \009spawnPosY=\"1\",\
  3536. \009blocksX = {\
  3537. \
  3538. \009},\
  3539. \009blocksY = {\
  3540. \
  3541. \009}\
  3542. }\
  3543. \
  3544. --Funktionen\
  3545. function clear(bg, fg)\
  3546. \009term.setCursorPos(1,1)\
  3547. \009term.setBackgroundColor(bg)\
  3548. \009term.setTextColor(fg)\
  3549. \009term.clear()\
  3550. end\
  3551. \
  3552. function menu()\
  3553. \009clear(colors.black, colors.white)\
  3554. \009term.setBackgroundColor(colors.lime)\
  3555. \009term.setCursorPos(25, 6)\
  3556. \009term.write(\"NEW\")\
  3557. \009term.setCursorPos(24, 8)\
  3558. \009term.write(\"LOAD\")\
  3559. \009term.setCursorPos(24, 10)\
  3560. \009term.write(\"EXIT\")\
  3561. \009menu = true\
  3562. \009while menu do\
  3563. \009\009local event, button, x, y = os.pullEventRaw(\"mouse_click\")\
  3564. \009\009if button == 1 and x >= 25 and x <= 27 and y == 6 then\
  3565. \009\009\009menu = false\
  3566. \009\009\009menu2()\
  3567. \009\009end\
  3568. \009end\
  3569. end\
  3570. \
  3571. function menu2()\
  3572. \009clear(colors.black, colors.white)\
  3573. \009oldTerm = term.native()\
  3574. \009local graywindow = window.create(oldTerm, 15, 5, 20, 5)\
  3575. \009term.redirect(graywindow)\
  3576. \009term.setBackgroundColor(colors.lightGray)\
  3577. \009term.setCursorPos(1,1)\
  3578. \009term.clear()\
  3579. \009local textBox = window.create(term.current(), 2, 2, 18, 1)\
  3580. \009textBox.setBackgroundColor(colors.gray)\
  3581. \009textBox.setTextColor(colors.lime)\
  3582. \009textBox.clear()\
  3583. \009textBox.write(\"Enter Name/Desti..\")\
  3584. \009term.setBackgroundColor(colors.gray)\
  3585. \009term.setTextColor(colors.white)\
  3586. \009term.setCursorPos(2, 4)\
  3587. \009term.write(\"New\")\
  3588. \009term.setCursorPos(16, 4)\
  3589. \009term.write(\"Load\")\
  3590. \009menu = true\
  3591. \009while menu do\
  3592. \009\009local event, button, x, y = os.pullEvent(\"mouse_click\")\
  3593. \009\009if button == 1 and x >= 16 and x <= 34 and y == 6 then\
  3594. \009\009\009term.redirect(textBox)\
  3595. \009\009\009term.clear()\
  3596. \009\009\009term.setCursorPos(1,1)\
  3597. \009\009\009local eingabe = read()\
  3598. \009\009\009pfad = eingabe\
  3599. \009\009\009term.setCursorPos(1,1)\
  3600. \009\009\009term.clear()\
  3601. \009\009\009term.write(eingabe)\
  3602. \009\009\009term.redirect(graywindow)\
  3603. \009\009elseif button == 1 and x >= 16 and x <= 18 and y == 8 then\
  3604. \009\009\009if fs.exists(pfad..\".lvl\") then\
  3605. \009\009\009\009textBox.setCursorPos(1,1)\
  3606. \009\009\009\009textBox.clear()\
  3607. \009\009\009\009textBox.setTextColor(colors.red)\
  3608. \009\009\009\009textBox.write(\"Already exists.\")\
  3609. \009\009\009\009textBox.setTextColor(colors.lime)\
  3610. \009\009\009elseif pfad == \"\" or pfad == nil then\
  3611. \009\009\009\009textBox.setCursorPos(1,1)\
  3612. \009\009\009\009textBox.clear()\
  3613. \009\009\009\009textBox.setTextColor(colors.red)\
  3614. \009\009\009\009textBox.write(\"Please fill in.\")\
  3615. \009\009\009\009textBox.setTextColor(colors.lime)\
  3616. \009\009\009else\
  3617. \009\009\009\009term.redirect(oldTerm)\
  3618. \009\009\009\009term.setCursorPos(1,1)\
  3619. \009\009\009\009clear(colors.black, colors.white)\
  3620. \009\009\009\009menu = false\
  3621. \009\009\009\009print(\"Please draw your LevelDESIGN.\")\
  3622. \009\009\009\009print(\"This will be that, what you see when playing the level.\")\
  3623. \009\009\009\009sleep(3)\
  3624. \009\009\009\009shell.run(\"paint \"..pfad..\".lvl\")\
  3625. \009\009\009\009\
  3626. \009\009\009\009editor()\
  3627. \009\009\009end\
  3628. \009\009elseif button == 1 and x >= 30 and x <= 34 and y == 8 then\
  3629. \009\009\009if fs.exists(pfad..\".lvl\") and fs.exists(pfad..\".lvlDat\") then\
  3630. \009\009\009\009term.redirect(oldTerm)\
  3631. \009\009\009\009menu = false\
  3632. \009\009\009\009editor(\"true\")\
  3633. \009\009\009elseif fs.exists(pfad..\".lvl\") then\
  3634. \009\009\009\009term.redirect(oldTerm)\
  3635. \009\009\009\009menu = false\
  3636. \009\009\009\009editor(\"false\")\
  3637. \009\009\009else\
  3638. \009\009\009\009textBox.setCursorPos(1,1)\
  3639. \009\009\009\009textBox.clear()\
  3640. \009\009\009\009textBox.setTextColor(colors.red)\
  3641. \009\009\009\009textBox.write(\"Doesn't exist.\")\
  3642. \009\009\009\009textBox.setTextColor(colors.lime)\
  3643. \009\009\009end\
  3644. \009\009end\
  3645. \009end\
  3646. \
  3647. end\
  3648. \
  3649. function loadDat()\
  3650. \009local file = fs.open(pfad..\".lvlDat\",\"r\")\
  3651. \009local inhalt = file.readAll()\
  3652. \009lvlData = textutils.unserialize(inhalt)\
  3653. \009file.close()\
  3654. end\
  3655. \
  3656. function editor(loadData)\
  3657. \009clear(colors.black, colors.white)\
  3658. \009lvl = paintutils.loadImage(pfad..\".lvl\")\
  3659. \009paintutils.drawImage(lvl, 1, 1)\
  3660. \009if loadData == \"true\" then\
  3661. \009\009loadDat()\
  3662. \009\009reloadMap()\
  3663. \009end\
  3664. \009term.setCursorPos(1,19)\
  3665. \009term.setBackgroundColor(colors.lightGray)\
  3666. \009term.clearLine()\
  3667. \009term.setBackgroundColor(colors.lime)\
  3668. \009term.write(\" Block \")\
  3669. \009term.setBackgroundColor(colors.lightGray)\
  3670. \009term.write(\" \")\
  3671. \009term.setBackgroundColor(colors.lime)\
  3672. \009term.write(\" Spawn \")\
  3673. \009term.setBackgroundColor(colors.lightGray)\
  3674. \009term.write(\" \")\
  3675. \009term.setBackgroundColor(colors.lime)\
  3676. \009term.write(\" Remove \")\
  3677. \009editing = true\
  3678. \009while editing do\
  3679. \009\009local event, button, x, y = os.pullEventRaw()\
  3680. \009\009if event == \"mouse_click\" and button == 1 and x >= 1 and x <= 7 and y == 19 then\
  3681. \009\009\009currentBlock = \"block\"\
  3682. \009\009elseif event == \"mouse_click\" and button == 1 and x >= 9 and x <= 15 and y == 19 then\
  3683. \009\009\009currentBlock = \"spawn\"\
  3684. \009\009elseif event == \"mouse_click\" and button == 1 and x >= 17 and x <= 24 and y == 19 then\
  3685. \009\009\009currentBlock = \"remove\"\
  3686. \009\009elseif event == \"mouse_click\" and button == 1 and x >= 1 and x <= 51 and y >= 1 and y <= 18 then\
  3687. \009\009\009if currentBlock == \"block\" then\
  3688. \009\009\009\009term.setCursorPos(x, y)\
  3689. \009\009\009\009term.setBackgroundColor(colors.brown)\
  3690. \009\009\009\009term.setTextColor(colors.white)\
  3691. \009\009\009\009term.write(\"B\")\
  3692. \009\009\009\009local x = tostring(x)\
  3693. \009\009\009\009local y = tostring(y)\
  3694. \009\009\009\009table.insert(lvlData.blocksX, x)\
  3695. \009\009\009\009table.insert(lvlData.blocksY, y)\
  3696. \009\009\009\009reloadMap()\
  3697. \009\009\009elseif currentBlock == \"spawn\" then\
  3698. \009\009\009\009term.setCursorPos(x, y)\
  3699. \009\009\009\009term.setBackgroundColor(colors.blue)\
  3700. \009\009\009\009term.setTextColor(colors.white)\
  3701. \009\009\009\009term.write(\"S\")\
  3702. \009\009\009\009local x = tostring(x)\
  3703. \009\009\009\009local y = tostring(y)\
  3704. \009\009\009\009lvlData.spawnPosX = x\
  3705. \009\009\009\009lvlData.spawnPosY = y\
  3706. \009\009\009\009reloadMap()\
  3707. \009\009\009elseif currentBlock == \"remove\" then\
  3708. \009\009\009\009for _, block in ipairs(lvlData.blocksX) do\
  3709. \009\009\009\009\009local blockY = tonumber(lvlData.blocksY[_])\
  3710. \009\009\009\009\009local block = tonumber(block)\
  3711. \009\009\009\009\009if x == block and y == blockY then\
  3712. \009\009\009\009\009\009lvlData.blocksX[_] = nil\
  3713. \009\009\009\009\009\009lvlData.blocksY[_] = nil\
  3714. \009\009\009\009\009end\
  3715. \009\009\009\009end\
  3716. \009\009\009\009if x == lvlData.spawnPosX and y == lvlData.spawnPosY then\
  3717. \009\009\009\009\009lvlData.spawnPosX = \"1\"\
  3718. \009\009\009\009\009lvlData.spawnPosY = \"1\"\
  3719. \009\009\009\009end\
  3720. \009\009\009\009reloadMap()\
  3721. \009\009\009end\
  3722. \009\009elseif event == \"key\" and button == keys.s then\
  3723. \009\009\009local file = fs.open(pfad..\".lvlDat\",\"w\")\
  3724. \009\009\009local lvlData = textutils.serialize(lvlData)\
  3725. \009\009\009file.write(lvlData)\
  3726. \009\009\009file.close()\
  3727. \009\009\009clear(colors.black, colors.white)\
  3728. \
  3729. \009\009\009editing = false\
  3730. \009\009\009break\
  3731. \009\009end\
  3732. \
  3733. \009end\
  3734. end\
  3735. \
  3736. function reloadMap()\
  3737. \009clear(colors.black, colors.white)\
  3738. \009term.setCursorPos(1,19)\
  3739. \009term.setBackgroundColor(colors.lightGray)\
  3740. \009term.clearLine()\
  3741. \009term.setBackgroundColor(colors.lime)\
  3742. \009term.write(\" Block \")\
  3743. \009term.setBackgroundColor(colors.lightGray)\
  3744. \009term.write(\" \")\
  3745. \009term.setBackgroundColor(colors.lime)\
  3746. \009term.write(\" Spawn \")\
  3747. \009term.setBackgroundColor(colors.lightGray)\
  3748. \009term.write(\" \")\
  3749. \009term.setBackgroundColor(colors.lime)\
  3750. \009term.write(\" Remove \")\
  3751. \009term.setCursorPos(1,1)\
  3752. \009paintutils.drawImage(lvl, 1, 1)\
  3753. \009for _, block in ipairs(lvlData.blocksX) do\
  3754. \009\009local blockY = tonumber(lvlData.blocksY[_])\
  3755. \009\009local block = tonumber(block)\
  3756. \009\009term.setCursorPos(block, blockY)\
  3757. \009\009term.setBackgroundColor(colors.brown)\
  3758. \009\009term.setTextColor(colors.white)\
  3759. \009\009term.write(\"B\")\
  3760. \009end\
  3761. \009local sX = tonumber(lvlData.spawnPosX)\
  3762. \009local sY = tonumber(lvlData.spawnPosY)\
  3763. \009term.setCursorPos(sX, sY)\
  3764. \009term.setBackgroundColor(colors.blue)\
  3765. \009term.setTextColor(colors.white)\
  3766. \009term.write(\"S\")\
  3767. end\
  3768. \
  3769. \
  3770. \
  3771. --Code\
  3772. menu2()",
  3773. "7777777777777777777777777\
  3774. 7ccccccccccccccccccccccc7\
  3775. 7ccccccccccccccccccccccc7\
  3776. 7ccccccccccccccccccccccc7\
  3777. 7ccccccccccccccccccccccc7\
  3778. 7ccccccccccccccccccccccc7\
  3779. 7ccccccccccccccccccccccc7\
  3780. 7ccccccccccccccccccccccc7\
  3781. 7777777777777777777777777",
  3782. "{\
  3783. blocksY = {\
  3784. 9,\
  3785. 9,\
  3786. 9,\
  3787. 9,\
  3788. 9,\
  3789. 9,\
  3790. 9,\
  3791. 9,\
  3792. 9,\
  3793. 9,\
  3794. 9,\
  3795. 9,\
  3796. 9,\
  3797. 9,\
  3798. 9,\
  3799. 9,\
  3800. 9,\
  3801. 9,\
  3802. 9,\
  3803. 9,\
  3804. 9,\
  3805. 9,\
  3806. 9,\
  3807. 9,\
  3808. 9,\
  3809. 8,\
  3810. 7,\
  3811. 6,\
  3812. 5,\
  3813. 4,\
  3814. 3,\
  3815. 2,\
  3816. 1,\
  3817. 1,\
  3818. 1,\
  3819. 1,\
  3820. 1,\
  3821. 1,\
  3822. 1,\
  3823. 1,\
  3824. 1,\
  3825. 1,\
  3826. 1,\
  3827. 1,\
  3828. 1,\
  3829. 1,\
  3830. 1,\
  3831. 1,\
  3832. 1,\
  3833. 1,\
  3834. 1,\
  3835. 1,\
  3836. 1,\
  3837. 1,\
  3838. 1,\
  3839. 1,\
  3840. 1,\
  3841. 2,\
  3842. 3,\
  3843. 4,\
  3844. 5,\
  3845. 6,\
  3846. 8,\
  3847. 7,\
  3848. },\
  3849. blocksX = {\
  3850. 1,\
  3851. 2,\
  3852. 3,\
  3853. 4,\
  3854. 5,\
  3855. 6,\
  3856. 7,\
  3857. 8,\
  3858. 9,\
  3859. 10,\
  3860. 11,\
  3861. 12,\
  3862. 13,\
  3863. 14,\
  3864. 15,\
  3865. 16,\
  3866. 17,\
  3867. 18,\
  3868. 19,\
  3869. 20,\
  3870. 21,\
  3871. 22,\
  3872. 24,\
  3873. 25,\
  3874. 23,\
  3875. 25,\
  3876. 25,\
  3877. 25,\
  3878. 25,\
  3879. 25,\
  3880. 25,\
  3881. 25,\
  3882. 25,\
  3883. 24,\
  3884. 23,\
  3885. 22,\
  3886. 21,\
  3887. 20,\
  3888. 19,\
  3889. 18,\
  3890. 17,\
  3891. 16,\
  3892. 15,\
  3893. 14,\
  3894. 13,\
  3895. 12,\
  3896. 11,\
  3897. 10,\
  3898. 9,\
  3899. 8,\
  3900. 7,\
  3901. 1,\
  3902. 2,\
  3903. 3,\
  3904. 4,\
  3905. 5,\
  3906. 6,\
  3907. 1,\
  3908. 1,\
  3909. 1,\
  3910. 1,\
  3911. 1,\
  3912. 1,\
  3913. 1,\
  3914. },\
  3915. doorsX = {},\
  3916. spawnY = 1,\
  3917. spawnX = 1,\
  3918. laddersX = {\
  3919. 9,\
  3920. },\
  3921. doorsY = {},\
  3922. laddersY = {\
  3923. 2,\
  3924. },\
  3925. ladderDestination = {\
  3926. \"house1\",\
  3927. },\
  3928. }",
  3929. "--Editor (yaay make your own levels based on this \"engine\")\
  3930. --Again, written by me c:\
  3931. --(I know, I'm shit at programming but hey why not C:)\
  3932. \
  3933. --Variablen\
  3934. _ver = 0.1\
  3935. _verstr = \"0.1\"\
  3936. pfad = \"\"\
  3937. \
  3938. lvlData = {\
  3939. \009spawnPosX=\"1\",\
  3940. \009spawnPosY=\"1\",\
  3941. \009blocksX = {\
  3942. \
  3943. \009},\
  3944. \009blocksY = {\
  3945. \
  3946. \009}\
  3947. }\
  3948. \
  3949. --Funktionen\
  3950. function clear(bg, fg)\
  3951. \009term.setCursorPos(1,1)\
  3952. \009term.setBackgroundColor(bg)\
  3953. \009term.setTextColor(fg)\
  3954. \009term.clear()\
  3955. end\
  3956. \
  3957. function menu()\
  3958. \009clear(colors.black, colors.white)\
  3959. \009term.setBackgroundColor(colors.lime)\
  3960. \009term.setCursorPos(25, 6)\
  3961. \009term.write(\"NEW\")\
  3962. \009term.setCursorPos(24, 8)\
  3963. \009term.write(\"LOAD\")\
  3964. \009term.setCursorPos(24, 10)\
  3965. \009term.write(\"EXIT\")\
  3966. \009menu = true\
  3967. \009while menu do\
  3968. \009\009local event, button, x, y = os.pullEventRaw(\"mouse_click\")\
  3969. \009\009if button == 1 and x >= 25 and x <= 27 and y == 6 then\
  3970. \009\009\009menu = false\
  3971. \009\009\009menu2()\
  3972. \009\009end\
  3973. \009end\
  3974. end\
  3975. \
  3976. function menu2()\
  3977. \009clear(colors.black, colors.white)\
  3978. \009oldTerm = term.native()\
  3979. \009local graywindow = window.create(oldTerm, 15, 5, 20, 5)\
  3980. \009term.redirect(graywindow)\
  3981. \009term.setBackgroundColor(colors.lightGray)\
  3982. \009term.setCursorPos(1,1)\
  3983. \009term.clear()\
  3984. \009local textBox = window.create(term.current(), 2, 2, 18, 1)\
  3985. \009textBox.setBackgroundColor(colors.gray)\
  3986. \009textBox.setTextColor(colors.lime)\
  3987. \009textBox.clear()\
  3988. \009textBox.write(\"Enter Name/Desti..\")\
  3989. \009term.setBackgroundColor(colors.gray)\
  3990. \009term.setTextColor(colors.white)\
  3991. \009term.setCursorPos(2, 4)\
  3992. \009term.write(\"New\")\
  3993. \009term.setCursorPos(16, 4)\
  3994. \009term.write(\"Load\")\
  3995. \009menu = true\
  3996. \009while menu do\
  3997. \009\009local event, button, x, y = os.pullEvent(\"mouse_click\")\
  3998. \009\009if button == 1 and x >= 16 and x <= 34 and y == 6 then\
  3999. \009\009\009term.redirect(textBox)\
  4000. \009\009\009term.clear()\
  4001. \009\009\009term.setCursorPos(1,1)\
  4002. \009\009\009local eingabe = read()\
  4003. \009\009\009pfad = eingabe\
  4004. \009\009\009term.setCursorPos(1,1)\
  4005. \009\009\009term.clear()\
  4006. \009\009\009term.write(eingabe)\
  4007. \009\009\009term.redirect(graywindow)\
  4008. \009\009elseif button == 1 and x >= 16 and x <= 18 and y == 8 then\
  4009. \009\009\009if fs.exists(pfad..\".lvl\") then\
  4010. \009\009\009\009textBox.setCursorPos(1,1)\
  4011. \009\009\009\009textBox.clear()\
  4012. \009\009\009\009textBox.setTextColor(colors.red)\
  4013. \009\009\009\009textBox.write(\"Already exists.\")\
  4014. \009\009\009\009textBox.setTextColor(colors.lime)\
  4015. \009\009\009elseif pfad == \"\" or pfad == nil then\
  4016. \009\009\009\009textBox.setCursorPos(1,1)\
  4017. \009\009\009\009textBox.clear()\
  4018. \009\009\009\009textBox.setTextColor(colors.red)\
  4019. \009\009\009\009textBox.write(\"Please fill in.\")\
  4020. \009\009\009\009textBox.setTextColor(colors.lime)\
  4021. \009\009\009else\
  4022. \009\009\009\009term.redirect(oldTerm)\
  4023. \009\009\009\009term.setCursorPos(1,1)\
  4024. \009\009\009\009clear(colors.black, colors.white)\
  4025. \009\009\009\009menu = false\
  4026. \009\009\009\009print(\"Please draw your LevelDESIGN.\")\
  4027. \009\009\009\009print(\"This will be that, what you see when playing the level.\")\
  4028. \009\009\009\009sleep(3)\
  4029. \009\009\009\009shell.run(\"paint \"..pfad..\".lvl\")\
  4030. \009\009\009\009\
  4031. \009\009\009\009editor()\
  4032. \009\009\009end\
  4033. \009\009elseif button == 1 and x >= 30 and x <= 34 and y == 8 then\
  4034. \009\009\009if fs.exists(pfad..\".lvl\") and fs.exists(pfad..\".lvlDat\") then\
  4035. \009\009\009\009term.redirect(oldTerm)\
  4036. \009\009\009\009menu = false\
  4037. \009\009\009\009editor(\"true\")\
  4038. \009\009\009elseif fs.exists(pfad..\".lvl\") then\
  4039. \009\009\009\009term.redirect(oldTerm)\
  4040. \009\009\009\009menu = false\
  4041. \009\009\009\009editor(\"false\")\
  4042. \009\009\009else\
  4043. \009\009\009\009textBox.setCursorPos(1,1)\
  4044. \009\009\009\009textBox.clear()\
  4045. \009\009\009\009textBox.setTextColor(colors.red)\
  4046. \009\009\009\009textBox.write(\"Doesn't exist.\")\
  4047. \009\009\009\009textBox.setTextColor(colors.lime)\
  4048. \009\009\009end\
  4049. \009\009end\
  4050. \009end\
  4051. \
  4052. end\
  4053. \
  4054. function loadDat()\
  4055. \009local file = fs.open(pfad..\".lvlDat\",\"r\")\
  4056. \009local inhalt = file.readAll()\
  4057. \009lvlData = textutils.unserialize(inhalt)\
  4058. \009file.close()\
  4059. end\
  4060. \
  4061. function editor(loadData)\
  4062. \009clear(colors.black, colors.white)\
  4063. \009lvl = paintutils.loadImage(pfad..\".lvl\")\
  4064. \009paintutils.drawImage(lvl, 1, 1)\
  4065. \009if loadData == \"true\" then\
  4066. \009\009loadDat()\
  4067. \009\009reloadMap()\
  4068. \009end\
  4069. \009term.setCursorPos(1,19)\
  4070. \009term.setBackgroundColor(colors.lightGray)\
  4071. \009term.clearLine()\
  4072. \009term.setBackgroundColor(colors.lime)\
  4073. \009term.write(\" Block \")\
  4074. \009term.setBackgroundColor(colors.lightGray)\
  4075. \009term.write(\" \")\
  4076. \009term.setBackgroundColor(colors.lime)\
  4077. \009term.write(\" Spawn \")\
  4078. \009term.setBackgroundColor(colors.lightGray)\
  4079. \009term.write(\" \")\
  4080. \009term.setBackgroundColor(colors.lime)\
  4081. \009term.write(\" Remove \")\
  4082. \009editing = true\
  4083. \009while editing do\
  4084. \009\009local event, button, x, y = os.pullEventRaw()\
  4085. \009\009if event == \"mouse_click\" and button == 1 and x >= 1 and x <= 7 and y == 19 then\
  4086. \009\009\009currentBlock = \"block\"\
  4087. \009\009elseif event == \"mouse_click\" and button == 1 and x >= 9 and x <= 15 and y == 19 then\
  4088. \009\009\009currentBlock = \"spawn\"\
  4089. \009\009elseif event == \"mouse_click\" and button == 1 and x >= 17 and x <= 24 and y == 19 then\
  4090. \009\009\009currentBlock = \"remove\"\
  4091. \009\009elseif event == \"mouse_click\" and button == 1 and x >= 1 and x <= 51 and y >= 1 and y <= 18 then\
  4092. \009\009\009if currentBlock == \"block\" then\
  4093. \009\009\009\009term.setCursorPos(x, y)\
  4094. \009\009\009\009term.setBackgroundColor(colors.brown)\
  4095. \009\009\009\009term.setTextColor(colors.white)\
  4096. \009\009\009\009term.write(\"B\")\
  4097. \009\009\009\009local x = tostring(x)\
  4098. \009\009\009\009local y = tostring(y)\
  4099. \009\009\009\009table.insert(lvlData.blocksX, x)\
  4100. \009\009\009\009table.insert(lvlData.blocksY, y)\
  4101. \009\009\009\009reloadMap()\
  4102. \009\009\009elseif currentBlock == \"spawn\" then\
  4103. \009\009\009\009term.setCursorPos(x, y)\
  4104. \009\009\009\009term.setBackgroundColor(colors.blue)\
  4105. \009\009\009\009term.setTextColor(colors.white)\
  4106. \009\009\009\009term.write(\"S\")\
  4107. \009\009\009\009local x = tostring(x)\
  4108. \009\009\009\009local y = tostring(y)\
  4109. \009\009\009\009lvlData.spawnPosX = x\
  4110. \009\009\009\009lvlData.spawnPosY = y\
  4111. \009\009\009\009reloadMap()\
  4112. \009\009\009elseif currentBlock == \"remove\" then\
  4113. \009\009\009\009for _, block in ipairs(lvlData.blocksX) do\
  4114. \009\009\009\009\009local blockY = tonumber(lvlData.blocksY[_])\
  4115. \009\009\009\009\009local block = tonumber(block)\
  4116. \009\009\009\009\009if x == block and y == blockY then\
  4117. \009\009\009\009\009\009lvlData.blocksX[_] = nil\
  4118. \009\009\009\009\009\009lvlData.blocksY[_] = nil\
  4119. \009\009\009\009\009end\
  4120. \009\009\009\009end\
  4121. \009\009\009\009if x == lvlData.spawnPosX and y == lvlData.spawnPosY then\
  4122. \009\009\009\009\009lvlData.spawnPosX = \"1\"\
  4123. \009\009\009\009\009lvlData.spawnPosY = \"1\"\
  4124. \009\009\009\009end\
  4125. \009\009\009\009reloadMap()\
  4126. \009\009\009end\
  4127. \009\009elseif event == \"key\" and button == keys.s then\
  4128. \009\009\009local file = fs.open(pfad..\".lvlDat\",\"w\")\
  4129. \009\009\009local lvlData = textutils.serialize(lvlData)\
  4130. \009\009\009file.write(lvlData)\
  4131. \009\009\009file.close()\
  4132. \009\009\009clear(colors.black, colors.white)\
  4133. \
  4134. \009\009\009editing = false\
  4135. \009\009\009break\
  4136. \009\009end\
  4137. \
  4138. \009end\
  4139. end\
  4140. \
  4141. function reloadMap()\
  4142. \009clear(colors.black, colors.white)\
  4143. \009term.setCursorPos(1,19)\
  4144. \009term.setBackgroundColor(colors.lightGray)\
  4145. \009term.clearLine()\
  4146. \009term.setBackgroundColor(colors.lime)\
  4147. \009term.write(\" Block \")\
  4148. \009term.setBackgroundColor(colors.lightGray)\
  4149. \009term.write(\" \")\
  4150. \009term.setBackgroundColor(colors.lime)\
  4151. \009term.write(\" Spawn \")\
  4152. \009term.setBackgroundColor(colors.lightGray)\
  4153. \009term.write(\" \")\
  4154. \009term.setBackgroundColor(colors.lime)\
  4155. \009term.write(\" Remove \")\
  4156. \009term.setCursorPos(1,1)\
  4157. \009paintutils.drawImage(lvl, 1, 1)\
  4158. \009for _, block in ipairs(lvlData.blocksX) do\
  4159. \009\009local blockY = tonumber(lvlData.blocksY[_])\
  4160. \009\009local block = tonumber(block)\
  4161. \009\009term.setCursorPos(block, blockY)\
  4162. \009\009term.setBackgroundColor(colors.brown)\
  4163. \009\009term.setTextColor(colors.white)\
  4164. \009\009term.write(\"B\")\
  4165. \009end\
  4166. \009local sX = tonumber(lvlData.spawnPosX)\
  4167. \009local sY = tonumber(lvlData.spawnPosY)\
  4168. \009term.setCursorPos(sX, sY)\
  4169. \009term.setBackgroundColor(colors.blue)\
  4170. \009term.setTextColor(colors.white)\
  4171. \009term.write(\"S\")\
  4172. end\
  4173. \
  4174. \
  4175. \
  4176. --Code\
  4177. menu2()",
  4178. "7777777777777777777777777\
  4179. 7ccccccccccccccccccccccc7\
  4180. 7ccccccccccccccccccccccc7\
  4181. 7ccccccccccccccccccccccc7\
  4182. 7ccccccccccccccccccccccc7\
  4183. 7ccccccccccccccccccccccc7\
  4184. 7ccccccccccccccccccccccc7\
  4185. 7ccccccccccccccccccccccc7\
  4186. 7777777777777777777777777",
  4187. }
  4188. folders = {
  4189. "server",
  4190. "server/maps",
  4191. "server/saves",
  4192. "server/maps/house1",
  4193. "server/maps/house2",
  4194. }
  4195. local args = {...}
  4196. if #args < 1 then
  4197. print('Usage: <file> <destination>')
  4198. else
  4199. args[1] = args[1]..'/' for _, folder in ipairs(folders) do
  4200. fs.makeDir(args[1]..folder)
  4201. end
  4202. for _, file in ipairs(files) do
  4203. local file = fs.open(args[1]..file, 'w')
  4204. file.write(fileData[_])
  4205. file.close()
  4206. end
  4207. end
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!