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
» Immortaliser les photos de famille
par Jean Claude Hier à 21:24

» Concours de Morpions
par jjn4 Hier à 16:34

» Tout est tranquille
par Jean Claude Ven 22 Sep 2017 - 21:41

» Texte en gif animé
par JL35 Ven 22 Sep 2017 - 13:29

» BasicEditor
par Yannick Mer 20 Sep 2017 - 17:17

» Simuler l’appui d'une touche ou combinaison de touches.
par pascal10000 Lun 18 Sep 2017 - 19:30

» Utilisation de HVIEWER pour afficher des images
par papydall Lun 18 Sep 2017 - 17:43

» Panoramic et les gifs animés.
par papydall Lun 18 Sep 2017 - 16:32

» recover source
par pascal10000 Dim 17 Sep 2017 - 14:21

» Recent dans vos menu
par Jean Claude Sam 16 Sep 2017 - 11:41

» Comment centrer un texte 3D.
par pascal10000 Ven 15 Sep 2017 - 20:20

» Carte interface 16 entrées et 16 sorties
par Jicehel Ven 15 Sep 2017 - 16:30

» Version instantanée V 0.9.28i9 possédant l'objet SYNEDIT
par pascal10000 Ven 15 Sep 2017 - 16:20

» Compilateur FBPano
par jean_debord Ven 15 Sep 2017 - 9:59

» 1 (en analyse): 3D_TARGET_IS ne fonctionne pas sur 3D_TEXT
par Jack Jeu 14 Sep 2017 - 19:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

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

Partagez | 
 

 Bonhomme pendu

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



MessageSujet: Bonhomme pendu   Mar 31 Aoû 2010 - 21:29

Bonjour,

Il y a longtemps que j'ai fais ce jeu de bonhomme pendu

essayer!!!

Code:
' Jeu de bohomme pendu
label nouveau,commencement,click,lettre,etape,quit,afficher

dim i,j,d,choix$,etape,mess,p,set,s,goal,esp,score,a$
dim verb$(45),adject$(40),contin$(7),pays$(60),city$(15),gens$(20),ok(6)

dim score2

dim b$,nombre

a$=chr$(10)
nombre=1

verb$(0)="aller":verb$(1)="etre":verb$(2)="vivre":verb$(3)="manger":verb$(4)="exploser":verb$(5)="finir":verb$(6)="aimer":verb$(7)="resembler":verb$(8)="hair":verb$(9)="marcher":verb$(10)="allumer"
verb$(11)="prendre":verb$(12)="ecrire":verb$(13)="travailler":verb$(14)="peser":verb$(15)="eclater":verb$(16)="imprimer":verb$(17)="ouvrir":verb$(18)="fermer":verb$(19)="debuter":verb$(20)="recommencer"
verb$(21)="commencer":verb$(22)="retourner":verb$(23)="mourir":verb$(24)="jouer":verb$(25)="courir":verb$(26)="preparer":verb$(27)="mordre":verb$(28)="cliquer":verb$(29)="enfoncer":verb$(30)="deposer"
verb$(31)="poser":verb$(32)="effacer":verb$(33)="dessiner":verb$(34)="ranger":verb$(35)="banir":verb$(36)="construire":verb$(37)="detruire":verb$(38)="batir":verb$(39)="rejouir":verb$(40)="rire"
verb$(41)="savoir":verb$(42)="couper":verb$(43)="decouper":verb$(44)="ventiler":verb$(45)="arracher"

adject$(0)="bleu":adject$(1)="jaune":adject$(2)="rouge":adject$(3)="beau":adject$(4)="belle":adject$(5)="extraordinaire":adject$(6)="super":adject$(7)="mechant":adject$(8)="gentil":adject$(9)="noir":adject$(10)="noire"
adject$(11)="moche":adject$(12)="vert":adject$(13)="violet":adject$(14)="violette":adject$(15)="verte":adject$(16)="bleue":adject$(17)="gros":adject$(18)="grosse":adject$(19)="mince":adject$(20)="maigre"
adject$(21)="paresseux":adject$(22)="paresseuse":adject$(23)="mechante":adject$(24)="brillante":adject$(25)="brillant":adject$(26)="ordinaire":adject$(27)="magnifique":adject$(28)="gargantuesque":adject$(29)="irresistible":adject$(30)="polie"
adject$(31)="énorme":adject$(32)="bon":adject$(33)="bonne":adject$(34)="delicieux":adject$(35)="delicieuse":adject$(36)="eclatant":adject$(37)="saignant":adject$(38)="dechirer":adject$(39)="blanc":adject$(40)="haut"

