Помогите с рисунком двигающемя вгору

[JACUK]

Вот один чел скинул код для игры, а я почему то не пойму как переделать его так, чтобы картинка двигалась не в бок, а в вверх!

[im_zorg]

сейчас посмотрим

[im_zorg]

у меня даж картинки не открылись((

[JACUK]

Вот что получилось

[JACUK]

Ну вы оперативно!)))Так ты картинки в ресурс добавь!

[GRAY_WOLF]

Сообщение от JACUK

Вот один чел скинул код для игры, а я почему то не пойму как переделать его так, чтобы картинка двигалась не в бок, а в вверх!

Program NewProject;
uses canvas,memclean;
var city,fon,resfon,nil:image; //nil для memclean
cy,y:integer; //координаты города :)
Begin
fon:=loadimage('/fon.png');
resfon:=canvas.resize_image(fon,getwidth,getheight); //подганяем фон под экран
fon:=nil;
memclean.clean;//очищаем память от fon;
city:=loadimage('/city1.png');
cy:=0;
repeat
drawimage(resfon,0,0);
drawtext('Смотри на город',0,0);
y:=(getheight-GetImageHeight(city)-cy);
drawimage(city,0,y);// рисуем город в зависимости от высоты дисплея
cy:=cy+1;//сдвигаем город вверх на 1
if y=0 then cy:=0;
repaint;
until GetKeyClicked=KE_KEY0;
End. 


Картинка двигается с низу вверх циклически.

[GRAY_WOLF]

Сообщение от im_zorg

у меня даж картинки не открылись((

Какой-то глюк. Я их удалил из проекта предварительно сохранив на компе, а потом еще раз их добавил к проекту.

[im_zorg]

вот))

[JACUK]

GRAY_WOLF твой пример сработал, но чуть некоректно! Смотри !

[JACUK]

im_zorg у тебя оно коректно работает, у меня и вверх и влево - короче чето не то!

[GRAY_WOLF]

Сообщение от JACUK

GRAY_WOLF твой пример сработал, но чуть некоректно! Смотри !

Я написал код под твой первый пример...

[JACUK]

А вот под жто сможеш примерчик накатать??

[odd]

Можно гонки сделать с использованием библиотеки Lib_arcade. Нарисуй там хоть небольшой участок дороги, и порокручивай его бесконечно. Ну а машины - это обычные спрайты.

[JACUK]

2 odd Спасибо попробую!

[JACUK]

Скинь либу!