home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / SNEFRU (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.5 KB  |  213 lines

  1. 0 GOTO9:        "SNEFRU"
  2. 1 : COPYRIGHT 1990 EDGEWORTH SOFTWARE :
  3. 2 : MAY BE FREELY DISTRIBUTED BUT MAY :
  4. 3 : NOT BE AMENDED,TRANSLATED OR SOLD :
  5. 9 :                                   :
  6. 11 DATA 32,180,2,132,251,32,180,2
  7. 12 DATA 166,251,76,240,255,32,253,174
  8. 13 DATA 32,158,173,32,170,177,96,165
  9. 14 DATA 252,69,253,69,254,168,162,3
  10. 15 DATA 152,85,251,213,251,144,3,202
  11. 16 DATA 208,246,96
  12. 19 :
  13. 20 J(1)=56320:J(2)=56320:CL$=CHR$(147)
  14. 21 PRINTCL$:POKE53280,4:POKE53281,12
  15. 22 SP$="         ":GR$="[184][184][184][184][184]"
  16. 23 P$(3)="MENKAURE":P$(4)="DJEDEFRE"
  17. 24 P$(5)="KHUFU":P$(6)="SNEFRU"
  18. 25 T$=" SNEFRU [146]":SK$=CHR$(3)
  19. 26 EE=679:D=646:R(1)=1:R(2)=2:R(3)=3
  20. 27 FORA=0TO42:READB:POKEEE+A,B:NEXT
  21. 28 PRINTCHR$(14)CHR$(8):POKE808,234
  22. 29 NU=RND(-RND(0)):GOTO800
  23. 30 :
  24. 35 SYSEE,20,0:POKE198,0:POKED,0:PRINT"1[146] OR 2[146] PLAYERS? [164][157][157]";
  25. 37 GETK$:IFK$=""THEN37
  26. 38 IFK$=SK$THEN800
  27. 39 P=ASC(K$)-48:IFP<1ORP>2THEN37
  28. 40 PRINTP
  29. 41 LL=21:O=1:GOSUB600:IFP=1THEN50
  30. 42 LL=22:O=2:GOSUB600:IFP$(2)=P$(1)THEN41
  31. 43 SYSEE,23,0:POKE198,0:PRINT"[198][146]EW STICKS OR [205][146]ANY STICKS? ";
  32. 45 GETK$:IFK$=SK$THEN800
  33. 46 IFK$<>"F"ANDK$<>"M"THEN45
  34. 47 PRINTK$:SQ=0:IFK$="M"THENSQ=1
  35. 48 GOTO70
  36. 50 SYSEE,22,0
  37. 52 PRINT"PLEASE SELECT AN OPPONENT? [164]"
  38. 53 PRINT" [205][146]ENKAURE (EASY)              [196][146]JEDEFRE"
  39. 56 PRINT" [203][146]HUFU             [211][146]NEFRU (IMPOSSIBLE)";
  40. 60 POKE198,0:S=-1
  41. 61 GETK$:IFK$="M"THENS=0
  42. 62 IFK$="D"THENS=1
  43. 63 IFK$="K"THENS=2
  44. 64 IFK$="S"THENS=3
  45. 65 IFK$=SK$THEN800
  46. 66 IFS<0THEN61
  47. 68 P$(2)=P$(S+3)
  48. 69 L=7:H=10:GOSUB370:Q=K
  49. 70 :
  50. 71 FORI=1TO500:NEXT
  51. 72 IFP=2ANDSQ=0THENL=7:H=16:GOSUB370:Q=K
  52. 73 IFP=2ANDSQ=1THENL=9:H=44:GOSUB370:Q=K
  53. 74 L=3:H=Q-3:GOSUB370:M(1)=K:A=Q-K
  54. 76 L=2:H=A-1:GOSUB370:M(2)=K:M(3)=A-K
  55. 78 GOSUB380:IFX>21ORX=YORY=ZTHEN74
  56. 80 G=2:IFP=2THENL=1:H=2:GOSUB370:G=K
  57. 100 :
  58. 102 POKED,0:PRINTCL$T$;
  59. 104 IFP=1THENPRINT" LEVEL"S" COUNT"Q
  60. 106 GOSUB410:N=1:V=0
  61. 120 :
  62. 122 GOSUB440:GOSUB380:FORA=1TO800:NEXT
  63. 124 G=3-G:IFX=0ANDY=0ANDZ=0THEN160
  64. 126 ON(P=1ANDG=2)+2GOSUB240,200:GOTO120
  65. 160 :
  66. 161 POKED,6:SYSEE,9,0
  67. 162 PRINT"**"P$(G)" WINS**"
  68. 163 IFP=2ORG=2ORQ<44THEN170
  69. 164 PRINT:PRINT"WELL DONE"
  70. 165 PRINT"YOU HAVE OUTWITTED KING "P$(2)
  71. 166 IFS<3THEN170
  72. 167 PRINT"AND EARNED THE TITLE"
  73. 168 PRINT"'PHARAOH "P$(1)"'"
  74. 169 PRINT"SUPREME RULER OF THE FORTYFOUR STICKS"
  75. 170 PRINT:PRINT"[211][208][193][195][197][146]=MORE         [210][146]=RESET OPTIONS"
  76. 171 POKE198,0
  77. 172 GETK$:IFK$="R"ORK$=SK$THEN800
  78. 174 IFK$<>" "THEN172
  79. 176 IFG=1THENQ=Q+7:IFQ>44THENQ=44
  80. 178 IFG=2THENQ=Q-6:IFQ<7THEN69
  81. 180 GOTO70
  82. 200 :
  83. 202 W=0:M1=M(1):M2=M(2):M3=M(3)
  84. 204 I=0
  85. 206 IFI=0THENGOSUB430:I=20
  86. 208 IFI=5THENGOSUB440
  87. 210 B=PEEK(J(G))AND31:IFB<>31THEN214
  88. 211 GETK$:IFK$=SK$THEN800
  89. 212 NU=RND(1)
  90. 213 I=I-1:GOTO206
  91. 214 GOSUB440
  92. 216 IF(BAND1)=0ANDW=1THENGOSUB400
  93. 218 IF(BAND2)=0ANDM(N)>0THENGOSUB450
  94. 220 IF(BAND4)=0ANDW=0THENN=N-1-(N<2)*3
  95. 222 IF(BAND8)=0ANDW=0THENN=N+1+(N>2)*3
  96. 224 IF(BAND16)=0ANDW=1THENV=1:RETURN
  97. 225 IF(BAND16)=0ANDP=1ANDV=0THENV=1:RETURN
  98. 226 FORC=1TO99:NEXT:GOTO204
  99. 240 :
  100. 242 GOSUB280:IFNTHEN260
  101. 244 IFS>0AND(X=YORY=ZORZ=0)THEN248
  102. 246 L=2:H=3:GOSUB370:IFK>STHEN250
  103. 248 GOSUB300:IFNTHEN260
  104. 250 A=6:L=1
  105. 252 H=3:GOSUB370:IFM(K)=0THEN252
  106. 254 N=K:H=M(N):GOSUB370:M=K:B=H-K
  107. 256 IFS=0ORA=0THEN260
  108. 258 IFB=XORB=YORB=ZORB=0THENA=A-1:GOTO252
  109. 260 GOSUB430:FORA=1TO999:NEXT
  110. 262 FORA=1TOM:GOSUB450:NEXT:RETURN
  111. 280 :
  112. 282 N=0:IFY=1ANDZ=0THENN=R(1):M=X
  113. 284 IFX>1ANDY<2ANDZ=YTHENN=R(1):M=X-1
  114. 286 RETURN
  115. 300 :
  116. 302 FORA=1TO3:POKE251+A,M(A):NEXT
  117. 304 SYSJJ:N=PEEK(781)
  118. 306 M=M(N)-PEEK(780):RETURN
  119. 370 :
  120. 372 K=INT(RND(1)*(H-L+1)+L):RETURN
  121. 380 :
  122. 382 B=1:C=2:GOSUB388:B=2:C=3:GOSUB388
  123. 384 B=1:C=2:GOSUB388:X=M(R(1))
  124. 386 Y=M(R(2)):Z=M(R(3)):RETURN
  125. 388 IFM(R(B))>M(R(C))THEN392
  126. 390 A=R(B):R(B)=R(C):R(C)=A
  127. 392 RETURN
  128. 400 :
  129. 402 M(1)=M1:M(2)=M2:M(3)=M3
  130. 404 GOSUB410:W=0:RETURN
  131. 410 :
  132. 412 POKED,6:FORE=1TO3:IFM(E)=0THEN418
  133. 414 FORF=1TOM(E)
  134. 416 SYSEE,23-F,13*E-9:PRINTGR$:NEXT
  135. 418 NEXT:GOSUB470:RETURN
  136. 430 :
  137. 432 POKED,0:SYSEE,24,13*N-9:PRINTP$(G);:RETURN
  138. 440 :
  139. 442 SYSEE,24,13*N-9:PRINTSP$;:RETURN
  140. 450 :
  141. 452 SYSEE,23-M(N),13*N-9:PRINTSP$
  142. 454 M(N)=M(N)-1:GOSUB470:W=1:RETURN
  143. 470 :
  144. 472 POKED,6:FORF=1TO3
  145. 474 SYSEE,23,13*F-8:PRINTSTR$(M(F))" "
  146. 476 NEXT:RETURN
  147. 600 :
  148. 604 SYSEE,LL,0
  149. 610 PRINT"NAME = [164][164][164][164][164][164][164][164][164]"
  150. 614 SYSEE,LL,7:U=0:POKE198,0
  151. 618 GETK$:IFK$=""THEN618
  152. 619 IFK$=SK$THEN800
  153. 620 IFK$=CHR$(13)ANDU>0THEN630
  154. 622 IFK$=CHR$(20)THEN600
  155. 624 IFU>8ORK$<"A"ORK$>"Z"THEN618
  156. 626 PRINTK$;:U=U+1:GOTO618
  157. 630 P$(O)="":FORI=1024+LL*40+7TOI+8
  158. 631 K=PEEK(I):IFK=100ORK=32THEN633
  159. 632 P$(O)=P$(O)+CHR$(K+64)
  160. 633 NEXT:RETURN
  161. 800 :
  162. 810 POKED,0:PRINTCL$T$T$T$T$T$;
  163. 812 PRINT"   [195]OPYRIGHT 199[207] [197]DGEWORTH [211]OFTWARE."
  164. 814 PRINT" [211]NEFRU MAY BE FREELY DISTRIBUTED, BUT"
  165. 816 PRINT"MAY NOT BE AMENDED, TRANSLATED, OR SOLD."
  166. 824 POKED,7:PRINT"          *USE JOYSTICK#2*"
  167. 826 PRINT"      LEFT/RIGHT = SELECT PILE"
  168. 828 PRINT"         DOWN = TAKE STICKS"
  169. 830 PRINT"          UP = RECONSIDER"
  170. 832 PRINT"        FIRE = FINISHED MOVE":PRINT
  171. 834 POKED,6:PRINT"[215]HEN IT'S YOUR MOVE, SELECT A PILE AND"
  172. 835 PRINT"TAKE AS MANY STICKS FROM IT AS YOU WISH.";
  173. 836 PRINT"[206]ORMALLY YOU MUST TAKE AT LEAST 1 STICK"
  174. 837 PRINT"(BUT ON YOUR 1ST MOVE AGAINST A PHARAOH,";
  175. 838 PRINT"YOU MAY TAKE NONE IF YOU WISH).  [212]HE AIM";
  176. 840 PRINT"IS TO AVOID TAKING THE LAST ONE, BECAUSE";
  177. 841 PRINT"*[208][204][193][217][197][210] [215][200][207] [212][193][203][197][211] [212][200][197] [204][193][211][212] [211][212][201][195][203] [204][207][211][197][211]!*";
  178. 842 PRINT"[215]HEN YOU BEAT A PHARAOH, NEXT GAME WILL"
  179. 844 PRINT"FEATURE MORE STICKS. [212]HE AIM IS TO WIN"
  180. 846 PRINT"A 44 STICK GAME AGAINST EACH PHARAOH."
  181. 847 PRINT"[212]HIS LOOKS LIKE THE EASIEST GAME IN THE"
  182. 848 PRINT"WORLD, BUT CAN YOU CONQUER [203]ING [211]NEFRU?"
  183. 850 PRINT:POKED,0:PRINT"[211][208][193][195][197][146]=CONTINUE             [216][146]=ENDPROGRAM";
  184. 856 POKE53265,PEEK(53265)OR16
  185. 858 POKE198,0
  186. 860 GETK$:IFK$="X"ORK$=SK$THEN990
  187. 862 IFK$<>" "THEN860
  188. 900 :
  189. 901 POKED,0:PRINTCL$T$T$T$T$T$:POKED,6
  190. 907 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  191. 910 PRINT"** [210][197][214][207][204][213][212][201][207][206][193][210][217] [211][207][198][212][215][193][210][197] [198][207][210] [195]64/128**"
  192. 920 PRINT"'[197].[211].[197][193][210][212][200].1' - AN EDUCATIONAL PROGRAM"
  193. 921 PRINT" ABOUT OUR PLANET, FEATURING AMAZING"
  194. 922 PRINT" ROTATING EARTH GRAPHICS."
  195. 925 PRINT"'[197].[211].[197][193][210][212][200].2' - EXPORT ANY EARTH IMAGE"
  196. 926 PRINT" TO SOME POPULAR PAINT PROGRAMS."
  197. 930 PRINT"'[197].[211].[197][193][210][212][200].3' - DESIGN YOUR OWN PLANETS"
  198. 931 PRINT" FOR ROTATION BY E.S.EARTH.1."
  199. 935 PRINT"'[197].[211].[210][197][193][204][207][210][194][201][212]' - MANOEVER A SPACESHIP"
  200. 936 PRINT" INTO REALISTIC ORBITS AROUND SINGLE"
  201. 937 PRINT" AND DOUBLE STAR SYSTEMS."
  202. 945 PRINT" [193][204][204] [195][207][208][217][210][201][199][200][212] 199[207] [197][196][199][197][215][207][210][212][200] [211][207][198][212][215][193][210][197]"
  203. 946 PRINT"[193][204][204] 1[207][207]% [207][210][201][199][201][206][193][204] & [193][214][193][201][204][193][194][204][197] [207][206][204][217] [198][210][207][205]"
  204. 948 PRINT"[197][196][199][197][211][207][198][212][195][207], [208][207][194][207][216] 418, [215].[213][208][212][207][206], [205][193] [207]1587";
  205. 950 PRINT"[208]LEASE ASK FOR A FREE CATALOG/PRICELIST":JJ=702
  206. 970 PRINT:PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  207. 979 GOTO30
  208. 990 :
  209. 997 PRINTCL$CHR$(9)CHR$(142)
  210. 998 POKE53280,14:POKE53281,6:POKED,14
  211. 999 POKE808,237:END
  212. 6682 
  213.