contin$(0)="asie":contin$(1)="europe":contin$(2)="amerique du sud":contin$(3)="amerique centrale":contin$(4)="amerique du nord":contin$(5)="antartique":contin$(6)="oceanie":contin$(7)="afrique"

pays$(0)="canada":pays$(1)="france":pays$(2)="chine":pays$(3)="australie":pays$(4)="angola":pays$(5)="tanzanie":pays$(6)="afrique du sud":pays$(7)="japon":pays$(8)="etats-unis":pays$(9)="mexique":pays$(10)="nigeria"
pays$(11)="libye":pays$(12)="tchad":pays$(13)="congo":pays$(14)="namibie":pays$(15)="botswana":pays$(16)="zimbabwe":pays$(17)="soudan":pays$(18)="ethiopie":pays$(19)="inde":pays$(20)="bresil"
pays$(21)="bolivie":pays$(22)="argentine":pays$(23)="uruguay":pays$(24)="chili":pays$(25)="niger":pays$(26)="mali":pays$(27)="mauritanie":pays$(28)="madagascar":pays$(29)="thailande":pays$(30)="malaisie"
pays$(31)="indonesie":pays$(32)="venezuela":pays$(2)="guyane":pays$(34)="suriname":pays$(35)="cuba":pays$(36)="costa rica":pays$(37)="honduras":pays$(38)="nicaragua":pays$(39)="russie":pays$(40)="allemagne"
pays$(41)="iraq":pays$(42)="ukraine":pays$(43)="afghanistan":pays$(44)="pakistan":pays$(45)="oman":pays$(46)="yemen":pays$(47)="pologne":pays$(48)="suede":pays$(49)="finlande":pays$(50)="egypte"
pays$(51)="zambie":pays$(52)="colombie":pays$(53)="guatemala":pays$(54)="haiti":pays$(55)="cambodge":pays$(56)="turquie":pays$(57)="irlande":pays$(58)="islande":pays$(59)="fidji":pays$(60)="alaska"

city$(0)="quebec":city$(1)="paris":city$(2)="ottawa":city$(3)="berlin":city$(4)="moscou":city$(5)="washington":city$(6)="pekin":city$(7)="canberra":city$(8)="brasilia":city$(9)="rabat":city$(10)="luanda"
city$(11)="jakarta":city$(12)="astana":city$(13)="tokyo":city$(14)="berne":city$(15)="athene"

gens$(0)="pablo picasso":gens$(1)="amadeus mozart":gens$(2)="ludwig van beethoven":gens$(3)="celine dion":gens$(4)="jean talon":gens$(5)="celine dion":gens$(6)="bill gates":gens$(7)="adolf hitler":gens$(8)="albert einstein":gens$(9)="leonardo da vinci":gens$(10)="jules cesar"
gens$(11)="nicolas copernic":gens$(12)="isaac newton":gens$(13)="henri poincare":gens$(14)="toutankhamon":gens$(15)="michel-ange":gens$(16)="platon":gens$(17)="barack obama":gens$(18)="johannes kepler":gens$(19)="charles darwin":gens$(20)="alexander graham bell"

width 0,880
height 0,450
caption 0,"Jeu de bonhomme pendu"

' jeu bohomme pendu

button 1
left 1,5
top 1,5
caption 1,"Nouveau"
on_click 1,nouveau

j=90
for i=2 to 27
  button i:width i,25:left i,j:top i,5:j=j+30:caption i,chr$(i+63):hint i,"  "+chr$(i+63)+"  "
