Курсовая работа: Игра "Vertolet"

q,e,r,a,d,w,n,k,kk,l,ll,verx,niz,ste,z,zz,v,vv,p,pp,schet,yr,fon,plus,pl:integer;

aw,bonn,xxx,xx,sss,ss,aa,zs,vs,ff,gg,fff,ggg,i,ii,level:integer;

t:char; text,text1,cod,cod1:string[15]; nik,och,och1:string[7];

astn1:mass;

b:boolean;

ver,barer,barer1,barer2,barer3:pointer;

procedure ogon(a,d:integer; s:byte);

var

k:array[1..200] of word;

n,i:integer;

begin

for i:=1 to 5 do begin

k[1]:=a;k[2]:=d; k[3]:=a+8;k[4]:=d-15;k[5]:=a+14;k[6]:=d-12;

k[7]:=a+18;k[8]:=d-18;k[9]:=a+20;k[10]:=d-13;k[11]:=a+25;k[12]:=d-25;

k[13]:=a+27;k[14]:=d-19;k[15]:=a+30; k[16]:=d-21;k[17]:=a+34;k[18]:=d-17;

k[19]:=a+36;k[20]:=d-19;k[21]:=a+37;k[22]:=d-5;k[23]:=a+40;k[24]:=d-10;

k[25]:=a+38;k[26]:=d+3;k[27]:=a+33;k[28]:=d+10;k[29]:=a+27;k[30]:=d+4;

k[31]:=a+25;k[32]:=d+11;k[33]:=a+19;k[34]:=d+6;k[35]:=a+9;k[36]:=d+13;

k[37]:=a;k[38]:=d;

n:=19;

setfillstyle(1,s);

setcolor(s);

fillpoly(n,k);

delay(1500);

setfillstyle(1,s+3);

setcolor(s+3);

fillpoly(n,k);

delay(3000);

setfillstyle(1,s+4);