Release Multidrag.mac [Deleted]

[kaen01]

Tired of trying to pull your wiped 18+ teams to safety for a little bit of rezzing?
Dislike using the /corpsedrag on your box team?

then worry not!

Multidrag to the rescue.

|**
┌│┐└┘├┤─
┌────────────────────────────────────────┐
│ MultiDrag.mac v1.0 - kaen01 03/16/2018 │
├────────────────────────────────────────┤
│ Start it, then go do your corpse run.     │
│ Once it get within range of pc corpse     │
│ it will try and summon it.             │
│                                         │
│ Upcoming plans:                         │
│                                         │
│ *Ignore corpses that you havent rights │
│  to summon, after first attempt.         │
│                                         │
│ *Only Summon groupmebers/raidmember     │
│                                         │
│ NB: dont move too fast around corners. │
└────────────────────────────────────────┘
**|


Sub Main
    /declare Corpses        int        outer    0
    /declare CorpseSearch    string    outer    pc corpse radius 90
    /declare CurCorpse        string    outer    NULL
    /declare i                int        outer    0

    /echo [Multi Drag Corpse]
    /while (1) {
        /varset Corpses ${SpawnCount[${CorpseSearch}]}
        /if (${Corpses}) {
            /for i 1 to ${Corpses}
                /varset CurCorpse ${NearestSpawn[${i},${CorpseSearch}]}
                /SetChatTitle ***/corpse ${CurCorpse}***
                /target ${CurCorpse}
                /delay 5 ${Target.ID} == ${NearestSpawn[${i},${CorpseSearch}].ID}
                /corpse
                /delay 2
            /next i
        } else {
            /delay 5
        }
    }

    :OnExit
        /echo [Done dragging corpses}
        /SetChatTitle [MQ2]
/return

use it as you see fit.

the /delay 2, after /corpse is there so it looks more natural, no delay was like madness, and delay 1 was spammy, but /delay 2 seemed about the same as you could get out of a social,
so thats what we settled on.

 

[Maskoi]

Did you steal noobhaxor's macro?

|----------
|Drag every corpse within 100 unit radius

#Event Denied         "#*#You do not have consent#*#"

Sub Main
/declare numcorpses int outer 0
/declare loopcorpse1 int outer 1
/declare loopcorpse2 int outer 1
/declare badcorpseid int outer 0

/call FindCorpses

:mainloop
/for loopcorpse2 1 to ${Corpse2Drag.Size}
   /if (${Spawn[id ${Corpse2Drag[${loopcorpse2}]}].Distance}>25) {
       /doevents flush 
       /tar id ${Corpse2Drag[${loopcorpse2}]}
       /delay 5 ${Target.ID}==${Corpse2Drag[${loopcorpse2}]}
       /cor
       /doevents
    }
/next loopcorpse2
/if (${SpawnCount[pccorpse radius 100]}==0) {
    /echo No corpses found ending macro
    /end
}
/goto :mainloop

/return

Sub FindCorpses
    /varcalc numcorpses ${SpawnCount[pccorpse radius 100 notid ${badcorpseid}]}
    /declare Corpse2Drag[${numcorpses}] int outer
    /for loopcorpse1 1 to ${numcorpses}
        /varset Corpse2Drag[${loopcorpse1}] ${NearestSpawn[${loopcorpse1}, pccorpse radius 100 notid ${badcorpseid}].ID}
    /next loopcorpse1
/return

Sub Event_Denied
    /varset badcorpseid ${Target.ID}
    /call FindCorpses
/return

 

[Maskoi]

Guess not

 

[kaen01]

nah, i started up with an old drag.mac from 2004, then well i ended up only keeping the /return and sub main

 

[kaen01]

kaen01 updated Multidrag.mac with a new update entry:

Fixed Error in search paramters

fixed small error in search paramters

pc corpse, where it should have been pccorpse

Read the rest of this update entry...

 

[jamie75]

this would be a nice plugin

 

[kaen01]

kaen01 updated Multidrag.mac with a new update entry:

FAST

Made the summoning routine faster
filters out corpse summoning messages, no more spammy windows.
should ignore corpses you dont have consent for, still bit iffy.

Read the rest of this update entry...

 

[kaen01]

This resource has been removed and is no longer available.