ТАНКИ, одновременное выполнение действий Опции

[blackhard]

хочу написать простую игру (дано допустим 2 танка 1 управляется пользователем а 2 компьютером ) в ходе написания возник ряд вопросов 1) как сделать чтобы одновременно выполнялось несколько действий допустим я стреляю и пока летит снаряд я хочу переместить свой танк а враг может попытаться увернутся от снаряда.на данном этапе написания когда я стреляю я не могу переместить танк пока не далетит снаряд.2)как установить границы экрана чтобы танк не заезжал за границы и вообще как разграничить экран я пробовал спомощью setviewport но чето ничего не получилось.

вот то что я уже написал набрОсал танки 1им из них можно управлять стрелками и стрелять на пробел выход на esc.танки я нарисовал линиями чтоб легче было работать с координатами

program igra;
uses graph,crt;
var
  ch:char;
 tx,ty,tx2,ty2:integer;
 d,m,i,x,y,k:integer;
procedure vistrel;
var
vx,vy,i,k:integer;
begin
vx:=tx;
vy:=ty;
for i:=1 to 640-(vx+60) do  begin
setcolor(15);
circle(vx+64+i,vy+23,3);
setcolor(0);
circle(vx+64+i-1,vy+23,3);
delay(200);
if (vy+23>=ty2) and (vy+23<=ty+48) then
circle(213,120,2);
end;
setcolor(15);
end;
begin
 d:=detect;
 initgraph(d,m,'e:\tp7.1\bgi');
 tx:=1;
 ty:=120;
 tx2:=610;
 ty2:=120;
 {kab}
 repeat
 {\\\\\\\\\\\\\\\\\tank22\\\\\\\\\\\\\\\\\\\\\ }
 {kab}
 line(tx2,ty2,tx2+23,ty2);
 line(tx2+23,ty2,tx2+23,ty2+48);
 line(tx2,ty2+48,tx2+23,ty2+48);
 line(tx2,ty2,tx2,ty2+48);
 arc(tx2+11,ty2+6,23,154,13);
 arc(tx2+11,ty2+42,206,337,13);
 {pil}
 line(tx2+10,ty2+9,tx2+10,ty2+39);
 line(tx2+17,ty2+9,tx2+10,ty2+9);
 line(tx2+10,ty2+39,tx2+17,ty2+39);
 {puh}
 line(tx2,ty2+12,tx2-12,ty2+12);
 line(tx2,ty2+36,tx2-12,ty2+36);
 line(tx2-12,ty2+12,tx2-12,ty2+36);
 {dulo}
 line(tx2-12,ty2+26,tx2-29,ty2+26);
 line(tx2-29,ty2+20,tx2-29,ty2+28);
 line(tx2-12,ty2+22,tx2-29,ty2+22);
 {gluh}
 line(tx2-29,ty2+20,tx2-36,ty2+20);
 line(tx2-29,ty2+28,tx2-36,ty2+28);
 line(tx2-36,ty2+20,tx2-36,ty2+28);
 {\\\\\\\\\\\=tank\\\\\\\\\\\\\\\\}
 line(tx,ty,tx+23,ty);
 line(tx+23,ty,tx+23,ty+48);
 line(tx,ty+48,tx+23,ty+48);
 line(tx,ty,tx,ty+48);
 arc(tx+11,ty+6,23,154,13);
 arc(tx+11,ty+42,206,337,13);
 {pil}
 line(tx+17,ty+9,tx+17,ty+39);
 line(tx+10,ty+9,tx+17,ty+9);
 line(tx+10,ty+39,tx+17,ty+39);
 {puh}
 line(tx+23,ty+12,tx+35,ty+12);
 line(tx+23,ty+36,tx+35,ty+36);
 line(tx+35,ty+12,tx+35,ty+36);
 line(tx+35,ty+22,tx+53,ty+22);
 {dulo}
 line(tx+35,ty+26,tx+53,ty+26);
 line(tx+53,ty+20,tx+53,ty+28);
 {gluh}
 line(tx+53,ty+20,tx+60,ty+20);
 line(tx+53,ty+28,tx+60,ty+28);
 line(tx+60,ty+20,tx+60,ty+28);
 ch:=readkey;
 case ch of
      #72:ty:=ty-5;
      #75:tx:=tx-5;
      #77:tx:=tx+5;
      #80:ty:=ty+5;
      #32:vistrel;
      #27:halt;
     end;{case}
     cleardevice;  
 until ch=#27;
 readln;
