Помощь в создании "Асатамы III"

И два прохладных вопроса:
1. Как и в предыдущей части, здесь будет много различных персонажей со своими “портретами”. Если есть стать таким персонажем, присылайте свои фотографии мне на почту - mkirdan@mail.ru
Хотя пока не прописан весь сюжет и непонятно, сколько таких персонажей понадобится (точно 30+) и какие будут “роли” и типажи.
2. Есть ли желающие помочь автору нарисовать красивую карту мира?
Задача не в том, чтобы ее придумать, она есть, но нарисована плохо.

mkir,
Инициализируй заранее:

$name[0]='Волк'
!Тут прописываем локации для моба.
$loc_area_a[0]='loc1'
$loc_area_b[0]='loc2'
$loc_area_c[0]='loc3'
!Эта переменная будет отвечать за вероятность встречи этого моба.
population[0]=30
!Тут прописываем уровни сложности локации, на которой можно встретить моба.
lvl_a[0]=1
lvl_b[0]=2
lvl_c[0]=3

$name[1]='Заяц'
$loc_area_a[1]='loc1'
$loc_area_b[1]='loc2'
population[1]=80
lvl_a[1]=1
$name[2]='Медведь'
$loc_area_a[2]='loc2'
$loc_area_b[2]='loc3'
population[2]=10
lvl_a[2]=3

На локации loc1:

!Этот код пишем на всех локациях, где будут встречаться мобы.
!В этой переменной храним имя локации.
$loc=curloc
!В этой - уровень.
loc_lvl=1
!Идем подбирать моба.
gs'gen'
!Это проверочная запись, показывает какой моб получился.
'Вы видите <<$mon>>'

gen:

!На этой локации происходит индексация массива $name
i=0
a=0

:marc
!Проверяем соответствие локации.
if $loc_area_a[i]=$loc or $loc_area_b[i]=$loc or $loc_area_c[i]=$loc:
         !Проверяем соответствие уровню. Тут есть момент, первым надо выставить проверку условия наименьшего количества, т.е. если локаций меньше, чем уровней сложности, то ничего не меняем, если больше, то сначала производим проверку уровня. Оно будет работать в любом случае, но так мы сэкономим время вычисления.
     if lvl_a[i]=loc_lvl or lvl_b[i]=loc_lvl or lvl_C[i]=loc_lvl:
         !Если проверки пройдены, создаем временный массив со значением, соответствующим индексу массива $name
     temp[a]=i
         !Создаем временный массив, для определения вероятности встречи.
     temp_population[a]=population[i]
     a+=1
     end
end
i+=1
if i<arrsize('$name')-1:jump 'marc'

!Определяем вероятность.
b=rand(0,max'temp_population')

!В этом блоке мы рандомно шерстим временно созданный массив на соответствие вероятности.
:marc1
c=rand(0,arrsize('temp')-1)
if population[c]>=b:
$mon=$name[c]
else
jump 'marc1'
end
!Уничтожаем временные массивы
killvar 'temp'
killvar 'temp_population'

Вероятность мне не очень нравится, но вроде работает.

Спасибо! Попробую разобраться, но тоже вечером, а то и утром скорее. Так что и комментарии все равно лишними не будут)

Тут критика Асатамы 2.

Да, согласен, этот момент тоже собирался оптимизировать

Изучил код - до половины понятно, дальше не очень.
Попробовал вставить точно по рекомендациям, добавив свои 5 названий локаций и 4 уровня сложности, но что-то не работает.
Волк появляется слишком часто на любых типах локаций и сложности, хотя для него прописаны только 3 локации и 3 сложности (как и для всех, теста ради), редко бывает заяц, медведь никогда.
Иногда выскакивает вместо имени монстра пустое место. Иногда плеер виснет и вылетает.
Буду пытаться!

mkir,
Как я и говорил - вероятность не очень.
Придется прописать ее для каждой локации отдельно и вставить этот код после инициализации локации, но перед инициализацией моба.

if $loc='loc1' and loc_lvl=1:population[0]=30

