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
» quel est ce comportement de Panoramic_editor
par Oscaribout Aujourd'hui à 3:02

» bug BORDER_HIDE : bloque la commande full_space
par silverman Aujourd'hui à 1:19

» Découpe dans une image
par JL35 Hier à 22:00

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par papydall Hier à 18:57

» Pour faire plaisir à jjn4.
par Pedro Alvarez Hier à 8:13

» Pour faire plaisir à Marc37.
par Marc Jeu 22 Fév 2018 - 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Jeu 22 Fév 2018 - 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 Bonhomme pendu

Aller en bas 
AuteurMessage
Invité
Invité



MessageSujet: Bonhomme pendu   Mar 31 Aoû 2010 - 20: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 : 1679
Date d'inscription : 13/09/2009

MessageSujet: +++   Mer 1 Sep 2010 - 1: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 - 13: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 - 3: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 : 5180
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Bonhomme pendu   Mer 1 Sep 2010 - 13: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 - 22: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
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Bonhomme pendu
» icône bonhomme à casquette barre d'état
» NOUVEAU JEU :Jeu du pendu
» je voudrais un bonhomme de neige !
» Le Jeu du Pendu

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: