unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, RTTIGrids, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    CheckBox1: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox22: TCheckBox;
    CheckBox23: TCheckBox;
    CheckBox24: TCheckBox;
    CheckBox25: TCheckBox;
    CheckBox26: TCheckBox;
    CheckBox27: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lFuncionariosClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure AtualizaTodos(Sender: TObject);
     procedure BotaoEsquerda(Sender: TObject);
     procedure BotaoDireita(Sender: TObject);
  private
    { private declarations }

  public
    { public declarations }
    //Dinheiro
    capital:Double;
    custoFuncionario:double;
    custoProduto:double;
    preco:array[0..14] of double;       //Preço 100%  do produto a venda
    Ratual:double;
    //Operarios
    QuantosF:longint; //Quantos funcionarios
    FuncionarioF:longint; //Funcionario feliz,30% chance de produzir 10% a mais
    FuncionarioN:longint; //Funcionario normal
    FuncionarioT:longint; //Funcionario triste, 10% de chance de sair da empresa
    FuncionarioC:longint; //Funcionario cansado, 30% de chance de produzir 10% a menos
    //Ambiente fabrica
    Cafe:double; //Multiplicador de café
    Ambiente:double; //Multiplicador de ambiente
    treinados:boolean;
    //Produtos
    QuantosP:longint; //Quantos funcionarios
    qProdutos:array[0..14] of longint; //Quantidade produzida humanos
    pMaquinas:array[0..14] of longint; //Quantas maquinas em cada produto
    mProdutos:array[0..14] of longint; //Quantidade produzida maquinas
    eProdutos:array[0..14] of longint; //Quantidade em estoque
    MesZero:   array[0..14] of boolean;
    PrimeiroMes: array[0..14] of boolean;
    //Aceitacao
    Publico:array[0..2] of longint;  //Quantas pessoas em cada classe
    aAProdutos:array[0..14] of longint;   //Porcentagem de aceitacao do produto pela classe alta
    aMProdutos:array[0..14] of longint;   //Porcentagem de aceitacao do produto pela classe media
    aBProdutos:array[0..14] of longint;   //Porcentagem de aceitacao do produto pela classe baixa
    //Vendas em loja
    VendasExportacao:double;  //Valor ganho na exportacao
    VendasRevenda:double;     //Valor ganho na revenda
    VendasQueimaDeEstoque:double; //Valor ganho na queima de estoque
    QuantidadeVendida:array[0..6] of longint;     //Vendas normais por loja
    QuantasLojas:longint;          //E repassa o custo
    vTreinados:array[0..6] of longint; //Lojas treinadas
    //Vendas para revendedores
    QuantiaComprada:longint;
    QuantiaPaga:double;

    //Gestao
    novaFerramenta:double; //Multiplicador de quantas ferramentas já foram usadas
    novoProcessos:double;  //Multiplicador de processos
    CapitalAReceber:double;
    PesquisaProd:boolean;
    //Cortes e Limites
    cRH:boolean;
    cProd:boolean;
    cMark:boolean;
    cVendas:boolean;
    limiteRenda:double; //Limite de gastos por setor
    noMarket:boolean;
    noTrain:boolean;
    noProd:boolean;
    flag:longint;
    atual:longint;

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  i,k:integer;
begin
    if(flag=0)then
    begin
    Ratual:=limiteRenda;
           //RH
          if(checkbox1.Checked=true)then
          begin
             cafe:=cafe+0.1;
             custoFuncionario:=custoFuncionario+20;
             for i:=0 to FuncionarioC do
               begin
                   k:=Random(100);
                   if(k<21) then
                   begin
                   FuncionarioC:=FuncionarioC-1;
                   FuncionarioF:=FuncionarioF+1;
                   end;
               end;
              for i:=0 to FuncionarioN do
              begin
                   k:=Random(100);
                   if(k<41) then
                    begin
                    FuncionarioN:=FuncionarioN-1;
                    FuncionarioF:=FuncionarioF+1;
                    end;

          end;
           if(checkbox2.Checked=true)then
          begin
              if(Ratual>5000) then
              begin
                   capital:=capital-5000;
                     for i:=0 to FuncionarioC do
               begin
                   k:=Random(100);
                   if(k<31) then
                   begin
                   FuncionarioC:=FuncionarioC-1;
                   FuncionarioF:=FuncionarioF+1;
                   end;
               end;
              for i:=0 to FuncionarioN do
              begin
                   k:=Random(100);
                   if(k<31) then
                    begin
                    FuncionarioN:=FuncionarioN-1;
                    FuncionarioF:=FuncionarioF+1;
                    end;

               end;
              end;

          end;
           if(checkbox3.Checked=true)then
          begin
           for i:=0 to QuantosF do
             begin
                   k:=Random(100);
                   if(k<25) then
                    FuncionarioF:=FuncionarioF+1
                    else if(k<50) then
                    FuncionarioN:=FuncionarioN+1
                    else if(k<75) then
                   FuncionarioT:=FuncionarioT+1
                   else
                       FuncionarioC:=FuncionarioC+1;

             end;
               QuantosF:=QuantosF*2;
          end;
           if(checkbox4.Checked=true)then
          begin
           k:=Random(100);
                   if(k<25) then
                    FuncionarioF:=FuncionarioF+1
                    else if(k<50) then
                    FuncionarioN:=FuncionarioN+1
                    else if(k<75) then
                   FuncionarioT:=FuncionarioT+1
                   else
                   FuncionarioC:=FuncionarioC+1;

                    QuantosF:=QuantosF+1;
          end;
           if(checkbox5.Checked=true)then
          begin
           k:=(300*QuantosF)+35000;
              if((treinados=false)and (Ratual<k)) then
              begin
               capital:=capital-35000;
               custoFuncionario:=custoFuncionario+300;
                 for i:=0 to 14 do
               begin
                  qProdutos[i]:=Trunc(qProdutos[i]*1.4);
                  end;
               end;
              treinados:=true;
              end;
          end;
           if(checkbox6.Checked=true)then
          begin
              for i:=0 to (trunc(QuantosF/2)) do
             begin
                   k:=Random(100);
                   if(k<25) then
                    FuncionarioF:=FuncionarioF-1
                    else if(k<50) then
                    FuncionarioN:=FuncionarioN-1
                    else if(k<75) then
                   FuncionarioT:=FuncionarioT-1
                   else
                       FuncionarioC:=FuncionarioC-1;

             end;
               QuantosF:=trunc(QuantosF/2);
          end;
           if(checkbox7.Checked=true)then
          begin
                   k:=Random(100);
                   if(k<25) then
                    FuncionarioF:=FuncionarioF-1
                    else if(k<50) then
                    FuncionarioN:=FuncionarioN-1
                    else if(k<75) then
                   FuncionarioT:=FuncionarioT-1
                   else
                       FuncionarioC:=FuncionarioC-1;
               QuantosF:=QuantosF-1;
          end;
           if(checkbox8.Checked=true)then
          begin
              if(cafe>1) then
              begin
              custoFuncionario:=custoFuncionario-20;
                      cafe:=cafe-0.1;
          for i:=0 to FuncionarioF do
               begin
                   k:=Random(100);
                   if(k<20) then
                   begin
                   FuncionarioF:=FuncionarioF-1;
                   FuncionarioN:=FuncionarioN+1;
                   end;
               end;
              for i:=0 to FuncionarioN do
              begin
                   k:=Random(100);
                   if(k<10) then
                    begin
                    FuncionarioN:=FuncionarioN-1;
                    FuncionarioT:=FuncionarioT+1;
                    end;
              end;
              end;
           end;

            if(checkbox9.Checked=true)then
          begin
          capital:=capital+5000;
                     for i:=0 to FuncionarioF do
               begin
                   k:=Random(100);
                   if(k<21) then
                   begin
                   FuncionarioF:=FuncionarioF-1;
                   FuncionarioN:=FuncionarioN+1;
                   end;
               end;

          end;

          atual:=4;
          button1.Enabled:=false;
          button2.Enabled:=true;
    end;
    if(flag=1)then
    begin
       //Vendas
              if(checkbox1.Checked=true)then
          begin

          end;
           if(checkbox2.Checked=true)then
          begin

          end;
           if(checkbox3.Checked=true)then
          begin

          end;
           if(checkbox4.Checked=true)then
          begin

          end;
           if(checkbox5.Checked=true)then
          begin

          end;
           if(checkbox6.Checked=true)then
          begin

          end;
           if(checkbox7.Checked=true)then
          begin

          end;
           if(checkbox8.Checked=true)then
          begin

          end;
            if(checkbox9.Checked=true)then
          begin

          end;
         atual:=1;
          button1.Enabled:=false;
          button2.Enabled:=true;
          AtualizaTodos(Sender);

    end;


end;

procedure TForm1.Button2Click(Sender: TObject);
var
  k,i:Integer;
begin
     if(flag=0)then
    begin
          //Producao
            if(checkbox10.Checked=true)then
                    begin
                     custoProduto:=custoProduto+2;
                       for i:=0 to 14 do
                       begin
                           aAProdutos[i]:=trunc(aAprodutos[i]*1.15);
                           preco[i]:=preco[i]+10;
                       end;
                    end;
                     if(checkbox11.Checked=true)then
                    begin
                      for i:=0 to 14 do
                       begin
                           preco[i]:=preco[i]-2;
                            mProdutos[i]:=trunc(mProdutos[i]*1.2);
                       end;

                    end;
                     if(checkbox12.Checked=true)then
                    begin
                         if(noProd=false) then
                         begin
                             if(pMaquinas[0]>4) then
                             begin
                            QuantosP:=QuantosP+1;
                            mProdutos[QuantosP-1]:=trunc(mProdutos[0]/10);
                            aAProdutos[QuantosP-1]:=0;
                            aMProdutos[QuantosP-1]:=0;
                            aBProdutos[QuantosP-1]:=0;
                            pMaquinas[QuantosP-1]:=3;
                            pMaquinas[0]:=pMaquinas[0]-3;
                            MesZero[QuantosP-1]:=true;
                            mProdutos[0]:=mprodutos[0]-9000;
                            end;
                        end;

                     end;
                     if(checkbox13.Checked=true)then
                    begin
                     if(Capital>4000) then
                     begin
                      Capital:=Capital-4000;
                      pMaquinas[0]:=pMaquinas[0]+2;
                       mProdutos[0]:=mProdutos[0]+6000;
                      end;

                     end;
                     if(checkbox14.Checked=true)then
                    begin
                      if(Capital>25000) then
                      begin
                        capital:=capital-25000;
                       for i:=0 to 14 do
               begin
                  if(PrimeiroMes[i]=true) then
                  begin
                  qProdutos[i]:=qProdutos[0];
                  mProdutos[i]:=mProdutos[0];
                  PrimeiroMes[i]:=false;
                  end;
               end;
                    end;
                    end;
                     if(checkbox15.Checked=true)then
                    begin
                      Capital:=Capital+4000;
                      pMaquinas[0]:=pMaquinas[0]-1;
                       mProdutos[0]:=mProdutos[0]-3000;

                    end;
                     if(checkbox16.Checked=true)then
                     begin
                       for i:=0 to 14 do
               begin
                  if(PrimeiroMes[i]=true) then
                  begin
                  qProdutos[i]:=0;
                  mProdutos[i]:=0;
                  pMaquinas[0]:=pMaquinas[0]+3;
                  pMaquinas[i]:=0;
                  mProdutos[0]:=mProdutos[0]+9000;
                  end;
               end;
                    end;
                     if(checkbox17.Checked=true)then
                    begin
                       begin
                     custoProduto:=custoProduto-1;
                       for i:=0 to 14 do
                       begin
                           aBProdutos[0]:=trunc(aBProdutos[0]*1.1);
                           preco[i]:=preco[i]-3;
                       end;
                    end;
                    end;
                      if(checkbox18.Checked=true)then
                    begin
                        if(LimiteRenda>5000) then
                        begin
                             PesquisaProd:=true;
                             capital:=capital-5000;
                        end;
                    end;
    atual:=5;
          button2.Enabled:=false;
          button3.Enabled:=true;
          noProd:=false;
    end;
      if(flag=1)then
    begin
            //Gestao
          if(checkbox10.Checked=true)then
          begin
               for i:=0 to 14 do
               begin
                  if((MesZero[i]=false) and (PrimeiroMes[i]=false)) then
                  begin
                  qProdutos[i]:=Trunc(qProdutos[i]-(qProdutos[i]*0.2));
                  mProdutos[i]:=trunc(mProdutos[i]-(mProdutos[i]*0.2));
                  end;
               end;
                novoProcessos:= novoProcessos+0.1;
          end;
           if(checkbox11.Checked=true)then
          begin
            treinados:=false;
            novaFerramenta:=novaFerramenta+0.3;
            capital:=capital-1000;
          end;
           if(checkbox12.Checked=true)then
          begin
