home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / baslib2.zip / DROPBUCK.BAS < prev    next >
BASIC Source File  |  1987-03-22  |  3KB  |  118 lines
  1.  
  2. title$="Drop In The Bucket"
  3. title1$="By Joey Latimer"
  4. title2$="Translated to Quickbasic 2.01"
  5. title3$="By Dennis Dreyer, 3/87"
  6.  
  7.  
  8.  
  9. width 40
  10. color 14,6,4
  11. cls
  12.  
  13. dim bs(13,2),ch(13,4):hs=0:sc=0
  14. b$="":m$="*":sp$=chr$(32):d$=sp$+sp$+"."
  15. for x=1 to 14:dt$=dt$+d$:next x:dt$="."+dt$
  16. for x=1 to 13:for y= 1 to 4:read ch(x,y):next y,x
  17. for x=1 to 13:read ko,n:bs(x,1)=ko:bs(x,2)=n
  18. next x
  19.  
  20. NNAME:
  21. color 14,6,4:cls
  22. print tab(9);title$
  23. print tab(9);title1$
  24. print
  25. print tab(9);title2$
  26. print tab(9);title3$
  27. PRINT:print "Press space bar to drop ball in bucket, going in `X' bucket will end game."
  28. print
  29. for w=1 to 15000:next w
  30.  
  31.  
  32.  
  33.  
  34. cls
  35. color 0
  36. locate 3,1,0:for x=1 to 6:print sp$;mid$(DT$,2,38)
  37. print sp$;mid$(dt$,3,38):print sp$;mid$(dt$,4,38)
  38. next x:print:for L=1 to 3:print sp$;
  39. for x=1 to 13:color bs(x,1)
  40. for y=1 to bs(x,2):print chr$(219);:next y,x
  41. if L<3 then print
  42. next L:read TX$:color 1:locate 25,1:print tx$;
  43. locate 12,6:print "Press <SPACE BAR> to begin or"
  44. locate 13,16:print "<Q> to quit";
  45.  
  46. ANS1:
  47. K$=inkey$:If k$="Q" or K$="q" then cls:end
  48. if K$<>SP$ then goto ANS1
  49. locate 12,6:color 0
  50. print sp$;left$(dt$,30):print sp$;mid$(dt$,3,34)
  51.  
  52. PGM1:
  53. SC=0:color ,,2:locate 1,19:print sp$;sp$;
  54. locate 1,6:color 1
  55. print "High score:";HS;"   Score: 0   "
  56.  
  57. PGM2:
  58. co=int(rnd*30)+5:ro=2:fl=1
  59.  
  60. PGM3:
  61. locate ro,co:print m$;
  62. for de = 1 to 10:next de
  63. k$=inkey$:if k$=sp$ then goto PGM6
  64. locate ro,co:print sp$;
  65. if co=2 or co=39 then fl=-fl:sound 3300,1
  66. co=co+fl:goto PGM3
  67.  
  68. PGM4:
  69. ro=ro+1:if ro=22 then goto PGM7
  70. P=screen(ro,co):if p<>46 then goto PGM6
  71. sound 1000,1
  72.  
  73. PGM5:
  74. I=int(rnd*3)-1:if I=0 then goto PGM5
  75. co=co+I:If co<2 or co >39 then co=hc:goto PGM5
  76.  
  77. PGM6:
  78. hr=ro:hc=co:locate ro,co:print m$;
  79. for de=1 to 50:next de
  80. locate hr,hc:print sp$;:goto PGM4
  81.  
  82. PGM7:
  83. for x=1 to 13
  84. if co>=ch(x,1) and co<=ch(x,2) then color ,,CH(x,3):t=ch(x,4):x=13
  85. next x:if t=50 then t=t+rnd*50
  86. if t=0 then goto PGM8
  87. for x=0 to t-1:sound 500+t*5,1
  88. if x>50 then color ,,rnd*15
  89. sc=sc+1:if sc>hs then hs=sc
  90. locate 1,6:color 1
  91. print "High score:";HS;"   Score:";SC;"   ";
  92. next x:goto PGM2
  93.  
  94. PGM8:
  95. for x=70 to 20 step -1:sound x*5,1:next x
  96. locate 11,16:print "Game Over"
  97. locate 12,6:print "Press <SPACE> to play again"
  98. locate 13,13:print "or <Q> to quit."
  99.  
  100. ANS2:
  101. k$=inkey$:if k$="Q" or k$="q" then cls:end
  102. if k$ <> SP$ then goto ANS2
  103. locate 11,8:color 0
  104. print mid$(dt$,4,18):print sp$;mid$(dt$,2,33)
  105. print sp$;mid$(dt$,3,34):Goto PGM1
  106.  
  107. data 2,2,4,0,3,7,2,5,8,8,4,0,9,12,1,10,13,16,4,0
  108. data 17,19,6,25,20,21,3,50,22,24,6,25,25,28,4,0
  109. data 29,32,1,10,33,33,4,0,34,38,2,5,39,39,4,0,4,1
  110. data 2,5,4,1,1,4,4,4,6,3,3,2,6,3,4,4,1,4,4,1,2,5
  111. data 4,1
  112. data " X  5  X 10  X  25 ?? 25  X  10 X  5  X"
  113.  
  114.  
  115.  
  116.  
  117.  
  118.