Advertisement
MouseyPounds

enchanter

Mar 7th, 2013
264
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- enchanter by MouseyPounds
  2. --
  3. -- Simple enchanting script for an XP Turtle in FTB Mindcrack 8.1.1
  4.  
  5. local xp = peripheral.wrap("right")
  6. local eLevel = 30
  7. local oldLevel = -1
  8. local isOff = false
  9.  
  10. print(string.format("Turtle %s reporting for duty!",os.getComputerLabel()))
  11.  
  12. while(true) do
  13.   if (not redstone.getInput("back")) then
  14.     if (not isOff) then
  15.       print("No signal. XP module off.")
  16.       xp.setAutoCollect(false)
  17.       isOff = true
  18.     end
  19.   else
  20.     isOff = false
  21.     xp.setAutoCollect(true)
  22.     local myLevel = xp.getLevels()
  23.     if (myLevel ~= oldLevel) then
  24.       oldLevel = myLevel
  25.       print(string.format("Level %d", myLevel))    
  26.     end    
  27.     if (myLevel>=eLevel) then
  28.       print("Enchanting Time!")
  29.       local books = turtle.getItemCount(16)
  30.       if (books<5) then
  31.         for i=14,1,-1 do
  32.           turtle.select(i)
  33.           if turtle.compareTo(16) then
  34.             turtle.transferTo(16,64-books)
  35.           end
  36.           if turtle.getItemCount(16)==64 then
  37.             break
  38.           end
  39.         end
  40.       end
  41.       if turtle.getItemCount(16)==0 then
  42.         print "Out of Books!"
  43.         return
  44.       end
  45.       if turtle.getItemCount(15)>0 then
  46.         print "Dumping items from slot 15"
  47.         turtle.select(15)
  48.         turtle.dropUp()
  49.       end
  50.       turtle.select(16)
  51.       turtle.transferTo(15,1)
  52.       turtle.select(15)
  53.       xp.enchant(eLevel)
  54.       turtle.dropUp()
  55.     end -- of if (myLevel>=eLevel)
  56.   end -- of else check on redstone
  57.   sleep(1)
  58. end -- of while (true)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement