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.
