RussianRoulette - Компьютерный форум OSzone.net

Помогите доделать программу
она должна симулировать русскую рулетку.
При запуске должна запрашивать число(оно будет размером барабана от 1 и до скольки угодно, то есть мин=1, а мах- произволен)
допустим создаем массив, и в начале игры одному из чисел(из заданного промежутка) дается единичка(это пуля), всем остальным нули, и давим энтер пока кто то не попадает на число с 1.

как заставить программу запрашивать размер барабана
как создать массив для барабана
и как фиксировать пулю?

Знаю как должно быть, но программировать на этом языке почти не умею вот и нужно помощь с этим :dont-know

Код:

@echo off

 

:hra







set valec=%random%



set naboj=%random%

 

echo %valec%

echo Zaciname!

pause>nul

cls

set n=

for %%i in (%valec%) do set/a n+=1

 

:vystrel

 

set/a n-=1

if %n% equ 0 (

 echo valec je prazdny.

 echo %valec% -- naboj!

 pause>nul

 cls

 goto hra

)

for /f %%i in ('

 "powershell get-random %valec%"

') do set náhoda=%%i

title %

call set válec=%%valec:, %nahoda%=%%

call set válec=%%valec:%nahoda%, =%%

echo %valec%

if %nahoda% equ %naboj% (

 echo %nahoda% -- naboj!

 pause>nul

 cls

 goto hra

) else (

 echo %nahoda%

 pause>nul

 cls

 goto vystrel

)

nahoda-случай
valec-барабан револьвера
naboj-пуля
hra-игра