WinWait, Program Manager, 
IfWinNotActive, Program Manager, , WinActivate, Program Manager, 
WinWaitActive, Program Manager, 
Send, {TAB}
WinWait, Start, 
IfWinNotActive, Start, , WinActivate, Start, 
WinWaitActive, Start, 
Send, {TAB}
WinWait, , 
IfWinNotActive, , , WinActivate, , 
WinWaitActive, , 
Send, {TAB}
WinWait, Grand Fantasia, 
IfWinNotActive, Grand Fantasia, , WinActivate, Grand Fantasia, 
WinWaitActive, Grand Fantasia, 

loop
{
SetKeyDelay, 1000, 3000, 7000, Play
Send, {TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{TAB}10{CTRLDOWN}2{CTRLUP}
}