Advertisement
Puding999

setup

Nov 27th, 2014
255
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.94 KB | None | 0 0
  1.  
  2.  
  3. -- ########################## -- Funktionen -- ############################ --
  4. local function s(...) return sleep(...) end
  5. local function w(...) return write(...) end
  6. local function p(...) return print(...) end
  7. local function tw(...) return term.write(...) end
  8. local function scp(...) return term.setCursorPos(...) end
  9. local function sbc(...) return term.setBackgroundColor(...) end
  10. local function stc(...) return term.setTextColor(...) end
  11. local function tc(...) return term.clear(...) end
  12. local function tcl(...) return term.clearLine() end
  13. local function scb(...) return term.setCursorBlink(...) end
  14. local function ts(...) return term.scroll(...) end
  15. local function r(...) return shell.run(...) end
  16. local function para(...) return parallel.waitForAny(...) end
  17. local function sw(...) return textutils.slowWrite(...) end
  18. local function sp(...) return textutils.slowPrint(...) end
  19. -- ########################## -- Einstellungen -- ############################ --
  20. function setup()
  21. sbc(8)
  22. r("clear")
  23. stc(1)
  24. for shutdown1=0,2 do
  25. sbc(8)
  26. scp(20,9)
  27. w([[: Udvozlunk!]])
  28. sbc(8)
  29. s(0.1)
  30. scp(20,9)
  31. w([[/ Udvozlunk!]])
  32. sbc(8)
  33. s(0.1)
  34. scp(20,9)
  35. w([[- Udvozlunk!]])
  36. sbc(8)
  37. s(0.1)
  38. scp(20,9)
  39. w([[\ Udvozlunk!]])
  40. sbc(8)
  41. s(0.1)
  42. end
  43. sbc(128)
  44. r("clear")
  45. s(0.1)
  46. sbc(256)
  47. r("clear")
  48. s(0.1)
  49. sbc(1)
  50. r("clear")
  51. s(0.1)
  52. r("GombiOS/Programme/Desktop")
  53. end
  54. function terminate()
  55. while true do
  56. local events = os.pullEventRaw()
  57. if events == "terminate" then
  58. os.reboot()
  59. end
  60. end
  61. end
  62. para(terminate, setup)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement