drag.mac macro for draging up to 7 corpses.

grimjack · Post by **grimjack** » Fri Oct 03, 2003 1:57 am

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

Sub Main
   /declare LoopNum global
   /declare ArrayCount global
   /declare NameArray array2
   /if $defined(Param0)==FALSE {
      /echo Usage /macro drag.mac corpse1 corpse2 corpse3 ect.
      /echo Can do up to 7
      /end
   }
   /varset NameArray(1,0) "@Param0"
   /varset ArrayCount 1
   /if $defined(Param1)==TRUE {
      /varset NameArray(1,1) "@Param1"
      /varset ArrayCount 2
   }
   /if $defined(Param2)==TRUE {
      /varset NameArray(1,2) "@Param2"
      /varset ArrayCount 3
   }
   /if $defined(Param3)==TRUE {
      /varset NameArray(1,3) "@Param3"
      /varset ArrayCount 4
   }
   /if $defined(Param4)==TRUE {
      /varset NameArray(1,4) "@Param4"
      /varset ArrayCount 5
   }
   /if $defined(Param5)==TRUE {
      /varset NameArray(1,5) "@Param5"
      /varset ArrayCount 6
   }
   /if $defined(Param6)==TRUE {
      /varset NameArray(1,6) "@Param6"
      /varset ArrayCount 7
   }
   /varset LoopNum 0
   :DragLoop
   /target corpse @NameArray(1,@LoopNum)
   /delay 3
   /corpse
   /delay 3
   /varadd LoopNum 1
   /if n @LoopNum>=@ArrayCount /varset LoopNum 0
   /goto :DragLoop     
/return

Plazmic · Post by **Plazmic** » Fri Oct 03, 2003 1:59 am

Not sure, but I don't think this will work anymore:

Code: Select all

/if n $strlen("@Param0")<=0 {

Use this instead:

Code: Select all

/if $defined(Param0)==FALSE {

ap50 · Post by **ap50** » Fri Oct 03, 2003 3:34 am

You're also using @Param and @$Param references.

grimjack · Post by **grimjack** » Fri Oct 03, 2003 3:46 am

ap50 wrote:You're also using @Param and @$Param references.

Thanks
Should be fixed now

GrimJack

Guest · Post by **Guest** » Fri Oct 03, 2003 6:50 pm

Just another typo I think...

@Param3, 4 and 5 are missing the quotation marks at the start.

FlashG · Post by **FlashG** » Fri Oct 10, 2003 4:05 pm

NM. Plaz 'stole' my idea before I even had it.

blakbelt · Post by **blakbelt** » Sat Oct 11, 2003 2:53 am

In usage do you supply the just the name of the player or player01's corpse??

Spectre · Post by **Spectre** » Sat Oct 11, 2003 5:05 pm

Plazmic wrote:Not sure, but I don't think this will work anymore:
Code: Select all
/if n $strlen("@Param0")<=0 {
Use this instead:
Code: Select all
/if $defined(Param0)==FALSE {

This may not be the correct thread for this, but neither of the above two examples work. Code such as:

Code: Select all

| sptest.mac
#turbo

#include spells.mac

Sub Main
/if $defined(Param0)==FALSE {
  /echo Usage: /macro sptest <Name of Spell (in quotes if more than one word)>
  /endmacro
  }

/call Cast "@Param0"

/return

...always falls through. Typing:

/macro sptest

never gets the Usage message. Using strlen doesn't work either.

drag.mac macro for draging up to 7 corpses.

drag.mac macro for draging up to 7 corpses.

unlimited corpses