TimberHouse

--{program="bHalfTimberHouse",version="1.01",date="2013-12-01",basicFunc="0.11",basicFuncDate="2013-09-26",addFunc="0.00"",addFuncDate="n.a."}
---------------------------------------
-- bHalfTimberHouse    by Severino
-- 2013-12-01, v1.01   info corrected
-- 2013-11-30, v1.00   initial
---------------------------------------
-- basic functions: v1.11, 2013-09-26
-- additional func: n.a.
---------------------------------------

---------------------------------------
---- VARIABLES ------------------------
---------------------------------------
local blnSkipWait=false
local blnFullHouse=true
local blnDigEntrance=true

---------------------------------------
---- tArgs ----------------------------
---------------------------------------
local tArgs = {...}
if #tArgs == 1 then -- no error check
  blnSkipWait=tArgs[1]
end

---------------------------------------
-- basic functions for turtle control -
---------------------------------------
local function gf()  while not turtle.forward()   do end end
local function gb()  while not turtle.back()      do end end
local function gu()  while not turtle.up()        do end end
local function gd()  while not turtle.down()      do end end
local function gl()  while not turtle.turnLeft()  do end end
local function gr()  while not turtle.turnRight() do end end
local function df()  turtle.dig()       end
local function du()  turtle.digUp()     end
local function dd()  turtle.digDown()   end
local function pf()  turtle.place()     end
local function pu()  turtle.placeUp()   end
local function pd()  turtle.placeDown() end
local function sf()  turtle.suck()      end
local function su()  turtle.suckUp()    end
local function sd()  turtle.suckDown()  end
local function Df()  turtle.drop()      end
local function Du()  turtle.dropUp()    end
local function Dd()  turtle.dropDown()  end
local function ss(s) turtle.select(s)   end

local function waitKey(strText)
  local event, scancode
  write(strText)
  event, scancode = os.pullEvent("key")
  print()
end

---------------------------------------
-- builder program --------------------
---------------------------------------
term.clear() term.setCursorPos(1,1)
 print("+-------------------------------------+")
 print("| bHalfTimberHouse, by Severino|")
 print("+-------------------------------------+")
 print("| Put in slot no. listed materials:   |")
 print("|  1-3: wall1(64,64,19) 4: wall2(61)  |")
 print("|    5: fences(8+8)  6: stairs(4)     |")
 print("|    7: slabs1(62)   8: slabs2(59)    |")
 print("| 9+10: logs/planks(64,43)            |")
 print("|   11: glass(42)   12: torches(10)   |")
 print("|   13: pressure plate(1)             |")
 print("|   14: door(1)(opt.B)   16:(opt.A)   |")
 print("+-------------------------------------+")
 if not blnSkipWait then
   waitKey("Put in materials + press key!")
 end
 term.clear() term.setCursorPos(1,1)
 print("+-------------------------------------+")
 print("| bHalfTimberHouse, by Severino       |")
 print("+-------------------------------------+")
 print("| Option A:                           |")
 print("|  Put block(s) in slot 16  to only   |")
 print("|  build ground floor (less mats req).|")
 print("| Option B:                           |")
 print("|  If you put no item in slot 14(door)|")
 print("|  then turtle won't dig an entrance. |")
 print("|  Use this for multi-story houses.   |")
 print("|  This may need 16 fences in slot 5. |")
 print("+-------------------------------------+")
 if not blnSkipWait then
   waitKey("Put in materials + press key!")
 end

 -- check options
 if turtle.getItemCount(16)>0  then blnFullHouse  =false end
 if turtle.getItemCount(14)==0 then blnDigEntrance=false end

 term.clear() term.setCursorPos(1,1)
 print("Let's build something nice:")
 print("  working on layer 1 ...") gl()
 gl() gb() gb() ss(10) pf() gb() ss(1)
 pf() gb() ss(2) pf() gb() ss(2) pf()
 gb() ss(2) pf() gb() ss(10) pf() gb()
 ss(2) pf() gb() ss(2) pf() gb() ss(2)
 pf() gb() ss(2) pf() gr() gb() ss(10)
 pf() gr() gb() ss(2) pf() gb() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gl() gb() ss(2) pf() gl() gb() ss(2)
 pf() gb() gb() gb() gb() gb() gb()
 gb() gb() gb() gr() gb() ss(2) pf()
 gr() gb() ss(1) pf() gb() gb() gb()
 ss(2) pf() gb() ss(6) pf() gb() gb()
 gb() gb() gb() gl() gb() ss(3) pf()
 gl() gb() ss(10) pf() gb() gb() gb()
 gb() gb() gb() gb() gb() gb() gr()
 gb() ss(10) pf() gr() gb() ss(3) pf()

 -- no fences on ground level
 if blnDigEntrance then
   -- no fences
   gb() gb() gb() gb() gb() ss(10) pf()
   gb() gb() gb() gb()
 else
   -- no door=>not gorund level=>put fences
   ss(5) gb() pf() gb() pf() gb() pf() gb() pf()
   gb() ss(10) pf() ss(5) gb() pf() gb() pf()
   gb() pf() gb() pf()
 end

 gl() gb() ss(3)
 pf() gl() gb() ss(10) pf() gb() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gr() gb() ss(10) pf() gr() gb() ss(3)
 pf() gb() gb() gb() gb() gb() gb()
 gb() gb() gb() gl() gb() ss(3) pf()
 gl() gb() ss(3) pf() gb() gb() gb()
 gb() gb() gb() gb() gb() gb() gr()
 gb() ss(3) pf() gr() gb() ss(3) pf()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gb() gl() gb() ss(3) pf() gl()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gb() gb() gr() gr() gb() ss(10)
 pf() gb() ss(3) pf() gb() ss(3) pf()
 gb() ss(3) pf() gb() ss(3) pf() gb()
 ss(10) pf() gb() ss(3) pf() gb() ss(3)
 pf() gb() ss(3) pf() gb() ss(3) pf()
 gb() ss(10) pf() gr() gb() gb() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gl() gu()
 print("  working on layer 2 ...") gl()
 gl() gb() gb() ss(10) pf() gb() ss(2)
 pf() gb() ss(11) pf() gb() ss(11) pf()
 gb() ss(2) pf() gb() ss(10) pf() gb()
 ss(2) pf() gb() ss(11) pf() gb()
 ss(11) pf() gb() ss(2) pf() gr() gb()
 ss(10) pf() gr() gb() ss(2) pf() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gl() gb() ss(2) pf() gl() gb()
 ss(11) pf() gb() gb() gb() gb() gb()
 gb() gb() gb() gb() gr() gb() ss(11)
 pf() gr() gb() ss(11) pf() gb() gb()
 ss(2) pf() gb() ss(6) pf() gb() gb()
 gb() gb() gb() gb() gl() gb() ss(11)
 pf() gl() gb() ss(10) pf() gb() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gr() gb() ss(10) pf() gr() gb() ss(2)
 pf() gb() gb() gb() gb() gb() ss(10)
 pf() gb() gb() gb() gb() gl() gb()
 ss(3) pf() gl() gb() ss(10) pf() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gr() gb() ss(10) pf() gr() gb()
 ss(11) pf() gb() gb() gb() gb() gb()
 gb() gb() gb() gb() gl() gb() ss(11)
 pf() gl() gb() ss(11) pf() gb() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gr() gb() ss(11) pf() gr() gb() ss(2)
 pf() gb() gb() gb() gb() gb() gb()
 gb() gb() gb() gl() gb() ss(2) pf()
 gl() gb() gb() gb() gb() gb() gb()
 gb() gb() gb() gb() gr() gr() gb()
 ss(10) pf() gb() ss(2) pf() gb()
 ss(11) pf() gb() ss(11) pf() gb()
 ss(2) pf() gb() ss(10) pf() gb() ss(2)
 pf() gb() ss(11) pf() gb() ss(11) pf()
 gb() ss(2) pf() gb() ss(10) pf() gr()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gb() gb() gl() gu()
 print("  working on layer 3 ...") gl()
 gl() gb() gb() ss(10) pf() gb() ss(2)
 pf() gb() ss(11) pf() gb() ss(11) pf()
 gb() ss(2) pf() gb() ss(10) pf() gb()
 ss(2) pf() gb() ss(11) pf() gb()
 ss(11) pf() gb() ss(2) pf() gr() gb()
 ss(10) pf() gr() gb() ss(2) pf() gb()
 ss(12) pf() gb() gb() gb() gb() gb()
 gb() gb() gb() gl() gb() ss(2) pf()
 gl() gb() ss(11) pf() gb() gb() gb()
 gb() gb() gb() gb() gb() gb() gr()
 gb() ss(11) pf() gr() gb() ss(11) pf()
 gb() gb() ss(6) pf() gb() gb() gb()
 gb() gb() gb() gb() gl() gb() ss(11)
 pf() gl() gb() ss(10) pf() gb() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gr() gb() ss(10) pf() gr() gb() ss(2)
 pf() gb() ss(12) pf() gb() gb() gb()
 gb() ss(10) pf() gb() gb() gb() gb()
 gl() gb() ss(2) pf() gl() gb() ss(10)
 pf() gb() gb() gb() gb() gb() ss(12)
 pf() gb() gb() gb() gb() gr() gb()
 ss(10) pf() gr() gb() ss(11) pf() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gl() gb() ss(11) pf() gl() gb()
 ss(11) pf() gb() gb() gb() gb() gb()
 gb() gb() gb() gb() gr() gb() ss(11)
 pf() gr() gb() ss(2) pf() gb() ss(12)
 pf() gb() gb() gb() gb() gb() gb()
 gb() gb() gl() gb() ss(2) pf() gl()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gb() gb() gr() gr() gb() ss(10)
 pf() gb() ss(2) pf() gb() ss(11) pf()
 gb() ss(11) pf() gb() ss(2) pf() gb()
 ss(9) pf() gb() ss(2) pf() gb()
 ss(11) pf() gb() ss(11) pf() gb()
 ss(2) pf() gb() ss(9) pf() gr() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gb() gl() gu()
 print("  working on layer 4 ...") gl()
 gl() gb() gb() ss(9) pf() gb() ss(9)
 pf() gb() ss(9) pf() gb() ss(9) pf()
 gb() ss(9) pf() gb() ss(9) pf() gb()
 ss(9) pf() gb() ss(9) pf() gb() ss(9)
 pf() gb() ss(9) pf() gr() gb() ss(9)
 pf() gr() gb() ss(9) pf() gb() ss(4)
 pf() gb() ss(2) pf() gb() ss(4) pf()
 gb() ss(2) pf() gb() ss(4) pf() gb()
 ss(12) pf() gb() gb() gb() gl() gb()
 ss(9) pf() gl() gb() ss(9) pf() gb()
 ss(12) pf() gb() gb() gb() gb() ss(4)
 pf() gb() ss(2) pf() gb() ss(4) pf()
 gb() ss(2) pf() gb() ss(4) pf() gr()
 gb() ss(9) pf() gr() gb() ss(9) pf()
 gb() ss(6) pf() gb() gb() gb() gb()
 ss(4) pf() gb() gb() gb() gb() gl()
 gb() ss(9) pf() gl() gb() ss(9) pf()
 gb() gb() gb() gb() gb() ss(4) pf()
 gb() ss(2) pf() gb() ss(4) pf() gb()
 ss(2) pf() gb() ss(4) pf() gr() gb()
 ss(9) pf() gr() gb() ss(9) pf() gb()
 ss(4) pf() gb() ss(2) pf() gb() ss(4)
 pf() gb() ss(2) pf() gb() ss(9) pf()
 gb() gb() gb() gb() gl() gb() ss(9)
 pf() gl() gb() ss(9) pf() gb() gb()
 gb() gb() gb() ss(4) pf() gb() ss(2)
 pf() gb() ss(4) pf() gb() ss(2) pf()
 gb() ss(4) pf() gr() gb() ss(9) pf()
 gr() gb() ss(9) pf() gb() ss(4) pf()
 gb() ss(2) pf() gb() ss(4) pf() gb()
 ss(2) pf() gb() ss(4) pf() gb() gb()
 gb() gb() gl() gb() ss(9) pf() gl()
 gb() ss(9) pf() gb() ss(12) pf() gb()
 gb() gb() gb() ss(4) pf() gb() ss(2)
 pf() gb() ss(4) pf() gb() ss(2) pf()
 gb() ss(4) pf() gr() gb() ss(9) pf()
 gr() gb() ss(9) pf() gb() ss(4) pf()
 gb() ss(2) pf() gb() ss(4) pf() gb()
 ss(2) pf() gb() ss(4) pf() gb() ss(12)
 pf() gb() gb() gb() gl() gb() ss(10)
 pf() gl() gb() gb() gb() gb() gb()
 gb() gb() gb() gb() gb() gr() gr()
 gb() ss(10) pf() gb() ss(10) pf() gb()
 ss(10) pf() gb() ss(10) pf() gb()
 ss(10) pf() gb() ss(10) pf() gb()
 ss(10) pf() gb() ss(10) pf() gb()
 ss(10) pf() gb() ss(10) pf() gb()
 ss(10) pf() gr() gb() gb() gb() gb()
 gb() gb() gb() gb() gb() gb() gl()

 if blnFullHouse then
 gu() print("  working on layer 5 ...")
 gl() gl() gb() gb() ss(7) pf() gb()
 ss(8) pf() gb() ss(7) pf() gb() ss(8)
 pf() gb() ss(7) pf() gb() ss(8) pf()
 gb() ss(7) pf() gb() ss(8) pf() gb()
 ss(7) pf() gb() ss(8) pf() gr() gb()
 ss(7) pf() gr() gb() ss(1) pf() gb()
 ss(4) pf() gb() ss(1) pf() gb() ss(4)
 pf() gb() ss(1) pf() gb() ss(4) pf()
 gb() ss(1) pf() gb() ss(4) pf() gb()
 ss(1) pf() gb() ss(4) pf() gl() gb()
 ss(1) pf() gl() gb() ss(1) pf() gb()
 gb() gb() gb() gb() ss(5) pf() gb()
 gb() gb() gb() gr() gb() ss(1) pf()
 gr() gb() ss(1) pf() gb() gb() gb()
 gb() gb() ss(5) pf() gb() gb() gb()
 gb() gl() gb() ss(1) pf() gl() gb()
 ss(9) pf() gb() gb() gb() gb() gb()
 ss(5) pf() gb() gb() gb() gb() gr()
 gb() ss(1) pf() gr() gb() ss(9) pf()
 gb() gb() gb() gb() gb() ss(5) pf()
 gb() gb() gb() gb() gl() gb() ss(1)
 pf() gl() gb() ss(9) pf() gb() gb()
 gb() gb() gb() ss(5) pf() gb() gb()
 gb() gb() gr() gb() ss(1) pf() gr()
 gb() ss(1) pf() gb() gb() gb() gb()
 gb() ss(5) pf() gb() gb() gb() gb()
 gl() gb() ss(1) pf() gl() gb() ss(1)
 pf() gb() gb() gb() gb() gb() ss(5)
 pf() gb() gb() gb() gb() gr() gb()
 ss(1) pf() gr() gb() ss(1) pf() gb()
 gb() gb() gb() gb() ss(5) pf() gb()
 ss(2) pf() gb() ss(4) pf() gb() ss(2)
 pf() gb() ss(4) pf() gl() gb() ss(2)
 pf() gl() gb() gb() gb() gb() gb()
 gb() gb() gb() gb() gb() gr() gr()
 gb() ss(9) pf() gb() ss(2) pf() gb()
 ss(2) pf() gb() ss(2) pf() gb() ss(2)
 pf() gb() ss(9) pf() gb() ss(7) pf()
 gb() ss(8) pf() gb() ss(7) pf() gb()
 ss(8) pf() gb() ss(7) pf() gr() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gb() gl() gu()
 print("  working on layer 6 ...") gl()
 gl() gb() gr() gb() gl() gb() ss(7)
 pf() gb() ss(8) pf() gb() ss(7) pf()
 gb() ss(8) pf() gb() ss(7) pf() gb()
 ss(8) pf() gb() ss(7) pf() gb() ss(8)
 pf() gb() ss(7) pf() gb() ss(8) pf()
 gr() gb() ss(7) pf() gr() gb() ss(1)
 pf() gb() ss(4) pf() gb() ss(1) pf()
 gb() ss(4) pf() gb() ss(1) pf() gb()
 ss(4) pf() gb() ss(1) pf() gb() ss(4)
 pf() gb() ss(1) pf() gb() ss(4) pf()
 gl() gb() ss(1) pf() gl() gb() ss(1)
 pf() gb() gb() gb() gb() gb() gb()
 gb() gb() gb() gr() gb() ss(1) pf()
 gr() gb() ss(1) pf() gb() gb() gb()
 gb() gb() gb() gb() gb() gb() gl()
 gb() ss(9) pf() gl() gb() ss(11) pf()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gb() gr() gb() ss(9) pf() gr()
 gb() ss(1) pf() gb() gb() gb() gb()
 gb() gb() gb() gb() gb() gl() gb()
 ss(9) pf() gl() gb() ss(1) pf() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gr() gb() ss(11) pf() gr() gb()
 ss(11) pf() gb() gb() gb() gb() gb()
 gb() ss(1) pf() gb() ss(4) pf() gb()
 ss(1) pf() gb() ss(4) pf() gl() gb()
 ss(1) pf() gl() gb() ss(7) pf() gb()
 ss(8) pf() gb() ss(7) pf() gb() ss(8)
 pf() gb() ss(7) pf() gb() ss(4) pf()
 gb() gb() gb() gb() gr() gb() ss(1)
 pf() gr() gb() ss(9) pf() gb() ss(1)
 pf() gb() ss(11) pf() gb() ss(11) pf()
 gb() ss(1) pf() gb() ss(9) pf() gb()
 gb() gb() gb() gb() gr() gb() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gb() gl() gu()
 print("  working on layer 7 ...") gl()
 gl() gb() gr() gb() gb() gl() gb()
 ss(7) pf() gb() ss(8) pf() gb() ss(7)
 pf() gb() ss(8) pf() gb() ss(7) pf()
 gb() ss(8) pf() gb() ss(7) pf() gb()
 ss(8) pf() gb() ss(7) pf() gb() ss(8)
 pf() gr() gb() ss(7) pf() gr() gb()
 ss(1) pf() gb() ss(4) pf() gb() ss(1)
 pf() gb() ss(4) pf() gb() ss(1) pf()
 gb() ss(4) pf() gb() ss(1) pf() gb()
 ss(4) pf() gb() ss(1) pf() gb() ss(4)
 pf() gl() gb() ss(2) pf() gl() gb()
 ss(9) pf() gb() gb() gb() gb() gb()
 gb() gb() gb() gb() gr() gb() ss(1)
 pf() gr() gb() ss(9) pf() gb() ss(12)
 pf() gb() gb() gb() gb() gb() gb()
 gb() gb() gl() gb() ss(11) pf() gl()
 gb() ss(9) pf() gb() gb() gb() gb()
 gb() gb() gb() gb() gb() gr() gb()
 ss(1) pf() gr() gb() ss(11) pf() gb()
 gb() gb() gb() gb() gb() ss(1) pf()
 gb() ss(4) pf() gb() ss(1) pf() gb()
 ss(4) pf() gl() gb() ss(1) pf() gl()
 gb() ss(7) pf() gb() ss(8) pf() gb()
 ss(7) pf() gb() ss(8) pf() gb() ss(7)
 pf() gb() ss(4) pf() gb() gb() gb()
 gb() gr() gb() ss(11) pf() gr() gb()
 ss(1) pf() gb() ss(12) pf() gb() gb()
 gb() gb() ss(4) pf() gl() gb() gl()
 gb() gb() gb() gb() gb() gb() gr()
 gr() gb() ss(9) pf() gb() ss(1) pf()
 gb() ss(11) pf() gb() ss(11) pf() gb()
 ss(1) pf() gb() ss(9) pf() gb() gb()
 gb() gb() gb() gr() gb() gb() gb()
 gb() gb() gb() gb() gb() gb() gb()
 gl() gu()
 print("  working on layer 8 ...") gl()
 gl() gb() gr() gb() gb() gb() gl()
 gb() ss(7) pf() gb() ss(8) pf() gb()
 ss(7) pf() gb() ss(8) pf() gb() ss(7)
 pf() gb() ss(8) pf() gb() ss(7) pf()
 gb() ss(8) pf() gb() ss(7) pf() gb()
 ss(8) pf() gr() gb() ss(7) pf() gr()
 gb() ss(1) pf() gb() ss(4) pf() gb()
 ss(1) pf() gb() ss(4) pf() gb() ss(1)
 pf() gb() ss(4) pf() gb() ss(1) pf()
 gb() ss(4) pf() gb() ss(1) pf() gb()
 ss(4) pf() gl() gb() ss(1) pf() gl()
 gb() ss(9) pf() gb() gb() gb() gb()
 gb() gb() gb() gb() gb() gr() gb()
 ss(9) pf() gr() gb() ss(1) pf() gb()
 ss(4) pf() gb() gb() gb() gb() ss(4)
 pf() gb() ss(1) pf() gb() ss(4) pf()
 gb() ss(1) pf() gb() ss(4) pf() gl()
 gb() ss(3) pf() gl() gb() ss(7) pf()
 gb() ss(8) pf() gb() ss(7) pf() gb()
 ss(8) pf() gb() ss(7) pf() gb() ss(8)
 pf() gb() ss(4) pf() gb() gb() ss(4)
 pf() gb() ss(8) pf() gr() gb() ss(7)
 pf() gr() gb() ss(7) pf() gb() ss(8)
 pf() gb() ss(1) pf() gb() gb() ss(1)
 pf() gb() ss(8) pf() gl() gb() gl()
 gb() gb() ss(8) pf() gb() ss(4) pf()
 gb() gb() ss(4) pf() gb() ss(8) pf()
 gr() gb() ss(7) pf() gr() gb() ss(7)
 pf() gb() ss(8) pf() gb() ss(1) pf()
 gb() ss(1) pf() gb() ss(1) pf() gb()
 ss(8) pf() gb() gb() gb() gb() gb()
 gr() gb() gb() gb() gb() gb() gb()
 gb() gb() gb() gb() gl() gu()
 print("  working on layer 9 ...") gl()
 gl() gb() gr() gb() gb() gb() gb()
 gl() gb() ss(7) pf() gb() ss(8) pf()
 gb() ss(7) pf() gb() ss(8) pf() gb()
 ss(7) pf() gb() ss(8) pf() gb() ss(7)
 pf() gb() ss(8) pf() gb() ss(7) pf()
 gb() ss(8) pf() gr() gb() ss(7) pf()
 gr() gb() ss(9) pf() gb() ss(9) pf()
 gb() ss(9) pf() gb() ss(9) pf() gb()
 ss(9) pf() gb() ss(9) pf() gb() ss(9)
 pf() gb() ss(9) pf() gb() ss(9) pf()
 gb() ss(9) pf() gl() gb() ss(9) pf()
 gl() gb() ss(7) pf() gb() ss(8) pf()
 gb() ss(7) pf() gb() ss(8) pf() gb()
 ss(7) pf() gb() ss(8) pf() gb() ss(7)
 pf() gb() ss(9) pf() gb() ss(7) pf()
 gb() ss(8) pf() gr() gb() ss(7) pf()
 gr() gb() gb() gb() ss(8) pf() gb()
 ss(9) pf() gb() ss(8) pf() gl() gb()
 gl() gb() gb() ss(7) pf() gb() ss(9)
 pf() gb() ss(7) pf() gr() gb() gr()
 gb() gb() ss(8) pf() gb() ss(9) pf()
 gb() ss(8) pf() gl() gb() gl() gb()
 gb() gb() gb() gr() gr() gb() gb()
 ss(7) pf() gb() ss(9) pf() gb() ss(7)
 pf() gb() gb() gb() gb() gb() gb()
 gr() gb() gb() gb() gb() gb() gb()
 gb() gb() gb() gb() gl() gu()
 print("  working on layer 10 ...")
 gl() gl() gb() gr() gb() gb() gb()
 gb() gb() gl() gb() ss(7) pf() gb()
 ss(8) pf() gb() ss(7) pf() gb() ss(8)
 pf() gb() ss(7) pf() gb() ss(8) pf()
 gb() ss(7) pf() gb() ss(8) pf() gb()
 ss(7) pf() gb() ss(8) pf() gr() gb()
 ss(7) pf() gr() gb() gb() gb() gb()
 ss(8) pf() gl() gb() gl() gb() gb()
 ss(8) pf() gr() gb() gr() gb() gb()
 ss(8) pf() gl() gb() gl() gb() gb()
 ss(8) pf() gr() gb() gr() gb() gb()
 ss(8) pf() gb() gb() gb() gb() gb()
 gb() gb() gr() gb() gb() gb() gb()
 gb() gb() gb() gb() gb() gb() gl()
 gd() gd() gd() gd() gd() gd()
end -- if blnFullHouse

 gd() gd() gd()
 print("Done. Looks nice to me ;)")

if blnDigEntrance then
print("Hm, some finishing touch...")
 gr() gf() gf() gf() gf() gf() gl()
 ss(2) df() gf() du() ss(13) pf() gb()
 ss(14) pf() gr() gb() gb() gb() gb()
 gb() gl()
 print("That looks much better!")
end

 os.sleep(0.4)
 print("***************************************")
 print("*  Turtle programs by Severino:)      *")
 print("***************************************")