//Aumenta produção em 15%, funcionarios tem 25% de chance de ficarem tristes.
               for i:=0 to 14 do
               begin
                  if((MesZero[i]=false) and (PrimeiroMes[i]=false)) then
                  begin
                  qProdutos[i]:=Trunc(qProdutos[i]*1.15);
                  mProdutos[i]:=trunc(mProdutos[i]*1.15);
                  end;
               end;
               for i:=0 to FuncionarioF do
               begin
                   k:=Random(100);
                   if(k<26) then
                   begin
                   FuncionarioF:=FuncionarioF-1;
                   FuncionarioT:=FuncionarioT+1;
                   end;
               end;
              for i:=0 to FuncionarioN do
              begin
                   k:=Random(100);
                   if(k<26) then
                    begin
                    FuncionarioN:=FuncionarioN-1;
                    FuncionarioT:=FuncionarioT+1;
                    end;

              end;
          end;
           if(checkbox13.Checked=true)then
          begin
                cRH:=true;
          end;
           if(checkbox14.Checked=true)then
          begin
               cProd:=true;
          end;
           if(checkbox15.Checked=true)then
          begin
               cMark:=true;
          end;
           if(checkbox16.Checked=true)then
          begin
             cVendas:=true;
          end;
           if(checkbox17.Checked=true)then
          begin
             if(capital>0) then
              begin
             k:=Random(100);
             if(k<50) then
             CapitalAReceber:=capital/4
             else
             CapitalAReceber:=capital*3;
             capital:=capital/2;
             end;
          end;
            if(checkbox18.Checked=true)then
          begin
          if(capital>25000) then
            begin
            capital:=capital-25000;
    QuantosP:=QuantosP+1;
    qProdutos[QuantosP-1]:=qProdutos[0];
    aAProdutos[QuantosP-1]:=40;
    aMProdutos[QuantosP-1]:=40;
    aBProdutos[QuantosP-1]:=40;
            end;

          end;
    atual:=2;
          button2.Enabled:=false;
          button3.Enabled:=true;
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  k,i:Integer;
begin
    if(flag=0)then
    begin
    //Marketing
    RAtual:=LimiteRenda;
    if(noMarket=false) then
    begin
            if(checkbox19.Checked=true)then
                    begin
                      if(RAtual>2000) then
                      begin
                           for i:=0 to 14 do
                           begin
                              aAProdutos[i]:= trunc(aAProdutos[i]*1.3);
                              aMProdutos[i]:=trunc(aMProdutos[i]*1.3);
                              aBProdutos[i]:=trunc(aBProdutos[i]*1.3);
                           end;
                           capital:=capital-2000;
                      end;

                    end;
                     if(checkbox20.Checked=true)then
                    begin
                        if(RAtual>25000) then
                      begin
                           for i:=0 to 14 do
                           begin
                           aAProdutos[i]:= trunc(aAProdutos[i]*5);
                           end;
                         capital:=capital-25000;
                      end;
                    end;
                     if(checkbox21.Checked=true)then
                    begin
                        if(RAtual>10000) then
                      begin
                           for i:=0 to 14 do
                           begin
                              aAProdutos[i]:= trunc(aAProdutos[i]*1.7);
                              aMProdutos[i]:=trunc(aMProdutos[i]*1.7);
                              aBProdutos[i]:=trunc(aBProdutos[i]*1.7);
                           end;
                         capital:=capital-10000;
                      end;
                    end;
                     if(checkbox22.Checked=true)then
                    begin

                    end;
                     if(checkbox23.Checked=true)then
                    begin

                    end;
                     if(checkbox24.Checked=true)then
                    begin

                    end;
                     if(checkbox25.Checked=true)then
                     begin
                        if(RAtual>1000) then
                      begin
                           for i:=0 to 14 do
                           begin
                           aAProdutos[i]:= trunc(aAProdutos[i]*5);
                           end;
                         capital:=capital-25000;
                      end;
                    end;
                     if(checkbox26.Checked=true)then
                    begin

                    end;
                      if(checkbox27.Checked=true)then
                    begin

                    end;
            end;
    noMarket:=false;
    atual:=6;
          button3.Enabled:=false;
    end;
      if(flag=1)then
    begin
        //Finanças
             if(checkbox19.Checked=true)then
                    begin
                      limiteRenda:=(capital/100)*25;
                    end;
                     if(checkbox20.Checked=true)then
                    begin
                       limiteRenda:=(capital/100)*10;
                    end;
                     if(checkbox21.Checked=true)then
                    begin
                       if(QuantasLojas>0) then
                       begin
                          QuantasLojas:=QuantasLojas-1;
                          capital:=capital+35000;
                       end;

                    end;
                     if(checkbox22.Checked=true)then
                    begin
                       for i:=0 to 14 do
               begin
                  if((MesZero[i]=true) or (PrimeiroMes[i]=true)) then
                  begin
                  qProdutos[i]:=0;
                  mProdutos[i]:=0;
                  pMaquinas[0]:=pMaquinas[0]+3;
                  pMaquinas[i]:=0;
                   mProdutos[0]:=mProdutos[0]+9000;
                  end;
                  noProd:=true;
               end;
                    end;
                     if(checkbox23.Checked=true)then
                   begin
                   if(pMaquinas[0]>0)then
                   begin
                   pMaquinas[0]:=pMaquinas[0]-1;
                   mProdutos[0]:=mProdutos[0]-3000;
                   end;

               end;
                     if(checkbox24.Checked=true)then
                    begin
                       NoMarket:=true;
                    end;
                     if(checkbox25.Checked=true)then
                    begin
                        for i:=0 to 14 do
               begin
                  pMaquinas[i]:=trunc(pMaquinas[i]*0.9);
                    custoProduto:=custoProduto-1;
                    end;
                        end;
                     if(checkbox26.Checked=true)then
                    begin
                       noTrain:=true;
                    end;
                      if(checkbox27.Checked=true)then
                    begin
                    while(cafe<>1) do
                      begin
                      custoFuncionario:=custoFuncionario-20;
                      cafe:=cafe-0.1;
                       for i:=0 to FuncionarioF do
               begin
                   k:=Random(100);
                   if(k<70) then
                   begin
                   FuncionarioF:=FuncionarioF-1;
                   FuncionarioN:=FuncionarioN+1;
                   end;
               end;
              for i:=0 to FuncionarioN do
              begin
                   k:=Random(100);
                   if(k<20) then
                    begin
                    FuncionarioN:=FuncionarioN-1;
                    FuncionarioT:=FuncionarioT+1;
                    end;

                      end;