Объясняю:
возьмем локацию лес первого уровня сложности, заселяем мобов в порядке возрастания редкости: медведь-5%, разбойник-10%, волк 25%, заяц-все остальное.
Применяя наш код получаем два этапа рандома, т.е., для медведя на втором этапе вероятность выпадения составит 25% (1 из 4-х), соответственно 5х4=20, population=20. Для разбойника вероятность на втором этапе уже будет 1 из 3-х, т.е. 10х3=30, для волка 25х2=50. Оставшемуся зверю всегда будет 100, т.к. от 100% удобнее считать.
Итак, получаем:
медведь=20
разбойник=30
волк=50
заяц=100.
Теперь, если ты хочешь, чтоб на второй локации вероятность встретить зайца была 10%, а волка 50% - это не удастся реализовать, т.к. у зайца всегда будет вероятность выше. Допустим, мы смирились, что зайцев на любой локации будет больше, идем дальше.
Если ты захочешь, чтоб в рандоме участвовали новые мобы, придется балансировать между уже инициализированных процентов, т.е. если в локации горы будет полно медведей и 10% нужно для некоего огра, придется делать пропорцию где 20 медведевских в лесу это 100 в горах, соответственно, 10 для огра - это 2, а 2 из 2-х - это 4. Это офигенный гемор, ящитаю.
Потому, необходимо прописать популяцию для каждой локации отдельно.
Но даже при этом подходе необходимо быть внимательным, к примеру, не получится сделать шаг в 1%. Если мы захотим вероятность для разбойника сделать 6%, то 6х3=18, что меньше, чем у медведя, весь расчет сломается и по факту у разбойник будет 18/4=4, а у медведя 20/3=6, за этим надо следить.

mkir:

Иногда плеер виснет и вылетает.

Выложи код, я посмотрю, я тестировал только на 3-х локациях.

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

В общем сделал 6 монстров, вот такой список:

$mname[0]='Волк'
$terra_area_a[0]='Леса'
$terra_area_b[0]='Болота'
$terra_area_c[0]='Холмы'
lvl_a[0]=1
lvl_b[0]=2
lvl_c[0]=3

$mname[1]='Заяц'
$terra_area_a[1]='Леса'
$terra_area_b[1]='Холмы'
$terra_area_c[1]='Болота'
lvl_a[1]=1
lvl_b[1]=2

$mname[2]='Медведь'
$terra_area_a[2]='Леса'
$terra_area_b[2]='Пустоши'
$terra_area_c[2]='Горы'
lvl_a[2]=2
lvl_b[2]=3
lvl_c[2]=4

$mname[3]='Ягуар'
$terra_area_a[3]='Холмы'
$terra_area_b[3]='Равнины'
$terra_area_c[3]='Горы'
lvl_a[3]=1
lvl_b[3]=3
lvl_c[3]=4

$mname[4]='Скальный наездник'
$terra_area_a[4]='Пустоши'
$terra_area_b[4]='Горы'
$terra_area_c[4]='Холмы'
lvl_a[4]=1
lvl_b[4]=2
lvl_c[4]=3

$mname[5]='Йетти'
$terra_area_a[5]='Леса'
$terra_area_b[5]='Болота'
$terra_area_c[5]='Равнины'
lvl_a[5]=3
lvl_b[5]=4

$mname[6]='Великан'
$terra_area_a[6]='Болота'
$terra_area_b[6]='Горы'
$terra_area_c[6]='Равнины'
lvl_a[6]=2
lvl_b[6]=3
lvl_c[6]=4

Ключевую локацию видоизменил, удалив все что касается “вероятностей” (добавил pl - чтобы в тесте фиксировать, все ли правильно происходит)

i=0
a=0
:marc
if $terra_area_a[i]=$terra or $terra_area_b[i]=$terra or $terra_area_c[i]=$terra:
    pl '<<$mname[i]>><<i>>Местность та'
     if lvl_a[i]=tdanger or lvl_b[i]=tdanger or lvl_c[i]=tdanger:
     pl '<<$mname[i]>><<i>>Опасность та'
     temp[a]=i
     a+=1
     end
end
i+=1
if i<arrsize('$mname')+1:jump 'marc'
c=rand(0,arrsize('temp'))
$mon=$mname[c]
killvar 'temp'

