{---------- Início do programa / comentário --------------}

QUINTA PARTE

Crie 3 TSpeedButton, com as seguintes características:

Caption = Patriot
Glyph = (carregue o arquivo PAT.BMP)
Height = 16
Left = 495
Name = Patriot
Top = 175
Width = 126

Caption = Tomahawk
Glyph = (carregue o arquivo TOM.BMP)
Height = 16
Left = 495
Name = Tomahawk
Top = 190
Width = 126

Caption = Cruise
Glyph = (carregue o arquivo CRU.BMP)
Height = 16
Left = 495
Name = Cruise
Top = 205
Width = 126

Os eventos OnClick correspondentes são:

procedure TForm1.PatriotClick(Sender: TObject);
begin
   if ((ParBase[(Base-1)*2] = 0) or
      (ParBase[(Base-1)*2] = 1)) and
      (TotDin > 0) then begin
      ParBase[(Base-1)*2]:= 1;
      if ParBase[Base*2-1] < 253 then
         ParBase[Base*2-1]:= ParBase[Base*2-1]+3;
      dec(TotDin); MostraDin; AtivarBase(Base);
      end;
end;

procedure TForm1.TomahawkClick(Sender: TObject);
begin
   if ((ParBase[(Base-1)*2] = 0) or
      (ParBase[(Base-1)*2] = 3)) and
      (TotDin > 0) then begin
      ParBase[(Base-1)*2]:= 3;
      if ParBase[Base*2-1] < 254 then
         ParBase[Base*2-1]:= ParBase[Base*2-1]+2;
      dec(TotDin); MostraDin; AtivarBase(Base);
      end;
end;

procedure TForm1.CruiseClick(Sender: TObject);
begin
   if ((ParBase[(Base-1)*2] = 0) or
      (ParBase[(Base-1)*2] = 2)) and
      (TotDin > 0) then begin
      ParBase[(Base-1)*2]:= 2;
      if ParBase[Base*2-1] < 255 then
         ParBase[Base*2-1]:= ParBase[Base*2-1]+1;
      dec(TotDin); MostraDin; AtivarBase(Base);
      end;
end;

Não esqueça de colocar os eventos OnMouseDown
apontando para o evento FimMouseDown, para
produzir o "click" ao ser pressionado o botão
correspondente.

Vamos criar um registro para os Scuds. Duas variáveis
globais que serão inicializadas na ativação do FORM1:

   Lancados: integer;     {Scuds que foram lançados}
   Abatidos: integer;     {Scuds abatidos}

procedure TForm1.FormActivate(Sender: TObject);
begin
   Lancados:= 0; Abatidos:= 0;
   MostraDin;
end;

No controle de voo dos mísseis fazemos a atualização:

procedure Teleguiado;
   ...
      ...
         {Acertou.... VIVA!!!!!}
         inc(Abatidos);
         TelRad:= Form1.Radar.Canvas.Handle;
         ...

A seguir temos que definir as novas constantes: duas
matrizes: uma para as coordenadas da base inimiga e
outra de status da base, ou seja, quantos mísseis tem
e se está operante.

const
   BasInim: array[0..23] of word =
    (326,22,448,131,163,57,172,61,225,82,276,90,322,
    122,354,126,351,87,296,63,400,68,402,115);
   BasOk: array[0..11] of byte =
    (200,200,55,55,55,55,55,55,55,55,55,55);

Troque toca a procedure que controla o relógio e
consequentemente os lançamentos dos Scuds. Por
enquanto só será possível testar os patriots para
defender as bases.

{--- Controle do relógio do jogo ---}
procedure TForm1.Timer1Timer(Sender: TObject);
label
   Fim;
var
   Tmp: word;
begin
   if Base <> 0 then begin
      {Se as bases estiverem ativas...}
      inc(Minuto);
      if (Minuto = 15) or (Minuto = 45) then MaisDinheiro;
      {Libera 2 sacolas de dinheiro a cada hora do jogo}
      if Minuto = 60 then begin
         {Passou uma hora?}
         Minuto:= 0; inc(Hora); if Hora < 10 then
            Relog.Caption:= '0'+IntToStr(Hora) else
            Relog.Caption:= IntToStr(Hora);
         if Hora = 24 then begin
         {Passou um dia?}
            Hora:= 0; inc(Dia); Calend.Caption:= IntToStr(Dia);
            if ((Dia = 30) and ((Mes mod 2) = 0)) or
               ((Dia = 31) and ((Mes mod 2) = 1)) then begin
               Dia:= 1; inc(Mes); NomMes.Caption:= Meses[Mes];
               {Passou um mes?}
               end;
            end;
         end;
         {Disparo dos scuds / só depois das 9h da noite}
         if (Hora > 20) and
            ((Minuto > 20) and (Minuto < 30)) and
            (Random(10) < 2) then begin
               {Ok, lançar um scud}
               Tip[Qms,0]:= Random(4)+4; {Tipo de Scud}
               Tmp:= Random(13);         {De qual base?}
               if BasOk[Tmp] = 0 then goto Fim; {Tem míssil?}
               BasOk[Tmp]:= BasOk[Tmp] - 1;
               Tmp:= Tmp * 2;
               for Qms:= 0 to 9 do begin {Procura míssil vago}
               if Mis[Qms,0] = 0 then begin
                  Cms:= clRed;    {Cor do míssil}
                  X1:= BasInim[Tmp];
                  Y1:= BasInim[Tmp+1];
                  Tmp:= Random(5);
                  Tip[Qms,2]:= Tmp;    {Base alvo}
                  Tmp:= Tmp * 2;
                  X2:= BasCord[Tmp];
                  Y2:= BasCord[Tmp+1];
                  PreparaMissil;
                  inc(Lancados);
                  goto Fim;

                  end;
               end;
            Fim:
         end;
      end;
end;
{------------ Fim do programa / comentário ---------------}