end;
                    end;
    atual:=3;
              button3.Enabled:=false;
    end;
end;

procedure TForm1.AtualizaTodos(Sender: TObject);
var a:longint;
begin

end;

procedure TForm1.BotaoEsquerda(Sender: TObject);
begin
  //Grupo 1
    GroupBox1.Caption:='RH';
    checkbox1.caption:='Mais café';
    checkbox2.caption:='Melhorar ambiente';
    checkbox3.caption:='Contratar Dobro';
    checkbox4.caption:='Contratar Um';
    checkbox5.caption:='Treinar todos';
    checkbox6.caption:='Demitir Metade';
    checkbox7.caption:='Demitir Um';
    checkbox8.caption:='Menos café';
    checkbox9.caption:='Vender ambiente';
//Grupo 2
GroupBox2.Caption:='Produçao';
checkbox10.caption:='Aumentar qualidade';
checkbox11.caption:='Aumentar quantidade';
checkbox12.caption:='Criar produto';
checkbox13.caption:='Comprar duas maquinas';
checkbox14.caption:='Alterar processo';
checkbox15.caption:='Vender maquina';
checkbox16.caption:='Desistir produto';
checkbox17.caption:='Diminuir custo';
checkbox18.caption:='Pesquisar melhoria';
//Grupo 3
GroupBox3.Caption:='Marketing';
checkbox19.caption:='Melhorar propaganda';
checkbox20.caption:='Propaganda cinema';
checkbox21.caption:='Propaganda TV';
checkbox22.caption:='Melhorar embalagem';
checkbox23.caption:='Diminuir embalagem';
checkbox24.caption:='Viral na internet';
checkbox25.caption:='Panfletos na rua';
checkbox26.caption:='Buscar parceria';
checkbox27.caption:='Buscar nicho';
end;