Соответственно на локации проверки где можно задать любую местность и сложность сразу же видна ошибка, появляется там где быть не должен - на холмах при низкой опасности.
Разбираюсь больше, благодаря PL - понимаю, что на этом этапе все рассчитывается правильно, а ошибка в последнем присвоении.
А именно - arrsize - это видимо максимальное число значений.
следовательно - $mon=$mname[c] - выбирает случайное число среди первых 4 зверей, например, если совпадений по условиям было 4. Либо среди первых двух, если совпадений было 2.
Но не отбирает среди нужных зверей, учитывая их совпадения. В общем, я запутался, и на этом этапе это не могу исправить

upD
Другими словами при данном списке монстров, массив temp будет иметь 4 значения
temp[0]=0
temp[1]=1
temp[2]=3
temp[3]=4
Вот как в соответствии с этими значениями отобрать из массива $mname - только 0, 1, 3 и 4 и уже из них рандомно выбирать.

mkir, надо -1, а не +

if i<arrsize('$mname')+1:jump 'marc'

Уточни про холмы, какая сложность, 1? Кто появляется?
Тут тоже -1 пропустил.

c=rand(0,arrsize('temp'))

arrsize - это размер массива, как ты правильно понял. Но так как индекс массива начинается с 0, то последний индекс массива с четырьмя записями будет 3. На твоем примере это видно).

Вроде бы не - и не +, а просто без единички, или я чего-то не понимаю.

C каждым jumpом i увеличивается на 1.
И после 6-й проверки - i будет равно 6.

В списке монстров 7.
Соответственно условие
if i < arrsize(’$mname’)
не выполняется, а значит 7й монстр не будет проверяться на условия

Там ошибка эта везде. Про медведя на холмах в качестве примера просто. Холмы, уровень сложности 1. Появляются все кроме Йетти и Великана. Но по идее, у медведя, не прописаны ни холмы и ни сложность 1, он должен присоединиться к Йетти и Великану.

апд.

Если поставить пропущенные мной -1, то разнообразие монстров уменьшится на -1, причем с конца. Все тот же медведь, заяц и волк, ягуар. А вот скальный наездник оказался крайним, хотя к условиям подходит.

mkir:

Другими словами при данном списке монстров, массив temp будет иметь 4 значения
temp[0]=0
temp[1]=1
temp[2]=3
temp[3]=4
Вот как в соответствии с этими значениями отобрать из массива $mname - только 0, 1, 3 и 4 и уже из них рандомно выбирать.

Эта строчка рандомно выбирает из временного массива индекс.

c=rand(0,arrsize('temp')-1)

В этой строчке косяк

$mon=$name[c]

с - это индекс массива temp, потому надо попробовать так

$mon=$name[temp[c]]

Если будет выдавать ошибку, то проверни через промежуточную переменную,

d=temp[c]
$mon=$name[d]

Извини, я все переменные использую свои, надеюсь, ты разберешься.

mkir:

Вроде бы не - и не +, а просто без единички, или я чего-то не понимаю.

C каждым jumpом i увеличивается на 1.
И после 6-й проверки - i будет равно 6.

В списке монстров 7.
Соответственно условие
if i < arrsize(’$mname’)
не выполняется, а значит 7й монстр не будет проверяться на условия

Мы быстро пишем посты), я выше уже объяснил, почему индекс меньше размера на 1.

Кстати, у моей системы еще один недостаток.
Возьмем твой код

$mname[0]='Волк'
$terra_area_a[0]='Леса'
$terra_area_b[0]='Болота'
$terra_area_c[0]='Холмы'
lvl_a[0]=1
lvl_b[0]=2
lvl_c[0]=3

Если ты захочешь, чтоб волки появлялись только на 3-м уровне сложности холмов, то ничего не выйдет, они будут на всех уровнях. Это можно решить с помощь вероятности, если будешь ее использовать, а если нет, придется писать условия для комбинаций локация/сложность.
Короче, предстоит тебе огромная работа.

$mon=$name[temp[c]]
Я поставил эту строчку - и все заработало, так, как нужно! с одним исключением. Великан (крайний последний монстр) не появлялся даже если условия были подходящие. Убрал все-таи эту единичку -1 - и стал появляться.
Вот сейчас точно все работает! Это было круто. Но к вероятностям как-нибудь потом вернусь). Огромное спасибо за поддержку!

А со сложностями ничего подобного. Какие указаны, такие и есть.