создаю игру в Delphi кто может помогайте

[Манжосов Денис :)]

Есть следующая функция, пользуюсь ей долго время.

function IsKeyDown(Key: byte): boolean;
begin
  Result := false;
  if (Keys[Key] = 128) or (Keys[Key] = 129) then Result := true;
end;

Создай глобальную переменную Keys: TKeyboardState; и запиши в обработчик таймера в начале строку GetKeyBoardState(Keys);. Чтобы проверить, что нажата клавиша, стрелка вправо например, ты должен написать следующий код:

if IsKeyDown(39) then begin
  // Действия
end;

P.S. Если кто-то знает способ лучше, поделитесь пожалуйста.

[Ponkole]

Блин, Манжосов Денис, спасибо тебе: ещё даже не пробовал использовать эту
идею в мой код, но точно знаю это крутая штука.
Result получается функция при заданных условиях?.
Аpromix, я знаю что спрашиваю слишком много, но это для благородных целей,
и спрашиваю не от того что не хочу лазить в книгу, а от того что не знаю (я читаю
пару сайтов и не всегда нахожу того что хочу, даже если оно есть).

[Манжосов Денис :)]

Result получается функция при заданных условиях?.

Эм... ну вместо Result := true; можно писать IsKeyDown := true;, что в принципе одно и тоже. А значение Result(IsKeyDown) зависит от того, выполнилось ли условие или нет. =)

[Ponkole]

Спасибо. Понял. Дела идут на лад... ещё раз спасибо.

Вот что получилось на первый раз, все которые ошибки видел исправил.
стрелки - перемещение змея, в края не врезаться, скоро появятся враги
(в нов вер)
Выйдет черное окно кликнете мышкой

[Вадим Буренков]

Кривой выход из игры, после запуска если не нажать мышь висит черный экран, графика никакая, змейка может ездить по себе и останавливаться. Если закрыть глаза на выше перечисленное то нормально.
Поэтому советую прежде чем добавлять что-то новое разобраться с этими проблемами.
Если интересно можешь посмотреть статью про написание простенькой змейки:
http://procoder.info/index.php?optio...dia&Itemid=151

[Ponkole]

Спасибо змея больше не тормозит, черезсебя тоже не проходит, с графикой у меня не лады, анед меню работаю в общем спасибо.У меня появился вопрос лучше сделать чтобы если змея на себя наезжает, она "откусывала" от себя кусок или умирала?

[Casper-SC]

Сделай меню. Поставь фон нормальный, только не бредятину типа: "пальма и вода", а какой нибудь более менее подходящий для игры. Квадратики бы тоже сделал цветными. Скорость змейки лучше бы росла с каждым уровнем или какие там правила в оригинальной змейке, короче мне не нравится, что змейка гоняет с самого начала как бешеная. Правда для некоторых и это медленно покажется, так что выбор скорости не помешал бы. При повороте змейки угловой кубик лучше бы показывал, что это изгиб. Ну там же есть в кубиках полоски показывающие направление. А так вроде работает.

[Ponkole]

У меня новая задача:
у меня есть изображение Х*У как мне из него достать прямоугольную область
Х1*У1 (обе переменной в формате TBitMap)

[Гром]

Функция CopyRect из TCanvas. Указываете в качестве параметров TRect(x0, y0, x0 + x1, y0 + y1) и TRect(0, 0, x1, y1).

[Ponkole]

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

вот код в ответ за это

Screenbit.Free;
ScreenBit:=nil;
ScreenBit:=Tbitmap.Create;
y0:=-(PlayerSnail[1].Y*25);
x0:=-(PlayerSnail[1].x*25);
y1:=600;
x1:=800;
Screenbit.Height:=y1;
Screenbit.Width:=x1;
Screenbit.Canvas.CopyRect(rect(x0, y0, x0 + x1, y0 + y1),
ScreenBitmap.Canvas,Rect(0, 0, x1, y1));