Language Goto++
(Standard Version)
| Date: | 12/06/05 |
| Author: | Sib |
| URL: | n/a |
| Comments: | 4 |
| Info: | http://gpp.niacland.net/ |
| Score: |
#! 99 bottles of beer in Goto++ (Language by Sidoine)
(http://gpp.niacland.net/ (in french))
This version by Sib (sibylangel?gmail!com)
Tested with Goto++ 0.29
!#
niveaugourou 0
GOTO Vars
msgBtle = « bottle»
msgWall = « of beer on the wall»
msgBeer = « of beer.;n»
msgTake = «Take one down, pass it around, »
newLine = «;n;n»
msgEnd = «Go to the store and buy some more, »
msgNoN = «No more»
msgNon = «no more»
plural = *`s'
beers = *(99)
GOTO Loop
§1
GOTOPRINTDUTEXTE() &msgWall &plural &msgBtle &beers
GOTOPRINTDUTEXTE() &msgBeer &plural &msgBtle &beers *` ' *`,'
GOTOPRINTDUTEXTE() &msgTake
beers = &beers ++ *(-1)
AUTOGOTOZ } &beers eg *(1) {
plural = «»
AC
AUTOGOTOZ } &beers eg *(0) {
beers = &msgNon
plural = *`s'
AC
GOTOPRINTDUTEXTE() &newLine *`.' &msgWall &plural &msgBtle &beers
GOTONONNULPOURLESNULS %1 &beers
GOTO Last verses of the song
GOTOPRINTDUTEXTE() &msgWall &plural &msgBtle &msgNoN
GOTOPRINTDUTEXTE() &msgBeer &plural &msgBtle &msgNon *` ' *`,'
GOTOPRINTDUTEXTE() &msgEnd
GOTOPRINTDUTEXTE() &newLine *`.' &msgWall &plural &msgBtle «99»
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments
même si ici il n'est pas très bien mis en avant...
mais le problème c'est que je ne peu pas le télécharger
pour windows
sur le site officiel il me mets "550 failed..."
alors quelqu'un c'est ou on peut le télécharger
sa serais vraiment cool
Grand Merci
Mais comme il a été dit, il est carrément pas mis en avant !!!!!!!!!!! ils sont ou les troupeux de pinguoins et les déclarations de chaussettes ?