Мининг рандом, Как сделать рандом? Опции

[Ronald]

Добрый вечер всем!
Суть вопроса вот в чём как сделать чтобы чар капал x3 на y3 рандомно?

Кидаю кусочек скрипта))

for #x -3 3 1
for #y -3 3 1
set lasttargetx charposx +#x
set lasttargety charposy +#y
set lasttargetkind 3
:repeat
send F12 400


Заранее благодарен! (IMG:style_emoticons/default/rolleyes.gif)

[DarkMaster]

В текущем виде никак. Надо переписывать всю функцию и уходить от этих двух for'ов. Наверное самым правильным вариантом будет создание списка всех возможных сочетаний координат, копирование этого списка во второй массив, перемешивание второго массива меняя местами элементы. Вот во время смены мест элементов можно будет использовать рандом, а задав большое количество итераций можно добиться очень высокой уникальности. Хотя в данном случае скорее не уникальности, а равномерности распределения вероятности.

[cirus]

В текущем виде никак. Надо переписывать всю функцию и уходить от этих двух for'ов. Наверное самым правильным вариантом будет создание списка всех возможных сочетаний координат, копирование этого списка во второй массив, перемешивание второго массива меняя местами элементы. Вот во время смены мест элементов можно будет использовать рандом, а задав большое количество итераций можно добиться очень высокой уникальности. Хотя в данном случае скорее не уникальности, а равномерности распределения вероятности.

Или во второй массив записывать те координаты, которые уже использовались, а новые координаты сравнивать были они или нет.

[DarkMaster]

Или во второй массив записывать те координаты, которые уже использовались, а новые координаты сравнивать были они или нет.

Когда останется 1 элемент - будешь прокручивать варианты очень долго.

[cirus]

Когда останется 1 элемент - будешь прокручивать варианты очень долго.

Попробовал, согласен, вариант с перемешиванием быстрее и проще.

[Ronald]

Спасибо за ответы)))буду пробывать колдовать ,хоть и не очень понял))) (IMG:style_emoticons/default/tongue.gif)

Дабы не создавать еще тему подскажите еще вопросик какие команды использывать ,сделать надо так чтобы чар реагировал на вес,допустим чар застопорился на тайле и он постоял допустим видит что вес не поменялся и пошёл на след тайл копать))незнаю уловили что хочю сказать)

Заранее благодарен!

[DarkMaster]

проверяйте зарезервированную переменную wght.

[Ronald]

проверяйте зарезервированную переменную wght.

у меня есть переменная ну она реагирует когда чар докапал по весу ,а надо чтобы при каждой откопке тайла реагировал,если капает,то задержка 70 стоит,а если тупит,то ждёт допустим 8000 если не поменялся вес то переходит на стелдующий тайл

вот собстно скрипт,помогите подправить п-жста

set $s1 Тут не осталось руды.
set $s2
set $s3
set $s4
set $s5
set $s6
set $s7
set $s8
set $s9
set $s10
for #x -3 3 1
for #y -3 3 1
set lasttargetx charposx +#x
set lasttargety charposy +#y
set lasttargetkind 3
:repeat
send F12 400
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s3) or (lastmsg = $s4) or (lastmsg = $s5) or (lastmsg = $s10) or (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s11) or (lastmsg = $s12) or (timer > 2000)
while_not (lastmsg = $s7) or (lastmsg = $s9) or (lastmsg = $s16) or (timer > 70000)
end_while
end_while
if wght >= 700
repeat 5
alarm
end_repeat
pause_script
end_if
goto repeat
end_while
end_for
end_for
set #walk random (5)
if #walk = 0
repeat 5
send PageUp 200
end_repeat
end_if
if #walk = 1
repeat 5
send PageDown 200
end_repeat
end_if
if #walk = 2
repeat 5
send Home 200
end_repeat
end_if
if #walk = 3
repeat 5
send End 200
end_repeat
end_if
if #walk = 4
repeat 5
send Up 200
end_repeat
end_if
if #walk = 5
repeat 5
send Down 200
end_repeat
end_if
if #walk = 6
repeat 5
send Left 200
end_repeat
end_if
if #walk = 7
repeat 5
send Right 200
end_repeat
end_if

[Ronald]

Проблему решил.Тему можно закрыть.Спасибо!