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