Author Topic: UO Steam Macro Library  (Read 55272 times)

March 04, 2016, 03:40:54 PM

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com
« Last Edit: March 16, 2016, 10:00:02 PM by Evolution »

March 04, 2016, 03:42:30 PM
Reply #1

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com
Ultima Online - Magery and Resists Trainer - UO Steam Script Macro

Code: [Select]
////////////////////////////////////
// This macro is designed for //
// training both magery and //
// resist from 30. It is intended //
// for characters with 40+ //
// intelligence. //
// //
// Turn on loop and click play! //
////////////////////////////////////
if skill 'magery' < 100
if @injournal 'insufficient mana'
clearjournal
useskill 'meditation'
while mana < maxmana
endwhile
else
if skill 'magery' < 30
headmsg 'Buy more skill!'
stop
elseif skill 'magery' < 45
cast 'bless' 'self'
pause 1000
elseif skill 'magery' < 55
cast 'mana drain' 'self'
pause 1000
elseif skill 'magery' < 75
cast 'invisibility' 'self'
pause 1000
elseif skill 'magery' < 100
cast 'mana vampire' 'self'
pause 1000
else
headmsg 'Magery complete!'
stop
endif
endif
elseif skill 'resisting spells' < 100
if @injournal 'insufficient mana'
clearjournal
useskill 'meditation'
while mana < maxmana
endwhile
else
cast 'mana vampire' 'self'
pause 1000
endif
else
headmsg 'Magery and resisting spells complete!'
stop
endif

« Last Edit: November 06, 2016, 05:25:22 PM by Evolution »

March 04, 2016, 03:43:03 PM
Reply #2

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Ultima Online - Scroll Trainer - UO Steam Script Macro


[/font][/size]
Code: [Select]
if not @listexists 'Scrolls'
createlist 'Scrolls'
pushlist 'Scrolls' 0x1f66
endif
if mana < 30
clearjournal
useskill 'meditation'
while mana < maxmana
endwhile
else
if @counttype 0xfbf 0x0 'backpack' < 2
movetype 0xfbf 'restock' 'backpack' 0 0 0 0x0 3
pause 1000
endif
if not @findtype 0xfbf 0x0 'backpack'
headmsg 'Get more Pens!'
stop
endif
if not @findobject 'Completed'
headmsg 'Select your Storage for Finished Goods'
promptalias 'Completed'
endif
if not @findobject 'restock'
headmsg 'Select the container with your materials'
promptalias 'restock'
useobject 'restock'
endif
if @counttype 0x1f66 0x0 'backpack' < 1
movetype 0x1f66 'restock' 'backpack' 0 0 0 0x0 10
pause 1000
endif
if @counttype 0xf88 0x0 'backpack' < 10
movetype 0xf88 'restock' 'backpack' 0 0 0 0x0 50
pause 1000
endif
if @counttype 0xf86 0x0 'backpack' < 10
movetype 0xf86 'restock' 'backpack' 0 0 0 0x0 50
pause 1000
endif
if @counttype 0xef3 0x0 'backpack' < 10
movetype 0xef3 'restock' 'backpack' 0 0 0 0x0 50
pause 1000
endif
if @counttype 0xf7b 0x0 'backpack' < 10
movetype 0xf7b 'restock' 'backpack' 0 0 0 0x0 50
pause 1000
endif
if @counttype 0xf7a 0x0 'backpack' < 10
movetype 0xf7a 'restock' 'backpack' 0 0 0 0x0 50
pause 1000
endif
if skill 'Magery' < 88
headmsg 'Buy more skill!'
stop
elseif skill 'Magery' < 101
if usetype 0xfbf 0x0 'backpack'
waitforgump 0x38920abd 15000
replygump 0x38920abd 51
waitforgump 0x38920abd 15000
replygump 0x38920abd 51
waitforgump 0x38920abd 2000
endif
else
headmsg 'Out of Stock!'
stop
endif
if @counttype 0x1f4c 0x0 'backpack' > 10
movetype 0x1f4c 'backpack' 'Completed'
pause 1000
endif
endif
pause 600
« Last Edit: November 06, 2016, 05:25:05 PM by Evolution »

March 04, 2016, 03:43:31 PM
Reply #3

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Ultima Online - Stealth Trainer - UO Steam Script Macro

Code: [Select]
////////////////////////////////////
// Go to any public moongate for //
// this to work. Also, bring a //
// ringmail tunic and sleeves. //
// This macrois designed for //
// training stealth from 0. //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
////////////////////////////////////
if skill 'hiding' < 80
headmsg 'Train your hiding to 80.0 first!'
stop
endif
if not @findobject 'chest' and not @findtype 0x13ec 'any' 'self'
headmsg 'Buy a ringmail tunic'
stop
else
setalias 'chest' 'found'
endif
if not @findobject 'arms' and not @findtype 0x13ee 'any' 'self'
headmsg 'Buy ringmail sleeves'
stop
else
setalias 'arms' 'found'
endif
if skill 'stealth' < 80
if usetype 0xf6c 'any' 'ground'
waitforgump 0xe0e675b8 15000
replygump 0xe0e675b8 1 1
pause 10000
useskill 'stealth'
pause 600
endif
if usetype 0xf6c 'any' 'ground'
waitforgump 0xe0e675b8 15000
replygump 0xe0e675b8 1 0
pause 10000
useskill 'stealth'
pause 600
endif
elseif skill 'stealth' < 100
if not @findlayer 'self' 13
@equipitem 'chest' 13
pause 600
endif
if not @findlayer 'self' 19
@equipitem 'arms' 19
pause 600
endif
if usetype 0xf6c 'any' 'ground'
waitforgump 0xe0e675b8 15000
replygump 0xe0e675b8 1 1
pause 10000
useskill 'stealth'
pause 600
endif
if usetype 0xf6c 'any' 'ground'
waitforgump 0xe0e675b8 15000
replygump 0xe0e675b8 1 0
pause 10000
useskill 'stealth'
pause 600
endif
endif

« Last Edit: November 06, 2016, 05:24:41 PM by Evolution »

March 04, 2016, 03:44:11 PM
Reply #4

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com
Ultima Online - Sort Your Items - UO Steam Script Macro

Code: [Select]
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
//$$ Sort Yer Stuff
//$$ By: Amonseti
//$$ V 2.5
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
//
//??? USAGE GUIDE LINES:
//??? This macro requires the character to have Item Identification
//??? skill, it is recomended to be 100. not haveing guranteed id's
//??? could be costly ..
//???
//??? Macro will sort thru all items of one container and separate
//??? all weapons and armor into 2 bags. A Junk bag and a Keeper Bag.
//???
//??? have ready 3 bags the first bag is the source bag containing all
//??? the items you want sorted. the 2nd bag is the junk bag, any
//??? weapons or armor that is id'ed and not meeting the keep requirments
//??? is placed into this bag to be sold or trashed what ever you want
//??? to do with it.
//???
//??? and finally the 3rd bag is the keeper bag.. items placed into
//??? this bag must meet any 1 of the following conditions:
//??? A) Any weapons that are Vanquishing.
//??? B) Any Weapons that are Power.
//??? C) Any Weapons with a Slayer attribute.
//??? D) Any armor or shield of Invulnerability.
//??? E) All leather or studded armor reguardless of quality.
//???
//??? Run the Macro and follow the prompting instructions.
//???
// !!*** Init Data ***!!
@clearjournal
unsetalias 'bagtosort'
unsetalias 'stufftosell'
unsetalias 'stufftokeep'
// !! user Input
if not @findobject 'bagtosort'
headmsg 'Select From Bag' '2124'
promptalias 'bagtosort'
endif
pause 700
// !! user Input
if not @findobject 'stufftosell'
headmsg 'Select Junk Bag' '38'
promptalias 'stufftosell'
endif
pause 700
// !! user Input
if not @findobject 'stufftokeep'
headmsg 'Select Keeper Bag' '58'
promptalias 'stufftokeep'
endif
pause 700
//
// !! Static Data
if not listexists 'ItemTypes'
createlist 'ItemTypes'
endif
useobject 'bagtosort'
useobject 'stufftosell'
useobject 'stufftokeep'
clearlist 'ItemTypes'
//Shields
@pushlist 'ItemTypes' 0x1b72 //BronzeShields
@pushlist 'ItemTypes' 0x1b73 //Buckler
@pushlist 'ItemTypes' 0x1b7b //MetalShield
@pushlist 'ItemTypes' 0x1b74 //Metal Kite Shield
@pushlist 'ItemTypes' 0x1b79 //Tear Kite Shield
@pushlist 'ItemTypes' 0x1b7a //WoodenShield
@pushlist 'ItemTypes' 0x1b76 //HeaterShield
//Bone Armor
@pushlist 'ItemTypes' 0x1451 //Bone Helmet
@pushlist 'ItemTypes' 0x144f //Bone Armor
@pushlist 'ItemTypes' 0x1452 //Bone Leggings
@pushlist 'ItemTypes' 0x144e //Bone Arms
@pushlist 'ItemTypes' 0x1450 //Bone Gloves
//Platemail
@pushlist 'ItemTypes' 0x1408 //Close Helmet
@pushlist 'ItemTypes' 0x1410 //Platemail Arms
@pushlist 'ItemTypes' 0x1411 //Platemail Legs
@pushlist 'ItemTypes' 0x1412 //Plate Helm
@pushlist 'ItemTypes' 0x1413 //Plate Gorget
@pushlist 'ItemTypes' 0x1414 //Platemail Gloves
@pushlist 'ItemTypes' 0x1415 //Plate Chest
@pushlist 'ItemTypes' 0x140a //Helmet
@pushlist 'ItemTypes' 0x140c //Bascinet
@pushlist 'ItemTypes' 0x140e //Norse Helm
//Chainmail
@pushlist 'ItemTypes' 0x13bb //Chainmail Coif
@pushlist 'ItemTypes' 0x13be //Chainmail Leggins
@pushlist 'ItemTypes' 0x13bf //Chainmail Tunic
//Ringmail
@pushlist 'ItemTypes' 0x13ee //Ringmail Sleeves
@pushlist 'ItemTypes' 0x13eb //Ringmail Gloves
@pushlist 'ItemTypes' 0x13ec //Ringmail Tunic
@pushlist 'ItemTypes' 0x13f0 //Ringmail Leggins
//Studded
@pushlist 'ItemTypes' 0x13da //Studded Leggings
@pushlist 'ItemTypes' 0x13db //Studded Tunic
@pushlist 'ItemTypes' 0x13d5 //Studded Gloves
@pushlist 'ItemTypes' 0x13d6 //Studded Gorget
@pushlist 'ItemTypes' 0x13dc //Studded Sleeves
//Leather
@pushlist 'ItemTypes' 0x13c6 //Leather Gloves
@pushlist 'ItemTypes' 0x13cd //Leather Sleeves
@pushlist 'ItemTypes' 0x13cc //Leather Tunic
@pushlist 'ItemTypes' 0x13cb //Leather Pants
@pushlist 'ItemTypes' 0x13c7 //Leather Gorget
@pushlist 'ItemTypes' 0x1db9 //Leather Cap
//Female Armor
@pushlist 'ItemTypes' 0x1c04 //Female Plate
@pushlist 'ItemTypes' 0x1c0c //Female Studded Bustier
@pushlist 'ItemTypes' 0x1c02 //Female Studded Armor
@pushlist 'ItemTypes' 0x1c00 //Female Leather Shorts
@pushlist 'ItemTypes' 0x1c08 //Female Leather Skirt
@pushlist 'ItemTypes' 0x1c06 //Female Leather Armor
@pushlist 'ItemTypes' 0x1c0a //Female Leather Bustier
//Fencing
@pushlist 'ItemTypes' 0xf62 //Spear
@pushlist 'ItemTypes' 0x1403 //Short Spear
@pushlist 'ItemTypes' 0xe87 //Pitchfork
@pushlist 'ItemTypes' 0x1405 //Warfork
@pushlist 'ItemTypes' 0x1401 //Kryss
@pushlist 'ItemTypes' 0xf52 //Dagger
//Macing
@pushlist 'ItemTypes' 0x13b0 //War axe
@pushlist 'ItemTypes' 0xdf0 //Black Staff
@pushlist 'ItemTypes' 0x1439 //War Hammer
@pushlist 'ItemTypes' 0x1407 //War Mace
@pushlist 'ItemTypes' 0xe89 //Quarter Staff
@pushlist 'ItemTypes' 0x143d //Hammer Pick
@pushlist 'ItemTypes' 0x13b4 //Club
@pushlist 'ItemTypes' 0xe81 //Shepherds Crook
@pushlist 'ItemTypes' 0x13f8 //Gnarled Staff
@pushlist 'ItemTypes' 0xf5c //Mace
@pushlist 'ItemTypes' 0x143b //Maul
//Swords
@pushlist 'ItemTypes' 0x13b9 //Viking Sword
@pushlist 'ItemTypes' 0xf61 //Longsword
@pushlist 'ItemTypes' 0x1441 //Cutlass
@pushlist 'ItemTypes' 0x13b6 //Scimitar
@pushlist 'ItemTypes' 0xec4 //Skinning Knife
@pushlist 'ItemTypes' 0x13f6 //Butcher Knife
@pushlist 'ItemTypes' 0xf5e //Broadsword
@pushlist 'ItemTypes' 0x13ff //Katana
@pushlist 'ItemTypes' 0xec3 //Cleaver
//Axes
@pushlist 'ItemTypes' 0xf43 //Hatchet
@pushlist 'ItemTypes' 0xf45 //Executioner's Axe
@pushlist 'ItemTypes' 0xf4d //Bardiche
@pushlist 'ItemTypes' 0xf4b //Double Axe
@pushlist 'ItemTypes' 0x143e //Halberd
@pushlist 'ItemTypes' 0x13fb //Large Battle Axe
@pushlist 'ItemTypes' 0x1443 //Two Handed Axe
@pushlist 'ItemTypes' 0xf47 //Battle Axe
@pushlist 'ItemTypes' 0xf49 //Axe
@pushlist 'ItemTypes' 0xe85 //Pickaxe
@pushlist 'ItemTypes' 0xe86 //Pickaxe
//Bows
@pushlist 'ItemTypes' 0x13fd //HeavyXbow
@pushlist 'ItemTypes' 0xf50 //Xbow
@pushlist 'ItemTypes' 0x13b2 //bow
// !!*** End of Data Init ***!!
//
//
//
// !! cycle all items listed in var ItemTypes
for 0 to 'ItemTypes'
// !! Process all items found of current cyucled ItemType
while @findtype 'ItemTypes[]' 'any' 'bagtosort'
@clearjournal
moveitem found 'stufftosell'
// !! Id the item using Item ID Skill
pause 1500
useskill 'Item Identification'
waitfortarget 15000
target! found
pause 1500
//
// !!*** Item to do conditionals ***!!
// !!*** If any of these conditions are true
// !!*** The Item is a keeper , (Sure wish we
// !!*** Could use switchs bleh )
// !!*****************************************!!
if @injournal 'Silver' 'system'
moveitem found 'stufftokeep'
headmsg 'Silver' '2213'
@clearjournal
elseif @injournal 'Vanquishing' 'system'
moveitem found 'stufftokeep'
headmsg 'Vanquishing' '2213'
@clearjournal
elseif @injournal 'Power' 'system'
moveitem found 'stufftokeep'
headmsg 'Power' '2213'
@clearjournal
elseif @injournal 'Exorcism' 'system'
moveitem found 'stufftokeep'
headmsg 'Exorcisim' '2213'
@clearjournal
elseif @injournal 'Air' 'system'
moveitem found 'stufftokeep'
headmsg 'Air' '2213'
@clearjournal
elseif @injournal 'Daemon' 'system'
moveitem found 'stufftokeep'
headmsg 'Daemon' '2213'
@clearjournal
elseif @injournal 'Gargoyle' 'system'
moveitem found 'stufftokeep'
headmsg 'Gargoyle' '2213'
@clearjournal
elseif @injournal 'Fey' 'system'
moveitem found 'stufftokeep'
headmsg 'Fey' '2213'
@clearjournal
elseif @injournal 'Respond' 'system'
moveitem found 'stufftokeep'
headmsg 'Respond' '2213'
@clearjournal
elseif @injournal 'Repond' 'system'
moveitem found 'stufftokeep'
headmsg 'Repond' '2213'
@clearjournal
elseif @injournal 'Vacuum' 'system'
moveitem found 'stufftokeep'
headmsg 'Vacuum' '2213'
@clearjournal
elseif @injournal 'Flame' 'system'
moveitem found 'stufftokeep'
headmsg 'Flame' '2213'
@clearjournal
elseif @injournal 'Elemental' 'system'
moveitem found 'stufftokeep'
headmsg 'Elemental' '2213'
@clearjournal
elseif @injournal 'Earth' 'system'
moveitem found 'stufftokeep'
headmsg 'Earth' '2213'
@clearjournal
elseif @injournal 'Water' 'system'
moveitem found 'stufftokeep'
headmsg 'Water' '2213'
@clearjournal
elseif @injournal 'Ogre' 'system'
moveitem found 'stufftokeep'
headmsg 'Ogre' '2213'
@clearjournal
elseif @injournal 'Orc' 'system'
moveitem found 'stufftokeep'
headmsg 'Orc' '2213'
@clearjournal
elseif @injournal 'Arachnid' 'system'
moveitem found 'stufftokeep'
headmsg 'Arachnid' '2213'
@clearjournal
elseif @injournal 'Spider' 'system'
moveitem found 'stufftokeep'
headmsg 'Spider' '2213'
@clearjournal
elseif @injournal 'Scorpion' 'system'
moveitem found 'stufftokeep'
headmsg 'Scorpion' '2213'
@clearjournal
elseif @injournal 'Terathan' 'system'
moveitem found 'stufftokeep'
headmsg 'Terathan' '2213'
@clearjournal
elseif @injournal 'Reptile' 'system'
moveitem found 'stufftokeep'
headmsg 'Reptile' '2213'
@clearjournal
elseif @injournal 'Dragon' 'system'
headmsg 'Dragon' '2213'
moveitem found 'stufftokeep'
@clearjournal
elseif @injournal 'Lizardman' 'system'
moveitem found 'stufftokeep'
headmsg 'Lizardman' '2213'
@clearjournal
elseif @injournal 'Ophidian' 'system'
moveitem found 'stufftokeep'
headmsg 'Ophidan' '2213'
@clearjournal
elseif @injournal 'Snake' 'system'
moveitem found 'stufftokeep'
headmsg 'Snake' '2213'
@clearjournal
elseif @injournal 'Undead' 'system'
moveitem found 'stufftokeep'
headmsg 'Undead' '2213'
@clearjournal
elseif @injournal 'Blood' 'system'
moveitem found 'stufftokeep'
headmsg 'Blood' '2213'
@clearjournal
elseif @injournal 'Poison' 'system'
moveitem found 'stufftokeep'
headmsg 'Poison' '2213'
@clearjournal
elseif @injournal 'Troll' 'system'
moveitem found 'stufftokeep'
headmsg 'Troll' '2213'
@clearjournal
elseif @injournal 'Fire' 'system'
moveitem found 'stufftokeep'
headmsg 'Fire' '2213'
@clearjournal
elseif @injournal 'Snow' 'system'
moveitem found 'stufftokeep'
headmsg 'Snow' '2213'
@clearjournal
elseif @injournal 'Demon' 'system'
moveitem found 'stufftokeep'
headmsg 'Demon' '2213'
@clearjournal
elseif @injournal 'Balron' 'system'
moveitem found 'stufftokeep'
headmsg 'Balron' '2213'
@clearjournal
//
elseif @injournal 'Invulnerability' 'system'
moveitem found 'stufftokeep'
headmsg 'Invulnerability' '2213'
@clearjournal
elseif @injournal 'Leather Gloves' 'system'
moveitem found 'stufftokeep'
headmsg 'Leather Gloves' '2213'
@clearjournal
elseif @injournal 'Leather Sleeves' 'system'
moveitem found 'stufftokeep'
headmsg 'Leather Sleeves' '2213'
@clearjournal
elseif @injournal 'Leather Tunic' 'system'
moveitem found 'stufftokeep'
headmsg 'Leather Tunic' '2213'
@clearjournal
elseif @injournal 'Leather Leggings' 'system'
moveitem found 'stufftokeep'
headmsg 'Leather Leggings' '2213'
@clearjournal
elseif @injournal 'Leather Gorget' 'system'
moveitem found 'stufftokeep'
headmsg 'Leather Gorget' '2213'
@clearjournal
elseif @injournal 'Leather Cap' 'system'
moveitem found 'stufftokeep'
headmsg 'Leather Cap' '2213'
@clearjournal
elseif @injournal 'studded' 'system'
moveitem found 'stufftokeep'
headmsg 'Studded Armor!!' '2213'
@clearjournal
endif
@clearjournal
endwhile
endfor
msg '[e whistle'
headmsg 'All Done' '2124'
stop
« Last Edit: November 06, 2016, 05:24:06 PM by Evolution »

