Игра практически сделана, но не знаю как сделать чтобы в начале игры было 1000 долларов. Можно ставить любую сумму, не превышающую, той, что есть.
Вот код игры:
Цитата:
unit Unit1;
var
Form1: TForm1;
var
n: integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=0;
end;
procedure TForm1.StartClick(Sender: TObject);
begin
n:=0;
timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
randomize;
Ronaldo.Left:= Ronaldo.Left+random(10);
Ramos.Left:= Ramos.Left+random(10);
Arteta.Left:= Arteta.Left+random(10);
Bolt.Left:= Bolt.Left+random(10);
if Ronaldo.Left> 700 then
if Ronaldo.Tag=0 then
begin
n:=n+1;
Ronaldo.Tag:=n;
label1.Caption:='Ðîíàëäó-'+ Inttostr(Ronaldo.Tag)+'ìåñòî';
end;
if Ramos.Left> 700 then
if Ramos.Tag=0 then
begin
n:=n+1;
Ramos.Tag:=n;
label2.Caption:='Ðàìîñ-'+ Inttostr(Ramos.Tag)+'ìåñòî';
end;
if Arteta.Left> 700 then
if Arteta.Tag=0 then
begin
n:=n+1;
Arteta.Tag:=n;
label3.Caption:='Àðòåòà-'+ Inttostr(Arteta.Tag)+'ìåñòî';
end;
if Bolt.Left> 700 then
if Bolt.Tag=0 then
begin
n:=n+1;
Bolt.Tag:=n;
label4.Caption:='Áîëò-'+ Inttostr(Bolt.Tag)+'ìåñòî';
end;
if n>4 then
begin
timer1.Enabled:=false;
groupbox1.Visible:=true;
if (checkbox1.checked) and (Ronaldo.Tag=1) then label6.caption:='Ðîíàëäó ïîáåäèë!'
else
if (checkbox2.checked) and (Ramos.Tag=1) then label6.caption:='Ðàìîñ ïîáåäèë!'
else
if (checkbox3.checked) and (Arteta.Tag=1) then label6.caption:='Àðòåòà ïîáåäèë!'
else
if (checkbox4.checked) and (Bolt.Tag=1) then label6.caption:='Áîëò ïîáåäèë!'
else
if (checkbox5.checked) and (Naumenko.Tag=1) then label6.caption:='Íàóìåíêî ïîáåäèë!'
else
label6.Caption:='Âû ïðîèãðàëè =*((';
end;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
begin
If (sender as TCheckBox=CheckBox1) then
begin
If checkbox1.checked=false then
begin
Edit1.enabled:=false;
Edit1.Color:=clBtnFace;
Edit1.Text:='----------------';
end;
If checkbox1.checked=true then
begin
Edit1.enabled:=true; // âêëþ÷àåì Edit1.
Edit1.Color:=clWhite;
Edit1.Text:='';
end;
end;
end;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
begin
If (sender as TCheckBox=CheckBox2) then
begin
If checkbox2.checked=false then
begin
Edit2.enabled:=false; // îòêëþ÷àåì edit1
Edit2.Color:=clBtnFace;
Edit2.Text:='----------------';
end;
If checkbox2.checked=true then î
begin
Edit2.enabled:=true; // âêëþ÷àåì Edit1.
Edit2.Color:=clWhite;
Edit2.Text:='';
end;
end;
end;
end;
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
begin
If (sender as TCheckBox=CheckBox3) then
begin
If checkbox3.checked=false then
begin
Edit3.enabled:=false; // îòêëþ÷àåì edit1
Edit3.Color:=clBtnFace;
Edit3.Text:='----------------';
end;
If checkbox3.checked=true then //åñëè ôëàæîê âêëþ÷åí, òî
begin
Edit3.enabled:=true; // âêëþ÷àåì Edit1.
Edit3.Color:=clWhite;
Edit3.Text:='';
end;
end;
end;
end;
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
begin
If (sender as TCheckBox=CheckBox4) then
begin
If checkbox4.checked=false then //åñëè ôëàæîê îòêëþ÷åí, òî
begin
Edit4.enabled:=false; // îòêëþ÷àåì edit1
Edit4.Color:=clBtnFace;
Edit4.Text:='----------------';
end;
If checkbox4.checked=true then //åñëè ôëàæîê âêëþ÷åí, òî
begin
Edit4.enabled:=true; // âêëþ÷àåì Edit1.
Edit4.Color:=clWhite;
Edit4.Text:='';
end;
end;
end;
end;
procedure TForm1.CheckBox5Click(Sender: TObject);
begin
begin
If (sender as TCheckBox=CheckBox5) then
begin
If checkbox5.checked=false then //åñëè ôëàæîê îòêëþ÷åí, òî
begin
Edit5.enabled:=false; // îòêëþ÷àåì edit1
Edit5.Color:=clBtnFace;
Edit5.Text:='----------------';
end;
If checkbox5.checked=true then //åñëè ôëàæîê âêëþ÷åí, òî
begin
Edit5.enabled:=true; // âêëþ÷àåì Edit1.
Edit5.Color:=clWhite;
Edit5.Text:='';
end;
end;
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ((key>='0') and (key<='9') or (key=#8)) // âñå êíîïêè, êðîìå öèôð è Backspase èãíîðèðóþòñÿ
then key:=chr(0);
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not ((key>='0') and (key<='9') or (key=#8)) // âñå êíîïêè, êðîìå öèôð è Backspase èãíîðèðóþòñÿ
then key:=chr(0);
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not ((key>='0') and (key<='9') or (key=#8)) // âñå êíîïêè, êðîìå öèôð è Backspase èãíîðèðóþòñÿ
then key:=chr(0);
end;
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not ((key>='0') and (key<='9') or (key=#8)) // âñå êíîïêè, êðîìå öèôð è Backspase èãíîðèðóþòñÿ
then key:=chr(0);
end;
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not ((key>='0') and (key<='9') or (key=#8)) // âñå êíîïêè, êðîìå öèôð è Backspase èãíîðèðóþòñÿ
then key:=chr(0);
end;
end.
|
игра вложена