home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / guess.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  35 lines
  1. 0 'BOGGLE.BA - AUTHOR UNKNOWN
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 DIMN(4),N1(4),G$(4):GOSUB33:CLS:FORX=1TO4:N(X)=0:N1(X)=0:NEXTX
  4. 3 FORX=1TO4:N(X)=INT(9*RND(1)+1):NEXTX:CLS:PRINT@120,"Yes, I have it now!":FORX=1TO500:Y=X:NEXTX:CLS
  5. 4 INPUT"Your guess please: ";G$(0):IF G$(0)="0000"THENT=24:GOTO11
  6. 5 FORX=1TO4:N1(X)=VAL(MID$(G$(0),X,1)):G$(X)="0":NEXTX:FORY=1TO4:SW=0
  7. 6 X=INT(4*RND(1)+1):IFG$(X)<>"0"THEN6
  8. 7 FORZ=1TO4:IFN(Z)=N1(X)THENSW=1
  9. 8 NEXTZ:IF SW=1THENG$(X)="BLACK "ELSEG$(X)="      "
  10. 9 IFN(X)=N1(X)THENG$(X)="WHITE "
  11. 10 NEXTY
  12. 11 T=T+1:IFT=25THENGOSUB25:GOTO24
  13. 12 Y=0:FORX=1TO4:IFG$(X)="WHITE "THENY=Y+1
  14. 13 NEXTX:IFY=4THEN18
  15. 14 FORX=1TO4
  16. 15 Y=INT(4*RND(1)+1):IFG$(Y)="0"THEN15
  17. 16 IFLEFT$(G$(Y),1)<>" "THENPRINTG$(Y);
  18. 17 G$(Y)="0":NEXTX:PRINT" ":GOTO4
  19. 18 PRINT:PRINT"You got the number in";T;" tries.":IF T<5THENPRINT"You're a veritable GENIUS!"
  20. 19 IF T>4 AND T<8THENPRINT"You're a certified EXPERT!"
  21. 20 IF T>7 AND T<11THENPRINT"You're really VERY GOOD!"
  22. 21 IF T>10 AND T<13THENPRINT"You're basically AVERAGE."
  23. 22 IF T>12 AND T<16THENPRINT"You're OK."
  24. 23 IF T>15THENPRINT"You really need a lot of PRACTICE!"
  25. 24 PRINT:INPUT"Would you like to try again...Y/N ";Y$:IFLEFT$(Y$,1)="Y"OR LEFT$(Y$,1)="y"THENGOSUB26:GOTO3ELSEGOSUB26:MENU
  26. 25 G$(0)="":FORX=1TO4:G$(0)=G$(0)+STR$(N(X)):NEXTX:CLS:PRINT@120,"Too many tries, the number is:";G$(0):RETURN
  27. 26 TT=TT+T:R=R+1:AV=TT/R:AV=INT((AV*100)+.5)/100:T=0:CLS:PRINT@80,"After ";R;" turns, you made";TT;" guesses.":PRINT:PRINT"For an avg of";AV;" per turn.":AV=INT(AV):PRINT:IF AV<5THENPRINT"You're a veritable GENIUS!"
  28. 27 IF AV>4 AND AV<8THENPRINT"You're a certified EXPERT!"
  29. 28 IF AV>7 AND AV<11THENPRINT"You're really VERY GOOD!"
  30. 29 IF AV>10 AND AV<13THENPRINT"You're basically AVERAGE."
  31. 30 IF AV>12 AND AV<16THENPRINT"You're OK."
  32. 31 IF AV>15THENPRINT"You really need a lot of PRACTICE!"
  33. 32 FORX=1TO500:Y=X:NEXTX:RETURN
  34. 33 FORX=1TOVAL(RIGHT$(TIME$,2)):Y=RND(1):NEXTX:RETURN
  35.