March 04, 2016, 03:44:39 PM
Reply #5

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Ultima Online - Recall Escape - UO Steam Script Macro

Code: [Select]
if not listexists 'home'
createlist 'home'
pushlist 'home' 0x401fb957 //serial for runebook for char 1
pushlist 'home' 0x4048cd67 //serial for runebook for char 2
pushlist 'home' 0x40725d1b //serial for runebook for char 3
pushlist 'home' 0x41b25eac //serial for runebook for char 4
pushlist 'home' 0x4048603a //serial for etc
endif
while @findtype 0x22c5 'any' 'backpack'
ignoreobject 'found'
for 0 to 'home'
if @Serial 'found' == serial 'home[]'
if @Serial 'found' == serial 0x41b25eac //for tamers, remove if statement


if your not a tamer
msg 'all come'
msg 'all come'
endif
cast "Recall"
waitfortarget 2000
target! 'found'
break
endif
endfor
endwhile
clearignorelist
« Last Edit: November 06, 2016, 05:23:37 PM by Evolution »

March 04, 2016, 03:45:09 PM
Reply #6

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com
Ultima Online - Weapon Swap - UO Steam Script Macro


One Button weapon swap

Code: [Select]
if not listexists 'swapweapons'


createlist 'swapweapons'


endif


if list 'swapweapons' < 1


pushlist 'swapweapons' 0x41cebcd4 //set serial here


pushlist 'swapweapons' 0x41cebe3d //set serial here


endif


if findobject 'lefthand'


clearhands 'both'


pause 500


endif


equipitem swapweapons[0] 1


poplist 'swapweapons' 'front'
« Last Edit: November 06, 2016, 05:23:20 PM by Evolution »

March 04, 2016, 03:46:24 PM
Reply #7

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com
Ultima Online - Cure/Heal Potion Drinker - UO Steam Script Macro

Code: [Select]
// $$$$$$$$ Cure Heal Pot Chugger $$$$$$$$
// $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
// ?? By Amonseti
// ?? V2.1
// ?? This macro only requires that there
// ?? be Cure and / or Heal pots in the
// ?? Main pack or any bag in the main.
// ??
// ?? Macro will first check if you are
// ?? holding a weapon and clear your hands
// ?? to allow for pot chuggins. It will
// ?? then do a check to see if you are
// ?? Poisoned and attempt to cure it.
// ?? with a cure pot. other wise it will
// ?? chug a heal pot.
// ??
// ?? When done the macro will automatically
// ?? re-equip the weapon you were using..
// ??
// !! Check if holding a weapon !!
if @findlayer 'self' 2
// !! Unequip wep
togglehands 'left'
pause 600
//
// !! Check poison state
if poisoned 'self'
// !! Player is poisoned: Cure it
if @findtype 0xf07 0 'backpack'
@setalias 'Potion' 'found'
useobject! 'Potion'
else
headmsg 'OUT!!! of Cure potions'
endif
else
// !! Not poisoned: Heal wounds
if @findtype 0xf0c 0 'backpack'
@setalias 'Potion' 'found'
useobject! 'Potion'
else
headmsg 'OUT!!! of Heal potions'
endif
endif
//
pause 600
// !! Re-Equip Weapon player was holding
togglehands 'left'
else
// !! Check poison state
if poisoned 'self'
// !! Player is poisoned: Cure it
if @findtype 0xf07 0 'backpack'
@setalias 'Potion' 'found'
useobject! 'Potion'
else
headmsg 'OUT!!! of Cure potions'
endif
else
// !! Not poisoned: Heal wounds
if @findtype 0xf0c 0 'backpack'
@setalias 'Potion' 'found'
useobject! 'Potion'
else
headmsg 'OUT!!! of Heal potions'
endif
endif
endif


« Last Edit: November 06, 2016, 05:22:56 PM by Evolution »

March 04, 2016, 03:47:10 PM
Reply #8

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Ultima Online - Dex Potion Drinker - UO Steam Script Macro


Code: [Select]
// $$$$$$$$$$$ Dex Pot Chugger $$$$$$$$$$$
// $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
// ?? By Amonseti
// ?? V2.0
// ?? This macro only requires that there
// ?? be Dex pots in the Main pack or any
// ?? bag in the main.
// ??
// ?? Macro will first check if you are
// ?? holding a weapon and clear your hands
// ?? to allow for pot chuggins.
// ??
// ?? When done the macro will automatically
// ?? re-equip the weapon you were using..
// ??
//
// !! Check if holding a weapon !!
if @findlayer 'self' 2
// !! Unequip wep
togglehands 'left'
pause 600
//
if @findtype 0xf08 0 'backpack'
@setalias 'Potion' 'found'
useobject! 'Potion'
else
headmsg 'OUT!!! of Dex potions'
endif
//
pause 600
// !! Re-Equip Weapon player was holding
togglehands 'left'
else
if @findtype 0xf08 0 'backpack'
@setalias 'Potion' 'found'
useobject! 'Potion'
else
headmsg 'OUT!!! of Dex potions'
endif
endif
« Last Edit: November 06, 2016, 05:22:37 PM by Evolution »

