program creer_fichier_questions; {but: cree un fichier binaire qui contient les question à poser; marche avec bronyser3000}

Var
F: file of integer;
F2: file of string;
erreur: byte;

begin
{ Ouvre le fichier F en mode lecture}
Assign(F, 'questions.mlp'); FileMode := 2; Rewrite(F); Reset (F);
Erreur := IOResult;

{ Test des erreurs de fichier }
if Erreur<>0 then begin
Writeln ('Technical derpyculties: "I just don''t know what went wrong!"');
Writeln ('Erreur de lecture du fichier n°',erreur);
Halt (Erreur);
read();
end;

{ Ouvre le fichier F2 en mode lecture}
Assign(F2, 'textes.mlp'); FileMode := 2; Rewrite(F2); Reset (F2);
Erreur := IOResult;

{ Test des erreurs de fichier }
if Erreur<>0 then begin
Writeln ('Technical derpyculties: "I just don''t know what went wrong!"');
Writeln ('Erreur de lecture du fichier n°',erreur);
Halt (Erreur);
read();
end;

//syntaxe: write(F,<n° question>,<Nb de réponses possibles>,<si réponse 1 renvoyer sur...>,<si réponse 2 renvoyer sur...>, ... <10 réponses max>); write(F2,'<texte de la question>(<réponses possibles>)','<Url à ouvrir dans le navigateur. Si aucunes url mettre: NC>');
write(F,1,2,2,3); write(F2,'Savez vous pourquoi on vous a envoyé ce programme? (1:oui, 2:non)','NC'); //<=exemples inutiles
write(F,2,2,2,3); write(F2,'vous avez répondu: oui','NC');
write(F,3,2,2,3); write(F2,'vous avez répondu: non','NC');

Close (F); Close (F2);
end.

program Bronyser3000; {But: Faire découvrir à un utilisateur lambda le riche univers de MLP et répendre la passion pour MLP:FIM!}

uses shellAPI;

type lignes = array [1..100] of integer;
quest = array [1..10] of lignes;
text = array [1..100] of string;

procedure logo();
begin
writeln(' ______ ________ ______ ______ ______ ');
writeln('(____ \ (_______// __ |/ __ |/ __ |');
writeln(' ____) ) ____ ___ ____ _ _ ___ ____ ____ ____ | | //| | | //| | | //| |');
writeln('| __ ( / ___) _ \| _ \| | | |/___)/ _ )/ ___|___ \| |// | | |// | | |// | |');
writeln('| |__) ) | | |_| | | | | |_| |___ ( (/ /| | _____) ) /__| | /__| | /__| |');
writeln('|______/|_| \___/|_| |_|\__ (___/ \____)_| (______/ \_____/ \_____/ \_____/ ');
writeln(' (____/ ');
writeln('Par Sharydow v. 0.0.1');
end;

procedure question(var i:integer; questions: quest; texts : text; quit: boolean;url: text);
var reponse: integer; j: integer;urli : ansistring;
begin
writeln(texts[questions[i,1]]);
urli:=url[i];
if(url[i]<>'NC') then shellexecute(0, 'Open', PChar(urli), nil, nil, 0);
readln(reponse);
for j:=0 to questions[i,2] do
begin
if (reponse=j)then
begin
i:=questions[i,2+j];
if(i=0)then quit:=true;
end;
end;
end;


Var i,l,m: integer;
quit,fin_de_ligne: boolean;
questions : quest;
texts,url: text;
F: file of integer;
F2: file of string;
erreur: byte;
begin
logo();


{ Ouvre le fichier F en mode lecture}
Assign(F, 'questions.mlp'); FileMode := 2; Reset (F);
Erreur := IOResult;

{ Test des erreurs de fichier }
if Erreur<>0 then begin
Writeln ('Technical derpyculties: "I just don''t know what went wrong!"');
Writeln ('Erreur de lecture du fichier n°',erreur);
Halt (Erreur);
read();
end;

l := 1;
while (not eof(F)) do
begin
m:=1;
fin_de_ligne:=false;
while(not fin_de_ligne) do
begin
Read (F, questions[l,m]);
//writeln (l,' ',m, ' ', questions[l,m]); //<=juste pour tester
m:=m+1;
if(m=(questions[l,2]+3))then
begin
fin_de_ligne:=true;
end;
end;
l:=l+1
end;

Close (F);

{ Ouvre le fichier F2 en mode lecture}
Assign(F2, 'textes.mlp'); FileMode := 2; Reset (F2);
Erreur := IOResult;

{ Test des erreurs de fichier }
if Erreur<>0 then begin
Writeln ('Technical derpyculties: "I just don''t know what went wrong!"');
Writeln ('Erreur de lecture du fichier n°',erreur);
Halt (Erreur);
read();
end;

l := 1;
while (not eof(F2)) do
begin
//write('test');
Read (F2, texts[l]);
//writeln(texts[l]);
Read (F2, url[l]);
//writeln(url[l]);
l:=l+1;
end;

Close (F2);

i:=1;
quit:=false;
while(not quit)do
begin
Question(i, questions, texts, quit, url);
end;

end.