Voting

Category

real language

Bookmarking

Del.icio.us Digg Diigo DZone Earthlink Google Kick.ie
Windows Live LookLater Ma.gnolia Reddit Rojo StumbleUpon Technorati

Language X-GUI scripting language

Date:05/19/05
Author:Marinus Oosters
URL:n/a
Comments:0
Info:n/a
Score: (3.01 in 112 votes)
; 99.xsf
; Author: Marinus Oosters
; 99 Bottles of Beer in the X-GUI scripting language
; X-GUI can be found at:
; http://www.sepent.com/prog/basic/bguios/osreview.aspx?id=xgui
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


SECTION INFO
WINX1 = 0
WINY1 = 0
WINX2 = 259
WINY1 = 116
WINTL = "99 bottles of beer"
END

SECTION REFRESHED
PRN 2,2,"Next>>",0,7
3DBOX 0,0,52,17,0,1,-1
PRN 1,20,"  ",7,7
PRN 1,20,BOTTLES%,0,7
PRN 24,20,W$,0,7
PRN 1,38,"  ",7,7
PRN 1,38,BOTTLES%,0,7
PRN 24,38,B$,0,7
PRN 1,56,T$,0,7
MOV V%,BOTTLES%
SUB V%,1
PRN 1,74,"  ",7,7
PRN 1,74,V%,0,7
PRN 24,74,X$,0,7
END

SECTION LOOPED
CMP BOTTLES%,0
JNE CONTINUE
MBX "No more bottles of beer on the wall!","Out of beer","Buy more","Stop drinking",R%
CMP R%,1
JE MORE
SYSTEM
MORE:
MOV BOTTLES%,99
CONTINUE:
MBP X%,Y%,B%,1
CMP X%,0
JB NOCLICK
CMP X%,52
JA NOCLICK
CMP Y%,0
JB NOCLICK
CMP Y%,17
JA NOCLICK
SUB BOTTLES%,1
CMP BOTTLES%,9
JNE NOCLICK
LINE 0,0,259,116,7,3
NOCLICK:
PRN 2,2,"Next>>",0,7
3DBOX 0,0,52,17,0,1,-1
PRN 1,20,"  ",7,7
PRN 1,20,BOTTLES%,0,7
PRN 24,20,W$,0,7
PRN 1,38,"  ",7,7
PRN 1,38,BOTTLES%,0,7
PRN 24,38,B$,0,7
PRN 1,56,T$,0,7
MOV V%,BOTTLES%
SUB V%,1
PRN 1,74,"  ",7,7
PRN 1,74,V%,0,7
PRN 24,74,X$,0,7
END

SECTION CLOSED
MBX "Hey! You still have to pay! Come back!","","No way!","",R%
END

SECTION DATA
W$ "bottles of beer on the wall,"
B$ "bottles of beer,"
T$ "Take one down, pass it around"
X$ "bottles of beer on the wall."
V% 0
X% 0
Y% 0
B% 0
R% 0
BOTTLES% 99
END

Download Source | Write Comment

Alternative Versions

Comments

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!

Name:

eMail:

URL:

Security Code:
  
Comment: