Hej.
Som i nok ved så er jeg igang med et spil, men der er kommet et lille problem igen
Mit problem er at, vis jeg fx. har:
50 i træ (PrisT)
50 i Ler (PrisL)
50 i Jern (PrisJ)
50 i Korn (PrisK)
Så vis jeg kæber en ting jeg ikke har nok træ til, så minuser den bare alle de andre, bare ik træ, og det må den ik. Det skal være såen at inden har jeg råd eller har jeg ik sådan skal det være.
Nogle der kan hjælpe mig med det ?
Score := StrToInt(memo1.Lines[18]);
if xPrisT > Score then
Begin
ShowMessage('Du har ikke nok træ!');
Exit;
end;
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;
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;
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;
Score := Score - xPrisK;
memo1.Lines[21] := IntToStr(Score);
end;