March 04, 2016, 03:47:41 PM
Reply #9

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com
Ultima Online - Inscription Trainer - UO Steam Script Macro

Code: [Select]
////////////////////////////////////
// This macro is designed for //
// training inscription from 30. //
// It is intended for characters //
// with 40+ intelligence. //
// //
// Turn on loop and click play! //
// //
// ~~Made by kdivers~~ //
////////////////////////////////////
if not @findtype 0xfbf 0x0 'backpack'
headmsg 'Get more scribes pens!'
stop
endif
if @ingump 0x38920abd 'You lack the required'
useskill 'meditation'
while mana < maxmana
endwhile
endif
if @ingump 0x38920abd 'You do not have enough'
headmsg 'Get more supplies!'
stop
endif
if skill 'inscription' < 30
headmsg 'Buy more skill!'
stop
elseif skill 'inscription' < 55
if usetype 0xfbf
waitforgump 0x38920abd 15000
replygump 0x38920abd 22
waitforgump 0x38920abd 15000
replygump 0x38920abd 51
waitforgump 0x38920abd 2000
endif
elseif skill 'inscription' < 75
if usetype 0xfbf
waitforgump 0x38920abd 15000
replygump 0x38920abd 36
waitforgump 0x38920abd 15000
replygump 0x38920abd 30
waitforgump 0x38920abd 2000
endif
elseif skill 'inscription' < 95
if usetype 0xfbf
waitforgump 0x38920abd 15000
replygump 0x38920abd 43
waitforgump 0x38920abd 15000
replygump 0x38920abd 23
waitforgump 0x38920abd 2000
endif
elseif skill 'inscription' < 101
if usetype 0xfbf
waitforgump 0x38920abd 15000
replygump 0x38920abd 50
waitforgump 0x38920abd 15000
replygump 0x38920abd 9
waitforgump 0x38920abd 2000
endif
else
headmsg 'Inscription complete!'
stop
endif
« Last Edit: November 06, 2016, 05:22:15 PM by Evolution »

March 04, 2016, 03:48:10 PM
Reply #10

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com
Ultima Online - UO Spellbook Maker - UO Steam Script Macro


Code: [Select]
//===============================================================
//=---------------------Spell Book Maker------------------------=
//=-------------------------By:Hawt-----------------------------=
//=-------------------------------------------------------------=
//=--------This script will make scrolls 1-64, Place them-------=
//=-----------in the book, meditate, and adjust when------------=
//=----to use mediation Based on what scrolls you are making----=
//=----I have broke the script down pretty good in order for----=
//=--------others to learn from 'dissecting' the script --------=
//=-------------------------------------------------------------=
//===============================================================
//=Gives Target for you too select the spellbook you want filled=
//===============================================================
if not @findobject 'spellbook'
sysmsg '!!!! Target Empty Spell Book !!!!' '23'
promptalias 'spellbook'
endif
//===============================================================
//=-----List of the gump buttons for the 8 Spell Circles.-------=
//===============================================================
if not listexists 'Circle'
@createlist 'Circle'
endif
if 'list' 'Circle' == '0'
@pushlist 'Circle' '1'
@pushlist 'Circle' '8'
@pushlist 'Circle' '15'
@pushlist 'Circle' '22'
@pushlist 'Circle' '29'
@pushlist 'Circle' '36'
@pushlist 'Circle' '43'
@pushlist 'Circle' '50'
endif
//==============================================================
//=--------List of the gump buttons for each scroll------------=
//==============================================================
if not listexists 'Spells'
@createlist 'Spells'
endif
if 'list' 'Spells' == '0'
@pushlist 'Spells' '2'
@pushlist 'Spells' '9'
@pushlist 'Spells' '16'
@pushlist 'Spells' '23'
@pushlist 'Spells' '30'
@pushlist 'Spells' '37'
@pushlist 'Spells' '44'
@pushlist 'Spells' '51'
endif
//==============================================================
//=-------------List of different Mana lvls--------------------=
//==============================================================
if not listexists 'Mana'
@createlist 'Mana'
endif
if 'list' 'Mana' == '0'
@pushlist 'Mana' '4'
@pushlist 'Mana' '6'
@pushlist 'Mana' '9'
@pushlist 'Mana' '11'
@pushlist 'Mana' '14'
@pushlist 'Mana' '20'
@pushlist 'Mana' '40'
@pushlist 'Mana' '50'
endif
//==============================================================
//=--------------List all Scrolls for each spell---------------=
//==============================================================
//=----------I did not make this list i took the list----------=
//=------------from another in The script library--------------=
//=-------------------Thank you Kadoba!!-----------------------=
//=http://www.runuo.com/community/resources/fill-spellbook.57/-=
//==============================================================
if not listexists 'scrolls'
@createlist 'scrolls'
endif
if 'list' 'scrolls' == '0'
@pushlist 'scrolls' 0x1f2d // Reactive Armor
@pushlist 'scrolls' 0x1f2e // Clumsy
@pushlist 'scrolls' 0x1f2f // Create Food
@pushlist 'scrolls' 0x1f30 // Feeblemind
@pushlist 'scrolls' 0x1f31 // Heal
@pushlist 'scrolls' 0x1f32 // Magic Arrow
@pushlist 'scrolls' 0x1f33 // Night Sight
@pushlist 'scrolls' 0x1f34 // Weaken
@pushlist 'scrolls' 0x1f35 // Agility
@pushlist 'scrolls' 0x1f36 // Cunning
@pushlist 'scrolls' 0x1f37 // Cure
@pushlist 'scrolls' 0x1f38 // Harm
@pushlist 'scrolls' 0x1f39 // Magic Trap
@pushlist 'scrolls' 0x1f3a // Magic Untrap
@pushlist 'scrolls' 0x1f3b // Protection
@pushlist 'scrolls' 0x1f3c // Strength
@pushlist 'scrolls' 0x1f3d // Bless
@pushlist 'scrolls' 0x1f3e // Fireball
@pushlist 'scrolls' 0x1f3f // Magic Lock
@pushlist 'scrolls' 0x1f40 // Poison
@pushlist 'scrolls' 0x1f41 // Telekinesis
@pushlist 'scrolls' 0x1f42 // Teleport
@pushlist 'scrolls' 0x1f43 // Unlock
@pushlist 'scrolls' 0x1f44 // Wall of Stone
@pushlist 'scrolls' 0x1f45 // Arch Cure
@pushlist 'scrolls' 0x1f46 // Arch Protection
@pushlist 'scrolls' 0x1f47 // Curse
@pushlist 'scrolls' 0x1f48 // Fire Field
@pushlist 'scrolls' 0x1f49 // Greater Heal
@pushlist 'scrolls' 0x1f4a // Lightning
@pushlist 'scrolls' 0x1f4b // Mana Drain
@pushlist 'scrolls' 0x1f4c // Recall
@pushlist 'scrolls' 0x1f4d // Blade Spirit
@pushlist 'scrolls' 0x1f4e // Dispel Field
@pushlist 'scrolls' 0x1f4f // Incognito
@pushlist 'scrolls' 0x1f50 // Magic Reflection
@pushlist 'scrolls' 0x1f51 // Mind Blast
@pushlist 'scrolls' 0x1f52 // Paralyze
@pushlist 'scrolls' 0x1f53 // Poison Field
@pushlist 'scrolls' 0x1f54 // Summon Creature
@pushlist 'scrolls' 0x1f55 // Dispel
@pushlist 'scrolls' 0x1f56 // Energy Bolt
@pushlist 'scrolls' 0x1f57 // Explosion
@pushlist 'scrolls' 0x1f58 // Invisibility
@pushlist 'scrolls' 0x1f59 // Mark
@pushlist 'scrolls' 0x1f5a // Mass Curse
@pushlist 'scrolls' 0x1f5b // Paralyze Field
@pushlist 'scrolls' 0x1f5c // Reveal
@pushlist 'scrolls' 0x1f5d // Chain Lightning
@pushlist 'scrolls' 0x1f5e // Energy Field
@pushlist 'scrolls' 0x1f5f // Flamestrike
@pushlist 'scrolls' 0x1f60 // Gate Travel
@pushlist 'scrolls' 0x1f61 // Mana Vampire
@pushlist 'scrolls' 0x1f62 // Mass Dispel
@pushlist 'scrolls' 0x1f63 // Meteor Swarm
@pushlist 'scrolls' 0x1f64 // Polymorph
@pushlist 'scrolls' 0x1f65 // Earthquake
@pushlist 'scrolls' 0x1f66 // Energy Vortex
@pushlist 'scrolls' 0x1f67 // Ressurrection
@pushlist 'scrolls' 0x1f68 // Summon Air Elemental
@pushlist 'scrolls' 0x1f69 // Summon Daemon
@pushlist 'scrolls' 0x1f6a // Summon Earth Elemental
@pushlist 'scrolls' 0x1f6b // Summon Fire Elemental
@pushlist 'scrolls' 0x1f6c // Summon Water Elemental
endif
//===============================================================
//=-------Basically telling the script when to meditate---------=
//===============================================================
if mana < Mana[0]
useskill 'meditation'
while not mana == maxmana
endwhile
endif
//===============================================================
//=-----------------Checks for Blank Scrolls.-------------------=
//===============================================================
if not @findtype '0xef3' 'any' 'backpack'
sysmsg '#### No Scrolls###'
stop
endif
//===============================================================
//=---Checks for Scribe Pens, if finding one is uses the pen.---=
//===============================================================
if @usetype '0xfbf' 'any' 'backpack'
waitforgump '0x38920abd' '5000'
else
sysmsg '####No Pens ####' '23'
stop
endif
//==============================================================
//=-----------------Gump Buttons to be pressed.----------------=
//==============================================================
replygump '0x38920abd' Circle[0]
waitforgump '0x38920abd' '5000'
replygump '0x38920abd' Spells[0]
waitforgump '0x38920abd' '5000'
pause 900
//==============================================================
//=------------Checks for Scroll to be placed in book----------=
//==============================================================
if @movetype scrolls[0] 'backpack' 'spellbook' 0 0 0 'any' '1'
pause '1000'
poplist 'Spells' 'front'
poplist 'scrolls' 'front'
endif
//==============================================================
//=--------After Finishing a complete circle of spells---------=
//=-----This changes the Spell Circle and When to meditate.----=
//==============================================================
if list 'Spells' == 0
poplist 'Circle' 'front'
poplist 'Mana' 'front'
endif
//==============================================================
//=----This stops the script when completeing a full book.-----=
//==============================================================
if list 'scrolls' == 0
unsetalias 'spellbook'
sysmsg 'Spell Book Should Be Full' '23'
stop
endif
« Last Edit: November 06, 2016, 05:21:54 PM by Evolution »

