Mostrando postagens com marcador Isis. Mostrar todas as postagens
Mostrando postagens com marcador Isis. Mostrar todas as postagens

segunda-feira, 3 de outubro de 2011

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

quarta-feira, 31 de agosto de 2011

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.