Wait4rez Mac

[Muffinnutz]

Could someone post the wait4rez.inc as a stand alone macro please, for the times when you just want to afk while you get rezzed Thanks

 

[captboom]

Re: Wait4rez Help

|** Wait4rez.mac by FaNTuM
This will automatically accept rez, then loot your corpse for you, leaving
   the specified number of items on it. Usage: </mac wait4rez 0> where 0
   is the number of items to leave on corpse, 0 loots all items.
03/30/2005 **|



| --------------
| -- Main Sub --
| --------------
Sub Main
   /declare t int outer 0
   /declare loottotal int outer
   /declare lootslot int outer
   /declare lootleft int outer 1

   /if (!${Defined[Param0]}) {
      /echo Defaulting to leaving ${lootleft} item/s on corpse
   } else {
      /varset lootleft ${Param0}
   }
   /echo Wait4rez.mac activated. Now consenting guild, raid, and group.
| --------------
| -- Consents --
| --------------
   /consent guild
   /delay 30
   /consent raid
   /delay 30
   /consent group
   /echo Awaiting rez: will auto-accept, then loot leaving ${lootleft} item/s on corpse
| ---------------------
| -- Auto-accept Rez --
| ---------------------
   :waitforrez
   /if (!${Window[ConfirmationDialogBox].Open}) {
      /delay 1s ${Window[ConfirmationDialogBox].Open}
      /goto :waitforrez
   }
   /if (${Window[ConfirmationDialogBox].Open}) /notify ConfirmationDialogBox Yes_Button leftmouseup