March 04, 2016, 03:48:47 PM
Reply #11

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Ultima Online - Lumberjack Assistant - UO Steam Script Macro

Code: [Select]
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
//$$ Manual Lumberjacking assistant
//$$ By: Amonseti
//$$ V 1.8
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
//
//??? USAGE GUIDE LINES:
//??? Simply create a new macro. give it an appropreate name,
//??? Any will do.
//???
//??? Run the macro. with an axe equiped or in your backpack
//??? The macro will look for a tree first tile west
//??? of where your character is standing.
//??? The macro will tell you when to move onto the next
//??? tree until your weight has exceeded 380stones. ( This
//??? is based off of assuming your lumberjacker has 100strength)
//??? There are some trees that due to terrain height are unchoppable
//??? if for some reason you find yourself just standing there not
//??? Collecting wood ... Then move on to next tree.
//???
//???
//
//
// !! Find and equip any axe in backpack ***
if not listexists 'AxeList'
createlist 'AxeList'
endif


// !! axe data
@clearlist 'AxeList'
@pushlist 'AxeList' 0xf43 //Hatchet
@pushlist 'AxeList' 0xf45 //Executioner's Axe
@pushlist 'AxeList' 0xf4d //Bardiche
@pushlist 'AxeList' 0xf4b //Double Axe
@pushlist 'AxeList' 0x143e //Halberd
@pushlist 'AxeList' 0x13fb //Large Battle Axe
@pushlist 'AxeList' 0x1443 //Two Handed Axe
@pushlist 'AxeList' 0xf47 //Battle Axe
@pushlist 'AxeList' 0xf49 //Axe
//
// !! Equip Axe
for 0 to 'AxeList'
if @findtype 'AxeList[]' 'any' 'backpack'
unsetalias 'AXE'
setalias 'AXE' 'found'
endif
endfor
//******************************************
//
// !! Main chopping routine
while weight < 380
clearjournal
if not @findlayer 'self' 2
equipitem 'AXE' 2
pause 600
endif
//
useobject 'LeftHand'
waitfortarget 1000
targettileoffset -1 0 0
pause 500
//
//
//****** Wait for it **********************
// !! System hickup insurance loop
for 60
if @injournal 'enough wood here' 'system'
break
elseif @injournal 'You chop' 'system'
break
elseif @injournal "fail to" "system"
break
elseif @injournal "You can't" "system"
break
elseif @injournal "You can" "system"
break
elseif not @findlayer 'self' 2
break
else
pause 100
endif
endfor
//
//******************************************
//
//*** Display proper feedback
if @injournal "You can't" "system"
pause 500
endif
if @injournal 'enough wood here' 'system'
headmsg 'NO MORE WOOD' '2124'
headmsg 'go to next tree' '2124'
msg '[e whistle'
pause 2000
endif
if @injournal 'some ordinary' 'system'
headmsg '--Ordinary wood--' '1150'
clearjournal
endif
if @injournal 'some oak' 'system'
headmsg '--OAK--' '2010'
clearjournal
endif
if @injournal 'some ash' 'system'
headmsg '--ASH--' '1191'
clearjournal
endif
if @injournal 'some yew' 'system'
headmsg '--YEW--' '1192'
msg '[e ah'
clearjournal
endif
if @injournal 'some heartwood' 'system'
headmsg '>!!!--HEARTWOOD--!!!<' '1193'
msg '[e yea'
clearjournal
endif
if @injournal 'some bloodwood' 'system'
headmsg '>!!!--BLOODWOOD--!!!<' '1194'
msg '[e woohoo'
clearjournal
endif
if @injournal 'some frostwood' 'system'
headmsg '>!!!--FROSTWOOD--!!!<' '1151'
msg '[e woohoo'
clearjournal
endif
//******************************************
//
//
endwhile
headmsg 'Over Weight Fatty !' '89'
headmsg 'go home and unload!' '89'



« Last Edit: November 06, 2016, 05:21:29 PM by Evolution »

March 04, 2016, 03:49:30 PM
Reply #12

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Ultima Online - Mining - UO Steam Script Macro

Code: [Select]
if not @findalias 'Beetle'
promptalias 'Beetle'
endif
if counttype 0x19b9 'any' 'backpack' < 188
movetype 0x19b9 'backpack' 'Beetle'
endif
if not listexists 'miningerrormessages'
createlist 'miningerrormessages'
pushlist 'miningerrormessages' 'no metal here'
pushlist 'miningerrormessages' "You can't mine there"
pushlist 'miningerrormessages' "Target cannot be seen"
pushlist 'miningerrormessages' "You can't mine that"
endif
if @findtype 0xe86 'any' 'backpack' or @findtype 0xf39 'any' 'backpack'
useobject 'found'
else
sysmsg "You do not have any digging tools!"
stop
endif
waitfortarget 500
if direction == 0
targettileoffset 0 -1 0
elseif direction == 1
targettileoffset 1 -1 0
elseif direction == 2
targettileoffset 1 0 0
elseif direction == 3
targettileoffset 1 1 0
elseif direction == 4
targettileoffset 0 1 0
elseif direction == 5
targettileoffset -1 1 0
elseif direction == 6
targettileoffset -1 0 0
elseif direction == 7
targettileoffset -1 -1 0
endif
pause 200
if @findtype 0xe86 'any' 'backpack' or @findtype 0xf39 'any' 'backpack'
useobject 'found'
else
sysmsg "You do not have any digging tools!"
stop
endif
waitfortarget 500
if direction == 1
targettileoffset 0 -1 0
elseif direction == 2
targettileoffset 1 -1 0
elseif direction == 3
targettileoffset 1 0 0
elseif direction == 4
targettileoffset 1 1 0
elseif direction == 5
targettileoffset 0 1 0
elseif direction == 6
targettileoffset -1 1 0
elseif direction == 7
targettileoffset -1 0 0
elseif direction == 0
targettileoffset -1 -1 0
endif
pause 200
if @findtype 0xe86 'any' 'backpack' or @findtype 0xf39 'any' 'backpack'
useobject 'found'
else
sysmsg "You do not have any digging tools!"
stop
endif
waitfortarget 500
if direction == 7
targettileoffset 0 -1 0
elseif direction == 0
targettileoffset 1 -1 0
elseif direction == 1
targettileoffset 1 0 0
elseif direction == 2
targettileoffset 1 1 0
elseif direction == 3
targettileoffset 0 1 0
elseif direction == 4
targettileoffset -1 1 0
elseif direction == 5
targettileoffset -1 0 0
elseif direction == 6
targettileoffset -1 -1 0
endif
pause 10


« Last Edit: November 06, 2016, 05:20:37 PM by Evolution »

March 04, 2016, 03:50:06 PM
Reply #13

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com
Ultima Online - Fishing - UO Steam Script Macro


This macro will fish a target location and cut the fish into steaks then
organize your bags so all the junk will be in a bag and the fish steaks go
to your fishing bag.

