Приветствую решил тут рулетку на ютубе сделать помогите оптимизировать и чтоб RND не повторялась
(знаю много GOTO но мне так проще)
sk:
WAITMS(50)
IF (ISKEYDOWN(#Z)=1) // смена клипа при нажатии на Z
WAITMS(200)
KEYDOWN(#CTRL)
KEYDOWN(#W)
WAITMS(200)
KEYUP(#CTRL)
KEYUP(#W)
WAITMS(200)
GOTO(sk1)
ELSE
WAITMS(50)
GOTO(sk)
END_IF
/////////////////////////////////////////////
sk1:
WAITMS(200)
$pes = rnd(1,3) /// выбор случайного числа (нужно чтоб не повторялось число которое выпало ранее)
WAITMS(200)
IF($pes = 1)
GOTO(sk2)
END_IF
IF($pes = 2)
GOTO(sk3)
END_IF
IF($pes = 3)
GOTO(sk3)
END_IF
/////////////////////////////////////////////////////////////клипы
sk2:
EXECUTE("
https://youtu.be/EqSclLcbvCA")
WAITMS(1200)
LCLICK(699,565)
WAITMS(1200)
GOTO(sk)
sk3:
EXECUTE("
https://youtu.be/M95iEQx20Ag")
WAITMS(1200)
LCLICK(699,565)
WAITMS(1200)
GOTO(sk)
sk4:
EXECUTE("
https://youtu.be/Joz1xBi7ex8")
WAITMS(1200)
LCLICK(699,565)
WAITMS(1200)
GOTO(sk)