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
» StratégoV8 et V9
par Minibug Aujourd'hui à 1:10

» Rotation d'une image d'un angle quelconque
par JL35 Hier à 23:02

» GRID_LOAD
par Jean Claude Hier à 21:04

» HVIEWER
par Yannick Hier à 20:31

» KGF_dll - nouvelles versions
par Klaus Mar 16 Jan 2018 - 21:28

» Déformation d'image en trapèze
par mindstorm Mar 16 Jan 2018 - 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

» Problème avec Deepl
par Klaus Lun 15 Jan 2018 - 0:34

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 L'oracle de Delphes

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
jjn4

avatar

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

MessageSujet: L'oracle de Delphes   Ven 23 Juil 2010 - 19: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 - 11: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
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Présentation of Milo
» Delphes

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: