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
» Dessin 2D: largeur de trait
par papydall Hier à 23:31

» Projet de planétarium virtuel.
par Jean Claude Hier à 21:59

» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Hier à 20:32

» Animation: Feux de signalisation
par Minibug Hier à 20:28

» Quantité de mémoire utilisée par un exe
par Jack Mar 19 Juin 2018 - 16:39

» Problème avec 'file_load'.
par Pedro Alvarez Lun 18 Juin 2018 - 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 L'oracle de Delphes

Aller en bas 
AuteurMessage
jjn4

avatar

Nombre de messages : 1755
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: