Post by mordamar on Jun 10, 2014 1:32:49 GMT -5
this is a basic macro I wrote it does a few things like target closest enemy and attack, along with using skills. there are places you can edit to make this function better for you.
//////
//sysmsg 'spam'
while not dead 'self'
@setability 'primary' 'on'
@unsetalias 'e'
pause 600
if not timerexists 'useskill'
settimer 'useskill' 0
endif
if timer 'useskill' > 20000
if not war 'self'
if not hidden 'self'
useskill 'hiding'
settimer 'useskill' 0
endif
endif
endif
if not timerexists 'hpoverride'
settimer 'hpoverride' 0
endif
if timer 'hpoverride' >= 600
if hits < 800
msg '[bandself'
pause 600
msg '[bandself'
endif
if stam < 250
cast 'divine fury'
endif
settimer 'hpoverride' 0
endif
@setability 'primary' 'on'
@getenemy 'enemy' 'any' 'closest' 'world' '1' '1'
@attack 'enemy'
if @findobject 'enemy' 'any' 'world' '1' '1'
//if not hidden 'self'
if not timerexists 'Consecrate'
settimer 'Consecrate' 0
endif
if timer 'Consecrate' >= 9000
cast "Consecrate Weapon"
settimer 'Consecrate' 0
endif
if not timerexists 'df'
settimer 'df' 0
endif
if timer 'df' >= 11000
cast "Divine Fury"
settimer 'DF' 0
endif
if not timerexists 'Eoo'
settimer 'Eoo' 0
endif
if timer 'Eoo' >= 13000
cast "Enemy of One"
settimer 'Eoo' 0
endif
if not timerexists 'counter'
settimer 'counter' 0
endif
if timer 'counter' >= 7000
cast "counter attack"
settimer 'counter' 0
endif
if not timerexists 'curseweapon'
settimer 'curseweapon' 7000
endif
if timer 'curseweapon' >= 7000
if hits < 700
cast "curse weapon"
endif
settimer 'curseweapon' 0
endif
endif
@getenemy 'enemy' 'any' 'closest' 'world' '1' '5'
if @findobject 'enemy' 'any' 'world' '1' '5'
@setalias 'e' 'found'
if distance 'e' >= 0
if distance 'e' <= 5
if not timerexists 'cast spell'
settimer 'cast spell' 0
endif
if timer 'cast spell' > 100
cast 'meteor swarm' 'e'
settimer 'cast spell' 0
endif
endif
endif
endif
if not timerexists 'claim'
settimer 'claim' 3000
endif
//
if @findtype '0x2006' 'any' 'ground' '1' '3'
@setalias 'o' 'found'
@useobject 'o'
if timer 'claim' >= 3000
if str > 1
pause 600
///////////////////////////
/////this line will use a objects serial to use object for cutting hides on corpses
@useobject 0x40ec8882
//////////////////////////
waitfortarget 1000
@target! 'o'
@ignoreobject 'o'
endif
if str > 10000
msg '[cleanup'
endif
@unsetalias 'o'
settimer 'claim' 0
endif
else
endif
endwhile