IPB
ЛогинПароль:

> Помогите дописать игру, Игра боулинг
сообщение
Сообщение #1


Гость






Привет! smile.gif Задали написать игру(боулинг), а вот сделать ее до конца не получается.Не знаю как сделать движение мяча по горизонтали. Прошу помочь с этим моментом.
Вот код программы:

Uses crt,Graph;
Var Driver,Mode:integer;
top,clip:boolean;
size,x1,y1,R,Dx,Dy,Dm,Dn,z,g:integer;
p:pointer;

procedure myach(x1,y1,R:word);
Begin
{x1 i y1 - koordinaty centra myacha}
begin
x1:=GetMaxX div 2; y1:=GetMaxY-50; R:=10;
SetFillStyle(1,2);
FloodFill(5,100,2);
Circle(x1,y1,R);
end;
{ДВИЖЕНИЕ МЯЧА} {?????????????????????????????????}
begin
{koordinaty kvadrata v kotorom naxoditsya myach}
Dx:=x1-R; Dy:=y1-R; Dm:=x1+R; Dn:=y1+R;
ImageSize(Dx,Dy,Dm,Dn);
GetMem(p,size);
GetImage(Dx,Dy,Dm,Dn,p^);
{koordinati levogo verxnego ugla kvadrata, kuda peremestitsya myach}
z:=Dx+20; g:=Dy;
PutImage(z,g,p^,XorPut);
end;
readln;
Freemem(p,size);
End;

procedure kegli(top:boolean);
Begin
SetFillStyle(1,4);
top:=true;
Bar3D(320,20,330,50,2,top);
End;




BEGIN
{naxodim modul Graph}
Driver:=Detect;
InitGraph(Driver,Mode,'C:\pascal\pascal\minimal');
if GraphResult<>0 then
begin
writeln('!!!ne udalos nayti modul graph!!!');
exit;
end
{}
else
begin
clip:=true;
myach(x1,y1,R);
kegli(top);
end;
repeat until keypressed;
END.


Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Ну чего, не уже ли никто не знает как задать движение фигур в модуле GRAPH???
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Цитата(Гость @ 6.03.2007 19:37) *

Ну чего, не уже ли никто не знает как задать движение фигур в модуле GRAPH???

По горизонтали?
Смещение по Х (dx), увеличивай\уменьшай.
Смещение по Y (dy) =0

Сообщение отредактировано: Ozzя -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 15:43
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name