Hjælp til spil :)

Hvis noget koster 99.

if StrToInt(Label1.Caption) > 99 then
ShowMessage('Du har ikke nok træ!');
else
begin
//Køb
Label1.Caption := VarToStr(StrToInt(Label1.Caption) - 99);
end;

hvis du ved hvor meget træ en ting koster og hvor meget træ du har og hvor mange af tingen du vil have.

Så kan du bare implementere følgende pseudo tekst:

hvis tilgængllig træ er mindre end antal ting ganget med tings pris i træ så skriv advarsel ellers byg antal ting og træk antal ting ganget med tings pris i træ fra tilgængelig træ.

hvis du ikke forstår den indenholder den 3 variabler og en if else.

Hej Dennis,

Jeg tror at du skal starte med at læse en bog om grundlæggende programmering...

I variablen MyTree lægger du antallet af nuværende træ.
I variablen ItemCost lægger du prisen på genstanden der skal købes.

if MyTree - ItemCost < 0 then
  ShowMessage('Du har ikke nok træ!');
else
begin
  MyTree = MyTree - ItemCost;
end;

Med venlig hilsen
Ieet

Noget i retning af

if MyTree > ItemToBuyForTree then
ShowMessage('Du har ikke nok træ!');
else
begin
//Køb
MyTree := MyTree - ItemToBuyForTree;
end;

Kan du ik en lettere kode, forstår den ik helt

vis jeg fx. i label1 står 50, og den må ik komme under 0 i label1 så skal der komme en besked frem

Jaa vi der hen af

Har denne kode men den viser fejl ved "Else"

procedure TForm1.Button1Click(Sender: TObject);
begin
if StrToInt(Label1.Caption) > 99 then
ShowMessage('Du har ikke nok træ!');
else
begin
//Køb
Label1.Caption := VarToStr(StrToInt(Label1.Caption) - 99);
end;
end;

Okay har fundet ud af den Men vis den kommer under 0 skulle der gerne komme en besked frem hvor der står jeg ik har træ nok

Har denne kode men der fortsætter under 0 og det må den ik, vis det bliver under 0 skal der jo komme en besked frem.

Her er koden

procedure TForm1.Button1Click(Sender: TObject);
begin
if StrToInt(Label1.Caption) > 100 then
ShowMessage('Du har ikke nok træ!')
else
begin
//Køb
Label1.Caption := VarToStr(StrToInt(Label1.Caption) - 50);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption := '23';
end;

Koden:

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption := '23';
end;

Skulle ik havde været med.

Alså:

Vil have en kode der gør at vis et tal under 0 i en label1, så skal der komme en besked hvor der stå "Ik nok træ"

Den kode jeg har nu er :

begin
if StrToInt(Label1.Caption) > 9 then
ShowMessage('Du kan ikke kommer over 10')
else
begin
//Køb
Label1.Caption := VarToStr(StrToInt(Label1.Caption) + 1);
end;
end;

Men den tæller ik med, men op, den skal tælle ned og den må ik komme under 0