home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / wldwst.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  52 lines
  1. 0 'WLDWST.BA
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 ' Wild West Shootout!
  4. 20 ' Jason Peterson
  5. 30 ' 6190 Corte Del Rey
  6. 40 ' Pleasanton, CA  94566
  7. 100 CLS
  8. 105  PRINT "Wild West Shootout! By Jason Peterson"
  9. 110  PRINT 
  10. 115  PRINT "Controls:      Left   Fire   Right"
  11. 120  PRINT "Player 1        A      S      D"
  12. 125  PRINT "Player 2        J      K      L"
  13. 130  PRINT 
  14. 135  PRINT "     Press (P)lay or (Q)uit"
  15. 140 K$ = INKEY$
  16. 145  IF K$ = "P" THEN 160
  17. 150  IF K$ = "Q" THEN NEW
  18. 155  GOTO 140
  19. 160 CLS
  20. 165 LINE(3,5) - (121,57),1,B
  21. 170 P1 = 41:P2 = 259
  22. 175 P$ =  CHR$ (147):B$ =  CHR$ (166)
  23. 180  PRINT @P1," ": PRINT @P2," "
  24. 185 K$ = INKEY$
  25. 190  IF K$ = "A" AND P1 > 41 THEN P1 = P1 - 1
  26. 195  IF K$ = "S" THEN  GOSUB 230
  27. 200  IF K$ = "D" AND P1 < 59 THEN P1 = P1 + 1
  28. 205  IF K$ = "J" AND P2 > 241 THEN P2 = P2 - 1
  29. 210  IF K$ = "K" THEN  GOSUB 255
  30. 215  IF K$ = "L" AND P2 < 259 THEN P2 = P2 + 1
  31. 220  PRINT @P1,P$: PRINT @P2,P$
  32. 225  GOSUB 280: GOTO 180
  33. 230  IF P1 + 200 <  > P2 THEN  RETURN 
  34. 235  FOR B = P1 + 40 TO P2 - 40 STEP 40
  35. 240  PRINT @B,B$: FOR D = 1 TO 100: NEXT D
  36. 245  PRINT @B," ": NEXT B
  37. 250 S1 = S1 + 1: RETURN 
  38. 255  IF P1 + 200 <  > P2 THEN  RETURN 
  39. 260  FOR B = P2 - 40 TO P1 + 40 STEP  - 40
  40. 265  PRINT @B,B$: FOR D = 1 TO 100: NEXT D
  41. 270  PRINT @B," ": NEXT B
  42. 275 S2 = S2 + 1: RETURN 
  43. 280  PRINT @105,"Kills"
  44. 285  PRINT @185,"P1"S1
  45. 290  PRINT @225,"P2"S2
  46. 295  IF S1 > 10 THEN  PRINT @185,"P1 WON!": GOTO 310
  47. 300  IF S2 > 10 THEN  PRINT @225,"P2 WON!": GOTO 310
  48. 305  RETURN 
  49. 310 BEEP
  50. 315  FOR P = 1 TO 1000: NEXT P
  51. 320 S1 = 0:S2 = 0: GOTO 100
  52.