next i
font_bold 2:font_bold 6:font_bold 10:font_bold 16:font_bold 22:font_bold 26:font_italic 26
hint 26,"  Y demi-consone  "

picture 28
left 28,30
top 28,65
width 28,812
height 28,316
font_size 28,10
2d_target_is 28
2d_fill_color 236,233,216
2d_rectangle 0,0,812,316
2d_line 600,300,801,300
2d_line 700,15,700,300
2d_line 570,15,700,15:2d_line 570,15,570,40
print_target_is 28

j=20
for i=30 to 35
  check i:left i,j:top i,35:width i,130:j=j+130
next i
caption 30,"Verbes à l'infinitif":caption 31,"Adjectifs":caption 32,"Continents":caption 33,"Pays":caption 34,"Villes":caption 35,"Personnes connues"
mark_on 30:mark_on 31:mark_on 33:mark_on 34

alpha 29
left 29,20
top 29,386
font_size 29,10
caption 29,"* Les accents sont remplacés par la lettre correspondante sans accent."

alpha 36
left 36,41
top 36,345
font_size 36,10

alpha 38
left 38,737
top 38,80
font_size 38,10

end

afficher:
if checked(41)=1 then show 0:hide 39
if checked(42)=1 then show 37:hide 39
if checked(43)=1 then show 58:hide 39:goto open
return

' Jeu du bohomme pendu _________________________________________________________

nouveau:
for i=1 to 6
  ok(i)=0
next i
for i=30 to 35
  if checked(i)=0 then ok(i-29)=1
next i
if ok(1)=1 and ok(2)=1 and ok(3)=1 and ok(4)=1 and ok(5)=1 and ok(6)=1 then message "Cocher au moins une case!":return
for i=30 to 35
  on_click i,click
next i
2d_circle 570,70,30
2d_line 570,100,570,180
2d_line 530,110,570,140
2d_line 570,140,610,110
2d_line 530,230,571,178
2d_line 569,178,600,230
2d_fill_color 0,0,0
2d_circle 560,55,2:2d_circle 580,55,2
2d_fill_color 236,233,216:2d_circle 570,80,6
wait 400
' ___________________________
cls
2d_fill_color 236,233,216
2d_rectangle 0,0,812,316
2d_line 600,300,801,300
2d_line 700,15,700,300
2d_line 570,15,700,15:2d_line 570,15,570,40
commencement:
etape=0:p=20:s=0
goal=0:esp=0
for i=2 to 27
  on_click i,lettre
next i
for i=2 to 27
  active i
next i
caption 38,"Score : 100"
score=100
d=int(rnd(6))
if d=0
  if checked(30)=1
    choix$=verb$(int(rnd(45))):caption 36,"2 indices : Verbes à l'infinitif, "
  else
    goto commencement
  end_if
end_if
if d=1
  if checked(31)=1
    choix$=adject$(int(rnd(40))):caption 36,"2 indices : Adjectifs, "
  else
    goto commencement
  end_if
end_if
if d=2
  if checked(32)=1
    choix$=contin$(int(rnd(7))):caption 36,"2 indices : Continents, "
  else
    goto commencement
  end_if
end_if
if d=3
  if checked(33)=1
    choix$=pays$(int(rnd(60))):caption 36,"2 indices : Pays, "
  else
    goto commencement
  end_if
end_if
if d=4
  if checked(34)=1
    choix$=city$(int(rnd(15))):caption 36,"2 indices : Villes, "
  else
    goto commencement
  end_if
end_if
if d=5
  if checked(35)=1
    choix$=gens$(int(rnd(20))):caption 36,"2 indices : Personnes connues, "
  else
    goto commencement
  end_if
end_if
j=20
if len(choix$)=0 then goto commencement
for i=1 to len(choix$)
  if mid$(choix$,i,1)=" " or mid$(choix$,i,1)="-" then esp=esp+1
next i
for i=1 to len(choix$)
  if mid$(choix$,i,1)<>" " and mid$(choix$,i,1)<>"-"
    2d_line j,100,j+20,100
  else
    if mid$(choix$,i,1)="-" then font_size 28,14:print_locate i*25,80:print "-":font_size 28,10
  end_if
  j=j+25
next i
caption 36,caption$(36)+str$(len(choix$)-esp)+" lettres"
return

click:
goto nouveau
return

lettre:
for i=2 to 27
  if clicked(i)=1
    s=0
    for j=1 to len(choix$)
      if mid$(choix$,j,1)=lower$(caption$(i))
        print_locate j*25,80:print caption$(i):inactive i:s=1:goal=goal+1
        score=score+15:caption 38,"Score : "+str$(score)
        if goal=len(choix$)-esp
          mess=message_confirmation_yes_no("Bravo vous avez gagner! "+a$+a$+"Vous avez eu "+str$(etape)+" faute(s)."+a$+"Votre score est de "+str$(score)+" points"+a$+a$+"Recommencer?")
          if mess=0 or mess=1 then goto nouveau
          if mess=2 then hide 0:show 39:goto nouveau
        end_if
      end_if
    next j
    if s=0 then set=i:inactive i:goto etape
  end_if
next i
return

etape:
beep:etape=etape+1
score=score-10
caption 38,"Score : "+str$(score)
if etape=1 then 2d_circle 570,70,30
if etape=2 then 2d_line 570,100,570,180
if etape=3 then 2d_line 530,110,570,140
if etape=4 then 2d_line 570,140,610,110
if etape=5 then 2d_line 530,230,571,178
if etape=6 then 2d_line 569,178,600,230
if etape=7 then 2d_fill_color 0,0,0:2d_circle 560,55,2
if etape=8 then 2d_fill_color 0,0,0:2d_circle 580,55,2
if etape=9 then 2d_fill_color 236,233,216:2d_circle 570,80,6
if etape=10
  for i=1 to len(choix$)
    print_locate i*25,80:print upper$(mid$(choix$,i,1))
  next i
  mess=message_confirmation_yes_no("Vous avez perdu! Recommencer?")
  if mess=0 or mess=1 then goto nouveau
  if mess=2 then hide 0:show 39:goto nouveau
end_if
2d_fill_color 236,233,216
print_locate p,150:print caption$(set):p=p+20
return

quit:
terminate
Revenir en haut Aller en bas
jjn4

avatar

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

MessageSujet: +++   Mer 1 Sep 2010 - 2:13

Pas mal, Nicolas.
(d'autant que je n'ai pas été pendu une fois)
Laughing
Juste un truc, j'ai eu une erreur en quittant (à la ligne 219) :
Citation :
if mess=2 then hide 0:show 39:goto nouveau
(object number out of range)


Dernière édition par jjn4 le Mer 1 Sep 2010 - 14:30, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Bonhomme pendu   Mer 1 Sep 2010 - 4:50

Très bien Nicolas.
Ça ne me rajeunit pas, je me retrouve avec le ZX81, en 1981 pour ce programme.
Revenir en haut Aller en bas
Jean Claude

avatar

Nombre de messages : 5019
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Bonhomme pendu   Mer 1 Sep 2010 - 14:13

Angoissant au départ (j'aime pas les colliers de corde), mais jamais pendu au final sur 5 jeux.

Bravo, jolie petit jeu..... cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Bonhomme pendu   Mer 1 Sep 2010 - 23:17

Merci!

@JJN4 : avant j'avais fait un programme qui regroupait une dizaine de jeu et

quand j'ai extrait le bonhomme pendu de ce multi-jeu que j'avais appeler

MultiGames je n'ai peut pas tout enlever. Merci de me l'avoir dit!
Revenir en haut Aller en bas
Contenu sponsorisé




MessageSujet: Re: Bonhomme pendu   

Revenir en haut Aller en bas
 
Bonhomme pendu
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Bonhomme pendu
» 5e pendu
» icône bonhomme à casquette barre d'état
» NOUVEAU JEU :Jeu du pendu
» je voudrais un bonhomme de neige !

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: