Advertisement
plirof2

CSSCGC ZX BASIC cipher books pass 1235 TowerOfDeath

Jan 3rd, 2023 (edited)
1,191
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Cipher Soccer attacks
  2. https://www.dcode.fr/caesar-cipher
  3.  
  4. NOTE! *** WHen copying DELETE the empty lines between numbered lines with code***
  5.  
  6. MODULE % ramain of division :
  7. 15 REM LET a=11: LET b=4
  8. 110 REM PRINT a;"/";b;"=";a/b
  9. 120 REM PRINT a;"%";b;"=";a-(b*INT(a/b))
  10.  
  11. _______________________
  12. latest text
  13. -An enemy with beard and a fancy dress always leaves his balls exposed!
  14. -When the enemy has speciality in water then a pipe might help
  15. - A tall enemy with bad teeth will need an dental hygiene attack
  16. - A man with long feet and hand might need a woman touch
  17. -Middle earth creatures seem unbeatable! You must find a way to rule them all!
  18. - A Titan with the power to destroy half the universe will need an attack that has no end!
  19. - If you coordinate your hand and feet moves your blood flow will generate an Electro Magnetic Field. In ancient times this kind attacks were useless. In modern times they might be useful against an robitic enemy.
  20. - Kumite champions usually are trained to attack while they are blinded! Usually they don't expect their enemy to be blind too. This means they know no defence against that kind of attack!
  21. - If you Face Chuck Norris,then only god can help you!
  22.  
  23.  
  24. 10 DIM A$(10,150)
  25. 20 GO SUB 9000 :GO SUB 6000
  26. 1000 FOR i=1 TO 9
  27. 1010 LET t$=A$(i)
  28. 1020 REM PRINT A$(i)
  29. 1030 REM LET n=-3 : REM CORRECT cipher key
  30. 1035 GO SUB 5000
  31. 1040 PRINT "RULE #";i;") : ";t$
  32. 1045 NEXT i
  33. 1050 REM LET n=-1: GO SUB 5000
  34. 1060 REM PRINT a$
  35. 1100 STOP
  36.  
  37. 5000 REM cipher shift routine n=shift digits
  38. 5020 FOR m = 1 TO LEN(t$)
  39. 5030 LET t$(m) = CHR$(CODE(t$(m)) + n)
  40. 5035 IF t$(m)<" " THEN LET t$(m)="."
  41. 5040 NEXT m
  42. 5100 RETURN
  43. 6005 LET n=0
  44. 6010 INPUT "Please Enter Secret Passcode :  ";p$
  45. 6020 FOR m= 1 TO 4
  46. 6030 IF (m=1 OR m=3) THEN LET n=n+VAL(p$(m))
  47. 6040 IF (m=2 OR m=4) THEN LET n=n-VAL(p$(m))
  48. 6200 NEXT m
  49. 6210 PRINT n
  50. 6500 RETURN
  51. 9800 FOR z=1 TO 9
  52. 9810 READ A$(z)
  53. 9845 NEXT z
  54. 9910 DATA "0Dq#hqhp|#zlwk#ehdug#dqg#d#idqf|#guhvv#dozd|v#ohdyhv#klv#edoov#h{srvhg$","0Zkhq#wkh#hqhp|#kdv#vshfldolw|#lq#zdwhu#wkhq#d#slsh#pljkw#khos","0#D#wdoo#hqhp|#zlwk#edg#whhwk#zloo#qhhg#dq#ghqwdo#k|jlhqh#dwwdfn","0#D#pdq#zlwk#orqj#ihhw#dqg#kdqg#pljkw#qhhg#d#zrpdq#wrxfk","0Plggoh#hduwk#fuhdwxuhv#vhhp#xqehdwdeoh$#\rx#pxvw#ilqg#d#zd|#wr#uxoh#wkhp#doo$","0#D#Wlwdq#zlwk#wkh#srzhu#wr#ghvwur|#kdoi#wkh#xqlyhuvh#zloo#qhhg#dq#dwwdfn#wkdw#kdv#qr#hqg$","0#Li#|rx#frruglqdwh#|rxu#kdqg#dqg#ihhw#pryhv#|rxu#eorrg#iorz#zloo#jhqhudwh#dq#Hohfwur#Pdjqhwlf#Ilhog1#Lq#dqflhqw#wlphv#wklv#nlqg#dwwdfnv#zhuh#xvhohvv1#Lq#prghuq#wlphv#wkh|#pljkw#eh#xvhixo#djdlqvw#dq#urelwlf#hqhp|1","0#Nxplwh#fkdpslrqv#xvxdoo|#duh#wudlqhg#wr#dwwdfn#zkloh#wkh|#duh#eolqghg$#Xvxdoo|#wkh|#grq*w#h{shfw#wkhlu#hqhp|#wr#eh#eolqg#wrr1#Wklv#phdqv#wkh|#nqrz#qr#ghihqfh#djdlqvw#wkdw#nlqg#ri#dwwdfn$","0#Li#|rx#Idfh#Fkxfn#Qruulv/wkhq#rqo|#jrg#fdq#khos#|rx$#",""
  55. 9950 REM soccer DATA "Zkhq#d#whdp#zhduv#juhhq#vkluwv#wkh#ehvw#wdfwlf#xvxdoo|#lv#Wuldqjxodu#sod|$","Zkhq#|rx#vhh#dq#rssrqhqw#zhdulqj#zklwh#vkluwv#dqg#qdy|#eoxh#vkruwv#wkhq#wkh#6060505#v|vwhp#vkrxog#frph#lq#plqg$","Zkhq#wkh#sod|huv#zhdu#eoxh#dqg#zklwh#forwkhv#d#frxqwhu#dwwdfn#zloo#pdnh#vxuh#|rx#zloo#zlq$","Sod|huv#zhdu#uhg#dqg#zklwh#yhuwlfdo#vwulshg#vkluwv/#eoxh#vkruwv/#dqg#eoxh#dqg#uhg#vrfnv#wklv#vkrz#zhdnqhvv#lq#wkh#70705#v|vwhp#dwwdfn$","Zkhq#wkh#sod|huv#zhdu#eoxh#dqg#uhg#frorxuv$#nhhs#lq#plqg#wkh#7070404#v|vwhp#dwwdfn$","Zkhq#wkh#sod|huv#zhdu#eoxh#forwkhv#wkh#zlvh#phq#djuhhg#wkdw#|rx#zloo#qhhg#70507#v|vwhp#ru#}rqh#ghihqfh$","Li#|rx#vhh#Uhg#dqg#Eodfn#froruv#wkhq#xvh#Fdwhqdfflr#doo#wkh#zd|$","Zkhq#wkh#sod|huv#zhdu#zklwh#dqg#uhg#forwkhv#wkhq#lwv#Sdun#wkh#Exv#wlph#xqwlo#|rx#pdqdjh#wr#ilqg#d#zkroh#lq#wkh#ghihqvlyh#olqh$","Rqo|#zklwh#phdqv#dwwdfn#zlwk#S|udplg#irupdwlrq$","Zkhq#wkh#sod|huv#zhdu#uhg#wkhq#uhphpehu#wkh#rog#jrg#qdphg#0Wlnl#Wdnd0#ru#xvh#wkh#70606#v|vwhp$","Zkhq#wkh#sod|huv#zhdu#vn|#eoxh#dqg#zklwh#|rx#vkrxog#dwwdfn#zlwk#qr#rwkhu#wkdq#wkh#60607#v|vwhp$"
  56.  
  57. 9990 RETURN
  58.  
  59.  
  60. ______________________
  61. 1 REM SOCCER ver 3 On working - password 1235 digit string then ad sustract string so result= -3
  62. 2 REM dcode.fr/caesar-cipher settings : 3 , Use the ASCII Table (0-127) as Alphabet
  63.  
  64. 10 DIM A$(10,150)
  65. 20 GOSUB 9000 :GOSUB 6000
  66. 1000 FOR i=1 to 9
  67. 1010 LET t$=A$(i)
  68. 1020 REM PRINT A$(i)
  69. 1030 REM LET n=-3 : REM CORRECT cipher key
  70. 1035 GOSUB 5000
  71. 1040 PRINT "RULE #";i;") : ";t$
  72. 1045 NEXT i
  73. 1050 REM LET n=-1: gosub 5000
  74. 1060 REM PRINT a$
  75. 1100 STOP
  76.  
  77.  
  78. 5020 FOR m = 1 TO LEN(t$)
  79. 5025 REM LET b$=CHR$(CODE(t$(m)) + n)
  80. 5027 REM IF b$<"a" THEN CONTINUE
  81. 5030 LET t$(m) = CHR$(CODE(t$(m)) + n)
  82. 5035 IF t$(m)<" " THEN LET t$(m)="."
  83. 5040 NEXT m
  84. 5100 RETURN
  85.  
  86.  
  87. 6000 REM get 4 digit string and create n (or t for tests)
  88. 6005 LET n=0
  89. 6010 INPUT "Please Enter Secret Passcode :  ";p$
  90. 6020 FOR m= 1 TO 4
  91. 6030 IF (m=1 OR m=3)THEN LET n=n+VAL(p$(m))
  92. 6040 IF (m=2 OR m=4)THEN LET n=n-VAL(p$(m))
  93. 6200 NEXT m
  94. 6210 PRINT n
  95. 6500 RETURN
  96.  
  97.  
  98. 9800 FOR z=1 to 9
  99. 9810 READ A$(z)
  100. 9845 NEXT z
  101.  
  102. 9900 DATA "Zkhq#d#whdp#zhduv#juhhq#vkluwv#wkh#ehvw#wdfwlf#xvxdoo|#lv#Wuldqjxodu#sod|$","Zkhq#|rx#vhh#dq#rssrqhqw#zhdulqj#zklwh#vkluwv#dqg#qdy|#eoxh#vkruwv#wkhq#wkh#6060505#v|vwhp#vkrxog#frph#lq#plqg$","Zkhq#wkh#sod|huv#zhdu#eoxh#dqg#zklwh#forwkhv#d#frxqwhu#dwwdfn#zloo#pdnh#vxuh#|rx#zloo#zlq$","Sod|huv#zhdu#uhg#dqg#zklwh#yhuwlfdo#vwulshg#vkluwv/#eoxh#vkruwv/#dqg#eoxh#dqg#uhg#vrfnv#wklv#vkrz#zhdnqhvv#lq#wkh#70705#v|vwhp#dwwdfn$","Zkhq#wkh#sod|huv#zhdu#eoxh#dqg#uhg#frorxuv$#nhhs#lq#plqg#wkh#7070404#v|vwhp#dwwdfn$","Zkhq#wkh#sod|huv#zhdu#eoxh#forwkhv#wkh#zlvh#phq#djuhhg#wkdw#|rx#zloo#qhhg#70507#v|vwhp#ru#}rqh#ghihqfh$","Li#|rx#vhh#Uhg#dqg#Eodfn#froruv#wkhq#xvh#Fdwhqdfflr#doo#wkh#zd|$","Zkhq#wkh#sod|huv#zhdu#zklwh#dqg#uhg#forwkhv#wkhq#lwv#Sdun#wkh#Exv#wlph#xqwlo#|rx#pdqdjh#wr#ilqg#d#zkroh#lq#wkh#ghihqvlyh#olqh$","Rqo|#zklwh#phdqv#dwwdfn#zlwk#S|udplg#irupdwlrq$","Zkhq#wkh#sod|huv#zhdu#uhg#wkhq#uhphpehu#wkh#rog#jrg#qdphg#0Wlnl#Wdnd0#ru#xvh#wkh#70606#v|vwhp$","Zkhq#wkh#sod|huv#zhdu#vn|#eoxh#dqg#zklwh#|rx#vkrxog#dwwdfn#zlwk#qr#rwkhu#wkdq#wkh#60607#v|vwhp$"
  103.  
  104.  
  105. 9990 RETURN
  106.  
  107. _______
  108.  
  109. 10 DIM A$(10,30)
  110. 20 LET A$(1)="aaa"
  111.  
  112. 99 rem LET A$(1)="Zkhq d whdp zhduv juhhq vkluwv wkh ehvw wdfwlf xvxdoob lv Wuldqjxodu sodb!
  113. 110 LET A$(1)="Zkhq brx vhh dq rssrqhqw zhdulqj zklwh vkluwv dqg qdyb eoxh vkruwv wkhq wkh 6-6-5-5 vbvwhp vkrxog frph lq plqg!"
  114. 120 LET A$(2)="Zkhq wkh sodbhuv zhdu eoxh dqg zklwh forwkhv d frxqwhu dwwdfn zloo pdnh vxuh brx zloo zlq!"
  115. 130 LET A$(3)="Sodbhuv zhdu uhg dqg zklwh yhuwlfdo vwulshg vkluwv, eoxh vkruwv, dqg eoxh dqg uhg vrfnv wklv vkrz zhdnqhvv lq wkh 7-7-5 vbvwhp dwwdfn!"
  116. 140 LET A$(4)="Zkhq wkh sodbhuv zhdu eoxh dqg uhg frorxuv! nhhs lq plqg wkh 7-7-4-4 vbvwhp dwwdfn!"
  117. 150 LET A$(5)="Zkhq wkh sodbhuv zhdu eoxh forwkhv wkh zlvh phq djuhhg wkdw brx zloo qhhg 7-5-7 vbvwhp ru crqh ghihqfh!"
  118. 160 LET A$(6)="Li brx vhh Uhg dqg Eodfn froruv wkhq xvh Fdwhqdfflr doo wkh zdb!"
  119. 170 LET A$(7)="Zkhq wkh sodbhuv zhdu zklwh dqg uhg forwkhv wkhq lwv Sdun wkh Exv wlph xqwlo brx pdqdjh wr ilqg d zkroh lq wkh ghihqvlyh olqh!"
  120. 180 LET A$(8)="Rqob zklwh phdqv dwwdfn zlwk Sbudplg irupdwlrq!"
  121. 190 LET A$(9)="Zkhq wkh sodbhuv zhdu uhg wkhq uhphpehu wkh rog jrg qdphg -Wlnl Wdnd- ru xvh wkh 7-6-6 vbvwhp!"
  122. 200 LET A$(10)="Zkhq wkh sodbhuv zhdu vnb eoxh dqg zklwh brx vkrxog dwwdfn zlwk qr rwkhu wkdq wkh 6-6-7 vbvwhp!"
  123.  
  124. 999 REM LET a$="Hello spectrum computing.AAA ZZZ"
  125. 1000 FOR i=1 to 9
  126. 1010 LET t$=A$(i)
  127. 1020 PRINT A$(i)
  128. 1030 LET n=1 :gosub 5000
  129. 1040 PRINT t$
  130. 1045 NEXT i
  131. 1050 REM LET n=-1: gosub 5000
  132. 1060 REM PRINT a$
  133. 1100 STOP
  134. 5020 FOR m = 1 TO LEN(t$)
  135. 5030 LET t$(m) = CHR$(CODE(t$(m)) + n)
  136. 5040 NEXT m
  137. 5100 RETURN
  138. ____________________
  139.  
  140.  
  141.  
  142.  
  143.  
  144. ___________________
  145. When a team wears green shirts the best tactic usually is Triangular play!
  146. When you see an opponent wearing white shirts and navy blue shorts then the 3-3-2-2 system should come in mind!
  147. When the players wear blue and white clothes a counter attack will make sure you will win!
  148. Players wear red and white vertical striped shirts, blue shorts, and blue and red socks this show weakness in the 4-4-2 system attack!
  149. When the players wear blue and red colours! keep in mind the 4-4-1-1 system attack!
  150. When the players wear blue clothes the wise men agreed that you will need 4-2-4 system or zone defence!
  151. If you see Red and Black colors then use Catenaccio all the way!
  152. When the players wear white and red clothes then its Park the Bus time until you manage to find a whole in the defensive line!
  153. Only white means attack with Pyramid formation!
  154. When the players wear red then remember the old god named -Tiki Taka- or use the 4-3-3 system!
  155. When the players wear sky blue and white you should attack with no other than the 3-3-4 system!
  156.  
  157.  
  158. +1 shift
  159.     Xifo b ufbn xfbst hsffo tijsut uif cftu ubdujd vtvbmmz jt Usjbohvmbs qmbz!
  160. Xifo zpv tff bo pqqpofou xfbsjoh xijuf tijsut boe obwz cmvf tipsut uifo uif 4-4-3-3 tztufn tipvme dpnf jo njoe!
  161. Xifo uif qmbzfst xfbs cmvf boe xijuf dmpuift b dpvoufs buubdl xjmm nblf tvsf zpv xjmm xjo!
  162. Qmbzfst xfbs sfe boe xijuf wfsujdbm tusjqfe tijsut, cmvf tipsut, boe cmvf boe sfe tpdlt uijt tipx xfbloftt jo uif 5-5-3 tztufn buubdl!
  163. Xifo uif qmbzfst xfbs cmvf boe sfe dpmpvst! lffq jo njoe uif 5-5-2-2 tztufn buubdl!
  164. Xifo uif qmbzfst xfbs cmvf dmpuift uif xjtf nfo bhsffe uibu zpv xjmm offe 5-3-5 tztufn ps apof efgfodf!
  165. Jg zpv tff Sfe boe Cmbdl dpmpst uifo vtf Dbufobddjp bmm uif xbz!
  166. Xifo uif qmbzfst xfbs xijuf boe sfe dmpuift uifo jut Qbsl uif Cvt ujnf voujm zpv nbobhf up gjoe b xipmf jo uif efgfotjwf mjof!
  167. Pomz xijuf nfbot buubdl xjui Qzsbnje gpsnbujpo!
  168. Xifo uif qmbzfst xfbs sfe uifo sfnfncfs uif pme hpe obnfe -Ujlj Ublb- ps vtf uif 5-4-4 tztufn!
  169. Xifo uif qmbzfst xfbs tlz cmvf boe xijuf zpv tipvme buubdl xjui op puifs uibo uif 4-4-5 tztufn!
  170.  
  171. +3shift
  172.     Zkhq d whdp zhduv juhhq vkluwv wkh ehvw wdfwlf xvxdoob lv Wuldqjxodu sodb!
  173. Zkhq brx vhh dq rssrqhqw zhdulqj zklwh vkluwv dqg qdyb eoxh vkruwv wkhq wkh 6-6-5-5 vbvwhp vkrxog frph lq plqg!
  174. Zkhq wkh sodbhuv zhdu eoxh dqg zklwh forwkhv d frxqwhu dwwdfn zloo pdnh vxuh brx zloo zlq!
  175. Sodbhuv zhdu uhg dqg zklwh yhuwlfdo vwulshg vkluwv, eoxh vkruwv, dqg eoxh dqg uhg vrfnv wklv vkrz zhdnqhvv lq wkh 7-7-5 vbvwhp dwwdfn!
  176. Zkhq wkh sodbhuv zhdu eoxh dqg uhg frorxuv! nhhs lq plqg wkh 7-7-4-4 vbvwhp dwwdfn!
  177. Zkhq wkh sodbhuv zhdu eoxh forwkhv wkh zlvh phq djuhhg wkdw brx zloo qhhg 7-5-7 vbvwhp ru crqh ghihqfh!
  178. Li brx vhh Uhg dqg Eodfn froruv wkhq xvh Fdwhqdfflr doo wkh zdb!
  179. Zkhq wkh sodbhuv zhdu zklwh dqg uhg forwkhv wkhq lwv Sdun wkh Exv wlph xqwlo brx pdqdjh wr ilqg d zkroh lq wkh ghihqvlyh olqh!
  180. Rqob zklwh phdqv dwwdfn zlwk Sbudplg irupdwlrq!
  181. Zkhq wkh sodbhuv zhdu uhg wkhq uhphpehu wkh rog jrg qdphg -Wlnl Wdnd- ru xvh wkh 7-6-6 vbvwhp!
  182. Zkhq wkh sodbhuv zhdu vnb eoxh dqg zklwh brx vkrxog dwwdfn zlwk qr rwkhu wkdq wkh 6-6-7 vbvwhp!
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement