алгоритм расположения объектов в квадрате

http://www.wc3c.net/tools/specs/index.html

Daniil18, если не знаеш не пиши не по тему!
Нашел буду мучать его в варик делать digspt.ru/topics/32

Причину нашел что раньше было "xe_RAWCODE_FOOD *-* count" поэтому давали не правильно, но путем поиска нашел причину и исправил на *+*

Я бы определял принадлежность центров квадрата некой окружности. Не так интуитивно-однозначно как проверка принадлежности всех точек квадрата окружности, но гораздо удобнее с точки зрения реализации. Далее для каждой строки поочередно прогоняем алгоритм заливки(в случае, если заливка подразумевает заливку текстурой почвы - стоит учитывать что каждый квадрат почвы имеет размеры 32/32 и центры мелких квадратиков имеют смещение в 16.), закрашивая почву в пределах новоопределенных ректов. Поочередно построчно, т.к. возможно у вас возникнет ситуация черное-белое-черное-белое и вторая строка (если весь массив прогонять подряд, а не построчно) начнется с черного квадрата. Не вижу каких-либо вытекающих неудобств при разработке..

Да как хочешь, главное, чтобы тебе и игрокам удобно было. Можно все коэфициенты складывать (то есть броня снижает на 40%, от огня защита 10%, итого урон от огня снижается на 50%), а можно перемножением (в этом случае будет снижение будет 46%).

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

От перестановки множителей произведение не меняется. Ведь это будет так.

Скопировать в буфер

damage * (1 - common armor %) * (1 - fire armor %)

integer x = 1
location pos = //ваш центр
real distance = //ваш размер квадрата
loop
exitwhen x > 12
    if x == 2 or x == 5 or x == 8 or x == 1 or then
        set pos = PolarProjectionBJ(pos, d*SquareRoot(2), 30*I2R(X)-15) 
    else
        set pos = PolarProjectionBJ(pos, d, 30*I2R(X)-15)
    endif
    set x = x + 1
endloop

integer i = 1
real x //X центра
real y //Y центра
real distance //Размер стороны квадрата и одновременно смещение
loop
exitwhen i > 12
    if i == 2 or i == 5 or i == 8 or i == 1 or then
        set x = x + distance*Cos((30*I2R(i)-15) * bj_DEGTORAD)
        set y = y + distance*Sin((30*I2R(i)-15) * bj_DEGTORAD)
    else
        set x = x + (distance*SquareRoot(2))*Cos((30*I2R(i)-15) * bj_DEGTORAD)
        set y = y + (distance*SquareRoot(2))*Sin((30*I2R(i)-15) * bj_DEGTORAD) 
    endif
    set i = i + 1
endloop