API tools faq
paste
dantarion

AIDumpV2 Progress

dantarion
Feb 24th, 2011
165
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 78.18 KB | None | 0 0
raw download clone embed print report
  1. 1060
  2. ------------------------------
  3. global-00 = 8.000
  4. global-01 = 0.000
  5. global-02 = 4.000
  6. global-03 = 10.000
  7. global-04 = 30.000
  8. global-05 = -5.000
  9. global-06 = 3.000
  10. global-07 = 2.000
  11. global-08 = -1.000
  12. global-09 = 0.500
  13. global-0A = 1.000
  14. global-0B = 0.000
  15. global-0C = 0.000
  16. global-0D = 0.000
  17. Set Var(01)(0x0000, 0x2000)
  18. Set Var(01)(0x0001, 0x2001)
  19. ???(02)(0x0002, 0x1009)
  20. ???(2A)(0x6016)
  21. Set Var(01)(0x0004, 0x2002)
  22. Mul(0E)(0x0004, 0x100E)
  23. Add(0C)(0x0004, 0x2003)
  24. If(06)(0x1011, 0x6036)
  25. Set Var(01)(0x0005, 0x2004)
  26. Mul(0E)(0x0005, 0x100E)
  27. Add(0C)(0x0004, 0x0005)
  28. End If(09)()
  29. ???(03)()
  30. If(06)(0x0001)
  31. || !Req(17)(0x101B)
  32. Return(00)()
  33. End If(09)()
  34. Set Var(01)(0x0005, 0x100C)
  35. Add(0C)(0x0005, 0x2005)
  36. If(06)(0x1008, 0x0005, 0x100B)
  37. Return(00)()
  38. End If(09)()
  39. Set Var(01)(0x0005, 0x1002)
  40. Mul(0E)(0x0005, 0x1003)
  41. If(06)(0x1008, 0x0005, 0x2001)
  42. Set Var(01)(0x0001, 0x2006)
  43. Else(08)()
  44. If(06)(0x1000, 0x2007)
  45. Set Var(01)(0x0005, 0x0000)
  46. Add(0C)(0x0005, 0x2008)
  47. If(06)(0x1007, 0x0001, 0x0005)
  48. Set Var(01)(0x0001, 0x0005)
  49. Else(08)()
  50. If(06)(0x1007, 0x0001, 0x2001)
  51. Add(0C)(0x0001, 0x2008)
  52. End If(09)()
  53. ???(2E)(0x0002, 0x0003, 0x2009)
  54. Sub(0D)(0x0003, 0x1027)
  55. If(06)(0x1008, 0x0003, 0x0004)
  56. Call AI(1B)()
  57. End If(09)()
  58. Else(08)()
  59. Add(0C)(0x0001, 0x200A)
  60. End If(09)()
  61. If(06)(0x1009, 0x0001, 0x0000)
  62. Set Var(01)(0x0007, 0x200A)
  63. Else(08)()
  64. Set Var(01)(0x0005, 0x0001)
  65. Div(0F)(0x0005, 0x0000)
  66. Set Var(01)(0x0007, 0x0005)
  67. End If(09)()
  68. Mul(0E)(0x0007, 0x1003)
  69. ???(1F)(0x0007)
  70. REST?(04)()
  71. REST?(04)()
  72.  
  73. 10D0
  74. ------------------------------
  75. global-00 = 10.000
  76. ???(22)(0x2000)
  77. ???(03)()
  78. If(06)(0x1003)
  79. Call AI(1B)(0x6017)
  80. Return(00)()
  81. End If(09)()
  82. REST?(04)()
  83. REST?(04)()
  84.  
  85. 1090
  86. ------------------------------
  87. global-00 = 3.000
  88. global-01 = 22.000
  89. global-02 = 10.000
  90. global-03 = 120.000
  91. global-04 = 0.000
  92. global-05 = 0.000
  93. Set Var(01)(0x0000, 0x2000)
  94. ???(2A)(0x6019)
  95. ???(2F)(0x0001, 0x2001)
  96. If NOT(07)(0x1000, 0x0001)
  97. ???(30)()
  98. End If(09)()
  99. If(06)(0x1004)
  100. ???(05)(0x0000)
  101. ???(14)()
  102. End If(09)()
  103. ???(22)(0x2002)
  104. ???(03)()
  105. If(06)(0x1004)
  106. || Req(16)(0x1003)
  107. ???(22)(0x2003)
  108. ???(05)()
  109. ???(14)()
  110. End If(09)()
  111. REST?(04)()
  112. ???(03)(0x0000)
  113. ???(1F)(0x1003)
  114. If(06)(0x1002, 0x0000)
  115. && Req(18)(0x1000, 0x0001)
  116. Call AI(1B)()
  117. End If(09)()
  118. If(06)(0x0001)
  119. Return(00)()
  120. End If(09)()
  121. REST?(04)()
  122. REST?(04)()
  123.  
  124. 1010
  125. ------------------------------
  126. global-00 = 8.000
  127. global-01 = 30.000
  128. global-02 = 10.000
  129. global-03 = 1.000
  130. global-04 = 0.700
  131. global-05 = 0.000
  132. global-06 = 0.000
  133. Set Var(01)(0x0000, 0x2000)
  134. Set Var(01)(0x0001, 0x2001)
  135. ???(2A)(0x6011)
  136. ???(2F)(0x0002, 0x2002)
  137. If NOT(07)(0x1000, 0x0002)
  138. ???(30)()
  139. End If(09)()
  140. ???(03)()
  141. If(06)(0x1002, 0x0000)
  142. Set Var(01)(0x0003, 0x2003)
  143. Else(08)()
  144. Set Var(01)(0x0003, 0x2004)
  145. End If(09)()
  146. Mul(0E)(0x0003, 0x1003)
  147. ???(1F)(0x0003)
  148. If(06)(0x0001)
  149. Return(00)()
  150. End If(09)()
  151. If(06)(0x1002, 0x0001)
  152. && Req(19)(0x1000, 0x2005, 0x1001)
  153. Return(00)()
  154. End If(09)()
  155. If(06)(0x1000, 0x0002)
  156. Call AI(1B)()
  157. End If(09)()
  158. REST?(04)()
  159. REST?(04)()
  160.  
  161. 1080
  162. ------------------------------
  163. global-00 = 0.000
  164. global-01 = 25.000
  165. global-02 = 18.000
  166. global-03 = 10.000
  167. global-04 = 100.000
  168. global-05 = 0.080
  169. global-06 = 20.000
  170. global-07 = 60.000
  171. global-08 = 1.000
  172. global-09 = 30.000
  173. global-0A = 0.500
  174. global-0B = 0.009
  175. global-0C = 0.100
  176. global-0D = 6.000
  177. global-0E = 0.300
  178. global-0F = 50.000
  179. global-10 = 0.010
  180. global-11 = 0.700
  181. global-12 = 0.050
  182. global-13 = 16.000
  183. global-14 = -20.000
  184. global-15 = -8.000
  185. global-16 = 12.000
  186. global-17 = -1.000
  187. global-18 = 5.000
  188. global-19 = 0.000
  189. global-1A = 0.000
  190. Set Var(01)(0x0000, 0x2000)
  191. ???(02)(0x0001, 0x1009)
  192. Set Var(01)(0x0003, 0x2001)
  193. Set Var(01)(0x0004, 0x2002)
  194. If(06)(0x101E, 0x0022)
  195. Add(0C)(0x0003, 0x2003)
  196. Add(0C)(0x0004, 0x2003)
  197. End If(09)()
  198. ???(15)(0x0005)
  199. Set Var(01)(0x0006, 0x2004)
  200. Sub(0D)(0x0006, 0x1011)
  201. Mul(0E)(0x0006, 0x2005)
  202. Mul(0E)(0x0005, 0x0006)
  203. Add(0C)(0x0005, 0x0006)
  204. ???(22)(0x2006)
  205. ???(03)(0x0000)
  206. If(06)(0x100D)
  207. Set Var(01)(0x0000, 0x2007)
  208. End If(09)()
  209. If(06)(0x1007, 0x0000, 0x2000)
  210. Set Goto?(1C)(0x0001)
  211. Else(08)()
  212. Sub(0D)(0x0000, 0x2008)
  213. Set Var(01)(0x0007, 0x1003)
  214. ???(1F)(0x0007)
  215. End If(09)()
  216. If NOT(07)(0x1005)
  217. Return(00)()
  218. End If(09)()
  219. If(06)(0x1007, 0x0005, 0x2000)
  220. Sub(0D)(0x0005, 0x2008)
  221. Else(08)()
  222. If(06)(0x1007, 0x100D, 0x2000)
  223. && Req(18)(0x1008, 0x1011, 0x2009)
  224. REST?(04)()
  225. Else(08)()
  226. If(06)(0x1001, 0x0003)
  227. ???(22)(0x2006)
  228. ???(05)()
  229. Else(08)()
  230. ???(2E)(0x0001, 0x0002, 0x200A)
  231. ???(2C)(0x0009, 0x0001, 0x0002)
  232. If(06)(0x1008, 0x0009, 0x0004)
  233. ???(22)(0x2006)
  234. ???(05)()
  235. End If(09)()
  236. End If(09)()
  237. REST?(04)()
  238. ???(03)()
  239. Set Var(01)(0x0006, 0x1011)
  240. Mul(0E)(0x0006, 0x200B)
  241. Add(0C)(0x0006, 0x200C)
  242. ???(15)(0x000A)
  243. If(06)(0x1007, 0x000A, 0x0006)
  244. ???(15)(0x0005, 0x200D, 0x2003)
  245. ???(05)(0x0000)
  246. REST?(04)()
  247. End If(09)()
  248. ???(2E)(0x0001, 0x0002, 0x200E)
  249. Mul(0E)(0x0001, 0x1002)
  250. If(06)(0x1007, 0x101F, 0x200F)
  251. Set Var(01)(0x000B, 0x101F)
  252. Sub(0D)(0x000B, 0x200F)
  253. Mul(0E)(0x000B, 0x2010)
  254. If(06)(0x1007, 0x000B, 0x2011)
  255. Set Var(01)(0x000B, 0x2011)
  256. End If(09)()
  257. If(06)(0x1008, 0x100E, 0x000B)
  258. ???(02)(0x000C, 0x0001)
  259. ???(1E)(0x000C)
  260. ???(1E)(0x000D)
  261. If(06)(0x1007, 0x000C, 0x000D)
  262. ???(2A)(0x6027)
  263. Else(08)()
  264. ???(2A)(0x6028)
  265. End If(09)()
  266. If NOT(07)(0x1011, 0x0000)
  267. If(06)(0x1011, 0x6042)
  268. If(06)(0x1007, 0x0001, 0x2000)
  269. Call AI(1B)()
  270. End If(09)()
  271. Else(08)()
  272. If(06)(0x1011, 0x6043)
  273. If(06)(0x1008, 0x0001, 0x2000)
  274. Call AI(1B)()
  275. End If(09)()
  276. Else(08)()
  277. If(06)(0x1011, 0x6044)
  278. || Req(16)(0x1011, 0x6048)
  279. If(06)(0x1007, 0x0002, 0x2000)
  280. Call AI(1B)()
  281. End If(09)()
  282. Else(08)()
  283. If(06)(0x1011, 0x6045)
  284. || Req(16)(0x1011, 0x6049)
  285. If(06)(0x1008, 0x0002, 0x2000)
  286. Call AI(1B)()
  287. End If(09)()
  288. Else(08)()
  289. Call AI(1B)()
  290. End If(09)()
  291. End If(09)()
  292. End If(09)()
  293. End If(09)()
  294. If(06)(0x1008, 0x0002, 0x2000)
  295. && Req(18)(0x1007, 0x100D, 0x2012)
  296. Set Var(01)(0x0002, 0x2000)
  297. End If(09)()
  298. If(06)(0x1007, 0x0002, 0x2013)
  299. Call AI(1B)(0x6024)
  300. Else(08)()
  301. If(06)(0x1008, 0x0002, 0x2014)
  302. Call AI(1B)(0x6025)
  303. Else(08)()
  304. If(06)(0x1008, 0x0001, 0x2015)
  305. Call AI(1B)(0x6023)
  306. Else(08)()
  307. If(06)(0x1007, 0x0001, 0x2016)
  308. Call AI(1B)(0x6022)
  309. Else(08)()
  310. Call AI(1B)(0x6021)
  311. End If(09)()
  312. Return(00)()
  313. REST?(04)()
  314. ???(03)(0x0001)
  315. ???(1D)(0x000E)
  316. Set Var(01)(0x0010, 0x000E)
  317. Sub(0D)(0x0010, 0x1004)
  318. Set Var(01)(0x0007, 0x1002)
  319. If(06)(0x1008, 0x0010, 0x2000)
  320. Mul(0E)(0x0007, 0x2017)
  321. End If(09)()
  322. ???(1E)(0x0010)
  323. If(06)(0x1007, 0x0010, 0x2018)
  324. Sub(0D)(0x0010, 0x2018)
  325. Div(0F)(0x0010, 0x2018)
  326. If(06)(0x1007, 0x0010, 0x2008)
  327. Set Var(01)(0x0010, 0x2008)
  328. End If(09)()
  329. Mul(0E)(0x0010, 0x0007)
  330. Stick(0A)(0x0010)
  331. End If(09)()
  332. REST?(04)()
  333. REST?(04)()
  334.  
  335. 10A0
  336. ------------------------------
  337. global-00 = 36.000
  338. global-01 = 55.000
  339. global-02 = 22.000
  340. global-03 = 10.000
  341. global-04 = 30.000
  342. global-05 = 80.000
  343. global-06 = 40.000
  344. global-07 = 600.000
  345. global-08 = 0.010
  346. global-09 = 10.000
  347. global-0A = 0.500
  348. global-0B = 40.000
  349. global-0C = 15.000
  350. global-0D = 0.000
  351. global-0E = 50.000
  352. global-0F = 0.006
  353. global-10 = 30.000
  354. global-11 = 3.000
  355. global-12 = -0.500
  356. global-13 = 9999.000
  357. global-14 = 1.000
  358. global-15 = 2.500
  359. global-16 = 35.000
  360. global-17 = -0.750
  361. global-18 = 20.000
  362. global-19 = 60.000
  363. global-1A = 0.100
  364. global-1B = 0.600
  365. global-1C = 45.000
  366. global-1D = 25.000
  367. global-1E = 2.000
  368. global-1F = -1.000
  369. global-20 = 6.000
  370. global-21 = 0.000
  371. global-22 = 0.000
  372. global-23 = 0.000
  373. Set Var(01)(0x0000, 0x2000)
  374. Set Var(01)(0x0001, 0x2001)
  375. Set Var(01)(0x0002, 0x2002)
  376. Set Var(01)(0x0003, 0x2003)
  377. Set Var(01)(0x0004, 0x2004)
  378. Set Var(01)(0x0005, 0x2005)
  379. Set Var(01)(0x0006, 0x2006)
  380. ???(22)(0x2007)
  381. ???(03)()
  382. If(06)(0x1007, 0x1006, 0x0006)
  383. && Req(19)(0x1005)
  384. Set Var(01)(0x0007, 0x1011)
  385. Mul(0E)(0x0007, 0x2008)
  386. If(06)(0x1008, 0x100E, 0x0007)
  387. ???(22)(0x2009)
  388. ???(05)(0x0000)
  389. If(06)(0x1004)
  390. ???(14)()
  391. End If(09)()
  392. REST?(04)()
  393. End If(09)()
  394. End If(09)()
  395. ???(05)(0x0001)
  396. ???(14)()
  397. REST?(04)()
  398. ???(03)(0x0000)
  399. If(06)(0x1003)
  400. || Req(16)(0x1004)
  401. ???(22)(0x2007)
  402. ???(05)()
  403. ???(14)()
  404. End If(09)()
  405. REST?(04)()
  406. ???(03)(0x0001)
  407. If NOT(07)(0x0001)
  408. Return(00)()
  409. End If(09)()
  410. If(06)(0x100D)
  411. If(06)(0x1007, 0x100F, 0x200A)
  412. Call AI(1B)(0x2010)
  413. Else(08)()
  414. Call AI(1B)(0x2040)
  415. End If(09)()
  416. End If(09)()
  417. If(06)(0x1004)
  418. Set Var(01)(0x0008, 0x200B)
  419. Else(08)()
  420. Set Var(01)(0x0008, 0x200C)
  421. End If(09)()
  422. Set Var(01)(0x0009, 0x1002)
  423. Mul(0E)(0x0009, 0x1003)
  424. If(06)(0x1008, 0x0009, 0x200D)
  425. Set Var(01)(0x0007, 0x1003)
  426. Mul(0E)(0x0007, 0x200A)
  427. ???(1F)(0x0007)
  428. REST?(04)()
  429. Else(08)()
  430. If(06)(0x1007, 0x1006, 0x0008)
  431. If(06)(0x1007, 0x1006, 0x200B)
  432. ???(1F)(0x1003)
  433. Else(08)()
  434. Set Var(01)(0x0007, 0x1003)
  435. Mul(0E)(0x0007, 0x200A)
  436. ???(1F)(0x0007)
  437. End If(09)()
  438. REST?(04)()
  439. Else(08)()
  440. Set Var(01)(0x0007, 0x100C)
  441. Sub(0D)(0x0007, 0x100B)
  442. If(06)(0x1004)
  443. && Req(18)(0x1008, 0x0007, 0x200E)
  444. && Req(18)(0x1007, 0x0007, 0x200D)
  445. && Req(18)(0x1000, 0x0004, 0x0005)
  446. Set Var(01)(0x0007, 0x200F)
  447. Mul(0E)(0x0007, 0x1011)
  448. If(06)(0x1008, 0x100E, 0x0007)
  449. If(06)(0x1004)
  450. ???(1F)(0x1003)
  451. End If(09)()
  452. Call AI(1B)(0x1140)
  453. Return(00)()
  454. End If(09)()
  455. End If(09)()
  456. Set Var(01)(0x000A, 0x200D)
  457. ???(05)()
  458. End If(09)()
  459. REST?(04)()
  460. ???(03)()
  461. If NOT(07)(0x0001)
  462. Return(00)()
  463. End If(09)()
  464. ???(21)()
  465. ???(05)()
  466. REST?(04)()
  467. ???(03)()
  468. If NOT(07)(0x0001)
  469. Return(00)()
  470. End If(09)()
  471. If(06)(0x1001, 0x2010)
  472. Call AI(1B)(0x601B)
  473. End If(09)()
  474. If(06)(0x1003)
  475. If(06)(0x1007, 0x1006, 0x2009)
  476. Set Var(01)(0x0007, 0x200A)
  477. Mul(0E)(0x0007, 0x1003)
  478. ???(1F)(0x0007)
  479. Else(08)()
  480. If(06)(0x1008, 0x1006, 0x2011)
  481. Set Var(01)(0x0007, 0x2012)
  482. Mul(0E)(0x0007, 0x1003)
  483. ???(1F)(0x0007)
  484. Else(08)()
  485. Set Var(01)(0x0007, 0x1003)
  486. Mul(0E)(0x0007, 0x1002)
  487. If(06)(0x1008, 0x0007, 0x200D)
  488. Set Var(01)(0x0007, 0x200A)
  489. Mul(0E)(0x0007, 0x1003)
  490. ???(1F)(0x0007)
  491. End If(09)()
  492. End If(09)()
  493. End If(09)()
  494. Set Var(01)(0x000B, 0x1003)
  495. Mul(0E)(0x000B, 0x200C)
  496. Add(0C)(0x000B, 0x1004)
  497. ???(24)(0x000C, 0x000B)
  498. If(06)(0x1008, 0x000C, 0x200D)
  499. Set Var(01)(0x000C, 0x2013)
  500. End If(09)()
  501. If(06)(0x1008, 0x000C, 0x0000)
  502. Add(0C)(0x000A, 0x2014)
  503. Else(08)()
  504. Set Var(01)(0x000A, 0x200D)
  505. End If(09)()
  506. If(06)(0x1007, 0x000A, 0x2015)
  507. && Req(18)(0x1003)
  508. ???(29)(0x000D, 0x000C)
  509. Sub(0D)(0x000D, 0x100B)
  510. If(06)(0x1007, 0x000D, 0x2016)
  511. Stick(0A)(0x2017)
  512. ???(05)(0x0002)
  513. Else(08)()
  514. If(06)(0x1007, 0x000D, 0x2009)
  515. ???(05)(0x0003)
  516. Else(08)()
  517. If(06)(0x1007, 0x000D, 0x200D)
  518. ???(05)(0x0004)
  519. Else(08)()
  520. Set Var(01)(0x0007, 0x1016)
  521. ???(1E)(0x0007)
  522. If(06)(0x1008, 0x0007, 0x200A)
  523. || Req(16)(0x1007, 0x1010, 0x2018)
  524. ???(05)(0x0004)
  525. Else(08)()
  526. If(06)(0x1008, 0x1011, 0x2019)
  527. Call AI(1B)(0x1050)
  528. Else(08)()
  529. If(06)(0x1018)
  530. && Req(18)(0x1008, 0x100E, 0x201A)
  531. ???(22)(0x2010)
  532. ???(1F)(0x1003)
  533. ???(05)(0x0005)
  534. Else(08)()
  535. ???(05)(0x0004)
  536. End If(09)()
  537. End If(09)()
  538. End If(09)()
  539. REST?(04)()
  540. ???(03)(0x0002)
  541. Stick(0A)(0x200D, 0x2014)
  542. If(06)(0x1002, 0x2009)
  543. ???(05)()
  544. End If(09)()
  545. REST?(04)()
  546. ???(03)()
  547. If NOT(07)(0x1005)
  548. || Req(16)(0x1008, 0x100F, 0x200A)
  549. Return(00)()
  550. End If(09)()
  551. If(06)(0x1001, 0x2016)
  552. Call AI(1B)(0x1080)
  553. Return(00)()
  554. End If(09)()
  555. If NOT(07)(0x1002, 0x2011)
  556. Stick(0A)(0x200D, 0x2014)
  557. End If(09)()
  558. If(06)(0x1008, 0x100D, 0x200D)
  559. Set Var(01)(0x000E, 0x100C)
  560. Sub(0D)(0x000E, 0x100B)
  561. If(06)(0x1007, 0x000E, 0x2009)
  562. ???(1A)(0x200D)
  563. End If(09)()
  564. End If(09)()
  565. REST?(04)()
  566. ???(03)(0x0003)
  567. If NOT(07)(0x0001)
  568. Return(00)()
  569. End If(09)()
  570. If(06)(0x1000, 0x0001)
  571. Call AI(1B)(0x1140)
  572. Return(00)()
  573. End If(09)()
  574. REST?(04)()
  575. ???(03)(0x0004)
  576. ???(2A)(0x601B)
  577. ???(2F)(0x000F, 0x0002)
  578. Set Var(01)(0x0007, 0x0003)
  579. Mul(0E)(0x0007, 0x100E)
  580. Add(0C)(0x000F, 0x0007)
  581. ???(05)()
  582. ???(14)()
  583. REST?(04)()
  584. ???(03)()
  585. If NOT(07)(0x0001)
  586. Return(00)()
  587. End If(09)()
  588. Set Var(01)(0x0009, 0x1002)
  589. Mul(0E)(0x0009, 0x1003)
  590. If(06)(0x1008, 0x0009, 0x200D)
  591. Set Var(01)(0x0009, 0x1003)
  592. Mul(0E)(0x0009, 0x201B)
  593. ???(1F)(0x0009)
  594. REST?(04)()
  595. End If(09)()
  596. If(06)(0x1000, 0x000F)
  597. Set Var(01)(0x0007, 0x100C)
  598. Sub(0D)(0x0007, 0x101B)
  599. If(06)(0x1007, 0x0007, 0x201C)
  600. Call AI(1B)(0x0054)
  601. Else(08)()
  602. If(06)(0x1007, 0x0007, 0x201D)
  603. Call AI(1B)(0x6016)
  604. Else(08)()
  605. Call AI(1B)()
  606. End If(09)()
  607. End If(09)()
  608. REST?(04)()
  609. ???(03)(0x0005)
  610. If NOT(07)(0x0001)
  611. || Req(16)(0x1002, 0x200E)
  612. Return(00)()
  613. End If(09)()
  614. Stick(0A)(0x2014)
  615. If(06)(0x1005)
  616. ???(05)()
  617. End If(09)()
  618. REST?(04)()
  619. ???(03)()
  620. If NOT(07)(0x0001)
  621. Return(00)()
  622. End If(09)()
  623. If(06)(0x1002, 0x201E)
  624. Stick(0A)(0x201F)
  625. If(06)(0x1002, 0x2020)
  626. Return(00)()
  627. End If(09)()
  628. Else(08)()
  629. ???(1F)(0x1003)
  630. End If(09)()
  631. REST?(04)()
  632. REST?(04)()
  633.  
  634. 1040
  635. ------------------------------
  636. global-00 = 8.000
  637. global-01 = 45.000
  638. global-02 = -1.000
  639. global-03 = 1.000
  640. global-04 = 30.000
  641. global-05 = 20.000
  642. global-06 = 0.000
  643. global-07 = 0.800
  644. global-08 = 0.500
  645. global-09 = 0.200
  646. global-0A = 10.000
  647. global-0B = 25.000
  648. global-0C = 0.080
  649. global-0D = 0.010
  650. global-0E = -0.010
  651. global-0F = -20.000
  652. global-10 = 0.600
  653. global-11 = 0.000
  654. global-12 = 0.000
  655. global-13 = 0.000
  656. Set Var(01)(0x0000, 0x2000)
  657. If(06)(0x1007, 0x1011, 0x2001)
  658. Set Var(01)(0x0001, 0x2002)
  659. Else(08)()
  660. Set Var(01)(0x0001, 0x2003)
  661. End If(09)()
  662. ???(2A)(0x6012)
  663. ???(2F)(0x0002, 0x2004)
  664. Set Var(01)(0x0003, 0x2005)
  665. Mul(0E)(0x0003, 0x100E)
  666. Add(0C)(0x0002, 0x0003)
  667. Set Var(01)(0x0004, 0x2006)
  668. If(06)(0x1008, 0x100E, 0x2007)
  669. Set Var(01)(0x0005, 0x2008)
  670. Mul(0E)(0x0005, 0x100E)
  671. If(06)(0x1008, 0x0005, 0x2009)
  672. Set Var(01)(0x0005, 0x2006)
  673. End If(09)()
  674. Else(08)()
  675. Set Var(01)(0x0005, 0x2006)
  676. End If(09)()
  677. If NOT(07)(0x1000, 0x0002)
  678. ???(30)()
  679. End If(09)()
  680. ???(15)(0x0006, 0x200A, 0x200B, 0x2006, 0x2006)
  681. ???(03)()
  682. Set Var(01)(0x0003, 0x1002)
  683. Mul(0E)(0x0003, 0x1003)
  684. If(06)(0x1008, 0x0003, 0x2006)
  685. Set Var(01)(0x0004, 0x2008)
  686. Mul(0E)(0x0004, 0x1003)
  687. ???(1F)(0x0004)
  688. Else(08)()
  689. Set Var(01)(0x0003, 0x0004)
  690. ???(1E)(0x0003)
  691. If(06)(0x1007, 0x0003, 0x0005)
  692. Sub(0D)(0x0003, 0x200C)
  693. If(06)(0x1008, 0x0003, 0x0005)
  694. Set Var(01)(0x0003, 0x0005)
  695. End If(09)()
  696. Else(08)()
  697. Add(0C)(0x0003, 0x200C)
  698. If(06)(0x1007, 0x0003, 0x0005)
  699. Set Var(01)(0x0003, 0x0005)
  700. End If(09)()
  701. End If(09)()
  702. If(06)(0x1008, 0x0004, 0x200D)
  703. && Req(18)(0x1007, 0x0004, 0x200E)
  704. Set Var(01)(0x0004, 0x1003)
  705. End If(09)()
  706. If(06)(0x1007, 0x0004, 0x2006)
  707. Set Var(01)(0x0004, 0x0003)
  708. Else(08)()
  709. Set Var(01)(0x0004, 0x0003)
  710. Mul(0E)(0x0004, 0x2002)
  711. End If(09)()
  712. ???(1F)(0x0004)
  713. If(06)(0x1008, 0x0001, 0x2006)
  714. Set Var(01)(0x0003, 0x0002)
  715. Add(0C)(0x0003, 0x200F)
  716. If(06)(0x1000, 0x0003)
  717. Set Var(01)(0x0003, 0x100E)
  718. If(06)(0x1008, 0x0003, 0x2009)
  719. Set Var(01)(0x0001, 0x2003)
  720. REST?(04)()
  721. Else(08)()
  722. If(06)(0x1008, 0x0003, 0x2010)
  723. Call AI(1B)(0x3020)
  724. Else(08)()
  725. Call AI(1B)(0x30B0)
  726. End If(09)()
  727. Return(00)()
  728. End If(09)()
  729. End If(09)()
  730. End If(09)()
  731. If(06)(0x0001)
  732. || !Req(17)(0x1000, 0x1000)
  733. || Req(16)(0x1002, 0x0006)
  734. Return(00)()
  735. End If(09)()
  736. If(06)(0x1000, 0x0002)
  737. Call AI(1B)()
  738. End If(09)()
  739. REST?(04)()
  740. REST?(04)()
  741.  
  742. 1050
  743. ------------------------------
  744. global-00 = 10.000
  745. global-01 = 120.000
  746. global-02 = 0.000
  747. global-03 = -0.500
  748. global-04 = 0.000
  749. global-05 = 0.000
  750. global-06 = 0.000
  751. ???(22)(0x2000)
  752. ???(21)()
  753. ???(22)(0x2001)
  754. ???(03)()
  755. Set Var(01)(0x0000, 0x1002)
  756. Mul(0E)(0x0000, 0x1003)
  757. If(06)(0x1008, 0x0000, 0x2002)
  758. Stick(0A)(0x2003)
  759. Else(08)()
  760. Call AI(1B)(0x6013)
  761. Return(00)()
  762. End If(09)()
  763. REST?(04)()
  764. REST?(04)()
  765.  
  766. 1020
  767. ------------------------------
  768. global-00 = 8.000
  769. global-01 = 30.000
  770. global-02 = 25.000
  771. global-03 = 1.000
  772. global-04 = 0.700
  773. global-05 = 0.000
  774. global-06 = 0.000
  775. Set Var(01)(0x0000, 0x2000)
  776. Set Var(01)(0x0001, 0x2001)
  777. ???(2A)(0x6014)
  778. ???(2F)(0x0002, 0x2002)
  779. If NOT(07)(0x1000, 0x0002)
  780. ???(30)()
  781. End If(09)()
  782. ???(03)()
  783. If(06)(0x1002, 0x0000)
  784. Set Var(01)(0x0003, 0x2003)
  785. Else(08)()
  786. Set Var(01)(0x0003, 0x2004)
  787. End If(09)()
  788. Mul(0E)(0x0003, 0x1003)
  789. ???(1F)(0x0003)
  790. If(06)(0x0001)
  791. Return(00)()
  792. End If(09)()
  793. If(06)(0x1002, 0x0001)
  794. && Req(19)(0x1000, 0x2005, 0x1001)
  795. Return(00)()
  796. End If(09)()
  797. If(06)(0x1000, 0x0002)
  798. Call AI(1B)()
  799. End If(09)()
  800. REST?(04)()
  801. REST?(04)()
  802.  
  803. 1030
  804. ------------------------------
  805. global-00 = 10.000
  806. global-01 = 30.000
  807. global-02 = 15.000
  808. global-03 = 0.800
  809. global-04 = 0.750
  810. global-05 = 1.000
  811. global-06 = 0.000
  812. global-07 = 0.000
  813. global-08 = 0.000
  814. Set Var(01)(0x0000, 0x2000)
  815. Set Var(01)(0x0001, 0x2001)
  816. ???(2A)(0x6015)
  817. ???(2F)(0x0002, 0x2002)
  818. If NOT(07)(0x1000, 0x0002)
  819. ???(30)()
  820. End If(09)()
  821. ???(03)()
  822. Set Var(01)(0x0003, 0x2003)
  823. If NOT(07)(0x1002, 0x0000)
  824. Mul(0E)(0x0003, 0x1007)
  825. Div(0F)(0x0003, 0x0000)
  826. Set Var(01)(0x0004, 0x2004)
  827. Else(08)()
  828. Set Var(01)(0x0004, 0x2005)
  829. End If(09)()
  830. Mul(0E)(0x0004, 0x1003)
  831. ???(1F)(0x0004, 0x0003)
  832. If(06)(0x0001)
  833. Return(00)()
  834. End If(09)()
  835. If(06)(0x1002, 0x0001)
  836. && Req(19)(0x1000, 0x2006, 0x1001)
  837. Return(00)()
  838. End If(09)()
  839. If(06)(0x1000, 0x0002)
  840. Call AI(1B)()
  841. End If(09)()
  842. REST?(04)()
  843. REST?(04)()
  844.  
  845. 1120
  846. ------------------------------
  847. global-00 = 0.000
  848. global-01 = 0.300
  849. global-02 = 160.000
  850. global-03 = 0.009
  851. global-04 = 1.000
  852. global-05 = 100.000
  853. global-06 = 0.600
  854. global-07 = 50.000
  855. global-08 = 0.400
  856. global-09 = 30.000
  857. global-0A = 0.030
  858. global-0B = 8.000
  859. global-0C = 0.200
  860. global-0D = 90.000
  861. global-0E = 0.007
  862. global-0F = 150.000
  863. global-10 = 120.000
  864. global-11 = -200.000
  865. global-12 = 0.500
  866. global-13 = 0.700
  867. global-14 = 200.000
  868. global-15 = 130.000
  869. global-16 = 45.000
  870. global-17 = 0.800
  871. global-18 = 0.320
  872. global-19 = -1.000
  873. global-1A = 110.000
  874. global-1B = -0.200
  875. global-1C = -0.100
  876. global-1D = 0.000
  877. global-1E = 0.000
  878. global-1F = 0.000
  879. ???(22)(0x2000)
  880. Set Var(01)(0x0000, 0x2000)
  881. Set Goto?(1C)(0x0000)
  882. ???(15)(0x0001)
  883. Sub(0D)(0x0001, 0x2001)
  884. Set Var(01)(0x0002, 0x1011)
  885. Sub(0D)(0x0002, 0x2002)
  886. Mul(0E)(0x0001, 0x0002, 0x2003)
  887. Add(0C)(0x0001, 0x2004)
  888. Set Var(01)(0x0002, 0x101F)
  889. If(06)(0x1007, 0x0002, 0x2005)
  890. Sub(0D)(0x0002, 0x2005)
  891. Mul(0E)(0x0002, 0x2006)
  892. Add(0C)(0x0002, 0x2005)
  893. Else(08)()
  894. If(06)(0x1008, 0x0002, 0x2007)
  895. Mul(0E)(0x0002, 0x2008)
  896. Add(0C)(0x0002, 0x2009)
  897. End If(09)()
  898. Mul(0E)(0x0002, 0x200A)
  899. If(06)(0x1007, 0x0002, 0x200B)
  900. Set Var(01)(0x0002, 0x200B)
  901. End If(09)()
  902. Mul(0E)(0x0001, 0x0002)
  903. Sub(0D)(0x0001, 0x200C)
  904. ???(03)(0x0001)
  905. If(06)(0x1014)
  906. Sub(0D)(0x0000, 0x2004)
  907. If(06)(0x100A, 0x0000, 0x2000)
  908. Set Goto?(1C)(0x0000)
  909. If(06)(0x1016, 0x2009)
  910. Set Var(01)(0x0001, 0x2000)
  911. Else(08)()
  912. Sub(0D)(0x0001, 0x2004)
  913. End If(09)()
  914. If(06)(0x1007, 0x0001, 0x2000)
  915. ???(05)(0x0002)
  916. Else(08)()
  917. ???(15)(0x0001)
  918. ???(05)(0x0003)
  919. End If(09)()
  920. End If(09)()
  921. End If(09)()
  922. REST?(04)()
  923. ???(03)(0x0002)
  924. Button(0B)(0x0001)
  925. ???(05)(0x0001)
  926. REST?(04)()
  927. ???(03)(0x0003)
  928. If(06)(0x1007, 0x101F, 0x200D)
  929. Set Var(01)(0x0002, 0x1011)
  930. Mul(0E)(0x0002, 0x200E)
  931. If(06)(0x1008, 0x100E, 0x0002)
  932. Set Var(01)(0x0002, 0x102B)
  933. Sub(0D)(0x0002, 0x100B)
  934. If(06)(0x1008, 0x0002, 0x200F)
  935. && Req(18)(0x1007, 0x101F, 0x2010)
  936. Set Var(01)(0x0001, 0x2004)
  937. Else(08)()
  938. Set Var(01)(0x0002, 0x102C)
  939. Sub(0D)(0x0002, 0x1004)
  940. If(06)(0x1007, 0x0002, 0x2011)
  941. If(06)(0x1007, 0x1002, 0x2000)
  942. Set Var(01)(0x0001, 0x2012)
  943. Else(08)()
  944. Set Var(01)(0x0001, 0x2013)
  945. End If(09)()
  946. Else(08)()
  947. Set Var(01)(0x0002, 0x102D)
  948. Sub(0D)(0x0002, 0x1004)
  949. If(06)(0x1008, 0x0002, 0x2014)
  950. If(06)(0x1007, 0x1002, 0x2000)
  951. Set Var(01)(0x0001, 0x2013)
  952. Else(08)()
  953. Set Var(01)(0x0001, 0x2012)
  954. End If(09)()
  955. Else(08)()
  956. If NOT(07)(0x100B)
  957. && Req(18)(0x1007, 0x101F, 0x2015)
  958. If(06)(0x1008, 0x1010, 0x1029)
  959. Set Var(01)(0x0001, 0x2013)
  960. Else(08)()
  961. Set Var(01)(0x0001, 0x2012)
  962. End If(09)()
  963. End If(09)()
  964. End If(09)()
  965. End If(09)()
  966. Else(08)()
  967. If(06)(0x1008, 0x1011, 0x2016)
  968. Set Var(01)(0x0002, 0x100E)
  969. If(06)(0x1008, 0x0002, 0x2006)
  970. If(06)(0x1008, 0x1010, 0x1029)
  971. Set Var(01)(0x0001, 0x2012)
  972. Else(08)()
  973. Set Var(01)(0x0001, 0x2013)
  974. End If(09)()
  975. Else(08)()
  976. If(06)(0x1008, 0x0002, 0x2017)
  977. Set Var(01)(0x0001, 0x2000)
  978. End If(09)()
  979. End If(09)()
  980. End If(09)()
  981. If(06)(0x1008, 0x0001, 0x2018)
  982. Stick(0A)(0x2000, 0x2019)
  983. Else(08)()
  984. If(06)(0x1008, 0x0001, 0x2006)
  985. Stick(0A)(0x2019)
  986. Else(08)()
  987. If(06)(0x1008, 0x0001, 0x2017)
  988. Stick(0A)(0x2004)
  989. Else(08)()
  990. Stick(0A)(0x2000, 0x2004)
  991. End If(09)()
  992. Return(00)()
  993. REST?(04)()
  994. ???(03)(0x0000)
  995. ???(15)(0x0002)
  996. Set Var(01)(0x0000, 0x1011)
  997. Sub(0D)(0x0000, 0x201A)
  998. Mul(0E)(0x0000, 0x201B, 0x0002)
  999. Set Var(01)(0x0002, 0x1011)
  1000. Sub(0D)(0x0002, 0x2005)
  1001. Mul(0E)(0x0002, 0x201C)
  1002. Add(0C)(0x0000, 0x0002)
  1003. REST?(04)()
  1004. REST?(04)()
  1005.  
  1006. 1130
  1007. ------------------------------
  1008. global-00 = 0.000
  1009. global-01 = 0.000
  1010. global-02 = 0.000
  1011. REST?(04)()
  1012.  
  1013. 0060
  1014. ------------------------------
  1015. global-00 = 10.000
  1016. global-01 = 30.000
  1017. global-02 = 4.000
  1018. global-03 = 0.000
  1019. global-04 = -1.000
  1020. global-05 = 6.000
  1021. global-06 = 40.000
  1022. global-07 = 0.000
  1023. ???(03)()
  1024. If NOT(07)(0x1003)
  1025. If(06)(0x1002, 0x2000)
  1026. Return(00)()
  1027. End If(09)()
  1028. REST?(04)()
  1029. End If(09)()
  1030. ???(22)(0x2001)
  1031. If NOT(07)(0x100B)
  1032. Set Var(01)(0x0000, 0x1003)
  1033. ???(05)(0x0000)
  1034. REST?(04)()
  1035. End If(09)()
  1036. ???(05)()
  1037. REST?(04)()
  1038. ???(03)()
  1039. If(06)(0x1002, 0x2002)
  1040. ???(05)()
  1041. End If(09)()
  1042. REST?(04)()
  1043. ???(03)()
  1044. Stick(0A)(0x2003, 0x2004)
  1045. If(06)(0x1002, 0x2002)
  1046. ???(05)()
  1047. End If(09)()
  1048. REST?(04)()
  1049. ???(03)()
  1050. ???(1F)(0x1003)
  1051. If(06)(0x1002, 0x2005)
  1052. If(06)(0x1005)
  1053. Call AI(1B)(0x1080)
  1054. Return(00)()
  1055. End If(09)()
  1056. Return(00)()
  1057. End If(09)()
  1058. REST?(04)()
  1059. ???(03)(0x0000)
  1060. If(06)(0x1002, 0x2002)
  1061. ???(22)(0x2006)
  1062. ???(05)()
  1063. End If(09)()
  1064. REST?(04)()
  1065. ???(03)()
  1066. ???(1F)(0x0000)
  1067. If NOT(07)(0x1003)
  1068. && Req(19)(0x1004)
  1069. Return(00)()
  1070. End If(09)()
  1071. If(06)(0x1005)
  1072. Return(00)()
  1073. End If(09)()
  1074. REST?(04)()
  1075. REST?(04)()
  1076.  
  1077. 0050
  1078. ------------------------------
  1079. global-00 = 25.000
  1080. global-01 = 10.000
  1081. global-02 = 20.000
  1082. global-03 = 8.000
  1083. global-04 = 1000.000
  1084. global-05 = 120.000
  1085. global-06 = 0.000
  1086. global-07 = -0.500
  1087. global-08 = 16.000
  1088. global-09 = 0.500
  1089. global-0A = 2.000
  1090. global-0B = -3.000
  1091. global-0C = 0.600
  1092. global-0D = -1.000
  1093. global-0E = 30.000
  1094. global-0F = 0.010
  1095. global-10 = 0.002
  1096. global-11 = 0.000
  1097. global-12 = 0.001
  1098. global-13 = 1.000
  1099. global-14 = 3.000
  1100. global-15 = 0.400
  1101. global-16 = -0.400
  1102. Set Var(01)(0x0000, 0x1003)
  1103. Set Var(01)(0x0001, 0x2000)
  1104. If(06)(0x101E, 0x0022)
  1105. Add(0C)(0x0001, 0x2001)
  1106. End If(09)()
  1107. If(06)(0x100C, 0x0051)
  1108. || Req(16)(0x100C, 0x0053)
  1109. || Req(16)(0x100C, 0x0056)
  1110. || Req(16)(0x100C, 0x0057)
  1111. Set Var(01)(0x0002, 0x100E)
  1112. Mul(0E)(0x0002, 0x2002)
  1113. Add(0C)(0x0002, 0x2003)
  1114. Set Var(01)(0x0003, 0x0002)
  1115. Else(08)()
  1116. Set Var(01)(0x0003, 0x2004)
  1117. End If(09)()
  1118. If(06)(0x1005)
  1119. ???(05)(0x0000)
  1120. ???(14)()
  1121. End If(09)()
  1122. ???(22)(0x2002)
  1123. ???(03)()
  1124. If NOT(07)(0x1003)
  1125. && Req(19)(0x1004)
  1126. REST?(04)()
  1127. End If(09)()
  1128. ???(22)(0x2005)
  1129. If(06)(0x100C, 0x0057)
  1130. || Req(16)(0x100C, 0x0058)
  1131. Set Var(01)(0x0002, 0x1003)
  1132. Mul(0E)(0x0002, 0x1002)
  1133. If(06)(0x1007, 0x0002, 0x2006)
  1134. Stick(0A)(0x2007)
  1135. ???(05)(0x0001)
  1136. REST?(04)()
  1137. End If(09)()
  1138. End If(09)()
  1139. ???(05)()
  1140. ???(14)()
  1141. REST?(04)()
  1142. ???(03)()
  1143. If(06)(0x100C, 0x0055)
  1144. || Req(16)(0x100C, 0x0056)
  1145. Set Var(01)(0x0004, 0x100E)
  1146. Mul(0E)(0x0004, 0x2008)
  1147. Add(0C)(0x0004, 0x2003)
  1148. Set Var(01)(0x0005, 0x100E)
  1149. Sub(0D)(0x0005, 0x2009)
  1150. Set Var(01)(0x0006, 0x0005)
  1151. Add(0C)(0x0006, 0x200A)
  1152. Mul(0E)(0x0000, 0x200B)
  1153. ???(05)(0x0002)
  1154. Else(08)()
  1155. If(06)(0x100C, 0x0057)
  1156. || Req(16)(0x100C, 0x0058)
  1157. Mul(0E)(0x0000, 0x200B)
  1158. ???(05)(0x0002)
  1159. Else(08)()
  1160. Set Var(01)(0x0002, 0x1003)
  1161. Mul(0E)(0x0002, 0x1002)
  1162. If(06)(0x1008, 0x0002, 0x2006)
  1163. ???(05)()
  1164. Else(08)()
  1165. ???(05)(0x0002)
  1166. End If(09)()
  1167. End If(09)()
  1168. ???(14)()
  1169. REST?(04)()
  1170. ???(03)()
  1171. Set Var(01)(0x0007, 0x1003)
  1172. Mul(0E)(0x0000, 0x200C)
  1173. ???(1F)(0x0000)
  1174. Set Var(01)(0x0007, 0x1003)
  1175. ???(05)()
  1176. REST?(04)()
  1177. ???(03)(0x0001)
  1178. If(06)(0x1002, 0x200A)
  1179. ???(05)()
  1180. End If(09)()
  1181. REST?(04)()
  1182. ???(03)(0x0002)
  1183. If(06)(0x1002, 0x0003)
  1184. Return(00)()
  1185. End If(09)()
  1186. If(06)(0x100C, 0x0051)
  1187. || Req(16)(0x100C, 0x0057)
  1188. Set Goto?(1C)(0x0003)
  1189. ???(1F)(0x0000)
  1190. Else(08)()
  1191. If(06)(0x100C, 0x0052)
  1192. || Req(16)(0x100C, 0x0058)
  1193. If NOT(07)(0x1002, 0x2003)
  1194. && Req(18)(0x1008, 0x100B, 0x100C)
  1195. && Req(18)(0x1000, 0x2001)
  1196. ???(1F)(0x2006)
  1197. Else(08)()
  1198. Set Goto?(1C)(0x0003)
  1199. ???(1F)(0x0000)
  1200. End If(09)()
  1201. Else(08)()
  1202. If(06)(0x100C, 0x0055)
  1203. Stick(0A)(0x200D)
  1204. Else(08)()
  1205. If(06)(0x100C, 0x0056)
  1206. Set Goto?(1C)(0x0003)
  1207. Mul(0E)(0x0000, 0x200D)
  1208. ???(1F)(0x0000)
  1209. Mul(0E)(0x0000, 0x200D)
  1210. If(06)(0x1002, 0x0004)
  1211. Return(00)()
  1212. End If(09)()
  1213. End If(09)()
  1214. If(06)(0x1002, 0x2001)
  1215. && Req(19)(0x1005)
  1216. Return(00)()
  1217. End If(09)()
  1218. If(06)(0x1012)
  1219. If(06)(0x1001, 0x0001)
  1220. Call AI(1B)(0x1080)
  1221. Return(00)()
  1222. Else(08)()
  1223. If NOT(07)(0x100D)
  1224. && Req(19)(0x1000, 0x200E)
  1225. && Req(18)(0x1007, 0x1011, 0x200E)
  1226. Set Var(01)(0x0002, 0x1011)
  1227. Mul(0E)(0x0002, 0x1011, 0x200F)
  1228. Mul(0E)(0x0002, 0x0002)
  1229. If(06)(0x101E, 0x0000)
  1230. Mul(0E)(0x0002, 0x2010)
  1231. Else(08)()
  1232. If(06)(0x101E, 0x001B)
  1233. Mul(0E)(0x0002, 0x2011)
  1234. Else(08)()
  1235. Mul(0E)(0x0002, 0x2012)
  1236. End If(09)()
  1237. If(06)(0x1008, 0x100E, 0x0002)
  1238. Set Var(01)(0x0008, 0x1003)
  1239. Mul(0E)(0x0008, 0x1002)
  1240. If(06)(0x1007, 0x0008, 0x2006)
  1241. ???(2A)(0x6026)
  1242. If NOT(07)(0x1011, 0x0000)
  1243. Call AI(1B)()
  1244. Return(00)()
  1245. End If(09)()
  1246. End If(09)()
  1247. End If(09)()
  1248. End If(09)()
  1249. End If(09)()
  1250. If(06)(0x100C, 0x0051)
  1251. || Req(16)(0x100C, 0x0053)
  1252. || Req(16)(0x100C, 0x0057)
  1253. If NOT(07)(0x1002, 0x200A)
  1254. Button(0B)(0x0008)
  1255. End If(09)()
  1256. Else(08)()
  1257. If(06)(0x100C, 0x0056)
  1258. If(06)(0x1002, 0x0005)
  1259. && Req(19)(0x1002, 0x0006)
  1260. Button(0B)(0x0008)
  1261. End If(09)()
  1262. Else(08)()
  1263. Set Var(01)(0x0009, 0x100C)
  1264. Sub(0D)(0x0009, 0x100B)
  1265. If NOT(07)(0x1002, 0x2002)
  1266. Stick(0A)(0x2006, 0x2013)
  1267. End If(09)()
  1268. If(06)(0x1002, 0x200E)
  1269. && Req(18)(0x1007, 0x100F, 0x2006)
  1270. && Req(18)(0x1008, 0x100D, 0x2006)
  1271. && Req(18)(0x1007, 0x0009, 0x200E)
  1272. ???(05)()
  1273. End If(09)()
  1274. End If(09)()
  1275. REST?(04)()
  1276. ???(03)(0x0000)
  1277. If(06)(0x100C, 0x0051)
  1278. || Req(16)(0x100C, 0x0052)
  1279. || Req(16)(0x100C, 0x0057)
  1280. || Req(16)(0x100C, 0x0058)
  1281. Set Goto?(1C)(0x0003)
  1282. ???(1F)(0x0000)
  1283. Else(08)()
  1284. If(06)(0x100C, 0x0055)
  1285. || Req(16)(0x100C, 0x0055)
  1286. Set Goto?(1C)(0x0003)
  1287. Mul(0E)(0x0000, 0x200D)
  1288. ???(1F)(0x0000)
  1289. Mul(0E)(0x0000, 0x200D)
  1290. End If(09)()
  1291. If(06)(0x1002, 0x2014)
  1292. If(06)(0x1008, 0x100F, 0x200A)
  1293. ???(23)(0x2001)
  1294. End If(09)()
  1295. ???(05)(0x0002)
  1296. End If(09)()
  1297. REST?(04)()
  1298. ???(03)(0x0003)
  1299. If(06)(0x1007, 0x1003, 0x2006)
  1300. Add(0C)(0x0000, 0x2015)
  1301. If(06)(0x1007, 0x0000, 0x2013)
  1302. Set Var(01)(0x0000, 0x2013)
  1303. End If(09)()
  1304. Else(08)()
  1305. Add(0C)(0x0000, 0x2016)
  1306. If(06)(0x1008, 0x0000, 0x200D)
  1307. Set Var(01)(0x0000, 0x200D)
  1308. End If(09)()
  1309. End If(09)()
  1310. REST?(04)()
  1311. REST?(04)()
  1312.  
  1313. 0070
  1314. ------------------------------
  1315. global-00 = 30.000
  1316. global-01 = 3.000
  1317. global-02 = -1.000
  1318. global-03 = 1.000
  1319. ???(03)()
  1320. If NOT(07)(0x1003)
  1321. && Req(19)(0x1004)
  1322. If(06)(0x1002, 0x2000)
  1323. Return(00)()
  1324. End If(09)()
  1325. End If(09)()
  1326. ???(05)()
  1327. REST?(04)()
  1328. ???(03)()
  1329. Button(0B)(0x0004)
  1330. If(06)(0x1002, 0x2001)
  1331. ???(05)()
  1332. End If(09)()
  1333. REST?(04)()
  1334. ???(03)()
  1335. Button(0B)(0x0004)
  1336. If(06)(0x100C, 0x0072)
  1337. Stick(0A)(0x2002)
  1338. Else(08)()
  1339. Stick(0A)(0x2003)
  1340. End If(09)()
  1341. Return(00)()
  1342. REST?(04)()
  1343.  
  1344. 0040
  1345. ------------------------------
  1346. global-00 = 0.700
  1347. global-01 = 0.000
  1348. global-02 = 5.000
  1349. global-03 = 6.000
  1350. global-04 = 10.000
  1351. ???(03)()
  1352. Set Var(01)(0x0000, 0x1002)
  1353. Mul(0E)(0x0000, 0x1003, 0x2000)
  1354. Stick(0A)(0x0000)
  1355. If(06)(0x1007, 0x0000, 0x2001)
  1356. || Req(16)(0x1002, 0x2002)
  1357. Set Var(01)(0x0001, 0x2003)
  1358. Mul(0E)(0x0001, 0x100E)
  1359. ???(05)()
  1360. End If(09)()
  1361. REST?(04)()
  1362. ???(03)()
  1363. Stick(0A)(0x0000)
  1364. If(06)(0x1002, 0x0001)
  1365. || Req(16)(0x1001, 0x2004)
  1366. Return(00)()
  1367. End If(09)()
  1368. REST?(04)()
  1369. REST?(04)()
  1370.  
  1371. 0020
  1372. ------------------------------
  1373. global-00 = 8.000
  1374. global-01 = 20.000
  1375. global-02 = 0.000
  1376. global-03 = 80.000
  1377. global-04 = 50.000
  1378. global-05 = 0.250
  1379. global-06 = 0.700
  1380. global-07 = 0.750
  1381. global-08 = -1.000
  1382. global-09 = 11.000
  1383. global-0A = 9.000
  1384. global-0B = -0.500
  1385. Set Var(01)(0x0000, 0x2000)
  1386. Set Var(01)(0x0001, 0x2001)
  1387. Set Var(01)(0x0002, 0x2002)
  1388. If(06)(0x100C, 0x0024)
  1389. ???(22)(0x2003)
  1390. Else(08)()
  1391. ???(22)(0x2004)
  1392. End If(09)()
  1393. ???(03)()
  1394. If(06)(0x1008, 0x1010, 0x0001)
  1395. || Req(16)(0x0001)
  1396. ???(05)(0x0000)
  1397. REST?(04)()
  1398. End If(09)()
  1399. If(06)(0x100C, 0x0024)
  1400. Set Var(01)(0x0003, 0x1001)
  1401. Mul(0E)(0x0003, 0x2005)
  1402. If(06)(0x1000, 0x0003)
  1403. Mul(0E)(0x0002, 0x2006)
  1404. ???(05)(0x0001)
  1405. ???(14)()
  1406. End If(09)()
  1407. Else(08)()
  1408. If(06)(0x100C, 0x0021)
  1409. If NOT(07)(0x1000, 0x1000)
  1410. Mul(0E)(0x0002, 0x2006)
  1411. ???(05)(0x0001)
  1412. ???(14)()
  1413. End If(09)()
  1414. Else(08)()
  1415. If(06)(0x100C, 0x0022)
  1416. If(06)(0x1000, 0x1001, 0x1000)
  1417. Mul(0E)(0x0002, 0x2006)
  1418. ???(05)(0x0001)
  1419. ???(14)()
  1420. End If(09)()
  1421. Else(08)()
  1422. If(06)(0x1000, 0x1001)
  1423. Mul(0E)(0x0002, 0x2006)
  1424. ???(05)(0x0001)
  1425. ???(14)()
  1426. End If(09)()
  1427. Set Var(01)(0x0002, 0x1003)
  1428. If NOT(07)(0x1002, 0x0000)
  1429. Mul(0E)(0x0002, 0x2007)
  1430. End If(09)()
  1431. If(06)(0x100C, 0x0021)
  1432. Mul(0E)(0x0002, 0x2008)
  1433. Else(08)()
  1434. If(06)(0x100C, 0x0022)
  1435. && Req(18)(0x1000, 0x1001)
  1436. Mul(0E)(0x0002, 0x2008)
  1437. End If(09)()
  1438. ???(1F)(0x0002)
  1439. REST?(04)()
  1440. ???(03)(0x0001)
  1441. Set Var(01)(0x0003, 0x2009)
  1442. If(06)(0x1002, 0x0003)
  1443. ???(05)(0x0000)
  1444. REST?(04)()
  1445. Else(08)()
  1446. If NOT(07)(0x1002, 0x200A)
  1447. ???(1F)(0x0002)
  1448. End If(09)()
  1449. REST?(04)()
  1450. ???(03)(0x0000)
  1451. Set Var(01)(0x0004, 0x1002)
  1452. Mul(0E)(0x0004, 0x1003)
  1453. If(06)(0x1008, 0x0004, 0x2002)
  1454. Stick(0A)(0x200B)
  1455. Else(08)()
  1456. Return(00)()
  1457. End If(09)()
  1458. REST?(04)()
  1459. REST?(04)()
  1460.  
  1461. 0030
  1462. ------------------------------
  1463. global-00 = 8.000
  1464. global-01 = 20.000
  1465. global-02 = 30.000
  1466. global-03 = 120.000
  1467. global-04 = 0.300
  1468. global-05 = -1.000
  1469. global-06 = 0.000
  1470. global-07 = -0.500
  1471. Set Var(01)(0x0000, 0x2000)
  1472. Set Var(01)(0x0001, 0x2001)
  1473. ???(23)(0x0001)
  1474. If(06)(0x1004)
  1475. ???(05)(0x0000)
  1476. ???(14)()
  1477. End If(09)()
  1478. ???(22)(0x2002)
  1479. ???(21)()
  1480. ???(22)(0x2003)
  1481. ???(03)()
  1482. If(06)(0x1002, 0x0000)
  1483. ???(05)()
  1484. End If(09)()
  1485. REST?(04)()
  1486. ???(03)(0x0000)
  1487. If(06)(0x0001)
  1488. Set Goto?(1C)(0x0001)
  1489. End If(09)()
  1490. If(06)(0x100C, 0x0034)
  1491. Set Var(01)(0x0002, 0x1001)
  1492. Mul(0E)(0x0002, 0x2004)
  1493. If(06)(0x1000, 0x0002)
  1494. Set Goto?(1C)(0x0001)
  1495. End If(09)()
  1496. Else(08)()
  1497. If(06)(0x100C, 0x0031)
  1498. If NOT(07)(0x1000, 0x1000)
  1499. Set Goto?(1C)(0x0001)
  1500. End If(09)()
  1501. Else(08)()
  1502. If(06)(0x100C, 0x0032)
  1503. If(06)(0x1000, 0x1001, 0x1000)
  1504. Set Goto?(1C)(0x0001)
  1505. End If(09)()
  1506. Else(08)()
  1507. If(06)(0x1000, 0x1001)
  1508. Set Goto?(1C)(0x0001)
  1509. End If(09)()
  1510. Set Var(01)(0x0003, 0x1003)
  1511. If(06)(0x100C, 0x0031)
  1512. Mul(0E)(0x0003, 0x2005)
  1513. Else(08)()
  1514. If(06)(0x100C, 0x0032)
  1515. && Req(18)(0x1000, 0x1001)
  1516. Mul(0E)(0x0003, 0x2005)
  1517. End If(09)()
  1518. ???(1F)(0x0003)
  1519. REST?(04)()
  1520. ???(03)(0x0001)
  1521. Set Var(01)(0x0004, 0x1002)
  1522. Mul(0E)(0x0004, 0x1003)
  1523. If(06)(0x1008, 0x0004, 0x2006)
  1524. Stick(0A)(0x2007)
  1525. End If(09)()
  1526. Return(00)()
  1527. REST?(04)()
  1528.  
  1529. 2040
  1530. ------------------------------
  1531. global-00 = 15.000
  1532. global-01 = 0.006
  1533. global-02 = 0.300
  1534. global-03 = -30.000
  1535. global-04 = -15.000
  1536. global-05 = 10.000
  1537. global-06 = 0.000
  1538. global-07 = 8.000
  1539. global-08 = 40.000
  1540. global-09 = -0.015
  1541. global-0A = 4.000
  1542. global-0B = 2.000
  1543. global-0C = -20.000
  1544. global-0D = 30.000
  1545. global-0E = -1.000
  1546. global-0F = -25.000
  1547. global-10 = -18.000
  1548. global-11 = 5.000
  1549. global-12 = 0.700
  1550. global-13 = -10.000
  1551. global-14 = 1.000
  1552. global-15 = 24.000
  1553. global-16 = 0.800
  1554. global-17 = -0.800
  1555. global-18 = 0.000
  1556. global-19 = 0.000
  1557. global-1A = 0.000
  1558. ???(02)(0x0000, 0x1009)
  1559. ???(2A)(0x602B)
  1560. Set Var(01)(0x0002, 0x2000)
  1561. Mul(0E)(0x0002, 0x100E)
  1562. Set Var(01)(0x0003, 0x1011)
  1563. Mul(0E)(0x0003, 0x2001)
  1564. Add(0C)(0x0003, 0x2002)
  1565. If(06)(0x1008, 0x100E, 0x0003)
  1566. If(06)(0x1018)
  1567. Add(0C)(0x0002, 0x2003)
  1568. Else(08)()
  1569. Add(0C)(0x0002, 0x2004)
  1570. End If(09)()
  1571. Else(08)()
  1572. Add(0C)(0x0002, 0x2005)
  1573. End If(09)()
  1574. Set Var(01)(0x0003, 0x102A)
  1575. Add(0C)(0x0003, 0x2005)
  1576. If(06)(0x1008, 0x0002, 0x0003)
  1577. Set Var(01)(0x0002, 0x0003)
  1578. End If(09)()
  1579. Set Var(01)(0x0004, 0x2006)
  1580. ???(03)()
  1581. Set Goto?(1C)(0x0000)
  1582. If(06)(0x100E)
  1583. If(06)(0x1002, 0x2007)
  1584. Return(00)()
  1585. End If(09)()
  1586. Else(08)()
  1587. If(06)(0x1007, 0x100F, 0x2006)
  1588. && Req(18)(0x1012)
  1589. Set Goto?(1C)(0x0001)
  1590. ???(05)(0x0002)
  1591. Else(08)()
  1592. Set Var(01)(0x0003, 0x2006)
  1593. If(06)(0x1008, 0x1011, 0x2008)
  1594. Set Var(01)(0x0003, 0x2008)
  1595. Sub(0D)(0x0003, 0x1011)
  1596. Mul(0E)(0x0003, 0x2009)
  1597. End If(09)()
  1598. If(06)(0x1008, 0x100D, 0x0003)
  1599. ???(05)()
  1600. End If(09)()
  1601. End If(09)()
  1602. REST?(04)()
  1603. ???(03)()
  1604. Set Goto?(1C)(0x0000)
  1605. If NOT(07)(0x1012)
  1606. If(06)(0x1002, 0x200A)
  1607. Return(00)()
  1608. End If(09)()
  1609. REST?(04)()
  1610. End If(09)()
  1611. If(06)(0x1002, 0x200B)
  1612. Set Var(01)(0x0003, 0x0001)
  1613. Add(0C)(0x0003, 0x200C)
  1614. If(06)(0x1010, 0x2000)
  1615. && Req(18)(0x1007, 0x1010, 0x200C)
  1616. && Req(18)(0x1007, 0x100B, 0x0003)
  1617. && Req(18)(0x1007, 0x1011, 0x200D)
  1618. Set Goto?(1C)(0x0001)
  1619. ???(05)()
  1620. REST?(04)()
  1621. End If(09)()
  1622. If(06)(0x1007, 0x0004, 0x2006)
  1623. Add(0C)(0x0004, 0x200E)
  1624. Else(08)()
  1625. If NOT(07)(0x100E)
  1626. Set Var(01)(0x0003, 0x0001)
  1627. Add(0C)(0x0003, 0x0002)
  1628. If(06)(0x1008, 0x100B, 0x0003)
  1629. Set Var(01)(0x0003, 0x0001)
  1630. Add(0C)(0x0003, 0x200F)
  1631. If(06)(0x1007, 0x1010, 0x2010)
  1632. && Req(18)(0x1008, 0x1010, 0x2011)
  1633. && Req(18)(0x1007, 0x100B, 0x0003)
  1634. && Req(18)(0x1008, 0x100E, 0x2012)
  1635. Set Var(01)(0x0004, 0x2007)
  1636. REST?(04)()
  1637. End If(09)()
  1638. Set Goto?(1C)(0x0001)
  1639. ???(05)()
  1640. REST?(04)()
  1641. End If(09)()
  1642. End If(09)()
  1643. If(06)(0x1002, 0x2005)
  1644. Return(00)()
  1645. End If(09)()
  1646. End If(09)()
  1647. REST?(04)()
  1648. ???(03)(0x0002)
  1649. If NOT(07)(0x1005)
  1650. || Req(16)(0x1012)
  1651. Return(00)()
  1652. End If(09)()
  1653. ???(27)(0x0000)
  1654. If NOT(07)(0x1002, 0x200A)
  1655. Set Var(01)(0x0003, 0x0001)
  1656. Add(0C)(0x0003, 0x2013)
  1657. If(06)(0x1008, 0x100B, 0x0003)
  1658. ???(31)(0x0000)
  1659. End If(09)()
  1660. End If(09)()
  1661. If(06)(0x1008, 0x1004, 0x0000)
  1662. ???(1F)(0x2014)
  1663. Else(08)()
  1664. ???(1F)(0x200E)
  1665. End If(09)()
  1666. If(06)(0x1002, 0x2015)
  1667. Return(00)()
  1668. End If(09)()
  1669. REST?(04)()
  1670. ???(03)(0x0000)
  1671. If NOT(07)(0x1005)
  1672. Return(00)()
  1673. End If(09)()
  1674. ???(1D)(0x0000)
  1675. Set Var(01)(0x0005, 0x0000)
  1676. Sub(0D)(0x0005, 0x1004)
  1677. Set Var(01)(0x0006, 0x1002)
  1678. If(06)(0x1008, 0x0005, 0x2006)
  1679. Mul(0E)(0x0006, 0x200E)
  1680. End If(09)()
  1681. ???(1E)(0x0005)
  1682. If(06)(0x1007, 0x0005, 0x2011)
  1683. Sub(0D)(0x0005, 0x2011)
  1684. Div(0F)(0x0005, 0x2011)
  1685. If(06)(0x1007, 0x0005, 0x2014)
  1686. Set Var(01)(0x0005, 0x2014)
  1687. End If(09)()
  1688. Mul(0E)(0x0005, 0x0006)
  1689. Stick(0A)(0x0005)
  1690. End If(09)()
  1691. REST?(04)()
  1692. ???(03)(0x0001)
  1693. ???(32)()
  1694. ???(31)(0x0000)
  1695. If(06)(0x1008, 0x1004, 0x0000)
  1696. ???(1F)(0x2016)
  1697. Else(08)()
  1698. ???(1F)(0x2017)
  1699. End If(09)()
  1700. If NOT(07)(0x1011, 0x6047)
  1701. ???(1F)(0x2006, 0x2014)
  1702. End If(09)()
  1703. Button(0B)(0x0002)
  1704. REST?(04)()
  1705. REST?(04)()
  1706.  
  1707. 2020
  1708. ------------------------------
  1709. global-00 = 8.000
  1710. global-01 = -0.000
  1711. global-02 = 4.000
  1712. global-03 = -1.000
  1713. global-04 = 1.000
  1714. global-05 = 5.000
  1715. global-06 = 0.000
  1716. global-07 = 0.000
  1717. global-08 = 0.000
  1718. ???(1D)(0x0000)
  1719. ???(03)()
  1720. Set Goto?(1C)(0x0000)
  1721. If(06)(0x100E)
  1722. If(06)(0x1002, 0x2000)
  1723. Return(00)()
  1724. End If(09)()
  1725. Else(08)()
  1726. If(06)(0x1008, 0x100D, 0x2001)
  1727. ???(05)()
  1728. End If(09)()
  1729. REST?(04)()
  1730. ???(03)()
  1731. If(06)(0x1002, 0x2002)
  1732. If(06)(0x1007, 0x1004, 0x0000)
  1733. Set Var(01)(0x0002, 0x2003)
  1734. Else(08)()
  1735. Set Var(01)(0x0002, 0x2004)
  1736. End If(09)()
  1737. Mul(0E)(0x0002, 0x1002)
  1738. Stick(0A)(0x0002)
  1739. Button(0B)(0x0002)
  1740. Return(00)()
  1741. Else(08)()
  1742. Set Goto?(1C)(0x0000)
  1743. End If(09)()
  1744. REST?(04)()
  1745. ???(03)(0x0000)
  1746. Set Var(01)(0x0002, 0x0000)
  1747. Sub(0D)(0x0002, 0x1004)
  1748. ???(1E)(0x0002)
  1749. If(06)(0x1007, 0x0002, 0x2005)
  1750. If(06)(0x1007, 0x1004, 0x0000)
  1751. Set Var(01)(0x0002, 0x2003)
  1752. Else(08)()
  1753. Set Var(01)(0x0002, 0x2004)
  1754. End If(09)()
  1755. Mul(0E)(0x0002, 0x1002)
  1756. Stick(0A)(0x0002)
  1757. End If(09)()
  1758. REST?(04)()
  1759. REST?(04)()
  1760.  
  1761. 2030
  1762. ------------------------------
  1763. global-00 = 50.000
  1764. global-01 = 8.000
  1765. global-02 = 0.000
  1766. global-03 = 4.000
  1767. global-04 = 1.000
  1768. global-05 = 10.000
  1769. global-06 = -1.000
  1770. global-07 = 5.000
  1771. ???(02)(0x0000, 0x1009)
  1772. ???(03)()
  1773. Set Goto?(1C)(0x0000)
  1774. Add(0C)(0x0001, 0x2000)
  1775. If(06)(0x100E)
  1776. If(06)(0x1002, 0x2001)
  1777. Return(00)()
  1778. End If(09)()
  1779. Else(08)()
  1780. If(06)(0x1008, 0x100D, 0x2002)
  1781. && Req(18)(0x1008, 0x100B, 0x0001)
  1782. ???(05)()
  1783. End If(09)()
  1784. REST?(04)()
  1785. ???(03)()
  1786. Set Goto?(1C)(0x0000)
  1787. If(06)(0x1002, 0x2003)
  1788. If NOT(07)(0x100E)
  1789. Stick(0A)(0x2002, 0x2004)
  1790. End If(09)()
  1791. If(06)(0x1002, 0x2005)
  1792. Return(00)()
  1793. End If(09)()
  1794. End If(09)()
  1795. REST?(04)()
  1796. ???(03)(0x0000)
  1797. ???(1D)(0x0000)
  1798. Set Var(01)(0x0002, 0x0000)
  1799. Sub(0D)(0x0002, 0x1004)
  1800. Set Var(01)(0x0003, 0x1002)
  1801. If(06)(0x1008, 0x0002, 0x2002)
  1802. Mul(0E)(0x0003, 0x2006)
  1803. End If(09)()
  1804. ???(1E)(0x0002)
  1805. If(06)(0x1007, 0x0002, 0x2007)
  1806. Sub(0D)(0x0002, 0x2007)
  1807. Div(0F)(0x0002, 0x2007)
  1808. If(06)(0x1007, 0x0002, 0x2004)
  1809. Set Var(01)(0x0002, 0x2004)
  1810. End If(09)()
  1811. Mul(0E)(0x0002, 0x0003)
  1812. Stick(0A)(0x0002)
  1813. End If(09)()
  1814. REST?(04)()
  1815. REST?(04)()
  1816.  
  1817. 2010
  1818. ------------------------------
  1819. global-00 = -1.000
  1820. global-01 = 55.000
  1821. global-02 = -15.000
  1822. global-03 = 10.000
  1823. global-04 = 40.000
  1824. global-05 = 70.000
  1825. global-06 = 0.300
  1826. global-07 = 0.010
  1827. global-08 = 0.350
  1828. global-09 = 1.000
  1829. global-0A = 0.500
  1830. global-0B = 4.000
  1831. global-0C = 8.000
  1832. global-0D = 0.000
  1833. global-0E = -50.000
  1834. global-0F = 100.000
  1835. global-10 = -5.000
  1836. global-11 = -20.000
  1837. global-12 = 0.150
  1838. global-13 = 3.000
  1839. global-14 = 5.000
  1840. global-15 = -0.500
  1841. global-16 = -52.000
  1842. global-17 = -48.000
  1843. global-18 = 50.000
  1844. global-19 = -0.020
  1845. global-1A = 0.400
  1846. global-1B = 45.000
  1847. global-1C = -40.000
  1848. global-1D = -4.000
  1849. global-1E = 18.000
  1850. global-1F = 12.000
  1851. global-20 = 0.000
  1852. global-21 = 0.000
  1853. global-22 = 0.000
  1854. ???(02)(0x0000, 0x1009)
  1855. Set Var(01)(0x0002, 0x1023)
  1856. Mul(0E)(0x0002, 0x2000)
  1857. If(06)(0x1018)
  1858. && Req(18)(0x1007, 0x1011, 0x2001)
  1859. Add(0C)(0x0002, 0x2002)
  1860. End If(09)()
  1861. Set Var(01)(0x0003, 0x102A)
  1862. Add(0C)(0x0003, 0x2003)
  1863. If(06)(0x1008, 0x0002, 0x0003)
  1864. Set Var(01)(0x0002, 0x0003)
  1865. End If(09)()
  1866. Set Var(01)(0x0003, 0x2004)
  1867. Mul(0E)(0x0003, 0x100E)
  1868. Add(0C)(0x0002, 0x0003)
  1869. Set Var(01)(0x0004, 0x2005)
  1870. If(06)(0x1008, 0x100E, 0x2006)
  1871. Set Var(01)(0x0005, 0x2003)
  1872. Else(08)()
  1873. Set Var(01)(0x0005, 0x0004)
  1874. Sub(0D)(0x0005, 0x2003, 0x0002)
  1875. Mul(0E)(0x0005, 0x1011, 0x2007)
  1876. Add(0C)(0x0005, 0x0002)
  1877. End If(09)()
  1878. Set Var(01)(0x0006, 0x2000)
  1879. Set Var(01)(0x0007, 0x1011)
  1880. Mul(0E)(0x0007, 0x2007, 0x100E)
  1881. Sub(0D)(0x0007, 0x2008)
  1882. Set Var(01)(0x0003, 0x1011)
  1883. Mul(0E)(0x0003, 0x2007)
  1884. If(06)(0x1008, 0x100E, 0x0003)
  1885. Set Var(01)(0x0008, 0x2009)
  1886. Else(08)()
  1887. Set Var(01)(0x0008, 0x2000)
  1888. End If(09)()
  1889. ???(03)()
  1890. Set Goto?(1C)(0x0000)
  1891. If(06)(0x1008, 0x100F, 0x200A)
  1892. && Req(18)(0x1002, 0x200B)
  1893. Return(00)()
  1894. End If(09)()
  1895. If NOT(07)(0x1012)
  1896. If(06)(0x1002, 0x200B)
  1897. Return(00)()
  1898. End If(09)()
  1899. REST?(04)()
  1900. End If(09)()
  1901. Set Var(01)(0x0009, 0x0001)
  1902. Set Var(01)(0x000A, 0x0001)
  1903. Set Var(01)(0x000B, 0x0001)
  1904. Add(0C)(0x0009, 0x0002)
  1905. Add(0C)(0x000A, 0x0004)
  1906. Add(0C)(0x000B, 0x0005)
  1907. If(06)(0x100E)
  1908. If(06)(0x1002, 0x200C)
  1909. Return(00)()
  1910. End If(09)()
  1911. Else(08)()
  1912. Set Goto?(1C)(0x0001)
  1913. If(06)(0x1008, 0x100D, 0x200D)
  1914. If(06)(0x1008, 0x100B, 0x0009)
  1915. ???(05)()
  1916. Else(08)()
  1917. If(06)(0x1008, 0x100B, 0x000A)
  1918. If(06)(0x1008, 0x100B, 0x0001)
  1919. && Req(18)(0x1007, 0x1010, 0x200E)
  1920. && Req(19)(0x1000, 0x200F)
  1921. ???(05)()
  1922. Else(08)()
  1923. If(06)(0x1007, 0x100B, 0x000B)
  1924. If(06)(0x1008, 0x1010, 0x200E)
  1925. ???(05)()
  1926. End If(09)()
  1927. Else(08)()
  1928. If NOT(07)(0x1018)
  1929. && Req(18)(0x1007, 0x1010, 0x2002)
  1930. ???(05)()
  1931. End If(09)()
  1932. End If(09)()
  1933. End If(09)()
  1934. End If(09)()
  1935. REST?(04)()
  1936. ???(03)()
  1937. Set Goto?(1C)(0x0000)
  1938. Set Goto?(1C)(0x0001)
  1939. If(06)(0x1008, 0x0006, 0x200D)
  1940. If(06)(0x1007, 0x100B, 0x0001)
  1941. && Req(18)(0x1008, 0x1010, 0x2010)
  1942. && Req(18)(0x1007, 0x1010, 0x2011)
  1943. If(06)(0x1008, 0x100E, 0x2012)
  1944. Call AI(1B)(0x2040)
  1945. Return(00)()
  1946. Else(08)()
  1947. Set Var(01)(0x0006, 0x2009)
  1948. End If(09)()
  1949. End If(09)()
  1950. End If(09)()
  1951. If(06)(0x1002, 0x2013)
  1952. If NOT(07)(0x100E)
  1953. Stick(0A)(0x200D, 0x2009)
  1954. End If(09)()
  1955. If(06)(0x1002, 0x2003)
  1956. Return(00)()
  1957. End If(09)()
  1958. End If(09)()
  1959. REST?(04)()
  1960. ???(03)(0x0000)
  1961. If NOT(07)(0x1005)
  1962. Return(00)()
  1963. End If(09)()
  1964. ???(1D)(0x0000)
  1965. Set Var(01)(0x000C, 0x0000)
  1966. Sub(0D)(0x000C, 0x1004)
  1967. Set Var(01)(0x000D, 0x1002)
  1968. If(06)(0x1008, 0x000C, 0x200D)
  1969. Mul(0E)(0x000D, 0x2000)
  1970. End If(09)()
  1971. ???(1E)(0x000C)
  1972. If(06)(0x1007, 0x000C, 0x2014)
  1973. Set Var(01)(0x000E, 0x2009)
  1974. If(06)(0x1007, 0x100F, 0x200D)
  1975. && Req(18)(0x1000, 0x200F)
  1976. && Req(19)(0x0001)
  1977. Set Var(01)(0x000E, 0x100B)
  1978. Sub(0D)(0x000E, 0x0001)
  1979. If(06)(0x100A, 0x000E, 0x0002)
  1980. Set Var(01)(0x000E, 0x2009)
  1981. Else(08)()
  1982. If(06)(0x1007, 0x100D, 0x2015)
  1983. && Req(18)(0x1008, 0x000E, 0x2003)
  1984. Set Var(01)(0x000E, 0x2009)
  1985. Else(08)()
  1986. If(06)(0x1009, 0x0007, 0x200D)
  1987. If(06)(0x1007, 0x1010, 0x2016)
  1988. && Req(18)(0x1008, 0x1010, 0x2000)
  1989. If(06)(0x1008, 0x1010, 0x2017)
  1990. Set Var(01)(0x000E, 0x200D)
  1991. Else(08)()
  1992. Set Var(01)(0x000E, 0x2018)
  1993. Add(0C)(0x000E, 0x1010)
  1994. Mul(0E)(0x000E, 0x2019)
  1995. Sub(0D)(0x000E, 0x201A)
  1996. End If(09)()
  1997. Else(08)()
  1998. Set Var(01)(0x000E, 0x2009)
  1999. End If(09)()
  2000. Else(08)()
  2001. If(06)(0x1007, 0x1011, 0x201B)
  2002. && Req(18)(0x1007, 0x1010, 0x2016)
  2003. && Req(18)(0x1008, 0x1010, 0x2002)
  2004. If(06)(0x1008, 0x000E, 0x0005)
  2005. If(06)(0x1008, 0x1010, 0x2017)
  2006. Set Var(01)(0x000E, 0x200D)
  2007. Else(08)()
  2008. Set Var(01)(0x000E, 0x2018)
  2009. Add(0C)(0x000E, 0x1010)
  2010. Mul(0E)(0x000E, 0x2019)
  2011. Sub(0D)(0x000E, 0x201A)
  2012. End If(09)()
  2013. Else(08)()
  2014. Set Var(01)(0x000E, 0x2009)
  2015. End If(09)()
  2016. Else(08)()
  2017. Set Var(01)(0x000E, 0x2009)
  2018. End If(09)()
  2019. End If(09)()
  2020. Sub(0D)(0x000C, 0x2014)
  2021. Div(0F)(0x000C, 0x2014)
  2022. If(06)(0x1007, 0x000C, 0x2009)
  2023. Set Var(01)(0x000C, 0x2009)
  2024. End If(09)()
  2025. Mul(0E)(0x000C, 0x000D, 0x000E)
  2026. Stick(0A)(0x000C)
  2027. End If(09)()
  2028. REST?(04)()
  2029. ???(03)(0x0001)
  2030. If(06)(0x1012)
  2031. && Req(18)(0x1007, 0x0008, 0x200D)
  2032. && Req(19)(0x100E)
  2033. && Req(18)(0x1007, 0x1010, 0x201C)
  2034. && Req(18)(0x100A, 0x1010, 0x200D)
  2035. ???(31)(0x000F)
  2036. Set Var(01)(0x0003, 0x000F)
  2037. Sub(0D)(0x0003, 0x1004)
  2038. Mul(0E)(0x0003, 0x1008)
  2039. If(06)(0x100A, 0x0003, 0x200D)
  2040. REST?(04)()
  2041. End If(09)()
  2042. If(06)(0x1007, 0x1010, 0x2011)
  2043. Set Var(01)(0x0003, 0x0010)
  2044. Add(0C)(0x0003, 0x2002)
  2045. If(06)(0x1008, 0x100B, 0x0003)
  2046. REST?(04)()
  2047. End If(09)()
  2048. End If(09)()
  2049. ???(02)(0x0011, 0x1008)
  2050. Set Var(01)(0x0003, 0x2014)
  2051. Add(0C)(0x0003, 0x0010)
  2052. If(06)(0x1007, 0x100B, 0x0003)
  2053. Mul(0E)(0x0011, 0x2003)
  2054. Mul(0E)(0x0012, 0x2003)
  2055. Add(0C)(0x0003, 0x201D)
  2056. Else(08)()
  2057. Mul(0E)(0x0011, 0x201E)
  2058. Mul(0E)(0x0012, 0x201F)
  2059. End If(09)()
  2060. ???(10)(0x0011, 0x1004)
  2061. If(06)(0x1007, 0x0012, 0x0003)
  2062. If(06)(0x1007, 0x1008, 0x200D)
  2063. If(06)(0x1007, 0x0011, 0x000F)
  2064. Button(0B)(0x0004)
  2065. Return(00)()
  2066. End If(09)()
  2067. Else(08)()
  2068. If(06)(0x1008, 0x0011, 0x000F)
  2069. Button(0B)(0x0004)
  2070. Return(00)()
  2071. End If(09)()
  2072. End If(09)()
  2073. End If(09)()
  2074. REST?(04)()
  2075. REST?(04)()
  2076.  
  2077. 3020
  2078. ------------------------------
  2079. global-00 = 30.000
  2080. global-01 = 20.000
  2081. global-02 = 5.000
  2082. global-03 = 100.000
  2083. global-04 = 0.120
  2084. global-05 = 1.000
  2085. global-06 = 3.000
  2086. global-07 = 120.000
  2087. global-08 = 60.000
  2088. global-09 = 0.010
  2089. global-0A = 0.000
  2090. global-0B = 4.000
  2091. global-0C = 0.180
  2092. global-0D = 8.000
  2093. global-0E = 0.300
  2094. global-0F = 0.100
  2095. global-10 = 0.050
  2096. global-11 = 70.000
  2097. global-12 = 0.025
  2098. global-13 = 0.150
  2099. global-14 = 9.000
  2100. global-15 = 10.000
  2101. global-16 = 0.200
  2102. global-17 = 2.000
  2103. global-18 = 0.000
  2104. ???(26)(0x0000)
  2105. If(06)(0x1008, 0x0000, 0x2000)
  2106. Return(00)()
  2107. End If(09)()
  2108. Set Var(01)(0x0001, 0x100E)
  2109. Mul(0E)(0x0001, 0x2001)
  2110. Add(0C)(0x0001, 0x2002)
  2111. Set Var(01)(0x0002, 0x2003)
  2112. Sub(0D)(0x0002, 0x1011)
  2113. Mul(0E)(0x0002, 0x2004)
  2114. Add(0C)(0x0001, 0x0002)
  2115. Mul(0E)(0x0002, 0x100E)
  2116. Add(0C)(0x0001, 0x0002)
  2117. ???(22)(0x2001)
  2118. ???(03)()
  2119. If NOT(07)(0x1003)
  2120. && Req(19)(0x1004)
  2121. If(06)(0x1002, 0x2005)
  2122. && Req(19)(0x1002, 0x2006)
  2123. Button(0B)(0x0004)
  2124. End If(09)()
  2125. REST?(04)()
  2126. End If(09)()
  2127. ???(22)(0x2007)
  2128. ???(05)()
  2129. ???(14)()
  2130. REST?(04)()
  2131. ???(03)()
  2132. Button(0B)(0x0004)
  2133. If(06)(0x1017)
  2134. && Req(18)(0x1009, 0x1011, 0x2008)
  2135. && Req(18)(0x1000, 0x2001)
  2136. && Req(19)(0x1002, 0x2001)
  2137. Sub(0D)(0x0001, 0x2009)
  2138. Else(08)()
  2139. Sub(0D)(0x0001, 0x2005)
  2140. If(06)(0x100A, 0x0001, 0x200A)
  2141. Return(00)()
  2142. End If(09)()
  2143. End If(09)()
  2144. If(06)(0x100F, 0x0001)
  2145. Set Var(01)(0x0001, 0x100E)
  2146. Mul(0E)(0x0001, 0x200B)
  2147. ???(22)(0x2000)
  2148. ???(05)()
  2149. End If(09)()
  2150. REST?(04)()
  2151. ???(03)()
  2152. Button(0B)(0x0004)
  2153. If(06)(0x1002, 0x0001)
  2154. Set Var(01)(0x0003, 0x100E)
  2155. Set Var(01)(0x0002, 0x1002)
  2156. Mul(0E)(0x0002, 0x1003)
  2157. If(06)(0x1008, 0x0002, 0x200A)
  2158. Mul(0E)(0x0003, 0x200C)
  2159. Else(08)()
  2160. If NOT(07)(0x1000, 0x200D)
  2161. Mul(0E)(0x0003, 0x200E)
  2162. If(06)(0x1008, 0x0003, 0x200F)
  2163. Add(0C)(0x0003, 0x2010)
  2164. End If(09)()
  2165. End If(09)()
  2166. If(06)(0x1008, 0x1011, 0x2000)
  2167. Set Var(01)(0x0003, 0x2004)
  2168. Else(08)()
  2169. If(06)(0x1008, 0x1011, 0x2008)
  2170. Set Var(01)(0x0002, 0x2011)
  2171. Sub(0D)(0x0002, 0x1011)
  2172. Mul(0E)(0x0002, 0x2012)
  2173. If(06)(0x1008, 0x100E, 0x0002)
  2174. Set Var(01)(0x0003, 0x2004)
  2175. End If(09)()
  2176. End If(09)()
  2177. If(06)(0x1008, 0x0003, 0x200F)
  2178. ???(05)(0x0000)
  2179. Else(08)()
  2180. If(06)(0x1008, 0x0003, 0x2013)
  2181. Set Var(01)(0x0002, 0x2014)
  2182. Mul(0E)(0x0002, 0x100E)
  2183. Add(0C)(0x0002, 0x2005)
  2184. ???(22)(0x0002)
  2185. ???(05)(0x0001)
  2186. Else(08)()
  2187. If(06)(0x1010, 0x2015)
  2188. && Req(18)(0x1015)
  2189. If(06)(0x1008, 0x0003, 0x2016)
  2190. ???(05)(0x0002)
  2191. Else(08)()
  2192. ???(05)(0x0003)
  2193. End If(09)()
  2194. Else(08)()
  2195. Return(00)()
  2196. End If(09)()
  2197. End If(09)()
  2198. REST?(04)()
  2199. ???(03)(0x0000)
  2200. Button(0B)(0x0004)
  2201. If(06)(0x1002, 0x2006)
  2202. Stick(0A)(0x2005)
  2203. If(06)(0x1002, 0x200B)
  2204. ???(1A)(0x200A)
  2205. End If(09)()
  2206. End If(09)()
  2207. If NOT(07)(0x100F, 0x0001)
  2208. Return(00)()
  2209. End If(09)()
  2210. REST?(04)()
  2211. ???(03)(0x0002)
  2212. If(06)(0x1002, 0x2017)
  2213. Stick(0A)(0x200A, 0x2005)
  2214. Button(0B)(0x0001)
  2215. If(06)(0x1002, 0x2017)
  2216. ???(1A)(0x200A)
  2217. End If(09)()
  2218. End If(09)()
  2219. If NOT(07)(0x100F, 0x0001)
  2220. Return(00)()
  2221. End If(09)()
  2222. REST?(04)()
  2223. ???(03)(0x0003)
  2224. Button(0B)(0x0004)
  2225. If(06)(0x1002, 0x2017)
  2226. Button(0B)(0x0001)
  2227. If(06)(0x1002, 0x2017)
  2228. ???(1A)(0x200A)
  2229. End If(09)()
  2230. End If(09)()
  2231. If NOT(07)(0x100F, 0x0001)
  2232. Return(00)()
  2233. End If(09)()
  2234. REST?(04)()
  2235. ???(03)(0x0001)
  2236. Button(0B)(0x0004)
  2237. REST?(04)()
  2238. REST?(04)()
  2239.  
  2240. 6030
  2241. ------------------------------
  2242. global-00 = 2.000
  2243. global-01 = 0.000
  2244. global-02 = 1.000
  2245. global-03 = 100.000
  2246. global-04 = -0.200
  2247. global-05 = 0.600
  2248. global-06 = 0.400
  2249. global-07 = 2.000
  2250. global-08 = 8.000
  2251. global-09 = 0.700
  2252. global-0A = 0.500
  2253. global-0B = 3.000
  2254. global-0C = 15.000
  2255. global-0D = 25.000
  2256. global-0E = -1.000
  2257. global-0F = 55.000
  2258. global-10 = 4.000
  2259. global-11 = 45.000
  2260. global-12 = 0.300
  2261. global-13 = 0.100
  2262. global-14 = 0.200
  2263. global-15 = -0.600
  2264. global-16 = 0.000
  2265. global-17 = 0.000
  2266. global-18 = 0.000
  2267. Set Var(01)(0x0000, 0x2000)
  2268. Set Var(01)(0x0001, 0x2001)
  2269. ???(02)(0x0002, 0x1009)
  2270. If(06)(0x100C, 0x603D)
  2271. ???(05)(0x0000)
  2272. REST?(04)()
  2273. End If(09)()
  2274. If(06)(0x100C, 0x6035)
  2275. || Req(16)(0x100C, 0x6036)
  2276. || Req(16)(0x100C, 0x6037)
  2277. Set Var(01)(0x0004, 0x2002)
  2278. Set Var(01)(0x0005, 0x2002)
  2279. Else(08)()
  2280. If(06)(0x100C, 0x6031)
  2281. || Req(16)(0x100C, 0x6038)
  2282. Set Var(01)(0x0004, 0x2001)
  2283. Set Var(01)(0x0005, 0x2001)
  2284. Else(08)()
  2285. If(06)(0x100C, 0x603C)
  2286. Set Var(01)(0x0004, 0x1011)
  2287. Sub(0D)(0x0004, 0x2003)
  2288. Mul(0E)(0x0004, 0x2004)
  2289. ???(15)(0x0005)
  2290. Mul(0E)(0x0005, 0x2005)
  2291. Add(0C)(0x0005, 0x2006)
  2292. Mul(0E)(0x0004, 0x0005)
  2293. Add(0C)(0x0004, 0x2007)
  2294. Set Var(01)(0x0005, 0x2001)
  2295. Else(08)()
  2296. If(06)(0x100C, 0x603A)
  2297. || Req(16)(0x100C, 0x6039)
  2298. || Req(16)(0x100C, 0x603B)
  2299. Set Var(01)(0x0004, 0x2002)
  2300. Set Var(01)(0x0005, 0x2002)
  2301. Else(08)()
  2302. Set Var(01)(0x0004, 0x2008)
  2303. Set Var(01)(0x0005, 0x2009)
  2304. End If(09)()
  2305. If(06)(0x1008, 0x100E, 0x200A)
  2306. Add(0C)(0x0004, 0x200A)
  2307. End If(09)()
  2308. Set Var(01)(0x0006, 0x0004)
  2309. Add(0C)(0x0006, 0x1012, 0x200B)
  2310. If(06)(0x100C, 0x6036)
  2311. && Req(18)(0x101B)
  2312. Set Var(01)(0x0007, 0x200C)
  2313. Mul(0E)(0x0007, 0x100E)
  2314. Add(0C)(0x0006, 0x0007, 0x200D)
  2315. End If(09)()
  2316. Set Var(01)(0x0008, 0x200E)
  2317. ???(03)()
  2318. If(06)(0x100C, 0x6031)
  2319. || Req(16)(0x100C, 0x6032)
  2320. || Req(16)(0x100C, 0x6033)
  2321. || Req(16)(0x100C, 0x6034)
  2322. || Req(16)(0x100C, 0x6038)
  2323. || Req(16)(0x100C, 0x6039)
  2324. || Req(16)(0x100C, 0x603A)
  2325. || Req(16)(0x100C, 0x603B)
  2326. || Req(16)(0x100C, 0x603C)
  2327. ???(05)(0x0001)
  2328. Else(08)()
  2329. ???(05)()
  2330. End If(09)()
  2331. ???(14)()
  2332. REST?(04)()
  2333. ???(03)()
  2334. If(06)(0x1002, 0x0000)
  2335. ???(05)()
  2336. End If(09)()
  2337. REST?(04)()
  2338. ???(03)(0x0001)
  2339. Set Var(01)(0x0009, 0x0005)
  2340. If NOT(07)(0x1002, 0x0004)
  2341. Mul(0E)(0x0009, 0x1007)
  2342. Div(0F)(0x0009, 0x0004)
  2343. End If(09)()
  2344. If(06)(0x100C, 0x6032)
  2345. || Req(16)(0x100C, 0x6035)
  2346. || Req(16)(0x100C, 0x6039)
  2347. Mul(0E)(0x0009, 0x1003)
  2348. ???(1F)(0x0009)
  2349. Else(08)()
  2350. If(06)(0x100C, 0x6033)
  2351. || Req(16)(0x100C, 0x6036)
  2352. || Req(16)(0x100C, 0x603A)
  2353. Stick(0A)(0x2001, 0x0009)
  2354. Else(08)()
  2355. If(06)(0x100C, 0x6034)
  2356. || Req(16)(0x100C, 0x6037)
  2357. || Req(16)(0x100C, 0x603B)
  2358. Mul(0E)(0x0009, 0x200E)
  2359. Stick(0A)(0x2001, 0x0009)
  2360. End If(09)()
  2361. If(06)(0x100C, 0x603C)
  2362. Button(0B)(0x0004)
  2363. End If(09)()
  2364. If(06)(0x1002, 0x0004)
  2365. If(06)(0x1008, 0x0001, 0x2002)
  2366. If(06)(0x100C, 0x6038)
  2367. || Req(16)(0x100C, 0x6039)
  2368. || Req(16)(0x100C, 0x603A)
  2369. || Req(16)(0x100C, 0x603B)
  2370. Button(0B)(0x0002)
  2371. Else(08)()
  2372. Button(0B)(0x0001)
  2373. End If(09)()
  2374. Set Var(01)(0x0001, 0x1013)
  2375. If(06)(0x1008, 0x0008, 0x2001)
  2376. && Req(18)(0x1007, 0x1011, 0x200F)
  2377. If(06)(0x100C, 0x6032)
  2378. || Req(16)(0x100C, 0x6035)
  2379. Set Var(01)(0x0008, 0x2002)
  2380. If(06)(0x1008, 0x0006, 0x2010)
  2381. Add(0C)(0x0006, 0x2010)
  2382. End If(09)()
  2383. Else(08)()
  2384. If(06)(0x101E, 0x0023)
  2385. && Req(18)(0x100C, 0x6038)
  2386. Set Var(01)(0x0008, 0x2002)
  2387. If(06)(0x1008, 0x0006, 0x2010)
  2388. Add(0C)(0x0006, 0x2010)
  2389. End If(09)()
  2390. End If(09)()
  2391. End If(09)()
  2392. Else(08)()
  2393. Sub(0D)(0x0001, 0x2002)
  2394. End If(09)()
  2395. If(06)(0x1007, 0x0008, 0x2001)
  2396. If(06)(0x1007, 0x0008, 0x2002)
  2397. Set Goto?(1C)(0x0002)
  2398. Else(08)()
  2399. Add(0C)(0x0008, 0x2002)
  2400. End If(09)()
  2401. End If(09)()
  2402. If NOT(07)(0x100C, 0x6037)
  2403. && Req(18)(0x1007, 0x1011, 0x2011)
  2404. Set Var(01)(0x000A, 0x1002)
  2405. Mul(0E)(0x000A, 0x1003)
  2406. If(06)(0x1008, 0x000A, 0x2001)
  2407. Set Var(01)(0x0006, 0x2001)
  2408. End If(09)()
  2409. End If(09)()
  2410. If(06)(0x1007, 0x1011, 0x200F)
  2411. && Req(19)(0x101C)
  2412. && Req(19)(0x101B)
  2413. If(06)(0x100C, 0x6035)
  2414. Set Var(01)(0x0007, 0x1001)
  2415. Mul(0E)(0x0007, 0x2012)
  2416. If(06)(0x1000, 0x0007)
  2417. Set Var(01)(0x0006, 0x2001)
  2418. End If(09)()
  2419. Else(08)()
  2420. If(06)(0x100C, 0x6036)
  2421. Set Var(01)(0x0007, 0x1001)
  2422. Mul(0E)(0x0007, 0x2013)
  2423. If(06)(0x1001, 0x0007)
  2424. Set Var(01)(0x0006, 0x2001)
  2425. End If(09)()
  2426. Else(08)()
  2427. If(06)(0x100C, 0x6037)
  2428. Set Var(01)(0x0007, 0x1001)
  2429. Mul(0E)(0x0007, 0x2014)
  2430. If(06)(0x1001, 0x0007)
  2431. Set Var(01)(0x0006, 0x2001)
  2432. End If(09)()
  2433. End If(09)()
  2434. End If(09)()
  2435. If(06)(0x100C, 0x6036)
  2436. && Req(18)(0x101B)
  2437. ???(2E)(0x0002, 0x0003, 0x200A)
  2438. Sub(0D)(0x0003, 0x1027)
  2439. If(06)(0x1008, 0x0003, 0x2008)
  2440. Set Var(01)(0x0006, 0x2001)
  2441. End If(09)()
  2442. End If(09)()
  2443. If(06)(0x1002, 0x0006)
  2444. If(06)(0x1007, 0x0008, 0x2001)
  2445. ???(05)()
  2446. Else(08)()
  2447. Return(00)()
  2448. End If(09)()
  2449. End If(09)()
  2450. End If(09)()
  2451. REST?(04)()
  2452. ???(03)()
  2453. If(06)(0x1002, 0x2010)
  2454. Return(00)()
  2455. End If(09)()
  2456. Set Goto?(1C)(0x0002)
  2457. REST?(04)()
  2458. ???(03)(0x0002)
  2459. Set Var(01)(0x000C, 0x1027)
  2460. Mul(0E)(0x000C, 0x2005)
  2461. Add(0C)(0x000C, 0x100B)
  2462. If(06)(0x1007, 0x100C, 0x000C)
  2463. Stick(0A)(0x2001, 0x2005)
  2464. Else(08)()
  2465. Set Var(01)(0x000D, 0x1028)
  2466. Add(0C)(0x000D, 0x100C)
  2467. If(06)(0x1008, 0x000D, 0x000C)
  2468. Stick(0A)(0x2001, 0x2015)
  2469. Else(08)()
  2470. Set Var(01)(0x000C, 0x1027)
  2471. Add(0C)(0x000C, 0x100B, 0x2007)
  2472. If(06)(0x1007, 0x000D, 0x000C)
  2473. Stick(0A)(0x2001, 0x2005)
  2474. End If(09)()
  2475. End If(09)()
  2476. End If(09)()
  2477. REST?(04)()
  2478. ???(03)(0x0000)
  2479. If(06)(0x1002, 0x2010)
  2480. Return(00)()
  2481. End If(09)()
  2482. REST?(04)()
  2483. REST?(04)()
  2484.  
  2485. 6040
  2486. ------------------------------
  2487. global-00 = 0.000
  2488. global-01 = 3.000
  2489. global-02 = -1.000
  2490. global-03 = 1.000
  2491. global-04 = -0.600
  2492. global-05 = 55.000
  2493. global-06 = 4.000
  2494. global-07 = 0.600
  2495. global-08 = 2.000
  2496. global-09 = 0.000
  2497. Set Var(01)(0x0000, 0x2000)
  2498. Set Var(01)(0x0001, 0x2001)
  2499. Add(0C)(0x0001, 0x1012)
  2500. Set Var(01)(0x0002, 0x2002)
  2501. ???(03)()
  2502. If(06)(0x100C, 0x6042)
  2503. Stick(0A)(0x2003)
  2504. Else(08)()
  2505. If(06)(0x100C, 0x6043)
  2506. Stick(0A)(0x2002)
  2507. Else(08)()
  2508. If(06)(0x100C, 0x6047)
  2509. ???(1F)(0x1003)
  2510. Else(08)()
  2511. If(06)(0x100C, 0x6044)
  2512. || Req(16)(0x100C, 0x6048)
  2513. Stick(0A)(0x2000, 0x2003)
  2514. Else(08)()
  2515. If(06)(0x100C, 0x6045)
  2516. || Req(16)(0x100C, 0x6049)
  2517. Stick(0A)(0x2000, 0x2004)
  2518. End If(09)()
  2519. If(06)(0x1008, 0x0000, 0x2003)
  2520. If(06)(0x100C, 0x6046)
  2521. || Req(16)(0x100C, 0x6047)
  2522. || Req(16)(0x100C, 0x6048)
  2523. || Req(16)(0x100C, 0x6049)
  2524. Button(0B)(0x0002)
  2525. Else(08)()
  2526. Button(0B)(0x0001)
  2527. End If(09)()
  2528. Set Var(01)(0x0000, 0x1013)
  2529. If(06)(0x1008, 0x0002, 0x2000)
  2530. && Req(18)(0x1007, 0x1011, 0x2005)
  2531. If(06)(0x101E, 0x0023)
  2532. && Req(18)(0x100C, 0x6046)
  2533. Set Var(01)(0x0002, 0x2003)
  2534. If(06)(0x1008, 0x0001, 0x2006)
  2535. Add(0C)(0x0001, 0x2006)
  2536. End If(09)()
  2537. End If(09)()
  2538. End If(09)()
  2539. Else(08)()
  2540. Sub(0D)(0x0000, 0x2003)
  2541. End If(09)()
  2542. If(06)(0x1007, 0x0002, 0x2000)
  2543. If(06)(0x1007, 0x0002, 0x2003)
  2544. Set Goto?(1C)(0x0000)
  2545. Else(08)()
  2546. Add(0C)(0x0002, 0x2003)
  2547. End If(09)()
  2548. End If(09)()
  2549. If(06)(0x1002, 0x0001)
  2550. If(06)(0x1007, 0x0002, 0x2000)
  2551. ???(05)()
  2552. Else(08)()
  2553. If NOT(07)(0x100D)
  2554. Call AI(1B)(0x1080)
  2555. End If(09)()
  2556. Return(00)()
  2557. End If(09)()
  2558. REST?(04)()
  2559. ???(03)()
  2560. If(06)(0x1002, 0x2006)
  2561. Return(00)()
  2562. End If(09)()
  2563. Set Goto?(1C)(0x0000)
  2564. REST?(04)()
  2565. ???(03)(0x0000)
  2566. Set Var(01)(0x0003, 0x1027)
  2567. Mul(0E)(0x0003, 0x2007)
  2568. Add(0C)(0x0003, 0x100B)
  2569. If(06)(0x1007, 0x100C, 0x0003)
  2570. Stick(0A)(0x2000, 0x2007)
  2571. Else(08)()
  2572. Set Var(01)(0x0004, 0x1028)
  2573. Add(0C)(0x0004, 0x100C)
  2574. If(06)(0x1008, 0x0004, 0x0003)
  2575. Stick(0A)(0x2000, 0x2004)
  2576. Else(08)()
  2577. Set Var(01)(0x0003, 0x1027)
  2578. Add(0C)(0x0003, 0x100B, 0x2008)
  2579. If(06)(0x1007, 0x0004, 0x0003)
  2580. Stick(0A)(0x2000, 0x2007)
  2581. End If(09)()
  2582. End If(09)()
  2583. End If(09)()
  2584. REST?(04)()
  2585. REST?(04)()
  2586.  
  2587. 30A0
  2588. ------------------------------
  2589. global-00 = 20.000
  2590. global-01 = 10.000
  2591. global-02 = 100.000
  2592. global-03 = 0.050
  2593. global-04 = 1.000
  2594. global-05 = 0.000
  2595. global-06 = -1.000
  2596. global-07 = 2.000
  2597. global-08 = 0.000
  2598. global-09 = 0.000
  2599. global-0A = 0.000
  2600. ???(22)(0x2000)
  2601. ???(03)()
  2602. If NOT(07)(0x1003)
  2603. && Req(19)(0x1004)
  2604. REST?(04)()
  2605. End If(09)()
  2606. ???(22)(0x2001)
  2607. ???(05)()
  2608. ???(14)()
  2609. REST?(04)()
  2610. Set Var(01)(0x0000, 0x2002)
  2611. Sub(0D)(0x0000, 0x1011)
  2612. Mul(0E)(0x0000, 0x2003, 0x100E)
  2613. Add(0C)(0x0000, 0x2004)
  2614. ???(03)()
  2615. Button(0B)(0x0004)
  2616. If(06)(0x1002, 0x0000)
  2617. Stick(0A)(0x2005, 0x2006)
  2618. ???(05)()
  2619. End If(09)()
  2620. REST?(04)()
  2621. ???(03)()
  2622. If(06)(0x1002, 0x2007)
  2623. Return(00)()
  2624. Else(08)()
  2625. Button(0B)(0x0004)
  2626. Stick(0A)(0x2005, 0x2006)
  2627. End If(09)()
  2628. REST?(04)()
  2629. REST?(04)()
  2630.  
  2631. 30B0
  2632. ------------------------------
  2633. global-00 = 15.000
  2634. global-01 = 100.000
  2635. global-02 = 0.150
  2636. global-03 = 0.050
  2637. global-04 = 3.000
  2638. global-05 = 2.000
  2639. global-06 = 0.000
  2640. global-07 = 0.500
  2641. global-08 = 50.000
  2642. global-09 = 20.000
  2643. global-0A = 8.000
  2644. global-0B = 40.000
  2645. global-0C = 0.700
  2646. global-0D = 1.000
  2647. global-0E = -1.000
  2648. global-0F = 60.000
  2649. global-10 = 6.000
  2650. global-11 = 12.000
  2651. global-12 = 0.400
  2652. ???(22)(0x2000)
  2653. Set Var(01)(0x0000, 0x2001)
  2654. Sub(0D)(0x0000, 0x1011)
  2655. Set Var(01)(0x0001, 0x0000)
  2656. Mul(0E)(0x0000, 0x2002, 0x100E)
  2657. Mul(0E)(0x0001, 0x2003)
  2658. Add(0C)(0x0000, 0x0001)
  2659. Set Var(01)(0x0001, 0x100E)
  2660. Mul(0E)(0x0001, 0x2004)
  2661. Sub(0D)(0x0001, 0x2005)
  2662. Add(0C)(0x0000, 0x0001)
  2663. ???(03)()
  2664. Set Var(01)(0x0002, 0x1002)
  2665. Mul(0E)(0x0002, 0x1003)
  2666. If(06)(0x1008, 0x0002, 0x2006)
  2667. Set Var(01)(0x0002, 0x2007)
  2668. Mul(0E)(0x0002, 0x1003)
  2669. ???(1F)(0x0002)
  2670. End If(09)()
  2671. If(06)(0x1017)
  2672. && Req(18)(0x1001, 0x2008)
  2673. ???(22)(0x2009)
  2674. ???(05)()
  2675. ???(14)()
  2676. End If(09)()
  2677. REST?(04)()
  2678. ???(03)()
  2679. If(06)(0x1002, 0x0000)
  2680. && Req(18)(0x1003)
  2681. Button(0B)(0x0004)
  2682. Set Var(01)(0x0000, 0x2001)
  2683. Sub(0D)(0x0000, 0x1011)
  2684. Mul(0E)(0x0000, 0x2003, 0x100E)
  2685. Set Var(01)(0x0001, 0x100E)
  2686. If NOT(07)(0x101A)
  2687. Mul(0E)(0x0001, 0x200A)
  2688. End If(09)()
  2689. Sub(0D)(0x0001, 0x2005)
  2690. Add(0C)(0x0000, 0x0001)
  2691. ???(22)(0x200B)
  2692. ???(05)()
  2693. ???(14)()
  2694. End If(09)()
  2695. REST?(04)()
  2696. ???(03)()
  2697. Button(0B)(0x0004)
  2698. If(06)(0x1002, 0x0000)
  2699. Set Var(01)(0x0001, 0x100E)
  2700. If(06)(0x101A)
  2701. Mul(0E)(0x0001, 0x200C)
  2702. End If(09)()
  2703. If(06)(0x1008, 0x0001, 0x2007)
  2704. Stick(0A)(0x200D)
  2705. Return(00)()
  2706. Else(08)()
  2707. If(06)(0x1008, 0x0001, 0x200C)
  2708. Stick(0A)(0x200E)
  2709. Return(00)()
  2710. Else(08)()
  2711. Stick(0A)(0x2006, 0x200E)
  2712. ???(05)()
  2713. End If(09)()
  2714. End If(09)()
  2715. REST?(04)()
  2716. ???(03)()
  2717. If(06)(0x1002, 0x2005)
  2718. If NOT(07)(0x100F, 0x0002)
  2719. If(06)(0x1007, 0x1011, 0x200F)
  2720. If(06)(0x1000, 0x2010)
  2721. ???(15)(0x0003)
  2722. If(06)(0x1008, 0x0003, 0x2007)
  2723. Call AI(1B)(0x603C)
  2724. Else(08)()
  2725. If(06)(0x1008, 0x0003, 0x200C)
  2726. Call AI(1B)(0x1010)
  2727. End If(09)()
  2728. Else(08)()
  2729. If(06)(0x1000, 0x2011)
  2730. ???(15)(0x0003)
  2731. If(06)(0x1008, 0x0003, 0x2012)
  2732. Call AI(1B)(0x1010)
  2733. End If(09)()
  2734. End If(09)()
  2735. End If(09)()
  2736. Return(00)()
  2737. End If(09)()
  2738. Else(08)()
  2739. Button(0B)(0x0004)
  2740. Stick(0A)(0x2006, 0x200E)
  2741. End If(09)()
  2742. REST?(04)()
  2743. REST?(04)()
  2744.  
  2745. 3090
  2746. ------------------------------
  2747. global-00 = 8.000
  2748. global-01 = 20.000
  2749. global-02 = 0.000
  2750. global-03 = 0.200
  2751. global-04 = 0.300
  2752. global-05 = 12.000
  2753. global-06 = 4.000
  2754. global-07 = 50.000
  2755. global-08 = 60.000
  2756. global-09 = 0.600
  2757. global-0A = 10.000
  2758. global-0B = -1.000
  2759. global-0C = -0.700
  2760. global-0D = 3.000
  2761. global-0E = 0.750
  2762. global-0F = 2.000
  2763. global-10 = 1.000
  2764. global-11 = 6.000
  2765. global-12 = 40.000
  2766. global-13 = 0.500
  2767. Set Var(01)(0x0000, 0x2000)
  2768. Set Var(01)(0x0001, 0x2001)
  2769. Set Var(01)(0x0002, 0x2002)
  2770. Set Var(01)(0x0003, 0x100E)
  2771. Mul(0E)(0x0003, 0x2003)
  2772. Add(0C)(0x0003, 0x2004)
  2773. Mul(0E)(0x0003, 0x1001)
  2774. Set Var(01)(0x0004, 0x100E)
  2775. Mul(0E)(0x0004, 0x2005)
  2776. Add(0C)(0x0004, 0x2006)
  2777. ???(22)(0x2007)
  2778. ???(03)()
  2779. If(06)(0x1008, 0x1010, 0x0001)
  2780. || Req(16)(0x0001)
  2781. ???(05)(0x0000)
  2782. REST?(04)()
  2783. End If(09)()
  2784. Set Var(01)(0x0002, 0x1003)
  2785. If(06)(0x1000, 0x0003)
  2786. ???(22)(0x2008)
  2787. If(06)(0x1008, 0x100E, 0x2009)
  2788. || Req(16)(0x1000, 0x200A)
  2789. Mul(0E)(0x0002, 0x200B)
  2790. ???(05)(0x0001)
  2791. Else(08)()
  2792. Mul(0E)(0x0002, 0x200C)
  2793. Mul(0E)(0x0004, 0x200D)
  2794. ???(05)(0x0002)
  2795. End If(09)()
  2796. ???(14)()
  2797. End If(09)()
  2798. If NOT(07)(0x1002, 0x0000)
  2799. Mul(0E)(0x0002, 0x200E)
  2800. End If(09)()
  2801. ???(1F)(0x0002)
  2802. REST?(04)()
  2803. ???(03)(0x0001)
  2804. If(06)(0x1002, 0x0004)
  2805. ???(05)(0x0000)
  2806. REST?(04)()
  2807. Else(08)()
  2808. If NOT(07)(0x1002, 0x200F)
  2809. ???(1F)(0x0002)
  2810. End If(09)()
  2811. REST?(04)()
  2812. ???(03)(0x0002)
  2813. If(06)(0x1002, 0x0004)
  2814. ???(05)(0x0000)
  2815. REST?(04)()
  2816. Else(08)()
  2817. ???(1F)(0x0002)
  2818. End If(09)()
  2819. REST?(04)()
  2820. ???(03)(0x0000)
  2821. If NOT(07)(0x1002, 0x200F)
  2822. Set Var(01)(0x0005, 0x1002)
  2823. Mul(0E)(0x0005, 0x1003)
  2824. Else(08)()
  2825. Set Var(01)(0x0005, 0x2010)
  2826. End If(09)()
  2827. If(06)(0x1008, 0x0005, 0x2002)
  2828. Stick(0A)(0x200B)
  2829. Else(08)()
  2830. ???(15)(0x0006)
  2831. If(06)(0x1017, 0x2011)
  2832. && Req(18)(0x1001, 0x2012)
  2833. If(06)(0x1008, 0x0006, 0x2003)
  2834. Call AI(1B)(0x1010)
  2835. Else(08)()
  2836. If(06)(0x1008, 0x0006, 0x2013)
  2837. Call AI(1B)(0x1020)
  2838. End If(09)()
  2839. End If(09)()
  2840. Return(00)()
  2841. End If(09)()
  2842. REST?(04)()
  2843. REST?(04)()
  2844.  
  2845. 0080
  2846. ------------------------------
  2847. global-00 = 20.000
  2848. global-01 = 180.000
  2849. global-02 = 10.000
  2850. global-03 = 15.000
  2851. global-04 = 40.000
  2852. global-05 = -1.000
  2853. global-06 = 0.000
  2854. global-07 = 1.000
  2855. global-08 = 30.000
  2856. global-09 = 3.000
  2857. global-0A = 2.000
  2858. global-0B = 0.000
  2859. global-0C = 0.000
  2860. If(06)(0x1005)
  2861. ???(05)(0x0000)
  2862. ???(14)()
  2863. End If(09)()
  2864. ???(22)(0x2000)
  2865. ???(03)()
  2866. If(06)(0x0001)
  2867. Return(00)()
  2868. End If(09)()
  2869. If NOT(07)(0x1003)
  2870. && Req(19)(0x1004)
  2871. REST?(04)()
  2872. End If(09)()
  2873. ???(22)(0x2001)
  2874. ???(05)()
  2875. ???(14)()
  2876. REST?(04)()
  2877. ???(03)(0x0001)
  2878. If(06)(0x0001)
  2879. Return(00)()
  2880. End If(09)()
  2881. If(06)(0x1002, 0x2002)
  2882. && Req(19)(0x1005)
  2883. Return(00)()
  2884. End If(09)()
  2885. If(06)(0x1012)
  2886. If(06)(0x1001, 0x2003)
  2887. Call AI(1B)(0x1080)
  2888. Return(00)()
  2889. End If(09)()
  2890. End If(09)()
  2891. Set Var(01)(0x0000, 0x1005)
  2892. Sub(0D)(0x0000, 0x1004)
  2893. Mul(0E)(0x0000, 0x1025)
  2894. If(06)(0x1007, 0x0000, 0x2002)
  2895. If(06)(0x1012)
  2896. && Req(18)(0x1001, 0x2004)
  2897. Call AI(1B)(0x1080)
  2898. End If(09)()
  2899. Return(00)()
  2900. End If(09)()
  2901. If(06)(0x1012)
  2902. && Req(19)(0x100D)
  2903. && Req(18)(0x1008, 0x1010, 0x2002)
  2904. Call AI(1B)(0x1080)
  2905. Return(00)()
  2906. End If(09)()
  2907. Set Var(01)(0x0001, 0x1025)
  2908. Mul(0E)(0x0001, 0x2005)
  2909. ???(1F)(0x0001)
  2910. If NOT(07)(0x1002, 0x2000)
  2911. Stick(0A)(0x2006, 0x2007)
  2912. End If(09)()
  2913. If(06)(0x1002, 0x2008)
  2914. && Req(18)(0x1007, 0x100F, 0x2006)
  2915. && Req(18)(0x1008, 0x100D, 0x2006)
  2916. ???(05)()
  2917. ???(22)(0x2001)
  2918. End If(09)()
  2919. REST?(04)()
  2920. ???(03)(0x0000)
  2921. If(06)(0x0001)
  2922. Return(00)()
  2923. End If(09)()
  2924. Set Var(01)(0x0001, 0x1025)
  2925. Mul(0E)(0x0001, 0x2005)
  2926. ???(1F)(0x0001)
  2927. If(06)(0x1002, 0x2009)
  2928. If(06)(0x100D)
  2929. ???(23)(0x2005)
  2930. Else(08)()
  2931. If(06)(0x1008, 0x100F, 0x200A)
  2932. ???(23)(0x2002)
  2933. End If(09)()
  2934. ???(05)(0x0001)
  2935. End If(09)()
  2936. REST?(04)()
  2937. REST?(04)()
  2938.  
  2939. 1140
  2940. ------------------------------
  2941. global-00 = 1.500
  2942. global-01 = 180.000
  2943. global-02 = 10.000
  2944. global-03 = 0.500
  2945. global-04 = 0.000
  2946. global-05 = 20.000
  2947. global-06 = 0.700
  2948. global-07 = -0.600
  2949. global-08 = 2.500
  2950. global-09 = 2.000
  2951. global-0A = 30.000
  2952. global-0B = -30.000
  2953. global-0C = 8.000
  2954. global-0D = 15.000
  2955. global-0E = 3.000
  2956. global-0F = 1.000
  2957. global-10 = 50.000
  2958. global-11 = 0.400
  2959. global-12 = -0.400
  2960. global-13 = -1.000
  2961. global-14 = 0.000
  2962. global-15 = 0.000
  2963. global-16 = 0.000
  2964. ???(2A)(0x6029)
  2965. ???(02)(0x0000, 0x1009)
  2966. Set Var(01)(0x0002, 0x1003)
  2967. If(06)(0x1005)
  2968. If(06)(0x1008, 0x100F, 0x2000)
  2969. Return(00)()
  2970. End If(09)()
  2971. ???(2A)(0x0000)
  2972. ???(22)(0x2001)
  2973. ???(05)(0x0000)
  2974. ???(14)()
  2975. End If(09)()
  2976. ???(22)(0x2002)
  2977. ???(03)()
  2978. If NOT(07)(0x0001)
  2979. Return(00)()
  2980. End If(09)()
  2981. If NOT(07)(0x1003)
  2982. && Req(19)(0x1004)
  2983. REST?(04)()
  2984. End If(09)()
  2985. ???(22)(0x2001)
  2986. ???(2E)(0x0000, 0x0001, 0x2003)
  2987. If(06)(0x1008, 0x0001, 0x2004)
  2988. ???(05)(0x0001)
  2989. ???(14)()
  2990. End If(09)()
  2991. If(06)(0x1004)
  2992. If(06)(0x1007, 0x1006, 0x2005)
  2993. Set Var(01)(0x0002, 0x1003)
  2994. REST?(04)()
  2995. End If(09)()
  2996. ???(05)(0x0002)
  2997. ???(14)()
  2998. End If(09)()
  2999. If NOT(07)(0x1011, 0x0000)
  3000. && Req(18)(0x1011, 0x6043)
  3001. && Req(18)(0x1008, 0x100E, 0x2006)
  3002. ???(05)(0x0002)
  3003. ???(14)()
  3004. End If(09)()
  3005. ???(2A)(0x0000)
  3006. ???(05)()
  3007. ???(14)()
  3008. REST?(04)()
  3009. ???(03)()
  3010. Set Var(01)(0x0002, 0x1003)
  3011. Mul(0E)(0x0002, 0x2007)
  3012. ???(1F)(0x0002)
  3013. Set Var(01)(0x0002, 0x1003)
  3014. ???(05)()
  3015. REST?(04)()
  3016. ???(03)(0x0002)
  3017. ???(31)(0x0004)
  3018. If(06)(0x1008, 0x100F, 0x2008)
  3019. && Req(18)(0x1008, 0x100D, 0x2004)
  3020. If(06)(0x1008, 0x100F, 0x2003)
  3021. Return(00)()
  3022. End If(09)()
  3023. Set Var(01)(0x0006, 0x100D)
  3024. If(06)(0x101E, 0x0006)
  3025. || Req(16)(0x101E, 0x002C)
  3026. Mul(0E)(0x0006, 0x2009)
  3027. Else(08)()
  3028. Mul(0E)(0x0006, 0x200A)
  3029. End If(09)()
  3030. Add(0C)(0x0006, 0x100B)
  3031. Sub(0D)(0x0006, 0x0005)
  3032. If(06)(0x1008, 0x0006, 0x200B)
  3033. Return(00)()
  3034. End If(09)()
  3035. End If(09)()
  3036. Set Goto?(1C)(0x0003)
  3037. If NOT(07)(0x1002, 0x200C)
  3038. && Req(18)(0x1008, 0x100B, 0x100C)
  3039. && Req(18)(0x1000, 0x2002)
  3040. ???(1F)(0x2004)
  3041. Else(08)()
  3042. ???(1F)(0x0002)
  3043. End If(09)()
  3044. If(06)(0x1002, 0x2002)
  3045. && Req(19)(0x1005)
  3046. Return(00)()
  3047. End If(09)()
  3048. If(06)(0x1012)
  3049. If(06)(0x1001, 0x200D)
  3050. If NOT(07)(0x1011, 0x0000)
  3051. Call AI(1B)()
  3052. Else(08)()
  3053. Call AI(1B)(0x1080)
  3054. End If(09)()
  3055. Return(00)()
  3056. End If(09)()
  3057. End If(09)()
  3058. ???(2E)(0x0000, 0x0001, 0x2003)
  3059. If NOT(07)(0x1002, 0x2002)
  3060. If(06)(0x1005)
  3061. || !Req(17)(0x1002, 0x200E)
  3062. || Req(16)(0x1007, 0x0001, 0x2005)
  3063. Stick(0A)(0x2004, 0x200F)
  3064. End If(09)()
  3065. End If(09)()
  3066. If(06)(0x1002, 0x2002)
  3067. && Req(18)(0x1008, 0x100D, 0x2004)
  3068. && Req(18)(0x1007, 0x0001, 0x2002)
  3069. ???(22)(0x2001)
  3070. ???(05)()
  3071. End If(09)()
  3072. REST?(04)()
  3073. ???(03)(0x0000)
  3074. Set Goto?(1C)(0x0003)
  3075. ???(1F)(0x0002)
  3076. If(06)(0x1002, 0x200E)
  3077. ???(05)(0x0002)
  3078. End If(09)()
  3079. REST?(04)()
  3080. ???(03)(0x0001)
  3081. If NOT(07)(0x0001)
  3082. Return(00)()
  3083. End If(09)()
  3084. ???(1F)(0x0002)
  3085. If(06)(0x1005)
  3086. ???(05)(0x0002)
  3087. End If(09)()
  3088. If(06)(0x1002, 0x2010)
  3089. Return(00)()
  3090. End If(09)()
  3091. REST?(04)()
  3092. ???(03)(0x0003)
  3093. If(06)(0x1007, 0x1003, 0x2004)
  3094. Add(0C)(0x0002, 0x2011)
  3095. If(06)(0x1007, 0x0002, 0x200F)
  3096. Set Var(01)(0x0002, 0x200F)
  3097. End If(09)()
  3098. Else(08)()
  3099. Add(0C)(0x0002, 0x2012)
  3100. If(06)(0x1008, 0x0002, 0x2013)
  3101. Set Var(01)(0x0002, 0x2013)
  3102. End If(09)()
  3103. End If(09)()
  3104. REST?(04)()
  3105. REST?(04)()
  3106.  
  3107. 1070
  3108. ------------------------------
  3109. global-00 = 20.000
  3110. global-01 = 8.000
  3111. global-02 = 1000.000
  3112. global-03 = 120.000
  3113. global-04 = 0.000
  3114. global-05 = -0.500
  3115. global-06 = 16.000
  3116. global-07 = 0.500
  3117. global-08 = 2.000
  3118. global-09 = -3.000
  3119. global-0A = 0.600
  3120. global-0B = 10.000
  3121. global-0C = -1.000
  3122. global-0D = 1.000
  3123. global-0E = 0.300
  3124. global-0F = 80.000
  3125. global-10 = 0.005
  3126. global-11 = 26.000
  3127. global-12 = -12.000
  3128. global-13 = 3.000
  3129. global-14 = 0.400
  3130. global-15 = -0.400
  3131. global-16 = 0.000
  3132. global-17 = 0.000
  3133. global-18 = 0.000
  3134. Set Var(01)(0x0000, 0x1003)
  3135. ???(02)(0x0001, 0x1009)
  3136. If(06)(0x100C, 0x1071)
  3137. || Req(16)(0x100C, 0x1073)
  3138. || Req(16)(0x100C, 0x1076)
  3139. || Req(16)(0x100C, 0x1077)
  3140. Set Var(01)(0x0003, 0x100E)
  3141. Mul(0E)(0x0003, 0x2000)
  3142. Add(0C)(0x0003, 0x2001)
  3143. Set Var(01)(0x0004, 0x0003)
  3144. Else(08)()
  3145. Set Var(01)(0x0004, 0x2002)
  3146. End If(09)()
  3147. If(06)(0x1005)
  3148. ???(05)(0x0000)
  3149. ???(14)()
  3150. End If(09)()
  3151. ???(22)(0x2000)
  3152. ???(03)()
  3153. If NOT(07)(0x1003)
  3154. && Req(19)(0x1004)
  3155. REST?(04)()
  3156. End If(09)()
  3157. ???(22)(0x2003)
  3158. If(06)(0x100C, 0x1077)
  3159. || Req(16)(0x100C, 0x1078)
  3160. Set Var(01)(0x0003, 0x1003)
  3161. Mul(0E)(0x0003, 0x1002)
  3162. If(06)(0x1007, 0x0003, 0x2004)
  3163. Stick(0A)(0x2005)
  3164. ???(05)(0x0001)
  3165. REST?(04)()
  3166. End If(09)()
  3167. End If(09)()
  3168. ???(05)()
  3169. ???(14)()
  3170. REST?(04)()
  3171. ???(03)()
  3172. If(06)(0x100C, 0x1075)
  3173. || Req(16)(0x100C, 0x1076)
  3174. Set Var(01)(0x0005, 0x100E)
  3175. Mul(0E)(0x0005, 0x2006)
  3176. Add(0C)(0x0005, 0x2001)
  3177. Set Var(01)(0x0006, 0x100E)
  3178. Sub(0D)(0x0006, 0x2007)
  3179. Set Var(01)(0x0007, 0x0006)
  3180. Add(0C)(0x0007, 0x2008)
  3181. Mul(0E)(0x0000, 0x2009)
  3182. ???(05)(0x0002)
  3183. Else(08)()
  3184. If(06)(0x100C, 0x1077)
  3185. || Req(16)(0x100C, 0x1078)
  3186. Mul(0E)(0x0000, 0x2009)
  3187. ???(05)(0x0002)
  3188. Else(08)()
  3189. Set Var(01)(0x0003, 0x1003)
  3190. Mul(0E)(0x0003, 0x1002)
  3191. If(06)(0x1008, 0x0003, 0x2004)
  3192. ???(05)()
  3193. Else(08)()
  3194. ???(05)(0x0002)
  3195. End If(09)()
  3196. ???(05)()
  3197. End If(09)()
  3198. ???(14)()
  3199. REST?(04)()
  3200. ???(03)()
  3201. Set Var(01)(0x0008, 0x1003)
  3202. Mul(0E)(0x0000, 0x200A)
  3203. ???(1F)(0x0000)
  3204. Set Var(01)(0x0008, 0x1003)
  3205. ???(05)()
  3206. REST?(04)()
  3207. ???(03)(0x0001)
  3208. If(06)(0x1002, 0x2008)
  3209. ???(05)()
  3210. End If(09)()
  3211. REST?(04)()
  3212. ???(03)(0x0002)
  3213. If(06)(0x1002, 0x0004)
  3214. ???(05)()
  3215. REST?(04)()
  3216. End If(09)()
  3217. If(06)(0x1002, 0x2008)
  3218. && Req(18)(0x1012)
  3219. ???(05)()
  3220. REST?(04)()
  3221. End If(09)()
  3222. If(06)(0x100C, 0x1071)
  3223. || Req(16)(0x100C, 0x1077)
  3224. Set Goto?(1C)(0x0003)
  3225. ???(1F)(0x0000)
  3226. Else(08)()
  3227. If(06)(0x100C, 0x1072)
  3228. || Req(16)(0x100C, 0x1078)
  3229. If NOT(07)(0x1002, 0x2001)
  3230. && Req(18)(0x1008, 0x100B, 0x100C)
  3231. && Req(18)(0x1000, 0x200B)
  3232. ???(1F)(0x2004)
  3233. Else(08)()
  3234. Set Goto?(1C)(0x0003)
  3235. ???(1F)(0x0000)
  3236. End If(09)()
  3237. Else(08)()
  3238. If(06)(0x100C, 0x1075)
  3239. Stick(0A)(0x200C)
  3240. Else(08)()
  3241. If(06)(0x100C, 0x1076)
  3242. Set Goto?(1C)(0x0003)
  3243. Mul(0E)(0x0000, 0x200C)
  3244. ???(1F)(0x0000)
  3245. Mul(0E)(0x0000, 0x200C)
  3246. If(06)(0x1002, 0x0005)
  3247. ???(05)()
  3248. REST?(04)()
  3249. End If(09)()
  3250. End If(09)()
  3251. If(06)(0x1002, 0x200B)
  3252. && Req(19)(0x1005)
  3253. Return(00)()
  3254. End If(09)()
  3255. If(06)(0x100C, 0x1071)
  3256. || Req(16)(0x100C, 0x1073)
  3257. || Req(16)(0x100C, 0x1077)
  3258. If NOT(07)(0x1002, 0x2008)
  3259. Button(0B)(0x0008)
  3260. End If(09)()
  3261. Else(08)()
  3262. If(06)(0x100C, 0x1076)
  3263. If(06)(0x1002, 0x0006)
  3264. && Req(19)(0x1002, 0x0007)
  3265. Button(0B)(0x0008)
  3266. End If(09)()
  3267. Else(08)()
  3268. Set Var(01)(0x0009, 0x100C)
  3269. Sub(0D)(0x0009, 0x100B)
  3270. If NOT(07)(0x1002, 0x2000)
  3271. Stick(0A)(0x2004, 0x200D)
  3272. End If(09)()
  3273. End If(09)()
  3274. REST?(04)()
  3275. ???(03)()
  3276. If NOT(07)(0x1012)
  3277. If(06)(0x1002, 0x2001)
  3278. Return(00)()
  3279. End If(09)()
  3280. REST?(04)()
  3281. End If(09)()
  3282. ???(2E)(0x0001, 0x0002, 0x200E)
  3283. Mul(0E)(0x0001, 0x1002)
  3284. If(06)(0x1007, 0x101F, 0x200F)
  3285. Set Var(01)(0x0003, 0x101F)
  3286. Sub(0D)(0x0003, 0x200F)
  3287. Mul(0E)(0x0003, 0x2010)
  3288. If(06)(0x1007, 0x0003, 0x2007)
  3289. Set Var(01)(0x0003, 0x2007)
  3290. End If(09)()
  3291. If(06)(0x1008, 0x100E, 0x0003)
  3292. ???(02)(0x000B, 0x0001)
  3293. ???(1E)(0x000B)
  3294. ???(1E)(0x000C)
  3295. If(06)(0x1007, 0x000B, 0x000C)
  3296. ???(2A)(0x6027)
  3297. Else(08)()
  3298. ???(2A)(0x6028)
  3299. End If(09)()
  3300. If NOT(07)(0x1011, 0x0000)
  3301. If(06)(0x1011, 0x6042)
  3302. If(06)(0x1007, 0x0001, 0x2004)
  3303. Call AI(1B)()
  3304. End If(09)()
  3305. Else(08)()
  3306. If(06)(0x1011, 0x6043)
  3307. If(06)(0x1008, 0x0001, 0x2004)
  3308. Call AI(1B)()
  3309. End If(09)()
  3310. Else(08)()
  3311. If(06)(0x1011, 0x6044)
  3312. || Req(16)(0x1011, 0x6048)
  3313. If(06)(0x1007, 0x0002, 0x2004)
  3314. Call AI(1B)()
  3315. End If(09)()
  3316. Else(08)()
  3317. If(06)(0x1011, 0x6045)
  3318. || Req(16)(0x1011, 0x6049)
  3319. If(06)(0x1008, 0x0002, 0x2004)
  3320. Call AI(1B)()
  3321. End If(09)()
  3322. Else(08)()
  3323. Call AI(1B)()
  3324. End If(09)()
  3325. End If(09)()
  3326. End If(09)()
  3327. End If(09)()
  3328. If(06)(0x1007, 0x0002, 0x2011)
  3329. Call AI(1B)(0x6024)
  3330. Else(08)()
  3331. If(06)(0x1008, 0x0001, 0x2012)
  3332. Call AI(1B)(0x6023)
  3333. Else(08)()
  3334. If(06)(0x1007, 0x0001, 0x2006)
  3335. Call AI(1B)(0x6022)
  3336. Else(08)()
  3337. Call AI(1B)(0x6021)
  3338. End If(09)()
  3339. Return(00)()
  3340. REST?(04)()
  3341. ???(03)(0x0000)
  3342. If(06)(0x100C, 0x1071)
  3343. || Req(16)(0x100C, 0x1072)
  3344. || Req(16)(0x100C, 0x1077)
  3345. || Req(16)(0x100C, 0x1078)
  3346. Set Goto?(1C)(0x0003)
  3347. ???(1F)(0x0000)
  3348. Else(08)()
  3349. If(06)(0x100C, 0x1075)
  3350. || Req(16)(0x100C, 0x1075)
  3351. Set Goto?(1C)(0x0003)
  3352. Mul(0E)(0x0000, 0x200C)
  3353. ???(1F)(0x0000)
  3354. Mul(0E)(0x0000, 0x200C)
  3355. End If(09)()
  3356. If(06)(0x1002, 0x2013)
  3357. If(06)(0x1008, 0x100F, 0x2008)
  3358. ???(23)(0x200B)
  3359. End If(09)()
  3360. ???(05)(0x0002)
  3361. End If(09)()
  3362. REST?(04)()
  3363. ???(03)(0x0003)
  3364. If(06)(0x1007, 0x1003, 0x2004)
  3365. Add(0C)(0x0000, 0x2014)
  3366. If(06)(0x1007, 0x0000, 0x200D)
  3367. Set Var(01)(0x0000, 0x200D)
  3368. End If(09)()
  3369. Else(08)()
  3370. Add(0C)(0x0000, 0x2015)
  3371. If(06)(0x1008, 0x0000, 0x200C)
  3372. Set Var(01)(0x0000, 0x200C)
  3373. End If(09)()
  3374. End If(09)()
  3375. REST?(04)()
  3376. REST?(04)()
  3377.  
  3378. 1160
  3379. ------------------------------
  3380. global-00 = 50.000
  3381. global-01 = 45.000
  3382. global-02 = -1.000
  3383. global-03 = 0.000
  3384. global-04 = 0.500
  3385. global-05 = 0.000
  3386. ???(22)(0x2000)
  3387. Set Var(01)(0x0000, 0x2001)
  3388. Mul(0E)(0x0000, 0x100E)
  3389. ???(03)()
  3390. If(06)(0x100D)
  3391. Return(00)()
  3392. End If(09)()
  3393. If(06)(0x1017)
  3394. If(06)(0x1003)
  3395. Call AI(1B)(0x3020)
  3396. End If(09)()
  3397. Return(00)()
  3398. End If(09)()
  3399. Add(0C)(0x0000, 0x2002)
  3400. If(06)(0x1008, 0x0000, 0x2003)
  3401. If(06)(0x1003)
  3402. Call AI(1B)(0x603B)
  3403. Else(08)()
  3404. If(06)(0x1012)
  3405. Call AI(1B)(0x6049)
  3406. End If(09)()
  3407. Return(00)()
  3408. End If(09)()
  3409. Set Var(01)(0x0001, 0x1002)
  3410. Mul(0E)(0x0001, 0x1003)
  3411. If(06)(0x1008, 0x0001, 0x2003)
  3412. Set Var(01)(0x0001, 0x2004)
  3413. Mul(0E)(0x0001, 0x1003)
  3414. ???(1F)(0x0001)
  3415. End If(09)()
  3416. REST?(04)()
  3417. REST?(04)()
  3418.  
  3419. 30D0
  3420. ------------------------------
  3421. global-00 = 15.000
  3422. global-01 = 100.000
  3423. global-02 = 0.100
  3424. global-03 = 0.030
  3425. global-04 = 3.000
  3426. global-05 = 2.000
  3427. global-06 = 50.000
  3428. global-07 = 20.000
  3429. global-08 = 0.000
  3430. global-09 = 0.000
  3431. global-0A = 0.000
  3432. ???(22)(0x2000)
  3433. Set Var(01)(0x0000, 0x2001)
  3434. Sub(0D)(0x0000, 0x1011)
  3435. Set Var(01)(0x0001, 0x0000)
  3436. Mul(0E)(0x0000, 0x2002, 0x100E)
  3437. Mul(0E)(0x0001, 0x2003)
  3438. Add(0C)(0x0000, 0x0001)
  3439. Set Var(01)(0x0001, 0x100E)
  3440. Mul(0E)(0x0001, 0x2004)
  3441. Sub(0D)(0x0001, 0x2005)
  3442. Add(0C)(0x0000, 0x0001)
  3443. ???(03)()
  3444. If NOT(07)(0x1005)
  3445. Return(00)()
  3446. End If(09)()
  3447. If(06)(0x1017)
  3448. && Req(18)(0x1001, 0x2006)
  3449. ???(22)(0x2007)
  3450. ???(05)()
  3451. ???(14)()
  3452. End If(09)()
  3453. REST?(04)()
  3454. ???(03)()
  3455. If NOT(07)(0x1005)
  3456. Return(00)()
  3457. End If(09)()
  3458. If(06)(0x1002, 0x0000)
  3459. && Req(18)(0x1012)
  3460. Button(0B)(0x0004)
  3461. Return(00)()
  3462. End If(09)()
  3463. REST?(04)()
  3464. REST?(04)()
  3465.  
  3466. 1170
  3467. ------------------------------
  3468. Set Var(01)(0x0000, 0x2000)
  3469. Set Var(01)(0x0001, 0x2001)
  3470. ???(2A)(0x601A)
  3471. ???(2F)(0x0002, 0x2002)
  3472. ???(03)()
  3473. If(06)(0x1002, 0x0000)
  3474. Set Var(01)(0x0003, 0x2003)
  3475. Else(08)()
  3476. Set Var(01)(0x0003, 0x2004)
  3477. End If(09)()
  3478. Mul(0E)(0x0003, 0x1003)
  3479. ???(1F)(0x0003)
  3480. If(06)(0x0001)
  3481. Return(00)()
  3482. End If(09)()
  3483. If(06)(0x1002, 0x0001)
  3484. && Req(19)(0x1000, 0x2005, 0x1001)
  3485. Return(00)()
  3486. End If(09)()
  3487. If(06)(0x1000, 0x0002)
  3488. Call AI(1B)()
  3489. End If(09)()
  3490. REST?(04)()
  3491. REST?(04)()
Add Comment
Please, Sign In to add comment
Public Pastes
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!