API tools faq
paste
Advertisement
Guest User

cyanoid

a guest
Jul 9th, 2012
91
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.58 KB | None | 0 0
raw download clone embed print report
  1. :.CYANOID
  2. :det(54)→ºCA
  3. :real(ºCA)
  4. :DiagnosticOff
  5. :
  6. :[3FFFFFFFFFFFFFFFFFFFFFFC]→GDB4
  7. :[7FFFFFFFFFFFFFFFFFFFFFFE]
  8. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  9. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  10. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  11. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  12. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  13. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  14. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  15. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  16. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  17. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  18. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  19. :[E1FFF03C107108EF1EC3870F]
  20. :[E1CFF87C387188EF1EC3870F]
  21. :[E1C3F87C0071C0EFFEC3870F]
  22. :[E083F8780031E0EFFEC3860F]
  23. :[F007F8780031E0EFFEC3801F]
  24. :[F807F8787C31F0E7FCC3803F]
  25. :[FC1FF870FE11F8E000C3807F]
  26. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  27. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  28. :[FFFFFFFE6F3919E71ABB339F]
  29. :[FFFFFFFDEED7E8EBEABAD57F]
  30. :[FFFFFFFE66338AE38ABA359F]
  31. :[FFFFFFFFAEF76AED6AAAF5EF]
  32. :[FFFFFFFC73379AE19CD7351F]
  33. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  34. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  35. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  36. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  37. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  38. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  39. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  40. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  41. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  42. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  43. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  44. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  45. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  46. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  47. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  48. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  49. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  50. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  51. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  52. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  53. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  54. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  55. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  56. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  57. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  58. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  59. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  60. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  61. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  62. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  63. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  64. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  65. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  66. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  67. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  68. :[7FFFFFFFFFFFFFFFFFFFFFFE]
  69. :[3FFFFFFFFFFFFFFFFFFFFFFC]
  70. :
  71. :
  72. :[3FFFFFFFFFFFFFFFFFFFFFFC]→GDB5
  73. :[7FFFFFFFFFFFFFFFFFFFFFFE]
  74. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  75. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  76. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  77. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  78. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  79. :[FC1F078383F1F8E000C3807F]
  80. :[F807830701F0F8E7FCC3803F]
  81. :[F007C30F01F078EFF8C3801F]
  82. :[E083C00F01F078EFF2C3860F]
  83. :[E1CFE01E10F038EFE6C3870F]
  84. :[E1FFF03E10F118EF0EC3870F]
  85. :[E1FFF03C107108EF1EC3870F]
  86. :[E1CFF87C387188EF1EC3870F]
  87. :[E1C3F87C0071C0EFFEC3870F]
  88. :[E083F8780031E0EFFEC3860F]
  89. :[F007F8780031E0EFFEC3801F]
  90. :[F807F8787C31F0E7FCC3803F]
  91. :[FC1FF870FE11F8E000C3807F]
  92. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  93. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  94. :[FFFFFFFE6F3919E71ABB339F]
  95. :[FFFFFFFDEED7E8EBEABAD57F]
  96. :[FFFFFFFE66338AE38ABA359F]
  97. :[FFFFFFFFAEF76AED6AAAF5EF]
  98. :[FFFFFFFC73379AE19CD7351F]
  99. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  100. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  101. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  102. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  103. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  104. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  105. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  106. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  107. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  108. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  109. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  110. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  111. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  112. :[FFE378D7FFFFFFFFFFFFFFFF]
  113. :[FFEB7AD7FFFFFFFFFFFFFFFF]
  114. :[FFE378D7FFFFFFFFFFFFFFFF]
  115. :[FFEF7AEFFFFFFFFFFFFFFFFF]
  116. :[FFEF7AEFFFFFFFFFFFFFFFFF]
  117. :[FFEF1AEFFFFFFFFFFFFFFFFF]
  118. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  119. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  120. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  121. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  122. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  123. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  124. :[FFE318D47FFFFFFFFFFFFFFF]
  125. :[FFEB5AD6FFFFFFFFFFFFFFFF]
  126. :[FFE33AD6FFFFFFFFFFFFFFFF]
  127. :[FFEB5AD6FFFFFFFFFFFFFFFF]
  128. :[FFEB5AD6FFFFFFFFFFFFFFFF]
  129. :[FFEB18C6FFFFFFFFFFFFFFFF]
  130. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  131. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  132. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  133. :[FFFFFFFFFFFFFFFFFFFFFFFF]
  134. :[7FFFFFFFFFFFFFFFFFFFFFFE]
  135. :[3FFFFFFFFFFFFFFFFFFFFFFC]
  136. :ClrDraw{^r}{^r}
  137. :conj(GDB4,{L3},768)
  138. :conj(GDB5,{L6},768)
  139. :39→{r5}
  140. :Repeat getKey(15)
  141. :If (getKey(1)) or (getKey(4))
  142. :Pause 100
  143. :If {r5}=39
  144. :Pt-Off(60,39,Pic1)
  145. :51→{r5}
  146. :Else
  147. :39→{r5}
  148. :Pt-Off(60,51,Pic1)
  149. :End
  150. :End
  151. :If getKey(54)
  152. :If {r5}=39
  153. :Goto BEGG
  154. :Else
  155. :Goto CC
  156. :End
  157. :End
  158. :Pt-Off(60,{r5},Pic1+8)
  159. :DispGraph{^r}{^r}
  160. :End
  161. :Goto CC
  162. :Lbl BEGG
  163. :DeltaList(0,2,4,6,8,10)→GDB1
  164. :DeltaList(1,3,5,7,9,11)→GDB2
  165. :0→{r3}
  166. :1→{r2}
  167. :10→{r1}
  168. :ºA-2→ºCE
  169. :ºA-4→ºCF
  170. :{L1}→CE
  171. :{L1}+2→CF
  172. :10→{r1}
  173. :2→S
  174. :1→T→{r4}
  175. :Lbl BEG
  176. :8→A→B→D→L→G
  177. :80→C→E
  178. :40→F→H→J→K→X
  179. :32→Y
  180. :56→I
  181. :[FFFFFFFFFFFFFFFF]→Pic1
  182. :[FFC3A1999981C3FF]
  183. :[FFD391999981C3FF]
  184. :[FFC385999981C3FF]
  185. :[FFC3819F9981C3FF]
  186. :[FFC381999985C3FF]
  187. :[FFC381999989CBFF]
  188. :[FFC3819999A1C3FF]
  189. :[FFC38199F981C3FF]
  190. :
  191. :[387C86D284783828]
  192. :[FFFF87D387FFFFFF]
  193. :[3C7EFFBF423C1C14]
  194. :[FFFFFFBFC3FFFFFF]
  195. :[3C7EFFFD423C3828]
  196. :[FFFFFFFDC3FFFFFF]
  197. :[3C7EC3A9423C1C14]
  198. :[FFFFC3A9C3FFFFFF]
  199. :[3C7EC395423C3828]
  200. :[FFFFC395C3FFFFFF]
  201. :[387C86D284783848]
  202. :[387C86D284783824]
  203. :[387CC296423C3848]
  204. :[FFFFC397C3FFFFFF]
  205. :[387CC296423C3824]
  206. :[387CC296423C3828]
  207. :[FF93FFC9C9FFA5FF]
  208. :[7EEDFFB7B7FFDB7E]
  209. :[FFC0A0908B878F8F]
  210. :[FFBFD0E0C3C4CAC9]
  211. :[FF000000FFFFFFFF]
  212. :[FFFF0000FF0000FF]
  213. :[8F8F8F8F8F8F8F8F]
  214. :[C9C9C9C9C9C9C9C9]
  215. :[F1F1F1F1F1F1F1F1]
  216. :[9393939393939393]
  217. :[FFFFFFFF000000FF]
  218. :[FF0000FF0000FFFF]
  219. :[F1F1E1D1090503FF]
  220. :[935323C30303FDFF]
  221. :[8F8F878B90A0C0FF]
  222. :[C9CAC4C3C0C0BFFF]
  223. :[FF030509D1E1F1F1]
  224. :[FFFD0303C3235393]
  225. :[00001C2AEB7BFBFF]
  226. :[FFFFFFE3E3A2E200]
  227. :.[002418423C817E00]
  228. :[0000C3FF7E3C0000]
  229. :.[007E813C42182400]
  230. :[00003C7EFFC30000]
  231. :.[04124A2A2A4A1204]
  232. :[30381C1C1C1C3830]
  233. :.[2048525454524820]
  234. :[0C1C383838381C0C]
  235. :88→W+8→Z
  236. :ClrDraw{^r}{^r}
  237. :ref(1,1,94,62){^r}
  238. :For(Q,0,2)
  239. :For(P,0,2)
  240. :Pt-Off((4*Q)*8+16,(2*P)*8+16,Pic1+200)
  241. :Pt-Off((4*Q)*8+16,(2*P)*8+16,Pic1+208){^r}
  242. :End
  243. :End
  244. :For(Q,0,2)
  245. :For(P,0,1)
  246. :Pt-Off((4*P)*8+32,(2*Q)*8+8,Pic1+200)
  247. :Pt-Off((4*P)*8+32,(2*Q)*8+8,Pic1+208){^r}
  248. :End
  249. :End
  250. :Pt-Off(0,0,Pic1+216)
  251. :Pt-Off(0,0,Pic1+224){^r}
  252. :Pt-Off(0,56,Pic1+312)
  253. :Pt-Off(0,56,Pic1+320){^r}
  254. :Pt-Off(88,56,Pic1+296)
  255. :Pt-Off(88,56,Pic1+304){^r}
  256. :Pt-Off(88,0,Pic1+328)
  257. :Pt-Off(88,0,Pic1+336){^r}
  258. :For(Q,0,1)
  259. :For(P,1,10)
  260. :Pt-Off(P*8,Q*56,Pic1+(Q*48)+232)
  261. :Pt-Off(P*8,Q*56,Pic1+(Q*48)+240){^r}
  262. :End
  263. :End
  264. :For(Q,0,1)
  265. :For(P,1,6)
  266. :Pt-Off(Q*88,P*8,Pic1+(Q*16)+248)
  267. :Pt-Off(Q*88,P*8,Pic1+(Q*16)+256){^r}
  268. :End
  269. :End
  270. :GetCalc("vCYAN",768)→CE
  271. :GetCalc("vCYANO",768)→CF
  272. :conj({L6},CE)
  273. :conj({L3},CF)
  274. :8→U
  275. :1→V
  276. :Repeat getKey(15)
  277. :
  278. :Lbl CD
  279. :If getKey(15)
  280. :Goto CC
  281. :End
  282. :0→R
  283. :If rand^{r1}
  284. :If rand^2-1
  285. :.HORIZON
  286. :For(Q,0,T-1)
  287. :{Q+GDB1}→P
  288. :If rand^2-1
  289. :If (pxl-Test({ºCA+(P*2)}{^r},{ºCA+((P+1)*2)}{^r}+8)=0) and (pxl-Test({ºCA+(P*2)}{^r}+7,{ºCA+((P+1)*2)}{^r}+8)=0)
  290. :{ºCA+((P+1)*2)}{^r}+1→{ºCA+((P+1)*2)}{^r}
  291. :End
  292. :Else
  293. :If (pxl-Test({ºCA+(P*2)}{^r},{ºCA+((P+1)*2)}{^r}-1)=0) and (pxl-Test({ºCA+(P*2)}{^r}+7,{ºCA+((P+1)*2)}{^r}-1)=0)
  294. :{ºCA+((P+1)*2)}{^r}-1→{ºCA+((P+1)*2)}{^r}
  295. :End
  296. :End
  297. :End
  298. :Else
  299. :.VERT
  300. :For(Q,0,T-1)
  301. :{Q+GDB2}→P
  302. :If rand^2-1
  303. :If (pxl-Test({ºCA+((P-1)*2)}{^r}+8,{ºCA+(P*2)}{^r})=0) and (pxl-Test({ºCA+((P-1)*2)}{^r}+8,{ºCA+(P*2)}{^r}+7)=0)
  304. :{ºCA+((P-1)*2)}{^r}+1→{ºCA+((P-1)*2)}{^r}
  305. :End
  306. :Else
  307. :If (pxl-Test({ºCA+((P-1)*2)}{^r}-1,{ºCA+(P*2)}{^r})=0) and (pxl-Test({ºCA+((P-1)*2)}{^r}-1,{ºCA+(P*2)}{^r}+7)=0)
  308. :{ºCA+((P-1)*2)}{^r}-1→{ºCA+((P-1)*2)}{^r}
  309. :End
  310. :End
  311. :End
  312. :End
  313. :Else
  314. :For(P,0,{r3})
  315. :For(Q,0,T-1)
  316. :{Q+GDB1}→O
  317. :If ({ºCA+((O+1)*2)}{^r}>Y) and (pxl-Test({ºCA+(O*2)}{^r},{ºCA+((O+1)*2)}{^r}-1)=0) and (pxl-Test({ºCA+(O*2)}{^r}+7,{ºCA+((O+1)*2)}{^r}-1)=0)
  318. :{ºCA+((O+1)*2)}{^r}--
  319. :End
  320. :If ({ºCA+((O+1)*2)}{^r}<Y) and (pxl-Test({ºCA+(O*2)}{^r},{ºCA+((O+1)*2)}{^r}+8)=0) and (pxl-Test({ºCA+(O*2)}{^r}+7,{ºCA+((O+1)*2)}{^r}+8)=0)
  321. :{ºCA+((O+1)*2)}{^r}++
  322. :End
  323. :If ({ºCA+(O*2)}{^r}>X) and (pxl-Test({ºCA+(O*2)}{^r}-1,{ºCA+((O+1)*2)}{^r})=0) and (pxl-Test({ºCA+(O*2)}{^r}-1,{ºCA+((O+1)*2)}{^r}+7)=0)
  324. :{ºCA+(O*2)}{^r}--
  325. :End
  326. :If ({ºCA+(O*2)}{^r}<X) and (pxl-Test({ºCA+(O*2)}{^r}+8,{ºCA+((O+1)*2)}{^r})=0) and (pxl-Test({ºCA+(O*2)}{^r}+8,{ºCA+((O+1)*2)}{^r}+7)=0)
  327. :{ºCA+(O*2)}{^r}++
  328. :End
  329. :End
  330. :End
  331. :End
  332. :If (getKey(1)) and ((pxl-Test(X,Y+8)=0) and ((pxl-Test(X+7,Y+8)=0)
  333. :1→S
  334. :Y+1→Y
  335. :If V=2
  336. :1→V
  337. :120→W+8→Z
  338. :Else
  339. :2→V
  340. :136→W+8→Z
  341. :End
  342. :End
  343. :If (getKey(4)) and ((pxl-Test(X,Y-1)=0) and ((pxl-Test(X+7,Y-1)=0)
  344. :2→S
  345. :Y-1→Y
  346. :If V=2
  347. :1→V
  348. :88→W+8→Z
  349. :Else
  350. :2→V
  351. :104→W+8→Z
  352. :End
  353. :End
  354. :If (getKey(3)) and ((pxl-Test(X+8,Y)=0) and ((pxl-Test(X+8,Y+7)=0)
  355. :3→S
  356. :X+1→X
  357. :176→Z
  358. :If V=4
  359. :1→V
  360. :168→W
  361. :Else
  362. :V+1→V
  363. :If (V=2) or (V=4)
  364. :192→W
  365. :End
  366. :If V=3
  367. :184→W
  368. :End
  369. :End
  370. :End
  371. :If (getKey(2)) and ((pxl-Test(X-1,Y)=0) and ((pxl-Test(X-1,Y+7)=0)
  372. :4→S
  373. :X-1→X
  374. :80→Z
  375. :If V=4
  376. :1→V
  377. :152→W
  378. :Else
  379. :V+1→V
  380. :If (V=2) or (V=4)
  381. :72→W
  382. :End
  383. :If V=3
  384. :160→W
  385. :End
  386. :End
  387. :End
  388. :U+2→U
  389. :If U=64
  390. :8→U
  391. :End
  392. :If getKey(54)
  393. :!If θ
  394. :1→θ
  395. :1→R
  396. :End
  397. :Else
  398. :0→θ
  399. :End
  400. :If getKey(56)
  401. :Goto CH
  402. :End
  403. :ClrDraw{^r}{^r}
  404. :conj(CE)
  405. :conj(CF,{L3})
  406. :Pt-Off(X,Y,Pic1+W)
  407. :Pt-Off(X,Y,Pic1+Z){^r}
  408. :Pt-Off(A,B,U and {E}F8+Pic1)
  409. :If T≥2
  410. :Pt-Off(C,D,U and {E}F8+Pic1)
  411. :End
  412. :If T≥3
  413. :Pt-Off(E,F,U and {E}F8+Pic1)
  414. :End
  415. :If T≥4
  416. :Pt-Off(G,H,U and {E}F8+Pic1)
  417. :End
  418. :If T≥5
  419. :Pt-Off(I,J,U and {E}F8+Pic1)
  420. :End
  421. :If T≥6
  422. :Pt-Off(K,L,U and {E}F8+Pic1)
  423. :End
  424. :If R=1
  425. :If S=1
  426. :Pt-On(X,Y+8,Pic1+360)
  427. :Pt-On(X,Y+8,Pic1){^r}
  428. :End
  429. :If S=2
  430. :Pt-On(X,Y-8,Pic1+368)
  431. :Pt-On(X,Y-8,Pic1){^r}
  432. :End
  433. :If S=3
  434. :Pt-On(X+8,Y,Pic1+376)
  435. :Pt-On(X+8,Y,Pic1){^r}
  436. :End
  437. :If S=4
  438. :Pt-On(X-8,Y,Pic1+384)
  439. :Pt-On(X-8,Y,Pic1){^r}
  440. :End
  441. :For(P,0,T-1)
  442. :{GDB1+P}*2→N
  443. :({GDB1+P}+1)*2→M
  444. :If T=0
  445. :Goto CH
  446. :End
  447. :If S=1
  448. :If (abs(X-{ºCA+N}{^r})≤7) and (abs((Y+8)-{ºCA+M}{^r})≤7)
  449. :T--
  450. :{ºCA+N}{^r}→CE
  451. :sub(CB)
  452. :End
  453. :End
  454. :If S=2
  455. :If (abs(X-{ºCA+N}{^r})≤7) and (abs((Y-8)-{ºCA+M}{^r})≤7)
  456. :T--
  457. :{ºCA+N}{^r}→CE
  458. :sub(CB)
  459. :End
  460. :End
  461. :If S=3
  462. :If (abs((X+8)-{ºCA+N}{^r})≤7) and (abs(Y-{ºCA+M}{^r})≤7)
  463. :T--
  464. :{ºCA+N}{^r}→CE
  465. :sub(CB)
  466. :End
  467. :End
  468. :If S=4
  469. :If (abs((X-8)-{ºCA+N}{^r})≤7) and (abs(Y-{ºCA+M}{^r})≤7)
  470. :T--
  471. :{ºCA+N}{^r}→CE
  472. :sub(CB)
  473. :End
  474. :End
  475. :End
  476. :End
  477. :DispGraph{^r}{^r}
  478. :For(P,0,(T-1))
  479. :{GDB1+P}*2→N
  480. :({GDB1+P}+1)*2→M
  481. :If (abs(X-{ºCA+N}{^r})≤7) and (abs(Y-{ºCA+M}{^r})≤7)
  482. :For(P,0,5)
  483. :Vertical +
  484. :DispGraph{^r}{^r}
  485. :Vertical -
  486. :DispGraph{^r}{^r}
  487. :Horizontal -
  488. :DispGraph{^r}{^r}
  489. :Horizontal +
  490. :DispGraph{^r}{^r}
  491. :End
  492. :Pt-Off(X,Y,Pic1+344)
  493. :Pt-Off(X,Y,Pic1+352){^r}
  494. :For(P,0,70)
  495. :DispGraph{^r}{^r}
  496. :End
  497. :sub(END)
  498. :Goto ENDB
  499. :End
  500. :End
  501. :End
  502. :Goto CC
  503. :
  504. :Lbl CB
  505. :If {ºCA+N}{^r}=A
  506. :C→A
  507. :D→B
  508. :E→C
  509. :F→D
  510. :G→E
  511. :H→F
  512. :I→G
  513. :J→H
  514. :K→I
  515. :L→J
  516. :0→K
  517. :0→L
  518. :Return
  519. :End
  520. :If {ºCA+N}{^r}=C
  521. :E→C
  522. :F→D
  523. :G→E
  524. :H→F
  525. :I→G
  526. :J→H
  527. :K→I
  528. :L→J
  529. :Return
  530. :End
  531. :If {ºCA+N}{^r}=E
  532. :G→E
  533. :H→F
  534. :I→G
  535. :J→H
  536. :K→I
  537. :L→J
  538. :Return
  539. :End
  540. :If {ºCA+N}{^r}=G
  541. :I→G
  542. :J→H
  543. :K→I
  544. :L→J
  545. :Return
  546. :End
  547. :If {ºCA+N}{^r}=I
  548. :K→I
  549. :L→J
  550. :Return
  551. :End
  552. :Return
  553. :
  554. :Lbl CH
  555. :ref(0,0,96,64)
  556. :For(P,0,35)
  557. :DispGraph
  558. :End
  559. :{r4}+1→T→{r4}
  560. :If T=7
  561. :1→T→{r4}
  562. :{r2}++
  563. :End
  564. :If ({r2}=2) or ({r2}=7)
  565. :6→{r1}
  566. :End
  567. :If ({r2}=3) or ({r2}=8)
  568. :3→{r1}
  569. :End
  570. :If ({r2}=4) or ({r2}=9)
  571. :2→{r1}
  572. :End
  573. :If ({r2}=5) or ({r2}=10)
  574. :1→{r1}
  575. :End
  576. :If {r2}>5
  577. :1→{r3}
  578. :End
  579. :If {r2}=6
  580. :10→{r1}
  581. :End
  582. :If {r2}=11
  583. :sub(END)
  584. :Goto ENDO
  585. :End
  586. :Goto BEG
  587. :Lbl END
  588. :ClrDraw{^r}{^r}
  589. :Fix 9
  590. :Fix 3
  591. :Fix 5
  592. :ref(0,0,96,64)
  593. :Return
  594. :Lbl ENDO
  595. :Text(1,1,"Well done!"
  596. :Text(1,11,"I hope you liked my game.")
  597. :For(P,0,200)
  598. :DispGraph
  599. :End
  600. :Goto CC
  601. :Lbl ENDB
  602. :Text(1,1,"Mmm... Try harder next time."
  603. :For(P,0,200)
  604. :DispGraph
  605. :End
  606. :Lbl CC
  607. :Fix 2
  608. :Fix 4
  609. :ClrHome
  610. :Return{^r}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!