Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //#####JEZZA'S BIG OL' COMPACTED SAND TO COMPACTED BOTTLES CONVERTER BOT#####
- //- You must have DOUBLE chests for Compacted Sand, Compacted Bottles, and Charcoal in reach.
- //- You must have a compactor and basic smelter in reach.
- //- Have a good supply of charcoal in the chest and crates in the compactor.
- //- Have an empty inventory with a stick in the hotbar.
- #ping = 200
- do(1)
- //Select empty slot for punching
- slot(5)
- wait(%#ping%ms)
- //Promt the user to hit the target, and store pitch/yaw values.
- log(Punch the Compacted Sand chest!)
- do
- until(%LMOUSE% = true)
- log(Hit!)
- playsound(block.note.snare);
- #csandy = %YAW% + 180
- #csandp = %PITCH%
- wait(500ms)
- log(Punch the Charcoal chest!)
- do
- until(%LMOUSE% = true)
- log(Hit!)
- playsound(block.note.snare);
- #charcoaly = %YAW% + 180
- #charcoalp = %PITCH%
- wait(500ms)
- log(Punch the Compactor chest!)
- do
- until(%LMOUSE% = true)
- log(Hit!)
- playsound(block.note.snare);
- #compchesty = %YAW% + 180
- #compchestp = %PITCH%
- wait(500ms)
- log(Punch the Compactor crafting bench!)
- do
- until(%LMOUSE% = true)
- log(Hit!)
- playsound(block.note.snare);
- #compcrafty = %YAW% + 180
- #compcraftp = %PITCH%
- wait(500ms)
- log(Punch the Compactor furnace!)
- do
- until(%LMOUSE% = true)
- log(Hit!)
- playsound(block.note.snare);
- #compfurny = %YAW% + 180
- #compfurnp = %PITCH%
- wait(500ms)
- log(Punch the Basic Smelter chest!)
- do
- until(%LMOUSE% = true)
- log(Hit!)
- playsound(block.note.snare);
- #smeltchesty = %YAW% + 180
- #smeltchestp = %PITCH%
- wait(500ms)
- log(Punch the Basic Smelter crafting bench!)
- do
- until(%LMOUSE% = true)
- log(Hit!)
- playsound(block.note.snare);
- #smeltcrafty = %YAW% + 180
- #smeltcraftp = %PITCH%
- wait(500ms)
- log(Punch the Basic Smelter furnace!)
- do
- until(%LMOUSE% = true)
- log(Hit!)
- playsound(block.note.snare);
- #smeltfurny = %YAW% + 180
- #smeltfurnp = %PITCH%
- wait(500ms)
- log(Punch the Compacted Bottles chest!)
- do
- until(%LMOUSE% = true)
- log(Hit!)
- playsound(block.note.snare);
- #cbottlesy = %YAW% + 180
- #cbottlesp = %PITCH%
- wait(500ms)
- //###END OF PLAYER INPUT PHASE###
- loop
- do
- //#CHARCOAL CHEST#
- wait(500ms)
- log(Looking at Charcoal chest!)
- wait(%#ping%ms)
- look(%#charcoaly%,%#charcoalp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Take 4 stacks of charcoal.
- #slot = 0
- #islot = 54
- #count = 0
- wait(%#ping%ms)
- getslotitem(%#slot%,&id,#amt)
- wait(%#ping%ms)
- do
- getslotitem(%#slot%,&id,#amt)
- wait(20ms)
- if(%#slot% = 54)
- wait(%#ping%ms)
- gui()
- wait(%#ping%ms)
- log(Ran out of Charcoal. Closing script.)
- wait(%#ping%ms)
- stop
- endif
- wait(20ms)
- if(%&id% = "coal")
- if(%#amt% = 64)
- wait(%#ping%ms)
- slotclick(%#slot%)
- wait(%#ping%ms)
- slotclick(%#islot%)
- wait(%#ping%ms)
- inc(#islot)
- inc(#count)
- wait(%#ping%ms)
- getslotitem(%#slot%,&id,#amt)
- endif
- endif
- inc(#slot)
- until(%#count% = 4)
- wait(%#ping%ms)
- gui()
- //#COMPACTOR FURNACE#
- wait(500ms)
- log(Looking at Compactor furnace!)
- wait(%#ping%ms)
- look(%#compfurny%,%#compfurnp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Fill Furnace
- #slot = 0
- #islot = 3
- #count = 0
- wait(%#ping%ms)
- do
- getslotitem(%#islot%,&id,#amt)
- wait(20ms)
- if(%#islot% = 39)
- wait(%#ping%ms)
- gui()
- wait(%#ping%ms)
- log(Ran out of Charcoal. Closing script.)
- wait(%#ping%ms)
- stop
- endif
- wait(20ms)
- if(%&id% = "coal")
- if(%#amt% = 64)
- wait(%#ping%ms)
- slotclick(%#islot%)
- wait(%#ping%ms)
- slotclick(%#slot%)
- wait(%#ping%ms)
- slotclick(%#islot%)
- wait(%#ping%ms)
- inc(#slot)
- inc(#count)
- wait(%#ping%ms)
- endif
- endif
- inc(#islot)
- until(%#count% = 2)
- wait(%#ping%ms)
- gui()
- //#BASIC SMELTER FURNACE#
- wait(500ms)
- log(Looking at Basic Smelter furnace!)
- wait(%#ping%ms)
- look(%#smeltfurny%,%#smeltfurnp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Fill Furnace
- #slot = 0
- #islot = 3
- #count = 0
- wait(%#ping%ms)
- do
- getslotitem(%#islot%,&id,#amt)
- wait(20ms)
- if(%#islot% = 39)
- wait(%#ping%ms)
- gui()
- wait(%#ping%ms)
- log(Ran out of Charcoal. Closing script.)
- wait(%#ping%ms)
- stop
- endif
- wait(20ms)
- if(%&id% = "coal")
- if(%#amt% = 64)
- wait(%#ping%ms)
- slotclick(%#islot%)
- wait(%#ping%ms)
- slotclick(%#slot%)
- wait(%#ping%ms)
- slotclick(%#islot%)
- wait(%#ping%ms)
- inc(#slot)
- inc(#count)
- wait(%#ping%ms)
- endif
- endif
- inc(#islot)
- until(%#count% = 2)
- wait(%#ping%ms)
- gui()
- //#CHARCOAL CHEST 2#
- wait(500ms)
- log(Looking at Charcoal chest!)
- wait(%#ping%ms)
- look(%#charcoaly%,%#charcoalp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Put back leftover charcoal.
- #islot = 54
- wait(%#ping%ms)
- do
- getslotitem(%#islot%,&id,#amt)
- wait(20ms)
- if(%&id% = "coal")
- wait(%#ping%ms)
- slotclick(%#islot%,l,true)
- wait(%#ping%ms)
- endif
- inc(#islot)
- wait(20ms)
- until(%#islot% = 90)
- wait(%#ping%ms)
- gui()
- //#COMPACTED SAND#
- wait(500ms)
- log(Looking at Compacted Sand!)
- wait(%#ping%ms)
- look(%#csandy%,%#csandp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Finds sand and drops 16 into inventory.
- #slot = 0
- getslotitem(%#slot%,&id,#amt)
- wait(%#ping%ms)
- do
- do
- inc(#slot)
- wait(20ms)
- getslotitem(%#slot%,&id,#amt)
- if(%#slot% > 53)
- log(Ran out of Compacted Sand.)
- wait(%#ping%ms)
- gui()
- log(Ending Script.)
- stop
- endif
- while(%&id% != "sand")
- while(%#amt% < 16)
- do
- do(1)
- slotclick(%#slot%)
- wait(%#ping%ms)
- loop
- do(16)
- slotclick(54,r)
- wait(%#ping%ms)
- loop
- do(1)
- slotclick(%#slot%)
- wait(%#ping%ms)
- loop
- break
- while(%#amt% > 15)
- endif
- gui()
- //#COMPACTOR CHEST#
- wait(500ms)
- log(Looking at Compactor chest!)
- wait(%#ping%ms)
- look(%#compchesty%,%#compchestp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Drop 16 Compacted Sand into chest.
- do(1)
- slotclick(54)
- wait(%#ping%ms)
- slotclick(0)
- wait(%#ping%ms)
- loop
- gui()
- //#COMPACTOR CRAFTING BENCH#
- wait(500ms)
- log(Looking at Compactor crafting bench!)
- wait(%#ping%ms)
- look(%#compcrafty%,%#compcraftp%)
- wait(%#ping%ms)
- //Make sure the recipe is on decompacting.
- pick(stick)
- wait(%#ping%ms)
- key(attack)
- wait(%#ping%ms)
- wait(%#ping%ms)
- slotclick(1)
- wait(%#ping%ms)
- wait(%#ping%ms)
- gui()
- //#COMPACTOR FURNACE#
- wait(500ms)
- log(Looking at Compactor furnace!)
- wait(%#ping%ms)
- look(%#compfurny%,%#compfurnp%)
- wait(%#ping%ms)
- //Turns on the compactor.
- pick(stick)
- wait(%#ping%ms)
- key(attack)
- //#WAIT FOR SAND TO DECOMPACT#
- wait(32)
- //#COMPACTOR CHEST#
- wait(500ms)
- log(Looking at Compactor chest!)
- wait(%#ping%ms)
- look(%#compchesty%,%#compchestp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Pick up 16 stacks of sand from Compactor chest.
- #slot = 0
- getslotitem(%#slot%,&id,#amt)
- do
- getslotitem(%#slot%,&id,#amt)
- wait(20ms)
- if(%&id% = "sand")
- slotclick(%#slot%,l,true)
- wait(%#ping%ms)
- endif
- inc(#slot)
- while(%#slot% < 54)
- gui()
- //#BASIC SMELTER CHEST#
- wait(500ms)
- log(Looking at Basic Smelter chest!)
- wait(%#ping%ms)
- look(%#smeltchesty%,%#smeltchestp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Put sand into chest.
- #islot = 54
- wait(%#ping%ms)
- do
- getslotitem(%#islot%,&id,#amt)
- if(%#islot% = 90)
- wait(%#ping%ms)
- break
- endif
- if(%&id% = "sand")
- wait(%#ping%ms)
- slotclick(%#islot%,l,true)
- endif
- inc(#islot)
- loop
- wait(%#ping%ms)
- gui()
- //#COMPACTOR CRAFTING BENCH#
- wait(500ms)
- log(Looking at Compactor crafting bench!)
- wait(%#ping%ms)
- look(%#smeltcrafty%,%#smeltcraftp%)
- wait(%#ping%ms)
- //Make sure the recipe is on smelt glass.
- pick(stick)
- wait(%#ping%ms)
- key(attack)
- wait(%#ping%ms)
- wait(%#ping%ms)
- slotclick(1)
- wait(%#ping%ms)
- wait(%#ping%ms)
- gui()
- //#COMPACTOR FURNACE#
- wait(500ms)
- log(Looking at Compactor furnace!)
- wait(%#ping%ms)
- look(%#smeltfurny%,%#smeltfurnp%)
- wait(%#ping%ms)
- //Turns on the compactor.
- pick(stick)
- wait(%#ping%ms)
- key(attack)
- //#WAIT FOR SAND TO SMELT#
- wait(128)
- //#BASIC SMELTER CHEST#
- wait(500ms)
- log(Looking at Basic Smelter chest!)
- wait(%#ping%ms)
- look(%#smeltchesty%,%#smeltchestp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Take glass from chest.
- #slot = 0
- wait(%#ping%ms)
- do
- getslotitem(%#slot%,&id,#amt)
- if(%#slot% = 54)
- wait(%#ping%ms)
- break
- endif
- if(%&id% = "glass")
- wait(%#ping%ms)
- slotclick(%#slot%,l,true)
- endif
- inc(#slot)
- loop
- wait(%#ping%ms)
- gui()
- //#CRAFT BOTTLES#
- handle_inventory_flooding = false
- throw_bottles_out = false
- wait(500ms)
- log(Looking at crafting bench!)
- wait(%#ping%ms)
- look(%#smeltcrafty%,%#smeltcraftp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- #run_count = 0
- do
- inc(#run_count)
- #inv_start = 10
- #inv_stop = 45
- // Search for 3 stacks of Glass and count empty slots
- unset(#item_slot_ids[])
- #item_stacks_found = 0
- for(#i,%#inv_start%,%#inv_stop%)
- if(#item_stacks_found = 3)
- break
- endif
- getslotitem(%#i%,&id,#amt)
- if(&id = "glass")
- if(#amt = 64)
- put(#item_slot_ids[],%#i%)
- inc(#item_stacks_found)
- endif
- endif
- next
- if(#item_stacks_found < 3)
- if(#run_count = 1)
- log("&7[Bottle Crafter] &cError: &7You need at least 3 stacks of Glass in your inventory.")
- wait(%#ping%ms)
- stop
- else
- dec(#run_count)
- #stack_count = %#run_count% * 3
- log("&7[Bottle Crafter] Crafted &f%#stack_count% &7stacks of Bottles.")
- endif
- gui()
- break
- endif
- slotclick(%#item_slot_ids[0]%)
- slotclick(4,l,false)
- slotclick(%#item_slot_ids[1]%)
- slotclick(6,l,false)
- slotclick(%#item_slot_ids[2]%)
- slotclick(8,l,false)
- if(handle_inventory_flooding == true)
- wait(%#ping%ms)
- slotclick(0,l,false)
- wait(%#ping%ms)
- slotclick(%#item_slot_ids[0]%,l,false)
- slotclick(-999)
- wait(%#ping%ms)
- slotclick(%#item_slot_ids[0]%,r,false)
- wait(%#ping%ms)
- slotclick(%#item_slot_ids[1]%,l,false)
- slotclick(-999)
- wait(%#ping%ms)
- slotclick(%#item_slot_ids[1]%,r,false)
- wait(%#ping%ms)
- slotclick(%#item_slot_ids[2]%,l,false)
- slotclick(-999)
- endif
- wait(%#ping%ms)
- slotclick(0,l,true)
- wait(%#ping%ms)
- wait(%#ping%ms)
- if(throw_bottles_out == true)
- foreach(#item_slot_ids[],#item_slot_id,#i)
- slotclick(%#item_slot_id%,l,false)
- slotclick(-999)
- next
- endif
- while(true)
- //#COMPACTOR CHEST#
- wait(500ms)
- log(Looking at Compactor chest!)
- wait(%#ping%ms)
- look(%#compchesty%,%#compchestp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Put bottles into chest.
- #islot = 54
- wait(%#ping%ms)
- do
- getslotitem(%#islot%,&id,#amt)
- if(%#islot% = 90)
- wait(%#ping%ms)
- break
- endif
- if(%&id% = "glass_bottle")
- wait(%#ping%ms)
- slotclick(%#islot%,l,true)
- endif
- inc(#islot)
- loop
- wait(%#ping%ms)
- gui()
- //#COMPACTOR CRAFTING BENCH#
- wait(500ms)
- log(Looking at Compactor crafting bench!)
- wait(%#ping%ms)
- look(%#compcrafty%,%#compcraftp%)
- wait(%#ping%ms)
- //Make sure the recipe is on compacting.
- pick(stick)
- wait(%#ping%ms)
- key(attack)
- wait(%#ping%ms)
- wait(%#ping%ms)
- slotclick(0)
- wait(%#ping%ms)
- wait(%#ping%ms)
- gui()
- //#COMPACTOR FURNACE#
- wait(500ms)
- log(Looking at Compactor furnace!)
- wait(%#ping%ms)
- look(%#compfurny%,%#compfurnp%)
- wait(%#ping%ms)
- //Turns on the compactor.
- pick(stick)
- wait(%#ping%ms)
- key(attack)
- //#WAIT FOR BOTTLES TO COMPACT#
- wait(64)
- //#COMPACTOR CHEST#
- wait(500ms)
- log(Looking at Basic Smelter chest!)
- wait(%#ping%ms)
- look(%#compchesty%,%#compchestp%)
- wait(%#ping%ms)
- key(use)
- wait(%#ping%ms)
- //Take bottles from chest.
- #slot = 0
- wait(%#ping%ms)
- do
- getslotitem(%#slot%,&id,#amt)
- if(%#slot% = 54)
- wait(%#ping%ms)
- break
- endif
- if(%&id% = "glass_bottle")
- wait(%#ping%ms)
- slotclick(%#slot%,l,true)
- endif
- inc(#slot)
- loop
- wait(%#ping%ms)
- gui()
- //#COMPACTED BOTTLES#
- wait(500ms)
- log(Looking at Compacted Bottles Chest!)
- wait(%#ping%ms)
- look(%#cbottlesy%,%#cbottlesp%)
- wait(%#ping%ms)
- key(use)
- //Put bottles into chest.
- #islot = 54
- wait(%#ping%ms)
- do
- getslotitem(%#islot%,&id,#amt)
- if(%#islot% = 90)
- wait(%#ping%ms)
- break
- endif
- if(%&id% = "glass_bottle")
- wait(%#ping%ms)
- slotclick(%#islot%,l,true)
- endif
- inc(#islot)
- loop
- wait(%#ping%ms)
- gui()
- loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement