home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
gam
/
roulet.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
3KB
|
91 lines
0 'ROULET.BA author unknown
1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
2 'This program allows you to release programming tension by naming the hated program or hitting <ENTER> when prompted
10 DEFINTA-Z:I=0:II=0:BLK$=CHR$(239)
20 II=0:TLE$="*** PROGRAM ROULET ***"
50 CLS:PRINT TLE$
55 PRINT@80,"PROGRAM NAME <XXXXXX.BA>";
60 INPUTFNME$
65 IFFNME$<>""THEN100
100 CLS:PRINTTLE$
110 PRINT@85,""FNME$""
120 PRINT@280,"*** PRESS E TO END ***";
150 FORI=1TOVAL(RIGHT$(TIME$,2))
160 BULT=INT(RND(1)*6+1)
170 NEXTI
200 LINE(128,14)-(156,22),1,BF:' BARREL
210 LINE(156, 8)-(192,28),1,BF:'CHAMBER
220 LINE(180,20)-(200,40),1,BF
240 FORI=180TO200:'-----------HANDLE
250 LINE(I,39)-(I+12,63),1
260 NEXTI
270 PRINT@231,"R";:PRINT@272,"B";
300 LINE(164,28)-(180,40),1,B :' GUARD
310 LINE(164,12)-(180,16),0,BF:' BULLET
320 LINE(164,20)-(180,24),0,BF:'CHAMBER
330 LINE(170,36)-(176,28),1 :'TRIGGER
340 LINE(171,36)-(177,28),1 :' "
360 LINE(193, 7)-(195,14),1,BF:' FIRING
370 FORI=192TO194 :' PIN &
380 LINE(I,20)-(I+7,6),1 :' HAMMER
390 NEXTI
500 PRINT@280,"*** PRESS SPACEBAR ***";
510 POKE 65450,0:'---CLEAR INKEY QUEQUE
520 PULL=INT(RND(1)*6+1):KB$=INKEY$
530 IFKB$=""THEN520
540 IFKB$="E"ORKB$="e"THENMENU
600 FOR SPIN=0 TO PULL*2:' = 2 * PULL
610 FORI=0TO5:'---ERASE AND RE-DRAW
620 LINE(164,12)-(180,12+I),SPIN,BF
630 LINE(164,20)-(180,20+I),SPIN+1,BF
640 NEXTI
650 NEXTSPIN
700 FOR I=1 TO 6:'--MOVE THE TRIGGER BY
710 LINE(169+I,36)-(176,28),0:' ERASE
720 LINE(170+I,36)-(177,28),0:' &
730 LINE(170+I,36)-(176,28),1:'RE-DRAW
740 LINE(171+I,36)-(177,28),1:
750 NEXTI
800 FORI=1TO3:'--MOVE THE FIRING PIN
810 LINE(192+I,7)-(194+I,14),0,BF
820 FORII=191+ITO193+I:' BY ERASING
830 LINE(192,20)-(II+7,6),0
840 NEXTII
850 LINE(193+I,7)-(195+I,14),1,BF:' &
860 FORII=192+ITO194+I
870 LINE(193,20)-(II+7,6),1:' RE-DRAW
880 NEXTII
890 NEXTI
900 CLS:'----A BANG OR A CLICK?
950 IFPULL=BULTTHENX=0ELSEX=6
970 K1=0:K2=40:K3=80:'-CURSOR LOCATIONS
980 K4=120:K5=160:K6=200:K7=240
1000 FORII=X+1TOX+6
1010 X1=ASC(MID$("@__Q_D@_AD_Q",II,1))
1020 X2=ASC(MID$("@QQSQD@QADQI",II,1))
1030 X3=ASC(MID$("@QQWAD@AADAE",II,1))
1040 X4=ASC(MID$("@__UAD@AADAC",II,1))
1050 X5=ASC(MID$("@QQ]YD@AADAE",II,1))
1060 X6=ASC(MID$("@QQYQ@@QADQI",II,1))
1070 X7=ASC(MID$("@_QQ_D@__D_Q",II,1))
1100 FORI=0TO5
1110 IFX1AND2^ITHENPRINT@K1,BLK$
1115 K1=K1+1
1120 IFX2AND2^ITHENPRINT@K2,BLK$
1125 K2=K2+1
1130 IFX3AND2^ITHENPRINT@K3,BLK$
1135 K3=K3+1
1140 IFX4AND2^ITHENPRINT@K4,BLK$
1145 K4=K4+1
1150 IFX5AND2^ITHENPRINT@K5,BLK$
1155 K5=K5+1
1160 IFX6AND2^ITHENPRINT@K6,BLK$
1165 K6=K6+1
1170 IFX7AND2^ITHENPRINT@K7,BLK$
1175 K7=K7+1
1180 NEXTI
1190 NEXTII
1210 IFX=0THEN1313:'KILLTHEPROGRAM
1250 FORI=1TO1000:NEXTI:GOTO100
1313 MENU