home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG027.ARK / HIDESEEK.ASC < prev    next >
Text File  |  1984-04-29  |  2KB  |  71 lines
  1. 100 DIM P(4,2)   
  2. 110 PRINT "THIS IS THE GAME OF HIDE AND SEEK."   
  3. 120 PRINT
  4. 130 PRINT "THE OBJECT OF THE GAME IS TO FIND THE FOUR PLAYERS "  
  5. 140 PRINT "WHO ARE HIDDEN ON A 10 BY 10 GRID."   
  6. 150 PRINT
  7. 160 PRINT "HOMEBASE WILL BE THE POSITION AT (0,0) AND ANY GUESS "
  8. 170 PRINT "YOU MAKE SHOULD CONTAIN TWO NUMBERS.  THE FIRST GIVES"
  9. 180 PRINT "THE UNIT DISTANCE RIGHT OF THE HOMEBASE AND THE SECOND"   
  10. 190 PRINT "IS THE UNIT DISTANCE ABOVE HOMEBASE."
  11. 200 PRINT   
  12. 210 PRINT "YOU WILL HAVE TEN ATTEMPTS TO LOCATE THESE PLAYERS"  
  13. 220 PRINT "AND WILL BE TOLD HOW CLOSE YOUR GUESS IS"
  14. 230 PRINT "TO EACH PLAYER." 
  15. 240 PRINT   
  16. 250 PRINT "IF AFTER 10 TRIES YOU ARE UNABLE TO CARRY OUT THIS TASK" 
  17. 260 PRINT "YOU MAY CONTINUE TO BE 'IT', BUT THE PLAYERS WILL"   
  18. 270 PRINT "BE PERMITTED TO MOVE TO NEW LOCATIONS."  
  19. 280 PRINT   
  20. 290 PRINT   
  21. 300 PRINT "ARE YOU READY TO BEGIN (YES OR N0)"  
  22. 310 INPUT A$
  23. 320 IF A$="NO" GOTO 710 
  24. 330 GOSUB 730  
  25. 340 LET T=0 
  26. 350 LET T=T+1   
  27. 360 PRINT   
  28. 370 PRINT   
  29. 380 PRINT "TURN NUMBER";T;", WHAT IS YOUR GUESS?"   
  30. 390 INPUT M,N   
  31. 400 FOR I=1 TO 4
  32. 410 IF P(I,1)=-1 GOTO 490   
  33. 420 IF P(I,1)<>M GOTO 470   
  34. 430 IF P(I,2)<>N GOTO 470  
  35. 440 LET P(I,1)=-1   
  36. 450 PRINT "YOU HAVE FOUND PLAYER";I 
  37. 460 GOTO 490
  38. 470 LET D=SQR((P(I,1)-M)^2+(P(I,2)-N)^2)
  39. 480 PRINT "YOUR DISTANCE FROM PLAYER";I;"IS";INT(D*100)/100;"UNIT(S)."  
  40. 490 NEXT I  
  41. 500 FOR J=1 TO 4
  42. 510 IF P(J,1)<>-1 GOTO 560  
  43. 520 NEXT J  
  44. 530 PRINT   
  45. 540 PRINT "YOU HAVE FOUND ALL THE PLAYERS IN ";T;" TURNS!"  
  46. 550 GOTO 670
  47. 560 IF T<10 GOTO 350   
  48. 570 PRINT   
  49. 580 PRINT "YOU DIDN'T FIND ALL OF THE PLAYERS IN TEN TRIES."
  50. 590 PRINT " DO YOU WANT TO KNOW WHERE THE PLAYERS YOU DID NOT"  
  51. 600 PRINT "FIND WERE HIDDEN (YES OR NO)"
  52. 610 INPUT B$
  53. 620 IF B$="NO" GOTO 670 
  54. 630 FOR I=1 TO 4
  55. 640 IF P(I,1)=-1 GOTO 660   
  56. 650 PRINT "PLAYER";I;"HID AT (";P(I,1);",";P(I,2);")."  
  57. 660 NEXT I  
  58. 670 PRINT   
  59. 680 PRINT "DO YOU WANT TO PLAY AGAIN (YES OR NO)"   
  60. 690 INPUT C$
  61. 700 IF C$="YES" GOTO 330
  62. 710 PRINT "THEN PLEASE LOGOUT." 
  63. 720 GOTO 790   
  64. 730 FOR J=1 TO 2   
  65. 740 FOR I=1 TO 4   
  66. 750 P(I,J)=INT(RND(1)*10)  
  67. 760 NEXT I 
  68. 770 NEXT J 
  69. 780 RETURN 
  70. 790 END
  71.