Sub main
/declare VirtueTimer timer
/varset VirtueTimer 180m
:loop
/if (${VirtueTimer}<=0) /call VirtueTimerEvent
/goto loop
Sub VirtueTimerEvent
/memspell "virtue" 8
/delay 5s
/target yourname
/call cast "virtue"
/delay 10s
/target warriorname
/call cast "virtue"
/delay 10s
/varset VirtueTimer 180m
/return