Author Topic: RND без повторенийв выпавших чисел  (Read 2106 times)

0 Members and 1 Guest are viewing this topic.

scat

  • Освоившийся
  • **
  • Posts: 23
    • View Profile
RND без повторенийв выпавших чисел
« on: October 30, 2019, 09:34:53 AM »
Приветствую решил тут рулетку на ютубе сделать помогите оптимизировать и чтоб 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)

scat

  • Освоившийся
  • **
  • Posts: 23
    • View Profile
Re: RND без повторенийв выпавших чисел
« Reply #1 on: October 30, 2019, 01:24:06 PM »
благодарю интересная концепция  а $var не как нельзя обойти а то при добавлении 50 ссылок портянка получится бесконечной)

scat

  • Освоившийся
  • **
  • Posts: 23
    • View Profile
Re: RND без повторенийв выпавших чисел
« Reply #2 on: October 30, 2019, 03:53:45 PM »
Спасибо то что нужно ;D ;D ;D ;D