Hjælp til spil :D (Jonas)

Hej Dennis,

Helt ærligt, så er det fordi at du er en spade.

Du skal bare copy/paste.

 Score := StrToInt(memo1.Lines[18]);
  if xPrisT > Score then
    Begin
      ShowMessage('Du har ikke nok træ!');
      Exit;
    end;
  else
    Begin
      Score := Score - xPrisT;
      memo1.Lines[18] := IntToStr(Score);
    end;

NEDENUNDER kan du så lave det samme for alle andre.
Din navngiving er i øvrigt stadig langt ude. Lig på nedenstående:

// handle opurchase tree cost
 nrOfTree := StrToInt(memo1.Lines[18]); // fetch from form
  if costInTree > nrOfTree then
    Begin  // No Purchase
      ShowMessage('Du har ikke nok træ!');
      Exit;
    end;
  else
    Begin  // Purchase
      nrOfTree := nrOfTree - costInTree;
      memo1.Lines[18] := IntToStr(nrOfTree);
    end;

// handle clay cost
 nrOfClay := ...

Du skal ikke sammensmælte if sætningerne.

Med venlig hilsen
Ieet

Ps. SKRIV DET SOM PSEUDOKODE OG LÆS EN PROGRAMMERINGS TUTORIAL.

Som jeg sagde så tester man først på man har alt det man skal bruge og hvis og kun hvis man har det køber man.

Det du gør er jo at teste en ting og trække fra hvis du har nok. så teste den næste.

skal være noget i retning af:

ScoreT := StrToInt(memo1.Lines[18]);
if xPrisT > ScoreT then
Begin
  ShowMessage('Du har ikke nok træ!');
  Exit;
end;
ScoreL := StrToInt(memo1.Lines[19]);
if xPrisL > ScoreL then
Begin
  ShowMessage('Du har ikke nok ler!');
  Exit;
end;
ScoreJ := StrToInt(memo1.Lines[20]);
if xPrisJ > Score then
Begin
  ShowMessage('Du har ikke nok jern!');
  Exit;
end

ScoreK := StrToInt(memo1.Lines[21]);
if xPrisK > ScoreK then
Begin
  ShowMessage('Du har ikke nok korn!');
  Exit;
end;
ScoreT := ScoreT - xPrisT;
memo1.Lines[18] := IntToStr(ScoreT);
ScoreL := ScoreL - xPrisL;
memo1.Lines[19] := IntToStr(ScoreL);
ScoreJ := ScoreJ - xPrisJ;
memo1.Lines[20] := IntToStr(ScoreJ);
ScoreK := ScoreK - xPrisK;
memo1.Lines[21] := IntToStr(ScoreK);

Der en meget simple regel du altid kan følge test først om det du vil gøre er lovligt derefter gøre det.

Det skal lige siges at:

memo1.Lines[18] = antal jeg har i træ (PrisT)
memo1.Lines[19] = antal jeg har i Ler (PrisL)
memo1.Lines[20] = antal jeg har i Jern (PrisK)
memo1.Lines[21] = antal jeg har i Korn (PrisK)

Bare så i ved det

Hej Dennis,

Hvis du kigger på koden postet til sidst i den anden tråd, vilo du kunne se at det der skal udføres når "ShowMessage('Du har ikke nok xxx')" kommer skal vøre i en else!

 Score := StrToInt(memo1.Lines[18]);
  if xPrisT > Score then
    Begin
      ShowMessage('Du har ikke nok træ!');
      Exit;
    end;
  else
    Begin
      Score := Score - xPrisT;
      memo1.Lines[18] := IntToStr(Score);
    end;

http://www.delphibasics.co.uk/Article.asp?Name=Logic

Noter her at jeg vil fastholde at du skal tage og læse nogle bøger om gennerelle programmeringsteknikker. Og så skal du tage og skrive det du vil have programmet til at gøre som pseudokode, inden at du programmerer det.

Med venlig hilsen
Ieet

Man tester bare om du har alle de resourcer du skal bruge for at købe tingen, og hvis og kun hvis du har dem køber du.

I øvrigt gemmer man ikke værdier i GUI componenter man viser dem kun.

Hmm okay...

Bruger denne code nu:

 Score := StrToInt(memo1.Lines[18]);
  if xPrisT > Score then
    Begin
      ShowMessage('Du har ikke nok træ!');
      Exit;
       end
  else
    Begin
      Score := Score - xPrisT;
      memo1.Lines[18] := IntToStr(Score);

      Score := StrToInt(memo1.Lines[19]);
  if xPrisL > Score then
    Begin
      ShowMessage('Du har ikke nok ler!');
      Exit;
       end
  else
    Begin
      Score := Score - xPrisL;
      memo1.Lines[19] := IntToStr(Score);

    Score := StrToInt(memo1.Lines[20]);
  if xPrisJ > Score then
    Begin
      ShowMessage('Du har ikke nok jern!');
      Exit;
       end
  else
    Begin
      Score := Score - xPrisJ;
      memo1.Lines[20] := IntToStr(Score);

      Score := StrToInt(memo1.Lines[21]);
  if xPrisK > Score then
    Begin
      ShowMessage('Du har ikke nok korn!');
      Exit;
       end
  else
    Begin
      Score := Score - xPrisK;
      memo1.Lines[21] := IntToStr(Score);
end;
end;
end;
end;
end;

Men den gør det samme.

Det skal være såen at vis jeg ik har nok i fx. træ så skal den ik minus de ander

Tror der er en fejl i din sætning "Nørden".

den køre fint igennem "Træ" - "Ler" - også så ved jern kommer der bare jeg ik har jern nok men det har jeg.

og de tæller ik ned i træ..

indlysende nok tæller den ikke ned i træ når den påstår at den ikke har råd.

skal være ScoreJ ikke Score.

men jeg har jo nok jern