Сообщение от 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.
Картинка двигается с низу вверх циклически.