THREAD(t1, 0)
KEYPRESS(#q)
waitms(RND(200,300))
END_THREAD
THREAD(t2, 0)
KEYPRESS(#w)
waitms(RND(200,300))
END_THREAD
THREAD(t3, 0)
KEYPRESS(#e)
waitms(RND(200,300))
END_THREAD
THREAD(t4, 0)
KEYPRESS(#r)
waitms(RND(200,300))
END_THREAD
THREAD(t5, 0)
LCLICK($_xmouse,$_ymouse)
waitms(RND(70,120))
END_THREAD
THREAD(t6, 0)
GETSCREEN
IF(PXL (51,120) = 0)
KEYPRESS(#SPACE)
ELSE
waitms(RND(100,200))
END_IF
END_THREAD
THREAD(t7, 0)
GETSCREEN
IF_PIXEL_IN(409,886,703,908, 546815)
SOUND("Свежеемясо.wav")
waitms(RND(3000,3500))
END_IF
END_THREAD
//=============================================
IF(ISKEYDOWN(48)=1)
SETTHREAD (t5,1)
WHILE(ISKEYDOWN(48)=1)
WAITMS(20)
END_CYC
SETTHREAD (t5,2)
END_IF
IF(ISKEYDOWN(53)=1)
WHILE(ISKEYDOWN(53)=1)
END_CYC
IF($t1 = 0)
$t1 = $t1^1
// включение
SETTHREAD (t1,1)
SETTHREAD (t2,1)
SETTHREAD (t3,1)
SETTHREAD (t4,1)
SETTHREAD (t6,1)
SETTHREAD (t7,1)
BEEP(1200,100) // сигнал включения
ELSE
$t1 = $t1^1
// выключение
SETTHREAD (t1,2)
SETTHREAD (t2,2)
SETTHREAD (t3,2)
SETTHREAD (t4,2)
SETTHREAD (t6,2)
SETTHREAD (t7,2)
BEEP(700,100) // сигнал выключения
END_IF
END_IF
WAITMS(20)
Привет, хочу сделать разные звуки на оповещение кольца стихий. Один звук запилил из Хотса думаю как сделать больше или папку сразу и чтобы рендомна выбирал.
THREAD(t7, 0)
GETSCREEN
IF_PIXEL_IN(409,886,703,908, 546815)
SOUND("Свежеемясо.wav")
waitms(RND(3000,3500))
END_IF
END_THREAD