forum.boolean.name - Помогите исправить ошибку

forum.boolean.name (http://forum.boolean.name/index.php)

- MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)

- - Помогите исправить ошибку (http://forum.boolean.name/showthread.php?t=15748)

Ответ: Помогите исправить ошибку

и еще одна мелочь. если твой курсор перемещается с шагом, меньше размеров спрайта, или нужно проверить простейшее столкновение произвольно шатающихся по экрану спрайтов по их размеру (одинаковому у обоих), то можно использовать примерно такие функции:

PHP код:


		
			
// находится ли точка внутри прямоугольника?

// функция возвращает истину, если точка (pX, pY)

// в пределах прямоугольника (rX, rY, sW, sH), где

// (rX, rY) - левый верхний угол прямоугольника,

// (sW, sH) - его ширина и высота (размеры спрайта)

function PtInRect(pX, pY, rX, rY: Integer): boolean;

begin

    if (pX >= rX)and(pY >= rY)and(pX < rX + sW)and(pY < rY + sH) then

        PtInRect := true

    else

        PtInRect := false;

end;



// пересекаются ли прямоугольники?

// размеры обоих прямоугольников равны размерам спрайта (sW, sH)

// на входе - координаты левых верхних углов наших прямоугольников

function RCollision(rX1, rY1, rX2, rY2: Integer): boolean;

begin

    RCollision := PtInRect(rX1, rY1, rX2, rY2)

        or PtInRect(rX1 + sW, rY1, rX2, rY2)

        or PtInRect(rX1 + sW, rY1 + sH, rX2, rY2)

        or PtInRect(rX1, rY1 + sH, rX2, rY2);

end;

Ответ: Помогите исправить ошибку

хм... Пока мне это не нужно, но всё равно благодарю. Наверное, пригодится.

Ответ: Помогите исправить ошибку

А вот смотрите:

PHP код:


		
			
if (x=unit1x) and (y=unit1y) and (key = KE_KEY5) then //если курсор на юните и кликнута "5"...
    begin
         condOnBar:='Выбран'; //меняем состояние на баре
         if (key = KE_KEY5) then //если была снова кликнута "5"...
            begin
               unit1x:=x; //перемещение юнита 
               unit1y:=y; //на положение курсора
            end;         
    end;

Ну, если кликаем по юниту, его состояние меняется на "выбран", если кликаем еще раз, он перемещается на место, где курсор (как в Ancient Empires).

Состояние меняется, а юнит не перемещается. В чем дело?

Ответ: Помогите исправить ошибку

Потому что ты огромный лентяй, который ленится почитать что-нибудь по основам программирования и паразитирует на добрых форумчанах, которые разжёвывают тебе каждую мелочь вместо того, чтоб послать куда подальше. Ты допускаешь найглупейшие ошибки. Ты отнимаешь кучу времени у barsunduk и PassCall, сам не удосужившись приложить минимум усилий и почитать встроенную справку и какую-нибудь статью. Я следил за темой с самого начала и всё время сдерживался.
Представь себе, что ты нанял репетитора по алгебре, ничего не учишь, спрашиваешь, сколько будет 2+3 после того, как он объяснил тебе сколько будет 2+2. А после того, как он ответил, ты спрашиваешь, сколько будет 2+4. Научись прибавлять сам! Мало того, в итоге ты отказываешься платить репетитору. Ты делаешь абсолютно тоже самое.
Я закончил.

Ответ: Помогите исправить ошибку

baton4ik, извините, больше не буду.