| ----------------------------------------------
| -- Wait until fully zoned in before looting --
| ----------------------------------------------
   :zonein
   /delay 5
   /target mycorpse
   /delay 5 ${Target.CleanName.Equal[${Me}'s corpse]}
   /if (${Target.CleanName.NotEqual[${Me}'s corpse]}) /goto :zonein
   /if (${Target.CleanName.Equal[${Me}'s corpse]}) {
      /delay 3s
      /call Loot
   } else /goto :zonein
/end

| -----------------------
| -- Pull corpse close --
| -----------------------
Sub Loot
   :corpsepull
   /target mycorpse
   /delay 5 ${Target.CleanName.Equal[${Me}'s corpse]}
   /if (${Target.CleanName.NotEqual[${Me}'s corpse]}) {
      /echo No corpse in this zone
      /return
   }
   /delay 3s
   /corpse
   /delay 1s ${Target.Distance}<20
   /if (${Target.Distance}>20) {
      /echo Corpse is too far away
      /return
   }
| ---------------------
| -- Open the corpse --
| ---------------------
   /if (${Target.CleanName.Equal[${Me}'s corpse]}) {
      /loot
   } else {
      /echo where did my corpse go?
      /return
   }
   /delay 5s ${Me.State.Equal[BIND]}
   /if (${Me.State.NotEqual[BIND]}) /goto :corpsepull
   /varset loottotal 0
| -----------------
| -- Count items --
| -----------------
   /delay 3s
   :LootLag
   /if (${loottotal}!=${Corpse.Items}) {
      /varset loottotal ${Corpse.Items}
      /delay 2s
      /goto :LootLag
   }
   /if (${loottotal}<=${lootleft}) {
      /echo Looting aborted.  Error in number of items to be left on corpse.
      /notify LootWnd DoneButton leftmouseup
      /return
   }
   /varset loottotal ${Math.Calc[${Corpse.Items}-${lootleft}]}
| ---------------------
| -- Loot the corpse --
| ---------------------
   /echo Looting all but ${lootleft} item(s)
   /for lootslot 1 to ${loottotal}
   :LootItem
   /itemnotify loot${lootslot} rightmouseup
   /delay 5 !${Corpse.Item[${lootslot}].ID}
   /if (!${Corpse.Item[${lootslot}].ID}) {
      /next lootslot
   } else /goto :LootItem
| -----------------
| -- Doublecheck --
| -----------------
   /if (${Math.Calc[${Corpse.Items}-${lootleft}]}>0) /goto :LootLag
   /notify LootWnd DoneButton leftmouseup
   /echo Done looting.  ${lootleft} Item(s) left on your corpse.
/return

 

[Mochila]

Re: Wait4rez Help

Use code tags for posting code in the future

 

[Learningcurve]

Re: Wait4rez Help

Oh yeah thats Captboom thats the ticket right there. Thanks for really spellin it out too. Helps me learn this code faster!

 

[Hiidan]

Re: Wait4rez Help

I have a custom UI and wait4rez.mac. It only loots the first two items then stops. If i loot the 3rd it loots the next two, and so on and so forth. Anyone know how to fix that?

 

[HardOne]

I dunno if my copy is any different then already posted but you can try it anyway.

|** Wait4rez.mac by FaNTuM, 
This will automatically accept rez, then loot your corpse for you, leaving 
   the specified number of items on it. Usage: </mac wait4rez 0> where 0 
   is the number of items to leave on corpse, 0 loots all items. 03/30/2005 
03/14/2006 Updated by Harden
	-Added a status /echo, when rez box is recieved.
	-Added Automatic Mod Rod Clicking after looting corpse.(Thanks Gimp) Excludes: BER, BRD, MNK, ROG, WAR**| 

#include spell_routines.inc

| -------------- 
| -- Main Sub -- 
| -------------- 
Sub Main 
   /declare t int outer 0 
   /declare loottotal int outer 
   /declare lootslot int outer 
   /declare lootleft int outer 1 

   /if (!${Defined[Param0]}) { 
      /echo Defaulting to leaving ${lootleft} item/s on corpse 
   } else { 
      /varset lootleft ${Param0} 
   } 
   /echo Wait4rez.mac activated. Now consenting guild, raid, and group. 
| -------------- 
| -- Consents -- 
| -------------- 
   /consent guild 
   /delay 30 
   /consent raid 
   /delay 30 
   /consent group 
   /echo Awaiting rez: will auto-accept, then loot leaving ${lootleft} item/s on corpse 
| --------------------- 
| -- Auto-accept Rez -- 
| --------------------- 
   :waitforrez 
   /if (!${Window[ConfirmationDialogBox].Open}) { 
      /delay 1s ${Window[ConfirmationDialogBox].Open} 
      /goto :waitforrez 
   } 
   /if (${Window[ConfirmationDialogBox].Open}) {
		/echo Auto accepting rez in 5 sec
		/echo Rez window text: ${Window[ConfirmationDialogBox].Child[CD_TextOutput].Text}
		/delay 5s
		/notify ConfirmationDialogBox Yes_Button leftmouseup
		/delay 5s
	} 
| ---------------------------------------------- 
| -- Wait until fully zoned in before looting -- 
| ---------------------------------------------- 
   :zonein 
   /delay 5 
   /target mycorpse 
   /delay 5 ${Target.CleanName.Equal[${Me}'s corpse]} 
   /if (${Target.CleanName.NotEqual[${Me}'s corpse]}) /goto :zonein 
   /if (${Target.CleanName.Equal[${Me}'s corpse]}) { 
      /delay 3s 
      /call Loot 
   } else {
    /goto :zonein
    } 
/end 

| ----------------------- 
| -- Pull corpse close -- 
| ----------------------- 
Sub Loot 
	:corpsepull 
	/target mycorpse 
	/delay 5 ${Target.CleanName.Equal[${Me}'s corpse]}
	/if (${Target.CleanName.NotEqual[${Me}'s corpse]} || !${Target.ID}) {
		/echo No corpse in this zone 
	/return  
   } 
   /delay 3s 
   /corpse 
   /delay 1s ${Target.Distance}<20 
   /if (${Target.Distance}>20) { 
      /echo Corpse is too far away 
      /return 
   } 
| --------------------- 
| -- Open the corpse -- 
| --------------------- 
   /if (${Target.CleanName.Equal[${Me}'s corpse]}) { 
      /loot 
   } else { 
      /echo where did my corpse go? 
      /return 
   } 
   /delay 5s ${Me.State.Equal[BIND]} 
   /if (${Me.State.NotEqual[BIND]}) /goto :corpsepull 
   /varset loottotal 0 
| ----------------- 
| -- Count items -- 
| ----------------- 
   /delay 3s 
   :LootLag 
   /if (${loottotal}!=${Corpse.Items}) { 
      /varset loottotal ${Corpse.Items} 
      /delay 2s 
      /goto :LootLag 
   } 
   /if (${loottotal}<=${lootleft}) { 
      /echo Looting aborted.  Error in number of items to be left on corpse. 
      /notify LootWnd DoneButton leftmouseup 
      /return 
   } 
   /varset loottotal ${Math.Calc[${Corpse.Items}-${lootleft}]} 
| --------------------- 
| -- Loot the corpse -- 
| --------------------- 
   /echo Looting all but ${lootleft} item(s) 
   /for lootslot 1 to ${loottotal} 
   :LootItem 
   /itemnotify loot${lootslot} rightmouseup 
   /delay 5 !${Corpse.Item[${lootslot}].ID} 
   /if (!${Corpse.Item[${lootslot}].ID}) { 
      /next lootslot 
   } else {
   /goto :LootItem
   } 
| ----------------- 
| -- Doublecheck -- 
| ----------------- 
   /if (${Math.Calc[${Corpse.Items}-${lootleft}]}>0) /goto :LootLag 
   /notify LootWnd DoneButton leftmouseup 
   /echo Done looting.  ${lootleft} Item(s) left on your corpse.