Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.11.2012, 19:37   #1
dlinkz
 
Регистрация: 28.11.2011
Сообщений: 6
По умолчанию Рандомное движение изображения по заданным координатам.

Всем привет! Вот есть игровая программа, в которой нужно уворачиваться от препятствий, машина двигается, а вот препятствий нету, не пойму как это сделать... Помогите с этим. Нужно что бы загруженная картинка была препятствием.
Код:
uses crt,graphabc,abcobjects;
var a,b:array[1..10] of string;
    x,y,k,img,img2,img3,img4,img5,img6,img7,img8,g:integer;
    s:string;
    c:char;
Car: pictureabc;
begin
setwindowsize(800,600);
fillwindow('doroga.jpg');
car:=pictureabc.create(360,450,'bollid.png');
x:=60;y:=370;
repeat
c:=readkey;
if (c=#75) and (x<120) then begin car.moveon(50,0);x:=x+60; end else
if (c=#77) and (x>0) then begin car.moveon(-50,0);x:=x-60;end;
until c=#27;
end.
Изображения
Тип файла: png Bollid.png (21.4 Кб, 94 просмотров)
Тип файла: jpg Doroga.jpg (305.3 Кб, 143 просмотров)
dlinkz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос по координатам пикселей изображения. Vova777 Общие вопросы Delphi 0 06.07.2011 17:09
Построение окружности по заданным координатам центра и радиусу Dark Sany Помощь студентам 2 06.06.2011 09:22
рандомное движение объекта!((( A.S.W Помощь студентам 4 15.04.2011 19:22
движение изображения с зеркальным отображением от стенок nev Помощь студентам 6 11.06.2007 21:38