procedure TForm1.BotaoDireita(Sender: TObject);
begin
          //Grupo 4
    GroupBox1.Caption:='Vendas';
    checkbox1.caption:='Criar nova loja';
    checkbox2.caption:='Queima de estoque';
    checkbox3.caption:='Exportar';
    checkbox4.caption:='Fechar loja';
    checkbox5.caption:='Demitir vendedores';
    checkbox6.caption:='Converter para operario';
    checkbox7.caption:='Treinar vendedores';
    checkbox8.caption:='Loja virtual';
    checkbox9.caption:='Revender produtos';
//Grupo 5
GroupBox2.Caption:='Gestão estrategica';
checkbox10.caption:='Mudar processo';
checkbox11.caption:='Nova ferramenta';
checkbox12.caption:='Mudar politica';
checkbox13.caption:='-gastos RH';
checkbox14.caption:='-gastos Prod';
checkbox15.caption:='-gastos marketing';
checkbox16.caption:='-gastos vendas';
checkbox17.caption:='Arriscar dinheiro';
checkbox18.caption:='Forçar novo produto';
//Grupo 6
GroupBox3.Caption:='Finanças';
checkbox19.caption:='Aumentar gastos';
checkbox20.caption:='Diminuir gastos';
checkbox21.caption:='Fechar loja';
checkbox22.caption:='Desistir produto';
checkbox23.caption:='Vender maquina';
checkbox24.caption:='Sem propaganda';
checkbox25.caption:='Troca forncedor';
checkbox26.caption:='Sem treinamento';
checkbox27.caption:='Sem café';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    novoProcessos:=1;
    flag:=0;
    atual:=1;
     //Dinheiro
    capital:=400000;
    custoFuncionario:=400;
    custoProduto:=10;
    //Operarios
    QuantosF:=5; //Quantos funcionarios
    FuncionarioF:=5; //Funcionario feliz,30% chance de produzir 10% a mais
    FuncionarioN:=0; //Funcionario normal
    FuncionarioT:=0; //Funcionario triste, 10% de chance de sair da empresa
    FuncionarioC:=0; //Funcionario cansado, 30% de chance de produzir 10% a menos
    //Ambiente fabrica
    Cafe:=1; //Multiplicador de café
    Ambiente:=1; //Multiplicador de ambiente
    treinados:=false;
    //Produtos
    QuantosP:=1; //Quantos produtos
    //Aceitacao
    Publico[0]:=600;
    Publico[1]:=1000;
    Publico[2]:=25000;

    aAProdutos[0]:=50;
    aMProdutos[0]:=30;
    aBProdutos[0]:=10;
    preco[0]:=20;
    //Vendas em loja
    VendasExportacao:=0;
    VendasRevenda:=0;     //Valor ganho na revenda
    VendasQueimaDeEstoque:=0; //Valor ganho na queima de estoque
    QuantasLojas:=0;
    //Vendas para revendedores
    QuantiaComprada:=0;
    QuantiaPaga:=0;

    //Gestao
    novaFerramenta:=1;
    novoProcessos:=1;
    CapitalAReceber:=0;
    PesquisaProd:=false;
    //Cortes e Limites
    cRH:=false;
    cProd:=false;
    cMark:=false;
    cVendas:=false;
    limiteRenda:=(capital/100)*15;
    noMarket:=false;
    noTrain:=false;
    noProd:=false;

    AtualizaTodos(Sender);
    BotaoEsquerda(Sender);
