I used your newtoon.mac as a guide, it was pretty helpful =)
I wanted to skip the tutorial and head straight to PoK and then I usually bind in the guild lobby instead of PoK so I wanted to change that up a bit too.
I ran the macro about 4 times last night after completely finishing it to make sure it didn't get stuck:
-------------
Getting Fellowship Insignia + Binding in Guild Lobby Macro
----------**|
Sub Main
/if (${Zone.ShortName.Equal[Crescent]}) /call CrescentReach
/if (${Zone.ShortName.Equal[PoKnowledge]}) /call PoKnowledge
/if (${Zone.ShortName.Equal[Guildlobby]}) /call Guildlobby
/end
Sub CrescentReach
/echo In Crescent Reach, Starting the macro
/claim
/delay 2s
/invoke ${Window[claimwnd].Child[ClaimFeatureList].Select[${Window[claimwnd].Child[ClaimFeatureList].List[=Gift of Legacies Lost]}]}
/delay 2s
/invoke ${Window[claimwnd].Child[ClaimClaimButton].LeftMouseUp}
/delay 2s
/nomodkey /notify confirmationdialogbox CD_Yes_Button leftmouseup
/delay 2s
/nomodkey /itemnotify "${FindItem[Gift of Legacies Lost]}" rightmouseup
/Delay 2s
/autoi
/Delay 2s
/nomodkey /itemnotify "${FindItem[Potion of Speed]}" rightmouseup
/Delay 2s
/nomodkey /itemnotify "${FindItem[Book of Knowledge]}" rightmouseup
/delay 60s ${Zone.ShortName.Equal[PoKnowledge]}==TRUE
/return
Sub PoKnowledge
/echo In Plane of Knowledge, Letting things load first
/delay 15s
/plugin mq2advpath load
/delay 2s
/moveto loc 504 273
/delay 10s
/moveto loc 312 150
/delay 5s
/moveto loc 318 71
/delay 5s
/doortarget POKDOOR503
/moveto loc ${Switch.DefaultY} ${Switch.DefaultX}
/delay 5s
/if (${Switch.Open}==FALSE) /call openDoor
/moveto loc 381 72
/delay 5s
/target npc Randall
/moveto loc 439 70
/delay 5s
/say how
/delay 1s
/moveto stop
/if (${Cursor.ID}) /autoinventory
/doortarget POKDOOR503
/moveto loc ${Switch.DefaultY} ${Switch.DefaultX}
/delay 3s ${MoveTo.Stopped}
/if (${Switch.Open}==FALSE) /call openDoor
/moveto loc 307 73
/delay 7s
/moveto loc 130 64
/delay 7s
/moveto loc 28 137
/delay 7s
/moveto loc -185 143
/delay 7s
/moveto loc -185 143
/delay 10s
/moveto loc -198 356
/delay 10s
/moveto loc -351 602
/delay 10s
/moveto loc -439 607
/delay 10s
/moveto loc -358 1279
/delay 10s
/moveto loc -291 1349
/delay 10s
/moveto loc -351 1403
/delay 10s
/doortarget FACADE
/moveto loc ${Switch.DefaultY} ${Switch.DefaultX}
/delay 60s ${Zone.ShortName.Equal[Guildlobby]}==TRUE
/return
Sub Guildlobby
/echo In Guild Lobby, I'm going to bind and then wait for pickup
/delay 15s
/moveto loc .79 .88
/delay 5s
/moveto loc 57 -1
/delay 5s
/moveto loc 68 -38
/delay 5s
/moveto loc 238 10
/delay 5s
/moveto loc 257 -107
/delay 5s
/moveto loc 414 -136
/delay 5s
/moveto loc 414 -299
/delay 4s
/tar High Priest of Luclin
/delay 2s
/hail
/delay 2s
/say bind my soul
/delay 2s
/echo You should have your fellowship Insignia now and be bound in the guild lobby.
/end
Sub openDoor
/if (${Switch.Open}==FALSE) {
:openSwitchLoop
/face door
/if (${Window[LargeDialogWindow]}) /invoke ${Window[largedialogwindow].Child[LDW_OkButton].LeftMouseUp}
/click left door
/delay 2s
/if (${Switch.Open}==FALSE) /goto :openSwitchLoop
}
/delay 1s
/return
/end
You start it in CR, it claims gift of legacies lost, pops a speed pot, uses PoK boot, grabs fellowship insignia and then binds in GL.