1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Again...Taking requests/suggestions

Discussion in 'UOSteam' started by Experience, Feb 1, 2016.

  1. Experience

    Experience Well-Known Member

    Make those tedious tasks easier!!!
     
    2 people like this.
  2. Shortbus

    Shortbus Well-Known Member

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

    Experience Well-Known Member

    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
     
    2 people like this.
  4. diminished

    diminished Well-Known Member

    Any scripts for making barbed leather and dropping on a butler?
     
  5. Experience

    Experience Well-Known Member

    Could probably use the suit crafting script and just target the butler instead of a bag
     
  6. ProdigyOsi

    ProdigyOsi Well-Known Member

    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.
     
  7. diminished

    diminished Well-Known Member

    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.
     
  8. Experience

    Experience Well-Known Member

    Let me know and i'll make it.
     
  9. diminished

    diminished Well-Known Member

    Yea go for it. I was trying to find the previous script you were talking about but I had no luck.
     
  10. Experience

    Experience Well-Known Member

    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
    
     
    4 people like this.
  11. Grizard

    Grizard Well-Known Member

    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?
     
  12. Plasmodium

    Plasmodium Member

    ANyone have a script that uses Item ID instead of wands to ID items?
     
  13. Experience

    Experience Well-Known Member

    I do. forgot to post it i noticed....i'll grab it asap
     
    2 people like this.
  14. Experience

    Experience Well-Known Member

    2 people like this.
  15. Tac0bell

    Tac0bell Well-Known Member

  16. Experience

    Experience Well-Known Member

    On the same section as that one

    *Using Tapatalk*
     
  17. Tac0bell

    Tac0bell Well-Known Member

    got it thanks!
     
    3 people like this.
  18. AssHat

    AssHat Well-Known Member

    there is a auto mated smith bod filler, is there a tailor one?
     
  19. Experience

    Experience Well-Known Member

    2 people like this.
  20. Ryzz Brah

    Ryzz Brah Active Member

    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
     

Share This Page