Author Topic: My Attack mackro  (Read 2156 times)

August 25, 2016, 06:59:16 AM

Offline rainfall

  • Newbie
  • *
  • Posts: 37
  • Karma: +1/-0
get enemy



getenemy  'enemy' 'murderer' 'criminal' 'gray' 'nearest' 'next'
if hits 'enemy' == maxhits 'enemy'
  virtue 'honor'
  waitingfortarget 5000
  target 'enemy'
  pause 8
  attack 'enemy'
endif
attack 'enemy'
playmacro 'armor ignore'




armor ignore[set loop]


if graphic 'righthand' == 0xf45
  playmacro 'mortal'
endif
if graphic 'righthand' == 0x26c2
  playmacro 'archery'
endif
if graphic 'righthand' == 0xf4b
  playmacro 'mortal'
endif
setability 'primary' 'on'
pause 200
replygump 0x7ec42f38 1001
waitforgump 0x7ec42f38 15000
setability 'primary' 'on'
pause 200
if poisoned
  cast "Arch Cure"
  waitfortarget 4000
  target! 'self'
endif
pause 100
setability 'primary' 'on'
pause 200
cast "Counter Attack"
pause 100
if hits <= 80
  cast "Heal"
  waitfortarget 500
  target "self"
endif
pause 100
setability 'primary' 'on'
pause 200
if stam <= 150
  cast "Divine Fury"
endif
pause 100
setability 'primary' 'on'
pause 200
if "yellowhits" 'self'
  useobject 0x41373f68
  waitforgump 0x56dd0e5b 15000
  replygump 0x56dd0e5b 2007
  waitforgump 0x56dd0e5b 15000
  waitfortarget 15000
  target! 'self'
  cast "Evasion"
endif
setability 'primary' 'on'
pause 200
if hits < 250
  cast "Evasion"
endif
setability 'primary' 'on'
pause 200
if hits <= 180
  cast "Counter Attack"
endif
setability 'primary' 'on'
pause 200
if hits <= 200
  cast "Consecrate weapon"
  waitfortarget 500
  target "self"
endif
pause 100
//Set LootBag
if not @findobject 'LootBag'
  promptalias 'LootBag'
endif
if not listexists 'Jewelry'
  @createlist 'Jewelry'
endif
if list 'Jewelry' == 0
  @pushlist 'Jewelry' 0x108a
  @pushlist 'Jewelry' 0x1f09
  @pushlist 'Jewelry' 0x1086
  @pushlist 'Jewelry' 0x1f06
endif
//Find Corpse
if not @findtype '0x2006' 'any' 'ground' '1' '1'
endif
@setalias '0' 'found'
@useobject '0'
//Locate Jewelry
for 0 to Jewelry
  for 2
    if @findtype Jewelry[] 0 '0'
      @setalias 'Skills' 'found'
      waitforproperties 'Skills' 3000
      if @property 'Stealing' 'Skills' >= 14
        sysmsg 'Stealing!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
      if @property 'Swordsmanship' 'Skills' >= 14
        sysmsg 'Swords!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
      if @property 'Parry' 'Skills' >= 14
        sysmsg 'Parry!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
      if @property 'Tactics' 'Skills' >= 14
        sysmsg 'Tactics!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
      if @property 'Animal Taming' 'Skills' >= 14
        sysmsg 'Taming!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
      if @property 'Animal Lore' 'Skills' >= 14
        sysmsg 'Lore!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
      if @property 'Evaluating Intelligence ' 'Skills' >= 14
        sysmsg 'Evaluating Intelligence ' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
      if @property 'Magery' 'Skills' >= 14
        sysmsg 'Magery!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
      if @property 'Spirit Speak' 'Skills' >= 14
        sysmsg 'Spirit Speak!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
      if @property 'Discordance' 'Skills' >= 14
        sysmsg 'Disco!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
      if @property 'Archery' 'Skills' >= 14
        sysmsg 'Archery!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
      endif
    endif
  endfor
endfor
//Close Corpse
ignoreobject '0'


« Last Edit: September 27, 2016, 05:53:47 AM by rainfall »

September 25, 2016, 11:04:41 PM
Reply #1

Offline Emperor_Norton

  • Full Member
  • ***
  • Posts: 173
  • Karma: +30/-2
Is this for UOSteam?

September 27, 2016, 04:10:20 PM
Reply #2

Offline thallos

  • Jr. Member
  • **
  • Posts: 65
  • Karma: +12/-5
NORTON! What up buddy? :)


September 28, 2016, 02:12:08 AM
Reply #3

Offline Smilingdeath

  • Sr. Member
  • ****
  • Posts: 287
  • Karma: +15/-7
Yes this is a UOSTEAM macro.
Really nice one too.

September 29, 2016, 07:53:55 AM
Reply #4

Offline Sagemoon

  • Full Member
  • ***
  • Posts: 227
  • Karma: +45/-1
Very nice set Rainfall, impressive.  Thank you for sharing!


*hugs*


Sage