Again...Taking requests/suggestions

Shortbus

Shortbus

Grandmaster
Pot to keg sorting macro for easily stocking a butler. Get many a pot bag, but it's time consuming sorting them...
 
Experience

Experience

Grandmaster
Code: 
clearjournal
while not @findobject 'WhiteKeg'
  headmsg 'Strength Keg?'
  promptalias 'WhiteKeg'
endwhile
while not @findobject 'BlueKeg'
  headmsg 'Agility Keg?'
  promptalias 'BlueKeg'
endwhile
while not @findobject 'YellowKeg'
  headmsg 'GHeal Keg?'
  promptalias 'YellowKeg'
endwhile
while not @findobject 'OrangeKeg'
  headmsg 'GCure Keg?'
  promptalias 'OrangeKeg'
endwhile
while not @findobject 'RedKeg'
  headmsg 'TRefresh Keg?'
  promptalias 'RedKeg'
endwhile
while not @findobject 'PurpleKeg'
  headmsg 'GExplo Keg?'
  promptalias 'PurpleKeg'
endwhile
while @findtype 0xf09
  moveitem 'found' 'WhiteKeg'
  if @injournal 'The keg will not hold any more!' 'system'
    headmsg 'Strength keg is full!' 38
    unsetalias 'WhiteKeg'
    replay
  endif
  pause 650
endwhile
while @findtype 0xf08
  moveitem 'found' 'BlueKeg'
  if @injournal 'The keg will not hold any more!' 'system'
    headmsg 'Agility keg is full!' 38
    unsetalias 'BlueKeg'
    replay
  endif
  pause 650
endwhile
while @findtype 0xf0c
  moveitem 'found' 'YellowKeg'
  if @injournal 'The keg will not hold any more!' 'system'
    headmsg 'GHeal keg is full!' 38
    unsetalias 'YellowKeg'
    replay
  endif
  pause 650
endwhile
while @findtype 0xf07
  moveitem 'found' 'OrangeKeg'
  if @injournal 'The keg will not hold any more!' 'system'
    headmsg 'GCure keg is full!' 38
    unsetalias 'OrangeKeg'
    replay
  endif
  pause 650
endwhile
while @findtype 0xf0b
  moveitem 'found' 'RedKeg'
  if @injournal 'The keg will not hold any more!' 'system'
    headmsg 'TRefresh keg is full!' 38
    unsetalias 'RedKeg'
    replay
  endif
  pause 650
endwhile
while @findtype 0xf0d
  moveitem 'found' 'PurpleKeg'
  if @injournal 'The keg will not hold any more!' 'system'
    headmsg 'GExplo keg is full!' 38
    unsetalias 'PurpleKeg'
    replay
  endif
  pause 650
endwhile
 
ProdigyOsi

ProdigyOsi

