home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / sharks.200 < prev    next >
Text File  |  2006-10-19  |  3KB  |  48 lines
  1. 0 SHARKS.BA  RAY YEARGIN                  CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 GOSUB5:GOSUB8:GOSUB26
  3. 2 GOSUB13:GOSUB30:IFSA=0THEN45
  4. 3 IFINKEY$="t"THENGOSUB45
  5. 4 C#=C#+1:SA=0:GOTO2
  6. 5 CLS:DEFINTA-Z:INPUT" #cols";U:INPUT" #rows";C:INPUT" #fish";FH:INPUT" #sharks";SK
  7. 6 INPUT" fish breed";FB:INPUT" shark breed";SB:INPUT" starve";ST:INPUT" #attempts";LK
  8. 7 INPUT" feed range";FR:INPUT" sound (1=y)";O:K=U-1:P=C-1:RETURN
  9. 8 DIMM(K,P),A(K,P),S(K,P),D(K,P):S$=CHR$(252):F$=CHR$(157)
  10. 9 FORI=1TOFH:X=RND(1)*U:Y=RND(1)*C:IFA(X,Y)<>0THENI=I-1:NEXT
  11. 10 A(X,Y)=RND(1)*FB+1:NEXT:FORI=1TOSK:X=RND(1)*U:Y=RND(1)*C:IFA(X,Y)<>0THENI=I-1:NEXT
  12. 11 A(X,Y)=RND(1)*SB+100:NEXT:FORX=0TOK:FORY=0TOP:D(X,Y)=Y*40+X:NEXT:NEXT:IFK=39ANDP=7THEND(K,P)=318
  13. 12 DE=FR+1:FA=DE*2:RETURN
  14. 13 FORX=0TOK:FORY=0TOP:IFA(X,Y)=0ORM(X,Y)=1THENNEXT:NEXT:RETURN
  15. 14 IFA(X,Y)<100THENA(X,Y)=A(X,Y)+1:GOTO21
  16. 15 S(X,Y)=S(X,Y)+1:Q=0:SA=SA+1
  17. 16 V=RND(1)*FA-DE:H=RND(1)*FA-DE:G=X+H:J=Y+V:IFG>KTHENG=G-K-1ELSEIFG<0THENG=K+G+1
  18. 17 IFJ>PTHENJ=J-P-1ELSEIFJ<0THENJ=P+J+1
  19. 18 IFA(G,J)>0ANDA(G,J)<100THENA(G,J)=A(X,Y)+1:S(G,J)=1:SOUND5000,O:PRINT@D(G,J),S$;:ELSE20
  20. 19 FE#=FE#+1:A(X,Y)=0:S(X,Y)=0:M(G,J)=1:PRINT@D(X,Y)," ";:NEXT:NEXT:RETURN
  21. 20 Q=Q+1:IFQ<LKTHEN16
  22. 21 V=RND(1)*4-2:H=RND(1)*4-2:G=X+H:J=Y+V:IFG>KTHENG=0ELSEIFG<0THENG=K
  23. 22 IFJ>PTHENJ=0ELSEIFJ<0THENJ=P
  24. 23 IFA(G,J)=0THENA(G,J)=A(X,Y):A(X,Y)=0:S(G,J)=S(X,Y):S(X,Y)=0:M(G,J)=1:ELSE25
  25. 24 PRINT@D(X,Y)," ";:IFA(G,J)>99THENPRINT@D(G,J),S$;:ELSEPRINT@D(G,J),F$;
  26. 25 NEXT:NEXT:RETURN
  27. 26 CLS:FORA=0TOK:FORB=0TOP:IFA(A,B)=0THENNEXT:NEXT:RETURN
  28. 27 IFA(A,B)>99THENPRINT@D(A,B),S$;:ELSEPRINT@D(A,B),F$;
  29. 28 IFA=KANDB=PTHENNEXT:NEXT:RETURN
  30. 29 NEXT:NEXT:RETURN
  31. 30 FORX=0TOK:FORY=0TOP:M(X,Y)=0:IFA(X,Y)=0THENNEXT:NEXT:RETURN
  32. 31 IFS(X,Y)>STTHENS(X,Y)=1:A(X,Y)=0:SOUND400,O:PRINT@D(X,Y)," ";:S#=S#+1
  33. 32 IFA(X,Y)>SB+100THENGOSUB35
  34. 33 IFA(X,Y)>FBANDA(X,Y)<100THENGOSUB40
  35. 34 NEXT:NEXT:RETURN
  36. 35 Q=0
  37. 36 V=RND(1)*4-2:H=RND(1)*4-2:G=X+H:J=Y+V:IFG>KTHENG=0ELSEIFG<0THENG=K
  38. 37 IFJ>PTHENJ=0ELSEIFJ<0THENJ=P
  39. 38 IFA(G,J)=0THENA(G,J)=101:A(X,Y)=101:S(G,J)=1:PRINT@D(G,J),S$;:RETURN
  40. 39 Q=Q+1:IFQ<3THEN36ELSERETURN
  41. 40 Q=0
  42. 41 V=RND(1)*4-2:H=RND(1)*4-2:G=X+H:J=Y+V:IFG>KTHENG=0ELSEIFG<0THENG=K
  43. 42 IFJ>PTHENJ=0ELSEIFJ<0THENJ=P
  44. 43 IFA(G,J)=0THENA(G,J)=1:A(X,Y)=1:PRINT@D(G,J),F$;:RETURN
  45. 44 Q=Q+1:IFQ<3THEN41ELSEA(X,Y)=RND(1)*FB+1:RETURN
  46. 45 CLS:PRINTC#;" cycles":PRINT" f eaten";FE#:PRINT" s starved";S#:PRINT" fbreed";FB:PRINT" sbreed";SB
  47. 46 PRINT" starve";ST:PRINT" attempts";LK:PRINT" range";FR;:INPUTX$:IFSATHENGOSUB26:RETURN
  48.