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á !

Isis Game - Atributos da classe principal

Salve amigos !

No post anterior, coloquei o código da classe base do jogo Isis.
Nesse post estarei explicando o que são os atributos da classe, ou melhor, o que cada atributo faz ou armazena.
Segue:


fHits:Integer:
Esse atributo armazena a quantidade de acertos do jogador na sessão do jogo.

fErrors:Integer:
Esse atributo armazena a quantidade de erros do jogador na sessão do jogo.

fLevel:Integer:
Aqui fica a informação do nível do jogo. Esse valor será utilizado no cálculo do intervalo dos timers.

fPanel:TPanel:
Objeto Panel onde acontecerá o jogo, onde serão exibidos os objetos criados pelo jogo.

fDisplay:TLabel:
Label onde serão exibidas as mensagens do jogo.

fTimerCreate:TTimer:
Timer que comandará a criação do objeto label principal do jogo.

FTimerDestroy:TTimer:
Timer que comandará a destruição do objeto label criado acima.

Por enquanto é isso, no próximo post estarei mostrando em detalhes cada método da classe.

Abraços !

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...