Мишень И Прицел

Тема в разделе "Pascal and Delphi", создана пользователем Alimax, 8 апр 2013.

  1. Alimax

    Alimax New Member

    Регистрация:
    8 апр 2013
    Сообщения:
    1
    Симпатии:
    0
    Как заставить двигаться мишень независимо от прицела?
    Чтобы при перемещений прицела мишень тоже двигалась. Язык Паскаль
    Код (Delphi):
    uses crt, graph;
    procedure Mis(xm,ym,rm:integer);
    begin
    setbkcolor(15);
    setcolor(4);
    circle(xm,ym,60);
    circle(xm,ym,40);
    circle(xm,ym,20);
    end;
    procedure pri(xp,yp,xm,ym,rm:integer);
    var xstr, ystr:string;
    begin
    setcolor(13);
    line(xp,yp-15,xp,yp+15);
    line(xp-15,yp,xp+15,yp);
    str(xp, xstr);
    str(yp, ystr);
    setcolor(13);
    outtextxy(xp+5,yp-35,'x='+xstr);
    outtextxy(xp+5,yp-20,'y='+ystr);
    end;
    var a,b,xp,yp,xm,ym,rm:integer;
    k:char;
    begin
    a:=detect;
    initgraph(a,b,'c:\bp\bgi');
    xp:=getmaxx div 2; yp:=getmaxy div 2;
    repeat
    k:=readkey;
    case k of
    #72: begin yp := yp - 3;     end;
    #80: begin yp := yp + 3;     end;
    #75: begin xp := xp - 3;     end;
    #77: begin xp := xp + 3;     end;
    end;
    cleardevice;
    pri(xp,yp,xm,ym,rm);
    mis(xm,ym,rm);
    until k=#27;
    closegraph; end.
     
  2. gpatron

    gpatron Active Member

    Регистрация:
    13 авг 2009
    Сообщения:
    26
    Симпатии:
    0
    поясните алгоритм движения мишени и прицела
     

Поделиться этой страницей