|
|
Post by Blackmamba on Nov 30, 2015 21:45:39 GMT
Last night, Dunazade, Layla, Dracken, and myself went on a little champ spree. We saved Minoc and got the Skull of Enlightenment, then we summoned four champs. Two of these was the ever annoying Serrado. We managed to get four 120 scrolls of animal taming, stealing, and two parry. Great night and good haul!
|
|
|
|
Post by dunazade on Dec 1, 2015 18:21:30 GMT
Yeah, it was awesome! Still gotta work on my champ macro though.
|
|
|
|
Post by Blackmamba on Dec 2, 2015 4:46:48 GMT
Use this whirlwind macro for champs. It not only uses your shield of spikes special, but also loots only 10+ skill jewelry of the desired skills.
//WhirlWind
setability 'secondary'
getenemy 'closest' 'nearest' 'murderer' 'enemy' 'criminal' 'gray'
pause 100
attack 'enemy'
@clearusequeue
@cancelautotarget
pause 1249
replygump 0x4239a64f 1004
//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 'Swordsmanship' 'Skills' >= 10
sysmsg 'Swords!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Parry' 'Skills' >= 10
sysmsg 'Parry!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Tactics' 'Skills' >= 10
sysmsg 'Tactics' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Animal Taming' 'Skills' >= 10
sysmsg 'Taming' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Animal Lore' 'Skills' >= 10
sysmsg 'Animal Lore' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Evaluating Intelligence ' 'Skills' >= 10
sysmsg 'Evaluating Intelligence ' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Magery' 'Skills' >= 10
sysmsg 'Magery!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Archery' 'Skills' >= 10
sysmsg 'Archery' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
endif
endfor
endfor
//Close Corpse
ignoreobject '0'
|
|
|
|
Post by banananaut on Dec 2, 2015 17:06:08 GMT
Sheet, nice job guys!
|
|
