API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 25th, 2014
152
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 34.51 KB | None | 0 0
raw download clone embed print report
  1. var
  2. idwiadomosci,printer: cardinal;
  3. reg,miejsce : integer;
  4. i : string;
  5. soe : TL2Item;
  6.  
  7. test,z :integer;
  8. obj :TL2char;
  9. // Player: TCharInfo;
  10. Masowka: Tl2skill;
  11. Action : TL2Action;
  12. NPCA : TL2Npc;
  13.  
  14. procedure zfreya;
  15. begin
  16. Delay (1000);
  17. Inventory.user.ById(736, soe);
  18. Engine.UseItem(soe);//Scroll of escape
  19.  
  20. Delay(35000);
  21. if User.inrange(87184,-140256,-1536, 250, 150) then begin
  22. Engine.MoveTo(87184,-140256,-1536);
  23. Engine.MoveTo(87368,-140838,-1512);
  24. Engine.MoveTo(87319,-141796,-1338);
  25. Engine.MoveTo(87145,-142916,-1313);
  26. Engine.MoveTo(87070,-143418,-1290);
  27. end;
  28. if User.inrange(87408,-142304,-1336, 250, 150) then begin
  29. Engine.MoveTo(87408,-142304,-1336);
  30. Engine.MoveTo(87145,-142916,-1313);
  31. Engine.MoveTo(87070,-143418,-1290);
  32. end;
  33. if User.inrange(88240,-142736,-1336, 250, 150) then begin
  34. Engine.MoveTo(88240,-142736,-1336);
  35. Engine.MoveTo(87585,-142662,-1338);
  36. Engine.MoveTo(87070,-143418,-1290);
  37. end;
  38. if User.inrange(85056,-141328,-1528, 250, 150) then begin
  39. Engine.MoveTo(85056,-141328,-1528);
  40. Engine.MoveTo(85181,-141845,-1539);
  41. Engine.MoveTo(85804,-142279,-1339);
  42. Engine.MoveTo(87157,-142636,-1338);
  43. Engine.MoveTo(87070,-143418,-1290);
  44. end;
  45. if User.inrange(88624,-142480,-1336, 250, 150) then begin
  46. Engine.MoveTo(88624,-142480,-1336);
  47. Engine.MoveTo(87548,-142686,-1331);
  48. Engine.MoveTo(87070,-143418,-1290);
  49. end;
  50. if User.inrange(86400,-142672,-1336, 250, 150) then begin
  51. Engine.MoveTo(86400,-142672,-1336);
  52. Engine.MoveTo(87143,-142570,-1338);
  53. Engine.MoveTo(87070,-143418,-1290);
  54. end;
  55. if User.inrange(86560,-140320,-1536, 250, 150) then begin
  56. Engine.MoveTo(86560,-140320,-1536);
  57. Engine.MoveTo(87300,-140655,-1539);
  58. Engine.MoveTo(87385,-141436,-1339);
  59. Engine.MoveTo(87246,-142537,-1338);
  60. Engine.MoveTo(87070,-143418,-1290);
  61. end;
  62. if User.inrange(88448,-140512,-1536, 250, 150) then begin
  63. Engine.MoveTo(88448,-140512,-1536);
  64. Engine.MoveTo(87410,-140642,-1539);
  65. Engine.MoveTo(87299,-141493,-1338);
  66. Engine.MoveTo(87291,-142607,-1338);
  67. Engine.MoveTo(87070,-143418,-1290);
  68. end;
  69. if User.inrange(89712,-141472,-1528, 250, 150) then begin
  70. Engine.MoveTo(89712,-141472,-1528);
  71. Engine.MoveTo(89497,-141893,-1539);
  72. Engine.MoveTo(88963,-142272,-1339);
  73. Engine.MoveTo(87737,-142631,-1338);
  74. Engine.MoveTo(87070,-143418,-1290);
  75. end;
  76. if User.inrange(87344,-141696,-1336, 250, 150) then begin
  77. Engine.MoveTo(87344,-141696,-1336);
  78. Engine.MoveTo(87354,-142594,-1338);
  79. Engine.MoveTo(87070,-143418,-1290);
  80. end;
  81. if User.inrange(85472,-140752,-1536, 250, 150) then begin
  82. Engine.MoveTo(85472,-140752,-1536);
  83. Engine.MoveTo(85191,-141803,-1539);
  84. Engine.MoveTo(85909,-142322,-1338);
  85. Engine.MoveTo(87096,-142671,-1338);
  86. Engine.MoveTo(87070,-143418,-1290);
  87. end;
  88. if User.inrange(89360,-140944,-1536, 250, 150) then begin
  89. Engine.MoveTo(89360,-140944,-1536);
  90. Engine.MoveTo(89539,-141762,-1539);
  91. Engine.MoveTo(88910,-142276,-1339);
  92. Engine.MoveTo(87637,-142734,-1332);
  93. Engine.MoveTo(87070,-143418,-1290);
  94. end;
  95. if User.inrange(87776,-140384,-1536, 250, 150) then begin
  96. Engine.MoveTo(87776,-140384,-1536);
  97. Engine.MoveTo(87403,-140707,-1539);
  98. Engine.MoveTo(87351,-141645,-1338);
  99. Engine.MoveTo(87310,-142568,-1338);
  100. Engine.MoveTo(87070,-143418,-1290);
  101. end;
  102. if User.inrange(84720,-141936,-1536, 250, 150) then begin
  103. Engine.MoveTo(84720,-141936,-1536);
  104. Engine.MoveTo(85201,-141842,-1539);
  105. Engine.MoveTo(85807,-142262,-1339);
  106. Engine.MoveTo(87116,-142704,-1338);
  107. Engine.MoveTo(87070,-143418,-1290);
  108. end;
  109. if User.inrange(85968,-142384,-1336, 250, 150) then begin
  110. Engine.MoveTo(85968,-142384,-1336);
  111. Engine.MoveTo(87116,-142704,-1338);
  112. Engine.MoveTo(87070,-143418,-1290);
  113. end;
  114.  
  115.  
  116.  
  117. npclist.byId(31964,NPCA); //Z SHUTGARD DO GIRAN
  118. Delay(500);Engine.SetTarget (NPCA);
  119. Delay (1000); Engine.DlgOpen; Delay (1000);
  120. Engine.DlgSel (1);
  121. Engine.DlgSel (6);
  122. Engine.CancelTarget;
  123.  
  124.  
  125. Delay(35000);
  126. Engine.MoveTo(83397, 147942, -3431);
  127. npclist.byId(30080,NPCA);
  128. Delay(500);Engine.SetTarget (NPCA);
  129. Delay (1000); Engine.DlgOpen; Delay (1000);
  130. Engine.DlgSel (1);
  131. Engine.DlgSel (10);
  132. Engine.CancelTarget;
  133.  
  134. Delay(35000);
  135.  
  136. Engine.MoveTo(48126, 186829, -3512);
  137. Engine.MoveTo(48166, 186810, -3512);
  138.  
  139. npclist.byId(32712,NPCA);
  140. Delay(500);Engine.SetTarget (NPCA);
  141. Delay (1000); Engine.DlgOpen; Delay (1000);
  142. Engine.DlgSel (1);
  143. Engine.DlgSel (1);
  144. Engine.DlgSel (1);
  145. Engine.CancelTarget;
  146. engine.loadconfig('C:\BOTT\Settings\1zakenwynnnn.xml');
  147.  
  148. Engine.MoveTo(52131, 219079, -3257);
  149. end;
  150.  
  151.  
  152.  
  153.  
  154. procedure dojsciezaken;
  155. begin
  156. Engine.MoveTo(83341, 147951, -3431);
  157. Engine.MoveTo(83397, 147942, -3431);
  158.  
  159. npclist.byId(30080,NPCA);
  160. Delay(500);Engine.SetTarget (NPCA);
  161. Delay (1000); Engine.DlgOpen; Delay (1000);
  162. Engine.DlgSel (1);
  163. Engine.DlgSel (10);
  164. Engine.CancelTarget;
  165.  
  166. Delay(35000);
  167.  
  168. Engine.MoveTo(48126, 186829, -3512);
  169. Engine.MoveTo(48166, 186810, -3512);
  170.  
  171. npclist.byId(32712,NPCA);
  172. Delay(500);Engine.SetTarget (NPCA);
  173. Delay (1000); Engine.DlgOpen; Delay (1000);
  174. Engine.DlgSel (1);
  175. Engine.DlgSel (1);
  176. Engine.DlgSel (1);
  177. Engine.CancelTarget;
  178. engine.loadconfig('C:\BOTT\Settings\1zakenwynnnn.xml');
  179.  
  180. Engine.MoveTo(52131, 219079, -3257);
  181.  
  182.  
  183. end;
  184.  
  185.  
  186. //*********************************************************************
  187.  
  188. procedure msg;
  189. begin
  190. while Engine.Status= lsOnline do begin
  191. Action := Engine.WaitAction([laSysMsg],idwiadomosci,printer);
  192.  
  193. if Action = laSysMsg then begin
  194. Print(idwiadomosci);
  195.  
  196. if idwiadomosci = 2261 then begin
  197. reg:=1;
  198. //PlaySound ('C:\UDK\Sounds\GM.Wav', false);
  199. end;
  200. end;
  201. end;
  202. end;
  203. procedure zap1;
  204. begin
  205. Engine.MoveTo(53383, 220130, -3523);
  206. Engine.MoveTo(53334, 220116, -3523);
  207.  
  208. npclist.byId(32705,NPCA);
  209. Delay(500);Engine.SetTarget (NPCA);
  210. Delay (1000); Engine.DlgOpen; Delay (1000);
  211. Engine.CancelTarget;
  212.  
  213. Engine.MoveTo(54162, 220122, -3523);
  214. Engine.MoveTo(54286, 219230, -3523);
  215. Engine.MoveTo(54350, 219127, -3523);
  216.  
  217. npclist.byId(32705,NPCA);
  218. Delay(500);Engine.SetTarget (NPCA);
  219. Delay (1000); Engine.DlgOpen; Delay (1000);
  220. Engine.CancelTarget;
  221.  
  222. Engine.MoveTo(54221, 219442, -3523);
  223. Engine.MoveTo(54235, 220109, -3523);
  224. Engine.MoveTo(55102, 220105, -3523);
  225. Engine.MoveTo(55230, 220027, -3523);
  226.  
  227.  
  228. npclist.byId(32705,NPCA);
  229. Delay(500);Engine.SetTarget (NPCA);
  230. Delay (1000); Engine.DlgOpen; Delay (1000);
  231. Engine.CancelTarget;
  232.  
  233. Engine.MoveTo(54815, 220152, -3523);
  234. Engine.MoveTo(54262, 220216, -3523);
  235. Engine.MoveTo(54256, 220992, -3523);
  236. Engine.MoveTo(54237, 221024, -3523);
  237.  
  238.  
  239. npclist.byId(32705,NPCA);
  240. Delay(500);Engine.SetTarget (NPCA);
  241. Delay (1000); Engine.DlgOpen; Delay (1000);
  242. Engine.CancelTarget;
  243.  
  244. Engine.MoveTo(54246, 220133, -3523);
  245.  
  246. end;
  247.  
  248. procedure zap2;
  249. begin
  250. Engine.MoveTo(55477, 220116, -3523);
  251. Engine.MoveTo(55297, 220038, -3523);
  252.  
  253. npclist.byId(32705,NPCA);
  254. Delay(500);Engine.SetTarget (NPCA);
  255. Delay (1000); Engine.DlgOpen; Delay (1000);
  256. Engine.CancelTarget;
  257.  
  258. Engine.MoveTo(55775, 220132, -3523);
  259. Engine.MoveTo(56306, 219605, -3523);
  260. Engine.MoveTo(56213, 219199, -3523);
  261. Engine.MoveTo(56178, 219136, -3496);
  262.  
  263. npclist.byId(32705,NPCA);
  264. Delay(500);Engine.SetTarget (NPCA);
  265. Delay (1000); Engine.DlgOpen; Delay (1000);
  266. Engine.CancelTarget;
  267.  
  268. Engine.MoveTo(56364, 219713, -3523);
  269. Engine.MoveTo(56786, 220116, -3523);
  270. Engine.MoveTo(57129, 220119, -3523);
  271. Engine.MoveTo(57176, 220135, -3523);
  272.  
  273. npclist.byId(32705,NPCA);
  274. Delay(500);Engine.SetTarget (NPCA);
  275. Delay (1000); Engine.DlgOpen; Delay (1000);
  276. Engine.CancelTarget;
  277.  
  278. Engine.MoveTo(56680, 220130, -3523);
  279. Engine.MoveTo(56296, 220623, -3523);
  280. Engine.MoveTo(56289, 220988, -3496);
  281. Engine.MoveTo(56281, 221032, -3523);
  282.  
  283. npclist.byId(32705,NPCA);
  284. Delay(500);Engine.SetTarget (NPCA);
  285. Delay (1000); Engine.DlgOpen; Delay (1000);
  286. Engine.CancelTarget;
  287.  
  288. Engine.MoveTo(56292, 220210, -3523);
  289.  
  290. end;
  291.  
  292. procedure zap3;
  293. begin
  294. Engine.MoveTo(54416, 219105, -3496);
  295. Engine.MoveTo(54357, 219121, -3523);
  296.  
  297. npclist.byId(32705,NPCA);
  298. Delay(500);Engine.SetTarget (NPCA);
  299. Delay (1000); Engine.DlgOpen; Delay (1000);
  300. Engine.CancelTarget;
  301.  
  302. Engine.MoveTo(54857, 219106, -3523);
  303. Engine.MoveTo(55273, 218577, -3523);
  304. Engine.MoveTo(55248, 218236, -3523);
  305. Engine.MoveTo(55271, 218197, -3523);
  306.  
  307. npclist.byId(32705,NPCA);
  308. Delay(500);Engine.SetTarget (NPCA);
  309. Delay (1000); Engine.DlgOpen; Delay (1000);
  310. Engine.CancelTarget;
  311.  
  312. Engine.MoveTo(55252, 218630, -3523);
  313. Engine.MoveTo(55750, 219095, -3523);
  314. Engine.MoveTo(56107, 219081, -3523);
  315. Engine.MoveTo(56164, 219104, -3523);
  316.  
  317. npclist.byId(32705,NPCA);
  318. Delay(500);Engine.SetTarget (NPCA);
  319. Delay (1000); Engine.DlgOpen; Delay (1000);
  320. Engine.CancelTarget;
  321.  
  322. Engine.MoveTo(55749, 219105, -3523);
  323. Engine.MoveTo(55261, 219606, -3523);
  324. Engine.MoveTo(55269, 219986, -3523);
  325. Engine.MoveTo(55258, 220022, -3523);
  326.  
  327. npclist.byId(32705,NPCA);
  328. Delay(500);Engine.SetTarget (NPCA);
  329. Delay (1000); Engine.DlgOpen; Delay (1000);
  330. Engine.CancelTarget;
  331.  
  332. Engine.MoveTo(55269, 219124, -3523);
  333.  
  334. end;
  335.  
  336. procedure zap4;
  337. begin
  338.  
  339. Engine.MoveTo(56292, 218940, -3523);
  340. Engine.MoveTo(56196, 219041, -3523);
  341. Engine.MoveTo(56176, 219083, -3523);
  342.  
  343. npclist.byId(32705,NPCA);
  344. Delay(500);Engine.SetTarget (NPCA);
  345. Delay (1000); Engine.DlgOpen; Delay (1000);
  346. Engine.CancelTarget;
  347.  
  348. Engine.MoveTo(56285, 218828, -3523);
  349. Engine.MoveTo(56284, 218486, -3523);
  350. Engine.MoveTo(55753, 218075, -3523);
  351. Engine.MoveTo(55310, 218168, -3523);
  352. Engine.MoveTo(55285, 218190, -3523);
  353.  
  354. npclist.byId(32705,NPCA);
  355. Delay(500);Engine.SetTarget (NPCA);
  356. Delay (1000); Engine.DlgOpen; Delay (1000);
  357. Engine.CancelTarget;
  358.  
  359. Engine.MoveTo(55484, 218083, -3523);
  360. Engine.MoveTo(55885, 218067, -3523);
  361. Engine.MoveTo(56301, 217558, -3523);
  362. Engine.MoveTo(56261, 217198, -3523);
  363. Engine.MoveTo(56288, 217189, -3523);
  364.  
  365. npclist.byId(32705,NPCA);
  366. Delay(500);Engine.SetTarget (NPCA);
  367. Delay (1000); Engine.DlgOpen; Delay (1000);
  368. Engine.CancelTarget;
  369.  
  370. Engine.MoveTo(56288, 217642, -3523);
  371. Engine.MoveTo(56791, 218089, -3523);
  372. Engine.MoveTo(57171, 218051, -3523);
  373. Engine.MoveTo(57189, 218086, -3523);
  374.  
  375. npclist.byId(32705,NPCA);
  376. Delay(500);Engine.SetTarget (NPCA);
  377. Delay (1000); Engine.DlgOpen; Delay (1000);
  378. Engine.CancelTarget;
  379.  
  380. Engine.MoveTo(56306, 218040, -3523);
  381.  
  382.  
  383. end;
  384.  
  385.  
  386. procedure zap5;
  387. begin
  388.  
  389. Engine.MoveTo(55060, 218070, -3523);
  390. Engine.MoveTo(55210, 218180, -3523);
  391. Engine.MoveTo(55239, 218193, -3523);
  392.  
  393. npclist.byId(32705,NPCA);
  394. Delay(500);Engine.SetTarget (NPCA);
  395. Delay (1000); Engine.DlgOpen; Delay (1000);
  396. Engine.CancelTarget;
  397.  
  398. Engine.MoveTo(55071, 218103, -3523);
  399. Engine.MoveTo(54633, 218081, -3523);
  400. Engine.MoveTo(54254, 218565, -3523);
  401. Engine.MoveTo(54300, 219018, -3523);
  402. Engine.MoveTo(54346, 219080, -3523);
  403.  
  404. npclist.byId(32705,NPCA);
  405. Delay(500);Engine.SetTarget (NPCA);
  406. Delay (1000); Engine.DlgOpen; Delay (1000);
  407. Engine.CancelTarget;
  408.  
  409. Engine.MoveTo(54207, 218657, -3496);
  410. Engine.MoveTo(54230, 218529, -3523);
  411. Engine.MoveTo(53780, 218113, -3523);
  412. Engine.MoveTo(53357, 218088, -3523);
  413. Engine.MoveTo(53339, 218071, -3523);
  414.  
  415. npclist.byId(32705,NPCA);
  416. Delay(500);Engine.SetTarget (NPCA);
  417. Delay (1000); Engine.DlgOpen; Delay (1000);
  418. Engine.CancelTarget;
  419.  
  420. Engine.MoveTo(53750, 218078, -3523);
  421. Engine.MoveTo(54238, 217613, -3523);
  422. Engine.MoveTo(54227, 217201, -3523);
  423. Engine.MoveTo(54246, 217192, -3523);
  424.  
  425. npclist.byId(32705,NPCA);
  426. Delay(500);Engine.SetTarget (NPCA);
  427. Delay (1000); Engine.DlgOpen; Delay (1000);
  428. Engine.CancelTarget;
  429.  
  430. Engine.MoveTo(54233, 218098, -3523);
  431.  
  432. end;
  433.  
  434. procedure zap6;
  435. begin
  436. Engine.MoveTo(56273, 217229, -3251);
  437. Engine.MoveTo(56298, 217171, -3251);
  438.  
  439. npclist.byId(32705,NPCA);
  440. Delay(500);Engine.SetTarget (NPCA);
  441. Delay (1000); Engine.DlgOpen; Delay (1000);
  442. Engine.CancelTarget;
  443.  
  444. Engine.MoveTo(56281, 217701, -3251);
  445. Engine.MoveTo(56805, 218090, -3251);
  446. Engine.MoveTo(57185, 218063, -3251);
  447. Engine.MoveTo(57186, 218088, -3251);
  448.  
  449. npclist.byId(32705,NPCA);
  450. Delay(500);Engine.SetTarget (NPCA);
  451. Delay (1000); Engine.DlgOpen; Delay (1000);
  452. Engine.CancelTarget;
  453.  
  454. Engine.MoveTo(56643, 218090, -3251);
  455. Engine.MoveTo(56334, 218549, -3251);
  456. Engine.MoveTo(56203, 219031, -3251);
  457. Engine.MoveTo(56161, 219089, -3251);
  458.  
  459. npclist.byId(32705,NPCA);
  460. Delay(500);Engine.SetTarget (NPCA);
  461. Delay (1000); Engine.DlgOpen; Delay (1000);
  462. Engine.CancelTarget;
  463.  
  464. Engine.MoveTo(56303, 218754, -3251);
  465. Engine.MoveTo(56227, 218338, -3249);
  466. Engine.MoveTo(55640, 218036, -3251);
  467. Engine.MoveTo(55340, 218161, -3251);
  468. Engine.MoveTo(55293, 218185, -3251);
  469.  
  470. npclist.byId(32705,NPCA);
  471. Delay(500);Engine.SetTarget (NPCA);
  472. Delay (1000); Engine.DlgOpen; Delay (1000);
  473. Engine.CancelTarget;
  474.  
  475. Engine.MoveTo(55646, 218065, -3249);
  476. Engine.MoveTo(56264, 218082, -3251);
  477.  
  478. end;
  479.  
  480. procedure zap7;
  481. begin
  482. Engine.MoveTo(55241, 219592, -3251);
  483. Engine.MoveTo(55269, 219964, -3251);
  484. Engine.MoveTo(55259, 220007, -3251);
  485.  
  486. npclist.byId(32705,NPCA);
  487. Delay(500);Engine.SetTarget (NPCA);
  488. Delay (1000); Engine.DlgOpen; Delay (1000);
  489. Engine.CancelTarget;
  490.  
  491. Engine.MoveTo(55252, 219418, -3251);
  492. Engine.MoveTo(54800, 219134, -3251);
  493. Engine.MoveTo(54404, 219119, -3251);
  494. Engine.MoveTo(54362, 219097, -3251);
  495.  
  496. npclist.byId(32705,NPCA);
  497. Delay(500);Engine.SetTarget (NPCA);
  498. Delay (1000); Engine.DlgOpen; Delay (1000);
  499. Engine.CancelTarget;
  500.  
  501. Engine.MoveTo(54854, 219101, -3251);
  502. Engine.MoveTo(55302, 218566, -3251);
  503. Engine.MoveTo(55255, 218232, -3251);
  504. Engine.MoveTo(55271, 218201, -3251);
  505.  
  506. npclist.byId(32705,NPCA);
  507. Delay(500);Engine.SetTarget (NPCA);
  508. Delay (1000); Engine.DlgOpen; Delay (1000);
  509. Engine.CancelTarget;
  510.  
  511. Engine.MoveTo(55270, 219055, -3251);
  512.  
  513. end;
  514.  
  515. procedure zap8;
  516. begin
  517. Engine.MoveTo(56301, 219320, -3224);
  518. Engine.MoveTo(56202, 219142, -3251);
  519. Engine.MoveTo(56171, 219106, -3251);
  520.  
  521. npclist.byId(32705,NPCA);
  522. Delay(500);Engine.SetTarget (NPCA);
  523. Delay (1000); Engine.DlgOpen; Delay (1000);
  524. Engine.CancelTarget;
  525.  
  526. Engine.MoveTo(56296, 219379, -3251);
  527. Engine.MoveTo(56294, 219662, -3251);
  528. Engine.MoveTo(56791, 220135, -3251);
  529. Engine.MoveTo(57147, 220107, -3251);
  530. Engine.MoveTo(57181, 220135, -3251);
  531.  
  532. npclist.byId(32705,NPCA);
  533. Delay(500);Engine.SetTarget (NPCA);
  534. Delay (1000); Engine.DlgOpen; Delay (1000);
  535. Engine.CancelTarget;
  536.  
  537. Engine.MoveTo(56609, 220121, -3251);
  538. Engine.MoveTo(56281, 220628, -3251);
  539. Engine.MoveTo(56302, 221006, -3251);
  540. Engine.MoveTo(56276, 221022, -3251);
  541.  
  542. npclist.byId(32705,NPCA);
  543. Delay(500);Engine.SetTarget (NPCA);
  544. Delay (1000); Engine.DlgOpen; Delay (1000);
  545. Engine.CancelTarget;
  546.  
  547. Engine.MoveTo(56290, 220517, -3251);
  548. Engine.MoveTo(55847, 220171, -3251);
  549. Engine.MoveTo(55329, 220046, -3251);
  550. Engine.MoveTo(55269, 220010, -3251);
  551.  
  552. npclist.byId(32705,NPCA);
  553. Delay(500);Engine.SetTarget (NPCA);
  554. Delay (1000); Engine.DlgOpen; Delay (1000);
  555. Engine.CancelTarget;
  556.  
  557. Engine.MoveTo(55673, 220165, -3251);
  558. Engine.MoveTo(56281, 220114, -3251);
  559.  
  560. end;
  561.  
  562. procedure zap9;
  563. begin
  564. Engine.MoveTo(54267, 221007, -3251);
  565. Engine.MoveTo(54227, 221021, -3251);
  566.  
  567. npclist.byId(32705,NPCA);
  568. Delay(500);Engine.SetTarget (NPCA);
  569. Delay (1000); Engine.DlgOpen; Delay (1000);
  570. Engine.CancelTarget;
  571.  
  572. Engine.MoveTo(54241, 220525, -3251);
  573. Engine.MoveTo(53767, 220137, -3251);
  574. Engine.MoveTo(53365, 220136, -3251);
  575. Engine.MoveTo(53353, 220115, -3251);
  576.  
  577. npclist.byId(32705,NPCA);
  578. Delay(500);Engine.SetTarget (NPCA);
  579. Delay (1000); Engine.DlgOpen; Delay (1000);
  580. Engine.CancelTarget;
  581.  
  582. Engine.MoveTo(53900, 220134, -3251);
  583. Engine.MoveTo(54254, 219585, -3251);
  584. Engine.MoveTo(54322, 219153, -3251);
  585. Engine.MoveTo(54350, 219113, -3251);
  586.  
  587. npclist.byId(32705,NPCA);
  588. Delay(500);Engine.SetTarget (NPCA);
  589. Delay (1000); Engine.DlgOpen; Delay (1000);
  590. Engine.CancelTarget;
  591.  
  592. Engine.MoveTo(54253, 219376, -3251);
  593. Engine.MoveTo(54244, 219671, -3251);
  594. Engine.MoveTo(54733, 220146, -3251);
  595. Engine.MoveTo(55196, 220054, -3251);
  596. Engine.MoveTo(55243, 220016, -3251);
  597.  
  598. npclist.byId(32705,NPCA);
  599. Delay(500);Engine.SetTarget (NPCA);
  600. Delay (1000); Engine.DlgOpen; Delay (1000);
  601. Engine.CancelTarget;
  602.  
  603. Engine.MoveTo(55042, 220118, -3251);
  604. Engine.MoveTo(54286, 220130, -3251);
  605.  
  606. end;
  607.  
  608. procedure zap10;
  609. begin
  610. Engine.MoveTo(53343, 218107, -3251);
  611. Engine.MoveTo(53345, 218067, -3251);
  612.  
  613. npclist.byId(32705,NPCA);
  614. Delay(500);Engine.SetTarget (NPCA);
  615. Delay (1000); Engine.DlgOpen; Delay (1000);
  616. Engine.CancelTarget;
  617.  
  618. Engine.MoveTo(53815, 218098, -3251);
  619. Engine.MoveTo(54265, 217535, -3251);
  620. Engine.MoveTo(54219, 217173, -3251);
  621. Engine.MoveTo(54251, 217172, -3251);
  622.  
  623. npclist.byId(32705,NPCA);
  624. Delay(500);Engine.SetTarget (NPCA);
  625. Delay (1000); Engine.DlgOpen; Delay (1000);
  626. Engine.CancelTarget;
  627.  
  628. Engine.MoveTo(54247, 217649, -3251);
  629. Engine.MoveTo(54772, 218082, -3251);
  630. Engine.MoveTo(55211, 218162, -3251);
  631. Engine.MoveTo(55263, 218201, -3251);
  632.  
  633. npclist.byId(32705,NPCA);
  634. Delay(500);Engine.SetTarget (NPCA);
  635. Delay (1000); Engine.DlgOpen; Delay (1000);
  636. Engine.CancelTarget;
  637.  
  638. Engine.MoveTo(55008, 218070, -3251);
  639. Engine.MoveTo(54571, 218101, -3251);
  640. Engine.MoveTo(54202, 218645, -3251);
  641. Engine.MoveTo(54322, 219053, -3251);
  642. Engine.MoveTo(54363, 219100, -3251);
  643.  
  644. npclist.byId(32705,NPCA);
  645. Delay(500);Engine.SetTarget (NPCA);
  646. Delay (1000); Engine.DlgOpen; Delay (1000);
  647. Engine.CancelTarget;
  648.  
  649. Engine.MoveTo(54203, 218740, -3251);
  650. Engine.MoveTo(54241, 218140, -3224);
  651.  
  652. end;
  653.  
  654. procedure zap11;
  655. begin
  656. Engine.MoveTo(57155, 218063, -2979);
  657. Engine.MoveTo(57184, 218097, -2979);
  658.  
  659. npclist.byId(32705,NPCA);
  660. Delay(500);Engine.SetTarget (NPCA);
  661. Delay (1000); Engine.DlgOpen; Delay (1000);
  662. Engine.CancelTarget;
  663.  
  664. Engine.MoveTo(56626, 218079, -2979);
  665. Engine.MoveTo(56335, 218545, -2979);
  666. Engine.MoveTo(56191, 219059, -2979);
  667. Engine.MoveTo(56176, 219078, -2979);
  668.  
  669. npclist.byId(32705,NPCA);
  670. Delay(500);Engine.SetTarget (NPCA);
  671. Delay (1000); Engine.DlgOpen; Delay (1000);
  672. Engine.CancelTarget;
  673.  
  674. Engine.MoveTo(56317, 218738, -2979);
  675. Engine.MoveTo(56271, 218490, -2979);
  676. Engine.MoveTo(55760, 218056, -2979);
  677. Engine.MoveTo(55334, 218151, -2952);
  678. Engine.MoveTo(55280, 218180, -2979);
  679.  
  680. npclist.byId(32705,NPCA);
  681. Delay(500);Engine.SetTarget (NPCA);
  682. Delay (1000); Engine.DlgOpen; Delay (1000);
  683. Engine.CancelTarget;
  684.  
  685. Engine.MoveTo(55603, 218055, -2979);
  686. Engine.MoveTo(55955, 218076, -2979);
  687. Engine.MoveTo(56292, 217574, -2979);
  688. Engine.MoveTo(56308, 217195, -2979);
  689. Engine.MoveTo(56272, 217182, -2979);
  690.  
  691. npclist.byId(32705,NPCA);
  692. Delay(500);Engine.SetTarget (NPCA);
  693. Delay (1000); Engine.DlgOpen; Delay (1000);
  694. Engine.CancelTarget;
  695.  
  696. Engine.MoveTo(56306, 218063, -2952);
  697.  
  698. end;
  699.  
  700. procedure zap12;
  701. begin
  702. Engine.MoveTo(55294, 219965, -2979);
  703. Engine.MoveTo(55250, 219986, -2979);
  704.  
  705. npclist.byId(32705,NPCA);
  706. Delay(500);Engine.SetTarget (NPCA);
  707. Delay (1000); Engine.DlgOpen; Delay (1000);
  708. Engine.CancelTarget;
  709.  
  710. Engine.MoveTo(55266, 219489, -2979);
  711. Engine.MoveTo(54803, 219121, -2979);
  712. Engine.MoveTo(54372, 219125, -2979);
  713. Engine.MoveTo(54364, 219097, -2979);
  714.  
  715. npclist.byId(32705,NPCA);
  716. Delay(500);Engine.SetTarget (NPCA);
  717. Delay (1000); Engine.DlgOpen; Delay (1000);
  718. Engine.CancelTarget;
  719.  
  720. Engine.MoveTo(54847, 219111, -2979);
  721. Engine.MoveTo(55267, 218620, -2979);
  722. Engine.MoveTo(55240, 218215, -2979);
  723. Engine.MoveTo(55272, 218186, -2979);
  724.  
  725. npclist.byId(32705,NPCA);
  726. Delay(500);Engine.SetTarget (NPCA);
  727. Delay (1000); Engine.DlgOpen; Delay (1000);
  728. Engine.CancelTarget;
  729.  
  730. Engine.MoveTo(55249, 218712, -2979);
  731. Engine.MoveTo(55774, 219103, -2979);
  732. Engine.MoveTo(56148, 219089, -2979);
  733. Engine.MoveTo(56174, 219111, -2979);
  734.  
  735. npclist.byId(32705,NPCA);
  736. Delay(500);Engine.SetTarget (NPCA);
  737. Delay (1000); Engine.DlgOpen; Delay (1000);
  738. Engine.CancelTarget;
  739.  
  740. Engine.MoveTo(55295, 219096, -2979);
  741.  
  742. end;
  743.  
  744. procedure zap13;
  745. begin
  746. Engine.MoveTo(56808, 220119, -2979);
  747. Engine.MoveTo(57154, 220103, -2979);
  748. Engine.MoveTo(57173, 220135, -2979);
  749.  
  750. npclist.byId(32705,NPCA);
  751. Delay(500);Engine.SetTarget (NPCA);
  752. Delay (1000); Engine.DlgOpen; Delay (1000);
  753. Engine.CancelTarget;
  754.  
  755. Engine.MoveTo(56732, 220135, -2979);
  756. Engine.MoveTo(56295, 220614, -2979);
  757. Engine.MoveTo(56314, 220981, -2979);
  758. Engine.MoveTo(56284, 220985, -2979);
  759.  
  760. npclist.byId(32705,NPCA);
  761. Delay(500);Engine.SetTarget (NPCA);
  762. Delay (1000); Engine.DlgOpen; Delay (1000);
  763. Engine.CancelTarget;
  764.  
  765. Engine.MoveTo(56291, 220529, -2979);
  766. Engine.MoveTo(55852, 220155, -2979);
  767. Engine.MoveTo(55305, 220042, -2979);
  768. Engine.MoveTo(55288, 220016, -2979);
  769.  
  770. npclist.byId(32705,NPCA);
  771. Delay(500);Engine.SetTarget (NPCA);
  772. Delay (1000); Engine.DlgOpen; Delay (1000);
  773. Engine.CancelTarget;
  774.  
  775. Engine.MoveTo(55767, 220162, -2979);
  776. Engine.MoveTo(56311, 219619, -2979);
  777. Engine.MoveTo(56213, 219171, -2979);
  778. Engine.MoveTo(56181, 219133, -2979);
  779.  
  780. npclist.byId(32705,NPCA);
  781. Delay(500);Engine.SetTarget (NPCA);
  782. Delay (1000); Engine.DlgOpen; Delay (1000);
  783. Engine.CancelTarget;
  784.  
  785. Engine.MoveTo(56282, 219316, -2979);
  786. Engine.MoveTo(56292, 220123, -2979);
  787.  
  788. npclist.byId(32705,NPCA);
  789. Delay(500);Engine.SetTarget (NPCA);
  790. Delay (1000); Engine.DlgOpen; Delay (1000);
  791. Engine.CancelTarget;
  792.  
  793.  
  794. end;
  795.  
  796. procedure zap14;
  797. begin
  798. Engine.MoveTo(54264, 220967, -2979);
  799. Engine.MoveTo(54230, 221012, -2979);
  800.  
  801. npclist.byId(32705,NPCA);
  802. Delay(500);Engine.SetTarget (NPCA);
  803. Delay (1000); Engine.DlgOpen; Delay (1000);
  804. Engine.CancelTarget;
  805.  
  806. Engine.MoveTo(54242, 220574, -2979);
  807. Engine.MoveTo(53769, 220145, -2979);
  808. Engine.MoveTo(53364, 220158, -2979);
  809. Engine.MoveTo(53356, 220125, -2979);
  810.  
  811. npclist.byId(32705,NPCA);
  812. Delay(500);Engine.SetTarget (NPCA);
  813. Delay (1000); Engine.DlgOpen; Delay (1000);
  814. Engine.CancelTarget;
  815.  
  816. Engine.MoveTo(53786, 220104, -2979);
  817. Engine.MoveTo(54180, 219697, -2979);
  818. Engine.MoveTo(54310, 219180, -2979);
  819. Engine.MoveTo(54341, 219122, -2979);
  820.  
  821. npclist.byId(32705,NPCA);
  822. Delay(500);Engine.SetTarget (NPCA);
  823. Delay (1000); Engine.DlgOpen; Delay (1000);
  824. Engine.CancelTarget;
  825.  
  826. Engine.MoveTo(54223, 219533, -2979);
  827. Engine.MoveTo(54656, 220187, -2979);
  828. Engine.MoveTo(55192, 220062, -2979);
  829. Engine.MoveTo(55233, 220013, -2979);
  830.  
  831. npclist.byId(32705,NPCA);
  832. Delay(500);Engine.SetTarget (NPCA);
  833. Delay (1000); Engine.DlgOpen; Delay (1000);
  834. Engine.CancelTarget;
  835.  
  836. Engine.MoveTo(54958, 220138, -2979);
  837. Engine.MoveTo(54241, 220127, -2979);
  838.  
  839.  
  840. end;
  841.  
  842. procedure zap15;
  843. begin
  844. Engine.MoveTo(54260, 218914, -2952);
  845. Engine.MoveTo(54322, 219061, -2979);
  846. Engine.MoveTo(54361, 219075, -2979);
  847.  
  848. npclist.byId(32705,NPCA);
  849. Delay(500);Engine.SetTarget (NPCA);
  850. Delay (1000); Engine.DlgOpen; Delay (1000);
  851. Engine.CancelTarget;
  852.  
  853. Engine.MoveTo(54229, 218830, -2979);
  854. Engine.MoveTo(54249, 218413, -2979);
  855. Engine.MoveTo(53691, 218071, -2979);
  856. Engine.MoveTo(53369, 218105, -2979);
  857. Engine.MoveTo(53353, 218076, -2979);
  858.  
  859. npclist.byId(32705,NPCA);
  860. Delay(500);Engine.SetTarget (NPCA);
  861. Delay (1000); Engine.DlgOpen; Delay (1000);
  862. Engine.CancelTarget;
  863.  
  864. Engine.MoveTo(53745, 218072, -2979);
  865. Engine.MoveTo(54237, 217612, -2979);
  866. Engine.MoveTo(54213, 217199, -2979);
  867. Engine.MoveTo(54248, 217177, -2979);
  868.  
  869. npclist.byId(32705,NPCA);
  870. Delay(500);Engine.SetTarget (NPCA);
  871. Delay (1000); Engine.DlgOpen; Delay (1000);
  872. Engine.CancelTarget;
  873.  
  874. Engine.MoveTo(54223, 217684, -2979);
  875. Engine.MoveTo(54662, 218029, -2979);
  876. Engine.MoveTo(55194, 218152, -2979);
  877. Engine.MoveTo(55255, 218178, -2979);
  878.  
  879. npclist.byId(32705,NPCA);
  880. Delay(500);Engine.SetTarget (NPCA);
  881. Delay (1000); Engine.DlgOpen; Delay (1000);
  882. Engine.CancelTarget;
  883.  
  884. Engine.MoveTo(54935, 218080, -2979);
  885. Engine.MoveTo(54213, 218097, -2979);
  886.  
  887.  
  888. end;
  889.  
  890. procedure szukanie;
  891. begin
  892. SkillList.ByID(11817, masowka);
  893. while reg<> 1 do begin
  894. Engine.MoveTo(52119, 219126, -3257);
  895. Engine.MoveTo(52123, 219153, -3257);
  896.  
  897. npclist.byId(32713,NPCA);
  898. Delay(500);Engine.SetTarget (NPCA);
  899. Delay (1000); Engine.DlgOpen; Delay (1000);
  900. Engine.DlgSel (3);
  901. Engine.DlgSel (1);
  902. Engine.CancelTarget;
  903.  
  904. Engine.MoveTo(52669, 219985, -3523);
  905. Engine.MoveTo(53305, 220013, -3523);
  906. Engine.MoveTo(53439, 220123, -3523);
  907. Engine.MoveTo(54246, 220133, -3523);
  908.  
  909. Engine.UseSkill(masowka.name);
  910. delay(2000);
  911. if (reg=1) then begin
  912. print('zaaaaaaaaaaaaaaaaaken');
  913. miejsce := 1;
  914. break;
  915. end;
  916.  
  917. Engine.MoveTo(55081, 220121, -3523);
  918. Engine.MoveTo(55273, 220226, -3523);
  919. Engine.MoveTo(55592, 220136, -3523);
  920. Engine.MoveTo(56242, 220129, -3523);
  921.  
  922. Engine.UseSkill(masowka.name);
  923. delay(2000);
  924. if (reg=1) then begin
  925. print('zaaaaaaaaaaaaaaaaaken');
  926. miejsce := 2;
  927. break;
  928. end;
  929.  
  930. Engine.MoveTo(56283, 219362, -3523);
  931. Engine.MoveTo(56124, 219108, -3523);
  932. Engine.MoveTo(55293, 219111, -3523);
  933.  
  934. Engine.UseSkill(masowka.name);
  935. delay(2000);
  936. if (reg=1) then begin
  937. print('zaaaaaaaaaaaaaaaaaken');
  938. miejsce :=3;
  939. break;
  940. end;
  941.  
  942. Engine.MoveTo(56094, 219098, -3523);
  943. Engine.MoveTo(56298, 218871, -3523);
  944. Engine.MoveTo(56286, 218085, -3523);
  945.  
  946. Engine.UseSkill(masowka.name);
  947. delay(2000);
  948. if (reg=1) then begin
  949. print('zaaaaaaaaaaaaaaaaaken');
  950. miejsce :=4;
  951. break;
  952. end;
  953.  
  954. Engine.MoveTo(55456, 218085, -3523);
  955. Engine.MoveTo(55246, 218201, -3523);
  956. Engine.MoveTo(54911, 218054, -3523);
  957. Engine.MoveTo(54260, 218061, -3523);
  958.  
  959. Engine.UseSkill(masowka.name);
  960. delay(2000);
  961. if (reg=1) then begin
  962. print('zaaaaaaaaaaaaaaaaaken');
  963. miejsce :=5;
  964. break;
  965. end;
  966.  
  967. Engine.MoveTo(54239, 217279, -3523);
  968. Engine.MoveTo(54433, 217088, -3523);
  969. Engine.MoveTo(56186, 217126, -3251);
  970. // 2pietro
  971. Engine.MoveTo(56296, 217308, -3251);
  972. Engine.MoveTo(56283, 218070, -3251);
  973.  
  974. Engine.UseSkill(masowka.name);
  975. delay(2000);
  976. if (reg=1) then begin
  977. print('zaaaaaaaaaaaaaaaaaken');
  978. miejsce :=6;
  979. break;
  980. end;
  981.  
  982. Engine.MoveTo(56285, 218903, -3251);
  983. Engine.MoveTo(56054, 219106, -3251);
  984. Engine.MoveTo(55271, 219112, -3251);
  985.  
  986. Engine.UseSkill(masowka.name);
  987. delay(2000);
  988. if (reg=1) then begin
  989. print('zaaaaaaaaaaaaaaaaaken');
  990. miejsce :=7;
  991. break;
  992. end;
  993.  
  994. Engine.MoveTo(56161, 219109, -3251);
  995. Engine.MoveTo(56295, 219386, -3251);
  996. Engine.MoveTo(56285, 220110, -3251);
  997.  
  998. Engine.UseSkill(masowka.name);
  999. delay(2000);
  1000. if (reg=1) then begin
  1001. print('zaaaaaaaaaaaaaaaaaken');
  1002. miejsce :=8;
  1003. break;
  1004. end;
  1005.  
  1006. Engine.MoveTo(55450, 220132, -3251);
  1007. Engine.MoveTo(55273, 219962, -3224);
  1008. Engine.MoveTo(54999, 220123, -3251);
  1009. Engine.MoveTo(54258, 220110, -3251);
  1010.  
  1011. Engine.UseSkill(masowka.name);
  1012. delay(2000);
  1013. if (reg=1) then begin
  1014. print('zaaaaaaaaaaaaaaaaaken');
  1015. miejsce :=9;
  1016. break;
  1017. end;
  1018.  
  1019. Engine.MoveTo(54237, 219303, -3251);
  1020. Engine.MoveTo(54150, 219137, -3251);
  1021. Engine.MoveTo(54234, 218749, -3251);
  1022. Engine.MoveTo(54239, 218087, -3251);
  1023.  
  1024. Engine.UseSkill(masowka.name);
  1025. delay(2000);
  1026. if (reg=1) then begin
  1027. print('zaaaaaaaaaaaaaaaaaken');
  1028. miejsce :=10;
  1029. break;
  1030. end;
  1031.  
  1032.  
  1033. Engine.MoveTo(54248, 217269, -3251);
  1034. Engine.MoveTo(54524, 217107, -3236);
  1035. Engine.MoveTo(55486, 217120, -3079);
  1036. Engine.MoveTo(56130, 217128, -2979);
  1037. Engine.MoveTo(56287, 217240, -2979);
  1038.  
  1039. // 3pietro
  1040.  
  1041. Engine.MoveTo(56294, 218049, -2979);
  1042.  
  1043. Engine.UseSkill(masowka.name);
  1044. delay(2000);
  1045. if (reg=1) then begin
  1046. print('zaaaaaaaaaaaaaaaaaken');
  1047. miejsce :=11;
  1048. break;
  1049. end;
  1050.  
  1051. Engine.MoveTo(56291, 218919, -2979);
  1052. Engine.MoveTo(56024, 219108, -2979);
  1053. Engine.MoveTo(55280, 219117, -2979);
  1054.  
  1055. Engine.UseSkill(masowka.name);
  1056. delay(2000);
  1057. if (reg=1) then begin
  1058. print('zaaaaaaaaaaaaaaaaaken');
  1059. miejsce :=12;
  1060. break;
  1061. end;
  1062.  
  1063. Engine.MoveTo(56100, 219098, -2979);
  1064. Engine.MoveTo(56262, 219292, -2979);
  1065. Engine.MoveTo(56297, 220074, -2979);
  1066.  
  1067. Engine.UseSkill(masowka.name);
  1068. delay(2000);
  1069. if (reg=1) then begin
  1070. print('zaaaaaaaaaaaaaaaaaken');
  1071. miejsce :=13;
  1072. break;
  1073. end;
  1074.  
  1075. Engine.MoveTo(55508, 220135, -2979);
  1076. Engine.MoveTo(55258, 220235, -2979);
  1077. Engine.MoveTo(54788, 220107, -2979);
  1078. Engine.MoveTo(54277, 220123, -2979);
  1079.  
  1080. Engine.UseSkill(masowka.name);
  1081. delay(2000);
  1082. if (reg=1) then begin
  1083. print('zaaaaaaaaaaaaaaaaaken');
  1084. miejsce :=14;
  1085. break;
  1086. end;
  1087.  
  1088. Engine.MoveTo(54228, 219252, -2979);
  1089. Engine.MoveTo(54091, 219100, -2979);
  1090. Engine.MoveTo(54255, 218749, -2979);
  1091. Engine.MoveTo(54240, 218107, -2979);
  1092.  
  1093. Engine.UseSkill(masowka.name);
  1094. delay(2000);
  1095. if (reg=1) then begin
  1096. print('zaaaaaaaaaaaaaaaaaken');
  1097. miejsce :=15;
  1098. break;
  1099. end;
  1100. end;
  1101. end;
  1102.  
  1103. begin
  1104.  
  1105. Script.NewThread(@msg); delay(50);
  1106.  
  1107. if User.inrange(115674, -125756, -3400, 450, 250) then zfreya
  1108. else dojsciezaken;
  1109.  
  1110. engine.facecontrol(0, true);
  1111.  
  1112.  
  1113.  
  1114.  
  1115. repeat
  1116. if Party.Chars.count > 5 then test:=1
  1117. else Delay (200);
  1118.  
  1119. until test=1;
  1120. print('jest 6 z party');
  1121.  
  1122. delay(2000);
  1123.  
  1124.  
  1125. repeat
  1126. if (Party.Chars.Items(5).DistTo(User) < 200) and
  1127. (Party.Chars.Items(4).DistTo(User) < 200) and
  1128. (Party.Chars.Items(3).DistTo(User) < 200) and
  1129. (Party.Chars.Items(2).DistTo(User) < 200) and
  1130. (Party.Chars.Items(1).DistTo(User) < 200) then test:=2
  1131. else Delay(200);
  1132. until test=2;
  1133.  
  1134. print('wchodzimy');
  1135.  
  1136. szukanie;
  1137.  
  1138. if (miejsce=1) then zap1;
  1139. if (miejsce=2) then zap2;
  1140. if (miejsce=3) then zap3;
  1141. if (miejsce=4) then zap4;
  1142. if (miejsce=5) then zap5;
  1143.  
  1144. if (miejsce=6) then zap6;
  1145. if (miejsce=7) then zap7;
  1146. if (miejsce=8) then zap8;
  1147. if (miejsce=9) then zap9;
  1148. if (miejsce=10) then zap10;
  1149.  
  1150. if (miejsce=11) then zap11;
  1151. if (miejsce=12) then zap12;
  1152. if (miejsce=13) then zap13;
  1153. if (miejsce=14) then zap14;
  1154. if (miejsce=15) then zap15;
  1155.  
  1156.  
  1157. // zaken29181
  1158.  
  1159.  
  1160. // Action := Engine.WaitAction([laSysMsg],idwiadomosci,printer);
  1161. // if Action = laSysMsg then begin
  1162. // Print(P1);
  1163. // print('sds');
  1164. //end;
  1165. delay(1000);
  1166. if (reg=1) then begin
  1167. print('zaaaaaaaaaaaaaaaaaken');
  1168. end;
  1169.  
  1170.  
  1171.  
  1172.  
  1173. end.
  1174.  
  1175. Pozycja freja wywalenie:
  1176. Engine.MoveTo(115717, -125734, -3392);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!