Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5

Swords+Fencing+Mace+Parrying+Tactics
#1

Forgot that in the thread title, the macro is for Injection



it will raise swords to gm, then fencing, then mace. You should get tactics GMed along with parrying by the time you raise these three to GM. Take pitcher of water if you want it to wash bandages. It will attack last target so target your sparring partner before launching it.
Right now the items are set - shield=heater and the practice sword\kryss\club from the merc camp. Change the type of vars below to change it.

Code:
#
#
#Combats!!!
#
var sword='0x13B9'
var kryss='0x1401'
var shield='0x1B76'
var club='0x13B4'
####################
sub combatraiser()
var weapon=sword
UO.UseType(shield)
wait(400)
UO.UseType(weapon)
while UO.SkillVal('Swordsmanship',1) < 1000
  UO.Attack('lasttarget')
    wait(500)
  if UO.Life < 80 then
     UO.BandageSelf()
        wait(300)
        UO.UseType(shield)
        wait(200)
        UO.UseType(weapon)
        wait(2500)
     UO.Attack('lasttarget')
  endif
  if UO.Count('0x0E20') > 20 then
     UO.WaitTargetType('0x1F9D')
     UO.UseType('0x0E20')
     wait(200)
  endif
wend
wait(2000)
FENCxp()
endsub
sub FENCxp()
var weapon=kryss
UO.UseType(shield)
wait(400)
UO.UseType(weapon)
while UO.SkillVal('Fencing',1) < 1000
  UO.Attack('lasttarget')
    wait(500)
  if UO.Life < 80 then
     UO.BandageSelf()
        wait(300)
        UO.UseType(shield)
        wait(200)
        UO.UseType(weapon)
        wait(2500)
     UO.Attack('lasttarget')
  endif
  if UO.Count('0x0E20') > 20 then
     UO.WaitTargetType('0x1F9D')
     UO.UseType('0x0E20')
     wait(200)
  endif
wend
wait(2000)
MACExp()
endsub
sub MACExp()
var weapon=club
UO.UseType(shield)
wait(400)
UO.UseType(weapon)
while NOT UO.Dead()
  UO.Attack('lasttarget')
    wait(500)
  if UO.Life < 80 then
     UO.BandageSelf()
        wait(300)
        UO.UseType(shield)
        wait(200)
        UO.UseType(weapon)
        wait(2500)
     UO.Attack('lasttarget')
  endif
  if UO.Count('0x0E20') > 20 then
     UO.WaitTargetType('0x1F9D')
     UO.UseType('0x0E20')
     wait(200)
  endif
wend
else
endsub


Messages In This Thread
Swords+Fencing+Mace+Parrying+Tactics - by Gang - 02-04-2012, 03:20 AM
Swords+Fencing+Mace+Parrying+Tactics - by Mito - 02-04-2012, 02:55 PM
Swords+Fencing+Mace+Parrying+Tactics - by Doc - 02-04-2012, 04:31 PM
Swords+Fencing+Mace+Parrying+Tactics - by Gang - 02-05-2012, 08:52 AM
Swords+Fencing+Mace+Parrying+Tactics - by Mito - 02-05-2012, 09:16 PM
Swords+Fencing+Mace+Parrying+Tactics - by Eru - 02-05-2012, 09:30 PM
Swords+Fencing+Mace+Parrying+Tactics - by Gang - 02-06-2012, 01:35 PM
Swords+Fencing+Mace+Parrying+Tactics - by Gang - 05-12-2012, 02:00 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)