Panoramix - l'expert en Panoramic !

' Expert en Panoramic

label repondre, eclater,trouver_objet

dim num_sujets%, num_aux%, num_action%, num_cod%, num_attribut%, num_question%
dim num_article%, num_indefini%, rep$
dim repert$
dim question$, i%, j%, k%, nseg%, quest$(50), type_question%, objet$, objet%

num_sujets% = 101 : num_aux% = 102 : num_action% = 103 : num_cod% = 104
num_attribut% = 105 : num_question% = 106 : num_article% = 107 : num_indefini% = 108
caption 0,"Panoramix - Spécialiste en Panoramic"
repert$ = "C:\Documents and Settings\Klaus\Mes documents\Mes projets Panoramic\Panoramix"

alpha 1 : top 1,10 : left 1,10 : caption 1,"Pose-moi une question sur un problème en Panoramic:"
edit 2 : top 2,40 : left 2,10 : width 2,550
button 3 : top 3,70 : left 3,220 : caption 3,"Répondre..." : on_click 3,repondre

dlist num_sujets%: dlist num_aux% : dlist num_action% : dlist num_cod%
dlist num_attribut% : dlist num_question% : dlist num_article% : dlist num_indefini%
file_load num_sujets%,repert$+"sujets.txt"
file_load num_aux%,repert$+"auxiliaire.txt"
file_load num_action%,repert$+"action.txt"
file_load num_cod%,repert$+"cod.txt"
file_load num_attribut%,repert$+"attribut.txt"
file_load num_question%,repert$+"question.txt"
file_load num_article%,repert$+"article.txt"
file_load num_indefini%,repert$+"indefini.txt"

memo 20 : top 20,120 : left 20,10 : width 20,550 : height 20,200

end


repondre:
    question$ = trim$(text$(2))
    if len(question$)=0
        i% = message_error_ok("Alors, tu n'as rien à demander ?")
        return
    end_if
    if right$(question$,1)<>"?"
        i% = message_error_ok("Ce n'est pas une question !")
        return
    end_if
    gosub eclater
    type_question% = 0
    for i%=1 to count(num_question%)
        if quest$(1)=item_read$(num_question%,i%)
            type_question% = i%
        end_if
    next i%
    if type_question%=0
        i% = message_error_ok("Tu ne sais pas poser une question ?")
        return
    end_if
    if nseg%<4
        i% = message_error_ok("Il n'y a pas assez d'information !")
        return
    end_if
    gosub trouver_objet
    if objet$=""
        i% = message_error_ok("Ta question n'a pas d'objet !")
        return
    end_if
    clear 20
    item_add 20,"Ta question concerne "+item_read$(num_indefini%,objet%)+" "+objet$+"."
   
    rep$ = item_read$(num_sujets%,int(rnd(count(num_sujets%))+1))
    rep$ = rep$ + " " + item_read$(num_aux%,int(rnd(count(num_aux%))+1))
    rep$ = rep$ + " " + item_read$(num_action%,int(rnd(count(num_action%))+1))
    i% = int(rnd(count(num_cod%))+1)
    rep$ = rep$ + " " + item_read$(num_article%,i%)+item_read$(num_cod%,i%)
    j% = int(rnd(count(num_attribut%))+1)
    rep$ = rep$ + " " + item_read$(num_attribut%,j%)
    rep$ = rep$ + ","
    item_add 20,rep$
    rep$ = "parceque "+item_read$(num_article%,objet%)+objet$
    repeat
        k% = int(rnd(count(num_attribut%))+1)
    until j%<>k%
    rep$ = rep$ + " est " + item_read$(num_attribut%,k%)
    rep$ = rep$ + "."
    item_add 20,rep$
   
    return
   
trouver_objet:
    objet$ = ""
    for j%=2 to nseg%
        for i%=1 to count(num_cod%)
            if quest$(j%)=item_read$(num_cod%,i%)
                objet$ = quest$(j%)
                objet% = i%
                return
            end_if
        next i%
    next j%
    return
   
eclater:
    nseg% = 0
    question$ = trim$(left$(question$,len(question$)-1)) + " "  : ' enlever "?" et mettre un espace à la fin
    i% = instr(question$," ")
    while i%>0
        if left$(question$,2)="l'" then question$ = right$(question$,len(question$)-2)
        nseg% = nseg% + 1
        quest$(nseg%) = left$(question$,i%-1)
        question$ = right$(question$,len(question$)-i%)
        i% = instr(question$," ")
    end_while
   

    return
   
   

--- action.txt ---
agrandir
supprimer
rendre inactif
réduire
colorer
cacher
--- article.txt ---
le
l'
le
l'
l'
l'
la
le
la
--- attribut.txt ---
en faute
trop petit
pitoyable
mal conçu
ridicule
trop grand
--- auxiliaire.txt ---
dois
peux
pourrais
devrais
dois essayer de
peux essayer de
pourrais essayer de
devrais essayer de
dois tenter de
peux tenter de
pourrais tenter de
devrais tenter de
--- cod.txt ---
sous-programme
objet
bouton
évènement
edit
alpha
combo
picture
form
--- indefini.txt ---
un
un
un
un
un
un
une
un
une
--- question.txt ---
Est-ce que
Pourquoi
Comment
--- sujets.txt ---
Tu