Glowing_Bile.mac -- Glowing Bile Divining

[Fippy]

Not sure if this is spot on as I am not near MQ ATM but might be usefull for peeps looking for Glowing Bile.

Code: Select all

#turbo 

Sub Main 
   /varset l0 $id(0) 
   :Loop
      /if n $instr("shardwurm",$spawn(name,clean))<0 /goto :Done 
      /if "$spawn($l0,light)"!="NULL" {
         /beep
         /target id $l0
         /return
      }
      :Done 
      /varset l0 $spawn($l0,next) 
   /if $l0>0 /goto :Loop 
/return 

It should just keep on looping until it find a shardwurm that is a light source then target it if it does and exit.

[Grumpy]

Main problem with this is that targetting only the sharwurms with glowing bile, will quickly run you out of shardwurms with glowing bile. Similar problem with targetting wisps with GLS. The non-bile carrying wurms are placeholders for the ones that carry it (near as I can figure, the glowing bile is just a rare loot on any shardwurm). Sure, target those first, then go whack the others to make more spawn. Unless someone else is actively wiping out the shardwurms, you'll have a long damn wait for a hit once the existing spawns are dead.

[spank]

It should just keep on looping ....

that's all it does, keeps on looping and freezes the game.

can't end the macro either, it freezes the screen while the macro is running and looking for the target.

tried it 9 times last night and ended up having to hard boot the computer everytime.

[macrolover]

same problem here even de turboed it still freezes

[Fippy]

Hehe i did say a wasnt sure it was spot on. Added a delay and a do events it should be a bit more usefull now.

Code: Select all

#turbo 250

Sub Main 
   /varset l0 $id(0) 
   :Loop
      /doevents 
      /if n $instr("shardwurm",$spawn(name,clean))<0 /goto :Done 
      /if "$spawn($l0,light)"!="NULL" { 
         /beep 
         /target id $l0 
         /return 
      } 
      :Done 
      /varset l0 $spawn($l0,next)
      /delay 5 
   /if $l0>0 /goto :Loop 
/return

[spank]

no change, only thing different now is that it doesn't freeze right away, it takes a few seconds.

[lifewolf]

Code: Select all

#turbo 72

Sub Main 
   /varset l0 $id(0) 
   /varset l1 0
   /varset l2 0
   /echo Scanning all zone spawns for light, please wait ...
   :Loop 
      /varadd l1 1
      /if "$spawn($l0,light)"!="NONE" { 
         /echo  Light:  [$l0]  [$spawn($l0,light)] $spawn($l0,name)
         /varadd l2 1
      } else { 
|        /echo  NoLight:  [$l0]  [$spawn($l0,light)] $spawn($l0,name)
      }
      /varset l0 $spawn($l0,next) 
      /delay 0
   /if $l0>0 /goto :Loop 

   /echo Scanned $int($l1) spawns, $int($l2) had lightsources and $int($calc($l1-$l2)) did not.
/return 

Play with the #turbo if you wish, just make sure its low if you use the '/echo NoLight ...' line. Takes my slow computer about 6 seconds to scan 340 mobs as posted.

Output format:
"Light: [ID] [LIGHT_TYPE] [SPAWN_NAME]"
"NoLight: [ID] [NONE] [SPAWN_NAME]"

[SingleServing]

Code: Select all

#turbo 72

Sub Main 
   /varset l0 $id(0) 
   /varset l1 0
   /varset l2 0
   /echo Scanning all zone spawns for light, please wait ...
   :Loop 
      /varadd l1 1
      /if "$spawn($l0,light)"!="NONE" { 
         /echo  Light:  [$l0]  [$spawn($l0,light)] $spawn($l0,name)
         /varadd l2 1
      } else { 
|        /echo  NoLight:  [$l0]  [$spawn($l0,light)] $spawn($l0,name)
      }
      /varset l0 $spawn($l0,next) 
      /delay 0
   /if $l0>0 /goto :Loop 

   /echo Scanned $int($l1) spawns, $int($l2) had lightsources and $int($calc($l1-$l2)) did not.
/return 

Play with the #turbo if you wish, just make sure its low if you use the '/echo NoLight ...' line. Takes my slow computer about 6 seconds to scan 340 mobs as posted.

Output format:
"Light: [ID] [LIGHT_TYPE] [SPAWN_NAME]"
"NoLight: [ID] [NONE] [SPAWN_NAME]"

I'm going to try this when I get home but shouldn't

/if "$spawn($l0,light)"!="NONE"

be

/if "$spawn($l0,light)"!~"NONE"

If not I am confused about the useage of ~~ and !~

[lifewolf]

I'm going to try this when I get home but shouldn't

/if "$spawn($l0,light)"!="NONE"

be

/if "$spawn($l0,light)"!~"NONE"

If not I am confused about the useage of ~~ and !~

$spawn(ID,light) returns either the light type (like GLS, LS, TGS, FBE) or NONE. I just look for the return not being "NONE" . Yes not containing NONE would work too but innequal is logically simpler.

[SingleServing]

I'm going to try this when I get home but shouldn't

/if "$spawn($l0,light)"!="NONE"

be

/if "$spawn($l0,light)"!~"NONE"

If not I am confused about the useage of ~~ and !~

$spawn(ID,light) returns either the light type (like GLS, LS, TGS, FBE) or NONE. I just look for the return not being "NONE" . Yes not containing NONE would work too but innequal is logically simpler.

You kind of stepped around the answer but I picked up on what you were saying all the same. Thanks =)

[missingfiles]

could someone update this macro

Edit: Working macro posted in VIP