end;

procedure TForm1.lFuncionariosClick(Sender: TObject);
begin

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
button1.Enabled:=false;
button2.Enabled:=false;
button3.Enabled:=false;
    checkbox1.checked:=false;
    checkbox2.checked:=false;
    checkbox3.checked:=false;
    checkbox4.checked:=false;
    checkbox5.checked:=false;
    checkbox6.checked:=false;
    checkbox7.checked:=false;
    checkbox8.checked:=false;
    checkbox9.checked:=false;
    checkbox10.checked:=false;
    checkbox11.checked:=false;
    checkbox12.checked:=false;
    checkbox13.checked:=false;
    checkbox14.checked:=false;
    checkbox15.checked:=false;
    checkbox16.checked:=false;
    checkbox17.checked:=false;
    checkbox18.checked:=false;
    checkbox19.checked:=false;
    checkbox20.checked:=false;
    checkbox21.checked:=false;
    checkbox22.checked:=false;
    checkbox23.checked:=false;
    checkbox24.checked:=false;
    checkbox25.checked:=false;
    checkbox26.checked:=false;
    checkbox27.checked:=false;
if(flag=0)then
begin
botaoDireita(sender);
flag:=1;
        if(atual=1) then
        begin
        button2.Enabled:=true;
        end;
        if(atual=2) then
        begin
        button3.Enabled:=true;
        end;
        if(atual=6) then
        begin
        button1.Enabled:=true;
        end;
end
else if(flag=1)then
begin
botaoEsquerda(sender);
flag:=0;
               if(atual=3) then
               begin
               button1.Enabled:=true;
               end;
               if(atual=4) then
               begin
               button2.Enabled:=true;
               end;
               if(atual=5) then
               begin
               button3.Enabled:=true;
               end;
end;

end;



end.