#name "Ñóììîí"
#ps2_keyboard
$V=DIALOGBOX("Ïåðâîìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
$ARR[0]=1
CASE(4)
$ARR[0]=2
CASE(5)
$ARR[0]=3
END_SWITCH
$V=DIALOGBOX("Âòîðîìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
$ARR[1]=1
CASE(4)
$ARR[1]=2
CASE(5)
$ARR[1]=3
END_SWITCH
$V=DIALOGBOX("Òðåòüåìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
$ARR[2]=1
CASE(4)
$ARR[2]=2
CASE(5)
$ARR[2]=3
END_SWITCH
$V=DIALOGBOX("×åòâ¸ðòîìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
$ARR[3]=1
CASE(4)
$ARR[3]=2
CASE(5)
$ARR[3]=3
END_SWITCH
$V=DIALOGBOX("Ïÿòîìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
$ARR[4]=1
CASE(4)
$ARR[4]=2
CASE(5)
$ARR[4]=3
END_SWITCH
$V=DIALOGBOX("Øåñòîìó ÷ëåíó ãðóïïû áåðñà(Ïðåðâàòü), ìàãà(Ïîâòîð) èëè ñòðàæà(Ïðîïóñòèòü)?", 2, 2)
SWITCH($V)
CASE(3)
$ARR[5]=1
CASE(4)
$ARR[5]=2
CASE(5)
$ARR[5]=3
END_SWITCH
WAIT(1)
M1:
KEYDOWN(#ALT)
KEYPRESS(#F9)
KEYUP(#ALT)
IF($A>1199)
$A=0
KEYPRESS(#F5)
WAIT(15)
$A=$A+15
$B=$B+15
$C=$C+15
$D=$D+15
FOR($I, $I<5)
SWITCH($I)
CASE(0)
SWITCH($ARR[$I])
CASE(1)
KEYDOWN(#ALT)
KEYPRESS(#F9)
KEYUP(#ALT)
KEYPRESS(#F7)
WAIT(2)
CASE(2)
KEYDOWN(#ALT)
KEYPRESS(#F8)
KEYUP(#ALT)
KEYPRESS(#F7)
WAIT(2)
CASE(3)
KEYDOWN(#ALT)
KEYPRESS(#F7)
KEYUP(#ALT)
KEYPRESS(#F7)
WAIT(2)
END_SWITCH
$A=$A+2
$B=$B+2
$C=$C+2
$D=$D+2
CASE(1)
SWITCH($ARR[$I])
CASE(1)
KEYDOWN(#ALT)
KEYPRESS(#F9)
KEYUP(#ALT)
KEYPRESS(#F8)
WAIT(2)
CASE(2)
KEYDOWN(#ALT)
KEYPRESS(#F8)
KEYUP(#ALT)
KEYPRESS(#F8)
WAIT(2)
CASE(3)
KEYDOWN(#ALT)
KEYPRESS(#F7)
KEYUP(#ALT)
KEYPRESS(#F8)
WAIT(2)
END_SWITCH
$A=$A+2
$B=$B+2
$C=$C+2
$D=$D+2
CASE(2)
SWITCH($ARR[$I])
CASE(1)
KEYDOWN(#ALT)
KEYPRESS(#F9)
KEYUP(#ALT)
KEYPRESS(#F9)
WAIT(2)
CASE(2)
KEYDOWN(#ALT)
KEYPRESS(#F8)
KEYUP(#ALT)
KEYPRESS(#F9)
WAIT(2)
CASE(3)
KEYDOWN(#ALT)
KEYPRESS(#F7)
KEYUP(#ALT)
KEYPRESS(#F9)
WAIT(2)
END_SWITCH
$A=$A+2
$B=$B+2
$C=$C+2
$D=$D+2
CASE(3)
SWITCH($ARR[$I])
CASE(1)
KEYDOWN(#ALT)
KEYPRESS(#F9)
KEYUP(#ALT)
KEYPRESS(#F10)
WAIT(2)
CASE(2)
KEYDOWN(#ALT)
KEYPRESS(#F8)
KEYUP(#ALT)
KEYPRESS(#F10)
WAIT(2)
CASE(3)
KEYDOWN(#ALT)
KEYPRESS(#F7)
KEYUP(#ALT)
KEYPRESS(#F10)
WAIT(2)
END_SWITCH
$A=$A+2
$B=$B+2
$C=$C+2
$D=$D+2
CASE(4)
SWITCH($ARR[$I])
CASE(1)
KEYDOWN(#ALT)
KEYPRESS(#F9)
KEYUP(#ALT)
KEYPRESS(#F11)
WAIT(2)
CASE(2)
KEYDOWN(#ALT)
KEYPRESS(#F8)
KEYUP(#ALT)
KEYPRESS(#F11)
WAIT(2)
CASE(3)
KEYDOWN(#ALT)
KEYPRESS(#F7)
KEYUP(#ALT)
KEYPRESS(#F11)
WAIT(2)
END_SWITCH
$A=$A+2
$B=$B+2
$C=$C+2
$D=$D+2
CASE(5)
SWITCH($ARR[$I])
CASE(1)
KEYDOWN(#ALT)
KEYPRESS(#F9)
KEYUP(#ALT)
KEYPRESS(#F12)
WAIT(2)
CASE(2)
KEYDOWN(#ALT)
KEYPRESS(#F8)
KEYUP(#ALT)
KEYPRESS(#F12)
WAIT(2)
CASE(3)
KEYDOWN(#ALT)
KEYPRESS(#F7)
KEYUP(#ALT)
KEYPRESS(#F12)
WAIT(2)
END_SWITCH
$A=$A+2
$B=$B+2
$C=$C+2
$D=$D+2
END_SWITCH
END_CYC
ELSE
IF($B>539)
$B=0
KEYPRESS(#F4)
ELSE
IF($C>239)
$C=0
KEYPRESS(#F6)
WAIT(5)
$A=$A+5
$B=$B+5
$C=$C+5
$D=$D+5
ELSE
IF($D>8)
$D=0
KEYPRESS(#F1)
KEYPRESS(#F2)
KEYPRESS(#F3)
ELSE
WAIT(1)
$A=$A+1
$B=$B+1
$C=$C+1
$D=$D+1
GOTO(M1)
END_IF
GOTO(M1)
END_IF
GOTO(M1)
END_IF
GOTO(M1)
END_IF
GOTO(M1)
halt
