99 bouteilles de bière...

[Ar-S]

Je me suis permis de franciser le bousin à ma sauce

Code : Tout sélectionner

    ;PB 4.02
    ;Original By AndyX & Green Snake

EnableExplicit


Procedure.l PlaySong(Music.s,Duration.l)
  Protected *Char.Character
  *Char = @Music
  While *Char\c <> #Null
    
    Select *Char\c
      Case 'A'
        Beep_(220, Duration)
      Case 'D'
        Beep_(147, Duration)
      Case 'E'
        Beep_(165, Duration)
      Case 'F'
        Beep_(185, Duration)
      Case 'G'
        Beep_(196, Duration)
      Case 'X'
        Delay(Duration)
        
    EndSelect
    
    *Char + 1
  Wend
  
  ProcedureReturn #True
EndProcedure

OpenConsole()
ConsoleTitle("99 Bouteilles de biere sur le mur ;)")

Define Text.s     = " Bouteille(s) de biere"
Define TextEnd.s  = " sur le mur"
Define i.l

For i = 99 To 1 Step -1
  
  PrintN(" " + Str(i) + Text + TextEnd + ",")
  PlaySong("GGGDDDGGGGXXXX", 150)
  PrintN(" " + Str(i) + Text + ".")
  PlaySong("AAAEEEAXXXX", 150)
  PrintN(" J'en file une a un membre et il reste,")
  PlaySong("GFFFFFFFFFFXXX", 150)
  PrintN(Chr(32) + Str(i - 1) + Text + TextEnd + Chr(46))
  PlaySong("DDDDEFGGGGXXX", 150)
  PrintN("")
  
Next

PrintN("il ni a plus de bouteille de biere sur le mur,")
PlaySong("GGGDDDGGGGXXXX", 150)

PrintN("il ni a plus de bouteille de biere.")
PlaySong("AAAEEEAXXXX", 150)

PrintN("Fred en rachete quelques packs et il reste,")
PlaySong("GFFFFFFFFFFXXX", 150)
PrintN("99 Bouteilles de biere sur le mur.")
PlaySong("DDDDEFGGGGXXX", 150)

PrintN("")
Input()
End

[SPH]

Je me demande a quoi ca sert...
Remarque, ca m'apprend l'instruction "playsong"

[Ar-S]

C'est une chanson très connue (n'entends tu pas les bips ?)
"playsong" est une procédure qui évite bon nombre de répétition de la commande beep_

question

Je me demande a quoi ca sert...

reponse

Remarque, ca m'apprend l'instruction "playsong"

En réalité ça n'a pas d'autre but que d'essayer de faire se dessiner un sourire sur le visage en cette période foireuse...
Mais ça ne marche pas avec tout le monde.

[dayvid]

Brave type

Bin quoi c'étais pas méchant

[djes]

Y'a le même sur poissonrouge

[Kwai chang caine]

En réalité ça n'a pas d'autre but que d'essayer de faire se dessiner un sourire sur le visage en cette période foireuse...
Mais ça ne marche pas avec tout le monde.

Et ben moi ça a marché....remarque je souris presque tout le temps
J'ai souris tout de suite hein !!!! j'ai pas attendu la fin
Merci ARS pour le partage