Found myself wanting to grab my RKII spells for my team in the HoT expansion. Discovered that I needed to get my Dream Delvers to indif to be able to see the Greater and Glowing line from the quest giver. Not wanted to spend a few hours to grind out the faction. I found the a ruppocsnakes mac from years ago and changed it up a bit to work for me. YMMV but though I would post up my changes. I pulled all this from other macro's so its kind of a hodge podge of code but gets the job done.
I don't think this will work to grind out levels there as I did it on a 110 crew but maybe can be turned into one if someone wanted to.
I use all CWTN plugins so Its made with that in mind also.
[CODE title="Hotdog mac"]|
Group Load must be main tank running CWTN Plugin
Sub Main
/echo *********************************
/echo ** Thank you for using
/echo ** Starting Macro - System Checks
/echo *********************************
/call CheckPlugin MQ2Rewards
/call CheckPlugin MQ2Events
/call CheckPlugin MQ2DanNet
/call CheckPlugin MQ2MoveUtils
/call cwtnsetup
/call checks
/return
Sub checks
|check if reward window is open
/if (${Window[RewardSelectionWnd].Open}) /call GetReward
/if (!${Window[TaskWnd].Open}) {
/keypress ALT+Q
/delay 5s ${Window[TaskWnd].Open}
/delay 1s
}
/echo Checking if it's Ruppoc time:
/echo Checking if We have the Task
/if (${Task[Rotdogs and Snakes].Select}) {
/echo We have a task but check if its completed
/if (!${Window[TaskWnd].Child[Task_TaskElementList].List[1,2].Equal[DONE]} || !${Window[TaskWnd].Child[Task_TaskElementList].List[2,2].Equal[DONE]}) {
/echo Looks Like we still got mobs to kill
/call CombatTime
}
/echo Task looks Complete.
/if (${Window[RewardSelectionWnd].Open}) /call GetReward
/call StartTask
}
/echo We need a task
/call StartTask
/return
Sub StartTask
/squelch /dgae /docommand /$\{Me.Class.ShortName} pause on
/echo pausing CWTN
/delay 1s
/echo Moving to Ruppoc
/squelch /dgae /tar npc ruppoc
/delay 1s
/dgae /nav target
/delay 1s
:StillMoving
/if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving
/echo Hailing Ruppoc
/dgae /h
/delay 3s
/echo Grabbing new task
/dgae /say snakes
/delay 2s
/if (!${Window[TaskWnd].Open}) /dgae /keypress Alt+Q
/delay 5s
/if (${Window[RewardSelectionWnd].Open}) {
/echo reward window is open
/call GetReward
}
/delay 20s
/echo quick pause
/call CombatTime
/return
Sub CombatTime
| Character is back at camp here so time to call the combat .inc you set up.
| for use with CTWN plugins
/echo \ayGroup Combat Mode on CWTN Plugings
/delay 2s
/squelch /dgae /docommand /$\{Me.Class.ShortName} pause on
/delay 2s
/squelch /dge /docommand /$\{Me.Class.ShortName} mode 2
/delay 2s
/squelch /docommand /${Me.Class.ShortName} mode 3
/delay 2s
/squelch /dgae /docommand /$\{Me.Class.ShortName} pause off
/echo starting combat routine
/clear target
:rotdogs
/delay 10s
/target clear
/echo Looking for Rotdogs to Kill
/if (!${Window[TaskWnd].Child[Task_TaskElementList].List[1,2].Equal[DONE]}) {
/echo Targeting a Rotdog
/target ${NearestSpawn[npc radius 500 "rotdog"]}
/attack %t
/goto :rotdogs
} else {
/echo Killed needed Rotdogs
/goto :snakes
}
:snakes
/delay 10s
/target clear
/echo Looking for Snakes to Kill
/if (!${Window[TaskWnd].Child[Task_TaskElementList].List[2,2].Equal[DONE]}) {
/echo Targeting a snake
/target ${NearestSpawn[npc radius 500 "snake"]}
/attack %t
/goto :snakes
} else {
/echo Task is now completed.
/call StartTask
}
/echo Task is now completed.
/call StartTask
/return
Sub GetReward
/echo Grabbing Reward
/delay 5s ${Window[RewardSelectionWnd].Open}
/delay 5s
/noparse /dgae /docommand /invoke ${Window[RewardSelectionWnd/RewardPageTabWindow].Tab[1].Child[RewardSelectionChooseButton].LeftMouseUp}
/delay 5s !${Window[RewardSelectionWnd].Open}
/delay 2s ${Cursor.ID}
/return
Sub CheckPlugin(string pluginname)
/if (!${Bool[${Plugin[${pluginname}]}]}) {
/squelch /plugin ${pluginname}
/dgt all ${pluginname} not detected! This macro requires it! Loading ...
}else{
/echo Plugin ${pluginname} is Loaded
}
/return
Sub cwtnsetup
/echo setting up CWTN Peratmeters for macro
/echo setting Radious to 600
/squelch /docommand /${Me.Class.ShortName} Radius 600
/delay 2s
/echo zHeight to 6
/squelch /docommand /${Me.Class.ShortName} zHigh 06
/delay 2s
/echo Adding NPCs to ignore list
/tar ruppoc
/delay 2s
/squelch /docommand /${Me.Class.ShortName} ignore
/delay 2s
/tar groot
/delay 2s
/squelch /docommand /${Me.Class.ShortName} ignore
/delay 2s
/tar liss
/delay 2s
/squelch /docommand /${Me.Class.ShortName} ignore
/delay 2s
/tar alboct
/delay 2s
/squelch /docommand /${Me.Class.ShortName} ignore
/delay 2s
/tar dreamer
/delay 2s
/squelch /docommand /${Me.Class.ShortName} ignore
/delay 2s
/echo All done with CWTN Peratmeters
/delay 2s
/return
[/CODE]
I don't think this will work to grind out levels there as I did it on a 110 crew but maybe can be turned into one if someone wanted to.
I use all CWTN plugins so Its made with that in mind also.
[CODE title="Hotdog mac"]|
Group Load must be main tank running CWTN Plugin
Sub Main
/echo *********************************
/echo ** Thank you for using
/echo ** Starting Macro - System Checks
/echo *********************************
/call CheckPlugin MQ2Rewards
/call CheckPlugin MQ2Events
/call CheckPlugin MQ2DanNet
/call CheckPlugin MQ2MoveUtils
/call cwtnsetup
/call checks
/return
Sub checks
|check if reward window is open
/if (${Window[RewardSelectionWnd].Open}) /call GetReward
/if (!${Window[TaskWnd].Open}) {
/keypress ALT+Q
/delay 5s ${Window[TaskWnd].Open}
/delay 1s
}
/echo Checking if it's Ruppoc time:
/echo Checking if We have the Task
/if (${Task[Rotdogs and Snakes].Select}) {
/echo We have a task but check if its completed
/if (!${Window[TaskWnd].Child[Task_TaskElementList].List[1,2].Equal[DONE]} || !${Window[TaskWnd].Child[Task_TaskElementList].List[2,2].Equal[DONE]}) {
/echo Looks Like we still got mobs to kill
/call CombatTime
}
/echo Task looks Complete.
/if (${Window[RewardSelectionWnd].Open}) /call GetReward
/call StartTask
}
/echo We need a task
/call StartTask
/return
Sub StartTask
/squelch /dgae /docommand /$\{Me.Class.ShortName} pause on
/echo pausing CWTN
/delay 1s
/echo Moving to Ruppoc
/squelch /dgae /tar npc ruppoc
/delay 1s
/dgae /nav target
/delay 1s
:StillMoving
/if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving
/echo Hailing Ruppoc
/dgae /h
/delay 3s
/echo Grabbing new task
/dgae /say snakes
/delay 2s
/if (!${Window[TaskWnd].Open}) /dgae /keypress Alt+Q
/delay 5s
/if (${Window[RewardSelectionWnd].Open}) {
/echo reward window is open
/call GetReward
}
/delay 20s
/echo quick pause
/call CombatTime
/return
Sub CombatTime
| Character is back at camp here so time to call the combat .inc you set up.
| for use with CTWN plugins
/echo \ayGroup Combat Mode on CWTN Plugings
/delay 2s
/squelch /dgae /docommand /$\{Me.Class.ShortName} pause on
/delay 2s
/squelch /dge /docommand /$\{Me.Class.ShortName} mode 2
/delay 2s
/squelch /docommand /${Me.Class.ShortName} mode 3
/delay 2s
/squelch /dgae /docommand /$\{Me.Class.ShortName} pause off
/echo starting combat routine
/clear target
:rotdogs
/delay 10s
/target clear
/echo Looking for Rotdogs to Kill
/if (!${Window[TaskWnd].Child[Task_TaskElementList].List[1,2].Equal[DONE]}) {
/echo Targeting a Rotdog
/target ${NearestSpawn[npc radius 500 "rotdog"]}
/attack %t
/goto :rotdogs
} else {
/echo Killed needed Rotdogs
/goto :snakes
}
:snakes
/delay 10s
/target clear
/echo Looking for Snakes to Kill
/if (!${Window[TaskWnd].Child[Task_TaskElementList].List[2,2].Equal[DONE]}) {
/echo Targeting a snake
/target ${NearestSpawn[npc radius 500 "snake"]}
/attack %t
/goto :snakes
} else {
/echo Task is now completed.
/call StartTask
}
/echo Task is now completed.
/call StartTask
/return
Sub GetReward
/echo Grabbing Reward
/delay 5s ${Window[RewardSelectionWnd].Open}
/delay 5s
/noparse /dgae /docommand /invoke ${Window[RewardSelectionWnd/RewardPageTabWindow].Tab[1].Child[RewardSelectionChooseButton].LeftMouseUp}
/delay 5s !${Window[RewardSelectionWnd].Open}
/delay 2s ${Cursor.ID}
/return
Sub CheckPlugin(string pluginname)
/if (!${Bool[${Plugin[${pluginname}]}]}) {
/squelch /plugin ${pluginname}
/dgt all ${pluginname} not detected! This macro requires it! Loading ...
}else{
/echo Plugin ${pluginname} is Loaded
}
/return
Sub cwtnsetup
/echo setting up CWTN Peratmeters for macro
/echo setting Radious to 600
/squelch /docommand /${Me.Class.ShortName} Radius 600
/delay 2s
/echo zHeight to 6
/squelch /docommand /${Me.Class.ShortName} zHigh 06
/delay 2s
/echo Adding NPCs to ignore list
/tar ruppoc
/delay 2s
/squelch /docommand /${Me.Class.ShortName} ignore
/delay 2s
/tar groot
/delay 2s
/squelch /docommand /${Me.Class.ShortName} ignore
/delay 2s
/tar liss
/delay 2s
/squelch /docommand /${Me.Class.ShortName} ignore
/delay 2s
/tar alboct
/delay 2s
/squelch /docommand /${Me.Class.ShortName} ignore
/delay 2s
/tar dreamer
/delay 2s
/squelch /docommand /${Me.Class.ShortName} ignore
/delay 2s
/echo All done with CWTN Peratmeters
/delay 2s
/return
[/CODE]

