yzrhnd

Untitled

Nov 1st, 2016
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.90 KB | None | 0 0
  1. -- 逆ピラミッド
  2.  
  3. local num = 10
  4. local r = 10
  5.  
  6. local lnum=0
  7.  
  8. turtle.select(1)
  9.  
  10. for i = 1,10 do
  11. turtle.up()
  12. end
  13.  
  14. -- ここから
  15.  
  16. for k=-1*r + 3 ,r do
  17.  
  18. turtle.up()
  19.  
  20. num = r - math.abs(k)
  21.  
  22. -- 移動
  23. for j =1,num do
  24. turtle.back()
  25. end
  26. turtle.turnRight()
  27. for j =1,num do
  28. turtle.forward()
  29. end
  30. turtle.turnLeft()
  31.  
  32.  
  33.  
  34. for j =-1*num ,num do
  35. for i = -1*num,num do
  36.  
  37. placeFlag = 0
  38.  
  39. if i >=0 and j >= 0 then
  40. if (num)^2 <= (j+0.5)^2 + (i+0.5)^2 then
  41. if (num)^2 >= (j-0.5)^2 + (i-0.5)^2 then
  42. placeFlag = 1
  43. end
  44. end
  45. elseif i < 0 and j >= 0 then
  46. if (num)^2 <= (j+0.5)^2 + (i-0.5)^2 then
  47. if (num)^2 >= (j-0.5)^2 + (i+0.5)^2 then
  48. placeFlag = 1
  49. end
  50. end
  51. elseif i >= 0 and j < 0 then
  52. if (num)^2 <= (j-0.5)^2 + (i+0.5)^2 then
  53. if (num)^2 >= (j+0.5)^2 + (i-0.5)^2 then
  54. placeFlag = 1
  55. end
  56. end
  57. else
  58. if (num)^2 <= (j-0.5)^2 + (i-0.5)^2 then
  59. if (num)^2 >= (j+0.5)^2 + (i+0.5)^2 then
  60. placeFlag = 1
  61. end
  62. end
  63.  
  64. end
  65.  
  66. if placeFlag == 1 then
  67. if turtle.getItemCount() == 0 then
  68. selectNum = turtle.getSelectedSlot()
  69. if selectNum == 16 then
  70. selectNum = 0
  71. end
  72. turtle.select(selectNum+1)
  73. end
  74. turtle.placeDown()
  75. end
  76.  
  77.  
  78. turtle.forward()
  79. end
  80.  
  81. for i = -1*num,num do
  82. turtle.back()
  83. end
  84.  
  85. turtle.turnRight()
  86. turtle.forward()
  87. turtle.turnLeft()
  88.  
  89. end
  90.  
  91. turtle.turnLeft()
  92. for j =0,num do
  93. turtle.forward()
  94. end
  95. turtle.turnRight()
  96. for j =1,num do
  97. turtle.forward()
  98. end
  99.  
  100. end
Advertisement
Add Comment
Please, Sign In to add comment