Projeto Isis - Métodos - SetHitsandErrors

Salve galera !

Chegou a hora de começarmos a ver os métodos da engine do projeto Isis.

O primeiro método que vamos analisar é SetHitsandErrors.
Esse método é o responsável por atualizar os acertos e erros do jogador no decorrer do jogo.

Código:


procedure TIsis.SetHitsandErrors(Hit: Boolean);
begin
   if(Hit)then
      Inc(fHits)
   else
      Inc(fErrors);

   fDisplay.Caption:='Hits: '+IntToStr(fHits)+' Errors: '+IntToStr(fErrors);
   Application.ProcessMessages;
end;

O parâmetro hit diz se deve ser marcado um acerto (se verdadeiro) ou um erro (se falso). Baseado nesse parâmetro, ou o campo fHits ou fErrors é incrementado.
Após a incrementação, é exibido na label representada por fDisplay o resultado atualizado.

Seguiremos com mais métodos...

Até lá !

Projeto Isis - Início

Olá amigos do The Club e pessoal que nos acompanha no Facebook e Twitter.

Estaremos dando início a partir desse post de um pequeno jogo em Delphi.

O jogo por enquanto tem o nome de Isis e consistirá de uma label exibida intermitentemente em um Panel. O objetivo do jogador será acertar com o mouse e futuramente com um alvo a label.

A base ou engine de nosso jogo estará na unit IsisEngine. O principal componente dessa unit será a classe TIsis, que apresento abaixo:

[code]

TIsis=class

private

fHits:Integer;

fErrors:Integer;

fLevel:Integer;

fPanel:TPanel;

fDisplay:TLabel;

fTimerCreate:TTimer;

FTimerDestroy:TTimer;

procedure SetHitsandErrors(Hit:Boolean);

procedure ChangeLevel(Level:TLevel);

procedure ShowLabelOnPanel(Top,Left:Integer);

procedure RemoveLabelfromPanel;

procedure CustomOnClickLabel(Sender:TObject);

procedure CustomOnClickPanel(Sender:TObject);

procedure TimerDestroyOnTimer(Sender:TObject);

procedure TimerCreateOnTimer(Sender:TObject);

public

constructor IsisStart(Surface:TPanel;Display:TLabel);reintroduce;

procedure Start;

procedure ReStart;

procedure Stop;

end;

[/code]

Essa é classe que comandará todas as ações no jogo. Nos posts seguintes estarei explicando todos os métodos e propriedades dessa classe em detalhes.

Abraços e aguardem os próximos posts !

Antonio Spitaleri.

Opening Post

E ae pessoal!

Sou Antonio Spitaleri, consultor técnico do The Club - DataSmart e nesse espaço vamos trocar idéias sobre programação.

Aguardem...