99 bottles of beer - GameCreators Forum

Author

Message

OSX Using Happy Dude

22

Years of Service

User Offline

Joined: 21st Aug 2003

Location: At home

Posted: 27th Sep 2005 16:55

Link

This DBPro (only) code does nothing except progress through bottles of beer :

+ Code Snippet

global t$ as string

for bottles=99 to 1 step -1
   t$=isPlural(bottles)

   t$=t$+" of beer on the wall"

   print t$;", ";t$
   print "Take one down and pass it around, ";

   if bottles-1>0
      print isPlural(bottles-1);
      print " of beer on the wall"
   else
      print "No more bottles of beer on the wall"
   endif
   sync
next bottles

print "No more bottles of beer on the wall, no more bottles of beer."
print "Go to the store and buy some more, 99 bottles of beer on the wall..."
wait key
end

function isPlural(bottles as integer)
local temp$ as string

   temp$=str$(bottles)+" bottle"
   if bottles>1
      temp$=temp$+"s"
   endif
endfunction temp$

Come to the third DarkBasic Pro Sci Fi Con - Be there and be square
Blog:http://spaces.msn.com/members/BouncyBrick/
Web Site:http://www.nicholaskingsley.co.uk

Back to top

Profile PM Email Website