hoh token combine macro

Sub Main
/call Prince

/return
Sub Prince

/declare islot7 int outer

:crafting7
/varset islot7 ${FindItem[The Prince of Darkness Quest Token].InvSlot}
/ctrl /itemnotify ${islot7} leftmouseup
/itemn in pack2 1 leftmouseup

/ctrl /itemnotify ${islot7} leftmouseup
/itemn in pack2 2 leftmouseup
/delay 2s
/notify pack2 Container_Combine leftmouseup
/delay 2s
/autoinventory
/if (${islot7}<2) /call Split
/goto :crafting7

/return

Sub Split

/declare islot6 int outer

:crafting6
/varset islot6 ${FindItem[Split Paw Quest Token].InvSlot}
/ctrl /itemnotify ${islot6} leftmouseup
/itemn in pack2 1 leftmouseup

/ctrl /itemnotify ${islot6} leftmouseup
/itemn in pack2 2 leftmouseup
/delay 2s
/notify pack2 Container_Combine leftmouseup
/delay 2s
/autoinventory
/if (${islot6}<2) /call H1N1
/goto :crafting6
/return

Sub H1N1

/declare islot5 int outer

:crafting5
/varset islot5 ${FindItem[H-One N-One Quest Token].InvSlot}
/ctrl /itemnotify ${islot5} leftmouseup
/itemn in pack2 1 leftmouseup

/ctrl /itemnotify ${islot5} leftmouseup
/itemn in pack2 2 leftmouseup
/delay 2s
/notify pack2 Container_Combine leftmouseup
/delay 2s
/autoinventory
/if (${islot5}<2) /call Faceless
/goto :crafting5
/return

Sub Faceless

/declare islot4 int outer

:crafting4
/varset islot4 ${FindItem[The Faceless Quest Token].InvSlot}
/ctrl /itemnotify ${islot4} leftmouseup
/itemn in pack2 1 leftmouseup

/ctrl /itemnotify ${islot4} leftmouseup
/itemn in pack2 2 leftmouseup
/delay 2s
/notify pack2 Container_Combine leftmouseup
/delay 2s
/autoinventory
/if (${islot4}<2) /call Tranquil
/goto :crafting4
/return

Sub Tranquil

/declare islot3 int outer

:crafting3
/varset islot3 ${FindItem[The Tranquil Quest Token].InvSlot}
/ctrl /itemnotify ${islot3} leftmouseup
/itemn in pack2 1 leftmouseup

/ctrl /itemnotify ${islot3} leftmouseup
/itemn in pack2 2 leftmouseup
/delay 2s
/notify pack2 Container_Combine leftmouseup
/delay 2s
/autoinventory
/if (${islot3}<2) /call Oceanlord
/goto :crafting3
/return

Sub Oceanlord

/declare islot2 int outer

:crafting2
/varset islot2 ${FindItem[The Oceanlord Quest Token].InvSlot}
/ctrl /itemnotify ${islot2} leftmouseup
/itemn in pack2 1 leftmouseup

/ctrl /itemnotify ${islot2} leftmouseup
/itemn in pack2 2 leftmouseup
/delay 2s
/notify pack2 Container_Combine leftmouseup
/delay 2s
/autoinventory
/if (${islot2}<2) /call Lightbringer
/goto :crafting2
/return

Sub Lightbringer

/declare islot1 int outer

:crafting1
/varset islot1 ${FindItem[The Lightbringer Quest Token].InvSlot}
/ctrl /itemnotify ${islot1} leftmouseup
/itemn in pack2 1 leftmouseup

/ctrl /itemnotify ${islot1} leftmouseup
/itemn in pack2 2 leftmouseup
/delay 2s
/notify pack2 Container_Combine leftmouseup
/delay 2s
/autoinventory
/if (${islot1}<2) {
/echo done
/endmacro
}
/goto :crafting1
/return