API tools faq
paste
Advertisement
Guest User

int

a guest
Nov 12th, 2018
101
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 24.74 KB | None | 0 0
raw download clone embed print report
  1. czas = czas + 1;
  2.  
  3. IF strategia == 1 THEN
  4. IF przyjscieP1 < przyjscieP2 AND przyjscieP1 < przyjscieP3 AND przyjscieP1 < przyjscieP4 AND przyjscieP1 < przyjscieP5 AND przyjscieP1 < przyjscieP6 AND przyjscieP1 < przyjscieP7 AND przyjscieP1 < przyjscieP8 AND przyjscieP1 < przyjscieP9 THEN
  5. stanP1 = 2;
  6. IF stanP2 == 2 THEN
  7. stanP2 = 1;
  8. ENDIF;
  9. IF stanP3 == 2 THEN
  10. stanP3 = 1;
  11. ENDIF;
  12. IF stanP4 == 2 THEN
  13. stanP4 = 1;
  14. ENDIF;
  15. IF stanP5 == 2 THEN
  16. stanP5 = 1;
  17. ENDIF;
  18. IF stanP6 == 2 THEN
  19. stanP6 = 1;
  20. ENDIF;
  21. IF stanP7 == 2 THEN
  22. stanP7 = 1;
  23. ENDIF;
  24. IF stanP8 == 2 THEN
  25. stanP8 = 1;
  26. ENDIF;
  27. IF stanP9 == 2 THEN
  28. stanP9 = 1;
  29. ENDIF;
  30. IF CzasP1 > 0 THEN
  31. CzasP1 = CzasP1 - 1;
  32. ELSE
  33. stanP1 = 0;
  34. CzasP1 = 30;
  35. przyjscieP1 = 32767;
  36. ENDIF;
  37. ELSE
  38. IF przyjscieP2 < przyjscieP1 AND przyjscieP2 < przyjscieP3 AND przyjscieP2 < przyjscieP4 AND przyjscieP2 < przyjscieP5 AND przyjscieP2 < przyjscieP6 AND przyjscieP2 < przyjscieP7 AND przyjscieP2 < przyjscieP8 AND przyjscieP2 < przyjscieP9 THEN
  39. IF stanP1 == 2 THEN
  40. stanP1 = 1;
  41. ENDIF;
  42. stanP2 = 2;
  43. IF stanP3 == 2 THEN
  44. stanP3 = 1;
  45. ENDIF;
  46. IF stanP4 == 2 THEN
  47. stanP4 = 1;
  48. ENDIF;
  49. IF stanP5 == 2 THEN
  50. stanP5 = 1;
  51. ENDIF;
  52. IF stanP6 == 2 THEN
  53. stanP6 = 1;
  54. ENDIF;
  55. IF stanP7 == 2 THEN
  56. stanP7 = 1;
  57. ENDIF;
  58. IF stanP8 == 2 THEN
  59. stanP8 = 1;
  60. ENDIF;
  61. IF stanP9 == 2 THEN
  62. stanP9 = 1;
  63. ENDIF;
  64. IF CzasP2 > 0 THEN
  65. CzasP2 = CzasP2 - 1;
  66. ELSE
  67. stanP2 = 0;
  68. CzasP2 = 30;
  69. przyjscieP2 = 32767;
  70. ENDIF;
  71. ELSE
  72. IF przyjscieP3 < przyjscieP1 AND przyjscieP3 < przyjscieP2 AND przyjscieP3 < przyjscieP4 AND przyjscieP3 < przyjscieP5 AND przyjscieP3 < przyjscieP6 AND przyjscieP3 < przyjscieP7 AND przyjscieP3 < przyjscieP8 AND przyjscieP3 < przyjscieP9 THEN
  73. IF stanP1 == 2 THEN
  74. stanP1 = 1;
  75. ENDIF;
  76. IF stanP2 == 2 THEN
  77. stanP2 = 1;
  78. ENDIF;
  79. stanP3 = 2;
  80. IF stanP4 == 2 THEN
  81. stanP4 = 1;
  82. ENDIF;
  83. IF stanP5 == 2 THEN
  84. stanP5 = 1;
  85. ENDIF;
  86. IF stanP6 == 2 THEN
  87. stanP6 = 1;
  88. ENDIF;
  89. IF stanP7 == 2 THEN
  90. stanP7 = 1;
  91. ENDIF;
  92. IF stanP8 == 2 THEN
  93. stanP8 = 1;
  94. ENDIF;
  95. IF stanP9 == 2 THEN
  96. stanP9 = 1;
  97. ENDIF;
  98. IF CzasP3 > 0 THEN
  99. CzasP3 = CzasP3 - 1;
  100. ELSE
  101. stanP3 = 0;
  102. CzasP3 = 30;
  103. przyjscieP3 = 32767;
  104. ENDIF;
  105. ELSE
  106. IF przyjscieP4 < przyjscieP1 AND przyjscieP4 < przyjscieP2 AND przyjscieP4 < przyjscieP5 AND przyjscieP4 < przyjscieP6 AND przyjscieP4 < przyjscieP7 AND przyjscieP4 < przyjscieP8 AND przyjscieP4 < przyjscieP9 AND przyjscieP4 < przyjscieP3 THEN
  107. stanP4 = 2;
  108. IF stanP2 == 2 THEN
  109. stanP2 = 1;
  110. ENDIF;
  111. IF stanP3 == 2 THEN
  112. stanP3 = 1;
  113. ENDIF;
  114. IF stanP1 == 2 THEN
  115. stanP1 = 1;
  116. ENDIF;
  117. IF stanP5 == 2 THEN
  118. stanP5 = 1;
  119. ENDIF;
  120. IF stanP6 == 2 THEN
  121. stanP6 = 1;
  122. ENDIF;
  123. IF stanP7 == 2 THEN
  124. stanP7 = 1;
  125. ENDIF;
  126. IF stanP8 == 2 THEN
  127. stanP8 = 1;
  128. ENDIF;
  129. IF stanP9 == 2 THEN
  130. stanP9 = 1;
  131. ENDIF;
  132. IF CzasP4 > 0 THEN
  133. CzasP4 = CzasP4 - 1;
  134. ELSE
  135. stanP4 = 0;
  136. CzasP4 = 30;
  137. przyjscieP4 = 32767;
  138. ENDIF;
  139. ELSE
  140. IF przyjscieP5 < przyjscieP1 AND przyjscieP5 < przyjscieP2 AND przyjscieP5 < przyjscieP4 AND przyjscieP5 < przyjscieP3 AND przyjscieP5 < przyjscieP6 AND przyjscieP5 < przyjscieP7 AND przyjscieP5 < przyjscieP8 AND przyjscieP5 < przyjscieP9 THEN
  141. stanP5 = 2;
  142. IF stanP2 == 2 THEN
  143. stanP2 = 1;
  144. ENDIF;
  145. IF stanP3 == 2 THEN
  146. stanP3 = 1;
  147. ENDIF;
  148. IF stanP4 == 2 THEN
  149. stanP4 = 1;
  150. ENDIF;
  151. IF stanP1 == 2 THEN
  152. stanP1 = 1;
  153. ENDIF;
  154. IF stanP6 == 2 THEN
  155. stanP6 = 1;
  156. ENDIF;
  157. IF stanP7 == 2 THEN
  158. stanP7 = 1;
  159. ENDIF;
  160. IF stanP8 == 2 THEN
  161. stanP8 = 1;
  162. ENDIF;
  163. IF stanP9 == 2 THEN
  164. stanP9 = 1;
  165. ENDIF;
  166. IF CzasP5 > 0 THEN
  167. CzasP5 = CzasP5 - 1;
  168. ELSE
  169. stanP5 = 0;
  170. CzasP5 = 30;
  171. przyjscieP5 = 32767;
  172. ENDIF;
  173. ELSE
  174. IF przyjscieP6 < przyjscieP1 AND przyjscieP6 < przyjscieP2 AND przyjscieP6 < przyjscieP4 AND przyjscieP6 < przyjscieP3 AND przyjscieP6 < przyjscieP5 AND przyjscieP6 < przyjscieP7 AND przyjscieP6 < przyjscieP8 AND przyjscieP6 < przyjscieP9 THEN
  175. stanP6 = 2;
  176. IF stanP2 == 2 THEN
  177. stanP2 = 1;
  178. ENDIF;
  179. IF stanP3 == 2 THEN
  180. stanP3 = 1;
  181. ENDIF;
  182. IF stanP4 == 2 THEN
  183. stanP4 = 1;
  184. ENDIF;
  185. IF stanP5 == 2 THEN
  186. stanP5 = 1;
  187. ENDIF;
  188. IF stanP1 == 2 THEN
  189. stanP1 = 1;
  190. ENDIF;
  191. IF stanP7 == 2 THEN
  192. stanP7 = 1;
  193. ENDIF;
  194. IF stanP8 == 2 THEN
  195. stanP8 = 1;
  196. ENDIF;
  197. IF stanP9 == 2 THEN
  198. stanP9 = 1;
  199. ENDIF;
  200. IF CzasP6 > 0 THEN
  201. CzasP6 = CzasP6 - 1;
  202. ELSE
  203. stanP6 = 0;
  204. CzasP6 = 30;
  205. przyjscieP6 = 32767;
  206. ENDIF;
  207. ELSE
  208. IF przyjscieP7 < przyjscieP1 AND przyjscieP7 < przyjscieP2 AND przyjscieP7 < przyjscieP3 AND przyjscieP7 < przyjscieP4 AND przyjscieP7 < przyjscieP5 AND przyjscieP7 < przyjscieP6 AND przyjscieP7 < przyjscieP8 AND przyjscieP7 < przyjscieP9 THEN
  209. stanP7 = 2;
  210. IF stanP2 == 2 THEN
  211. stanP2 = 1;
  212. ENDIF;
  213. IF stanP3 == 2 THEN
  214. stanP3 = 1;
  215. ENDIF;
  216. IF stanP4 == 2 THEN
  217. stanP4 = 1;
  218. ENDIF;
  219. IF stanP5 == 2 THEN
  220. stanP5 = 1;
  221. ENDIF;
  222. IF stanP6 == 2 THEN
  223. stanP6 = 1;
  224. ENDIF;
  225. IF stanP1 == 2 THEN
  226. stanP1 = 1;
  227. ENDIF;
  228. IF stanP8 == 2 THEN
  229. stanP8 = 1;
  230. ENDIF;
  231. IF stanP9 == 2 THEN
  232. stanP9 = 1;
  233. ENDIF;
  234. IF CzasP7 > 0 THEN
  235. CzasP7 = CzasP7 - 1;
  236. ELSE
  237. stanP7 = 0;
  238. CzasP7 = 30;
  239. przyjscieP7 = 32767;
  240. ENDIF;
  241. ELSE
  242. IF przyjscieP8 < przyjscieP1 AND przyjscieP8 < przyjscieP2 AND przyjscieP8 < przyjscieP3 AND przyjscieP8 < przyjscieP4 AND przyjscieP8 < przyjscieP5 AND przyjscieP8 < przyjscieP6 AND przyjscieP8 < przyjscieP7 AND przyjscieP8 < przyjscieP9 THEN
  243. stanP8 = 2;
  244. IF stanP2 == 2 THEN
  245. stanP2 = 1;
  246. ENDIF;
  247. IF stanP3 == 2 THEN
  248. stanP3 = 1;
  249. ENDIF;
  250. IF stanP4 == 2 THEN
  251. stanP4 = 1;
  252. ENDIF;
  253. IF stanP5 == 2 THEN
  254. stanP5 = 1;
  255. ENDIF;
  256. IF stanP6 == 2 THEN
  257. stanP6 = 1;
  258. ENDIF;
  259. IF stanP7 == 2 THEN
  260. stanP7 = 1;
  261. ENDIF;
  262. IF stanP1 == 2 THEN
  263. stanP1 = 1;
  264. ENDIF;
  265. IF stanP9 == 2 THEN
  266. stanP9 = 1;
  267. ENDIF;
  268. IF stanP2 == 2 THEN
  269. stanP2 = 1;
  270. ENDIF;
  271. IF stanP3 == 2 THEN
  272. stanP3 = 1;
  273. ENDIF;
  274. IF stanP4 == 2 THEN
  275. stanP4 = 1;
  276. ENDIF;
  277. IF stanP5 == 2 THEN
  278. stanP5 = 1;
  279. ENDIF;
  280. IF stanP6 == 2 THEN
  281. stanP6 = 1;
  282. ENDIF;
  283. IF stanP7 == 2 THEN
  284. stanP7 = 1;
  285. ENDIF;
  286. IF stanP1 == 2 THEN
  287. stanP1 = 1;
  288. ENDIF;
  289. IF stanP9 == 2 THEN
  290. stanP9 = 1;
  291. ENDIF;
  292. IF CzasP8 > 0 THEN
  293. CzasP8 = CzasP8 - 1;
  294. ELSE
  295. stanP8 = 0;
  296. CzasP8 = 30;
  297. przyjscieP8 = 32767;
  298. ENDIF;
  299. ELSE
  300. stanP9 = 2;
  301. IF stanP2 == 2 THEN
  302. stanP2 = 1;
  303. ENDIF;
  304. IF stanP3 == 2 THEN
  305. stanP3 = 1;
  306. ENDIF;
  307. IF stanP4 == 2 THEN
  308. stanP4 = 1;
  309. ENDIF;
  310. IF stanP5 == 2 THEN
  311. stanP5 = 1;
  312. ENDIF;
  313. IF stanP6 == 2 THEN
  314. stanP6 = 1;
  315. ENDIF;
  316. IF stanP7 == 2 THEN
  317. stanP7 = 1;
  318. ENDIF;
  319. IF stanP8 == 2 THEN
  320. stanP8 = 1;
  321. ENDIF;
  322. IF stanP1 == 2 THEN
  323. stanP1 = 1;
  324. ENDIF;
  325. IF CzasP9 > 0 THEN
  326. CzasP9 = CzasP9 - 1;
  327. ELSE
  328. stanP9 = 0;
  329. CzasP9 = 30;
  330. przyjscieP9 = 32767;
  331. ENDIF;
  332. ENDIF;
  333. ENDIF;
  334. ENDIF;
  335. ENDIF;
  336. ENDIF;
  337. ENDIF;
  338. ENDIF;
  339. ENDIF;
  340. ELSE
  341. IF strategia == 2 THEN
  342. IF stanP1 == 2 THEN
  343. IF CzasP1 > 0 AND CzasP1 < 26 THEN
  344. CzasP1 = CzasP1 - 1;
  345. ELSE
  346. CzasP1 = 30;
  347. stanP1 = 0;
  348. przyjscieP1 = 32767;
  349. ENDIF;
  350. ELSE
  351. IF stanP2 == 2 THEN
  352. IF CzasP2 > 0 AND CzasP2 < 26 THEN
  353. CzasP2 = CzasP2 - 1;
  354. ELSE
  355. CzasP2 = 30;
  356. stanP2 = 0;
  357. przyjscieP2 = 32767;
  358. ENDIF;
  359. ELSE
  360. IF stanP3 == 2 THEN
  361. IF CzasP3 > 0 AND CzasP3 < 26 THEN
  362. CzasP3 = CzasP3 - 1;
  363. ELSE
  364. CzasP3 = 30;
  365. stanP3 = 0;
  366. przyjscieP3 = 32767;
  367. ENDIF;
  368. ELSE
  369. IF stanP4 == 2 THEN
  370. IF CzasP4 > 0 AND CzasP4 < 26 THEN
  371. CzasP4 = CzasP4 - 1;
  372. ELSE
  373. CzasP4 = 30;
  374. stanP4 = 0;
  375. przyjscieP4 = 32767;
  376. ENDIF;
  377. ELSE
  378. IF stanP5 == 2 THEN
  379. IF CzasP5 > 0 AND CzasP5 < 26 THEN
  380. CzasP5 = CzasP5 - 1;
  381. ELSE
  382. CzasP5 = 30;
  383. stanP5 = 0;
  384. przyjscieP5 = 32767;
  385. ENDIF;
  386. ELSE
  387. IF stanP6 == 2 THEN
  388. IF CzasP6 > 0 AND CzasP6 < 26 THEN
  389. CzasP6 = CzasP6 - 1;
  390. ELSE
  391. CzasP6 = 30;
  392. stanP6 = 0;
  393. przyjscieP6 = 32767;
  394. ENDIF;
  395. ELSE
  396. IF stanP7 == 2 THEN
  397. IF CzasP7 > 0 AND CzasP7 < 26 THEN
  398. CzasP7 = CzasP7 - 1;
  399. ELSE
  400. CzasP7 = 30;
  401. stanP7 = 0;
  402. przyjscieP7 = 32767;
  403. ENDIF;
  404. ELSE
  405. IF stanP8 == 2 THEN
  406. IF CzasP8 > 0 AND CzasP8 < 26 THEN
  407. CzasP8 = CzasP8 - 1;
  408. ELSE
  409. CzasP8 = 30;
  410. stanP8 = 0;
  411. przyjscieP8 = 32767;
  412. ENDIF;
  413. ELSE
  414. IF stanP9 == 2 THEN
  415. IF CzasP9 > 0 AND CzasP9 < 26 THEN
  416. CzasP9 = CzasP9 - 1;
  417. ELSE
  418. CzasP9 = 30;
  419. stanP9 = 0;
  420. przyjscieP9 = 32767;
  421. ENDIF;
  422. ELSE
  423. IF CzasP1 <= CzasP2 AND CzasP1 <= CzasP3 AND CzasP1 <= CzasP4 AND CzasP1 <= CzasP5 AND CzasP1 <= CzasP6 AND CzasP1 <= CzasP7 AND CzasP1 <= CzasP8 AND CzasP1 <= CzasP9 THEN
  424. stanP1 = 2;
  425. IF stanP2 == 2 THEN
  426. stanP2 = 1;
  427. ENDIF;
  428. IF stanP3 == 2 THEN
  429. stanP3 = 1;
  430. ENDIF;
  431. IF stanP4 == 2 THEN
  432. stanP4 = 1;
  433. ENDIF;
  434. IF stanP5 == 2 THEN
  435. stanP5 = 1;
  436. ENDIF;
  437. IF stanP6 == 2 THEN
  438. stanP6 = 1;
  439. ENDIF;
  440. IF stanP7 == 2 THEN
  441. stanP7 = 1;
  442. ENDIF;
  443. IF stanP8 == 2 THEN
  444. stanP8 = 1;
  445. ENDIF;
  446. IF stanP9 == 2 THEN
  447. stanP9 = 1;
  448. ENDIF;
  449.  
  450. ELSE
  451. IF CzasP2 <= CzasP1 AND CzasP2 <= CzasP3 AND CzasP2 <= CzasP4 AND CzasP2 <= CzasP5 AND CzasP2 <= CzasP6 AND CzasP2 <= CzasP7 AND CzasP2 <= CzasP8 AND CzasP2 <= CzasP9 THEN
  452. IF stanP1 == 2 THEN
  453. stanP1 = 1;
  454. ENDIF;
  455. stanP2 = 2;
  456. IF stanP3 == 2 THEN
  457. stanP3 = 1;
  458. ENDIF;
  459. IF stanP4 == 2 THEN
  460. stanP4 = 1;
  461. ENDIF;
  462. IF stanP5 == 2 THEN
  463. stanP5 = 1;
  464. ENDIF;
  465. IF stanP6 == 2 THEN
  466. stanP6 = 1;
  467. ENDIF;
  468. IF stanP7 == 2 THEN
  469. stanP7 = 1;
  470. ENDIF;
  471. IF stanP8 == 2 THEN
  472. stanP8 = 1;
  473. ENDIF;
  474. IF stanP9 == 2 THEN
  475. stanP9 = 1;
  476. ENDIF;
  477.  
  478. ELSE
  479. IF CzasP3 <= CzasP1 AND CzasP3 <= CzasP2 AND CzasP3 <= CzasP4 AND CzasP3 <= CzasP5 AND CzasP3 <= CzasP6 AND CzasP3 <= CzasP7 AND CzasP3 <= CzasP8 AND CzasP3 <= CzasP9 THEN
  480. IF stanP1 == 2 THEN
  481. stanP1 = 1;
  482. ENDIF;
  483. IF stanP2 == 2 THEN
  484. stanP2 = 1;
  485. ENDIF;
  486. stanP3 = 2;
  487. IF stanP4 == 2 THEN
  488. stanP4 = 1;
  489. ENDIF;
  490. IF stanP5 == 2 THEN
  491. stanP5 = 1;
  492. ENDIF;
  493. IF stanP6 == 2 THEN
  494. stanP6 = 1;
  495. ENDIF;
  496. IF stanP7 == 2 THEN
  497. stanP7 = 1;
  498. ENDIF;
  499. IF stanP8 == 2 THEN
  500. stanP8 = 1;
  501. ENDIF;
  502. IF stanP9 == 2 THEN
  503. stanP9 = 1;
  504. ENDIF;
  505.  
  506. ELSE
  507. IF CzasP4 <= CzasP1 AND CzasP4 <= CzasP2 AND CzasP4 <= CzasP3 AND CzasP4 <= CzasP5 AND CzasP4 <= CzasP6 AND CzasP4 <= CzasP7 AND CzasP4 <= CzasP8 AND CzasP4 <= CzasP9 THEN
  508. stanP4 = 2;
  509. IF stanP2 == 2 THEN
  510. stanP2 = 1;
  511. ENDIF;
  512. IF stanP3 == 2 THEN
  513. stanP3 = 1;
  514. ENDIF;
  515. IF stanP1 == 2 THEN
  516. stanP1 = 1;
  517. ENDIF;
  518. IF stanP5 == 2 THEN
  519. stanP5 = 1;
  520. ENDIF;
  521. IF stanP6 == 2 THEN
  522. stanP6 = 1;
  523. ENDIF;
  524. IF stanP7 == 2 THEN
  525. stanP7 = 1;
  526. ENDIF;
  527. IF stanP8 == 2 THEN
  528. stanP8 = 1;
  529. ENDIF;
  530. IF stanP9 == 2 THEN
  531. stanP9 = 1;
  532. ENDIF;
  533.  
  534. ELSE
  535. IF CzasP5 <= CzasP1 AND CzasP5 <= CzasP2 AND CzasP5 <= CzasP3 AND CzasP5 <= CzasP4 AND CzasP5 <= CzasP6 AND CzasP5 <= CzasP7 AND CzasP5 <= CzasP8 AND CzasP5 <= CzasP9 THEN
  536. stanP5 = 2;
  537. IF stanP2 == 2 THEN
  538. stanP2 = 1;
  539. ENDIF;
  540. IF stanP3 == 2 THEN
  541. stanP3 = 1;
  542. ENDIF;
  543. IF stanP4 == 2 THEN
  544. stanP4 = 1;
  545. ENDIF;
  546. IF stanP1 == 2 THEN
  547. stanP1 = 1;
  548. ENDIF;
  549. IF stanP6 == 2 THEN
  550. stanP6 = 1;
  551. ENDIF;
  552. IF stanP7 == 2 THEN
  553. stanP7 = 1;
  554. ENDIF;
  555. IF stanP8 == 2 THEN
  556. stanP8 = 1;
  557. ENDIF;
  558. IF stanP9 == 2 THEN
  559. stanP9 = 1;
  560. ENDIF;
  561.  
  562. ELSE
  563. IF CzasP6 <= CzasP1 AND CzasP6 <= CzasP2 AND CzasP6 <= CzasP3 AND CzasP6 <= CzasP4 AND CzasP6 <= CzasP5 AND CzasP6 <= CzasP7 AND CzasP6 <= CzasP8 AND CzasP6 <= CzasP9 THEN
  564. stanP6 = 2;
  565. IF stanP2 == 2 THEN
  566. stanP2 = 1;
  567. ENDIF;
  568. IF stanP3 == 2 THEN
  569. stanP3 = 1;
  570. ENDIF;
  571. IF stanP4 == 2 THEN
  572. stanP4 = 1;
  573. ENDIF;
  574. IF stanP5 == 2 THEN
  575. stanP5 = 1;
  576. ENDIF;
  577. IF stanP1 == 2 THEN
  578. stanP1 = 1;
  579. ENDIF;
  580. IF stanP7 == 2 THEN
  581. stanP7 = 1;
  582. ENDIF;
  583. IF stanP8 == 2 THEN
  584. stanP8 = 1;
  585. ENDIF;
  586. IF stanP9 == 2 THEN
  587. stanP9 = 1;
  588. ENDIF;
  589.  
  590. ELSE
  591. IF CzasP7 <= CzasP1 AND CzasP7 <= CzasP2 AND CzasP7 <= CzasP3 AND CzasP7 <= CzasP4 AND CzasP7 <= CzasP5 AND CzasP7 <= CzasP6 AND CzasP7 <= CzasP8 AND CzasP7 <= CzasP9 THEN
  592. stanP7 = 2;
  593. IF stanP2 == 2 THEN
  594. stanP2 = 1;
  595. ENDIF;
  596. IF stanP3 == 2 THEN
  597. stanP3 = 1;
  598. ENDIF;
  599. IF stanP4 == 2 THEN
  600. stanP4 = 1;
  601. ENDIF;
  602. IF stanP5 == 2 THEN
  603. stanP5 = 1;
  604. ENDIF;
  605. IF stanP6 == 2 THEN
  606. stanP6 = 1;
  607. ENDIF;
  608. IF stanP1 == 2 THEN
  609. stanP1 = 1;
  610. ENDIF;
  611. IF stanP8 == 2 THEN
  612. stanP8 = 1;
  613. ENDIF;
  614. IF stanP9 == 2 THEN
  615. stanP9 = 1;
  616. ENDIF;
  617.  
  618. ELSE
  619. IF CzasP8 <= CzasP1 AND CzasP8 <= CzasP2 AND CzasP8 <= CzasP3 AND CzasP8 <= CzasP4 AND CzasP8 <= CzasP5 AND CzasP8 <= CzasP6 AND CzasP8 <= CzasP7 AND CzasP8 <= CzasP9 THEN
  620. stanP8 = 2;
  621. IF stanP2 == 2 THEN
  622. stanP2 = 1;
  623. ENDIF;
  624. IF stanP3 == 2 THEN
  625. stanP3 = 1;
  626. ENDIF;
  627. IF stanP4 == 2 THEN
  628. stanP4 = 1;
  629. ENDIF;
  630. IF stanP5 == 2 THEN
  631. stanP5 = 1;
  632. ENDIF;
  633. IF stanP6 == 2 THEN
  634. stanP6 = 1;
  635. ENDIF;
  636. IF stanP7 == 2 THEN
  637. stanP7 = 1;
  638. ENDIF;
  639. IF stanP1 == 2 THEN
  640. stanP1 = 1;
  641. ENDIF;
  642. IF stanP9 == 2 THEN
  643. stanP9 = 1;
  644. ENDIF;
  645.  
  646. ELSE
  647. IF CzasP9 <= CzasP1 AND CzasP9 <= CzasP2 AND CzasP9 <= CzasP3 AND CzasP9 <= CzasP4 AND CzasP9 <= CzasP5 AND CzasP9 <= CzasP6 AND CzasP9 <= CzasP7 AND CzasP9 <= CzasP8 THEN
  648. stanP9 = 2;
  649. IF stanP2 == 2 THEN
  650. stanP2 = 1;
  651. ENDIF;
  652. IF stanP3 == 2 THEN
  653. stanP3 = 1;
  654. ENDIF;
  655. IF stanP4 == 2 THEN
  656. stanP4 = 1;
  657. ENDIF;
  658. IF stanP5 == 2 THEN
  659. stanP5 = 1;
  660. ENDIF;
  661. IF stanP6 == 2 THEN
  662. stanP6 = 1;
  663. ENDIF;
  664. IF stanP7 == 2 THEN
  665. stanP7 = 1;
  666. ENDIF;
  667. IF stanP8 == 2 THEN
  668. stanP8 = 1;
  669. ENDIF;
  670. IF stanP1 == 2 THEN
  671. stanP1 = 1;
  672. ENDIF;
  673.  
  674.  
  675. ENDIF;
  676. ENDIF;
  677. ENDIF;
  678. ENDIF;
  679. ENDIF;
  680. ENDIF;
  681. ENDIF;
  682. ENDIF;
  683. ENDIF;
  684. ENDIF;
  685. ENDIF;
  686. ENDIF;
  687. ENDIF;
  688. ENDIF;
  689. ENDIF;
  690. ENDIF;
  691. ENDIF;
  692. ENDIF;
  693. ELSE
  694. IF strategia == 3 THEN
  695. IF CzasP1 <= CzasP2 AND CzasP1 <= CzasP3 AND CzasP1 <= CzasP4 AND CzasP1 <= CzasP5 AND CzasP1 <= CzasP6 AND CzasP1 <= CzasP7 AND CzasP1 <= CzasP8 AND CzasP1 <= CzasP9 THEN
  696. stanP1 = 2;
  697. IF stanP2 == 2 THEN
  698. stanP2 = 1;
  699. ENDIF;
  700. IF stanP3 == 2 THEN
  701. stanP3 = 1;
  702. ENDIF;
  703. IF stanP4 == 2 THEN
  704. stanP4 = 1;
  705. ENDIF;
  706. IF stanP5 == 2 THEN
  707. stanP5 = 1;
  708. ENDIF;
  709. IF stanP6 == 2 THEN
  710. stanP6 = 1;
  711. ENDIF;
  712. IF stanP7 == 2 THEN
  713. stanP7 = 1;
  714. ENDIF;
  715. IF stanP8 == 2 THEN
  716. stanP8 = 1;
  717. ENDIF;
  718. IF stanP9 == 2 THEN
  719. stanP9 = 1;
  720. ENDIF;
  721. CzasP1 = CzasP1 - 1;
  722. IF CzasP1 == 0 THEN
  723. CzasP1 = 30;
  724. stanP1 = 0;
  725. przyjscieP1 = 32767;
  726. ENDIF;
  727. ELSE
  728. IF CzasP2 <= CzasP1 AND CzasP2 <= CzasP3 AND CzasP2 <= CzasP4 AND CzasP2 <= CzasP5 AND CzasP2 <= CzasP6 AND CzasP2 <= CzasP7 AND CzasP2 <= CzasP8 AND CzasP2 <= CzasP9 THEN
  729. IF stanP1 == 2 THEN
  730. stanP1 = 1;
  731. ENDIF;
  732. stanP2 = 2;
  733. IF stanP3 == 2 THEN
  734. stanP3 = 1;
  735. ENDIF;
  736. IF stanP4 == 2 THEN
  737. stanP4 = 1;
  738. ENDIF;
  739. IF stanP5 == 2 THEN
  740. stanP5 = 1;
  741. ENDIF;
  742. IF stanP6 == 2 THEN
  743. stanP6 = 1;
  744. ENDIF;
  745. IF stanP7 == 2 THEN
  746. stanP7 = 1;
  747. ENDIF;
  748. IF stanP8 == 2 THEN
  749. stanP8 = 1;
  750. ENDIF;
  751. IF stanP9 == 2 THEN
  752. stanP9 = 1;
  753. ENDIF;
  754. CzasP2 = CzasP2 - 1;
  755. IF CzasP2 == 0 THEN
  756. CzasP2 = 30;
  757. stanP2 = 0;
  758. przyjscieP2 = 32767;
  759. ENDIF;
  760. ELSE
  761. IF CzasP3 <= CzasP1 AND CzasP3 <= CzasP2 AND CzasP3 <= CzasP4 AND CzasP3 <= CzasP5 AND CzasP3 <= CzasP6 AND CzasP3 <= CzasP7 AND CzasP3 <= CzasP8 AND CzasP3 <= CzasP9 THEN
  762. IF stanP1 == 2 THEN
  763. stanP1 = 1;
  764. ENDIF;
  765. IF stanP2 == 2 THEN
  766. stanP2 = 1;
  767. ENDIF;
  768. stanP3 = 2;
  769. IF stanP4 == 2 THEN
  770. stanP4 = 1;
  771. ENDIF;
  772. IF stanP5 == 2 THEN
  773. stanP5 = 1;
  774. ENDIF;
  775. IF stanP6 == 2 THEN
  776. stanP6 = 1;
  777. ENDIF;
  778. IF stanP7 == 2 THEN
  779. stanP7 = 1;
  780. ENDIF;
  781. IF stanP8 == 2 THEN
  782. stanP8 = 1;
  783. ENDIF;
  784. IF stanP9 == 2 THEN
  785. stanP9 = 1;
  786. ENDIF;
  787. CzasP3 = CzasP3 - 1;
  788. IF CzasP3 == 0 THEN
  789. CzasP3 = 30;
  790. stanP3 = 0;
  791. przyjscieP3 = 32767;
  792. ENDIF;
  793. ELSE
  794. IF CzasP4 <= CzasP1 AND CzasP4 <= CzasP2 AND CzasP4 <= CzasP3 AND CzasP4 <= CzasP5 AND CzasP4 <= CzasP6 AND CzasP4 <= CzasP7 AND CzasP4 <= CzasP8 AND CzasP4 <= CzasP9 THEN
  795. stanP4 = 2;
  796. IF stanP2 == 2 THEN
  797. stanP2 = 1;
  798. ENDIF;
  799. IF stanP3 == 2 THEN
  800. stanP3 = 1;
  801. ENDIF;
  802. IF stanP1 == 2 THEN
  803. stanP1 = 1;
  804. ENDIF;
  805. IF stanP5 == 2 THEN
  806. stanP5 = 1;
  807. ENDIF;
  808. IF stanP6 == 2 THEN
  809. stanP6 = 1;
  810. ENDIF;
  811. IF stanP7 == 2 THEN
  812. stanP7 = 1;
  813. ENDIF;
  814. IF stanP8 == 2 THEN
  815. stanP8 = 1;
  816. ENDIF;
  817. IF stanP9 == 2 THEN
  818. stanP9 = 1;
  819. ENDIF;
  820. CzasP4 = CzasP4 - 1;
  821. IF CzasP4 == 0 THEN
  822. CzasP4 = 30;
  823. stanP4 = 0;
  824. przyjscieP4 = 32767;
  825. ENDIF;
  826. ELSE
  827. IF CzasP5 <= CzasP1 AND CzasP5 <= CzasP2 AND CzasP5 <= CzasP3 AND CzasP5 <= CzasP4 AND CzasP5 <= CzasP6 AND CzasP5 <= CzasP7 AND CzasP5 <= CzasP8 AND CzasP5 <= CzasP9 THEN
  828. stanP5 = 2;
  829. IF stanP2 == 2 THEN
  830. stanP2 = 1;
  831. ENDIF;
  832. IF stanP3 == 2 THEN
  833. stanP3 = 1;
  834. ENDIF;
  835. IF stanP4 == 2 THEN
  836. stanP4 = 1;
  837. ENDIF;
  838. IF stanP1 == 2 THEN
  839. stanP1 = 1;
  840. ENDIF;
  841. IF stanP6 == 2 THEN
  842. stanP6 = 1;
  843. ENDIF;
  844. IF stanP7 == 2 THEN
  845. stanP7 = 1;
  846. ENDIF;
  847. IF stanP8 == 2 THEN
  848. stanP8 = 1;
  849. ENDIF;
  850. IF stanP9 == 2 THEN
  851. stanP9 = 1;
  852. ENDIF;
  853. CzasP5 = CzasP5 - 1;
  854. IF CzasP5 == 0 THEN
  855. CzasP5 = 30;
  856. stanP5 = 0;
  857. przyjscieP5 = 32767;
  858. ENDIF;
  859. ELSE
  860. IF CzasP6 <= CzasP1 AND CzasP6 <= CzasP2 AND CzasP6 <= CzasP3 AND CzasP6 <= CzasP4 AND CzasP6 <= CzasP5 AND CzasP6 <= CzasP7 AND CzasP6 <= CzasP8 AND CzasP6 <= CzasP9 THEN
  861. stanP6 = 2;
  862. IF stanP2 == 2 THEN
  863. stanP2 = 1;
  864. ENDIF;
  865. IF stanP3 == 2 THEN
  866. stanP3 = 1;
  867. ENDIF;
  868. IF stanP4 == 2 THEN
  869. stanP4 = 1;
  870. ENDIF;
  871. IF stanP5 == 2 THEN
  872. stanP5 = 1;
  873. ENDIF;
  874. IF stanP1 == 2 THEN
  875. stanP1 = 1;
  876. ENDIF;
  877. IF stanP7 == 2 THEN
  878. stanP7 = 1;
  879. ENDIF;
  880. IF stanP8 == 2 THEN
  881. stanP8 = 1;
  882. ENDIF;
  883. IF stanP9 == 2 THEN
  884. stanP9 = 1;
  885. ENDIF;
  886. CzasP6 = CzasP6 - 1;
  887. IF CzasP6 == 0 THEN
  888. CzasP6 = 30;
  889. stanP6 = 0;
  890. przyjscieP6 = 32767;
  891. ENDIF;
  892. ELSE
  893. IF CzasP7 <= CzasP1 AND CzasP7 <= CzasP2 AND CzasP7 <= CzasP3 AND CzasP7 <= CzasP4 AND CzasP7 <= CzasP5 AND CzasP7 <= CzasP6 AND CzasP7 <= CzasP8 AND CzasP7 <= CzasP9 THEN
  894. stanP7 = 2;
  895. IF stanP2 == 2 THEN
  896. stanP2 = 1;
  897. ENDIF;
  898. IF stanP3 == 2 THEN
  899. stanP3 = 1;
  900. ENDIF;
  901. IF stanP4 == 2 THEN
  902. stanP4 = 1;
  903. ENDIF;
  904. IF stanP5 == 2 THEN
  905. stanP5 = 1;
  906. ENDIF;
  907. IF stanP6 == 2 THEN
  908. stanP6 = 1;
  909. ENDIF;
  910. IF stanP1 == 2 THEN
  911. stanP1 = 1;
  912. ENDIF;
  913. IF stanP8 == 2 THEN
  914. stanP8 = 1;
  915. ENDIF;
  916. IF stanP9 == 2 THEN
  917. stanP9 = 1;
  918. ENDIF;
  919. CzasP7 = CzasP7 - 1;
  920. IF CzasP7 == 0 THEN
  921. CzasP7 = 30;
  922. stanP7 = 0;
  923. przyjscieP7 = 32767;
  924. ENDIF;
  925. ELSE
  926. IF CzasP8 <= CzasP1 AND CzasP8 <= CzasP2 AND CzasP8 <= CzasP3 AND CzasP8 <= CzasP4 AND CzasP8 <= CzasP5 AND CzasP8 <= CzasP6 AND CzasP8 <= CzasP7 AND CzasP8 <= CzasP9 THEN
  927. stanP8 = 2;
  928. IF stanP2 == 2 THEN
  929. stanP2 = 1;
  930. ENDIF;
  931. IF stanP3 == 2 THEN
  932. stanP3 = 1;
  933. ENDIF;
  934. IF stanP4 == 2 THEN
  935. stanP4 = 1;
  936. ENDIF;
  937. IF stanP5 == 2 THEN
  938. stanP5 = 1;
  939. ENDIF;
  940. IF stanP6 == 2 THEN
  941. stanP6 = 1;
  942. ENDIF;
  943. IF stanP7 == 2 THEN
  944. stanP7 = 1;
  945. ENDIF;
  946. IF stanP1 == 2 THEN
  947. stanP1 = 1;
  948. ENDIF;
  949. IF stanP9 == 2 THEN
  950. stanP9 = 1;
  951. ENDIF;
  952. CzasP8 = CzasP8 - 1;
  953. IF CzasP8 == 0 THEN
  954. CzasP8 = 30;
  955. stanP8 = 0;
  956. przyjscieP8 = 32767;
  957. ENDIF;
  958. ELSE
  959. IF CzasP9 <= CzasP1 AND CzasP9 <= CzasP2 AND CzasP9 <= CzasP3 AND CzasP9 <= CzasP4 AND CzasP9 <= CzasP5 AND CzasP9 <= CzasP6 AND CzasP9 <= CzasP7 AND CzasP9 <= CzasP8 THEN
  960. stanP9 = 2;
  961. IF stanP2 == 2 THEN
  962. stanP2 = 1;
  963. ENDIF;
  964. IF stanP3 == 2 THEN
  965. stanP3 = 1;
  966. ENDIF;
  967. IF stanP4 == 2 THEN
  968. stanP4 = 1;
  969. ENDIF;
  970. IF stanP5 == 2 THEN
  971. stanP5 = 1;
  972. ENDIF;
  973. IF stanP6 == 2 THEN
  974. stanP6 = 1;
  975. ENDIF;
  976. IF stanP7 == 2 THEN
  977. stanP7 = 1;
  978. ENDIF;
  979. IF stanP8 == 2 THEN
  980. stanP8 = 1;
  981. ENDIF;
  982. IF stanP1 == 2 THEN
  983. stanP1 = 1;
  984. ENDIF;
  985. CzasP9 = CzasP9 - 1;
  986. IF CzasP9 == 0 THEN
  987. CzasP9 = 30;
  988. stanP9 = 0;
  989. przyjscieP9 = 32767;
  990. ENDIF;
  991.  
  992. ENDIF;
  993. ENDIF;
  994. ENDIF;
  995. ENDIF;
  996. ENDIF;
  997. ENDIF;
  998. ENDIF;
  999. ENDIF;
  1000. ENDIF;
  1001. ENDIF;
  1002. ENDIF;
  1003. ENDIF;
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!