Grandmaster
Can't say that I've loaded leather on ours, but if you can drop a bag just use [Organizeme. Same goes for Glowing Runes and T-Maps that happen to be in your bag (for the T-map cabnet/glowing rune chest).

Technically you can do the same for kegs too, bag them all up then restock from them or drop them on the butler. We use our commodity deed box.
 
diminished

diminished

Grandmaster
Yeah I have a razor macro to make suits and drop on my butler but I been too lazy to figure out how to implement an if non exceptional cut feature.
 
Experience

Experience

Grandmaster
I noticed it was pretty outdated. So I did an update and added the Exceptional check @diminished

Code: 
//Author: Experience
//Description: Create barbed suits and place them in a container or on Butler
//You will need ONLY barbed leather in a "resource" container.
//You will also need an organizer "Leather" with barbed leather in it. I set mine to 78
@removelist 'Suit'
if @findtype '0xf9f' 'any' 'backpack' 'any' '2'
  setalias 'Scissors' 'found'
  @unsetalias 'found'
  pause 500
else
  headmsg 'No scissors found'
  stop
endif
if not @findobject 'Storage'
  headmsg 'Select where you would like to store the suits'
  promptalias 'Storage'
endif
if not @findobject 'Resources'
  headmsg 'Select the container with your leather'
  pause 800
  headmsg 'Be sure to have ONLY your BARBED Leather in this container'
  promptalias 'Resources'
endif
if not listexists 'Suit'
  createlist 'Suit'
endif
if list 'Suit' == 0
  pushlist 'Suit' 0x13cc  // Tunic
  pushlist 'Suit' 0x13cb  // Legs
  pushlist 'Suit' 0x13cd  // Sleeves
  pushlist 'Suit' 0x13c6  // Gloves
  pushlist 'Suit' 0x1db9  // Cap
  pushlist 'Suit' 0x13c7  // Gorget
endif
if @findtype '0xf9d' 'any' 'backpack' 'any' '2'
  setalias 'Kit' 'found'
  @unsetalias 'found'
  pause 800
  //This part sets leather to use as barbed
  @useobject 'Kit'
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 7
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 27
  waitforgump 0x38920abd 15000
  replygump 0x38920abd 0
else
  headmsg "No kit found in your pack"
  stop
endif
useobject 'Resources'
pause 800
if not @findtype '0x1081' '1437' 'backpack' '39' '2'
  organizer 'Leather' 'Resources' 'backpack'
  while organizing
  endwhile
else
endif
useobject 'Kit'
waitforgump 0x38920abd 15000
replygump 0x38920abd 36
waitforgump 0x38920abd 15000
//Craft Gorget
replygump 0x38920abd 9
waitforgump 0x38920abd 15000
while not @ingump '0x38920abd' 'exceptional'
  @findtype '0x13c7' 'any' 'backpack' 'any' '2'
  useobject 'Scissors'
  waitfortarget 5000
  target 'found'
  @unsetalias 'found'
  replygump 0x38920abd 9
  waitforgump 0x38920abd 15000
  if @ingump '0x38920abd' 'You do not have sufficient leather'
    headmsg 'Out of leather!'
    stop
  endif
endwhile
//Craft Cap
replygump 0x38920abd 2
waitforgump 0x38920abd 15000
while not @ingump '0x38920abd' 'exceptional'
  @findtype '0x1db9' 'any' 'backpack' 'any' '2'
  useobject 'Scissors'
  waitfortarget 5000
  target 'found'
  @unsetalias 'found'
  replygump 0x38920abd 2
  waitforgump 0x38920abd 15000
  if @ingump '0x38920abd' 'You do not have sufficient leather'
    headmsg 'Out of leather!'
    stop
  endif
endwhile
//Craft Gloves
replygump 0x38920abd 16
waitforgump 0x38920abd 15000
while not @ingump '0x38920abd' 'exceptional'
  @findtype '0x13c6' 'any' 'backpack' 'any' '2'
  useobject 'Scissors'
  waitfortarget 5000
  target 'found'
  @unsetalias 'found'
  replygump 0x38920abd 16
  if @ingump '0x38920abd' 'You do not have sufficient leather'
    headmsg 'Out of leather!'
    stop
  endif
endwhile
//Craft Sleeves
replygump 0x38920abd 23
waitforgump 0x38920abd 15000
while not @ingump '0x38920abd' 'exceptional'
  @findtype '0x13cd' 'any' 'backpack' 'any' '2'
  useobject 'Scissors'
  waitfortarget 5000
  target 'found'
  @unsetalias 'found'
  replygump 0x38920abd 23
  waitforgump 0x38920abd 15000
  if @ingump '0x38920abd' 'You do not have sufficient leather'
    headmsg 'Out of leather!'
    stop
  endif
endwhile
//Craft Leggings
replygump 0x38920abd 30
waitforgump 0x38920abd 15000
while not @ingump '0x38920abd' 'exceptional'
  @findtype '0x13cb' 'any' 'backpack' 'any' '2'
  useobject 'Scissors'
  waitfortarget 5000
  target 'found'
  @unsetalias 'found'
  replygump 0x38920abd 30
  waitforgump 0x38920abd 15000
  if @ingump '0x38920abd' 'You do not have sufficient leather'
    headmsg 'Out of leather!'
    stop
  endif
endwhile
//Craft Tunic
replygump 0x38920abd 37
waitforgump 0x38920abd 15000
while not @ingump '0x38920abd' 'exceptional'
  @findtype '0x13cc' 'any' 'backpack' 'any' '2'
  useobject 'Scissors'
  waitfortarget 5000
  target 'found'
  @unsetalias 'found'
  replygump 0x38920abd 37
  waitforgump 0x38920abd 15000
  if @ingump '0x38920abd' 'You do not have sufficient leather'
    headmsg 'Out of leather!'
    stop
  endif
endwhile
if @ingump '0x38920abd' 'You do not have sufficient leather'
    headmsg 'Out of leather!'
    stop
  endif
replygump 0x38920abd 0
pause 2000
for 0 to 'Suit'
  if @movetype 'Suit[]' 'backpack' 'Storage'
    pause 800
  endif
endfor
headmsg 'Suit done'
pause 1000
 
G

Grizard

Adept
does anyone have a script for an escape from Pker that detects the interrupt if they hit you and loops it to retry the recall?
 
Ryzz Brah

Ryzz Brah

Novice
Hi, I was wondering if you could please make an auto peace nearest mob macro and also I was wondering if you could modify your taming script to auto use peacemaking and one that auto uses paralyze.

headmsg 'Target creature to tame'

promptalias 'Tame'

pause 250

@clearjournal

while @inrange 'Tame' '15'

if inrange 'Tame' '3' and not @injournal 'You start to tame the creature' 'system'

useskill 'animal taming'

waitfortarget 5000

target! 'last'

pause 1000

while @inrange 'Tame' '2'

if @x 'Tame' > x 'self' and @y 'Tame' > y 'self'

run 'Northeast'

elseif @x 'Tame' < x 'self' and @y 'Tame' > y 'self'

run 'Northwest'

elseif @x 'Tame' > x 'self' and @y 'Tame' < y 'self'

run 'Southeast'

elseif @x 'Tame' < x 'self' and @y 'Tame' < y 'self'

run 'Southwest'

elseif @x 'Tame' > x 'self' and @y 'Tame' == y 'self'

run 'east'

elseif @x 'Tame' < x 'self' and @y 'Tame' == y 'self'

run 'west'

elseif @x 'Tame' == x 'self' and @y 'Tame' > y 'self'

run 'north'

elseif @x 'Tame' == x 'self' and @y 'Tame' < y 'self'

run 'south'

endif

endwhile

endif

if @injournal 'It seems to accept you as master' 'system'

headmsg "It's Tame"

stop

endif

endwhile
 
You must log in or register to reply here.
Top