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

> Помогите дописать игру, Игра боулинг
molodzo
сообщение 5.03.2007 20:19
Сообщение #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 - 5.03.2007 22:54
 К началу страницы 
+ Ответить 

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


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

 

- Текстовая версия 18.07.2025 1:08
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"