Dev Pascalba Jelszavas játék?

Mi vele a gond? Mi nem megy? Szimpla lustaság? :-D

A program: (FreePascalhoz biztos jó, DevPascalt soha nem használtam)

Először is, írd a jelszavakat egy egyszerű szöveges fájlba, mondjuk jelszo.txt néven, a következő szerkezettel:

Leírás

Jelszó

Leírás

Jelszó

Leírás

...

Rakd a fájlt a program mappájába, és csak utána futtasd a programot.

Program jelszavas;

Uses crt;

Var

f: Text;

i, maxlevel: Word;

jelszo, leir: Array[0..100] (vagy ahány szintet akarsz) Of String;

s: String;

Begin

s:=''; /két aposztróf, nem idézőjel/

jelszo[0]:='';

Assign(f, 'jelszo.txt');

Reset(f);

i:=1;

While Not(EOF(f)) Do

Begin

ReadLn(f, leir[i]);

ReadLn(f, jelszo[i]);

jelszo[i]:=UpCase(jelszo[i]);

Inc(i);

End;

Close(f);

maxlevel:=i;

i:=1;

While (i<maxlevel) And (UpCase(s)=jelszo[i-1]) Do

Begin

Clrscr;

Write('LVL', i, chr(13), chr(10));

WriteLn(leir[i]);

Write('Kerem a jelszot:');

ReadLn(s);

Inc(i);

End;

ClrScr;

If (i<maxlevel) Or (UpCase(s)<>jelszo[i-1]) Then

Write('Game Over!')

Else

Write('Nyertél!');

ReadLn;

End.

Ennyi. Nehéz lett volna magadtól megírni? :-D

De bizony, hogy lustaság. Az nem mentség, hogy most tanuljátok... Pont az lenne cél, hogy megtanuld és nem az, hogy megcsináltasd mással.

Egyébként a DevPascal egy windowsos IDE a Free Pascal egy régi verziója köré. Nem is értem miért nem a Lazarust használják ahol Free Pascalt tanítanak, ebben legalább egy Delphi szerű környezettel találkozna a tanuló, ami a későbbiekre nézve talán nem hátrány.