Voting
Category
real language
Bookmarking
Language IBasic
(Windows program w/ beer bottle graphics)
| Date: | 08/03/05 |
| Author: | Larry Adcock |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://www.pyxia.com |
| Score: |  (2.90 in 120 votes) |
'=== 99 Bottles of Beer by L a r r y A d c o c k ===
'=== Language: IBasic Professional by Pyxia www.pyxia.com ===
'=== Windows program with beer bottle graphics ===
'=== Plurals and last two verses properly handled ===
DEF win:WINDOW
DEF st[6]:string
def aa, bb, brown, white, run:int
autodefine "off"
st=" bottle","","s"," of beer"," on the wall", "take one down and pass it around "
OPENWINDOW win, 5, 10, 630, 200, @caption, 0, "99 Bottles of Beer", &winhandler
control win, @button, "DRINK A BEER !", 300, 130, 150, 25, 0, 1
brown=rgb(90,80,0) : white=rgb(255,255,255)
rect win, 5, 40, 596, 3, brown, brown
for bb=1 to 99
rect win, bb*6+1, 20, 3, 6, brown, brown
rect win, bb*6, 26, 5, 10, brown, brown
next bb
aa=100
drink_one()
run = 1 : WAITUNTIL run = 0 : CLOSEWINDOW win : END
'=============================================
SUB winhandler
SELECT @CLASS
CASE @IDCLOSEWINDOW
run = 0
CASE @IDCONTROL
select @controlid
case 1
if aa>0 then drink_one() else run=0
endselect
ENDSELECT
RETURN
ENDSUB
'=============================================
SUB drink_one
def a$, b$, music:string
def x, xx:int
aa=aa-1
rect win, 4, 56, 596, 60, white, white
rect win, 4, 19, 596-aa*6, 20, white, white
move win, 5, 60
select 1
case (aa=0)
x=2 : xx=2
setcontroltext win, 1, "NO BEER - QUIT"
case (aa>2)
x=2 : xx=2
case (aa=2)
x=2 : xx=1
case (aa=1)
x=1 : xx=2
endselect
a$=st[0]+st[x]+st[3]
if aa>0
b$=str$(aa)
else
b$="No more"
endif
print win, b$+a$+st[4]+"... ",b$+a$+"... "
move win, 10 , 85
a$=st[0]+st[xx]+st[3]
select aa
case 0
print win, "Go to the store and buy some more...99 bottles of beer."
case 1
print win, st[5]+"... "+"no more"+a$+st[4]
default
print win, st[5]+"... "+str$(aa-1)+a$+st[4]
endselect
'instrument is a glasswind (beer bottle)
music="I75 O5G16 G16 G16 D16 D16 D16 G16 G16 G16 G16 R8 "
music=music+"A16 A16 A16 E16 E16 E16 A8 R16 "
music=music+"G16 F#16 F#16 F#16 F#16 F#16 F#16 F#16 F#16 F#16 F#8 R16 "
music=music+"D16 D16 D16 D16 E16 F#16 G16 G16 G16 G8 R16"
playmidi$ music, true
return
ENDSUB
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