PureBasic

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