Code: [Select]
\\\\\\\\\\Make sure you delete anything between this\\\\\\\\\\\\\\\\\\\\\\


usetype 0xdbf \\\\\\\\\\\\Uses your fishing pole\\\\\\\\\\\\\
waitfortarget 15000
targettile 5210 787 -5 \\\\\\\\\\\\Create a test macro and record the


target area you will use\\\\\\\\\\\\\\\\\\\\
pause 1000
usetype 0xf52 \\\\\\\\\\Uses your knife on a fish


type\\\\\\\\\\\\\\\\\\\\\\
waitingfortarget 15000
targettype 0x9cc
pause 1000
usetype 0xf52 \\\\\\\\\\\\\\\This one is a duplicate but for some reason


the first one doesn't work\\\\\\\\\\
waitingfortarget 15000
targettype 0x9cc
pause 1000
usetype 0xf52
waitingfortarget 15000
targettype 0x9cf
pause 1000
usetype 0xf52
waitingfortarget 15000
targettype 0x9ce
pause 1000
usetype 0xf52
waitingfortarget 15000
targettype 0x9cd
pause 1000
usetype 0xf52
waitingfortarget 15000
targettype 0x170d
pause 1000
msg '[organizeme' \\\\\\\\\\\\\\\Organizes items in your inventory\\\\\\\\
canceltarget \\\\\\Crucial to avoid target lock during world
saves\\\\\\\\\\


If you don't know what I mean by using a test macro then follow the below


steps:


1) Create a new macro named test
2) Click record
3) Double click your fishing pole
4) Click where you want to fish and if you can fish there
5) Copy just the targettile from the test macro and paste over line 3


[/size]That is the only customization you should have to do to this macro between
characters and locations.[/font]
« Last Edit: November 06, 2016, 05:20:14 PM by Evolution »

March 04, 2016, 03:50:36 PM
Reply #14

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com
Ultima Online - UO Bandself - UO Steam Script Macro

Code: [Select]
smart bandage self

I still keep a standard bandage self hotkey but here is one that I put
together. I mainly did this to avoid accidentally interrupting a heal,
starting it all over. I also add it to the front end of other macros on my
healers to make sure I don't skip a heal.

if not timerexists 'Bandage Timer'

createtimer 'Bandage Timer'

settimer 'Bandage Timer' 10250

endif

//poisoned

if poisoned 'self' and timer 'Bandage Timer' >= 10250

bandageself

waitfortarget 1500

target! 'self'

settimer 'Bandage Timer' 0

endif

if hits < maxhits and timer 'Bandage Timer' >= 10250

bandageself

waitfortarget 1500

target! 'self'

settimer 'Bandage Timer' 0

endif
« Last Edit: November 06, 2016, 05:19:47 PM by Evolution »

March 04, 2016, 03:51:00 PM
Reply #15

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Auto Heal Pets

Code: [Select]
if not findalias 'pet'
promptalias 'pet'
endif
if not inrange 'pet' 1
headmsg 'Get closer.'
unsetalias 'pet'
stop
endif
if diffhits 'pet' <= 0
headmsg 'Pet full health.'
unsetalias 'pet'
stop
endif
if @findtype 0xe21
@useobject 'found'
else
headmsg 'out of bandages'
stop
endif
clearjournal
waitfortarget 1000
target! 'pet'
if injournal 'not damaged' 'system'
headmsg 'not hurt'
unsetalias 'pet'
stop
endif
clearjournal
while not @injournal 'you finish applying' 'system'
//headmsg 'pausing'
pause 50
endwhile
replay
« Last Edit: November 06, 2016, 05:19:23 PM by Evolution »

March 12, 2016, 04:28:46 PM
Reply #16

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

First macro is simple attacker macro:
 
getenemy 'murderer' 'enemy' 'criminal' 'gray' 'closest'
attack 'enemy'
pause 1250


second is attacker with secondary ability:


setability 'secondary' 'on'
getenemy 'murderer' 'enemy' 'criminal' 'gray' 'closest'
attack 'enemy'
 pause 1250


third is an attacker with a grab at end to loot all corpses:


getenemy 'murderer' 'enemy' 'criminal' 'gray' 'closest'
attack 'enemy'
pause 1250
 msg '[grab'

March 13, 2016, 04:03:45 PM
Reply #17

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Heals 2 pets. Heals Lowest pet as long as it is within 1 tile.

Code: [Select]
//Heals 2 pets.
//Included weight check on self
@cleartargetqueue
@clearjournal
if dead 'self'
  stop
endif
//Setup
if not findalias 'pet1'
  headmsg 'Select first pet'
  promptalias 'pet1'
endif
if not findalias 'pet2'
  headmsg 'Select second pet'
  promptalias 'pet2'
endif
//Feed pets
if not timerexists 'feed'
  createtimer 'feed'
endif
if timer 'feed' > 600000
  if @inrange 'pet1' 1 or @inrange 'pet2' 1
    headmsg 'Feeding Pets!!!'
    pause 600
    feed 'pet1' '0x9f1' 'any' '1'
    pause 700
    feed 'pet2' '0x9f1' 'any' '1'
    settimer 'feed' 0
  endif
endif
//Heal them to full
while hits 'pet1' == maxhits 'pet1' and hits 'pet2' == maxhits 'pet2'
  pause 50
endwhile
if diffhits 'pet1' > diffhits 'pet2'
  if inrange 'pet1' 1
    bandage
    autotargetobject 'pet1'
    pause 6100
  endif
else
  if inrange 'pet2' 1
    bandage
    autotargetobject 'pet2'
    pause 6100
  endif
endif
if not @injournal 'finish' 'system'
  pause 1100
  replay
else if @injournal 'finish' 'system'
  @clearjournal
  replay
elseif @injournal 'too far away' 'system'
  @clearjournal
  replay
elseif @injournal 'stay close enough' 'system'
  @clearjournal
  replay
endif
if mana > 25
  while weight >= maxweight
    cast 'bless'
    autotargetself!
    pause 1500
  endwhile
endif

« Last Edit: November 06, 2016, 05:18:54 PM by Evolution »

March 17, 2016, 10:21:21 PM
Reply #18

Offline Smilingdeath

  • Sr. Member
  • ****
  • Posts: 288
  • Karma: +15/-7
Here is a site that I use for some UOSteam macros, sometimes they need a little tweaking for this server though.


http://greeduo.wix.com/uomacro#!macros-for-uosteam/c1kh5


They also have razor and autohotkey as well.

April 12, 2016, 05:47:06 AM
Reply #19

Offline Fysen

  • Newbie
  • *
  • Posts: 15
  • Karma: +3/-0
I'm really picky about my targeting system, so I made this alternate tab-target style macro. This takes care of the 1] Targeting closest enemy 2] Enabling War Mode 3] Auto-attacking closest enemy 4] Disabling War Mode

Enjoy! =D

Code: [Select]
@getenemy 'murderer' 'Enemy' 'criminal' 'gray' 'closest'
if @findobject 'enemy'
  // Set the next line to the distance you want to be at for the macro to insist on turning on war mode.
  if distance 'enemy' <= 8
    warmode 'on'
  endif
  // Set the next line to the distance you want to be at for the macro to insist you needn't be in war mode any longer.
  if distance 'enemy' > 12
    warmode 'off'
  endif
  autotargetobject! 'enemy'
  attack! 'enemy'
endif
if not @findobject 'enemy'
  warmode 'off'
endif
@clearusequeue
@cancelautotarget
« Last Edit: April 12, 2016, 05:49:04 AM by Fysen »
I like to tame things, explore new areas, and craft. If you want to TEACH me to PvP, PM me. =D

November 06, 2016, 04:02:14 PM
Reply #20

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Train Carpentry - UOS Macro

I decided to post this handy script i wrote, it trains carpentry from 30 to 100 fully automated.
All you need is a bag with boards and ingots, at least 50 tinkering, and at least 1 tinker tool in you backpack.

At some point the macro starts crafting "ballot box", which come deeded.
Be sure you don't keep any valuable deeds (PS,SoT,Repair Deeds, Commodity) in your backpack as the macro will trash them.

Code: [Select]
//setting aliases
if not @findalias 'init1'
  sysmsg 'Target a restock container' 232
  promptalias 'fletch_restock' 0x42d175f5 
  sysmsg 'Target the trash barrel' 232
  @setalias 'init1' 'self'
  promptalias 'trash1' 0x4249518f
endif
if not listexists 'carpenstuff'
  createlist 'carpenstuff'
  pushlist 'carpenstuff' 0x9aa
  pushlist 'carpenstuff' 0xb4f
  pushlist 'carpenstuff' 0x27aa
  pushlist 'carpenstuff' 0x14f0
  pushlist 'carpenstuff' 0x27a8
  pushlist 'carpenstuff' 0x13f8
endif
//Tinker skill check
if skill 'Tinkering' < 45
  sysmsg 'Tinkering skill is too low, train it first' 232
  stop
endif
//check backpack for boards
if counttype 0x1bd7 0 'backpack' < 40
  movetype 0x1bd7 'fletch_restock' 'backpack'[(0 0 0)] 0 245
  pause 650
endif
// check for ingots
if counttype 0x1bf2 0 'backpack' < 10
  movetype 0x1bf2 'fletch_restock' 'backpack'[(0 0 0)] 0 45
  pause 650
endif
//craft tinker kits
//=================
while @counttype 0x1eb8 0 'backpack' < 3
  usetype! 0x1eb8
  waitforgump 0x38920abd 2000
  @replygump 0x38920abd 8
  waitforgump 0x38920abd 2000
  @replygump 0x38920abd 23
  waitforgump 0x38920abd 2000
endwhile
//check for carpenter saws
while @counttype 0x1034 0 'backpack' < 3
  usetype 0x1eb8
  waitforgump 0x38920abd 2000
  @replygump 0x38920abd 8
  waitforgump 0x38920abd 2000
  replygump 0x38920abd 51
  waitforgump 0x38920abd 15000
endwhile
// Crafting carpen stuff
If skill 'Carpentry' > 79 and skill 'Carpentry' < 100
   usetype 0x1034
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 22
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 16
elseif skill 'Carpentry' > 72 and skill 'Carpentry' < 79
   usetype 0x1034
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 22
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 23
elseif skill 'Carpentry' > 65 and skill 'Carpentry' < 72
   usetype 0x1034
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 22
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 30
elseif skill 'Carpentry'> 48 and skill 'Carpentry' < 65
   usetype 0x1034
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 43
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 128
elseif skill 'Carpentry' < 48 and skill 'Carpentry' > 45
   usetype 0x1034
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 8
    waitforgump 0x38920abd 1500
    replygump 0x38920abd 30
elseif skill 'Carpentry' < 45
    usetype 0x1034
   replygump 0x38920abd 15
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 2
   waitforgump 0x38920abd 1500
else
   usetype 0x1034
   waitforgump 0x38920abd 1500
   replygump 0x38920abd 21
endif
//Handling trash
for 0 to 'carpenstuff'
while @findtype carpenstuff[] 'any' 'backpack'
  moveitem 'found' 'trash1'
  pause 650
endwhile
endfor
if skill 'Carpentry' == 100
 sysmsg 'Congrats!!' 232
 stop
endif
« Last Edit: November 06, 2016, 05:18:28 PM by Evolution »

November 06, 2016, 04:04:49 PM
Reply #21

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Train Bowcraft - UOS Macro

This UOS script trains bowcraft from 30 to 100 fully automated.

All you need is a bag with boards and ingots, at least 50 tinkering, and at least 1 tinker tool in you backpack.

Be sure you don't keep any valuable bows/xbows in your backpack as the macro will trash them.

Code: [Select]
//setting aliases
if not @findalias 'init1'
  sysmsg 'Target a restock container' 232
  promptalias 'fletch_restock' 0x42d175f5 
  sysmsg 'Target the trash barrel' 232
  @setalias 'init1' 'self'
  promptalias 'trash1' 0x4249518f
endif
if not listexists 'craftbows'
  createlist 'craftbows'
  pushlist 'craftbows' 0x13b2
  pushlist 'craftbows' 0xf50
  pushlist 'craftbows' 0x26c2
  pushlist 'craftbows' 0x13fd
  pushlist 'craftbows' 0x26c3
endif
//Tinker skill check
if skill 'Tinkering' < 45
  sysmsg 'Tinkering skill is too low, train it first' 232
  stop
endif
// check for ingots
if counttype 0x1bf2 0 'backpack' < 10
  movetype 0x1bf2 'fletch_restock' 'backpack'[(0 0 0)] 0 45
  pause 650
endif
//craft tinker kits
//=================
while @counttype 0x1eb8 0 'backpack' < 3
  usetype! 0x1eb8
  waitforgump 0x38920abd 2000
  @replygump 0x38920abd 8
  waitforgump 0x38920abd 2000
  @replygump 0x38920abd 23
  waitforgump 0x38920abd 2000
endwhile
//check for fletching kits
while @counttype 0x1022 0 'backpack' < 3
  usetype 0x1eb8
  waitforgump 0x38920abd 2000
  @replygump 0x38920abd 8
  waitforgump 0x38920abd 2000
  @replygump 0x38920abd 142
  waitforgump 0x38920abd 2000
endwhile
//check backpack for boards
if counttype 0x1bd7 0 'backpack' < 40
  movetype 0x1bd7 'fletch_restock' 'backpack'[(0 0 0)] 0 245
  pause 650
endif
// Crafting bows
If skill 'Bowcraft' > 90
usetype 0x1022
waitforgump 0x38920abd 1500
replygump 0x38920abd 15
waitforgump 0x38920abd 1500
replygump 0x38920abd 30
waitforgump 0x38920abd 1500
elseif skill 'Bowcraft' > 80 and skill 'Bowcraft' < 90
usetype 0x1022
waitforgump 0x38920abd 1500
replygump 0x38920abd 15
waitforgump 0x38920abd 1500
replygump 0x38920abd 16
elseif skill 'Bowcraft' > 70 and skill 'Bowcraft' < 80
usetype 0x1022
waitforgump 0x38920abd 1500
replygump 0x38920abd 15
waitforgump 0x38920abd 1500
replygump 0x38920abd 23
elseif skill 'Bowcraft'> 60 and skill 'Bowcraft' < 70
usetype 0x1022
waitforgump 0x38920abd 1500
replygump 0x38920abd 15
waitforgump 0x38920abd 1500
replygump 0x38920abd 9
elseif skill 'Bowcraft' < 60
usetype 0x1022
waitforgump 0x38920abd 1500
replygump 0x38920abd 15
waitforgump 0x38920abd 1500
replygump 0x38920abd 2
else
usetype 0x1022
waitforgump 0x38920abd 1500
replygump 0x38920abd 21
endif
//Handling trash
for 0 to 'craftbows'
while @findtype craftbows[] 'any' 'backpack'
  moveitem 'found' 'trash1'
  pause 650
endwhile
endfor
if skill 'Bowcraft' = 100
 sysmsg 'Congrats!!' 232
 stop
endif
« Last Edit: November 06, 2016, 05:25:48 PM by Evolution »

November 06, 2016, 04:08:09 PM
Reply #22

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

Discord - UOS Macro

This is a macro that I crafted, basically it asks for target to discord, it will follow until that target has been discorded then ask for new target:

Code: [Select]
if injournal 'That creature is already in discord'
  clearjournal
  unsetalias 'todiscord'
else
  if not findalias 'todiscord'
    sysmsg 'Target an todiscord'
    promptalias 'todiscord'
  endif
  useskill 'Discordance'
  waitfortarget 10000
  target!  'todiscord'
  while not inrange 'todiscord' 2
    if @x 'todiscord' > x 'self' and @y 'todiscord' > y 'self'
      walk 'Southeast'
    elseif @x 'todiscord' < x 'self' and @y 'todiscord' > y 'self'
      walk 'Southwest'
    elseif @x 'todiscord' > x 'self' and @y 'todiscord' < y 'self'
      walk 'Northeast'
    elseif @x 'todiscord' < x 'self' and @y 'todiscord' < y 'self'
      walk 'Northwest'
    elseif @x 'todiscord' > x 'self' and @y 'todiscord' == y 'self'
      walk 'East'
    elseif @x 'todiscord' < x 'self' and @y 'todiscord' == y 'self'
      walk 'West'
    elseif @x 'todiscord' == x 'self' and @y 'todiscord' > y 'self'
      walk 'South'
    elseif @x 'todiscord' == x 'self' and @y 'todiscord' < y 'self'
      walk 'North'
    endif
  endwhile
  pause 500
endif
« Last Edit: November 06, 2016, 05:26:26 PM by Evolution »

November 06, 2016, 04:09:26 PM
Reply #23

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

UO Steam Lumberjack Macro
Code: [Select]
//Magery Version
//1. need 2 full runebooks marked 1 tile south and same elevation of the choppable tree
//2. Organizer agent 'Boards' needs to be configured from your backpack to dropoff container with boards and 5 specials on it
//3. pauses after recalls are set to 2000 for 0fc. Change to 1750 for 1fc and 1500 for 2fc
if not @findobject 'TreeBookOne'
promptalias 'TreeBookOne'
endif
if not @findobject 'TreeBookTwo'
promptalias 'TreeBookTwo'
endif
if not @findobject 'HomeLumber'
promptalias 'HomeLumber'
endif
if not listexists 'TreeBook'
createlist 'TreeBook'
pushlist 'TreeBook' 'TreeBookOne'
pushlist 'TreeBook' 'TreeBookTwo'
endif
if not listexists 'Runes'
createlist 'Runes'
pushlist 'Runes' 5
pushlist 'Runes' 11
pushlist 'Runes' 17
pushlist 'Runes' 23
pushlist 'Runes' 29
pushlist 'Runes' 35
pushlist 'Runes' 41
pushlist 'Runes' 47
pushlist 'Runes' 53
pushlist 'Runes' 59
pushlist 'Runes' 65
pushlist 'Runes' 71
pushlist 'Runes' 77
pushlist 'Runes' 83
pushlist 'Runes' 89
pushlist 'Runes' 95
endif
For 0 to 'TreeBook'
For 0 to 'Runes'
pause 500
clearjournal
pause 500
useobject TreeBook[]
waitforgump 0x554b87f3 5000
replygump 0x554b87f3 Runes[]
//tells you which rune you are on, see runelist above
sysmsg 'Rune' 33
sysmsg Runes[] 33
pause 2000
//equips axe if it's not SC
if not @findobject 'lefthand'
//change type to your axe
if findtype 0xf47 0 'backpack'
setalias 'axe' 'found'
equipitem 'axe' 2
endif
endif
while not @injournal 'enough wood here'
pause 300
//chop logs to boards
if @findtype 0x1bdd 'any' 'backpack'
useobject 'LeftHand'
waitfortarget 1000
target! 'found'
else
//chop trees
useobject 'LeftHand'
waitfortarget 1000
targettileoffset 0 -1 0
endif
// Change this if your getting overweight, Subtract 25 from your max weight.
if weight > 480
//make remaining logs boards
while @findtype 0x1bdd 'any' 'backpack'
useobject 'LeftHand'
waitfortarget 1000
target! 'found'
pause 500
endwhile
//recall home
useobject 'HomeLumber'
waitforgump 0x554b87f3 5000
replygump 0x554b87f3 5
pause 2000
//unload
organizer 'Boards'
while organizing
pause 500
endwhile
//go back to where you were
useobject TreeBook[]
waitforgump 0x554b87f3 5000
replygump 0x554b87f3 Runes[]
pause 2000
//re-equip axe if needed
if not @findobject 'lefthand'
equipitem 'axe' 2
pause 1000
endif
endif
if @injournal 'use an axe'
break
endif
endwhile
endfor
endfor
« Last Edit: November 06, 2016, 05:26:45 PM by Evolution »

November 06, 2016, 04:10:41 PM
Reply #24

Online Evolution

  • "The Game has Evolved" www.uoevolution.com
  • Administrator
  • Hero Member
  • *****
  • Posts: 1203
  • Karma: +1249/-23
  • Dante - Shard Owner
    • www.uoevolution.com

UO Steam - Animal Taming Macro

Code: [Select]
// Author: Di
// Description: find, chase and tame nearby pets accordingly to skill level
// v2.1: pet release and tamed detection improvements
// v2.0: improved pets list and created unstuck pathfind heuristic
// Configure skill limit      ▼
if skill! 'animal taming' >= 100
  setskill 'animal taming' 'locked'
  stop
endif
@createlist 'pets'
@clearlist 'pets'
if skill 'animal taming' < 60
  // Eagle
  pushlist 'pets' 0x5
  // Goat
  pushlist 'pets' 0xd1
  // Pig
  pushlist 'pets' 0xcb
  pushlist 'pets' 0x122
  // Hind
  pushlist 'pets' 0xed
  // Timber wolf
  pushlist 'pets' 0xe1
  // Llama
  pushlist 'pets' 0xdc
  // Horse
  pushlist 'pets' 0xcc
  pushlist 'pets' 0xe2
  pushlist 'pets' 0xe4
  pushlist 'pets' 0xc8
  pushlist 'pets' 0x3e9f
  pushlist 'pets' 0x3ea0
  pushlist 'pets' 0x3ea1
  pushlist 'pets' 0x3ea2
  // Cow
  pushlist 'pets' 0xe7
  pushlist 'pets' 0xd8
  // Bear
  pushlist 'pets' 0xa7
  pushlist 'pets' 0xd3
  // Cougar
  pushlist 'pets' 0x3f
elseif skill 'animal taming' < 75
  // Grizzly Bear
  pushlist 'pets' 0xd4
  // Grey Wolf
  pushlist 'pets' 0x1b
  pushlist 'pets' 0x19
  // Snow Leopard
  pushlist 'pets' 0x41
  pushlist 'pets' 0x40
  // Walrus
  pushlist 'pets' 0xdd
  // Polar Bear
  pushlist 'pets' 0xd5
  // Great Hart
  pushlist 'pets' 0xea
elseif skill 'animal taming' < 95.1
  // Gaman
  pushlist 'pets' 0xf8
  // Bull
  pushlist 'pets' 0xe8
  pushlist 'pets' 0xe9
  // Great Hart
  pushlist 'pets' 0xea
  // White Wolf
  pushlist 'pets' 0x25
  pushlist 'pets' 0x22
  // Snow Leopard
  pushlist 'pets' 0x41
  pushlist 'pets' 0x40
else
  // Bull
  pushlist 'pets' 0xe8
  pushlist 'pets' 0xe9
  // Unicorn
  pushlist 'pets' 0x7a
  // Ki-rin
  pushlist 'pets' 0x84
endif
if not listexists 'errors'
  createlist 'errors'
  pushlist 'errors' 'too many owners'
  pushlist 'errors' 'only be tamed by'
  pushlist 'errors' 'no chance of taming'
  pushlist 'errors' 'looks tame already'
  //pushlist 'errors' 'clear path to the animal'
  pushlist 'errors' 'cannot be seen'
endif
@createlist 'unstuck'
if list 'unstuck' == 0
  pushlist 'unstuck' 'east'
  pushlist 'unstuck' 'west'
  pushlist 'unstuck' 'south'
  pushlist 'unstuck' 'north'
endif
// Search
if not @findobject 'pet'
  for 0 to 'pets'
    if @findtype 'pets[]' 'any' 'ground'
      @settimer 'stuck' 0
      @setalias 'pet' 'found'
      break
    endif
  endfor
else
  // Pathfind
  @settimer 'pathfind' 0
  while @findobject 'pet' and not @inrange 'pet' 2
    if dead
      break
    elseif @timer 'pathfind' >= 5000
      // Diverge
      if direction == 0
        @poplist 'unstuck' 'north'
      elseif direction == 2
        @poplist 'unstuck' 'east'
      elseif direction == 4
        @poplist 'unstuck' 'south'
      elseif direction == 6
        @poplist 'unstuck' 'west'
      endif
      // Unstuck
      if list 'unstuck' != 0
        for 5
          run 'unstuck[0]'
          pause 100
        endfor
        poplist 'unstuck' 'front'
      endif
      break
    elseif @x 'pet' > x 'self' and @y 'pet' > y 'self'
      run 'southeast'
    elseif @x 'pet' < x 'self' and @y 'pet' > y 'self'
      run 'southwest'
    elseif @x 'pet' > x 'self' and @y 'pet' < y 'self'
      run 'northeast'
    elseif @x 'pet' < x 'self' and @y 'pet' < y 'self'
      run 'northwest'
    elseif @x 'pet' > x 'self' and @y 'pet' == y 'self'
      run 'east'
    elseif @x 'pet' < x 'self' and @y 'pet' == y 'self'
      run 'west'
    elseif @x 'pet' == x 'self' and @y 'pet' > y 'self'
      run 'south'
    elseif @x 'pet' == x 'self' and @y 'pet' < y 'self'
      run 'north'
    endif
    pause 100
  endwhile
  if @inrange 'pet' 2
    // Tame
    clearjournal
    useskill 'animal taming'
    waitfortarget 1000
    target! 'pet'
    // Handle
    if @property '(tame)' 'pet'
      for 5
        if @gumpexists 0x909cc741 or not @findobject 'pet'
          break
        elseif dead or followers == 0
          break
        elseif @name 'pet' != 'trashpet'
          rename 'pet' 'trashpet'
        else
          msg 'trashpet release'
        endif
        pause 500
      endfor
      replygump 0x909cc741 2
      sysmsg 'Success: tamed and released!' 88
      ignoreobject 'pet'
      @unsetalias 'pet'
    else
      @settimer 'stuck' 0
      for 0 to 'errors'
        if @injournal 'errors[]'
          sysmsg 'Ignore: error message!' 25
          ignoreobject 'pet'
          @unsetalias 'pet'
          break
        endif
      endfor
    endif
  elseif @timer 'stuck' >= 20000
    sysmsg 'Ignore: stuck timeout!' 25
    ignoreobject 'pet'
    @unsetalias 'pet'
  endif
endif


« Last Edit: November 06, 2016, 05:27:06 PM by Evolution »