FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Biomorphe de Pickover
par Jack Aujourd'hui à 7:17

» Planétarium virtuel.
par Jack Aujourd'hui à 6:50

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Aujourd'hui à 0:59

» Virus/Antivirus
par JL35 Hier à 21:11

» Calculatrice
par papydall Ven 21 Sep 2018 - 22:45

» Orbites de l’ensemble de Mandelbrot
par Minibug Ven 21 Sep 2018 - 21:32

» Demande pour Jack concernant PanExpress
par Minibug Ven 21 Sep 2018 - 11:04

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 L'oracle de Delphes

Aller en bas 
AuteurMessage
jjn4

avatar

Nombre de messages : 1761
Date d'inscription : 13/09/2009

MessageSujet: L'oracle de Delphes   Ven 23 Juil 2010 - 18:07

Comme je vous l'avais expliqué dans le programme Horoscope,
j'ai retrouvé l'oracle de Delphes et je le mets sur Internet
pour que vous puissiez le consulter.
Je l'ai mis dans la rubrique Jeux,
car il s'agit finalement d'un jeu de conversation.

Le problème historique, avec les oracles grecs,
c'est que leurs réponses étaient assez sibyllines.
Alors, je vous le demande un peu :
à quoi sert un oracle si les réponses qu'il donne sont incompréhensibles
ou que leur interprétation est totalement sujette à caution ?

Alors, j'en ai profité pour le reformater complètement
et l'aménager de telle sorte que ses réponses
soient un peu plus dans l'esprit de la science.
Mais, du coup, il ne répond maintenant plus
que par « OUI » ou par « NON ».
Bon, il faudra faire avec...

Alors, n'hésitez surtout pas à le consulter
dès que vous avez une interrogation, vous savez,
une grande question fondamentale, comme :
- Est-ce que l'univers est infini ?
- Y'a-t-il de la vie dans les autres étoiles ?
- Les soucoupes volantes existent-elles ?
- L'homme sera-t-il un jour immortel ?
- Etc...
(bref, des questions comme vous vous en posez tous les jours...)

Ah, une petite chose, évitez les fautes d'orthographe,
l'oracle de Delphes est réputé pour son perfectionnisme.
Il pourrait alors se fâcher et faire exprès
de vous donner des réponses erronées.

Essayez-le, il est très fort ! Vous allez voir !
Ses réponses sont même d'une profondeur inhabituelle.
Quelquefois, vous allez vous casser les dents, pour comprendre !
Je vous donne en exemple les questions que je lui ai posées :

Citation :

Est-ce que je vais vivre encore longtemps ?
OUI
Ma vie sera-t-elle chanceuse ?
OUI
Vais-je devenir quelqu'un d'héroïque ?
OUI
Mon nom restera-t-il dans les livres d'Histoire ?
OUI
Serai-je un jour élu président de la république ?
NON
Irai-je au Paradis ?
OUI
Mon chien m'aimera-t-il toujours ?
OUI
Vais-je un jour gagner le gros lot au loto ?
NON
Ma femme m'a-t-elle toujours été fidèle ?
OUI
Me sera-t-elle toujours fidèle ?
OUI
Vivra-t-elle jusqu'à être très vieille ?
OUI
Pourrai-je un jour l'échanger contre deux plus jeunes ?
NON
Aurai-je bientôt une promotion importante ?
OUI
Vais-je gagner davantage d'argent ?
NON
C'est compliqué !
NON
Mon banquier est-il quelqu'un d'honnête ?
OUI
Est-il vraiment honnête ?
OUI
Gère-t-il bien mon argent ?
NON
Devrais-je changer de banquier ?
NON
Est-ce que je serai riche un jour ?
NON
Est-ce que je vivrai un jour dans un château ?
OUI
Cet oracle est complètement débile !
NON
Kghho jgtrgt kjgugrtj bffhr
ZWKX
Cela veut-il dire quelque chose ?
NON
L'oracle de Delphes dit-il toujours la vérité ?
OUI
Se trompe-t-il quelquefois ?
NON
Serai-je un jour doué en mathématiques ?
NON
Pourquoi pas ?
?????
Est-il préférable d'avoir beaucoup de maîtresses ?
OUI
Ah, ça c'est une bonne réponse !
OUI

Et voici le code de ce programme extraordinaire :
Code:

rem ' Oracle de Delphes - Version 1.0
dim a$ , g , i , j , k
dim nbn , nbp , nbq , q$(20) , n$(50) , p$(200)
label fermer , ouvrir , oracle , fin , quitter

data "pourquoi" , "comment" , "quand" , "qui " , "quel " , "quels "
data "fin1"
data "accid" , "argent" , "con" , "diffic" , "drog" , "guerr" , "jeune"
data "malad" , "malhe" , "mauvais" , "mécha" , "négati" , "oblig" , "probl"
data "fin2"
data "agréable" , "aime" , "ami" , "amour" , "avenir" , "aventure"
data "beau" , "belle" , "bien" , "bijou" , "bon" , "bonheur" , "brillant"
data "carrière" , "chance" , "chocolat" , "cuisine"
data "degré" , "désir" , "destin" , "devin" , "diam"
data "emploi" , "espérance" , "exceptionnel" , "exist"
data "fabuleu" , "femme ", "fête" , "fidèle" , "futur"
data "habil" , "haut" , "heureu" , "histo" , "homme" , "huit"
data "idéal" , "import" , "informatique" , "intell"
data "jardin" , "joie" , "joli" , "joy" , "just"
data "lib" , "lit" , "long" , "louang" , "lumi" , "lux"
data "maison" , "mange" , "médail" , "méd" , "modern"
data "naba" , "naiss" , "naît" , "neu" , "nom" , "nouve"
data "obt" , "objecti" , "offr" , "ordinateur" , "optim" , "oz"
data "panoramic" , "paradis" , "pollu" , "positi" , "promotion"
data "qualit", "quantit" , "quar" , "quatr" , "quelqu'un" , "quest"
data "récomp" , "rencontr" , "répon" , "resp" , "retrait" , "réussi"
data "sage" , "sala" , "secr" , "sédu" , "siècle" , "sport" , "succès"
data "tendre" , "terr" , "tête" , "titr" , "toujours" , "travail" , "trés"
data "vacanc", "valeu" , "vie" , "vin" , "vingt" , "visag" , "vivr" , "volont"
data "fin3"
repeat
 read a$
 nbq=nbq+1
 q$(nbq)=a$
until a$="fin1"
nbq=nbq-1
repeat
 read a$
 nbn=nbn+1
 n$(nbn)=a$
until a$="fin2"
nbn=nbn-1
repeat
 read a$
 nbp=nbp+1
 p$(nbp)=a$
until a$="fin3"
nbp=nbp-1

width 0,950 : height 0,screen_y
caption 0,"  O R A C L E  D E  D E L P H E S  E N  D I R E C T"
picture 1
left 1,250 : top 1,20 : width 1,150 : height 1,70
color 1,236,233,216
picture 2
left 2,500 : top 2,20 : width 2,150 : height 2,70
color 2,236,233,216
gosub fermer

alpha 3
left 3,20 : top 3,100 : font_bold 3 : font_size 3,18
caption 3,"Posez votre question et pressez la touche ENTER pour obtenir la réponse :"
memo 4
left 4,20 : top 4,135 : width 4,870 : height 4,screen_y-240
font_size 4,12 : bar_vertical 4 : set_focus 4
on_key_up 4,oracle
button 5
left 5,780 : top 5,20
caption 5,"Quitter"
on_click 5,quitter

end

fermer:
for g=1 to 2
2d_target_is g
2d_pen_width 10
2d_line 10,30,140,30
next g
return

ouvrir:
for g=1 to 2
 2d_target_is g
 2d_pen_width 5
 2d_fill_color 236,233,216
 2d_circle 75,150,140
 for i=1 to 150
  for j=1 to 5
  2d_point i,sin(i/48)*20+30+j
  next j
 next i
 2d_pen_width 1
 2d_fill_color 0,220,255
 2d_circle 75,32,20
 2d_fill_color 0,0,0
 2d_circle 75,32,8
next g
return

oracle:
if key_up_code=13
 gosub ouvrir
 wait 400
 if count(4)>0
  a$=item_read$(4,count(4)) : k=0
  if a$<>"OUI" and a$<>"NON" and a$<>""
  a$=lower$(a$)
  if (instr(a$,"e")=0 and instr(a$,"a")=0) or instr(a$," ")=0
    item_add 4,"ZWKX"
    goto fin
  end_if
  for i=1 to nbq
    if instr(a$,q$(i))>0
    item_add 4,"?????"
    goto fin
    end_if
  next i
  for i=1 to nbn
    if instr(a$,n$(i))>0
    k=1
    item_add 4,"NON"
    midi_on
      midi_play 65,4
    midi_off
    exit_for
    end_if
  next i
  if k=0
    for i=1 to nbp
    if instr(a$,p$(i))>0
      k=1
      item_add 4,"OUI"
      midi_on
      midi_play 80,4
      midi_off
      exit_for
    end_if
    next i
  end_if
  if k=0
    item_add 4,"NON"
    midi_on
    midi_play 65,4
    midi_off
  end_if
  end_if
 end_if
fin:
 wait 400
 for g=1 to 2
  2d_target_is g
  cls
  color g, 236,233,216
 next g
 gosub fermer
end_if
return

quitter:
terminate
Je sens que certains (suivez mon regard) vont avoir plein de questions à lui poser...
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Tecking



Nombre de messages : 114
Age : 29
Localisation : Toulouse
Date d'inscription : 30/05/2010

MessageSujet: Re: L'oracle de Delphes   Sam 24 Juil 2010 - 10:30

Perso je ne maitrise pas les DATA,

Sinon j'ai bien ris c'est excelant.

Donc je n'ais pas trompé ma copine qui ne l'a pas fait non plus pour moi,
et nous aurons tous les deux notre BTS.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
L'oracle de Delphes
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Présentation of Milo

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les jeux faits avec Panoramic-
Sauter vers: