If you want to just drag one corpse then target it and start the macro, else /mac drag name1 name2 name3 ..... name10 where 10 is the max.
Code: Select all
|drag.mac
|Can take up to 10 names to drag.
|Usage /macro drag.mac name name name... ect ect
|
|Usage /macro drag.mac
|Usage undifined params will cancle the macro unless you have the corpse targeted.
|Version 2.0
Sub Main
/zapvars
/declare LoopNum local 0
/declare ArrayCount local 0
/declare NameArray array2
/if (!${Defined[Param0]}) {
/if (${Target.State.Equal[DEAD]}) {
/echo Dragging ${Target.CleanName}.
/varset NameArray(1,0) ${Target.Name}
/varset ArrayCount 1
/goto :DragLoop
}
/echo Who's corpse did you want to drag?
/end
}
/varset NameArray(1,0) "@Param0"
/varset ArrayCount 1
/if (${Defined[Param1]}) {
/varset NameArray(1,1) "@Param1"
/varset ArrayCount 2
}
/if (${Defined[Param2]}) {
/varset NameArray(1,2) "@Param2"
/varset ArrayCount 3
}
/if (${Defined[Param3]}) {
/varset NameArray(1,3) "@Param3"
/varset ArrayCount 4
}
/if (${Defined[Param4]}) {
/varset NameArray(1,4) "@Param4"
/varset ArrayCount 5
}
/if (${Defined[Param5]}) {
/varset NameArray(1,5) "@Param5"
/varset ArrayCount 6
}
/if (${Defined[Param6]}) {
/varset NameArray(1,6) "@Param6"
/varset ArrayCount 7
}
/if (${Defined[Param6]}) {
/varset NameArray(1,7) "@Param7"
/varset ArrayCount 8
}
/if (${Defined[Param6]}) {
/varset NameArray(1,8) "@Param8"
/varset ArrayCount 9
}
/if (${Defined[Param6]}) {
/varset NameArray(1,9) "@Param9"
/varset ArrayCount 10
}
/varset LoopNum 0
:DragLoop
/target corpse @NameArray(1,@LoopNum)
/delay 1
/corpse
/delay 1
/varadd LoopNum 1
/if (@LoopNum>=@ArrayCount) /varset LoopNum 0
/goto :DragLoop
/return