closegraph;
 end.

объяснити хоть на словах как сделать то о чем я написал.спасибо!

[blackhard]

Я решил переделать игру.Теперь обьекты у меня это отдельные изображения которые сохраняются в памяти.И возник вопрос как при таком методе сделать анимацию?Я вот написал небольшую програмку где анимация делается так как в предыдущем варианте игры.Т.Е вначале перещитываются координаты потом рисуется изображение программа ждет и стирает это изображение.вот только тут изображение упорно не хочит стераться

 program igra;
uses graph,crt;
var
  ch:char;
 b,tx2,ty2:integer;
 blank:pointer;
 size:word;
 d,m,t,x,y,k,q,v,vx,vy,av,i,i1,i2:integer;
{shute sistem from tank}
procedure pereshet1;
  begin
      if q=1 then
      begin
          y:=y-{5}8;
          if (y=70) or (y<70) then y:=75;
          q:=0;
     end;
     if q=2 then
     begin
         x:=x-{5}8;
         if (x=9) or (x<9) then x:=12;
         q:=0;
     end;
     if q=3 then
     begin
         x:=x+{5}8;
         if (x=625-60) or (x>625-60) then x:=625-60;
         q:=0;
    end;
    if q=4 then
    begin
        y:=y+{5}8;
        if (y=460-46) or (y>460-46) then y:=460-46;
        q:=0;
    end;
  end;
  procedure move1(x,y,i:integer);
  begin
  putimage(x,y,blank^,0);
  end;
  procedure clr1(x,y:integer);
  begin
      if (q<>0) and (q<>5) then
      begin
      putimage(x,y,blank^,3);
      end;
     end;
 begin
 d:=detect;
 initgraph(d,m,'e:\tp7.1\bgi');
 x:=12;
 y:=230;
 tx2:=625;
 ty2:=320;
 vx:=x;
 vy:=y;
 {kab}
 t:=0;
 i:=0;
 i1:=0;
 i2:=0;
  rectangle(12,230,12+23,230+48);
  arc(12+11,230+6,23,154,13);
  arc(12+11,230+42,206,337,13);
  line(12+17,230+9,12+17,y+39);
  line(12+10,230+9,12+17,230+9);
  line(12+10,230+39,12+17,230+39);
  rectangle(12+23,230+12,12+35,230+36);
  rectangle(12+35,230+22,12+53,230+26);
  rectangle(12+53,230+20,12+60,230+28);
 setfillstyle(9,2);
 floodfill(13,232,15);
 size:=imagesize(11,230-8,73,278+8);
    new(blank);
    getmem(blank,size);
    getimage(11,230-8,73,278+8,blank^);
    cleardevice;
 repeat
 randomize;
 pereshet1;
 if keypressed then
     begin
      ch:=readkey;
    case ch of
      #72:q:=1;
      #75:q:=2;
      #77:q:=3;
      #80:q:=4;
      #27:halt;
     end;
     end;
     move1(x,y,i);
     delay(80);
     clr1(x,y);
     until ch=#27;
 readln;
closegraph;
dispose(blank);
 end.

единственный способ которым у меня получилось сделать анимацию это использовать cleardevice; но это выглядит жутко не красиво.помогите правильно сделать анимацию!

Сообщение отредактировано: blackhard - 23.03.2008 13:59