tPlatform.lua
206 lines · 6.0 KB
{program="tPlatform",version="1.10",date="2016-02-28"}
Copy & run
wget https://perlytiara.github.io/turtles.tips/raw/programs/Kaikaku/tPlatform.lua
| 1 | --{program="tPlatform",version="1.10",date="2016-02-28"} |
| 2 | --------------------------------------- |
| 3 | -- tPlatform by Kaikaku |
| 4 | -- 2016-02-28, v1.10 checks fuel |
| 5 | -- 2015-03-28, v1.03 select slot 1 |
| 6 | -- 2015-03-21, v1.02 code tidied up |
| 7 | -- 2013-11-09, v1.01 more compact |
| 8 | -- 2013-11-02, v1.00 initial |
| 9 | --------------------------------------- |
| 10 | |
| 11 | --------------------------------------- |
| 12 | ---- ASSUMPTIONS/PRECONDITIONS -------- |
| 13 | --------------------------------------- |
| 14 | -- Turtle movement: |
| 15 | -- - building space must be empty |
| 16 | |
| 17 | --------------------------------------- |
| 18 | ---- PARAMETERS ----------------------- |
| 19 | --------------------------------------- |
| 20 | local cSleepTime=10 |
| 21 | |
| 22 | --------------------------------------- |
| 23 | ---- VARIABLES ------------------------ |
| 24 | --------------------------------------- |
| 25 | local userX=3 userY=1 |
| 26 | local blnAskForParameters=true |
| 27 | local blnDirectionX=true |
| 28 | local currentSlot=1 |
| 29 | |
| 30 | --------------------------------------- |
| 31 | ---- tArgs ---------------------------- |
| 32 | --------------------------------------- |
| 33 | local tArgs = {...} |
| 34 | if #tArgs == 2 then -- no error check |
| 35 | blnAskForParameters=false |
| 36 | userX=tonumber(tArgs[1]) |
| 37 | userY=tonumber(tArgs[2]) |
| 38 | end |
| 39 | |
| 40 | --------------------------------------- |
| 41 | -- basic functions for turtle control - |
| 42 | --------------------------------------- |
| 43 | local function mats() |
| 44 | if turtle.getItemCount(currentSlot)==0 then |
| 45 | currentSlot=currentSlot+1 |
| 46 | if currentSlot>16 then |
| 47 | currentSlot=1 |
| 48 | print("Out of materials, please restock!") |
| 49 | print(" Sleeping for "..cSleepTime.." sec ...") |
| 50 | os.sleep(cSleepTime) |
| 51 | end |
| 52 | turtle.select(currentSlot) |
| 53 | mats() |
| 54 | end |
| 55 | end |
| 56 | |
| 57 | local function gf() while not turtle.forward() do end end |
| 58 | local function gb() while not turtle.back() do end end |
| 59 | local function gu() while not turtle.up() do end end |
| 60 | local function gd() while not turtle.down() do end end |
| 61 | local function gl() while not turtle.turnLeft() do end end |
| 62 | local function gr() while not turtle.turnRight() do end end |
| 63 | local function df() turtle.dig() end |
| 64 | local function du() turtle.digUp() end |
| 65 | local function dd() turtle.digDown() end |
| 66 | local function pf() mats() while not turtle.place() do end end |
| 67 | local function pu() mats() while not turtle.placeUp() do end end |
| 68 | local function pd() mats() while not turtle.placeDown() do end end |
| 69 | local function sf() turtle.suck() end |
| 70 | local function su() turtle.suckUp() end |
| 71 | local function sd() turtle.suckDown() end |
| 72 | local function Df() turtle.drop() end |
| 73 | local function Du() turtle.dropUp() end |
| 74 | local function Dd() turtle.dropDown() end |
| 75 | local function ss(s) turtle.select(s) end |
| 76 | |
| 77 | local function askForInputText(textt) |
| 78 | local at="" |
| 79 | -- check prompting texts |
| 80 | if textt==nil then textt="Enter text:" end |
| 81 | |
| 82 | -- ask for input |
| 83 | write(textt) |
| 84 | at=read() |
| 85 | return at |
| 86 | end |
| 87 | |
| 88 | |
| 89 | local function checkFuel() |
| 90 | local tmp=turtle.getFuelLevel() |
| 91 | return tmp |
| 92 | end |
| 93 | |
| 94 | ------------------------------------------------------------------------------ |
| 95 | -- main ---------------------------------------------------------------------- |
| 96 | ------------------------------------------------------------------------------ |
| 97 | |
| 98 | -- step 0 usage hints |
| 99 | term.clear() term.setCursorPos(1,1) |
| 100 | print("+-------------------------------------+") |
| 101 | print("| tPlatform v1.10, by Kaikaku |") |
| 102 | print("+-------------------------------------+") |
| 103 | print("| Put in building materials in any |") |
| 104 | print("| slot(s) and press enter. |") |
| 105 | print("| Platform size: Enter x and y to |") |
| 106 | print("| determine size. Either when asked |") |
| 107 | print("| by program or with function call, |") |
| 108 | print("| e.g., tPlatform 5 10 |") |
| 109 | print("| If turtle runs out of materials it |") |
| 110 | print("| waits until resupplied. |") |
| 111 | print("+-------------------------------------+") |
| 112 | |
| 113 | -- step 1 get input |
| 114 | ss(1) |
| 115 | if blnAskForParameters then |
| 116 | askForInputText("Put in materials + press enter!") |
| 117 | -- step 1.1 get x |
| 118 | write("Enter depth x (default&min=3):") |
| 119 | userX=read() |
| 120 | if userX==nil or userX=="" then userX=3 end |
| 121 | userX=tonumber(userX) -- no error check yet |
| 122 | if userX<3 then userX=3 end |
| 123 | |
| 124 | -- step 1.2 get y |
| 125 | write("Enter width y (default&min=1):") |
| 126 | userY=read() |
| 127 | if userY==nil or userY=="" then userY=3 end |
| 128 | userY=tonumber(userY) -- no error check yet |
| 129 | --if userY<2 then userY=2 end |
| 130 | end |
| 131 | userX=math.floor(userX) |
| 132 | userY=math.floor(userY) |
| 133 | |
| 134 | -- check fuel level |
| 135 | local cMinFuel=(userX)*(userY+1)+1 |
| 136 | turtleOk, turtleVal = pcall(checkFuel) |
| 137 | if turtleVal<cMinFuel then |
| 138 | term.clear() term.setCursorPos(1,1) |
| 139 | print("+-------------------------------------+") |
| 140 | print("| tPlatform v1.10, by Kaikaku |") |
| 141 | print("+-------------------------------------+") |
| 142 | print("| Please refuel turtle, it needs a |") |
| 143 | print("| minimum of about ",cMinFuel," fuel units.") |
| 144 | print("| Tip: Put some fuel (e.g. coal) in |") |
| 145 | print("| slot 1 and enter: refuel all. |") |
| 146 | print("| This will consume all(!) fuel |") |
| 147 | print("| items in the turtle's inventory|") |
| 148 | print("+-------------------------------------+") |
| 149 | return |
| 150 | end |
| 151 | |
| 152 | -- step 2 loopy loops ;) |
| 153 | print("Let's build something nice:") |
| 154 | -- step 2.1 go to start position |
| 155 | -- & if odd number go back |
| 156 | if userY%2==1 then |
| 157 | -- odd number of rows |
| 158 | for i=1,userX,1 do gf() end |
| 159 | blnDirectionX=false |
| 160 | else |
| 161 | -- even number of rows |
| 162 | gf() gf() gl() gl() |
| 163 | blnDirectionX=true |
| 164 | end |
| 165 | |
| 166 | -- step 2.2 build it |
| 167 | for iY=1,userY,1 do |
| 168 | for iX=1,userX-1 do |
| 169 | if iX==1 then |
| 170 | if iY~=1 then |
| 171 | if blnDirectionX then |
| 172 | gl() |
| 173 | else |
| 174 | gr() |
| 175 | end |
| 176 | end |
| 177 | gb() pf() |
| 178 | elseif iX==userX-1 then |
| 179 | if iY~=userY then |
| 180 | if blnDirectionX then |
| 181 | -- right turn |
| 182 | gr() |
| 183 | else |
| 184 | -- left turn |
| 185 | gl() |
| 186 | end |
| 187 | end |
| 188 | gb() pf() |
| 189 | else -- in between start and end |
| 190 | gb() pf() |
| 191 | end |
| 192 | |
| 193 | end |
| 194 | blnDirectionX=not blnDirectionX |
| 195 | end |
| 196 | -- go back within 1st row |
| 197 | gr() |
| 198 | for i=1,userY-1,1 do gb() pf() end |
| 199 | gl() gb() pf() |
| 200 | |
| 201 | print("Done. Looks nice to me ;)") |
| 202 | os.sleep(0.4) |
| 203 | print("***************************************") |
| 204 | print("* Check out YouTube for more videos *") |
| 205 | print("* and turtle programs by Kaikaku :) *") |
| 206 | print("***************************************") |