Урок - Создание игры "Scroll Shooter" на Delphi/Lazarus (ч.1)

[@bakunovdo]

Очень подробно и все понятно, для новичков самое то. Особенно урок хорош для понимая как работать с графикой и классами

[@ТАРАСГАВРИЛОВ-п8ы]

спасибо за подсказку с keyup. так действительно плавнее

[@7py3uH]

Автор мой тебе совет "Пиши в комментарии ссылки откуда ты берешь-скачиваешь- данные " а так нормально снято!

[@koljan357]

constructor TAnimate.Create(x0, y0: Integer; bitmap0: array of TBitmap; maxframe0: Integer); begin x := x0; y := y0; bitmap := bitmap0; maxframe := maxframe0; //SetLength(bitmap,maxframe); frame := 0; end; bitmap := bitmap0;тут ошибка : Incompatible types Delphi 7 и 2010

[@МарияОхлопкова-д9о]

Ругается в TPlayer constructor TPlayer.Create(x0, y0: Integer; bitmap0: array of TBitmap; maxFrame0: Integer); begin inherited; health:= 100; end; выделяет красным "inherited" и пишет [Error] Unit2.pas(145): Incompatible types

[@denayed]

у меня тоже!

[@СергейШуткин-ю1ц]

понимаю что поздно, но ошибка для делфи, где идёт сравнение статического массива bitmap и динамического массива bitmap0 пишем for i := 0 to Length(bitmap0) do bitmap[i] := bitmap0[i]; можно ещё проверку сделать на выход за пределы изначального массива (более ста элементов).

[@Maxibon4ik]

Офигенно, надо попробовать

[@panknd]

для изображения установлена прозрачность "Transparent := True"

[@genii1281]

procedure TAnimate.nextFrame; begin if curFrame < maxFrame then curFrame := curFrame + 1 else curFrame := 0; end; Выдает ошибку: External:SIGSEGV, ПОМОГИТЕ ПОЖАЛУЙСТА

[@andrewser5871]

Ты уже разобрался или нет? Если да, подскажы пожалуйста.

[@goodwin370]

Все отлично но самолет летит ток до верхнего левого угла и нижнего правого угла, + я должен был исправлять то что у меня самолет был посреди экрана, и самолет Дрыгало на меготел, но с передвижением еще понял.

[@ОлегБатрон]

можете скинуть архив со всеми картинками? Буду очень благодарен

[@beeeeeest999]

не подскажите как в вашей игре реализовать таблицу результатов, не работал с бд в лазарусе только в делфи

[@panknd]

проще всего использовать ini-файл

[@ande13st]

в строчке "Player := TPlayer.Create(300, 500, plPic, 2);" не могу найти ошибку. unit1.pas(57,48) Error: Wrong number of parameters specified for call to "Create" Якобы не достаточно значений для создания, я вот вообще не могу понять в чём проблема. вот весь код //load graphics for i := 0 to 2 do begin plPic[i]:=TBitmap.Create; plPic[i].LoadFromFile('img/player'+IntToStr(i)+'.bmp'); plPic[i].Transparent:=True; end; Player := TPlayer.Create(300, 500, plPic, 2);

[@asvetly1337]

а куда исчезает синий фон на изображении самолета?

[@alexandr_5836]

Ты где картинку моря взял?

[@goodwin370]

не работает в этом месте Image1.Canvas.FillRect (0,0,600,600); Работаю на Delphi

[@pomidorkarus4665]

надо добавить переменную: var rect: TRect; потом присвоить этой переменной rect:= Bounds(0,0,600,600); и поменять строчку Image1.Canvas.FillRect (0,0,600,600); на Image1.Canvas.FillRecr(rect);

[@russia8595]

17:02 нихрена не видно что ты прописал, ответь пож-ста что ты прописал?

[@panknd]

на HD качестве вроде бы прекрасно видно ))

[@russia8595]

Crudux Cruo Я и так в HD смотрю, то что ты прописал просто не влезло в экран, видно лишь маленькую верхнюю часть кода. ((

[@panknd]

что конкретно не видно? С какого момента? DoubleBuffered := True; MoveL := False; MoveR := False;

[@russia8595]

Crudux Cruo на пару секунд позднее, сразу после того как ты это прописал) в тот момент когда ты говорил "и начинаем грузить графику", вроде как начинается с "//" (сразу после "DoubleBuffered := True; MoveL := False; MoveR := False;" и перед тем как ты вернулся вверх и добавил переменную "i") 49 строка вроде бы

[@russia8595]

Crudux Cruo вообщем забей, я скачал уже твою игру в архиве.

[@valery8360]

А что за игра "Блоки" ?Ты записывал видео?

[@panknd]

Игра, в которой нужно найти и уничтожить блоки одного цвета в ряд

[@valery8360]

Crudux Cruo, Спасибо, нашел видео. www.1001guru.ru/games/Gridlock Похожих игр не делал?Просто я чайник

[@panknd]

Неизвестный Неизвестно нет, таких не делал

[@valery8360]

Crudux Cruo,ладно, и на этом спасибо

[@vlad_idigitali]

LCLType нету в delphi 7

[@panknd]

А он там и не нужен. В делфи это добро находится в модуле Windows

[@arsenmarat3680]

на делфи он показывает ошибку

[@АнтонВувк]

какую?

[@Дмитрий-ю5э9к]

Антон Вувк Несовместимые типы bitmap и bitmap0 все точь в точь без ошибок, несколько раз проверял

[@panknd]

Вася Пупкин Graphics подключен?

[@panknd]

Вася Пупкин из гугла: "В Delphi можно столкнуться с "тезкой" рассматриваемого объекта - структурой TBitmap, описанной в файле WINDOWS.PAS. Поскольку обе они относятся к одной и той же предметной области, часто возникают коллизии, приводящие к ошибкам. Напомним, чтобы отличить структуры-синонимы, следует использовать имя модуля, в котором они описаны. Поэтому если в вашей программе есть модули Windows и Graphics, то описывайте и употребляйте типы Windows.TBitmap И Graphics.TBitmap."

[@Дмитрий-ю5э9к]

Crudux Cruo меняю тип на Graphics.TBitmap все равно ту же ошибку выдает Graphics подключен

[@raiz1340]

А можеш саму игру скинуть пожалуста

[@panknd]

сделал третий урок, освещающий и это

[@coshavik_mames3468]

блять подскажите как в пэйнте вырезать спрайты !!!!!!??????????????