Quick n easy corpse dragging

[AarynD]

Ok, so occasionally I end up having to drag 18 people's corpses to a safe spot for rezzing. Prior to mq, I just made up lots of buttons, each with 2 corpses. /target "playername's corpse" followed by /corpse.

Now, with mq, I go in and edit a macro, and basically do the same thing, and just edit it to do /tar corpse playername followed by a /corpse command. I still have to hand edit the list tho.

Can anyone come up with a way to generate a list of peoples names, possibly via INI file, and add to the list or remove from list as needed, and then load the list, and go thru and /corpse each one on the list?

Basically just trying to contain everything in code, rather than having to go back and edit the dragging macro everytime.

[MQSEQ]

I'm new to MQ but looking at existing macro's in the depot it should be fairly easy to do.

Now what would be cool to do for this macro is to automatically add the users when they give you consent. then you have a Hot Button that triggers the macro to start and stop. When stop it clears the INI file.

I will try to give it a whirl but I know FryFrog and GrimJack and a few others will beat me to it.

[grimjack]

Code: Select all

|drag.mac
|Can take up to 7 names to drag.
|Usage /macro drag.mac name name name... ect ect
|Version 1.0


#define ArrayCount v1
#define LoopNum v3
Sub Main 
   /if n $strlen("$p0")<=0 {
      /echo Usage /macro drag.mac corpse1 corpse2 corpse3 ect.
      /echo Can do up to 7
      /end
   }
   /varset a(1,0) "$p0"
   /varset ArrayCount 1
   /if n $strlen("$p1")>0 {
      /varset a(1,1) "$p1"
      /varset ArrayCount 2
   }
   /if n $strlen("$p2")>0 {
      /varset a(1,2) "$p2"
      /varset ArrayCount 3
   }
   /if n $strlen("$p3")>0 {
      /varset a(1,3) "$p3"
      /varset ArrayCount 4
   }
   /if n $strlen("$p4")>0 {
      /varset a(1,4) "$p4"
      /varset ArrayCount 5
   }
   /if n $strlen("$p5")>0 {
      /varset a(1,5) "$p5"
      /varset ArrayCount 6
   }
   /if n $strlen("$p6")>0 {
      /varset a(1,6) "$p6"
      /varset ArrayCount 7
   }
   /varset LoopNum 0
   :DragLoop
   /target corpse $a(1,$LoopNum)
   /delay 3
   /corpse
   /delay 3
   /varadd LoopNum 1
   /if n $LoopNum>=$ArrayCount /varset LoopNum 0
   /goto :DragLoop      
/return

This should do it. Let me know if there are any bugs.

Thanks
GrimJack