' 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